var x1, x2, y1, y2, radius_1, radius_2, zombiey, zombiex : int

setscreen ("graphics:800;500, offscreenonly")



% SpaceShip Movement Command
procedure movement

    fork ingamemusic

    loop

        Input.KeyDown (chars)

        %Main Movement Seqeunce
        if chars (KEY_UP_ARROW) then
            y1 := y1 + 5
        end if
        if chars (KEY_DOWN_ARROW) then
            y1 := y1 - 5
        end if

        Pic.Draw (gamegalaxy, 3, -50, picMerge)

        %spawns zombies to attack spaceship
        randint (zombiey, -15, 419)
        Pic.Draw (zombie, zombiex, zombiey, picMerge)
        zombiex := zombiex - 1


        Pic.Draw (ship, x1, y1, picMerge)
        delay (2)

        if Math.Distance (x1, y1, zombiex, zombiey) < (radius_1 + radius_2) then
            put "Spaceship Crashed"
            Music.PlayFileStop
            exit
        end if

        View.UpdateArea (0, 0, maxx, maxy)
        cls

        %Boundrie to Up
        if y1 > 419 then
            y1 := y1 - 10
        end if

        %Boundrie to Down
        if y1 < -15 then
            y1 := y1 + 10
        end if

    end loop
end movement

movement