import GUI
var name : string
var LEFT_ARROW, RIGHT_ARROW, DOWN_ARROW, UP_ARROW : string
var ss1, ss2 : int
var x1, y1 : int := 300
var N, E, S, W : int := 0
var response : string
var timerunning : int := 0
var counter : int := 0
var score : int := 0
var level : string
var music : int
var font1, font2, font3, font4 : int
font1 := Font.New ("serif:12")
assert font1 > 0
font2 := Font.New ("sans serif:18:bold")
assert font2 > 0
font3 := Font.New ("mono:9")
assert font3 > 0
font4 := Font.New ("Palatino:18:bold,italic")
assert font4 > 0

LEFT_ARROW := chr (203)
RIGHT_ARROW := chr (205)
UP_ARROW := chr (200)
DOWN_ARROW := chr (208)
% The introduction
Font.Draw ("Welcome to Humza's Personal Snake Game!", 60, 379, font2, red)
    delay (1000)
Font.Draw ("What is your name?", 280, 350, font1, magenta)
locate(5,40)
get name:* %user enters his or hers name
Font.Draw("Thank you for choosing to play Humza's game",50,300,font4,blue)
delay (1000)
cls
colourback(red)
colour(brightred)
put "Please Select the Background music you would like to play ", name
put "1 = Kiss Kiss (Chris Brown ft. T-Pain)"
put "2 = I Wanna Love You (Akon ft. Snoop Dogg)"
put "3 = Good Life (Kanye West ft. T-Pain)"
get music
if music = 1 then
    Music.PlayFileReturn ("G:/kisskiss.mp3")
elsif music = 2 then
    Music.PlayFileReturn ("G:/i wanna love you.mp3")
elsif music = 3 then
    Music.PlayFileReturn ("G:/Kanye West Good Life.mp3")
end if
cls
put name, " ,please enter the level you would like to play at (1-3)"
get level % lets the user enter the level they want to play
if level > "3" then
    level := "3"
elsif level <= "0" then
    level := "1"
end if
put "Please wait a moment......."
colourback (green)
delay (1000)
cls

drawbox (0, 0, maxx, maxy, black)
setscreen ("nocursor") % removes the cursor from the screen
setscreen ("graphics") % sets the screen to "graphics"
ss1 := 100 % gives the variables a value
ss2 := 100
ss1 := 100
ss2 := 100
var xx1 : array 1 .. 50 of int % the position
var yy1 : array 1 .. 50 of int
var a : int := 0
for i : 1 .. 50
    xx1 (i) := 0
    yy1 (i) := 0
end for
procedure game
    cls
    loop
        colourback (green)
        drawbox (10, 10, maxx - 10, maxy - 10, brightgreen) % draws the border
        drawfilloval (x1, y1, 5, 5, red) % draws the apple
        var key : array char of boolean
        drawfillbox (ss1, ss2, ss1 + 10, ss2 + 10, black) % draws the head of snake
        Input.KeyDown (key)
        if key (KEY_LEFT_ARROW) then % moves the snake left
            N := 0
            E := 0
            S := 0
            W := 1
            put "" ..
        elsif key (KEY_RIGHT_ARROW) then % moves the snake right
            N := 0
            E := 1
            S := 0
            W := 0
            put "" ..
        elsif key (KEY_UP_ARROW) then % moves the snake up
            N := 1
            E := 0
            S := 0
            W := 0
            put "" ..
        elsif key (KEY_DOWN_ARROW) then % moves the snake down
            N := 0
            E := 0
            S := 1
            W := 0
            put "" ..
        elsif key ('p') then % pauses the game using "p"
            N := 0
            E := 0
            S := 0
            W := 0
            put "" ..
        end if
        % below is the different levels and their hardness
        if level = "1" then
            delay (7)
        elsif level = "2" then
            delay (5)
        elsif level = "3" then
            delay (3)
        end if

        a := a + 1
        if a = 11 then
            for decreasing i : 50 .. 2
                xx1 (i) := xx1 (i - 1)
                yy1 (i) := yy1 (i - 1)
            end for
            xx1 (1) := ss1
            yy1 (1) := ss2
            locate (1, 1)
            a := 0
        end if
        for i : 1 .. counter
            Draw.FillBox (xx1 (i + 1), yy1 (i + 1), xx1 (i + 1) + 10, yy1 (i + 1) + 10, green)
        end for
        for i : 1 .. counter
            Draw.FillBox (xx1 (i), yy1 (i), xx1 (i) + 10, yy1 (i) + 10, black)
        end for

        drawfillbox (ss1, ss2, ss1 + 10, ss2 + 10, green)
        if N = 1 then
            ss2 := ss2 + 1
        elsif E = 1 then
            ss1 := ss1 + 1
        elsif S = 1 then
            ss2 := ss2 - 1
        elsif W = 1 then
            ss1 := ss1 - 1
        end if
        % below is the code of the collision between the snake and the apple
        if ss1 + 10 > x1 and ss1 - 10 < x1 and y1 > ss2 - 10 and y1 < ss2 + 10 then
            drawfilloval (x1, y1, 5, 5, green) % the apple goes away into the background
            randint (x1, 10, maxx - 10) % places the new snake in random place
            randint (y1, 10, maxy - 10)
            delay (5)
            drawfilloval (x1, y1, 5, 5, brightred)
            counter := counter + 1
            % the below code adds up the score
            if level = "1" then
                score := score + 40
            elsif level = "2" then
                score := score + 80
            elsif level = "3" then
                score := score + 120
            end if
        end if
        % the below code counts the time
        timerunning := Time.Elapsed
        if timerunning < 10000 then
            score := score + 2000
        elsif timerunning > 50000 then
            score := score + 4000
        elsif timerunning > 100000 then
            score := score + 6000
        elsif timerunning > 200000 then
            score := score + 8000
        elsif timerunning > 400000 then
            score := score + 10000
        end if
        % below code ends the game when the snake hits the borders
        if ss1 >= maxx - 10 or ss1 < 10 or ss2 >= maxy - 10 or ss2 < 10 then
            var font14 := Font.New ("Impact :20")
            var text14 := "Game Over"
            var width14 := Font.Width (text14, font14)
            Font.Draw (text14, 230, 230, font14, red)
            exit
        end if
    end loop
    delay (1000)
    % below code is the conclusion of the program and tallies up the persons score
    cls

    colour(blue)
    put ""
    put "You ate ", counter, " apples"
    put ""
    put "Your time taken in seconds was ", timerunning div 1000
    put "You scored, ", score, ", ", name, "!"
    put "Thank you for playing Humza's game! He greatly appreciates it"
end game
% below code gets the buttons before the game starts
var button1 : int := GUI.CreateButton (230, 1, 200, "Play Game", game)
procedure instructions
    colourback (green)
    color (white)
    locate (2, 1)
    % below are the instructions of the game when the user clicks instructions
    put "*********************************Instructions*********************************"
    put "1. Use your arrow keys to move the snake."
    put "2. Try to get the apples to make the snake grow."
    put "3. Use P to pause the game."
    put "4. If you have paused the game, then use the arrows keys to resume."
    put "5. Try to get the apples to increase your score."
    put "6. Try not to collide with the wall or the body of the snake."
    % below ends everything
end instructions
var button2 : int := GUI.CreateButton (230, 380, 200, "Instructions", instructions)
loop
    exit when GUI.ProcessEvent
end loop