diff --git a/src/Draw.pbi b/src/Draw.pbi index 00b40ac..f09a15e 100644 --- a/src/Draw.pbi +++ b/src/Draw.pbi @@ -40,4 +40,5 @@ Procedure DrawRunningGame() StopDrawing() DisplaySprite(GFXTileset, 20, 20) + DrawMap() EndProcedure diff --git a/src/Functions.pbi b/src/Functions.pbi index 21ff40e..a3bce3a 100644 --- a/src/Functions.pbi +++ b/src/Functions.pbi @@ -12,6 +12,17 @@ Procedure InitTileset() ClipSprite(GFXTileset, 0, 0, 16, 16) EndProcedure +Procedure DrawTile(number.i, x.i, y.i) + Debug number.i + Debug x.i + Debug y.i +EndProcedure + +Procedure DrawMap() + +EndProcedure + + ; ***************************************************************************** ; * Menu @@ -27,3 +38,5 @@ Procedure Menu_GotoCurrent() Next EndIf EndProcedure + + diff --git a/src/Globals.pbi b/src/Globals.pbi index a949008..b9088fd 100644 --- a/src/Globals.pbi +++ b/src/Globals.pbi @@ -7,13 +7,20 @@ Global Title.s = "ESCape - Build " + Str(#PB_Editor_BuildCount) Global Screen.ScreenDimension\width = 800 Screen.ScreenDimension\height = 600 +; Player +Global Player.MapPoint\X = 10 +Player.MapPoint\Y = 10 + +; Them map +Global Dim GameField(50, 50) + NewMap GameStates.GameState() Global NewMap Menus.GameMenu() Global CurrentState.s = "MAIN_MENU" Global *ActiveMenu.GameMenu ; Fonts -Global Font_H1 = LoadFont(1, "Courier", 40, #PB_Font_Bold) +Global Font_H1 = LoadFont(1, "Arial", 40, #PB_Font_Bold) Global Font_H2 = LoadFont(2, "Verdana", 18) ; Graphics @@ -22,4 +29,9 @@ Global GFXTileset.i ; Sounds LoadSound(0, #DATA_PATH + "sound/menu_change.wav") -LoadSound(1, #DATA_PATH + "sound/menu_select.wav") \ No newline at end of file +LoadSound(1, #DATA_PATH + "sound/menu_select.wav") + +; Images +UseJPEGImageDecoder() +Debug LoadImage(#Tile01, #DATA_PATH+"gfx/tileset01.jpg") + diff --git a/src/Main.pb b/src/Main.pb index 60b9b58..b246fd2 100644 --- a/src/Main.pb +++ b/src/Main.pb @@ -13,8 +13,8 @@ EndIf XIncludeFile "Structs.pbi" XIncludeFile "Globals.pbi" -XIncludeFile "Draw.pbi" XIncludeFile "Functions.pbi" +XIncludeFile "Draw.pbi" XIncludeFile "Events.pbi" diff --git a/src/Structs.pbi b/src/Structs.pbi index 0968576..4ef460f 100644 --- a/src/Structs.pbi +++ b/src/Structs.pbi @@ -30,4 +30,9 @@ EndStructure Structure GameMenu Title.s List Entries.GameMenuItem() -EndStructure \ No newline at end of file +EndStructure + +Structure MapPoint + X.i + Y.i +EndStructure