123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131 |
- Mansion4Script:
- call Mansion4Script_523cf
- call EnableAutoTextBoxDrawing
- ld hl, Mansion4TrainerHeader0
- ld de, Mansion4ScriptPointers
- ld a, [wMansion4CurScript]
- call ExecuteCurMapScriptInTable
- ld [wMansion4CurScript], a
- ret
- Mansion4Script_523cf:
- ld hl, wCurrentMapScriptFlags
- bit 5, [hl]
- res 5, [hl]
- ret z
- CheckEvent EVENT_MANSION_SWITCH_ON
- jr nz, .asm_523ff
- ld a, $e
- ld bc, $80d
- call Mansion2Script_5202f
- ld a, $e
- ld bc, $b06
- call Mansion2Script_5202f
- ld a, $5f
- ld bc, $304
- call Mansion2Script_5202f
- ld a, $54
- ld bc, $808
- call Mansion2Script_5202f
- ret
- .asm_523ff
- ld a, $2d
- ld bc, $80d
- call Mansion2Script_5202f
- ld a, $5f
- ld bc, $b06
- call Mansion2Script_5202f
- ld a, $e
- ld bc, $304
- call Mansion2Script_5202f
- ld a, $e
- ld bc, $808
- call Mansion2Script_5202f
- ret
- Mansion4Script_Switches:
- ld a, [wSpriteStateData1 + 9]
- cp SPRITE_FACING_UP
- ret nz
- xor a
- ld [hJoyHeld], a
- ld a, $9
- ld [hSpriteIndexOrTextID], a
- jp DisplayTextID
- Mansion4ScriptPointers:
- dw CheckFightingMapTrainers
- dw DisplayEnemyTrainerTextAndStartBattle
- dw EndTrainerBattle
- Mansion4TextPointers:
- dw Mansion4Text1
- dw Mansion4Text2
- dw PickUpItemText
- dw PickUpItemText
- dw PickUpItemText
- dw PickUpItemText
- dw Mansion4Text7
- dw PickUpItemText
- dw Mansion3Text6
- Mansion4TrainerHeader0:
- dbEventFlagBit EVENT_BEAT_MANSION_4_TRAINER_0
- db ($0 << 4)
- dwEventFlagAddress EVENT_BEAT_MANSION_4_TRAINER_0
- dw Mansion4BattleText1
- dw Mansion4AfterBattleText1
- dw Mansion4EndBattleText1
- dw Mansion4EndBattleText1
- Mansion4TrainerHeader1:
- dbEventFlagBit EVENT_BEAT_MANSION_4_TRAINER_1
- db ($3 << 4)
- dwEventFlagAddress EVENT_BEAT_MANSION_4_TRAINER_1
- dw Mansion4BattleText2
- dw Mansion4AfterBattleText2
- dw Mansion4EndBattleText2
- dw Mansion4EndBattleText2
- db $ff
- Mansion4Text1:
- TX_ASM
- ld hl, Mansion4TrainerHeader0
- call TalkToTrainer
- jp TextScriptEnd
- Mansion4Text2:
- TX_ASM
- ld hl, Mansion4TrainerHeader1
- call TalkToTrainer
- jp TextScriptEnd
- Mansion4BattleText1:
- TX_FAR _Mansion4BattleText1
- db "@"
- Mansion4EndBattleText1:
- TX_FAR _Mansion4EndBattleText1
- db "@"
- Mansion4AfterBattleText1:
- TX_FAR _Mansion4AfterBattleText1
- db "@"
- Mansion4BattleText2:
- TX_FAR _Mansion4BattleText2
- db "@"
- Mansion4EndBattleText2:
- TX_FAR _Mansion4EndBattleText2
- db "@"
- Mansion4AfterBattleText2:
- TX_FAR _Mansion4AfterBattleText2
- db "@"
- Mansion4Text7:
- TX_FAR _Mansion4Text7
- db "@"
|