where the error in here ?

Just starting out? Need help? Post your questions and find answers here.
skinkairewalker
Posts: 120
Joined: Tue Jun 14, 2016 7:17 pm

where the error in here ?

Post by skinkairewalker »

hi , i trying render frame , but dont work !

Code: Select all

ExamineDesktops()
Global deskwidth.i = DesktopWidth(0)
Global deskheight.i = DesktopHeight(0)
Global LoadedSprites.i = 0


Procedure RenderGame()
 ; DisplaySprite(1,10,10)
  ClearScreen(RGB(155,0,0))
  FlipBuffers()
  Debug "chegou ate aqui"
EndProcedure  
LoadSprite(0,"Data/back.png")
LoadSprite(1,"Data/blue.png")
LoadSprite(2,"Data/ground.png")
LoadSprite(3,"Data/red.png")
LoadSprite(4,"Data/yello.png")
FlipBuffers()

Procedure start()
OpenWindow(0,0,0,deskwidth,deskheight,"Game",#PB_Window_Background|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),0,0,deskwidth,deskheight,1,0,0)
BindEvent(#PB_Event_RenderFrame,@RenderGame())
Debug "ola"
EndProcedure

Procedure LoadSprites()
  
  LoadedSprites = LoadedSprites + 1
  
  If LoadedSprites = 5

    start()
  EndIf  
EndProcedure
BindEvent(#PB_Event_RenderFrame,@RenderGame())
BindEvent(#PB_Event_Loading,@LoadSprites())