Hi, I'm starting a new app using AGK(trial). I'm going to buy AppGameKit in awhile, so please don't hate. The app only goes to a menu for now, only the quit option works when you click on it.
I'm not sure if its my computer or the app itself but i get really low FPS. It starts out fine in the beginning, but then the FPS drops low a 7-8.
Ill include the app in my post so anyone can download and try it.
And here is the app code: There are some unused stuff in there so just never-mind it.
+ Code Snippetrem AGK Application
//Author: Shawn W. Benson
//Game based on the mysterious substance known as starjelly
//A spaceshooter game, simple yet fun.
//Date of creation: Septemper 01, 2011
//Ported to AGK on: November 06, 2011
//Begin main scoure code
//*******************************Initailize the game*******************************
startgame() `call function to start the game and load everything nessesary
//*******************************Start the main game loop*******************************
repeat
select gamestate$
case "menu":
menu() //call function to load the menu screen
endcase
case "play":
endcase
endselect
sync()
until gamestate$ = "quit" //only quit when the play chooses to do so
`endscreen() //call function to display a end message whne the player chooses to quit the game
end
//*******************************************Functions section****************************************
//This function sets up the game to ready it for play
function startgame()
setsyncrate (60, 0)
//*******************Figure out which device this game is being played on*****************************
if getdevicename() = "windows"
setvirtualresolution (640, 480)
global mousex# as float
global mousey# as float
global pointer$ as string = "mouse"
endif
if getdevicename() = "Bada"
setvirtualresolution (800, 480)
global pointerX# as float
global pointery# as float
global pointer$ as string = "touch"
endif
//**************************************Declare all global variables***********************************
global gamestate$ as string = "menu" //set the main menu to appear after the splash screen
endfunction
//this fuction creates a menu screen for player to pick what they want to do next
function menu()
starjelly = createtext("STARJELLY")
settextposition ( starjelly, 320, 50)
settextsize (starjelly, 75)
settextalignment ( starjelly , 1)
settextcolor (starjelly, 96, 0, 191, 255)
if mousex# > 224 and mousey# > 155 and mousex# < 416 and mousey# < 177
play = createtext("PLAY GAME")
settextposition ( play, 320, 150)
settextsize (play, 35)
settextalignment ( play , 1)
settextcolor (play, 255, 255, 255, 255)
else
play = createtext("PLAY GAME")
settextposition ( play, 320, 150)
settextsize (play, 35)
settextalignment ( play , 1)
settextcolor (play, 96, 0, 191, 255)
endif
if mousex# > 243 and mousey# > 251 and mousex# < 395 and mousey# < 278
options = createtext("OPTIONS")
settextposition ( options, 320, 250)
settextsize (options, 35)
settextalignment ( options , 1)
settextcolor (options, 255, 255, 255, 255)
else
options = createtext("OPTIONS")
settextposition ( options, 320, 250)
settextsize (options, 35)
settextalignment ( options , 1)
settextcolor (options, 96, 0, 191, 255)
endif
if mousex# > 276 and mousey# > 352 and mousex# < 360 and mousey# < 378
help = createtext("HELP")
settextposition ( help, 320, 350 )
settextsize (help, 35)
settextalignment ( help , 1)
settextcolor (help, 255, 255, 255, 255)
else
help = createtext("HELP")
settextposition ( help, 320, 350 )
settextsize (help, 35)
settextalignment ( help , 1)
settextcolor (help, 96, 0, 191, 255)
endif
if mousex# > 9 and mousey# > 449 and mousex# < 59 and mousey# < 470
quit = createtext("QUIT")
settextposition ( quit, 35, 450 )
settextalignment ( quit , 1)
settextsize (quit, 20)
settextcolor (quit, 255, 255, 255, 255)
if getrawmouseleftreleased() = 1 then gamestate$ = "quit"
else
quit = createtext("QUIT")
settextposition ( quit, 35, 450 )
settextalignment ( quit , 1)
settextsize (quit, 20)
settextcolor (quit, 96, 0, 191, 255)
endif
if mousex# > 537 and mousey# > 451 and mousex# < 622 and mousey# < 464
credits = createtext("CREDITS")
settextposition ( credits, 580, 450 )
settextsize (credits, 20)
settextalignment ( credits , 1)
settextcolor (credits, 255, 255, 255, 255)
else
credits = createtext("CREDITS")
settextposition ( credits, 580, 450 )
settextsize (credits, 20)
settextalignment ( credits , 1)
settextcolor (credits, 96, 0, 191, 255)
endif
if mousex# > 256 and mousey# > 450 and mousex# < 380 and mousey# < 466
highscore = createtext("HIGHSCORES")
settextposition ( highscore, 320, 450 )
settextsize (highscore, 20)
settextalignment ( highscore , 1)
settextcolor (highscore, 255, 255, 255, 255)
else
highscore = createtext("HIGHSCORES")
settextposition ( highscore, 320, 450 )
settextsize (highscore, 20)
settextalignment ( highscore , 1)
settextcolor (highscore, 96, 0, 191, 255)
endif
mousex# = getpointerx()
mousey# = getpointery()
print (screenfps())
print (mousex#)
print (mousey#)
endfunction