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())