| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237 |
- Route23Script:
- call Route23Script_511e9
- call EnableAutoTextBoxDrawing
- ld hl, Route23ScriptPointers
- ld a, [wRoute23CurScript]
- jp CallFunctionInTable
- Route23Script_511e9:
- ld hl, wCurrentMapScriptFlags
- bit 6, [hl]
- res 6, [hl]
- ret z
- ResetEvents EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1, EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH2
- ResetEvents EVENT_VICTORY_ROAD_3_BOULDER_ON_SWITCH1, EVENT_VICTORY_ROAD_3_BOULDER_ON_SWITCH2
- ld a, HS_VICTORY_ROAD_3_BOULDER
- ld [wMissableObjectIndex], a
- predef ShowObject
- ld a, HS_VICTORY_ROAD_2_BOULDER
- ld [wMissableObjectIndex], a
- predef_jump HideObject
- Route23ScriptPointers:
- dw Route23Script0
- dw Route23Script1
- dw Route23Script2
- Route23Script0:
- ld hl, YCoordsData_51255
- ld a, [wYCoord]
- ld b, a
- ld e, $0
- EventFlagBit c, EVENT_PASSED_EARTHBADGE_CHECK + 1, EVENT_PASSED_CASCADEBADGE_CHECK
- .asm_51224
- ld a, [hli]
- cp $ff
- ret z
- inc e
- dec c
- cp b
- jr nz, .asm_51224
- cp $23
- jr nz, .asm_51237
- ld a, [wXCoord]
- cp $e
- ret nc
- .asm_51237
- ld a, e
- ld [hSpriteIndexOrTextID], a
- ld a, c
- ld [wWhichBadge], a
- ld b, FLAG_TEST
- EventFlagAddress hl, EVENT_PASSED_CASCADEBADGE_CHECK
- predef FlagActionPredef
- ld a, c
- and a
- ret nz
- call Route23Script_5125d
- call DisplayTextID
- xor a
- ld [hJoyHeld], a
- ret
- YCoordsData_51255:
- db $23,$38,$55,$60,$69,$77,$88,$FF
- Route23Script_5125d:
- ld hl, BadgeTextPointers
- ld a, [wWhichBadge]
- ld c, a
- ld b, 0
- add hl, bc
- add hl, bc
- ld a, [hli]
- ld h, [hl]
- ld l, a
- ld de, wcd6d
- .copyTextLoop
- ld a, [hli]
- ld [de], a
- inc de
- cp "@"
- jr nz, .copyTextLoop
- ret
- BadgeTextPointers:
- dw CascadeBadgeText
- dw ThunderBadgeText
- dw RainbowBadgeText
- dw SoulBadgeText
- dw MarshBadgeText
- dw VolcanoBadgeText
- dw EarthBadgeText
- EarthBadgeText:
- db "EARTHBADGE@"
- VolcanoBadgeText:
- db "VOLCANOBADGE@"
- MarshBadgeText:
- db "MARSHBADGE@"
- SoulBadgeText:
- db "SOULBADGE@"
- RainbowBadgeText:
- db "RAINBOWBADGE@"
- ThunderBadgeText:
- db "THUNDERBADGE@"
- CascadeBadgeText:
- db "CASCADEBADGE@"
- Route23Script_512d8:
- ld a, $1
- ld [wSimulatedJoypadStatesIndex], a
- ld a, D_DOWN
- ld [wSimulatedJoypadStatesEnd], a
- xor a
- ld [wSpriteStateData1 + 9], a
- ld [wJoyIgnore], a
- jp StartSimulatingJoypadStates
- Route23Script1:
- ld a, [wSimulatedJoypadStatesIndex]
- and a
- ret nz
- Route23Script2:
- ld a, $0
- ld [wRoute23CurScript], a
- ret
- Route23TextPointers:
- dw Route23Text1
- dw Route23Text2
- dw Route23Text3
- dw Route23Text4
- dw Route23Text5
- dw Route23Text6
- dw Route23Text7
- dw Route23Text8
- Route23Text1:
- TX_ASM
- EventFlagBit a, EVENT_PASSED_EARTHBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
- call Route23Script_51346
- jp TextScriptEnd
- Route23Text2:
- TX_ASM
- EventFlagBit a, EVENT_PASSED_VOLCANOBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
- call Route23Script_51346
- jp TextScriptEnd
- Route23Text3:
- TX_ASM
- EventFlagBit a, EVENT_PASSED_MARSHBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
- call Route23Script_51346
- jp TextScriptEnd
- Route23Text4:
- TX_ASM
- EventFlagBit a, EVENT_PASSED_SOULBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
- call Route23Script_51346
- jp TextScriptEnd
- Route23Text5:
- TX_ASM
- EventFlagBit a, EVENT_PASSED_RAINBOWBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
- call Route23Script_51346
- jp TextScriptEnd
- Route23Text6:
- TX_ASM
- EventFlagBit a, EVENT_PASSED_THUNDERBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
- call Route23Script_51346
- jp TextScriptEnd
- Route23Text7:
- TX_ASM
- EventFlagBit a, EVENT_PASSED_CASCADEBADGE_CHECK
- call Route23Script_51346
- jp TextScriptEnd
- Route23Script_51346:
- ld [wWhichBadge], a
- call Route23Script_5125d
- ld a, [wWhichBadge]
- inc a
- ld c, a
- ld b, FLAG_TEST
- ld hl, wObtainedBadges
- predef FlagActionPredef
- ld a, c
- and a
- jr nz, .asm_5136e
- ld hl, VictoryRoadGuardText1
- call PrintText
- call Route23Script_512d8
- ld a, $1
- ld [wRoute23CurScript], a
- ret
- .asm_5136e
- ld hl, VictoryRoadGuardText2
- call PrintText
- ld a, [wWhichBadge]
- ld c, a
- ld b, FLAG_SET
- EventFlagAddress hl, EVENT_PASSED_CASCADEBADGE_CHECK
- predef FlagActionPredef
- ld a, $2
- ld [wRoute23CurScript], a
- ret
- Route23Script_51388:
- ld hl, VictoryRoadGuardText2
- jp PrintText
- VictoryRoadGuardText1:
- TX_FAR _VictoryRoadGuardText1
- TX_ASM
- ld a, SFX_DENIED
- call PlaySoundWaitForCurrent
- call WaitForSoundToFinish
- jp TextScriptEnd
- VictoryRoadGuardText2:
- TX_FAR _VictoryRoadGuardText2
- TX_SFX_ITEM_1
- TX_FAR _VictoryRoadGuardText_513a3
- db "@"
- Route23Text8:
- TX_FAR _Route23Text8
- db "@"
|
