bug fixes, keypad work
parent
51b884c44c
commit
77338a6b34
@ -1,15 +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"
|
||||
|
||||
print "Hello, world!"
|
||||
|
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