setscreen ("graphics: 788;502")
View.Set ("offscreenonly")
var handh, disc : int := 695 %variable for horizontal hand value and disc
var handd : int := 300 %Diagnol value for hand
%Good Guy
drawline (730, 165, 695, 300, black) %right h
drawfilloval (730, 200, 35, 35, black) %head
drawline (730, 165, 730, 75, black) %body
drawline (730, 165, 680, 125, black) %left h
drawline (730, 75, 680, 1, black) %l f
drawline (730, 75, 780, 1, black) %r f
%Bad Guy
drawfilloval (100, 345, 35, 35, black) %head
drawline (100, 315, 100, 150, black) %body
drawline (100, 315, 50, 220, black) %leftie
drawline (100, 315, 150, 220, black) %right
drawline (100, 150, 10, 1, black) %left l
drawline (100, 150, 190, 1, black) %right l
for count : 1 .. 100 %counted loop to make the destructo disc grow
delay (30)
drawfilloval (700, 310, count, 5, yellow)
View.Update
end for
loop
cls
handh := handh + 1 %makes the hand go back
handd := handd - 1 %makes the hand go back
disc := disc - 3 %moves the disc to the left
%Good Guy
drawline (730, 165, handh, handd, black)
drawfilloval (730, 200, 35, 35, black)
drawline (730, 165, 730, 75, black)
drawline (730, 165, 680, 125, black)
drawline (730, 75, 680, 1, black)
drawline (730, 75, 780, 1, black)
%Bad Guy
drawfilloval (100, 345, 35, 35, black)
drawline (100, 315, 100, 150, black)
drawline (100, 315, 50, 220, black)
drawline (100, 315, 150, 220, black)
drawline (100, 150, 10, 1, black)
drawline (100, 150, 190, 1, black)
drawfilloval (disc, 310, 100, 5, yellow)
exit when disc < -100
View.Update
end loop
var headx : int := 100 %x-value of head
var heady : int := 345 %y-value of head
loop
cls
headx := headx + 1 %makes the head fall off
heady := heady - 2
delay (5)
%Bad Guy
drawfilloval (headx, heady, 35, 35, black)
drawline (100, 315, 100, 150, black)
drawline (100, 315, 50, 220, black)
drawline (100, 315, 150, 220, black)
drawline (100, 150, 10, 1, black)
drawline (100, 150, 190, 1, black)
%Good Guy
drawline (730, 165, 780, 125, black)
drawfilloval (730, 200, 35, 35, black)
drawline (730, 165, 730, 75, black)
drawline (730, 165, 680, 125, black)
drawline (730, 75, 680, 1, black)
drawline (730, 75, 780, 1, black)
exit when heady = 33
View.Update
end loop
for count : 1 .. 80 %counted loop for the blood
delay (120)
drawfilloval (260, 2, count, 7, red)
View.Update
end for
|