%%%%%%%%%%%%%%%%
%% Turing Game %%
%%%%%%%%%%%%%%%%

% These are some variables that need to be declared to make the game work correctly
var chars : array char of boolean
var x1 : int := 1 % This is the position of the object (x1)
var x2 : int := x1 + 10 % This is the position of the object (x2)   
var y1 : int := 1 % This is the position of the object (y1)   
var y2 : int := y1 + 10 % This variable represents the position of the object (y2)   
var xv : real := 0 % This variable is the speed for the objects
var yv : real := 0 % This variable is the y value speed
var g : real := 1 % This is the gravity
var ground : boolean := true % This variable checks to see if the object is on the ground
var count : int := 0
var speed : int
var level : int % This step is the variable for picking your difficulty
var foodx : int := 325
var foody : int := 205
var delayinterval : int
put "What difficulty would you like to play on"
get level
if level = 1 then % This will put you in level 1 if you choose
    delayinterval := 20 % This step is the the speed of the star(character) will be moving at
elsif level = 2 then % This will put you in level 2 if you choose it
    delayinterval := 10 % This step will set the speed of the star(character) a little faster
elsif level = 3 then % This will put you in level 3 if you choose
    delayinterval := 5 % This will set the star to move very fast. This is the hardest difficulty.
end if


setscreen ("graphics:650;650,offscreenonly")


var font19 := Font.New ("Algerian:20") % This step sets the font for the text
var text19 := "By - Bob Allenl" % This step enters text into the menu
var width19 := Font.Width (text19, font19) % This step sets the width
var font := Font.New ("Wide Latin:30")  % This step sets the font for the text
var text := "Food Frenzy!!!" % This step enters the text into the menu
var width := Font.Width (text, font)
var font2 := Font.New ("Algerian:30") % This step sets the font for the text
var text2 := "CLICK TO CONTINUE!" % This step enters text into the menu
var width2 := Font.Width (text2, font2)
var x, y, button : int
drawfillbox (0, 0, maxx, maxy div 2, 42)
% This is needed to display all the text for the menu
Font.Draw (text, round (maxx / 2 - width / 2), maxy div 2, font, red)
Font.Draw (text2, round (maxx / 4 - width2 / 4), maxy div 4, font2, red)
Font.Draw (text19, round (maxx / 6 - width19 / 6), maxy div 6, font19, red)
% This step lets the mouse be active in the menu
loop
    Mouse.Where (x, y, button)
    if button = 1 then
        delay (200)
        cls
        exit when button = 1
    end if
end loop


loop
    Input.KeyDown (chars) % This gives a value to the game of the keys being pressed

    if chars (KEY_UP_ARROW) and y2 < maxy and ground = true then % These two lines are saying if the Up Arrow is pressed and the player is not touching the ground then make the star jump
        yv += 12
    end if
    if chars (KEY_LEFT_ARROW) and x1 > 0 then % These two lines are saying if the left arrow is pressed then substract 1 from the xSpeed causing the object to move left
        xv -= 1
    elsif chars (KEY_RIGHT_ARROW) and x2 < maxx then % These two lines are saying if the right arrow is pressed then, add to the xSpeed casuing the player to move right
        xv += 1
    elsif chars (KEY_ESC) then % This step will end the program
        exit
    end if

    if y1 > 0 then % These two lines are syaing if the player is not touching the ground then subtract the speed until the player moves down
        yv -= g
    % The next three lines make sure that the box does not go below the screen
        elsif y1 < 0 then
        yv := 0
        y1 := 0
    end if
% The next three lines slow down the box when moving
    if xv > 0 then
        xv -= 0.5
        elsif xv < 0 then
        % The next five lines makes sure the box does not go off the left side of the screen and if it does moves it to the edge and stop it
        xv += 0.5
    end if

    if x1 < 0 then
        x1 := 0
        xv := 0
 % The next 5 lines do the same thing as the left side but for the right       
    elsif x2 > maxx then
        x1 := maxx - 10
        xv := 0 % Stop the player
    end if
 % This again does the same thing but for the top of the screen 
     if y2 > maxy then
        y1 := maxy - 10
        yv := 0 % Stop the player
    end if
% The next few lines allow the player to jump
    if y1 = 0 then
        ground := true % Allows the jump
    else
        ground := false % Player cannot junp
    end if
% The next steps creat movement and the size of the player
    x1 += round (xv)
    y1 += round (yv)
    x2 := x1 + 20
    y2 := y1 + 20


    drawfilloval (foodx, foody, 5, 5, brightred)

    if whatdotcolor (foodx, foody) not= brightred then
        count := count + 1
        randint (foodx, 1, maxx)
        randint (foody, 1, maxy)

    end if
% The next two lines make the player
    Draw.FillStar (x1, y1, x2, y2, black)
    Draw.Star (x1 - 1, y1 - 1, x2 + 1, y2 + 1, grey)
    locate (1, 1)

    View.Update % Brings the player to the screen
    delay (delayinterval)
    cls %erases everything on the screen
end loop

var map : array 1 .. 2 of int % used to make the program shorter, easier to make more maps this way
map (1) := Pic.FileNew ("map1.bmp") % The first map of the game
map (2) := Pic.FileNew ("map2. bmp") % The second map of the game
var map1 : int := 1 % starts the map at 1 which draws the first map
var map : int := 0 % this is the coordinates of where your star will be drawn

if whatdotcolour (posx, posy) = brightred then   % if red is touched then
    map1 += 1     % map1 is now equal to 2 which later on draws map 2
    map := 0     % resets the position of the map
end if

proc Drawing
    if map1 = 1 then % if the map is equal to 1 it clears the screen and draws the first map
        cls
        Pic.Draw (map (1), map, 0, picMerge)
    elsif map1 = 2 then % if the map is equal to 2 it clears the screen and draws the second map
        cls
        Pic.Draw (map (2), map, 0, picMerge)

        % and so on
    end Drawing

    %Remember this is just an example you will have to change some stuff around and add some more to make it work for you.