Keskustelu: Koodit: QB: Roque pelin alku

DECLARE SUB title () 'Subit...
DECLARE SUB piirrahuone ()
DECLARE SUB liikutus ()
DIM SHARED x AS INTEGER, ux AS INTEGER 'Muuttujat
DIM SHARED y AS INTEGER, uy AS INTEGER
DIM SHARED kohde AS STRING, kk1 AS INTEGER, kk2 AS INTEGER 'kk:kohdekoordinaatti

kk1 = 15 'Arvot muuttujiin
kk2 = 20
kohde = "X"
x = 5: y = 5: ux = x: uy = y
SCREEN 1: COLOR 1
CLS
CALL title 'Jos ette halua nähdä minun alkuja,poistakaa tämä kutsu :D
CLS
CALL piirrahuone 'Piirretän huone
LOCATE x, y: PRINT "@" 'Minne piirretään @
CALL liikutus 'Ja peli voi alkaa :D

SUB liikutus
DO
liikutus:
button$ = INKEY$ 'Muuttujiin uusia arvoja käyttäjän mukaan käyttäen INKEY$:tä
IF button$ = "w" THEN ux = ux - 1
IF button$ = "s" THEN ux = ux + 1
IF button$ = "a" THEN uy = uy - 1
IF button$ = "d" THEN uy = uy + 1
IF button$ = "q" THEN END

IF ux <> x OR uy <> y THEN
'Nämä sen takia, ettei mennä rajoista ulos ja saada erroreita
        IF ux - 1 = 0 THEN
                ux = ux + 1
                GOTO liikutus

        END IF
        IF ux + 1 = 24 THEN
                ux = ux - 1
                GOTO liikutus

        END IF
        IF uy - 1 = 0 THEN
                uy = uy + 1
                GOTO liikutus

        END IF
        IF uy + 1 = 41 THEN
                uy = uy - 1
                GOTO liikutus

        END IF

LOCATE x, y: PRINT " " '@ merkin piirto ja poisto
LOCATE ux, uy: PRINT "@"
x = ux: y = uy
END IF

IF ux = kk1 AND uy = kk2 THEN 'Ollaanko kohteessa?
        LOCATE 10, 10: PRINT "VOITIT!!!"
        END
END IF
LOOP

END SUB

'Tän ois voinu tehä varmaan helpomminkii...
SUB piirrahuone 'Tässä mun huoneen piirto
PRINT "IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "I                                      I"
PRINT "IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII"
LOCATE kk1, kk2: PRINT kohde 'Ja kohde huoneeseen...
END SUB

SUB title 'Alku textit ja ohjeet :D
PRINT "MiukuMaukun seikkailut"
SLEEP 1
PRINT
PRINT "Tehnyt by P-P (A.K.A Eebro Rantojenkuningas)"
SLEEP 2
CLS
PRINT "Näppäimet:"
PRINT
PRINT "W:Ylös"
PRINT "S:Alas"
PRINT "A:Vasen"
PRINT "D:Oikea"
PRINT "Q:Quit(Lopeta)"
SLEEP 5
END SUB