cleanup

src/Draw.pbi

@@ -43,10 +43,4 @@ Procedure DrawRunningGame()
   DrawPlayer()
   
   DrawHUD()  
-EndProcedure
+EndProcedure
-; IDE Options = PureBasic 4.51 (Linux - x64)
-; CursorPosition = 44
-; Folding = -
-; EnableXP
-; EnableCompileCount = 0
-; EnableBuildCount = 0

src/Events.pbi

@@ -53,6 +53,7 @@ Procedure HandleEventRunningGame()
   
   ; Player movement
   If KeyboardReleased(#PB_Key_Left) And Player\X > 0
+    Player\Direction = #PLAYER_DIR_LEFT
     If TileIsType(#TILESET_TYPE_FLOOR, Player\X-1, Player\Y) Or TileIsType(#TILESET_TYPE_GRASS, Player\X-1, Player\Y)
       Player\X-1
     EndIf
@@ -64,6 +65,7 @@ Procedure HandleEventRunningGame()
   EndIf
   
   If KeyboardReleased(#PB_Key_Right) And Player\X < #MAP_WIDTH-1
+    Player\Direction = #PLAYER_DIR_RIGHT
     If TileIsType(#TILESET_TYPE_FLOOR, Player\X+1, Player\Y) Or TileIsType(#TILESET_TYPE_GRASS, Player\X+1, Player\Y)
       Player\X+1
     EndIf
@@ -75,6 +77,7 @@ Procedure HandleEventRunningGame()
   EndIf
   
   If KeyboardReleased(#PB_Key_Up) And Player\Y > 0
+    Player\Direction = #PLAYER_DIR_UP
     If TileIsType(#TILESET_TYPE_FLOOR, Player\X, Player\Y-1) Or TileIsType(#TILESET_TYPE_GRASS, Player\X, Player\Y-1)
       Player\Y-1
     EndIf
@@ -86,6 +89,7 @@ Procedure HandleEventRunningGame()
   EndIf
   
   If KeyboardReleased(#PB_Key_Down) And Player\Y < #MAP_HEIGHT-1
+    Player\Direction = #PLAYER_DIR_DOWN
     If TileIsType(#TILESET_TYPE_FLOOR, Player\X, Player\Y+1) Or TileIsType(#TILESET_TYPE_GRASS, Player\X, Player\Y+1)
       Player\Y+1
     EndIf
@@ -95,11 +99,4 @@ Procedure HandleEventRunningGame()
       Cam\Y + 1
     EndIf
   EndIf
-EndProcedure
+EndProcedure
-; IDE Options = PureBasic 4.51 (Linux - x64)
-; CursorPosition = 98
-; FirstLine = 52
-; Folding = -
-; EnableXP
-; EnableCompileCount = 0
-; EnableBuildCount = 0

src/Globals.pbi

@@ -62,10 +62,4 @@ LoadSound(2, #DATA_PATH + "sound/title_song.wav")
 
 ; Map
 Global Dim TileMap.Tile(#MAP_WIDTH, #MAP_HEIGHT)
-Global Dim ShadowMap.Shadow(#MAP_WIDTH, #MAP_HEIGHT)
+Global Dim ShadowMap.Shadow(#MAP_WIDTH, #MAP_HEIGHT)
-; IDE Options = PureBasic 4.51 (Linux - x64)
-; CursorPosition = 47
-; FirstLine = 11
-; EnableXP
-; EnableCompileCount = 0
-; EnableBuildCount = 0

src/Main.pb

@@ -138,10 +138,4 @@ If OpenWindow(0, 0, 0, Screen\Width, Screen\Height, title, #PB_Window_ScreenCent
   Until CurrentState = "QUIT"
 EndIf
 
-End
+End
-; IDE Options = PureBasic 4.51 (Linux - x64)
-; CursorPosition = 102
-; FirstLine = 72
-; EnableXP
-; EnableCompileCount = 0
-; EnableBuildCount = 0

src/Structs.pbi

@@ -62,4 +62,4 @@ Structure Camera
   Width.i
   Height.i
   Padding.i
-EndStructure
+EndStructure