stuff

src/Draw.pbi

@@ -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

src/Functions.pbi

@@ -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

src/Main.pb

@@ -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
+; CursorPosition = 49
-; FirstLine = 9
 ; EnableXP
 ; EnableCompileCount = 0
 ; EnableBuildCount = 0