; Pongr
; Very simple game to get started with PureBasic and the game development.
; 2011 - Ruben Mueller, Aaron Mueller

Procedure DrawMenuBackground(screen)
  StartDrawing(WindowOutput(screen))
  Box(0, 0, 800, 600, RGB(0, 0, 0))
  StopDrawing()
EndProcedure

; inital stuff
OpenConsole();
Print("Pongr started!");

; Start the main loop which will create the window, wait for events and draw things
; on the screen. To escape from this loop, press ESC or close the window.
screen = OpenWindow(#PB_Any, 0, 0, 800, 600, "Pongr - Build " + Str(#PB_Editor_BuildCount), #PB_Window_ScreenCentered)
If screen > 0
  DrawMenuBackground(screen)
  Repeat
    event = WaitWindowEvent()
  Until event = #PB_Event_CloseWindow
EndIf
; IDE Options = PureBasic 4.51 (MacOS X - x86)
; CursorPosition = 12
; Folding = -
; EnableXP
; EnableCompileCount = 0
; EnableBuildCount = 0