Disable space upon landing (#21)

This commit is contained in:
xCrystal 2023-10-20 20:07:56 +02:00
parent f9f0467d76
commit fc7b65347f
2 changed files with 18 additions and 0 deletions

View File

@ -68,3 +68,8 @@ DEF NUM_VARIABLE_SPACES_SETS EQU const_value
; number of tiles of the tileset occupied by space tiles (see LoadTilesetGFX)
DEF TILESET_FIXED_SPACES_NUM_TILES EQU $20
DEF TILESET_VARIABLE_SPACES_NUM_TILES EQU $20
; metatile layout constants
DEF FIRST_SPACE_METATILE EQU $80
DEF FIRST_GREY_SPACE_METATILE EQU $e0
DEF UNIQUE_SPACE_METATILES_MASK EQU %11111

View File

@ -79,6 +79,19 @@ LandedInRegularSpaceScript:
end
LandedInRegularSpace:
; disable the space effect (turn the space into a grey space)
ld a, [wCurSpaceXCoord]
add 4
ld d, a
ld a, [wCurSpaceYCoord]
add 4
ld e, a
call GetBlockLocation
ld a, [hl]
and UNIQUE_SPACE_METATILES_MASK
add FIRST_GREY_SPACE_METATILE
ld [hl], a
; trigger end of turn
ld a, BOARDEVENT_END_TURN
ldh [hCurBoardEvent], a
ret