| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207 |
- RocketHideout3Script:
- call EnableAutoTextBoxDrawing
- ld hl, RocketHideout3TrainerHeader0
- ld de, RocketHideout3ScriptPointers
- ld a, [wRocketHideout3CurScript]
- call ExecuteCurMapScriptInTable
- ld [wRocketHideout3CurScript], a
- ret
- RocketHideout3ScriptPointers:
- dw RocketHideout3Script0
- dw DisplayEnemyTrainerTextAndStartBattle
- dw EndTrainerBattle
- dw RocketHideout3Script3
- RocketHideout3Script0:
- ld a, [wYCoord]
- ld b, a
- ld a, [wXCoord]
- ld c, a
- ld hl, RocketHideout3ArrowTilePlayerMovement
- call DecodeArrowMovementRLE
- cp $ff
- jp z, CheckFightingMapTrainers
- ld hl, wd736
- set 7, [hl]
- call StartSimulatingJoypadStates
- ld a, SFX_ARROW_TILES
- call PlaySound
- ld a, $ff
- ld [wJoyIgnore], a
- ld a, $3
- ld [wCurMapScript], a
- ret
- ;format:
- ;db y,x
- ;dw pointer to movement
- RocketHideout3ArrowTilePlayerMovement:
- db $d,$a
- dw RocketHideout3ArrowMovement6
- db $13,$a
- dw RocketHideout3ArrowMovement1
- db $12,$b
- dw RocketHideout3ArrowMovement2
- db $b,$c
- dw RocketHideout3ArrowMovement3
- db $11,$c
- dw RocketHideout3ArrowMovement4
- db $14,$c
- dw RocketHideout3ArrowMovement5
- db $10,$d
- dw RocketHideout3ArrowMovement6
- db $b,$e
- dw RocketHideout3ArrowMovement7
- db $f,$e
- dw RocketHideout3ArrowMovement6
- db $11,$e
- dw RocketHideout3ArrowMovement8
- db $13,$e
- dw RocketHideout3ArrowMovement9
- db $10,$f
- dw RocketHideout3ArrowMovement7
- db $12,$f
- dw RocketHideout3ArrowMovement10
- db $d,$10
- dw RocketHideout3ArrowMovement11
- db $c,$11
- dw RocketHideout3ArrowMovement10
- db $10,$12
- dw RocketHideout3ArrowMovement12
- db $FF
- ;format: direction, count
- ;each list is read starting from the $FF and working backwards
- RocketHideout3ArrowMovement1:
- db D_RIGHT,$04
- db D_UP,$04
- db D_RIGHT,$04
- db $FF
- RocketHideout3ArrowMovement2:
- db D_DOWN,$04
- db D_RIGHT,$04
- db $FF
- RocketHideout3ArrowMovement3:
- db D_LEFT,$02
- db $FF
- RocketHideout3ArrowMovement4:
- db D_RIGHT,$04
- db D_UP,$02
- db D_RIGHT,$02
- db $FF
- RocketHideout3ArrowMovement5:
- db D_RIGHT,$04
- db D_UP,$02
- db D_RIGHT,$02
- db D_UP,$03
- db $FF
- RocketHideout3ArrowMovement6:
- db D_RIGHT,$04
- db $FF
- RocketHideout3ArrowMovement7:
- db D_RIGHT,$02
- db $FF
- RocketHideout3ArrowMovement8:
- db D_RIGHT,$04
- db D_UP,$02
- db $FF
- RocketHideout3ArrowMovement9:
- db D_RIGHT,$04
- db D_UP,$04
- db $FF
- RocketHideout3ArrowMovement10:
- db D_DOWN,$04
- db $FF
- RocketHideout3ArrowMovement11:
- db D_UP,$02
- db $FF
- RocketHideout3ArrowMovement12:
- db D_UP,$01
- db $FF
- RocketHideout3Script3:
- ld a, [wSimulatedJoypadStatesIndex]
- and a
- jp nz, LoadSpinnerArrowTiles
- xor a
- ld [wJoyIgnore], a
- ld hl, wd736
- res 7, [hl]
- ld a, $0
- ld [wCurMapScript], a
- ret
- RocketHideout3TextPointers:
- dw RocketHideout3Text1
- dw RocketHideout3Text2
- dw PickUpItemText
- dw PickUpItemText
- RocketHideout3TrainerHeader0:
- dbEventFlagBit EVENT_BEAT_ROCKET_HIDEOUT_3_TRAINER_0
- db ($2 << 4) ; trainer's view range
- dwEventFlagAddress EVENT_BEAT_ROCKET_HIDEOUT_3_TRAINER_0
- dw RocketHideout3BattleText2 ; TextBeforeBattle
- dw RocketHideout3AfterBattleTxt2 ; TextAfterBattle
- dw RocketHideout3EndBattleText2 ; TextEndBattle
- dw RocketHideout3EndBattleText2 ; TextEndBattle
- RocketHideout3TrainerHeader1:
- dbEventFlagBit EVENT_BEAT_ROCKET_HIDEOUT_3_TRAINER_1
- db ($4 << 4) ; trainer's view range
- dwEventFlagAddress EVENT_BEAT_ROCKET_HIDEOUT_3_TRAINER_1
- dw RocketHideout3BattleTxt ; TextBeforeBattle
- dw RocketHideout3AfterBattleText3 ; TextAfterBattle
- dw RocketHideout3EndBattleText3 ; TextEndBattle
- dw RocketHideout3EndBattleText3 ; TextEndBattle
- db $ff
- RocketHideout3Text1:
- TX_ASM
- ld hl, RocketHideout3TrainerHeader0
- call TalkToTrainer
- jp TextScriptEnd
- RocketHideout3BattleText2:
- TX_FAR _RocketHideout3BattleText2
- db "@"
- RocketHideout3EndBattleText2:
- TX_FAR _RocketHideout3EndBattleText2
- db "@"
- RocketHideout3AfterBattleTxt2:
- TX_FAR _RocketHideout3AfterBattleTxt2
- db "@"
- RocketHideout3Text2:
- TX_ASM
- ld hl, RocketHideout3TrainerHeader1
- call TalkToTrainer
- jp TextScriptEnd
- RocketHideout3BattleTxt:
- TX_FAR _RocketHideout3BattleTxt
- db "@"
- RocketHideout3EndBattleText3:
- TX_FAR _RocketHideout3EndBattleText3
- db "@"
- RocketHideout3AfterBattleText3:
- TX_FAR _RocketHide3AfterBattleText3
- db "@"
|
