Advertisement
Guest User

Untitled

a guest
Sep 23rd, 2017
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Enumeration
  2.   #Flake
  3. EndEnumeration
  4.  
  5. UsePNGImageDecoder()
  6. InitKeyboard()
  7. InitSprite()
  8.  
  9. OpenWindow(0, 0, 0, 800, 600, "Static Sprite Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  10. OpenWindowedScreen(WindowID(0), 0, 0, 800, 600, 0, 0, 0) ;Set the window parameters
  11. Quit = #False
  12. LoadSprite(#Flake, "flake.png", 0)
  13. Repeat
  14.  
  15.   Repeat
  16.     Event = WindowEvent
  17.     If Event = #PB_Event_CloseWindow : Quit = #True : EndIf
  18.   Until Event = 0
  19.   FlipBuffers()
  20.   ClearScreen(0)
  21.   DisplaySprite(#Flake, 360, 250)
  22.   ExamineKeyboard()
  23.   Delay(5)
  24. Until KeyboardPushed(#PB_Key_Escape) Or Quit
  25. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement