pokegold-spaceworld/engine/debug/field/move_to_entrance.inc
DrippingYellow e384ea25ec
Some checks failed
CI / build (push) Has been cancelled
Finish labelling and split off bank03, bank09, and bank0b (#119)
* Fully labelled bank09.asm, started bank03.asm

* Finished labelling bank03.asm and bank0b.asm

* Tying up loose ends, splitting most of the completely labelled bank dumps

* Moved pokedex letter graphics out of charmap
2025-07-30 17:35:58 -04:00

47 lines
870 B
PHP

FieldDebug_MoveToRoute1Entrance:
; Check if the player is currently on Route 1
ld a, [wMapGroup]
cp GROUP_ROUTE_1_P1
jr nz, .cannot_use
ld a, [wMapId]
cp MAP_ROUTE_1_P1
jr nz, .cannot_use
ldh a, [hROMBank]
ld hl, .DoMove
call QueueScript
ld a, FIELDDEBUG_RETURN_EXIT
ret
.cannot_use
ld hl, .CantUseText
call FieldDebug_ShowTextboxAndExit
ld a, FIELDDEBUG_RETURN_REOPEN
ret
.CantUseText:
text "ここでは できません"
para "ロード1でじっこうできます"
done
.DoMove:
call RefreshScreen
ld hl, .MoveText
call FieldDebug_ShowTextboxAndExit
ld d, $d
ld e, $d
ld b, PLAYER_OBJECT
ld c, STEP_WALK
callfar ComputeObjectPathToCoords_Invisible
ld a, PLAYER_OBJECT
ld hl, wMovementBuffer
call LoadMovementDataPointer
call ScreenCleanup
ret
.MoveText:
text "とくていちてん まで"
next "うごかします"
done