diff --git a/pongr/pong.pb b/pongr/pong.pb index 8cb34cc..657c804 100644 --- a/pongr/pong.pb +++ b/pongr/pong.pb @@ -2,8 +2,12 @@ ; Very simple game to get started with PureBasic and the game development. ; 2011 - Ruben Mueller, Aaron Mueller +XIncludeFile "structs.pb" + fullscreen = 0 title.s = "Pongr - Build " + Str(#PB_Editor_BuildCount) +screen.ScreenDimension\width = 800 +screen.ScreenDimension\height = 600 Procedure DrawOnScreen() CreateSprite(0, 20, 20) @@ -16,14 +20,14 @@ EndProcedure ; Initialize subsystems If InitSprite() = 0 Or InitKeyboard() = 0 - MessageRequester("Error", "Sorry, cant boot up.", 0) + MessageRequester("Error", "Sorry, can't boot up.", 0) End EndIf ; 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. -If OpenWindow(0, 0, 0, 800, 600, title, #PB_Window_ScreenCentered) - If OpenWindowedScreen(WindowID(0), 0, 0, 800, 600, 0, 0, 0) +If OpenWindow(0, 0, 0, screen\width, screen\height, title, #PB_Window_ScreenCentered) + If OpenWindowedScreen(WindowID(0), 0, 0, screen\width, screen\height, 0, 0, 0) EndIf Repeat @@ -34,9 +38,7 @@ If OpenWindow(0, 0, 0, 800, 600, title, #PB_Window_ScreenCentered) ; Handle input ExamineKeyboard() - ; Does not work properly ... - ; http://www.purebasic.fr/german/viewtopic.php?f=4&t=23730&p=285175 - If KeyboardPushed(#PB_Key_F) + If KeyboardReleased(#PB_Key_F) CloseScreen() If fullscreen = 0 OpenScreen(800, 600, 32, title) @@ -55,9 +57,9 @@ If OpenWindow(0, 0, 0, 800, 600, title, #PB_Window_ScreenCentered) Until KeyboardPushed(#PB_Key_Escape) EndIf ; IDE Options = PureBasic 4.51 (Linux - x64) -; CursorPosition = 37 -; FirstLine = 8 +; CursorPosition = 23 +; FirstLine = 12 ; Folding = - ; EnableXP ; EnableCompileCount = 0 -; EnableBuildCount = 0 +; EnableBuildCount = 0 \ No newline at end of file diff --git a/pongr/structs.pb b/pongr/structs.pb new file mode 100644 index 0000000..b67e6a8 --- /dev/null +++ b/pongr/structs.pb @@ -0,0 +1,15 @@ +; This file holds all structs so we can include it in every +; file we need it. + +Structure ScreenDimension + width.i + height.i +EndStructure + +; IDE Options = PureBasic 4.51 (Linux - x64) +; CursorPosition = 7 +; EnableUnicode +; EnableThread +; EnableXP +; EnableCompileCount = 0 +; EnableBuildCount = 0 \ No newline at end of file