1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
VictoryRoad1F_Script:
ld hl, wCurrentMapScriptFlags
bit BIT_CUR_MAP_LOADED_1, [hl]
res BIT_CUR_MAP_LOADED_1, [hl]
call nz, .next
call EnableAutoTextBoxDrawing
ld hl, VictoryRoad1TrainerHeaders
ld de, VictoryRoad1F_ScriptPointers
ld a, [wVictoryRoad1FCurScript]
call ExecuteCurMapScriptInTable
ld [wVictoryRoad1FCurScript], a
ret
.next
CheckEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
ret z
ld a, $1d
ld [wNewTileBlockID], a
lb bc, 6, 4
predef_jump ReplaceTileBlock
VictoryRoad1F_ScriptPointers:
def_script_pointers
dw_const VictoryRoad1FDefaultScript, SCRIPT_VICTORYROAD1F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_VICTORYROAD1F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_VICTORYROAD1F_END_BATTLE
VictoryRoad1FDefaultScript:
CheckEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
jp nz, CheckFightingMapTrainers
ld hl, .SwitchCoords
call CheckBoulderCoords
jp nc, CheckFightingMapTrainers
ldh a, [hSpriteIndex]
cp PIKACHU_SPRITE_INDEX
jp z, CheckFightingMapTrainers
ld hl, wCurrentMapScriptFlags
set BIT_CUR_MAP_LOADED_1, [hl]
SetEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
ret
.SwitchCoords:
dbmapcoord 17, 13
db -1 ; end
VictoryRoad1F_TextPointers:
def_text_pointers
dw_const VictoryRoad1FCooltrainerFText, TEXT_VICTORYROAD1F_COOLTRAINER_F
dw_const VictoryRoad1FCooltrainerMText, TEXT_VICTORYROAD1F_COOLTRAINER_M
dw_const PickUpItemText, TEXT_VICTORYROAD1F_TM_SKY_ATTACK
dw_const PickUpItemText, TEXT_VICTORYROAD1F_RARE_CANDY
dw_const BoulderText, TEXT_VICTORYROAD1F_BOULDER1
dw_const BoulderText, TEXT_VICTORYROAD1F_BOULDER2
dw_const BoulderText, TEXT_VICTORYROAD1F_BOULDER3
VictoryRoad1TrainerHeaders:
def_trainers
VictoryRoad1TrainerHeader0:
trainer EVENT_BEAT_VICTORY_ROAD_1_TRAINER_0, 2, VictoryRoad1FCooltrainerFBattleText, VictoryRoad1FCooltrainerFEndBattleText, VictoryRoad1FCooltrainerFAfterBattleText
VictoryRoad1TrainerHeader1:
trainer EVENT_BEAT_VICTORY_ROAD_1_TRAINER_1, 2, VictoryRoad1FCooltrainerMBattleText, VictoryRoad1FCooltrainerMEndBattleText, VictoryRoad1FCooltrainerMAfterBattleText
db -1 ; end
VictoryRoad1FCooltrainerFText:
text_asm
ld hl, VictoryRoad1TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
VictoryRoad1FCooltrainerMText:
text_asm
ld hl, VictoryRoad1TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
VictoryRoad1FCooltrainerFBattleText:
text_far _VictoryRoad1FCooltrainerFBattleText
text_end
VictoryRoad1FCooltrainerFEndBattleText:
text_far _VictoryRoad1FCooltrainerFEndBattleText
text_end
VictoryRoad1FCooltrainerFAfterBattleText:
text_far _VictoryRoad1FCooltrainerFAfterBattleText
text_end
VictoryRoad1FCooltrainerMBattleText:
text_far _VictoryRoad1FCooltrainerMBattleText
text_end
VictoryRoad1FCooltrainerMEndBattleText:
text_far _VictoryRoad1FCooltrainerMEndBattleText
text_end
VictoryRoad1FCooltrainerMAfterBattleText:
text_far _VictoryRoad1FCooltrainerMAfterBattleText
text_end
|
