59 lines
1 KiB
Text
59 lines
1 KiB
Text
bola$ = "0000ff"
|
|
obst$ = "000000"
|
|
|
|
maxBalls = 10
|
|
cx = 1
|
|
cy = 2
|
|
dim Balls(maxBalls, 2)
|
|
|
|
open window 600,600
|
|
window origin "ct"
|
|
|
|
maxh = peek("winheight")
|
|
|
|
REM Draw the pins:
|
|
|
|
FOR row = 1 TO 7
|
|
FOR col = 1 TO row
|
|
FILL circle 40*col - 20*row, 40*row+80, 10
|
|
NEXT col
|
|
NEXT row
|
|
|
|
REM Animate
|
|
tick = 0
|
|
bolas = 0
|
|
color 0,0,255
|
|
|
|
do
|
|
if (bolas < maxBalls) then
|
|
if tick = 3 then
|
|
tick = 0
|
|
bolas = bolas + 1
|
|
Balls(bolas, cx) = 20
|
|
Balls(bolas, cy) = 10
|
|
end if
|
|
tick = tick + 1
|
|
end if
|
|
for n = 1 to bolas
|
|
if Balls(n, cy) then
|
|
color$ = right$(getbit$(Balls(n,cx),Balls(n,cy) + 10,Balls(n,cx),Balls(n,cy) + 10),6)
|
|
if (color$ = bola$) or (Balls(n,cy) >= maxh - 15) then
|
|
Balls(n,cy) = 0
|
|
break
|
|
end if
|
|
clear fill circle Balls(n,cx),Balls(n,cy),10
|
|
if color$ = obst$ then
|
|
if int(ran(2)) then
|
|
Balls(n,cx) = Balls(n,cx) - 20
|
|
else
|
|
Balls(n,cx) = Balls(n,cx) + 20
|
|
end if
|
|
end if
|
|
Balls(n,cy) = Balls(n,cy)+10
|
|
fill circle Balls(n,cx),Balls(n,cy),10
|
|
wait .001
|
|
else
|
|
wait .001
|
|
end if
|
|
next n
|
|
loop
|