CD edition, script 50 - forest::init() (method (init &tmp temp0 temp1) (= loc15 (IntArray with: 0 6 4 2)) (= loc16 (IntArray with: 0 0 0 0)) (= loc18 (IntArray with: 0 60 63 80)) (= loc17 (IntArray with: 551 178 46 30 554 99 155 45 555 174 81 23 558 217 56 14 560 88 52 80 561 262 39 29 563 273 125 20 564 205 34 44 565 261 8 92 566 95 155 45 567 143 21 53 569 101 32 75 571 166 51 23 574 22 18 170 578 267 32 80 579 126 40 71 580 298 61 44 583 192 71 46 585 168 33 78 586 210 28 50 588 274 80 40 590 89 52 82 592 28 138 42 )) (= loc14 (loc18 at: (/ (- (g2_myCurrentRoom picture?) 400) 10))) (loc16 at: 0 (g2_myCurrentRoom north?)) (loc16 at: 1 (g2_myCurrentRoom south?)) (loc16 at: 2 (g2_myCurrentRoom east?)) (loc16 at: 3 (g2_myCurrentRoom west?)) (if (proc64999_5 myCurrentRoomNum 575 593 588 551) (= global475 -1) else (= global475 (localproc_024d)) ) (g0_hero init: setScaler: Scaler 100 40 147 61) (if (!= g155_myCombatResult 1) (g0_hero normalize:) ) # script 64994 - Rgn (super init: &rest) (if (!= myPrevRoomNum 810) (cond ((proc0_4 35) (if (or (== myCurrentRoomNum 568) (== myPrevRoomNum 480)) (localproc_01ee) ) ) ((== g365_myFoeScriptNum 850) # Wraith. # Nothing here. ) (g365_myFoeScriptNum (if (!= g365_myFoeScriptNum 870) # Necrotaur. (if (> (++ g470_myFleeCount) (Random 3 6)) (= g470_myFleeCount (= g365_myFoeScriptNum (= g366_myAllure 0))) (= g462_myFoeHealth2 (= g463_myFoeHealth3 (= g464_myFoeHealth4 0))) (localproc_01ee) ) else (if (> g462_myFoeHealth2 0) ((= loc11 (it new:)) init: keepChasing:) ) (if (> g463_myFoeHealth3 0) ((= loc12 (it new:)) init: keepChasing:) ) (if (> g464_myFoeHealth4 0) ((= loc13 (it new:)) init: keepChasing:) ) (if (> g156_myFoeHealth1 0) (it init: keepChasing:) ) ) ) (else (++ g366_myAllure) (= g470_myFleeCount 0) (if (and (> g366_myAllure (loc15 at: g439_mySkillSlider)) (< (Random 0 100) (* (if g121_myIsNight 10 else 5) (- g366_myAllure (loc15 at: g439_mySkillSlider)) ) ) ) (if (and (== g100_myGait 2) # Sneaking. (> (Random 0 [global247 8]) 200) # Stealth skill. ) (= loc9 1) else (proc0_2 380) (= loc3 1) (= global344 [global247 17]) # Health. (= temp0 (Random 0 100)) (if g121_myIsNight (cond ((< temp0 30) # Badder. (= g365_myFoeScriptNum 825) (= g156_myFoeHealth1 50) ) ((< temp0 60) # Revenant. (= g365_myFoeScriptNum 830) (= g156_myFoeHealth1 250) ) ((< temp0 80) # Chernovy. (= g365_myFoeScriptNum 840) (= g156_myFoeHealth1 300) ) (else # Necrotaur. (= g365_myFoeScriptNum 870) (= g156_myFoeHealth1 350) ) ) else (if (> g122_myNthDay 10) (cond ((< temp0 25) # Vorpal Bunny. (= g365_myFoeScriptNum 820) (= g156_myFoeHealth1 100) ) ((< temp0 60) # Wyvern. (= g365_myFoeScriptNum 835) (= g156_myFoeHealth1 300) ) (else # Necrotaur. (= g365_myFoeScriptNum 870) (= g156_myFoeHealth1 350) ) ) else (cond ((< temp0 60) # Vorpal Bunny. (= g365_myFoeScriptNum 820) (= g156_myFoeHealth1 100) ) ((< temp0 90) # Wyvern. (= g365_myFoeScriptNum 835) (= g156_myFoeHealth1 300) ) (else # Necrotaur. (= g365_myFoeScriptNum 870) (= g156_myFoeHealth1 350) ) ) ) ) (if (== g365_myFoeScriptNum 825) # Badder. ((= loc11 (it new:)) init: startChasing) ((= loc12 (it new:)) init: startChasing) ((= loc13 (it new:)) init: startChasing) (= g462_myFoeHealth2 50) (= g463_myFoeHealth3 50) (= g464_myFoeHealth4 50) (= g156_myFoeHealth1 50) ) (it init: startChasing:) ) else (localproc_01ee) ) ) ) ) (switch myPrevRoomNum ((g2_myCurrentRoom west?) (g0_hero posn: 241 136 setHeading: 90) (= loc1 (+ 7 (if g365_myFoeScriptNum 1 else 21) ) ) (= loc2 136) (g2_myCurrentRoom setScript: enterRoomScr) ) ((g2_myCurrentRoom east?) (g0_hero posn: 335 136 setHeading: 270) (= loc1 (- 313 (if g365_myFoeScriptNum 1 else 21) ) ) (= loc2 136) (g2_myCurrentRoom setScript: enterRoomScr) ) ((g2_myCurrentRoom north?) (g0_hero posn: 160 (- (g2_myCurrentRoom horizon?) 1) setHeading: 180 ) (= loc1 160) (= loc2 (+ (g2_myCurrentRoom horizon?) (if g365_myFoeScriptNum 1 else 21) ) ) (enterRoomScr start: 0) (g2_myCurrentRoom setScript: enterRoomScr) ) ((g2_myCurrentRoom south?) (g0_hero posn: 160 240 setHeading: 0) (= loc1 160) (= loc2 (- 182 (if g365_myFoeScriptNum 1 else 21) ) ) (g2_myCurrentRoom setScript: enterRoomScr) ) (810 # Back from combat. (if (!= globak365 850) # Not Wraith. (g0_hero x: 160 y: 130) (switch g155_myCombatResult (1 (g2_myCurrentRoom setScript: egoDies) ) (2 (it dead: 1) (g2_myCurrentRoom setScript: combatMonsterDies) ) (3 (= g470_myFleeCount 0) (g0_hero changeGait: 1) (switch global475 ((g2_myCurrentRoom east?) (g0_hero setMotion: ((ScriptID 17) new:) 335 (g0_hero y?) ) (it x: 30) ) ((g2_myCurrentRoom west?) (g0_hero setMotion: ((ScriptID 17) new:) 241 (g0_hero y?) ) (it x: 290) ) ((g2_myCurrentRoom south?) (g0_hero setMotion: ((ScriptID 17) new:) (g0_hero x?) 240 ) (it x: (if (Random 0 1) 290 else 30)) ) ((g2_myCurrentRoom north?) (g0_hero setMotion: ((ScriptID 17) new:) (g0_hero x?) (- (g2_myCurrentRoom horizon?) 1) ) (it x: (if (Random 0 1) 290 else 30)) ) ) # Foes that survived combat continue to chase. (if (== g365_myFoeScriptNum 825) # Badder. (if (> g462_myFoeHealth2 0) ((= loc11 (it new:)) init: runChasing:) ) (if (> g463_myFoeHealth3 0) ((= loc12 (it new:)) init: runChasing:) ) (if (> g464_myFoeHealth4 0) ((= loc13 (it new:)) init: runChasing:) ) ) (if (> g156_myFoeHealth1 0) (it init: runChasing:) ) (g1_Glory handsOn:) ) ) ) ) (else (g0_hero posn: 160 120) (enterRoomScr start: 2) (g2_myCurrentRoom setScript: enterRoomScr) ) ) (if (and (not g121_myIsNight) (not (proc0_4 35)) (< (Random 0 100) 30) ) (bird init:) ) (if (== (g103_longSong number?) 556) (g103_longSong client: self) ) ) script 50 - localproc_024d() (procedure (localproc_024d) (= global475 0) (while (or (not global475) (== global475 myPrevRoomNum) ) (= global475 (loc16 at: (Random 0 3))) ) (return global475) ) script 50 - localproc_01ee (procedure (localproc_01ee) (cond (g121_myIsNight (if (and (!= (g103_longSong number?) 556) (!= (g103_longSong number?) 557) ) (g103_longSong number: 556 setLoop: 1 play: forest) ) ) ((!= (g103_longSong number?) 558) (g103_longSong number: 558 setLoop: -1 play:) ) ) )