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
143
144
145
146
147
148
149
150
151
152
153
154
|
SilphCo_Elevator_MapScripts:: @ 8161F6E
.byte 0
SilphCo_Elevator_EventScript_FloorSelect:: @ 8161F6F
lockall
setvar VAR_0x8004, 1
call_if_unset FLAG_TEMP_2, EventScript_GetElevatorFloor
copyvar VAR_0x8005, VAR_ELEVATOR_FLOOR
special DrawElevatorCurrentFloorWindow
message Text_WantWhichFloor
waitmessage
setvar VAR_0x8004, LISTMENU_SILPHCO_FLOORS
specialvar VAR_RESULT, InitElevatorFloorSelectMenuPos
special ListMenu
waitstate
switch VAR_RESULT
case 0, SilphCo_Elevator_EventScript_To11F
case 1, SilphCo_Elevator_EventScript_To10F
case 2, SilphCo_Elevator_EventScript_To9F
case 3, SilphCo_Elevator_EventScript_To8F
case 4, SilphCo_Elevator_EventScript_To7F
case 5, SilphCo_Elevator_EventScript_To6F
case 6, SilphCo_Elevator_EventScript_To5F
case 7, SilphCo_Elevator_EventScript_To4F
case 8, SilphCo_Elevator_EventScript_To3F
case 9, SilphCo_Elevator_EventScript_To2F
case 10, SilphCo_Elevator_EventScript_To1F
case 11, SilphCo_Elevator_EventScript_ExitFloorSelect
case 127, SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To1F:: @ 816202F
setvar VAR_0x8006, 4
setdynamicwarp MAP_SILPH_CO_1F, 255, 22, 3
compare VAR_ELEVATOR_FLOOR, 4
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 4
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To2F:: @ 8162057
setvar VAR_0x8006, 5
setdynamicwarp MAP_SILPH_CO_2F, 255, 22, 3
compare VAR_ELEVATOR_FLOOR, 5
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 5
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To3F:: @ 816207F
setvar VAR_0x8006, 6
setdynamicwarp MAP_SILPH_CO_3F, 255, 22, 3
compare VAR_ELEVATOR_FLOOR, 6
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 6
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To4F:: @ 81620A7
setvar VAR_0x8006, 7
setdynamicwarp MAP_SILPH_CO_4F, 255, 22, 3
compare VAR_ELEVATOR_FLOOR, 7
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 7
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To5F:: @ 81620CF
setvar VAR_0x8006, 8
setdynamicwarp MAP_SILPH_CO_5F, 255, 22, 3
compare VAR_ELEVATOR_FLOOR, 8
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 8
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To6F:: @ 81620F7
setvar VAR_0x8006, 9
setdynamicwarp MAP_SILPH_CO_6F, 255, 20, 3
compare VAR_ELEVATOR_FLOOR, 9
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 9
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To7F:: @ 816211F
setvar VAR_0x8006, 10
setdynamicwarp MAP_SILPH_CO_7F, 255, 23, 3
compare VAR_ELEVATOR_FLOOR, 10
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 10
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To8F:: @ 8162147
setvar VAR_0x8006, 11
setdynamicwarp MAP_SILPH_CO_8F, 255, 22, 3
compare VAR_ELEVATOR_FLOOR, 11
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 11
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To9F:: @ 816216F
setvar VAR_0x8006, 12
setdynamicwarp MAP_SILPH_CO_9F, 255, 24, 3
compare VAR_ELEVATOR_FLOOR, 12
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 12
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To10F:: @ 8162197
setvar VAR_0x8006, 13
setdynamicwarp MAP_SILPH_CO_10F, 255, 13, 3
compare VAR_ELEVATOR_FLOOR, 13
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 13
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_To11F:: @ 81621BF
setvar VAR_0x8006, 14
setdynamicwarp MAP_SILPH_CO_11F, 255, 13, 3
compare VAR_ELEVATOR_FLOOR, 14
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
call SilphCo_Elevator_EventScript_MoveElevator
setvar VAR_ELEVATOR_FLOOR, 14
goto SilphCo_Elevator_EventScript_ExitFloorSelect
end
SilphCo_Elevator_EventScript_ExitFloorSelect:: @ 81621E7
special CloseElevatorCurrentFloorWindow
releaseall
end
SilphCo_Elevator_EventScript_MoveElevator:: @ 81621EC
special CloseElevatorCurrentFloorWindow
closemessage
waitse
special AnimateElevator
waitstate
setflag FLAG_TEMP_2
return
|
