setscreen ("offscreenonly")
var nmepos, count, m, x, a, b, ymouse, xmouse, button : int
count := 0
%The Plane
procedure plane
drawline (xmouse - 4, 5, xmouse, 40, 4)
drawline (xmouse - 3, 5, xmouse, 40, 4)
drawline (xmouse - 2, 5, xmouse, 40, 4)
drawline (xmouse - 1, 5, xmouse, 40, 4)
drawline (xmouse, 5, xmouse, 40, 4)
drawline (xmouse + 1, 5, xmouse, 40, 4)
drawline (xmouse + 2, 5, xmouse, 40, 4)
drawline (xmouse + 3, 5, xmouse, 40, 4)
drawline (xmouse + 4, 5, xmouse, 40, 4)
end plane
%The falling ball
process nme
loop
randint (m, 10, maxx - 10)
for decreasing i : maxy .. 1 by 3
cls
drawfilloval (m, i, 10, 10, blue)
delay (10)
end for
end loop
end nme
%Your Plane
process you
loop
mousewhere (xmouse, ymouse, button)
cls
put count
plane
View.Update
%The Bullet
if button = 1 then
a := xmouse
b := ymouse
for i : 40 .. 400 by 5
mousewhere (xmouse, ymouse, button)
cls
plane
drawline (a - 1, i, a - 1, i + 40, 7)
drawline (a, i, a, i + 40, 7)
drawline (a + 1, i, a + 1, i + 40, 7)
%Collision Detection
if whatdotcolor (a, i + 41) = blue then
nmepos := i + 41
count := count + 1
elsif whatdotcolor (a, i + 42) = blue then
nmepos := i + 42
count := count + 1
elsif whatdotcolor (a, i + 43) = blue then
nmepos := i + 43
count := count + 1
elsif whatdotcolor (a, i + 44) = blue then
nmepos := i + 44
count := count + 1
elsif whatdotcolor (a - 1, i + 41) = blue then
nmepos := i + 41
count := count + 1
elsif whatdotcolour (a - 1, i + 42) = blue then
nmepos := i + 42
count := count + 1
elsif whatdotcolour (a - 1, i + 43) = blue then
nmepos := i + 43
count := count + 1
elsif whatdotcolour (a - 1, i + 44) = blue then
nmepos := i + 44
count := count + 1
elsif whatdotcolour (a + 1, i + 41) = blue then
nmepos := i + 41
count := count + 1
elsif whatdotcolour (a + 1, i + 42) = blue then
nmepos := i + 42
count := count + 1
elsif whatdotcolor (a + 1, i + 43) = blue then
nmepos := i + 43
count := count + 1
elsif whatdotcolor (a + 1, i + 44) = blue then
nmepos := i + 44
count := count + 1
end if
View.Update
end for
end if
end loop
end you
fork you
fork nme |