var chars : array char of boolean
var updown : int := 200
var haha : int := 1
var comp : int := 700


drawfill (1, 1, 53, 53)


drawfilloval (30, 210, 10, 8, 100)
drawfilloval (30, 200, 30, 8, 125)

loop
    Input.KeyDown (chars)

    %Movement for pressing up arrow
    if chars (KEY_UP_ARROW) then
        for i : 1 .. 10

            updown := updown + 1

            drawfilloval (30, updown + 10, 10, 8, 100)
            drawfilloval (30, updown, 30, 8, 125)

            delay (2)
            drawfilloval (30, updown + 10, 30, 14, 53)
            drawfilloval (30, updown, 60, 30, 53)

            %Collision detection
            exit when updown + 17 = 399
        end for

        %Keeps ship from disapearing when u let go of the key
        drawfilloval (30, updown + 10, 10, 8, 100)
        drawfilloval (30, updown, 30, 8, 125)

    end if

    %Movement for pressing dpwn arrow
    if chars (KEY_DOWN_ARROW) then


        for t : 1 .. 10


            updown := updown - 1

            drawfilloval (30, updown + 10, 10, 8, 100)
            drawfilloval (30, updown, 30, 8, 125)

            delay (2)
            drawfilloval (30, updown + 10, 30, 14, 53)
            drawfilloval (30, updown, 60, 30, 53)

            %Collision detection
            exit when updown - 8 = 0
        end for
    end if

    %Keeps ship from disapearing when u let go of the key
    drawfilloval (30, updown + 10, 10, 8, 100)
    drawfilloval (30, updown, 30, 8, 125)


    %Collision with wall explosion
    if updown + 17 = 399 or updown - 8 = 0 then

        loop

            haha := haha + 1

            delay (20)
            drawfilloval (30, updown, haha, haha, red)
            delay (20)
            drawfilloval (30, updown, haha, haha, yellow)

            if haha = 50 then
                haha := 50
                drawfilloval (30, updown, haha, haha, 53)
            end if

            exit when haha = 50

        end loop
        exit

    end if
end loop