% Variables
var answer : int
var picture : int
var picture2 : int
var x : int := 10
var y : int := 10
var keys : array char of boolean
var shooter : int := 0
var x2, y1 : int
var check : array 1 .. 1 of int
var f : int
var score1 : real
var finished : boolean := false


% Setting the screen
View.Set ("Graphics,nobuttonbar,position:center;center")

% The Enemy System
process enemy
    loop
        randint (x2, 5, 75)
        y1 := 1
        loop
            locate (y1, x2)
            put "X"
            delay (200)
            cls
            y1 := y1 + 1
            exit when y1 = 26
        end loop
    end loop
end enemy

% The Game
process game
    loop
        % Moving
        Input.KeyDown (keys)
        if keys (KEY_LEFT_ARROW) and x > 0 then
            x -= 5
        elsif keys (KEY_RIGHT_ARROW) and x < maxx then
            x += 5
            % Shooting
        elsif keys (KEY_ENTER) then
            shooter := 0
            for gundis : 1 .. 20
                shooter := shooter + 10
                drawline (x, y + shooter, x, y + shooter + 6, red)
                delay (10)
                drawline (x, y + shooter, x, y + shooter + 6, white)
            end for
        end if
        % Drawing the player
        Draw.FillOval (x, y, 10, 10, red)
        delay (10)
        cls
    end loop
end game

%Music during the Main Menu
process Music1
    loop
        Music.PlayFile ("song.mp3")
    end loop
end Music1

% The Main Menu
process MainMenu
    % Choices
    drawfillbox (0, 0, maxx, maxy, blue)
    colorback (red)

    % Picture
    picture := Pic.FileNew ("picture.jpg")
    Pic.Draw (picture, 7, 100, picCopy)
    locate (2, 1)
    put "                                Asteroid Destroyers"
    locate (11, 45)
    put "            Instructions"
    locate (12, 45)
    put "        Entre Key- To Shoot"
    locate (13, 45)
    put " Left Arrow - To move to the Left"
    locate (14, 45)
    put " Right Arrow - To move to the Right"
    locate (23, 1)
    put "                               Press 1 - To Exit"
    locate (24, 1)
    put "                               Press 2 - To Start"
    locate (25, 1)
    put "                                                           Made By: Marko Dabic"

    % User Input
    locate (21, 35)
    put " Choice: " ..
    get answer

    % Game
    if answer = 2 then
        colorback (white)
        cls
        colorback (white)
        fork game
        fork enemy
        Music.PlayFileStop
        % Quit
    elsif answer = 1 then
        colorback (white)
        cls
        locate (12, 28)
        put "   Thank You for Playing"
    end if
end MainMenu
fork MainMenu
fork Music1

loop
    cls
    %Drawing code
    View.Update
    %If statements
    %Changing variables
end loop