bug fixes, keypad work
parent
51b884c44c
commit
77338a6b34
@ -1,15 +1 @@
|
|||||||
do
|
print "Hello, world!"
|
||||||
getkey > input
|
|
||||||
if (input & 4)
|
|
||||||
rand 479 > x
|
|
||||||
rand 319 > y
|
|
||||||
rand 479 > i
|
|
||||||
rand 319 > j
|
|
||||||
rand 32767 > purple
|
|
||||||
|
|
||||||
line x y i j purple
|
|
||||||
end
|
|
||||||
while (1)
|
|
||||||
|
|
||||||
print "done"
|
|
||||||
|
|
||||||
|
Binary file not shown.
@ -0,0 +1,33 @@
|
|||||||
|
print "Hello."
|
||||||
|
|
||||||
|
set fg 32767
|
||||||
|
|
||||||
|
# draw bg, lines
|
||||||
|
rect 50 50 380 220 6375
|
||||||
|
line 50 160 430 160 fg
|
||||||
|
line 240 50 240 270 fg
|
||||||
|
|
||||||
|
set x 50
|
||||||
|
do
|
||||||
|
line x 170 x 150 fg
|
||||||
|
set x (x + 20)
|
||||||
|
while (x < 431)
|
||||||
|
|
||||||
|
set y 50
|
||||||
|
do
|
||||||
|
line 230 y 250 y fg
|
||||||
|
set y (y + 20)
|
||||||
|
while (y < 271)
|
||||||
|
|
||||||
|
do
|
||||||
|
rand 379 > x
|
||||||
|
rand 219 > y
|
||||||
|
rand 379 > i
|
||||||
|
rand 219 > j
|
||||||
|
set x (x + 50)
|
||||||
|
set y (y + 50)
|
||||||
|
set i (i + 50)
|
||||||
|
set j (j + 50)
|
||||||
|
|
||||||
|
line x y i j 511
|
||||||
|
while (1)
|
@ -0,0 +1,21 @@
|
|||||||
|
do
|
||||||
|
getkey > input
|
||||||
|
print input
|
||||||
|
delay 1000
|
||||||
|
while (1)
|
||||||
|
|
||||||
|
#do
|
||||||
|
# getkey > input
|
||||||
|
# if (input & 4)
|
||||||
|
# rand 479 > x
|
||||||
|
# rand 319 > y
|
||||||
|
# rand 479 > i
|
||||||
|
# rand 319 > j
|
||||||
|
# rand 32767 > purple
|
||||||
|
#
|
||||||
|
# line x y i j purple
|
||||||
|
# end
|
||||||
|
#while (1)
|
||||||
|
#
|
||||||
|
#print "done"
|
||||||
|
|
Loading…
Reference in New Issue