arg
/
ld21-ESCape
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

stuff

This commit is contained in:
Ruben Müller 2011-08-20 17:00:06 +02:00
parent 29cd37f37c
commit b5249a1717
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Draw.pbi
View File

@ -34,7 +34,7 @@ Procedure DrawRunningGame()
Box(0, 0, 200, 200, RGB(0, 255, 0))
EndProcedure
; IDE Options = PureBasic 4.51 (MacOS X - x86)
; CursorPosition = 26
; CursorPosition = 8
; Folding = -
; EnableUnicode
; EnableThread

2
src/Functions.pbi
View File

@ -1 +1 @@
; This file holds all the functions If it gets too big, ; we can split it in categories ; ***************************************************************************** ; * Menu Procedure Menu_GotoCurrent() If *ActiveMenu\Entries()\Selected <> #True FirstElement(*ActiveMenu\Entries()); ForEach *ActiveMenu\Entries() If *ActiveMenu\Entries()\Selected = #True Break EndIf Next EndIf EndProcedure ; ***************************************************************************** ; IDE Options = PureBasic 4.51 (MacOS X - x86) ; CursorPosition = 13 ; Folding = - ; EnableXP
; This file holds all the functions If it gets too big, ; we can split it in categories ; ***************************************************************************** ; * Tileset Procedure InitTileset() Debug "Init tileset" EndProcedure ; ***************************************************************************** ; ***************************************************************************** ; * Menu Procedure Menu_GotoCurrent() If *ActiveMenu\Entries()\Selected <> #True FirstElement(*ActiveMenu\Entries()); ForEach *ActiveMenu\Entries() If *ActiveMenu\Entries()\Selected = #True Break EndIf Next EndIf EndProcedure ; ***************************************************************************** ; IDE Options = PureBasic 4.51 (MacOS X - x86) ; CursorPosition = 7 ; Folding = - ; EnableXP

5
src/Main.pb
View File

@ -47,6 +47,8 @@ If ReadFile(0, "../data/menu.data")
CloseFile(0)
EndIf
InitTileset()
Menus("MAIN_MENU")\Title = "ESCape"
Define Item.GameMenuItem
@ -110,8 +112,7 @@ If OpenWindow(0, 0, 0, Screen\Width, Screen\Height, title, #PB_Window_ScreenCent
Until KeyboardPushed(#PB_Key_Escape)
EndIf
; IDE Options = PureBasic 4.51 (MacOS X - x86)
; CursorPosition = 65
; FirstLine = 9
; CursorPosition = 49
; EnableXP
; EnableCompileCount = 0
; EnableBuildCount = 0