Data update

This commit is contained in:
Ingy döt Net 2023-09-16 17:28:03 -07:00
parent 5af6d93694
commit 796d366b97
455 changed files with 7413 additions and 1900 deletions

View file

@ -3,7 +3,7 @@ subr fruit
ry = (random 20 - 1) * 5 + 2.5
.
subr start
call fruit
fruit
game = 1
sx[] = [ 52.5 0 0 0 0 ]
sy[] = [ 52.5 0 0 0 0 ]
@ -17,7 +17,7 @@ color 997
text "SNAKE"
textsize 5
move 10 40
text "Arrow keys for control"
text "Arrow keys for controlling"
move 10 30
text "Press space to to start"
#
@ -31,7 +31,7 @@ on key
elif keybkey = "ArrowLeft" and dir <> 2
dir = 4
elif keybkey = " " and game = 0
call start
start
.
.
on timer
@ -85,7 +85,7 @@ on timer
if sx = rx and sy = ry
len sx[] len sx[] + 3
len sy[] len sy[] + 3
call fruit
fruit
.
sx[1] = sx ; sy[1] = sy
if game = 1