%Emmanuel Cunningham

%Snake Game

%Varibles
setscreen ("graphics:1200;600")
var row, col, snaker, skanec : int := 25
var snakeleng : int := 1
var chars : array char of boolean
var snakefr : int := Rand.Int (1, 37)
var snakefc : int := Rand.Int (1, 150)
var food : string := "*"
var score : int := 0


procedure CheckFood
    if row = snakefr and col = snakefc then
        score := score + 10
        snakefr := Rand.Int (1, 37)
        snakefc := Rand.Int (1, 150)
        locate (snakefr, snakefc)
        put "*"
    end if
end CheckFood

procedure Food
    loop
        if row = snakefr and col = snakefc then
            locate (row - 1, col)
            put "*" ..
        end if
    end loop
end Food

procedure Move
    loop % Main game loop
        locate (row, col)
        put "@" ..
        delay (100)
        locate (row, col)
        put " " ..
        if hasch then
            Input.KeyDown (chars)
        end if
        if chars (KEY_UP_ARROW) then
            row := row - 1
        elsif chars (KEY_DOWN_ARROW) then
            row := row + 1
        elsif chars (KEY_RIGHT_ARROW) then
            col := col + 1
        elsif chars (KEY_LEFT_ARROW) then
            col := col - 1
        else

        end if
        CheckFood
        locate (1, 1)
        put "Your Score Is ", score
        exit when chars ('q')
    end loop

end Move


%Mainline
locate (row, col) % set position and set coords
put "@" ..

locate (snakefr, snakefc)
put "*"
Input.KeyDown (chars)

Move