Sorry your browser is not supported!

Menu = 0
GameOver = 0
LoadGame = 0

do
If Menu = 0 Then GameMenu()

sync()
loop

Function GameMenu()
Print ( " Touch Screen to Play " )
If GetPointerPressed () = 1
Menu = Menu + 1
LoadGame()
endif

Endfunction

Function LoadGame()
///////////////////////////////////////
Load all your static objects
///////////////////////////////////////
---------------------------------------
//Run your loop
do
If GetSpriteCollision ( 1, 2 ) = 1
GameOver = GameOver + 1
endif

If GameOver > 1
Menu = 0
GameOver()
endif

sync()
loop()
endfunction

Function GameOver()
Print ( Score )
Print ( " Game Over " )

endfunction

// Project: Wills World 
// Created: 2015-02-10

// set window properties
SetWindowTitle( "Wills World" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

//Load Images
Loadimage ( 1, "Ground.jpg" )
LoadImage ( 2, "Player.jpg" )
LoadImage ( 3, "Rock.jpg" )
LoadImage ( 4, "sky.jpg" )


// score
score = 0
menu = 0
gameover = 0
death = 0


do
	If Menu = 0 then GameMenu()
	sync()
	loop

Function GameMenu()
	Print ( "Click THE SCREEN TO START GAME" )
	If GetPointerPressed() = 1
		Menu = Menu + 1
		LoadGame()
		endif
	endfunction
	
	Function LoadGame()
		
		
//make background
CreateSprite ( 4, 4 )
FixSpriteToScreen ( 4, 2 )
SetSpriteSize ( 4, 1024, 768 )
// floor sprites
for f = 1 to 1000
	i = CreateSprite ( 1 )
	SetSpritePosition ( i, f * 100, 600 )
	SetSpritePhysicsOn ( i, 1 )
next f

global dim Object[200] // Create an array with 200 slots

//blocks to jump over
for i = 1 to 200
	Object[i] = CreateSprite ( 1 ) // Create a sprite for each array slot
	SetSpritePosition ( Object[i], i * 500, 500 )
	SetSpritePhysicsOn ( Object[i], 1 )
	
	
next i



//Player
CreateSprite ( 2, 2 )
Setspriteposition ( 2, 120, 525 )
SetSpritePhysicsOn ( 2, 2 )
setspriteshape (2, 2)


			
do
	Print ( "Touch the screen to jump over Objects" )
	Print ( "Score" ) : Print ( Score )

   
	SetViewOffset ( GetSpriteX ( 2 ) - 150, 0 )
			
			 if ( GetPointerPressed ( ) = 1 )
				 Jump = 1
				  endif
    
              If (GetPointerPressed ( ) = 0 )
				  Jump = 0
				  endif
				  
			  If Jump = 1
				  score = score +5
				  // find the input location
				  
        x# = getspritex(2)
        y# = getspritey (2)

       
        SetSpritePosition ( 2, x#, y#-200 )
       endif
       
         If Jump = 0
		  
		   x# = getspritex(2)
        y# = getspritey (2)
        Setspriteposition ( 2, x#+8, y#+3.8 )
        setspriteangle ( 2, 0 )
        
        
        endif
     
		
		for i = 1 TO 200
    If GetSpriteCollision ( Object[i], 2 ) =1
        Death = Death + 1
    endif
next i

If Death > 1
	
	Print ( " Game Over " )
	
	Sleep ( 100 )
	Menu = 0

	endif
	

		
	
 	
    Sync()
loop
		Endfunction

// set window properties
SetWindowTitle("Template")
SetWindowSize(1024, 768, 0)

// set display properties
SetVirtualResolution(1024, 768 )

global CaseSelect
global LoadTitleScreen = 1
global LoadMainMenu
global LoadGame
global GameOver
global Score

do  
	if CaseSelect = 0
		TitleScreen()
	elseif CaseSelect = 1
		MainMenu()
	elseif CaseSelect = 2
		Game()
	endif
	
    Sync()
loop

// Title Screen Functions (I would have this as a seperate file

function TitleScreen()
	
	if LoadTitleScreen = 1
		
		// Load Title Screen Stuff
		
		LoadTitleScreen = 0
	endif
	
	// Do Title Screen Stuff
	
	Print("Title Screen")
	
	if GetPointerPressed()
		DeleteTitleScreen()
		CaseSelect = 1
		LoadMainMenu = 1
	endif
	
endfunction

function DeleteTitleScreen()
	
	// Delete Title Screen Stuff
	
endfunction

// Main Menu Functions (again I would have this as a seperate file)

function MainMenu()
	
	if LoadMainMenu = 1
		
		// Load Main Menu Stuff
		
		LoadMainMenu = 0
	endif
	
	// Do Main Menu Stuff
	
	Print("Main Menu")
	
	if GetPointerPressed()
		DeleteMainMenu()
		CaseSelect = 2
		LoadGame = 1
	endif
	
endfunction

function DeleteMainMenu()
	
	// Delete Main Menu Stuff
	
endfunction

// Game Functions (this would also be a seperate file)

function Game()
	
	if LoadGame = 1
		
		// Load Game Stuff
		// Reset Variables etc
		GameOver = 0
		
		LoadGame = 0
	endif
	
	// Do Game Stuff
	
	if GameOver = 0
		// Play Game
		Print("Game Playing")
		
		if GetPointerPressed()
			GameOver = 1
			Score = Random(1, 1000)
		endif
	else
		// Do Game Over Stuff
		Print("Game Over")
		Print("Score: " + Str(Score))
		
		if GetPointerPressed()
			DeleteGame()
			CaseSelect = 1
			LoadMainMenu = 1
		endif
	endif
	
endfunction

function DeleteGame()
	
	// Delete Game Stuff
	
endfunction

global score as integer = 0

//
//		These are the three bits - you can put them in a loop. Break your code up into bits that perform
//		a specific task - the menu, the game, and the game over.
//

Menu()																
Game()
GameOver()

//
//		The Menu. Obviously very simple here. Note the way "Sync()" works - this loop
//		is fundamental to AGK.
//
//		What you are doing is keeping redrawing the screen contents (e.g. print, move sprites etc.). Sync() copies this
//		to the display, and then you start again.
//
function Menu()
	
	selection as integer = 1
	repeat
		print("This is the menu")
		print("Touch screen to play")
		Sync()																	// "Copy what you've done to the display and start again"
	until GetPointerPressed() > 0
endfunction selection 															// Only one option, but you could return more than one.

//
//		A silly game, click the "Hit me!" text. Ends when Escape pressed. I am using a text object as a sort of sprite
//		here :)
//
function Game()
	xi as float = 1.0															// This is the moving direction.
	CreateText(1,"Hit me !")													// Text 1 is the moving object
	SetTextSize(1,8.0):SetTextColor(1,255,128,0,255)
	width as float:width = GetTextTotalWidth(1)
	SetTextPosition(1,GetVirtualWidth()/2-width/2,GetVirtualHeight()/2)
	repeat																		// Again the "Sync Loop" with more in it.
		Print("Press ESC to end game")
		Print(score)										
		SetTextPosition(1,GetTextX(1)+xi,GetTextY(1))							// Move it. Text and Sprite are drawn automatically.
		if GetTextX(1) < -width or GetTextX(1) > GetVirtualWidth() then xi=-xi	// Reverse at either side.
		if GetPointerPressed() > 0 												// Clicked, then check if hit text
			if GetPointerX() > GetTextX(1) and GetPointerX() < GetTextX(1)+width
				if GetPointerY() > GetTextY(1) and GetPointerY() < GetTextY(1)+GetTextTotalHeight(1)
					score = score + 1											// If so, bump the score.
				endif
			endif
		endif
		Sync()
	until GetRawKeyState(27) > 0 												// Key 27 is ESC
	DeleteText(1)																// Remove Text 1.
endfunction

//
//		Game over is almost identical to menu
//
function GameOver()
	repeat
		print(Score)
		print("Game Over !")
		print("Touch / Click to end")
		Sync()
	until GetPointerPressed() > 0
endfunction

	ft# = getframetime()
	if (ft# < fFrameTime)
		fFrameTime = fFrameTime - 0.00001
	else
		fFrameTime = fFrameTime + 0.00001
	endif