Koodit: QB: tasohyppelyn alku

DECLARE SUB hidaste ()
SCREEN 13

ukkoy = 7  '\ ukon leveydet
ukkox = 7  '/
alkuy = 0  '\ ukon aloitus kohdat
alkux = 0  '/

DIM SHARED ukko(ukkoy, ukkox) AS INTEGER

' luetaan ukko
FOR y = 1 TO ukkoy
  FOR x = 1 TO ukkox
    READ ukko(y, x)
  NEXT
NEXT

' piirretään kenttä
' taustan tulee olla musta (väri 0)
FOR y = 8 TO 199 STEP 8
  IF NOT INT(y / 2 / 8) = y / 2 / 8 THEN
    LINE (0, y)-(310, y), 15
    ELSE
    LINE (10, y)-(319, y), 15
  END IF
NEXT
DO
  DO
    ' piirretään ukko
    FOR y = 1 TO ukkox
      FOR x = 1 TO ukkoy
        PSET (alkux + x - 1, alkuy + y - 1), ukko(y, x)
      NEXT
    NEXT
    ' onko ukon alla maata
    FOR x = 1 TO ukkox
      IF POINT(x + alkux - 1, alkuy + ukkoy) > 0 THEN EXIT DO
    NEXT
    alkuy = alkuy + 1
    hidaste
    ' tyhjennetään vanha ukko
    FOR y = 1 TO ukkox
      FOR x = 1 TO ukkoy
        PSET (alkux + x - 1, alkuy + y - 2), 0
      NEXT
    NEXT
 LOOP
  DO: nappain$ = UCASE$(INKEY$): LOOP UNTIL nappain$ <> ""
  SELECT CASE nappain$
    CASE CHR$(0) + "M"
      ' liikutetaan ukkoa eteenpäin
      IF NOT alkux > 319 - ukkox - 1 THEN
        ' tarkistetaan osuuko ukko johonkin
        FOR y = 1 TO ukkoy
          IF POINT(alkux + ukkox, y + alkuy - 1) > 0 THEN GOTO 666
        NEXT
        alkux = alkux + 1
        ' tyhjennetään vanha ukko
        FOR y = 1 TO ukkox
          FOR x = 1 TO ukkoy
             PSET (alkux + x - 2, alkuy + y - 1), 0
          NEXT
        NEXT
      END IF
    CASE CHR$(0) + "K"
      ' liikutetaan ukkoa taaksepäin
      IF NOT alkux < 1 THEN
        ' tarkistetaan osuuko ukko johonkin
        FOR y = 1 TO ukkoy
          IF POINT(alkux - 1, y + alkuy - 1) > 0 THEN GOTO 666
        NEXT
        alkux = alkux - 1
        ' tyhjennetään vanha ukko
        FOR y = 1 TO ukkox
          FOR x = 1 TO ukkoy
             PSET (alkux + x, alkuy + y - 1), 0
          NEXT
        NEXT
      END IF
    CASE CHR$(27)
      END
  END SELECT
666 :
LOOP

' ukko datana
DATA 0,0,0,12,0,0,0
DATA 0,12,12,0,12,12,0
DATA 12,0,0,0,0,0,12
DATA 12,0,4,0,4,0,12
DATA 12,0,0,0,0,0,12
DATA 0,12,12,0,12,12,0
DATA 0,0,0,12,0,0,0

SUB hidaste
' homma hidastaa :)
a = TIMER
DO: LOOP UNTIL TIMER - a > .01
END SUB