Code: Select all
REM game
CLS
DIM TOON(1000), TOONSH(1000)
DIM SPRITE1(50), SPRITE2(50), SPRITE3(50) 'DIM ARRAY
DIM MAP1(30, 15)
SCREEN 13
XSV = 1
TOONX = 15
TOONY = 8
FOR Y = 1 TO 13 'LOAD BRICK
FOR X = 1 TO 15
READ CLR
PSET (X, Y), CLR
NEXT: NEXT
GET (1, 1)-(15, 13), SPRITE1
FOR Y = 1 TO 13 'LOAD SKY
FOR X = 1 TO 15
READ CLR
PSET (X, Y), CLR
NEXT: NEXT
GET (1, 1)-(15, 13), SPRITE2
FOR Y = 1 TO 13 'LOAD BUSH
FOR X = 1 TO 15
READ CLR
PSET (X, Y), CLR
NEXT: NEXT
GET (1, 1)-(15, 13), SPRITE3
CLS
'MAP
FOR Y = 1 TO 15
FOR X = 1 TO 30
READ MAP1(X, Y)
NEXT: NEXT
CLS
FOR Y = 1 TO 20 'LOAD TOON
FOR X = 1 TO 20
READ CLR
PSET (X, Y), CLR
NEXT: NEXT
GET (1, 1)-(20, 20), TOON
FOR Y = 1 TO 20 'LOAD TOON SHADOW
FOR X = 1 TO 20
READ CLR
PSET (X, Y), CLR
NEXT: NEXT
GET (1, 1)-(20, 20), TOONSH
FOR Y = 1 TO 15
FOR X = XSV TO XSV + 20
IF MAP1(X, Y) = 1 THEN PUT (X * 15 - XSV * 15, Y * 13 - 13), SPRITE1
IF MAP1(X, Y) = 2 THEN PUT (X * 15 - XSV * 15, Y * 13 - 13), SPRITE2
IF MAP1(X, Y) = 3 THEN PUT (X * 15 - XSV * 15, Y * 13 - 13), SPRITE3
NEXT: NEXT
PUT (TOONX * 20 - 20, TOONY * 20 - 20), TOONSH, AND
PUT (TOONX * 20 - 20, TOONY * 20 - 20), TOON, OR
DO
PRESS$ = INKEY$
IF PRESS$ = CHR$(0) + CHR$(75) AND MAP1(TOONX - 1, TOONY) <1> 1 THEN TOONX = TOONX - 1
END IF
IF PRESS$ = CHR$(0) + CHR$(77) AND MAP1(TOONX + 1, TOONY) <> 1 THEN
IF TOONX < 20 THEN TOONX = TOONX + 1
END IF
IF PRESS$ = CHR$(0) + CHR$(72) AND MAP1(TOONX, TOONY - 1) <1> 1 THEN TOONY = TOONY - 1
END IF
IF OLDTOONX <> TOONX OR OLDTOONY <> TOONY THEN
OLDTOONX = TOONX
OLDTOONY = TOONY
FOR Y = 1 TO 15
FOR X = 1 TO 21
IF MAP1(X, Y) = 1 THEN PUT (X * 15 - 15, Y * 13 - 13), SPRITE1, PSET
IF MAP1(X, Y) = 2 THEN PUT (X * 15 - 15, Y * 13 - 13), SPRITE2, PSET
IF MAP1(X, Y) = 3 THEN PUT (X * 15 - 15, Y * 13 - 13), SPRITE3, PSET
NEXT: NEXT
PUT (TOONX * 20 - 20, TOONY * 20 - 20), TOONSH, AND
PUT (TOONX * 20 - 20, TOONY * 20 - 20), TOON, OR
END IF
LOOP UNTIL PRESS$ = CHR$(27)
DATA 07,07,07,07,07,07,08,08,07,07,07,07,07,07,07
DATA 07,06,06,06,06,06,08,08,06,06,06,06,06,06,06
DATA 07,06,06,06,06,06,08,08,06,06,06,06,06,06,06
DATA 07,06,06,06,06,06,08,08,08,08,08,08,08,08,08
DATA 07,06,06,06,06,06,08,08,08,08,08,08,08,08,08
DATA 07,08,06,06,06,06,08,08,06,06,06,06,06,06,06
DATA 07,08,08,06,06,06,08,08,06,06,06,06,06,06,06
DATA 07,06,08,08,08,08,08,06,06,06,06,06,06,06,06
DATA 07,06,06,08,08,08,06,06,06,06,06,06,06,06,06
DATA 07,06,06,06,08,08,06,06,06,06,06,06,06,06,06
DATA 07,06,06,06,08,08,06,06,06,06,06,06,06,06,06
DATA 07,06,06,06,08,08,06,06,06,06,06,06,06,06,06
DATA 07,06,06,06,08,08,06,06,06,06,06,06,06,06,06
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03
DATA 03,03,03,03,03,03,03,02,02,03,03,03,03,03,03
DATA 03,03,03,03,03,03,02,02,02,02,03,03,03,03,03
DATA 03,03,03,03,03,02,02,02,02,02,02,03,03,03,03
DATA 03,03,03,03,02,02,02,02,02,02,02,03,03,03,03
DATA 03,03,03,02,02,02,02,02,02,02,02,02,03,03,03
DATA 03,03,03,02,02,02,02,02,02,02,02,02,02,03,03
DATA 03,03,03,02,02,02,02,02,02,02,02,02,02,03,03
DATA 03,03,02,02,02,02,02,02,02,02,02,02,02,03,03
DATA 03,02,02,02,02,02,02,02,02,02,02,02,02,02,03
DATA 03,02,02,02,02,02,02,02,02,02,02,02,02,02,03
DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,01,01,01,01,01,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,01,00,00,00,00,00,01,00,00,00,00,00,00,00
DATA 00,00,00,00,00,01,00,00,00,00,00,00,00,01,00,00,00,00,00,00
DATA 00,00,00,00,00,01,00,00,00,00,00,00,00,01,00,00,00,00,00,00
DATA 00,00,00,00,00,01,00,00,00,00,00,00,00,01,00,00,00,00,00,00
DATA 00,00,00,00,00,01,00,00,00,00,00,00,00,01,00,00,00,00,00,00
DATA 00,00,00,00,00,00,01,00,00,00,00,00,00,01,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,01,00,00,00,00,01,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,01,01,01,01,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,001,001,001,001,001,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,001,255,255,255,255,255,001,255,255,255,255,255,255,255
DATA 255,255,255,255,255,001,255,255,255,255,255,255,255,001,255,255,255,255,255,255
DATA 255,255,255,255,255,001,255,255,255,255,255,255,255,001,255,255,255,255,255,255
DATA 255,255,255,255,255,001,255,255,255,255,255,255,255,001,255,255,255,255,255,255
DATA 255,255,255,255,255,001,255,255,255,255,255,255,255,001,255,255,255,255,255,255
DATA 255,255,255,255,255,255,001,255,255,255,255,255,255,001,255,255,255,255,255,255
DATA 255,255,255,255,255,255,001,255,255,255,255,001,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,001,001,001,001,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
thanks