29 lines
862 B
Plaintext
29 lines
862 B
Plaintext
; 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 |