1 | CD edition, script 50 - forest::init()
|
---|
2 |
|
---|
3 |
|
---|
4 | (method (init &tmp temp0 temp1)
|
---|
5 | (= loc15 (IntArray with: 0 6 4 2))
|
---|
6 | (= loc16 (IntArray with: 0 0 0 0))
|
---|
7 | (= loc18 (IntArray with: 0 60 63 80))
|
---|
8 | (= loc17 (IntArray with:
|
---|
9 | 551 178 46 30 554 99 155 45 555 174
|
---|
10 | 81 23 558 217 56 14 560 88 52 80
|
---|
11 | 561 262 39 29 563 273 125 20 564 205
|
---|
12 | 34 44 565 261 8 92 566 95 155 45
|
---|
13 | 567 143 21 53 569 101 32 75 571 166
|
---|
14 | 51 23 574 22 18 170 578 267 32 80
|
---|
15 | 579 126 40 71 580 298 61 44 583 192
|
---|
16 | 71 46 585 168 33 78 586 210 28 50
|
---|
17 | 588 274 80 40 590 89 52 82 592 28
|
---|
18 | 138 42
|
---|
19 | ))
|
---|
20 | (= loc14 (loc18 at: (/ (- (g2_myCurrentRoom picture?) 400) 10)))
|
---|
21 | (loc16 at: 0 (g2_myCurrentRoom north?))
|
---|
22 | (loc16 at: 1 (g2_myCurrentRoom south?))
|
---|
23 | (loc16 at: 2 (g2_myCurrentRoom east?))
|
---|
24 | (loc16 at: 3 (g2_myCurrentRoom west?))
|
---|
25 | (if (proc64999_5 myCurrentRoomNum 575 593 588 551)
|
---|
26 | (= global475 -1)
|
---|
27 | else
|
---|
28 | (= global475 (localproc_024d))
|
---|
29 | )
|
---|
30 | (g0_hero init: setScaler: Scaler 100 40 147 61)
|
---|
31 | (if (!= g155_myCombatResult 1)
|
---|
32 | (g0_hero normalize:)
|
---|
33 | )
|
---|
34 | # script 64994 - Rgn
|
---|
35 | (super init: &rest)
|
---|
36 | (if (!= myPrevRoomNum 810)
|
---|
37 | (cond
|
---|
38 | ((proc0_4 35)
|
---|
39 | (if (or (== myCurrentRoomNum 568) (== myPrevRoomNum 480))
|
---|
40 | (localproc_01ee)
|
---|
41 | )
|
---|
42 | )
|
---|
43 | ((== g365_myFoeScriptNum 850) # Wraith.
|
---|
44 | # Nothing here.
|
---|
45 | )
|
---|
46 | (g365_myFoeScriptNum
|
---|
47 | (if (!= g365_myFoeScriptNum 870) # Necrotaur.
|
---|
48 | (if (> (++ g470_myFleeCount) (Random 3 6))
|
---|
49 | (= g470_myFleeCount (= g365_myFoeScriptNum (= g366_myAllure 0)))
|
---|
50 | (= g462_myFoeHealth2 (= g463_myFoeHealth3 (= g464_myFoeHealth4 0)))
|
---|
51 | (localproc_01ee)
|
---|
52 | )
|
---|
53 | else
|
---|
54 | (if (> g462_myFoeHealth2 0)
|
---|
55 | ((= loc11 (it new:)) init: keepChasing:)
|
---|
56 | )
|
---|
57 | (if (> g463_myFoeHealth3 0)
|
---|
58 | ((= loc12 (it new:)) init: keepChasing:)
|
---|
59 | )
|
---|
60 | (if (> g464_myFoeHealth4 0)
|
---|
61 | ((= loc13 (it new:)) init: keepChasing:)
|
---|
62 | )
|
---|
63 | (if (> g156_myFoeHealth1 0)
|
---|
64 | (it init: keepChasing:)
|
---|
65 | )
|
---|
66 | )
|
---|
67 | )
|
---|
68 | (else
|
---|
69 | (++ g366_myAllure)
|
---|
70 | (= g470_myFleeCount 0)
|
---|
71 | (if
|
---|
72 | (and
|
---|
73 | (> g366_myAllure (loc15 at: g439_mySkillSlider))
|
---|
74 | (<
|
---|
75 | (Random 0 100)
|
---|
76 | (*
|
---|
77 | (if g121_myIsNight 10 else 5)
|
---|
78 | (- g366_myAllure (loc15 at: g439_mySkillSlider))
|
---|
79 | )
|
---|
80 | )
|
---|
81 | )
|
---|
82 | (if
|
---|
83 | (and
|
---|
84 | (== g100_myGait 2) # Sneaking.
|
---|
85 | (> (Random 0 [global247 8]) 200) # Stealth skill.
|
---|
86 | )
|
---|
87 | (= loc9 1)
|
---|
88 | else
|
---|
89 | (proc0_2 380)
|
---|
90 | (= loc3 1)
|
---|
91 | (= global344 [global247 17]) # Health.
|
---|
92 | (= temp0 (Random 0 100))
|
---|
93 | (if g121_myIsNight
|
---|
94 | (cond
|
---|
95 | ((< temp0 30)
|
---|
96 | # Badder.
|
---|
97 | (= g365_myFoeScriptNum 825)
|
---|
98 | (= g156_myFoeHealth1 50)
|
---|
99 | )
|
---|
100 | ((< temp0 60)
|
---|
101 | # Revenant.
|
---|
102 | (= g365_myFoeScriptNum 830)
|
---|
103 | (= g156_myFoeHealth1 250)
|
---|
104 | )
|
---|
105 | ((< temp0 80)
|
---|
106 | # Chernovy.
|
---|
107 | (= g365_myFoeScriptNum 840)
|
---|
108 | (= g156_myFoeHealth1 300)
|
---|
109 | )
|
---|
110 | (else
|
---|
111 | # Necrotaur.
|
---|
112 | (= g365_myFoeScriptNum 870)
|
---|
113 | (= g156_myFoeHealth1 350)
|
---|
114 | )
|
---|
115 | )
|
---|
116 | else
|
---|
117 | (if (> g122_myNthDay 10)
|
---|
118 | (cond
|
---|
119 | ((< temp0 25)
|
---|
120 | # Vorpal Bunny.
|
---|
121 | (= g365_myFoeScriptNum 820)
|
---|
122 | (= g156_myFoeHealth1 100)
|
---|
123 | )
|
---|
124 | ((< temp0 60)
|
---|
125 | # Wyvern.
|
---|
126 | (= g365_myFoeScriptNum 835)
|
---|
127 | (= g156_myFoeHealth1 300)
|
---|
128 | )
|
---|
129 | (else
|
---|
130 | # Necrotaur.
|
---|
131 | (= g365_myFoeScriptNum 870)
|
---|
132 | (= g156_myFoeHealth1 350)
|
---|
133 | )
|
---|
134 | )
|
---|
135 | else
|
---|
136 | (cond
|
---|
137 | ((< temp0 60)
|
---|
138 | # Vorpal Bunny.
|
---|
139 | (= g365_myFoeScriptNum 820)
|
---|
140 | (= g156_myFoeHealth1 100)
|
---|
141 | )
|
---|
142 | ((< temp0 90)
|
---|
143 | # Wyvern.
|
---|
144 | (= g365_myFoeScriptNum 835)
|
---|
145 | (= g156_myFoeHealth1 300)
|
---|
146 | )
|
---|
147 | (else
|
---|
148 | # Necrotaur.
|
---|
149 | (= g365_myFoeScriptNum 870)
|
---|
150 | (= g156_myFoeHealth1 350)
|
---|
151 | )
|
---|
152 | )
|
---|
153 | )
|
---|
154 | )
|
---|
155 | (if (== g365_myFoeScriptNum 825)
|
---|
156 | # Badder.
|
---|
157 | ((= loc11 (it new:)) init: startChasing)
|
---|
158 | ((= loc12 (it new:)) init: startChasing)
|
---|
159 | ((= loc13 (it new:)) init: startChasing)
|
---|
160 | (= g462_myFoeHealth2 50)
|
---|
161 | (= g463_myFoeHealth3 50)
|
---|
162 | (= g464_myFoeHealth4 50)
|
---|
163 | (= g156_myFoeHealth1 50)
|
---|
164 | )
|
---|
165 | (it init: startChasing:)
|
---|
166 | )
|
---|
167 | else
|
---|
168 | (localproc_01ee)
|
---|
169 | )
|
---|
170 | )
|
---|
171 | )
|
---|
172 | )
|
---|
173 |
|
---|
174 | (switch myPrevRoomNum
|
---|
175 | ((g2_myCurrentRoom west?)
|
---|
176 | (g0_hero posn: 241 136 setHeading: 90)
|
---|
177 | (= loc1
|
---|
178 | (+
|
---|
179 | 7
|
---|
180 | (if g365_myFoeScriptNum 1 else 21)
|
---|
181 | )
|
---|
182 | )
|
---|
183 | (= loc2 136)
|
---|
184 | (g2_myCurrentRoom setScript: enterRoomScr)
|
---|
185 | )
|
---|
186 | ((g2_myCurrentRoom east?)
|
---|
187 | (g0_hero posn: 335 136 setHeading: 270)
|
---|
188 | (= loc1
|
---|
189 | (-
|
---|
190 | 313
|
---|
191 | (if g365_myFoeScriptNum 1 else 21)
|
---|
192 | )
|
---|
193 | )
|
---|
194 | (= loc2 136)
|
---|
195 | (g2_myCurrentRoom setScript: enterRoomScr)
|
---|
196 | )
|
---|
197 | ((g2_myCurrentRoom north?)
|
---|
198 | (g0_hero
|
---|
199 | posn: 160 (- (g2_myCurrentRoom horizon?) 1)
|
---|
200 | setHeading: 180
|
---|
201 | )
|
---|
202 | (= loc1 160)
|
---|
203 | (= loc2
|
---|
204 | (+
|
---|
205 | (g2_myCurrentRoom horizon?)
|
---|
206 | (if g365_myFoeScriptNum 1 else 21)
|
---|
207 | )
|
---|
208 | )
|
---|
209 | (enterRoomScr start: 0)
|
---|
210 | (g2_myCurrentRoom setScript: enterRoomScr)
|
---|
211 | )
|
---|
212 | ((g2_myCurrentRoom south?)
|
---|
213 | (g0_hero posn: 160 240 setHeading: 0)
|
---|
214 | (= loc1 160)
|
---|
215 | (= loc2
|
---|
216 | (-
|
---|
217 | 182
|
---|
218 | (if g365_myFoeScriptNum 1 else 21)
|
---|
219 | )
|
---|
220 | )
|
---|
221 | (g2_myCurrentRoom setScript: enterRoomScr)
|
---|
222 | )
|
---|
223 | (810
|
---|
224 | # Back from combat.
|
---|
225 | (if (!= globak365 850) # Not Wraith.
|
---|
226 | (g0_hero x: 160 y: 130)
|
---|
227 | (switch g155_myCombatResult
|
---|
228 | (1
|
---|
229 | (g2_myCurrentRoom setScript: egoDies)
|
---|
230 | )
|
---|
231 | (2
|
---|
232 | (it dead: 1)
|
---|
233 | (g2_myCurrentRoom setScript: combatMonsterDies)
|
---|
234 | )
|
---|
235 | (3
|
---|
236 | (= g470_myFleeCount 0)
|
---|
237 | (g0_hero changeGait: 1)
|
---|
238 | (switch global475
|
---|
239 | ((g2_myCurrentRoom east?)
|
---|
240 | (g0_hero setMotion:
|
---|
241 | ((ScriptID 17) new:)
|
---|
242 | 335
|
---|
243 | (g0_hero y?)
|
---|
244 | )
|
---|
245 | (it x: 30)
|
---|
246 | )
|
---|
247 | ((g2_myCurrentRoom west?)
|
---|
248 | (g0_hero setMotion:
|
---|
249 | ((ScriptID 17) new:)
|
---|
250 | 241
|
---|
251 | (g0_hero y?)
|
---|
252 | )
|
---|
253 | (it x: 290)
|
---|
254 | )
|
---|
255 | ((g2_myCurrentRoom south?)
|
---|
256 | (g0_hero setMotion:
|
---|
257 | ((ScriptID 17) new:)
|
---|
258 | (g0_hero x?)
|
---|
259 | 240
|
---|
260 | )
|
---|
261 | (it x: (if (Random 0 1) 290 else 30))
|
---|
262 | )
|
---|
263 | ((g2_myCurrentRoom north?)
|
---|
264 | (g0_hero setMotion:
|
---|
265 | ((ScriptID 17) new:)
|
---|
266 | (g0_hero x?)
|
---|
267 | (- (g2_myCurrentRoom horizon?) 1)
|
---|
268 | )
|
---|
269 | (it x: (if (Random 0 1) 290 else 30))
|
---|
270 | )
|
---|
271 | )
|
---|
272 | # Foes that survived combat continue to chase.
|
---|
273 | (if (== g365_myFoeScriptNum 825) # Badder.
|
---|
274 | (if (> g462_myFoeHealth2 0)
|
---|
275 | ((= loc11 (it new:)) init: runChasing:)
|
---|
276 | )
|
---|
277 | (if (> g463_myFoeHealth3 0)
|
---|
278 | ((= loc12 (it new:)) init: runChasing:)
|
---|
279 | )
|
---|
280 | (if (> g464_myFoeHealth4 0)
|
---|
281 | ((= loc13 (it new:)) init: runChasing:)
|
---|
282 | )
|
---|
283 | )
|
---|
284 | (if (> g156_myFoeHealth1 0)
|
---|
285 | (it init: runChasing:)
|
---|
286 | )
|
---|
287 | (g1_Glory handsOn:)
|
---|
288 | )
|
---|
289 | )
|
---|
290 | )
|
---|
291 | )
|
---|
292 | (else
|
---|
293 | (g0_hero posn: 160 120)
|
---|
294 | (enterRoomScr start: 2)
|
---|
295 | (g2_myCurrentRoom setScript: enterRoomScr)
|
---|
296 | )
|
---|
297 | )
|
---|
298 | (if
|
---|
299 | (and
|
---|
300 | (not g121_myIsNight)
|
---|
301 | (not (proc0_4 35))
|
---|
302 | (< (Random 0 100) 30)
|
---|
303 | )
|
---|
304 | (bird init:)
|
---|
305 | )
|
---|
306 | (if (== (g103_longSong number?) 556)
|
---|
307 | (g103_longSong client: self)
|
---|
308 | )
|
---|
309 | )
|
---|
310 |
|
---|
311 |
|
---|
312 | script 50 - localproc_024d()
|
---|
313 |
|
---|
314 | (procedure (localproc_024d)
|
---|
315 | (= global475 0)
|
---|
316 | (while
|
---|
317 | (or
|
---|
318 | (not global475)
|
---|
319 | (== global475 myPrevRoomNum)
|
---|
320 | )
|
---|
321 | (= global475 (loc16 at: (Random 0 3)))
|
---|
322 | )
|
---|
323 | (return global475)
|
---|
324 | )
|
---|
325 |
|
---|
326 |
|
---|
327 | script 50 - localproc_01ee
|
---|
328 |
|
---|
329 | (procedure (localproc_01ee)
|
---|
330 | (cond
|
---|
331 | (g121_myIsNight
|
---|
332 | (if
|
---|
333 | (and
|
---|
334 | (!= (g103_longSong number?) 556)
|
---|
335 | (!= (g103_longSong number?) 557)
|
---|
336 | )
|
---|
337 | (g103_longSong number: 556 setLoop: 1 play: forest)
|
---|
338 | )
|
---|
339 | )
|
---|
340 | ((!= (g103_longSong number?) 558)
|
---|
341 | (g103_longSong number: 558 setLoop: -1 play:)
|
---|
342 | )
|
---|
343 | )
|
---|
344 | )
|
---|