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