'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
'º þ DODGER.BAS --- Programmed by QP7                                       º
'º þ Version 1.01                                                           º
'º þ Try to dodge the blocks and reach the bottom of the screen.            º
'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
SCREEN 13
RANDOMIZE TIMER

TYPE object
  x AS INTEGER
  y AS INTEGER
END TYPE

WIDTH 80, 50
DIM player AS object
DIM block(1 TO 50) AS object

player.x = 40: player.y = 2
COLOR 4
LOCATE player.y, player.x: PRINT CHR$(1)

DO

COLOR 9

FOR i% = 1 TO 50
  IF block(i%).y <= 1 THEN
    block(i%).x = INT(RND * 79 + 1)
    IF INT(RND * 15) = 1 THEN block(i%).y = 48
  ELSE
    LOCATE block(i%).y, block(i%).x: PRINT CHR$(0)
    block(i%).y = block(i%).y - 1
    LOCATE block(i%).y, block(i%).x: PRINT CHR$(219)
    IF block(i%).x = player.x AND block(i%).y = player.y THEN
      PRINT "colission"
      END
    END IF
  END IF
  IF block(i%).y = 1 THEN
    LOCATE 1, block(i%).x
    PRINT CHR$(0)
  END IF
NEXT i%

t% = t% + 1

COLOR 4
IF t% >= 20 THEN
  LOCATE player.y, player.x: PRINT CHR$(0)
  player.y = player.y + 1
  LOCATE player.y, player.x: PRINT CHR$(1)
  t% = 0
END IF

SELECT CASE INKEY$
  CASE CHR$(0) + CHR$(75)
    IF player.x > 1 THEN
      LOCATE player.y, player.x: PRINT CHR$(0)
      player.x = player.x - 1
      LOCATE player.y, player.x: PRINT CHR$(1)
    END IF
  CASE CHR$(0) + CHR$(77)
    IF player.x < 79 THEN
      LOCATE player.y, player.x: PRINT CHR$(0)
      player.x = player.x + 1
      LOCATE player.y, player.x: PRINT CHR$(1)
    END IF
END SELECT


IF player.y >= 47 THEN
  COLOR 9
  PRINT "you win"
  DO: LOOP UNTIL INKEY$ = CHR$(13)
  END
END IF


LOOP