Start diggin
This commit is contained in:
parent
a43354f7af
commit
ebf63aae67
5 changed files with 42 additions and 2 deletions
Binary file not shown.
Before Width: | Height: | Size: 42 KiB After Width: | Height: | Size: 56 KiB |
|
@ -99,4 +99,42 @@ Procedure HandleEventRunningGame()
|
||||||
Cam\Y + 1
|
Cam\Y + 1
|
||||||
EndIf
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
; Digging!
|
||||||
|
If KeyboardReleased(#PB_Key_Escape)
|
||||||
|
Define TargetX.i, TargetY.i
|
||||||
|
|
||||||
|
; Determine the pixel to destroy
|
||||||
|
If Player\Direction = #PLAYER_DIR_LEFT And Player\X < #MAP_WIDTH
|
||||||
|
TargetX = Player\X + 1
|
||||||
|
TargetY = Player\Y
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If Player\Direction = #PLAYER_DIR_RIGHT And Player\X > 0
|
||||||
|
TargetX = Player\X - 1
|
||||||
|
TargetY = Player\Y
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If Player\Direction = #PLAYER_DIR_UP And Player\Y > 0
|
||||||
|
TargetX = Player\X
|
||||||
|
TargetY = Player\Y -1
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If Player\Direction = #PLAYER_DIR_DOWN And Player\X < #MAP_HEIGHT
|
||||||
|
TargetX = Player\X
|
||||||
|
TargetY = Player\Y + 1
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
; Do something with the block
|
||||||
|
If TileIsType(#TILESET_TYPE_WALL, TargetX, TargetY)
|
||||||
|
TileMap(TargetX, TargetY)\Health - 1
|
||||||
|
|
||||||
|
If TileMap(TargetX, TargetY)\Health = -1
|
||||||
|
TileMap(TargetX, TargetY)\TileNumber = #TILESET_TYPE_FLOOR
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
DrawNoiseWave(TargetX, TargetY)
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
EndProcedure
|
EndProcedure
|
File diff suppressed because one or more lines are too long
|
@ -50,6 +50,8 @@ Structure Player
|
||||||
Direction.i
|
Direction.i
|
||||||
EndStructure
|
EndStructure
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Structure Shadow
|
Structure Shadow
|
||||||
X.i
|
X.i
|
||||||
Y.i
|
Y.i
|
||||||
|
|
Loading…
Reference in a new issue