pop hl
@no_door_right:
+ ; check if player is on top of a door
+ ; if so remove it and mark as an exit instead
+ ld de, player_unit
+ call unit_get_pos
+ call map_get_tile
+
+ ld a, b
+ cp a, DOOR_TILE_LEFT
+ jr z, @door_tile REL
+ cp a, DOOR_TILE_RIGHT
+ jr z, @door_tile REL
+ cp a, DOOR_TILE_TOP
+ jr z, @door_tile REL
+ cp a, DOOR_TILE_BOTTOM
+ jr z, @door_tile REL
+
+ ret
+
+@door_tile:
+ xor a, a
+ ld [hl+], a ; clear tile
+ ld a, CF_EXIT
+ ld [hl], a
ret
; places actors from a valid actor table