cleanup
This commit is contained in:
parent
584fc662c1
commit
a43354f7af
6 changed files with 10 additions and 31 deletions
|
@ -43,10 +43,4 @@ Procedure DrawRunningGame()
|
|||
DrawPlayer()
|
||||
|
||||
DrawHUD()
|
||||
EndProcedure
|
||||
; IDE Options = PureBasic 4.51 (Linux - x64)
|
||||
; CursorPosition = 44
|
||||
; Folding = -
|
||||
; EnableXP
|
||||
; EnableCompileCount = 0
|
||||
; EnableBuildCount = 0
|
||||
EndProcedure
|
|
@ -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
|
||||
; IDE Options = PureBasic 4.51 (Linux - x64)
|
||||
; CursorPosition = 98
|
||||
; FirstLine = 52
|
||||
; Folding = -
|
||||
; EnableXP
|
||||
; EnableCompileCount = 0
|
||||
; EnableBuildCount = 0
|
||||
EndProcedure
|
File diff suppressed because one or more lines are too long
|
@ -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)
|
||||
; IDE Options = PureBasic 4.51 (Linux - x64)
|
||||
; CursorPosition = 47
|
||||
; FirstLine = 11
|
||||
; EnableXP
|
||||
; EnableCompileCount = 0
|
||||
; EnableBuildCount = 0
|
||||
Global Dim ShadowMap.Shadow(#MAP_WIDTH, #MAP_HEIGHT)
|
|
@ -138,10 +138,4 @@ If OpenWindow(0, 0, 0, Screen\Width, Screen\Height, title, #PB_Window_ScreenCent
|
|||
Until CurrentState = "QUIT"
|
||||
EndIf
|
||||
|
||||
End
|
||||
; IDE Options = PureBasic 4.51 (Linux - x64)
|
||||
; CursorPosition = 102
|
||||
; FirstLine = 72
|
||||
; EnableXP
|
||||
; EnableCompileCount = 0
|
||||
; EnableBuildCount = 0
|
||||
End
|
|
@ -62,4 +62,4 @@ Structure Camera
|
|||
Width.i
|
||||
Height.i
|
||||
Padding.i
|
||||
EndStructure
|
||||
EndStructure
|
Loading…
Reference in a new issue