I need some ideas, what to do in game, something to collect?
Here is the code:
Code: Select all
SCREEN 13
DIM wall(10, 10), floor(10, 10), grass(10, 10), grassb(10, 10), flowers(10, 10), water(10, 10), player(10, 10)
DIM map(20, 19)
FOR y = 1 TO 10
FOR x = 1 TO 10
READ clr
PSET (x, y), clr
NEXT: NEXT
GET (1, 1)-(10, 10), wall
FOR y = 1 TO 10
FOR x = 1 TO 10
READ clr
PSET (x, y), clr
NEXT: NEXT
GET (1, 1)-(10, 10), floor
FOR y = 1 TO 10
FOR x = 1 TO 10
READ clr
PSET (x, y), clr
NEXT: NEXT
GET (1, 1)-(10, 10), grass
FOR y = 1 TO 10
FOR x = 1 TO 10
READ clr
PSET (x, y), clr
NEXT: NEXT
GET (1, 1)-(10, 10), grassb
FOR y = 1 TO 10
FOR x = 1 TO 10
READ clr
PSET (x, y), clr
NEXT: NEXT
GET (1, 1)-(10, 10), flowers
FOR y = 1 TO 10
FOR x = 1 TO 10
READ clr
PSET (x, y), clr
NEXT: NEXT
GET (1, 1)-(10, 10), water
FOR y = 1 TO 10
FOR x = 1 TO 10
READ clr
PSET (x, y), clr
NEXT: NEXT
GET (1, 1)-(10, 10), player
CLS
RESTORE map1
FOR y = 0 TO 18
FOR x = 0 TO 19
READ map(x, y)
NEXT: NEXT
FOR y = 0 TO 18
FOR x = 0 TO 19
IF map(x, y) = 1 THEN PUT (x * 10, y * 10), wall
IF map(x, y) = 2 THEN PUT (x * 10, y * 10), floor
IF map(x, y) = 3 THEN PUT (x * 10, y * 10), grass
IF map(x, y) = 4 THEN PUT (x * 10, y * 10), grassb
IF map(x, y) = 5 THEN PUT (x * 10, y * 10), flowers
IF map(x, y) = 0 THEN PUT (x * 10, y * 10), water
NEXT: NEXT
'wall
DATA 0,8,8,8,8,8,8,8,8,0
DATA 8,7,7,8,7,7,7,7,7,8
DATA 8,8,8,8,8,8,8,8,8,8
DATA 8,7,7,7,7,7,8,7,7,8
DATA 8,8,8,8,8,8,8,8,8,8
DATA 8,7,7,8,7,7,7,7,7,8
DATA 8,8,8,8,8,8,8,8,8,8
DATA 8,7,7,8,7,7,8,7,7,8
DATA 8,7,7,8,7,7,8,7,7,8
DATA 0,8,8,8,8,8,8,8,8,0
'floor
DATA 0,6,6,6,6,6,6,6,6,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,6,6,6,6,6,6,6,6,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,6,6,6,6,6,6,6,6,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,6,6,6,6,6,6,6,6,0
DATA 0,0,0,0,0,0,0,0,0,0
DATA 0,6,6,6,6,6,6,6,6,0
DATA 0,0,0,0,0,0,0,0,0,0
'grass
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,10,10,10,10,10,10,10
'grassb
DATA 2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2
'flowers
DATA 2,4,4,2,2,2,2,2,2,2
DATA 2,4,4,2,2,2,2,2,2,2
DATA 2,2,10,2,2,2,2,2,2,2
DATA 2,2,10,2,2,2,2,2,2,2
DATA 2,10,10,10,2,2,2,2,2,2
DATA 2,2,2,2,2,14,14,2,2,2
DATA 2,2,2,2,2,14,14,2,2,2
DATA 2,2,2,2,2,10,2,2,2,2
DATA 2,2,2,2,2,10,2,2,2,2
DATA 2,2,2,2,10,10,10,2,2,2
'water
DATA 1,1,1,1,1,1,1,1,1,1
DATA 1,1,1,1,1,1,7,1,1,1
DATA 1,1,7,1,1,1,1,1,1,1
DATA 1,1,1,1,1,1,1,1,7,1
DATA 1,1,1,1,1,1,1,1,1,1
DATA 1,1,1,1,1,1,1,1,1,1
DATA 1,1,1,1,1,7,1,1,1,1
DATA 1,1,1,1,1,1,1,1,1,1
DATA 1,7,1,1,1,1,1,1,1,1
DATA 1,1,1,7,1,1,1,1,7,1
'player
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,14,14,14,14,10,10,10
DATA 10,10,0,4,0,0,4,0,10,10
DATA 10,10,0,4,3,3,4,0,10,10
DATA 10,10,10,4,3,3,4,10,10,10
DATA 10,10,10,4,3,3,4,10,10,10
DATA 10,10,0,4,3,3,4,0,10,10
DATA 10,10,0,4,4,4,4,0,10,10
DATA 10,10,10,10,10,10,10,10,10,10
DATA 10,10,10,10,10,10,10,10,10,10
map1:
DATA 1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1
DATA 1,4,4,4,4,4,4,4,4,4,4,0,4,4,4,4,4,4,4,1
DATA 1,4,4,4,4,4,4,4,4,4,4,0,4,4,4,4,4,4,4,1
DATA 1,4,4,4,4,4,4,4,4,4,4,0,4,4,4,4,4,4,4,1
DATA 1,4,4,4,4,4,4,4,4,4,4,0,0,0,0,0,4,4,0,0
DATA 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
DATA 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
DATA 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
DATA 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
DATA 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
DATA 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
DATA 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
DATA 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
DATA 1,4,2,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,1
DATA 1,4,2,3,3,3,1,4,4,4,4,4,4,5,5,5,5,5,5,1
DATA 1,4,2,3,5,3,1,4,4,4,4,4,4,5,0,0,0,0,5,1
DATA 1,4,2,3,5,3,1,4,4,4,4,4,4,5,0,0,0,0,5,1
DATA 1,4,2,3,3,3,1,4,4,4,4,4,4,5,5,5,5,5,5,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
LOCATE 1, 27
PRINT "Izzy's mower"
x = 1
y = 17
PUT (x * 10, y * 10), grass
PUT (x * 10, y * 10), player ' start player position
DO
k$ = INKEY$
LOCATE 3, 27
PRINT "Score:"
LOCATE 3, 33
PRINT score
px = x: py = y
if map(x,y) = 5 then
cls
print "Oh no! My flowers, you ruined them!"
sleep 1
SHELL "Mower.exe"
end
end if
if map(x,y) = 2 then
cls
print "Your mower is broken!"
sleep 1
SHELL "Mower.exe"
end
end if
IF k$ = CHR$(100) AND map(x + 1, y) > 1 THEN x = x + 1
IF k$ = CHR$(97) AND map(x - 1, y) > 1 THEN x = x - 1
IF k$ = CHR$(119) AND map(x, y - 1) > 1 THEN y = y - 1
IF k$ = CHR$(115) AND map(x, y + 1) > 1 THEN y = y + 1
IF px <> x OR py <> y THEN
PUT (x * 10, y * 10), player, PSET
PUT (px * 10, py * 10), grass, PSET
END IF
LOOP UNTIL k$ = CHR$(27)