mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 15:08:23 +00:00
175 lines
4.1 KiB
NASM
Executable file
175 lines
4.1 KiB
NASM
Executable file
PowerPlantScript:
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, Voltorb0TrainerHeader
|
|
ld de, .ScriptPointers
|
|
ld a, [wPowerPlantCurScript]
|
|
call ExecuteCurMapScriptInTable
|
|
ld [wPowerPlantCurScript], a
|
|
ret
|
|
|
|
.ScriptPointers
|
|
dw CheckFightingMapTrainers
|
|
dw DisplayEnemyTrainerTextAndStartBattle
|
|
dw EndTrainerBattle
|
|
|
|
PowerPlantTextPointers:
|
|
dw Voltorb0Text
|
|
dw Voltorb1Text
|
|
dw Voltorb2Text
|
|
dw Voltorb3Text
|
|
dw Voltorb4Text
|
|
dw Voltorb5Text
|
|
dw Voltorb6Text
|
|
dw Voltorb7Text
|
|
dw ZapdosText
|
|
dw PickUpItemText
|
|
dw PickUpItemText
|
|
dw PickUpItemText
|
|
dw PickUpItemText
|
|
dw PickUpItemText
|
|
|
|
Voltorb0TrainerHeader:
|
|
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_0
|
|
db 0 ; view range
|
|
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_0
|
|
dw VoltorbBattleText ; TextBeforeBattle
|
|
dw VoltorbBattleText ; TextAfterBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
|
|
Voltorb1TrainerHeader:
|
|
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_1
|
|
db 0 ; view range
|
|
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_1
|
|
dw VoltorbBattleText ; TextBeforeBattle
|
|
dw VoltorbBattleText ; TextAfterBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
|
|
Voltorb2TrainerHeader:
|
|
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_2
|
|
db 0 ; view range
|
|
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_2
|
|
dw VoltorbBattleText ; TextBeforeBattle
|
|
dw VoltorbBattleText ; TextAfterBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
|
|
Voltorb3TrainerHeader:
|
|
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_3
|
|
db 0 ; view range
|
|
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_3
|
|
dw VoltorbBattleText ; TextBeforeBattle
|
|
dw VoltorbBattleText ; TextAfterBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
|
|
Voltorb4TrainerHeader:
|
|
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_4
|
|
db 0 ; view range
|
|
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_4
|
|
dw VoltorbBattleText ; TextBeforeBattle
|
|
dw VoltorbBattleText ; TextAfterBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
|
|
Voltorb5TrainerHeader:
|
|
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_5
|
|
db 0 ; view range
|
|
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_5
|
|
dw VoltorbBattleText ; TextBeforeBattle
|
|
dw VoltorbBattleText ; TextAfterBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
|
|
Voltorb6TrainerHeader:
|
|
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_6
|
|
db 0 ; view range
|
|
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_6
|
|
dw VoltorbBattleText ; TextBeforeBattle
|
|
dw VoltorbBattleText ; TextAfterBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
|
|
Voltorb7TrainerHeader:
|
|
dbEventFlagBit EVENT_BEAT_POWER_PLANT_VOLTORB_7, 1
|
|
db 0 ; view range
|
|
dwEventFlagAddress EVENT_BEAT_POWER_PLANT_VOLTORB_7, 1
|
|
dw VoltorbBattleText ; TextBeforeBattle
|
|
dw VoltorbBattleText ; TextAfterBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
dw VoltorbBattleText ; TextEndBattle
|
|
|
|
ZapdosTrainerHeader:
|
|
dbEventFlagBit EVENT_BEAT_ZAPDOS, 1
|
|
db 0 ; view range
|
|
dwEventFlagAddress EVENT_BEAT_ZAPDOS, 1
|
|
dw ZapdosBattleText ; TextBeforeBattle
|
|
dw ZapdosBattleText ; TextAfterBattle
|
|
dw ZapdosBattleText ; TextEndBattle
|
|
dw ZapdosBattleText ; TextEndBattle
|
|
|
|
db $ff
|
|
|
|
InitVoltorbBattle:
|
|
call TalkToTrainer
|
|
ld a, [wCurMapScript]
|
|
ld [wPowerPlantCurScript], a
|
|
jp TextScriptEnd
|
|
|
|
Voltorb0Text:
|
|
TX_ASM
|
|
ld hl, Voltorb0TrainerHeader
|
|
jr InitVoltorbBattle
|
|
|
|
Voltorb1Text:
|
|
TX_ASM
|
|
ld hl, Voltorb1TrainerHeader
|
|
jr InitVoltorbBattle
|
|
|
|
Voltorb2Text:
|
|
TX_ASM
|
|
ld hl, Voltorb2TrainerHeader
|
|
jr InitVoltorbBattle
|
|
|
|
Voltorb3Text:
|
|
TX_ASM
|
|
ld hl, Voltorb3TrainerHeader
|
|
jr InitVoltorbBattle
|
|
|
|
Voltorb4Text:
|
|
TX_ASM
|
|
ld hl, Voltorb4TrainerHeader
|
|
jr InitVoltorbBattle
|
|
|
|
Voltorb5Text:
|
|
TX_ASM
|
|
ld hl, Voltorb5TrainerHeader
|
|
jr InitVoltorbBattle
|
|
|
|
Voltorb6Text:
|
|
TX_ASM
|
|
ld hl, Voltorb6TrainerHeader
|
|
jr InitVoltorbBattle
|
|
|
|
Voltorb7Text:
|
|
TX_ASM
|
|
ld hl, Voltorb7TrainerHeader
|
|
jr InitVoltorbBattle
|
|
|
|
ZapdosText:
|
|
TX_ASM
|
|
ld hl, ZapdosTrainerHeader
|
|
jr InitVoltorbBattle
|
|
|
|
VoltorbBattleText:
|
|
TX_FAR _VoltorbBattleText
|
|
db "@"
|
|
|
|
ZapdosBattleText:
|
|
TX_FAR _ZapdosBattleText
|
|
TX_ASM
|
|
ld a, ZAPDOS
|
|
call PlayCry
|
|
call WaitForSoundToFinish
|
|
jp TextScriptEnd
|