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

@@ -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