Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Enumeration
- #Flake
- EndEnumeration
- UsePNGImageDecoder()
- InitKeyboard()
- InitSprite()
- OpenWindow(0, 0, 0, 800, 600, "Static Sprite Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
- OpenWindowedScreen(WindowID(0), 0, 0, 800, 600, 0, 0, 0) ;Set the window parameters
- Quit = #False
- LoadSprite(#Flake, "flake.png", 0)
- Repeat
- Repeat
- Event = WindowEvent
- If Event = #PB_Event_CloseWindow : Quit = #True : EndIf
- Until Event = 0
- FlipBuffers()
- ClearScreen(0)
- DisplaySprite(#Flake, 360, 250)
- ExamineKeyboard()
- Delay(5)
- Until KeyboardPushed(#PB_Key_Escape) Or Quit
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement