I add this:
Code: Select all
If KeyboardReleased(#PB_Key_O)
CopySprite(0,2)
; DisplaySprite(2,100,100)
EndIf
Can someone show me some example please?
Best Regards
Code: Select all
If KeyboardReleased(#PB_Key_O)
CopySprite(0,2)
; DisplaySprite(2,100,100)
EndIf
Code: Select all
Procedure RenderFrame()
Static x, y, x2, y2, Paused, previousElapsed
ClearScreen(RGB(0, 0, 0))
If ExamineKeyboard()
If KeyboardReleased(#PB_Key_Up)
Debug "Ok"
res = CopySprite(0,2)
DisplaySprite(2,50,50)
Debug "Ok II"
EndIf
DisplaySprite(0, x, y)
DisplaySprite(1, x*4+100, y*4)
EndIf
FlipBuffers() ; continue the rendering
EndProcedure