mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
4b853ad676
Each new file builds its own .o, along with separate main.o and home.o, which necessitates many more "exported::" labels.
140 lines
2.6 KiB
NASM
Executable file
140 lines
2.6 KiB
NASM
Executable file
PokemonMansion2F_Script:
|
|
call Mansion2Script_51fee
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, Mansion2TrainerHeader0
|
|
ld de, PokemonMansion2F_ScriptPointers
|
|
ld a, [wPokemonMansion2FCurScript]
|
|
call ExecuteCurMapScriptInTable
|
|
ld [wPokemonMansion2FCurScript], a
|
|
ret
|
|
|
|
Mansion2Script_51fee:
|
|
ld hl, wCurrentMapScriptFlags
|
|
bit 5, [hl]
|
|
res 5, [hl]
|
|
ret z
|
|
CheckEvent EVENT_MANSION_SWITCH_ON
|
|
jr nz, .asm_52016
|
|
ld a, $e
|
|
lb bc, 2, 4
|
|
call Mansion2Script_5202f
|
|
ld a, $54
|
|
lb bc, 4, 9
|
|
call Mansion2Script_5202f
|
|
ld a, $5f
|
|
lb bc, 11, 3
|
|
call Mansion2Script_5202f
|
|
ret
|
|
.asm_52016
|
|
ld a, $5f
|
|
lb bc, 2, 4
|
|
call Mansion2Script_5202f
|
|
ld a, $e
|
|
lb bc, 4, 9
|
|
call Mansion2Script_5202f
|
|
ld a, $e
|
|
lb bc, 11, 3
|
|
call Mansion2Script_5202f
|
|
ret
|
|
|
|
Mansion2Script_5202f:
|
|
ld [wNewTileBlockID], a
|
|
predef_jump ReplaceTileBlock
|
|
|
|
Mansion2Script_Switches::
|
|
ld a, [wSpriteStateData1 + 9]
|
|
cp SPRITE_FACING_UP
|
|
ret nz
|
|
xor a
|
|
ld [hJoyHeld], a
|
|
ld a, $5
|
|
ld [hSpriteIndexOrTextID], a
|
|
jp DisplayTextID
|
|
|
|
PokemonMansion2F_ScriptPointers:
|
|
dw CheckFightingMapTrainers
|
|
dw DisplayEnemyTrainerTextAndStartBattle
|
|
dw EndTrainerBattle
|
|
|
|
PokemonMansion2F_TextPointers:
|
|
dw Mansion2Text1
|
|
dw PickUpItemText
|
|
dw Mansion2Text3
|
|
dw Mansion2Text4
|
|
dw Mansion2Text5
|
|
|
|
Mansion2TrainerHeader0:
|
|
dbEventFlagBit EVENT_BEAT_MANSION_2_TRAINER_0
|
|
db ($0 << 4) ; trainer's view range
|
|
dwEventFlagAddress EVENT_BEAT_MANSION_2_TRAINER_0
|
|
dw Mansion2BattleText1 ; TextBeforeBattle
|
|
dw Mansion2AfterBattleText1 ; TextAfterBattle
|
|
dw Mansion2EndBattleText1 ; TextEndBattle
|
|
dw Mansion2EndBattleText1 ; TextEndBattle
|
|
|
|
db $ff
|
|
|
|
Mansion2Text1:
|
|
TX_ASM
|
|
ld hl, Mansion2TrainerHeader0
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
Mansion2BattleText1:
|
|
TX_FAR _Mansion2BattleText1
|
|
db "@"
|
|
|
|
Mansion2EndBattleText1:
|
|
TX_FAR _Mansion2EndBattleText1
|
|
db "@"
|
|
|
|
Mansion2AfterBattleText1:
|
|
TX_FAR _Mansion2AfterBattleText1
|
|
db "@"
|
|
|
|
Mansion2Text3:
|
|
TX_FAR _Mansion2Text3
|
|
db "@"
|
|
|
|
Mansion2Text4:
|
|
TX_FAR _Mansion2Text4
|
|
db "@"
|
|
|
|
Mansion3Text6:
|
|
Mansion2Text5:
|
|
TX_ASM
|
|
ld hl, Mansion2Text_520c2
|
|
call PrintText
|
|
call YesNoChoice
|
|
ld a, [wCurrentMenuItem]
|
|
and a
|
|
jr nz, .asm_520b9
|
|
ld a, $1
|
|
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
|
|
ld hl, wCurrentMapScriptFlags
|
|
set 5, [hl]
|
|
ld hl, Mansion2Text_520c7
|
|
call PrintText
|
|
ld a, SFX_GO_INSIDE
|
|
call PlaySound
|
|
CheckAndSetEvent EVENT_MANSION_SWITCH_ON
|
|
jr z, .asm_520bf
|
|
ResetEventReuseHL EVENT_MANSION_SWITCH_ON
|
|
jr .asm_520bf
|
|
.asm_520b9
|
|
ld hl, Mansion2Text_520cc
|
|
call PrintText
|
|
.asm_520bf
|
|
jp TextScriptEnd
|
|
|
|
Mansion2Text_520c2:
|
|
TX_FAR _Mansion2Text_520c2
|
|
db "@"
|
|
|
|
Mansion2Text_520c7:
|
|
TX_FAR _Mansion2Text_520c7
|
|
db "@"
|
|
|
|
Mansion2Text_520cc:
|
|
TX_FAR _Mansion2Text_520cc
|
|
db "@"
|