summaryrefslogtreecommitdiff
path: root/data/maps/PowerPlant/scripts.inc
blob: aa16e1881e222757a2c8e59202d308a59ece31c4 (plain)
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
PowerPlant_MapScripts:: @ 8163764
	map_script 5, PowerPlant_MapScript1_16376F
	map_script 3, PowerPlant_MapScript2_16378D
	.byte 0

PowerPlant_MapScript1_16376F:: @ 816376F
	checkflag FLAG_SYS_SPECIAL_WILD_BATTLE
	call_if TRUE, EventScript_163779
	end

EventScript_163779:: @ 8163779
	specialvar VAR_RESULT, Special_GetBattleOutcome
	compare_var_to_value VAR_RESULT, B_OUTCOME_CAUGHT
	goto_if ne, EventScript_1A77A9
	removeobject VAR_LAST_TALKED
	return

PowerPlant_MapScript2_16378D:: @ 816378D
	setworldmapflag FLAG_WORLD_MAP_POWER_PLANT
	checkflag FLAG_FOUGHT_ZAPDOS
	call_if FALSE, EventScript_1637AC
	checkflag FLAG_FOUGHT_POWER_PLANT_ELECTRODE_1
	call_if FALSE, EventScript_1637B0
	checkflag FLAG_FOUGHT_POWER_PLANT_ELECTRODE_2
	call_if FALSE, EventScript_1637B4
	end

EventScript_1637AC:: @ 81637AC
	clearflag FLAG_HIDE_ZAPDOS
	return

EventScript_1637B0:: @ 81637B0
	clearflag FLAG_HIDE_POWER_PLANT_ELECTRODE_1
	return

EventScript_1637B4:: @ 81637B4
	clearflag FLAG_HIDE_POWER_PLANT_ELECTRODE_2
	return

PowerPlant_EventScript_1637B8:: @ 81637B8
	special sub_8110AB4
	compare_var_to_value VAR_RESULT, 2
	goto_if eq, EventScript_1A7AE0
	special sub_8112364
	lock
	faceplayer
	setwildbattle SPECIES_ZAPDOS, 50, ITEM_NONE
	waitse
	playmoncry SPECIES_ZAPDOS, 2
	message Text_1A6448
	waitmessage
	waitmoncry
	delay 10
	playbgm MUS_EXEYE, 0
	waitbuttonpress
	setflag FLAG_SYS_SPECIAL_WILD_BATTLE
	special Special_StartLegendaryBattle
	waitstate
	clearflag FLAG_SYS_SPECIAL_WILD_BATTLE
	specialvar VAR_RESULT, Special_GetBattleOutcome
	compare_var_to_value VAR_RESULT, B_OUTCOME_WON
	goto_if eq, EventScript_16381B
	compare_var_to_value VAR_RESULT, B_OUTCOME_RAN
	goto_if eq, EventScript_163824
	compare_var_to_value VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED
	goto_if eq, EventScript_163824
	setflag FLAG_FOUGHT_ZAPDOS
	release
	end

EventScript_16381B:: @ 816381B
	setflag FLAG_FOUGHT_ZAPDOS
	goto EventScript_1A922D
	end

EventScript_163824:: @ 8163824
	setvar VAR_0x8004, SPECIES_ZAPDOS
	goto EventScript_1A9236
	end

PowerPlant_EventScript_16382F:: @ 816382F
	special sub_8110AB4
	compare_var_to_value VAR_RESULT, 2
	goto_if eq, EventScript_1A7AE0
	lock
	faceplayer
	setwildbattle SPECIES_ELECTRODE, 34, ITEM_NONE
	waitse
	playmoncry SPECIES_ELECTRODE, 2
	delay 40
	waitmoncry
	setflag FLAG_SYS_SPECIAL_WILD_BATTLE
	dowildbattle
	clearflag FLAG_SYS_SPECIAL_WILD_BATTLE
	special sub_8112364
	specialvar VAR_RESULT, Special_GetBattleOutcome
	compare_var_to_value VAR_RESULT, B_OUTCOME_WON
	goto_if eq, EventScript_163884
	compare_var_to_value VAR_RESULT, B_OUTCOME_RAN
	goto_if eq, EventScript_163884
	compare_var_to_value VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED
	goto_if eq, EventScript_163884
	setflag FLAG_FOUGHT_POWER_PLANT_ELECTRODE_1
	release
	end

EventScript_163884:: @ 8163884
	setflag FLAG_FOUGHT_POWER_PLANT_ELECTRODE_1
	goto EventScript_1A922D
	end

PowerPlant_EventScript_16388D:: @ 816388D
	special sub_8110AB4
	compare_var_to_value VAR_RESULT, 2
	goto_if eq, EventScript_1A7AE0
	lock
	faceplayer
	setwildbattle SPECIES_ELECTRODE, 34, ITEM_NONE
	waitse
	playmoncry SPECIES_ELECTRODE, 2
	delay 40
	waitmoncry
	setflag FLAG_SYS_SPECIAL_WILD_BATTLE
	dowildbattle
	clearflag FLAG_SYS_SPECIAL_WILD_BATTLE
	special sub_8112364
	specialvar VAR_RESULT, Special_GetBattleOutcome
	compare_var_to_value VAR_RESULT, B_OUTCOME_WON
	goto_if eq, EventScript_1638E2
	compare_var_to_value VAR_RESULT, B_OUTCOME_RAN
	goto_if eq, EventScript_1638E2
	compare_var_to_value VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED
	goto_if eq, EventScript_1638E2
	setflag FLAG_FOUGHT_POWER_PLANT_ELECTRODE_2
	release
	end

EventScript_1638E2:: @ 81638E2
	setflag FLAG_FOUGHT_POWER_PLANT_ELECTRODE_2
	goto EventScript_1A922D
	end