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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
.equ LOCALID_DOME_FOSSIL, 1
.equ LOCALID_HELIX_FOSSIL, 2
.equ LOCALID_MIGUEL, 3
MtMoon_B2F_MapScripts:: @ 8160699
map_script MAP_SCRIPT_ON_TRANSITION, MtMoon_B2F_OnTransition
.byte 0
MtMoon_B2F_OnTransition:: @ 816069F
call_if_unset FLAG_GOT_FOSSIL_FROM_MT_MOON, MtMoon_B2F_EventScript_ShowFossils
end
MtMoon_B2F_EventScript_ShowFossils:: @ 81606A9
clearflag FLAG_HIDE_DOME_FOSSIL
clearflag FLAG_HIDE_HELIX_FOSSIL
return
MtMoon_B2F_EventScript_MiguelTrigger:: @ 81606B0
lockall
applymovement LOCALID_MIGUEL, Movement_WalkInPlaceFastestRight
waitmovement 0
call MtMoon_B2F_EventScript_BattleMiguel
releaseall
end
MtMoon_B2F_EventScript_Miguel:: @ 81606C2
lock
faceplayer
goto_if_set FLAG_GOT_FOSSIL_FROM_MT_MOON, MtMoon_B2F_EventScript_MiguelFossilPicked
goto_if_defeated TRAINER_SUPER_NERD_MIGUEL, MtMoon_B2F_EventScript_MiguelGoPickFossil
call MtMoon_B2F_EventScript_BattleMiguel
release
end
MtMoon_B2F_EventScript_BattleMiguel:: @ 81606DD
textcolor 0
message MtMoon_B2F_Text_MiguelIntro
waitmessage
playbgm MUS_ENCOUNTER_GYM_LEADER, 0
waitbuttonpress
setvar VAR_LAST_TALKED, LOCALID_MIGUEL
trainerbattle_no_intro TRAINER_SUPER_NERD_MIGUEL, MtMoon_B2F_Text_MiguelDefeat
setvar VAR_MAP_SCENE_MT_MOON_B2F, 1
msgbox MtMoon_B2F_Text_WellEachTakeAFossil
return
MtMoon_B2F_EventScript_MiguelFossilPicked:: @ 8160707
msgbox MtMoon_B2F_Text_LabOnCinnabarRegeneratesFossils
release
end
MtMoon_B2F_EventScript_MiguelGoPickFossil:: @ 8160711
msgbox MtMoon_B2F_Text_WellEachTakeAFossil
release
end
MtMoon_B2F_EventScript_DomeFossil:: @ 816071B
lock
faceplayer
msgbox MtMoon_B2F_Text_YouWantDomeFossil, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq MtMoon_B2F_EventScript_DontTakeFossil
removeobject LOCALID_DOME_FOSSIL
giveitem_msg MtMoon_B2F_Text_ObtainedDomeFossil, ITEM_DOME_FOSSIL, 1, MUS_OBTAIN_KEY_ITEM
closemessage
special QuestLog_CutRecording
delay 10
applymovement LOCALID_MIGUEL, MtMoon_B2F_Movement_MiguelToHelixFossil
waitmovement 0
moveobjectoffscreen LOCALID_MIGUEL
textcolor 0
playfanfare MUS_OBTAIN_KEY_ITEM
message MtMoon_B2F_Text_ThenThisFossilIsMine
waitmessage
waitfanfare
removeobject LOCALID_HELIX_FOSSIL
setflag FLAG_GOT_DOME_FOSSIL
setflag FLAG_GOT_FOSSIL_FROM_MT_MOON
release
end
MtMoon_B2F_Movement_MiguelToHelixFossil:: @ 816077A
walk_right
walk_up
walk_up
walk_up
step_end
MtMoon_B2F_EventScript_HelixFossil:: @ 816077F
lock
faceplayer
msgbox MtMoon_B2F_Text_YouWantHelixFossil, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq MtMoon_B2F_EventScript_DontTakeFossil
removeobject LOCALID_HELIX_FOSSIL
giveitem_msg MtMoon_B2F_Text_ObtainedHelixFossil, ITEM_HELIX_FOSSIL, 1, MUS_OBTAIN_KEY_ITEM
closemessage
special QuestLog_CutRecording
delay 10
applymovement LOCALID_MIGUEL, MtMoon_B2F_Movement_MiguelToDomeFossil
waitmovement 0
moveobjectoffscreen LOCALID_MIGUEL
textcolor 0
playfanfare MUS_OBTAIN_KEY_ITEM
message MtMoon_B2F_Text_ThenThisFossilIsMine
waitmessage
waitfanfare
removeobject LOCALID_DOME_FOSSIL
setflag FLAG_GOT_HELIX_FOSSIL
setflag FLAG_GOT_FOSSIL_FROM_MT_MOON
release
end
MtMoon_B2F_EventScript_DontTakeFossil:: @ 81607DE
release
end
MtMoon_B2F_Movement_MiguelToDomeFossil:: @ 81607E0
walk_up
walk_up
walk_up
step_end
MtMoon_B2F_EventScript_Grunt1:: @ 81607E4
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT, MtMoon_B2F_Text_Grunt1Intro, MtMoon_B2F_Text_Grunt1Defeat
msgbox MtMoon_B2F_Text_Grunt1PostBattle, MSGBOX_AUTOCLOSE
end
MtMoon_B2F_EventScript_Grunt2:: @ 81607FB
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_2, MtMoon_B2F_Text_Grunt2Intro, MtMoon_B2F_Text_Grunt2Defeat
msgbox MtMoon_B2F_Text_Grunt2PostBattle, MSGBOX_AUTOCLOSE
end
MtMoon_B2F_EventScript_Grunt3:: @ 8160812
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_3, MtMoon_B2F_Text_Grunt3Intro, MtMoon_B2F_Text_Grunt3Defeat
msgbox MtMoon_B2F_Text_Grunt3PostBattle, MSGBOX_AUTOCLOSE
end
MtMoon_B2F_EventScript_Grunt4:: @ 8160829
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_4, MtMoon_B2F_Text_Grunt4Intro, MtMoon_B2F_Text_Grunt4Defeat
msgbox MtMoon_B2F_Text_Grunt4PostBattle, MSGBOX_AUTOCLOSE
end
|
