%Variables
var pic : int := 0
var picnum : int := 0
var win := Window.Open ("graphics:1260;720,offscreenonly,title: Sonic Generations")
var background : int := Pic.FileNew ("greenhillcrop2.jpg")
var sonic : int := Pic.FileNew ("Sonic1.bmp")
var sonicflip : int := Pic.Mirror (sonic)
var sega : int := Pic.FileNew ("Sega.jpg")
var input : array char of boolean
var face : int := 1
var offsetx, x, y : int := 0
x := 0
y := 76
var x1 : int := 50
var x2 : int := x1 + 10
var y1 : int := 250
var y2 : int := 70
var xv : real := 0
var yv : real := 0
var g : real := 1
var ground : boolean := true

%Music Processes

%This process plays the Sega song
process SegaMusic
    Music.PlayFile ("Sega.wav")
end SegaMusic

%This process plays Game song
process Gamemusic
    Music.PlayFile ("Song1.mp3")
end Gamemusic

%This process plays Game song
process MenuMusic
    Music.PlayFile ("Introsong.mp3")
end MenuMusic

%This process plays Game song
process EndgameMusic
    Music.PlayFile ("EndMusic.mp3")
end EndgameMusic

%This process plays Game song
process BeatlevelMusic
    Music.PlayFile ("LevelBeat.mp3")
end BeatlevelMusic

%This process plays Game song
process GameoverMusic
    Music.PlayFile ("GameOver.mp3")
end GameoverMusic

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Animating the Intro
/*for i : 1 .. 28
 pic := Pic.FileNew ("Sega (" + intstr (i) + ").bmp")
 Pic.Draw (pic, picnum, 0, picCopy)
 View.Update
 Pic.Free (pic)
 delay (35)
 end for

 %Playing Sega music
 fork SegaMusic

 %Animating the Intro
 for i : 29 .. 215
 pic := Pic.FileNew ("Sega (" + intstr (i) + ").bmp")
 Pic.Draw (pic, picnum, 0, picCopy)
 View.Update
 Pic.Free (pic)
 delay (35)
 end for

 %Playing Menu music
 fork MenuMusic

 %Animating the Intro
 for i : 216 .. 422
 pic := Pic.FileNew ("Sega (" + intstr (i) + ").bmp")
 Pic.Draw (pic, picnum, 0, picCopy)
 View.Update
 Pic.Free (pic)
 delay (35)
 end for

 %Playing Game music
 fork Gamemusic

 %Animating the Intro
 for i : 423 .. 504
 pic := Pic.FileNew ("Sega (" + intstr (i) + ").bmp")
 Pic.Draw (pic, picnum, 0, picCopy)
 View.Update
 Pic.Free (pic)
 delay (35)
 end for
 */
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%Main Game
loop
    %Initializing
    Input.KeyDown (input)
    if input (KEY_UP_ARROW) and y2 > 69 and ground = true then
        yv += 8
    end if
    % Move left if you press the left arrow
    if input (KEY_LEFT_ARROW) and x1 > 0 then
        xv -= 1
        face := 0
    end if
    % Move right if you press the right arrow
    if input (KEY_RIGHT_ARROW) and x2 < maxx then
        xv += 1
        face := 1
        % If player gets close to the edge, move screen instead of player
        if x1 > 800 then
            x1 := 800
            offsetx -= 5
        end if
    end if
    if y1 > 70 then
        yv -= g
    elsif y1 < 70 then
        yv := 0
        y1 := 70
    end if

    if xv > 0 then
        xv -= 0.9
    elsif xv < 0 then
        xv += 0.9
    end if

    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    if x1 < 0 then
        x1 := 0
        xv := 0
    elsif x2 > maxx then
        x1 := maxx - 10
        xv := 0
    end if


    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    if y2 > maxy then
        y1 := maxy - 10
        yv := 0
    end if

    if y1 = 70 then
        ground := true
    else
        ground := false
    end if

    if offsetx < -65 and offsetx > -66 and x1 > maxx div 2 and x1 < maxx div 2 + 40 then
        y1 := 70 + 5
        yv := yv + 1
    elsif offsetx < -65 and x1 > maxx div 2 + 40 and x1 < maxx div 2 + 80 then
        y1 := 70 + 5
    end if

    if offsetx < -200 and offsetx > -201 and x1 > maxx div 2 and x1 < maxx div 2 + 40 then
       
    elsif offsetx < -200 and x1 > maxx div 2 + 40 and x1 < maxx div 2 + 80 then
    end if



    x1 += round (xv)
    y1 += round (yv)

    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    delay (10)
    Pic.Draw (background, offsetx, 0, 0)
    if face = 0 then
        Pic.Draw (sonic, x1, y1, picMerge)
    elsif face = 1 then
        Pic.Draw (sonicflip, x1, y1, picMerge)
    end if
    View.Update

    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

end loop