<setscreen ("graphics:800;600;millions")
setscreen ("graphics")
var i, a, j, h, num: int

proc menu
    put "Where do you want to drop the bomb?"
    get num
end menu

proc drawbackground
    %I is a random x for the base
    randint (i, 100, 600)

    drawfillbox (0, 0, 800, 600, 7)
    drawfillbox (0, 0, 800, 50, 2)
    drawfilloval (30, 370, 50, 50, 31)


    %Base
    drawfillbox (i, 40, i + 40, 80, 72)
    %Top of Base
    drawfillbox (i - 10, 80, i - 10 + 60, 95, 72)


end drawbackground

proc planebomb
    % J is for adjusting the bomb's y axis, a is for the random y for the plane.
    % H is for the new position of the bomb after num is read. B is for the plane going across the screen
    randint (a, 150, 275)
    j := a

    for b : 1 .. 800
        %Plane Body
        drawfilloval (b, a, 30, 7, 14)
        %Top of plane
        drawfilloval (b, a + 2, 7, 10, 14)


        %bomb bomb
        drawfilloval (b, j - 18, 7, 7, 12)
        delay (5)
        %Plane Back part eraser
        drawfillbox (b - 30, a - 30, b + 30, a + 30, 7)
        if b = num then
            drawfilloval (num, 20, 7, 7, 14)

        end if
    end for
end planebomb

loop
    drawbackground
    menu
    planebomb
    cls
end loop


>

%bomb bomb
        drawfilloval (b, j - 18, 7, 7, 12)
        delay (5)
        %Plane Back part eraser
        drawfillbox (b - 30, a - 30, b + 30, a + 30, 7)
        if b = num then
            drawfilloval (num, 20, 7, 7, 14)

        end if

proc planebomb
    % J is for adjusting the bomb's y axis, a is for the random y for the plane.
    % H is for the new position of the bomb after num is read. B is for the plane going across the screen
    randint (a, 150, 275)
    j := a
   
    for b : 1 .. 800
        %Plane Body
        drawfilloval (b, a, 30, 7, 14)
        %Top of plane
        drawfilloval (b, a + 2, 7, 10, 14)

   
       delay (5)
%Plane Back part eraser
drawfillbox (b - 30, a - 30, b + 30, a + 30, 7)
 for decreasing h: j .. 20

 %If you haven't gone past the num
 if b >= num then
%Bomb eraser
drawfillbox ( num-15,h-9, num+15, h+9, 7)
 drawfilloval (num, h, 7, 7, 12)
%After the num

else

%bomb bomb
drawfilloval (b, j - 18, 7, 7, 12)

end if
 
end for
    end for
end planebomb

for b : 1 .. 800 %loop starts here
        %Plane Body
        drawfilloval (b, a, 30, 7, 14)
        %Top of plane
        drawfilloval (b, a + 2, 7, 10, 14)


        delay (5)
        %Plane Back part eraser
        drawfillbox (b - 30, a - 30, b + 30, a + 30, 7)


        %If you haven't gone past the num
        if b >= num then
            %Bomb eraser
            drawfillbox (num - 15, 9, num + 15, 9, 7)
            drawfilloval (num, 9, 7, 7, 12)
            %After the num

        else

            %bomb bomb
            drawfilloval (b, j - 18, 7, 7, 12)

        end if


    end for%loop ends here