Ticket #10221: dafioram-diff.txt

File dafioram-diff.txt, 232.3 KB (added by m-kiewitz, 7 years ago)

Dafioram's diff

Line 
1
2
3 diff --git a/1.4 b/2.0b
4 index 09f6fc8..d866a2c 100644
5 --- a/1.4
6 +++ b/2.0b
7 @@ -22,7 +22,6 @@
8 rm5300 0
9 chickenPetite 1
10 chickenSound 2
11 - chickenTimerScript 3
12 proc5300_4 4
13 archDuke 5
14 townHallDoor 6
15 @@ -32,33 +31,84 @@
16 fauxDoor 10
17 bull 11
18 chinaDoor 12
19 + glint1 13
20 + glint2 14
21 + glint3 15
22 + proc5300_16 16
23 + bigGate 17
24 + fauxSign 18
25 + badger 19
26 + curtain 20
27 + chinaBird 21
28 + mockingBird 22
29 + stork 23
30 + hippo 24
31 + moon 25
32 + nickel 26
33 + yBranch 27
34 + rubChicken 28
35 archTalker 29
36 chickenTalker 30
37 guardTalker 31
38 + cageCover 32
39 mockingBirdTalker 33
40 snakeTalker 34
41 chinaBirdTalker 35
42 bullTalker 36
43 fauxOwnerTalker 37
44 + fauxDoorExit 38
45 + crook 39
46 + partySound1 40
47 + partySound2 41
48 + feather 45
49 + wagonSign 46
50 + cageDoor 47
51 + iSign 50
52 + sky 51
53 + bigGate 52
54 + littleDoor 53
55 + littleDoorExit 54
56 + chinaDoorExit 55
57 + wagon 56
58 + pool 57
59 + birdCage 58
60 + snakeSalesman 59
61 + chickenRunsOff 61
62 + archDukeTalk 62
63 + unCoverCage 63
64 + openCageDoor 64
65 + getTheChinaBird 65
66 + tryGetBird 66
67 + getBlownOn 67
68 + showTheComb 68
69 + standUpDuke 69
70 + theMoonFalls 70
71 + bobbingMoon 71
72 + mockingBirdFlysAway 72
73 + cantPassDuke 73
74 + stepBackEgo 74
75 + walkThroughDoor 75
76 + partyGoers 76
77 + rosellaFirstEnter 77
78 + snakeChickenCartoon 78
79 + getTheMoon 79
80 + crookFalls 80
81 + talkToChickenAboutMoon 81
82 )
83
84 (local
85 local0
86 local1
87 local2
88 - local3
89 - [local4 2]
90 + [local3 2]
91 + local5
92 local6
93 - local7
94 gKQEgoX
95 gKQEgoY
96 theGRoomFeatureInitCode
97 + local10
98 local11
99 local12
100 - local13
101 - local14
102 - local15
103 - local16
104 )
105 (procedure (proc5300_4)
106 (cond
107 @@ -89,7 +139,7 @@
108 )
109 )
110
111 -(procedure (localproc_77f0 param1 &tmp temp0)
112 +(procedure (proc5300_16 param1 &tmp temp0)
113 (return
114 (if
115 (<= (= temp0 (Abs (gNewPlane_2 left:))) param1)
116 @@ -100,163 +150,6 @@
117 )
118 )
119
120 -(procedure (localproc_7b59)
121 - (if (global2 obstacles?)
122 - ((global2 obstacles?) dispose:)
123 - (global2 obstacles: 0)
124 - )
125 - (global2
126 - addObstacle:
127 - (if (or (<= global122 4) (proc11_0 202))
128 - ((Polygon new:)
129 - type: 3
130 - init:
131 - 16
132 - 117
133 - 39
134 - 121
135 - 102
136 - 129
137 - 191
138 - 124
139 - 232
140 - 110
141 - 264
142 - 101
143 - 299
144 - 101
145 - 342
146 - 119
147 - 449
148 - 123
149 - 497
150 - 109
151 - 536
152 - 121
153 - 587
154 - 121
155 - 562
156 - 110
157 - 548
158 - 113
159 - 507
160 - 104
161 - 475
162 - 86
163 - 475
164 - 70
165 - 455
166 - 75
167 - 432
168 - 68
169 - 416
170 - 75
171 - 358
172 - 75
173 - 345
174 - 70
175 - 307
176 - 70
177 - 294
178 - 77
179 - 251
180 - 95
181 - 216
182 - 102
183 - 142
184 - 111
185 - 100
186 - 111
187 - 45
188 - 99
189 - yourself:
190 - )
191 - else
192 - ((Polygon new:)
193 - type: 3
194 - init:
195 - 57
196 - 105
197 - 57
198 - 116
199 - 21
200 - 116
201 - 14
202 - 117
203 - 39
204 - 121
205 - 102
206 - 129
207 - 191
208 - 124
209 - 232
210 - 110
211 - 264
212 - 101
213 - 299
214 - 101
215 - 342
216 - 119
217 - 449
218 - 123
219 - 497
220 - 109
221 - 536
222 - 121
223 - 587
224 - 121
225 - 562
226 - 108
227 - 548
228 - 113
229 - 507
230 - 104
231 - 475
232 - 86
233 - 475
234 - 70
235 - 455
236 - 75
237 - 432
238 - 68
239 - 416
240 - 75
241 - 357
242 - 75
243 - 343
244 - 68
245 - 307
246 - 68
247 - 294
248 - 77
249 - 251
250 - 95
251 - 216
252 - 102
253 - 142
254 - 111
255 - 100
256 - 111
257 - 51
258 - 98
259 - 39
260 - 105
261 - yourself:
262 - )
263 - )
264 - ((Polygon new:)
265 - type: 2
266 - init: 396 90 476 98 455 111 341 111 326 108 325 101
267 - yourself:
268 - )
269 - ((Polygon new:)
270 - type: 2
271 - init: 278 94 284 85 374 85 374 90 341 94
272 - yourself:
273 - )
274 - )
275 -)
276 -
277 (instance rm5300 of KQRoom
278 (properties
279 picture 5301
280 @@ -269,23 +162,23 @@
281 (super init:)
282 (= global372 -1)
283 (= temp1 0)
284 - (= local13 0)
285 + (= local10 0)
286 (= temp0 5300)
287 (= theGRoomFeatureInitCode gRoomFeatureInitCode)
288 (= gRoomFeatureInitCode roomFeatureInitCode)
289 (proc11_1 55)
290 - (= local6 ((ScriptID 19 1) nsTop?))
291 - (= local7 ((ScriptID 19 0) nsTop?))
292 + (= local5 ((ScriptID 19 1) nsTop?))
293 + (= local6 ((ScriptID 19 0) nsTop?))
294 ((ScriptID 19 1) nsTop: 60)
295 ((ScriptID 19 0) nsTop: 60)
296 - (localproc_7b59)
297 + (localproc_1162)
298 (gKQEgo
299 init:
300 normalize:
301 ignoreActors: 1
302 setScaler: Scaler 83 53 98 78
303 )
304 - (= local1
305 + (= local0
306 (if (or (gKQEgo has: 43) (proc11_0 137))
307 else
308 (proc11_0 121)
309 @@ -293,17 +186,17 @@
310 )
311 (if (gKQEgo has: 47) (proc11_1 123))
312 (proc11_2 138)
313 - (genericEnterScript register: 0)
314 + ((ScriptID 5302 8) register: 0)
315 (switch global12
316 (5400
317 (self setRect: 0 0 640 136)
318 (gKQEgo normalize: 3 heading: 0 posn: 20 112)
319 - (self setScript: enterFromGate)
320 + (self setScript: (ScriptID 5300 8))
321 )
322 (5050
323 (self setRect: 0 0 640 136)
324 (gKQEgo normalize: 3 heading: 0 posn: 127 118)
325 - (genericEnterScript
326 + ((ScriptID 5302 8)
327 register: (chinaDoor cel: 4 yourself:)
328 )
329 )
330 @@ -316,7 +209,7 @@
331 (self setRect: -318 0 321 136)
332 (gKQEgo normalize: 6 heading: 45 posn: 419 75)
333 (fauxDoor cel: 5)
334 - (genericEnterScript register: fauxDoor)
335 + ((ScriptID 5302 8) register: fauxDoor)
336 )
337 (6200
338 (self setRect: -318 0 321 136)
339 @@ -354,8 +247,8 @@
340 (if (and (proc11_0 110) (not (proc11_0 203)))
341 (chinaDoorExit init:)
342 )
343 - (if (genericEnterScript register?)
344 - (self setScript: genericEnterScript)
345 + (if ((ScriptID 5302 8) register?)
346 + (self setScript: (ScriptID 5302 8))
347 )
348 (switch global122
349 (3
350 @@ -367,7 +260,12 @@
351 )
352 (if (and (not (proc11_0 126)) (proc11_0 111))
353 (pool init:)
354 - (moon init: setScript: bobbingMoon)
355 + (moon
356 + view: 5312
357 + loop: 6
358 + init:
359 + setScript: (ScriptID 5300 71)
360 + )
361 )
362 (proc5300_4)
363 (if (not (proc11_0 113)) (mockingBird init:))
364 @@ -382,29 +280,29 @@
365 (if (not (proc11_0 123))
366 (fauxDoor loop: 5 x: 433 y: 71)
367 (UpdateScreenItem fauxDoor)
368 - (snakeSalesman init: setScript: keepSalesmanBusy)
369 + (snakeSalesman init: setScript: (ScriptID 5302 0))
370 else
371 (if (proc11_0 122) (fauxDoorExit init:))
372 (wagonSign init:)
373 )
374 (gKQEgo actions: egoActions)
375 - (if local1
376 - (= local2 (if (< (gKQEgo x?) 181) 181 else 239))
377 - (= local3
378 + (if local0
379 + (= local1 (if (< (gKQEgo x?) 181) 181 else 239))
380 + (= local2
381 (proc64999_3
382 (-
383 50
384 (proc64999_2
385 - (Abs (GetDistance (gKQEgo x?) 0 local2 0))
386 + (Abs (GetDistance (gKQEgo x?) 0 local1 0))
387 50
388 )
389 )
390 20
391 )
392 )
393 - (= local16 1)
394 - (partySound1 play: local3 0)
395 - (partySound2 play: local3 0)
396 + (= local12 1)
397 + (partySound1 play: local2 0)
398 + (partySound2 play: local2 0)
399 )
400 (switch global12
401 (5400 0)
402 @@ -418,7 +316,7 @@
403 setPri: 88
404 setScaler: Scaler 83 53 98 78
405 )
406 - (global2 setScript: fromAssembly)
407 + (global2 setScript: (ScriptID 5302 19))
408 )
409 )
410 (cond
411 @@ -436,7 +334,7 @@
412 (not (proc11_0 407))
413 )
414 (proc11_1 407)
415 - (= local13 1)
416 + (= local10 1)
417 (global2 setScript: (ScriptID 5301 0))
418 )
419 (
420 @@ -473,17 +371,17 @@
421 setPri: 88
422 setScaler: Scaler 83 53 98 78
423 )
424 - (global2 setScript: fromAssembly)
425 + (global2 setScript: (ScriptID 5302 19))
426 )
427 (if (not (proc11_1 450))
428 (= temp1 1)
429 (proc11_1 166)
430 - (global2 setScript: rosellaFirstEnter)
431 + (global2 setScript: (ScriptID 5300 77))
432 )
433 )
434 (5
435 (if (not (proc11_0 198))
436 - (snakeSalesman init: setScript: keepSalesmanBusy)
437 + (snakeSalesman init: setScript: (ScriptID 5302 0))
438 else
439 (curtain init:)
440 )
441 @@ -498,21 +396,21 @@
442 (feather init:)
443 )
444 (if (proc11_0 203)
445 - (= local2 (if (< (gKQEgo x?) 181) 181 else 239))
446 - (= local3
447 + (= local1 (if (< (gKQEgo x?) 181) 181 else 239))
448 + (= local2
449 (proc64999_3
450 (-
451 127
452 (proc64999_2
453 - (Abs (GetDistance (gKQEgo x?) 0 local2 0))
454 + (Abs (GetDistance (gKQEgo x?) 0 local1 0))
455 127
456 )
457 )
458 0
459 )
460 )
461 - (= local16 1)
462 - (partySound1 number: 5409 play: local3 0)
463 + (= local12 1)
464 + (partySound1 number: 5409 play: local2 0)
465 )
466 (if (gKQEgo has: 48) (sky init:))
467 (if (not (proc11_0 203)) (fauxDoorExit init:))
468 @@ -529,16 +427,16 @@
469 setPri: 88
470 setScaler: Scaler 83 53 98 78
471 )
472 - (global2 setScript: fromAssembly)
473 + (global2 setScript: (ScriptID 5302 19))
474 else
475 - (global2 setScript: escortedOutOfTownHall)
476 + (global2 setScript: (ScriptID 5302 14))
477 )
478 )
479 )
480 )
481 (if
482 (and
483 - (= local11 (gNewCast contains: snakeSalesman))
484 + (= global377 (gNewCast contains: snakeSalesman))
485 (== global12 5000)
486 )
487 (= temp0 5325)
488 @@ -565,7 +463,7 @@
489 (proc11_0 138)
490 (gKQEgo has: 42)
491 (gNewCast contains: cageCover)
492 - (not (localproc_77f0 (- (cageCover nsLeft?) 40)))
493 + (not (proc5300_16 (- (cageCover nsLeft?) 40)))
494 )
495 (cageCover dispose:)
496 (cageDoor cel: 0)
497 @@ -574,49 +472,48 @@
498 (if (not script)
499 (if
500 (and (not (proc11_0 110)) (>= (gKQEgo x?) 107))
501 - (global2 setScript: cantPassDuke)
502 + (global2 setScript: (ScriptID 5300 73))
503 )
504 - (if
505 - (and (not (proc11_0 409)) (localproc_77f0 561))
506 + (if (and (not (proc11_0 409)) (proc5300_16 561))
507 (proc11_1 409)
508 (if (proc11_0 97) (gKQEgo setMotion: 0))
509 (snakeSalesman setScript: 0)
510 - (global2 setScript: snakeChickenCartoon)
511 + (global2 setScript: (ScriptID 5300 78))
512 )
513 (if
514 (and
515 (proc11_0 407)
516 - (not local13)
517 + (not local10)
518 (not (proc11_0 408))
519 - (localproc_77f0 193)
520 + (proc5300_16 193)
521 )
522 (proc11_1 408)
523 - (global2 setScript: partyGoers)
524 + (global2 setScript: (ScriptID 5300 76))
525 )
526 (if
527 (and
528 (not (proc11_0 111))
529 (gKQEgo has: 47)
530 - (localproc_77f0 500)
531 + (proc5300_16 500)
532 )
533 (proc11_1 111)
534 - (global2 setScript: moveEgoIntoPosition)
535 + (global2 setScript: (ScriptID 5302 9))
536 )
537 )
538 - (if local16
539 + (if local12
540 (if
541 (not (if (<= 181 (gKQEgo x?)) (<= (gKQEgo x?) 239)))
542 (cond
543 - ((localproc_77f0 239)
544 - (= local2 (if (< (gKQEgo x?) 181) 181 else 239))
545 + ((proc5300_16 239)
546 + (= local1 (if (< (gKQEgo x?) 181) 181 else 239))
547 (if
548 (!=
549 - (= local3
550 + (= local2
551 (proc64999_3
552 (-
553 50
554 (proc64999_2
555 - (Abs (GetDistance (gKQEgo x?) 0 local2 0))
556 + (Abs (GetDistance (gKQEgo x?) 0 local1 0))
557 50
558 )
559 )
560 @@ -625,8 +522,8 @@
561 )
562 (partySound1 vol?)
563 )
564 - (partySound1 setVol: local3)
565 - (partySound2 setVol: local3)
566 + (partySound1 setVol: local2)
567 + (partySound2 setVol: local2)
568 )
569 )
570 ((partySound1 vol?) (partySound1 setVol: 20) (partySound2 setVol: 20))
571 @@ -635,20 +532,20 @@
572 )
573 )
574 (if (== global122 5)
575 - (if local16
576 + (if local12
577 (if
578 (not (if (<= 181 (gKQEgo x?)) (<= (gKQEgo x?) 239)))
579 (cond
580 - ((localproc_77f0 239)
581 - (= local2 (if (< (gKQEgo x?) 181) 181 else 239))
582 + ((proc5300_16 239)
583 + (= local1 (if (< (gKQEgo x?) 181) 181 else 239))
584 (if
585 (!=
586 - (= local3
587 + (= local2
588 (proc64999_3
589 (-
590 127
591 (proc64999_2
592 - (Abs (GetDistance (gKQEgo x?) 0 local2 0))
593 + (Abs (GetDistance (gKQEgo x?) 0 local1 0))
594 127
595 )
596 )
597 @@ -657,7 +554,7 @@
598 )
599 (partySound1 vol?)
600 )
601 - (partySound1 setVol: local3)
602 + (partySound1 setVol: local2)
603 )
604 )
605 ((partySound1 vol?) (partySound1 setVol: 0))
606 @@ -666,40 +563,39 @@
607 )
608 (if
609 (and
610 - local16
611 + local12
612 (not (proc11_0 347))
613 (<= 181 (gKQEgo x?))
614 (<= (gKQEgo x?) 239)
615 + (proc11_0 203)
616 )
617 (proc11_1 347)
618 (global2 setScript: (ScriptID 5301 6))
619 )
620 )
621 - (if (not local12)
622 + (if (not global378)
623 (if
624 (and
625 - local11
626 - (localproc_77f0 541)
627 + global377
628 + (proc5300_16 541)
629 (== (gKqMusic1 number?) 5300)
630 )
631 - (= local12 1)
632 - (gKQEgo setScript: switchMusic 0 5325)
633 + (= global378 1)
634 + (gKQEgo setScript: (ScriptID 5302 23) 0 5325)
635 )
636 (if
637 (and
638 (!= (gKqMusic1 number?) 5300)
639 - (or (not (localproc_77f0 541)) (not local11))
640 + (or (not (proc5300_16 541)) (not global377))
641 )
642 - (= local12 1)
643 - (gKQEgo setScript: switchMusic 0 5300)
644 + (= global378 1)
645 + (gKQEgo setScript: (ScriptID 5302 23) 0 5300)
646 )
647 )
648 )
649
650 (method (dispose)
651 (gKQEgo actions: 0)
652 - (DisposeScript 5301)
653 - (DisposeScript -597)
654 (super dispose:)
655 )
656
657 @@ -710,15 +606,15 @@
658 (proc64999_5
659 theScript
660 (ScriptID 5301 2)
661 - rosellaFirstEnter
662 - escortedOutOfTownHall
663 + (ScriptID 5300 77)
664 + (ScriptID 5302 14)
665 )
666 )
667 (proc64999_5
668 script
669 - genericEnterScript
670 - enterFromGate
671 - fromAssembly
672 + (ScriptID 5302 8)
673 + (ScriptID 5300 8)
674 + (ScriptID 5302 19)
675 )
676 )
677 (script next: theScript)
678 @@ -730,8 +626,8 @@
679
680 (method (newRoom)
681 (= gRoomFeatureInitCode theGRoomFeatureInitCode)
682 - ((ScriptID 19 1) nsTop: local6)
683 - ((ScriptID 19 0) nsTop: local7)
684 + ((ScriptID 19 1) nsTop: local5)
685 + ((ScriptID 19 0) nsTop: local6)
686 (super newRoom: &rest)
687 )
688
689 @@ -741,2629 +637,307 @@
690 )
691 )
692
693 -(instance genericEnterScript of Script
694 - (properties)
695 -
696 - (method (doit)
697 - (super doit:)
698 - (if
699 - (and
700 - (gKQEgo mover?)
701 - ((global2 obstacles?)
702 - firstTrue: #onMe (gKQEgo x?) (gKQEgo y?)
703 - )
704 - )
705 - (gKQEgo setMotion: 0)
706 - (= cycles 1)
707 - )
708 +(instance glint1 of Prop
709 + (properties
710 + x 365
711 + y 92
712 + priority 109
713 + fixPriority 1
714 + view 5300
715 + loop 4
716 + cycleSpeed 9
717 )
718
719 - (method (changeState newState)
720 - (switch (= state newState)
721 - (0
722 - (global1 handsOff:)
723 - (Load rsCDAUDIO 802)
724 - (gKQEgo
725 - posn: (register approachX?) (register approachY?)
726 - )
727 - (= cycles 1)
728 - )
729 - (1
730 - (register cel: (register lastCel:) setCycle: Beg self)
731 - )
732 - (2
733 - (gKqSound1 number: 802 setLoop: 1 play:)
734 - (gKQEgo setHeading: 180 self)
735 - )
736 - (3
737 - (if
738 - (not
739 - ((global2 obstacles?)
740 - firstTrue: #onMe (gKQEgo x?) (gKQEgo y?)
741 - )
742 - )
743 - (gKQEgo setMotion: MoveTo (gKQEgo x?) 150)
744 - else
745 - (= cycles 1)
746 - )
747 - )
748 - (4
749 - (global1 handsOn:)
750 - (self dispose:)
751 - )
752 - )
753 + (method (init)
754 + (super init: &rest)
755 + (self setScript: (ScriptID 5301 9))
756 )
757 )
758
759 -(instance enterFromGate of Script
760 - (properties)
761 -
762 - (method (changeState newState)
763 - (switch (= state newState)
764 - (0
765 - (global1 handsOff:)
766 - (littleDoor cel: (littleDoor lastCel:))
767 - (= cycles 4)
768 - )
769 - (1
770 - (gKQEgo normalize: 3)
771 - (= cycles 1)
772 - )
773 - (2
774 - (littleDoor setCycle: Beg self)
775 - )
776 - (3
777 - (gKqSound1 number: 802 loop: 1 play:)
778 - (gKQEgo setHeading: 90 self)
779 - )
780 - (4
781 - (if (== next (ScriptID 5301 0))
782 - (gKQEgo setMotion: MoveTo 60 (gKQEgo y?) self)
783 - else
784 - (gKQEgo setMotion: MoveTo 40 (gKQEgo y?) self)
785 - )
786 - )
787 - (5
788 - (if (and (not next) (== client global2))
789 - (global1 handsOn:)
790 - )
791 - (self dispose:)
792 - )
793 - )
794 +(instance glint2 of Prop
795 + (properties
796 + x 414
797 + y 94
798 + priority 109
799 + fixPriority 1
800 + view 5300
801 + loop 5
802 + cycleSpeed 10
803 )
804 )
805
806 -(instance chickenRunsOff of Script
807 - (properties)
808 +(instance glint3 of Prop
809 + (properties
810 + x 394
811 + y 93
812 + priority 109
813 + fixPriority 1
814 + view 5300
815 + loop 6
816 + cycleSpeed 14
817 + )
818 +)
819 +
820 +(instance chinaDoor of Prop
821 + (properties
822 + noun 11
823 + approachX 116
824 + approachY 109
825 + x 128
826 + y 104
827 + priority 10
828 + fixPriority 1
829 + view 5302
830 + )
831
832 (method (init)
833 - (proc11_2 539)
834 (super init: &rest)
835 + (if (and (proc11_0 203) (not (proc11_0 284)))
836 + (self setHotspot: 8 10 approachVerbs: 8)
837 + )
838 )
839
840 - (method (dispose)
841 - (proc11_2 539)
842 - (super dispose:)
843 + (method (doVerb)
844 + (global2 setScript: (ScriptID 5302 6))
845 + )
846 +)
847 +
848 +(instance fauxDoor of Prop
849 + (properties
850 + noun 12
851 + approachX 435
852 + approachY 69
853 + x 439
854 + y 69
855 + z 3
856 + priority 66
857 + fixPriority 1
858 + view 5302
859 + loop 2
860 )
861
862 - (method (changeState newState &tmp temp0)
863 - (if (not (proc11_0 539))
864 - (switch (= state newState)
865 - (0
866 - (global1 handsOff: 1)
867 - (gKqMusic1 pause: 1)
868 - (chickenSound number: 5310 loop: -1 play:)
869 - (chickenPetite
870 - view: 5311
871 - setLoop: 6 1
872 - setCel: 0
873 - setPri: -1
874 - setCycle: End self
875 - )
876 - )
877 - (1
878 - (if (< (chickenPetite x?) 320)
879 - (= global372 8)
880 - (proc11_3 gKQEgo 315 104 0)
881 - (chickenPetite
882 - setLoop: 7 1
883 - setCel: 0
884 - setCycle: Walk
885 - setMotion: PolyPath 315 104 self
886 - )
887 - else
888 - (= global372 9)
889 - (= temp0 (- (Abs (gNewPlane_2 left:)) 15))
890 - (proc11_3 gKQEgo temp0 (chickenPetite y?) 0)
891 - (chickenPetite
892 - setLoop: 0 1
893 - setCycle: Walk
894 - setMotion: PolyPath temp0 (chickenPetite y?) self
895 - )
896 - )
897 - (gKqMessager say: 0 0 13 0 chickenPetite)
898 + (method (init)
899 + (super init:)
900 + (if (not (proc11_0 276)) (self setHotspot: 8 10))
901 + (self
902 + approachVerbs: 8
903 + setPolygon:
904 + ((Polygon new:)
905 + type: 1
906 + init: 438 65 446 67 443 30 431 33
907 + yourself:
908 )
909 - (2
910 - (chickenSound fade:)
911 - (gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
912 - (chickenPetite setCycle: 0)
913 - (proc5300_4)
914 - (global1 handsOn:)
915 - (self dispose:)
916 + )
917 + )
918 +
919 + (method (doVerb)
920 + (cond
921 + ((== global104 -4)
922 + (cond
923 + ((proc11_0 203) (global2 setScript: (ScriptID 5301 4)))
924 + ((== global122 5) (global2 setScript: (ScriptID 5302 4)))
925 + ((and (proc11_0 120) (proc11_0 121)) (gKqMessager say: 8 8 34 0))
926 + ((not (proc11_0 123)) (gKqMessager say: 8 8 33 0))
927 + ((proc11_0 122) (global2 setScript: (ScriptID 5302 4)))
928 + (else (global2 setScript: (ScriptID 5300 75)))
929 )
930 )
931 - else
932 - (chickenSound stop:)
933 - (gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
934 - (chickenPetite setCycle: 0 setMotion: 0)
935 - (proc5300_4)
936 - (global1 handsOn:)
937 - (self dispose:)
938 + ((proc11_0 149) (global2 setScript: (ScriptID 5302 4)))
939 + (else (global2 setScript: (ScriptID 5300 75)))
940 + )
941 + )
942 +
943 + (method (onMe param1 &tmp temp0)
944 + (if
945 + (and
946 + (= temp0 (super onMe: param1))
947 + (param1 type?)
948 + (== loop 5)
949 + )
950 + (= approachX (- x 3))
951 + (= approachY y)
952 )
953 + (return temp0)
954 )
955 )
956
957 -(instance archDukeTalk of Script
958 - (properties)
959 -
960 - (method (doit)
961 - (super doit:)
962 - (if (and (== state 1) register) (self cue:))
963 - )
964 -
965 - (method (changeState newState)
966 - (switch (= state newState)
967 - (0
968 - (archDuke
969 - view: 5303
970 - setLoop: 0
971 - setCel: 0
972 - posn: 147 115
973 - setCycle: End self
974 - )
975 - )
976 - (1
977 - (if (not register)
978 - (archDuke setLoop: 1 setCel: 0 setCycle: Fwd)
979 - else
980 - (self cue:)
981 - )
982 - )
983 - (2
984 - (archDuke setLoop: 2 setCel: 0 setCycle: CT 16 1 self)
985 - )
986 - (3
987 - (gKQEgo setScript: getBlownOn)
988 - (archDuke setLoop: 2 setCel: 17 setCycle: CT 20 1 self)
989 - )
990 - (4
991 - (gKqSound1 number: 5305 loop: 1 play:)
992 - (archDuke setCycle: CT 24 1 self)
993 - )
994 - (5
995 - (gKqSound1 stop:)
996 - (archDuke setCycle: End self)
997 - )
998 - (6 (self dispose:))
999 - )
1000 - )
1001 -)
1002 -
1003 -(instance getBlownOn of Script
1004 - (properties)
1005 -
1006 - (method (changeState newState)
1007 - (switch (= state newState)
1008 - (0
1009 - (gKQEgo
1010 - view: 5303
1011 - setLoop: 8
1012 - cel: 0
1013 - setScale: 0
1014 - posn: (+ (gKQEgo x?) 25) (gKQEgo y?)
1015 - setCycle: End self
1016 - )
1017 - )
1018 - (1
1019 - (gKQEgo
1020 - normalize: 0
1021 - x: (- (gKQEgo x?) 25)
1022 - setScaler: Scaler 83 53 98 78
1023 - )
1024 - (self dispose:)
1025 - )
1026 - )
1027 - )
1028 -)
1029 -
1030 -(instance showTheComb of Script
1031 - (properties)
1032 -
1033 - (method (init)
1034 - (proc11_2 539)
1035 - (super init: &rest)
1036 - )
1037 -
1038 - (method (dispose)
1039 - (proc11_2 539)
1040 - (super dispose:)
1041 - )
1042 -
1043 - (method (changeState newState)
1044 - (if (not (proc11_0 539))
1045 - (switch (= state newState)
1046 - (0
1047 - (global1 handsOff: 1)
1048 - (Load rsVIEW 5303)
1049 - (Load rsCDAUDIO 5305)
1050 - (Load rsVIEW 8132)
1051 - (Load rsVIEW 5334)
1052 - (= register (gKQEgo cycleSpeed?))
1053 - (gKQEgo
1054 - view: 8241
1055 - setLoop:
1056 - (if
1057 - (and
1058 - (< 0 (gKQEgo heading?))
1059 - (< (= register (gKQEgo cycleSpeed?)) 180)
1060 - )
1061 - 0
1062 - else
1063 - 1
1064 - )
1065 - setCel: 0
1066 - cycleSpeed: 12
1067 - setCycle: CT 20 1 self
1068 - )
1069 - )
1070 - (1
1071 - (gKqSound1 number: 1256 setLoop: -1 play:)
1072 - (gKQEgo setCycle: End self)
1073 - )
1074 - (2
1075 - (gKQEgo setCycle: CT 20 -1 self)
1076 - )
1077 - (3
1078 - (gKqSound1 setLoop: 1 stop:)
1079 - (gKQEgo setCycle: Beg self)
1080 - )
1081 - (4
1082 - (gKQEgo
1083 - normalize: 0
1084 - setScaler: Scaler 83 53 98 78
1085 - cycleSpeed: register
1086 - )
1087 - (= cycles 1)
1088 - )
1089 - (5
1090 - (archTalker clientCel: -2 hide_mouth: 1 modeless: 2)
1091 - (gKqMessager say: 1 5 6 1 self)
1092 - )
1093 - (6
1094 - (self setScript: archDukeTalk self)
1095 - (gKqMessager say: 1 5 6 2 self)
1096 - )
1097 - (7 (script register: 1))
1098 - (8
1099 - (gKqMusic1 pause: 1)
1100 - (chickenSound number: 5310 loop: -1 play:)
1101 - (archTalker clientCel: -1 hide_mouth: 0 modeless: 1)
1102 - (self setScript: standUpDuke self self)
1103 - (= register (gKQEgo cycleSpeed?))
1104 - (chickenPetite
1105 - posn: 308 102
1106 - setPri: 130
1107 - view: 5303
1108 - setLoop: 4
1109 - setCel: 0
1110 - init:
1111 - setCycle: CT 16 1 self
1112 - )
1113 - (chickenTalker modeless: 2)
1114 - (= global372 7)
1115 - (gKqMessager say: 1 5 6 3 chickenPetite)
1116 - )
1117 - (9
1118 - (chickenPetite setCycle: CT 36 1 self)
1119 - (gKQEgo
1120 - view: 8132
1121 - setLoop: 0
1122 - setCel: 6
1123 - cycleSpeed: 13
1124 - setCycle: Beg
1125 - )
1126 - )
1127 - (10
1128 - (chickenPetite setCycle: End self)
1129 - (gKQEgo setCycle: End)
1130 - )
1131 - (11
1132 - (chickenSound fade:)
1133 - (gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
1134 - (gKQEgo
1135 - normalize: 0
1136 - setScaler: Scaler 83 53 98 78
1137 - cycleSpeed: register
1138 - )
1139 - (proc5300_4)
1140 - (= cycles 2)
1141 - )
1142 - (12
1143 - (archTalker clientCel: 4)
1144 - (gKqMessager say: 1 5 6 4 self)
1145 - )
1146 - (13
1147 - (archTalker clientCel: -1)
1148 - (archDuke setCycle: CT 12 1 self)
1149 - )
1150 - (14
1151 - (archDuke setPri: 86 setCycle: End self)
1152 - )
1153 - (15
1154 - (archDuke hide:)
1155 - (townHallDoor setHotspot: 8 10 setCycle: Beg self)
1156 - )
1157 - (16
1158 - (gKqSound1 number: 802 setLoop: 1 play:)
1159 - (archDuke
1160 - view: 5334
1161 - setLoop: 3 1
1162 - cel: 0
1163 - posn: 218 88
1164 - setPri: 82
1165 - show:
1166 - setCycle: Walk
1167 - setScaler: Scaler 92 73 86 78
1168 - setMotion: MoveTo 177 75 self
1169 - )
1170 - )
1171 - (17
1172 - (chickenTalker modeless: 1)
1173 - (archDuke dispose:)
1174 - (proc11_1 110)
1175 - (if (gKQEgo scratch?)
1176 - (gKQEgo addRespondVerb: 51)
1177 - else
1178 - (gKQEgo setHotspot: 0 51)
1179 - )
1180 - (chinaDoorExit init:)
1181 - (global1 handsOn:)
1182 - (self dispose:)
1183 - )
1184 - )
1185 - else
1186 - (switch (= state newState)
1187 - (0
1188 - (gKqSound1 stop:)
1189 - (gKQEgo setScript: 0)
1190 - (if script (script caller: 0))
1191 - (= cycles 2)
1192 - )
1193 - (1
1194 - (gKQEgo
1195 - normalize: 0
1196 - setScaler: Scaler 83 53 98 78
1197 - posn: (archDuke approachX?) (archDuke approachY?)
1198 - cycleSpeed: register
1199 - )
1200 - (archDuke dispose:)
1201 - (proc11_1 110)
1202 - (if (gKQEgo scratch?)
1203 - (gKQEgo addRespondVerb: 51)
1204 - else
1205 - (gKQEgo setHotspot: 0 51)
1206 - )
1207 - (chickenPetite setCycle: 0 setMotion: 0)
1208 - (proc5300_4)
1209 - (archTalker clientCel: -1 hide_mouth: 0 modeless: 1)
1210 - (chickenTalker modeless: 1)
1211 - (chinaDoorExit init:)
1212 - (chickenSound fade:)
1213 - (gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
1214 - (archTalker clientCel: -1)
1215 - (townHallDoor setHotspot: 8 10 cel: 0)
1216 - (UpdateScreenItem townHallDoor)
1217 - (global1 handsOn:)
1218 - (self dispose:)
1219 - )
1220 - )
1221 - )
1222 - )
1223 -)
1224 -
1225 -(instance standUpDuke of Script
1226 - (properties)
1227 -
1228 - (method (changeState newState)
1229 - (switch (= state newState)
1230 - (0
1231 - (archDuke
1232 - posn: 147 116
1233 - setLoop: 3
1234 - setCel: 0
1235 - setCycle: End self
1236 - )
1237 - )
1238 - (1
1239 - (archDuke
1240 - posn: 206 107
1241 - setLoop: 5
1242 - setCel: 0
1243 - setCycle: CT 4 1 self
1244 - )
1245 - )
1246 - (2 (self dispose:))
1247 - )
1248 - )
1249 -)
1250 -
1251 -(instance theMoonFalls of Script
1252 - (properties)
1253 -
1254 - (method (init)
1255 - (proc11_2 539)
1256 - (super init: &rest)
1257 - )
1258 -
1259 - (method (dispose)
1260 - (proc11_2 539)
1261 - (super dispose:)
1262 - )
1263 -
1264 - (method (changeState newState)
1265 - (if (not (proc11_0 539))
1266 - (switch (= state newState)
1267 - (0
1268 - (global1 handsOff: 1)
1269 - (Load rsCDAUDIO 907)
1270 - (Load rsCDAUDIO 854)
1271 - (Load rsCDAUDIO 836)
1272 - (Load rsVIEW 5314)
1273 - (localproc_7b59)
1274 - (= global372 9)
1275 - (chickenPetite
1276 - view: 5311
1277 - setLoop: 0 1
1278 - setCycle: Walk
1279 - posn: 607 117
1280 - moveSpeed: 3
1281 - setPri: -1
1282 - init:
1283 - setMotion: MoveTo 500 107 self
1284 - )
1285 - (chickenTalker hide_mouth: 1 modeless: 2)
1286 - (gKqMessager say: 0 0 16 1 chickenPetite)
1287 - )
1288 - (1
1289 - (chickenPetite setMotion: PolyPath 468 94 self)
1290 - )
1291 - (2
1292 - (chickenPetite setMotion: PolyPath 393 86 self)
1293 - )
1294 - (3
1295 - (chickenPetite setMotion: PolyPath 321 102 self)
1296 - )
1297 - (4
1298 - (= global372 8)
1299 - (chickenPetite
1300 - setLoop: (if (global84 size:) 7 else 8) 1
1301 - )
1302 - (chickenPetite setMotion: PolyPath 402 117 self)
1303 - )
1304 - (5
1305 - (chickenPetite setMotion: PolyPath 477 98 self)
1306 - )
1307 - (6
1308 - (= global372 8)
1309 - (chickenPetite
1310 - setLoop: (if (global84 size:) 0 else 9) 1
1311 - )
1312 - (chickenPetite setMotion: PolyPath 468 94 self)
1313 - )
1314 - (7
1315 - (= global372 -1)
1316 - (chickenPetite
1317 - view: 5314
1318 - setLoop: 5
1319 - cel: 0
1320 - x: 475
1321 - y: 135
1322 - setPri: 100
1323 - setCycle: 0
1324 - )
1325 - (UnLoad 128 5311)
1326 - (chickenTalker hide_mouth: 1 clientCel: -2)
1327 - (moon
1328 - view: 5314
1329 - loop: 0
1330 - cel: 0
1331 - x: 382
1332 - y: 95
1333 - setPri: 150
1334 - init:
1335 - setCycle: End self
1336 - )
1337 - )
1338 - (8
1339 - (moon loop: 1 cel: 0 setCycle: End self)
1340 - )
1341 - (9
1342 - (mockingBird
1343 - view: 5314
1344 - loop: 3
1345 - cel: 0
1346 - x: 349
1347 - y: 49
1348 - z: 0
1349 - setPri: 150
1350 - setCycle: CT 2 1
1351 - )
1352 - (moon loop: 2 cel: 0 setCycle: CT 1 1 self)
1353 - )
1354 - (10
1355 - (gKqSound1 number: 907 loop: 1 play:)
1356 - (moon loop: 2 setCycle: CT 11 1 self)
1357 - )
1358 - (11
1359 - (self setScript: mockingBirdFlysAway)
1360 - (moon setCycle: End self)
1361 - )
1362 - (12
1363 - (chickenPetite setPri: -1 setCycle: CT 6 1 self)
1364 - )
1365 - (13
1366 - (archDukeSound number: 854 loop: 1 play:)
1367 - (chickenPetite setCycle: End self)
1368 - )
1369 - (14
1370 - (gKqSound1 number: 836 loop: 1 play:)
1371 - (chickenPetite
1372 - view: 5315
1373 - loop: 0
1374 - cel: 0
1375 - posn: 415 93
1376 - setPri: 125
1377 - setCycle: End self
1378 - )
1379 - )
1380 - (15
1381 - (moon setScript: bobbingMoon)
1382 - (gKqSound1 number: 836 loop: 1 play:)
1383 - (chickenPetite loop: 1 cel: 0 setCycle: End self)
1384 - )
1385 - (16
1386 - (chickenPetite
1387 - loop: 2
1388 - cel: 0
1389 - setHotspot: 8 10
1390 - approachVerbs: 8
1391 - setPri: 110
1392 - setCycle: End self
1393 - )
1394 - )
1395 - (17
1396 - (global1 handsOn:)
1397 - (pool init:)
1398 - (self dispose:)
1399 - )
1400 - )
1401 - else
1402 - (self setScript: 0)
1403 - (gKqSound1 stop:)
1404 - (proc11_1 113)
1405 - (mockingBird dispose:)
1406 - (chickenPetite view: 5315 loop: 2)
1407 - (chickenPetite
1408 - cel: (chickenPetite lastCel:)
1409 - posn: 415 93
1410 - setPri: 110
1411 - setMotion: 0
1412 - setCycle: 0
1413 - setHotspot: 8 10
1414 - approachVerbs: 8
1415 - )
1416 - (nickel init:)
1417 - (if (not (moon script?))
1418 - (moon init: setScript: bobbingMoon)
1419 - )
1420 - (gKQEgo normalize: 5)
1421 - (pool init:)
1422 - (global1 handsOn:)
1423 - (self dispose:)
1424 - )
1425 - )
1426 -)
1427 -
1428 -(instance bobbingMoon of Script
1429 - (properties)
1430 -
1431 - (method (changeState newState)
1432 - (switch (= state newState)
1433 - (0
1434 - (moon
1435 - setLoop: 6 1
1436 - cel: 14
1437 - cycleSpeed: 8
1438 - posn: 409 93
1439 - setPri: 110
1440 - setCycle: Beg self
1441 - )
1442 - )
1443 - (1
1444 - (if register
1445 - (moon setCycle: End self)
1446 - else
1447 - (-- state)
1448 - (moon setCycle: ROsc 1 4 9 self)
1449 - )
1450 - )
1451 - (2 (self dispose:))
1452 - )
1453 - )
1454 -)
1455 -
1456 -(instance mockingBirdFlysAway of Script
1457 - (properties)
1458 -
1459 - (method (changeState newState)
1460 - (switch (= state newState)
1461 - (0
1462 - (gKqSound1 number: 5312 loop: 1 play:)
1463 - (mockingBird view: 5314 loop: 3 cel: 2 setCycle: End self)
1464 - )
1465 - (1
1466 - (nickel init:)
1467 - (mockingBird
1468 - setLoop: 4 1
1469 - cel: 0
1470 - setCycle: Fwd
1471 - posn: 362 52
1472 - setPri: 150
1473 - moveSpeed: 1
1474 - setMotion: MoveTo 640 1 self
1475 - )
1476 - )
1477 - (2
1478 - (proc11_1 113)
1479 - (mockingBird dispose:)
1480 - (self dispose:)
1481 - )
1482 - )
1483 - )
1484 -)
1485 -
1486 -(instance cantPassDuke of Script
1487 - (properties)
1488 -
1489 - (method (changeState newState)
1490 - (switch (= state newState)
1491 - (0
1492 - (global1 handsOff:)
1493 - (gKQEgo setMotion: 0)
1494 - (= cycles 1)
1495 - )
1496 - (1
1497 - (archTalker modeless: 2)
1498 - (gKqMessager say: 0 0 2 0 self)
1499 - (self setScript: stepBackEgo self)
1500 - )
1501 - (2 0)
1502 - (3
1503 - (global1 handsOn:)
1504 - (self dispose:)
1505 - )
1506 - )
1507 - )
1508 -)
1509 -
1510 -(instance stepBackEgo of Script
1511 - (properties)
1512 -
1513 - (method (changeState newState)
1514 - (switch (= state newState)
1515 - (0
1516 - (gKQEgo
1517 - view: 8021
1518 - setLoop: 0
1519 - setCel: 0
1520 - setCycle: End self
1521 - )
1522 - )
1523 - (1
1524 - (gKQEgo
1525 - normalize: 0
1526 - setScaler: Scaler 83 53 98 78
1527 - posn: 90 (gKQEgo y?)
1528 - ignoreActors: 1
1529 - )
1530 - (self dispose:)
1531 - )
1532 - )
1533 - )
1534 -)
1535 -
1536 -(instance walkThroughDoor of Script
1537 - (properties)
1538 -
1539 - (method (changeState newState)
1540 - (switch (= state newState)
1541 - (0
1542 - (global1 handsOff:)
1543 - (gKqSound1 number: 801 loop: 1 play:)
1544 - (fauxDoor setCycle: End self)
1545 - )
1546 - (1
1547 - (gKQEgo setMotion: MoveTo 457 69 self)
1548 - )
1549 - (2
1550 - (gKQEgo setMotion: MoveTo 466 69 self)
1551 - )
1552 - (3
1553 - (gKQEgo setHeading: 180 self)
1554 - )
1555 - (4 (= seconds 3))
1556 - (5
1557 - (gKQEgo
1558 - setMotion: MoveTo (fauxDoor approachX?) (fauxDoor approachY?) self
1559 - )
1560 - )
1561 - (6
1562 - (fauxDoor setCycle: Beg self)
1563 - )
1564 - (7
1565 - (gKqSound1 number: 802 loop: 1 play:)
1566 - (global1 handsOn:)
1567 - (self dispose:)
1568 - )
1569 - )
1570 - )
1571 -)
1572 -
1573 -(instance partyGoers of Script
1574 - (properties)
1575 -
1576 - (method (changeState newState)
1577 - (if (not (proc11_0 539))
1578 - (switch (= state newState)
1579 - (0
1580 - (global1 handsOff: 1)
1581 - (gKQEgo setMotion: 0)
1582 - (proc11_3 gKQEgo badger 0)
1583 - (stork setCycle: CT 11 1 self)
1584 - (hippo setCycle: CT 9 1 self)
1585 - )
1586 - (1 0)
1587 - (2
1588 - (badger setCycle: CT 12 1 self)
1589 - )
1590 - (3
1591 - (guardTalker clientCel: -2 client: badger)
1592 - (gKqMessager say: 0 0 15 0 self)
1593 - )
1594 - (4
1595 - (badger setPri: 110 setCycle: End self)
1596 - )
1597 - (5
1598 - (stork setCycle: End self)
1599 - (hippo setCycle: End self)
1600 - )
1601 - (6 0)
1602 - (7
1603 - (stork dispose:)
1604 - (hippo view: -12406 setLoop: 0 cel: 0 setCycle: End self)
1605 - )
1606 - (8
1607 - (hippo dispose:)
1608 - (badger setCycle: CT 15 -1 self)
1609 - )
1610 - (9
1611 - (badger
1612 - view: 5305
1613 - setLoop: 3
1614 - posn: 217 93
1615 - cel: 0
1616 - setPri: 82
1617 - setCycle: End self
1618 - )
1619 - )
1620 - (10
1621 - (badger dispose:)
1622 - (townHallDoor setCycle: Beg self)
1623 - )
1624 - (11
1625 - (gKqSound1 number: 802 loop: 1 play:)
1626 - (global1 handsOn:)
1627 - (self dispose:)
1628 - )
1629 - )
1630 - else
1631 - (proc11_2 539)
1632 - (gKqSound1 stop:)
1633 - (badger dispose:)
1634 - (hippo dispose:)
1635 - (stork dispose:)
1636 - (townHallDoor cel: 0)
1637 - (UpdateScreenItem townHallDoor)
1638 - (global1 handsOn:)
1639 - (self dispose:)
1640 - )
1641 - )
1642 -)
1643 -
1644 -(instance rosellaFirstEnter of Script
1645 - (properties)
1646 -
1647 - (method (changeState newState)
1648 - (switch (= state newState)
1649 - (0
1650 - (global1 handsOff:)
1651 - (Load rsSOUND 5307)
1652 - (Load rsSOUND 5308)
1653 - (Load rsCDAUDIO 5408)
1654 - (townHallDoor cel: 4 setPri: 80)
1655 - (archDukeSound number: 5307 loop: -1 play:)
1656 - (archDuke
1657 - view: 5341
1658 - loop: 0
1659 - cel: 0
1660 - x: 229
1661 - y: 105
1662 - cycleSpeed: 10
1663 - init:
1664 - setCycle: Fwd
1665 - )
1666 - (self setScript: enterFromGate self)
1667 - )
1668 - (1
1669 - (gKQEgo setMotion: PolyPath 170 111 self)
1670 - )
1671 - (2
1672 - (archDukeSound number: 5308 loop: 1 play:)
1673 - (archDuke cel: 0 setCycle: End self)
1674 - )
1675 - (3
1676 - (archDuke loop: 1 cel: 0 x: 233 y: 105 setCycle: End self)
1677 - )
1678 - (4
1679 - (archDuke loop: 2 cel: 0 x: 233 y: 105 setCycle: End self)
1680 - )
1681 - (5
1682 - (archDukeSound fade: 0 50 20 1)
1683 - (archTalker clientCel: -2)
1684 - (gKqMessager sayRange: 0 0 35 1 3 self)
1685 - )
1686 - (6
1687 - (archDukeSound number: 5307 loop: -1 play:)
1688 - (archDuke
1689 - view: 5341
1690 - loop: 0
1691 - cel: 0
1692 - x: 229
1693 - y: 105
1694 - setCycle: Fwd
1695 - )
1696 - (= seconds 3)
1697 - )
1698 - (7
1699 - (archDukeSound number: 5308 loop: 1 play: fade: 0 50 20 1)
1700 - (archDuke
1701 - view: 5342
1702 - loop: 0
1703 - cel: 0
1704 - x: 233
1705 - y: 103
1706 - setCycle: End self
1707 - )
1708 - )
1709 - (8
1710 - (gKqSound1 number: 5408 loop: 1 play:)
1711 - (archDuke view: 5342 loop: 1 cel: 0 x: 233 y: 103)
1712 - (UpdateScreenItem archDuke)
1713 - (FrameOut)
1714 - (= cycles 1)
1715 - )
1716 - (9
1717 - (archTalker hide_mouth: 1 clientCel: -2)
1718 - (gKqMessager say: 0 0 35 4 self)
1719 - )
1720 - (10
1721 - (gKqMusic1 loop: -1 play: setVol: 0 fade: 127 25 10 0)
1722 - (archDuke
1723 - view: 5334
1724 - setLoop: 3 1
1725 - cel: 0
1726 - x: 234
1727 - y: 100
1728 - setPri: 82
1729 - setCycle: Walk
1730 - setMotion: MoveTo 177 75 self
1731 - )
1732 - )
1733 - (11
1734 - (archDuke dispose:)
1735 - (townHallDoor setCycle: Beg self)
1736 - )
1737 - (12
1738 - (gKqSound1 number: 802 loop: 1 play:)
1739 - (if (not (proc11_1 167))
1740 - ((ScriptID 13 0) hide_mouth: 1)
1741 - (gKqMessager say: 0 0 36 0 self)
1742 - else
1743 - (self cue:)
1744 - )
1745 - )
1746 - (13
1747 - ((ScriptID 13 0) hide_mouth: 0)
1748 - (if (gKQEgo scratch?)
1749 - (gKQEgo addRespondVerb: 51)
1750 - else
1751 - (gKQEgo setHotspot: 0 51)
1752 - )
1753 - (global1 handsOn:)
1754 - (self dispose:)
1755 - )
1756 - )
1757 - )
1758 -)
1759 -
1760 -(instance snakeChickenCartoon of Script
1761 - (properties)
1762 -
1763 - (method (init)
1764 - (proc11_2 539)
1765 - (super init: &rest)
1766 - )
1767 -
1768 - (method (dispose)
1769 - (proc11_2 539)
1770 - (super dispose:)
1771 - )
1772 -
1773 - (method (changeState newState)
1774 - (if (not (proc11_0 539))
1775 - (switch (= state newState)
1776 - (0
1777 - (global1 handsOff: 1)
1778 - (Load rsVIEW 5323)
1779 - (Load rsVIEW 5325)
1780 - (chickenPetite
1781 - view: 5323
1782 - loop: 0
1783 - cel: 0
1784 - x: 520
1785 - y: 108
1786 - init:
1787 - )
1788 - (chickenTalker hide_mouth: 0 clientCel: -2 modeless: 2)
1789 - (gKqMessager say: 0 0 21 1 self)
1790 - )
1791 - (1
1792 - (snakeSalesman
1793 - view: 5323
1794 - loop: 1
1795 - cel: 0
1796 - posn: 529 92
1797 - setCycle: End self
1798 - )
1799 - )
1800 - (2
1801 - (gKqMessager say: 0 0 21 2 self)
1802 - )
1803 - (3
1804 - (snakeSalesman
1805 - view: 5323
1806 - loop: 2
1807 - cel: 0
1808 - posn: 534 95
1809 - setCycle: End self
1810 - )
1811 - )
1812 - (4
1813 - (gKqMessager sayRange: 0 0 21 3 4 self)
1814 - )
1815 - (5
1816 - (snakeSalesman
1817 - view: 5323
1818 - loop: 3
1819 - cel: 0
1820 - posn: 543 90
1821 - setCycle: End self
1822 - )
1823 - )
1824 - (6
1825 - (gKqMessager say: 0 0 21 5 self)
1826 - )
1827 - (7
1828 - (chickenPetite setCycle: End self)
1829 - )
1830 - (8
1831 - (chickenPetite dispose:)
1832 - (snakeSalesman
1833 - view: 5325
1834 - loop: 0
1835 - cel: 4
1836 - posn: 491 128
1837 - setCycle: End self
1838 - )
1839 - )
1840 - (9
1841 - (snakeSalesman setScript: keepSalesmanBusy)
1842 - (gKQEgo setHeading: 180 self)
1843 - )
1844 - (10
1845 - (global1 handsOn:)
1846 - (self dispose:)
1847 - )
1848 - )
1849 - else
1850 - (chickenPetite dispose:)
1851 - (if (not (snakeSalesman script?))
1852 - (snakeSalesman setScript: keepSalesmanBusy)
1853 - )
1854 - (gKQEgo normalize: 2)
1855 - (global1 handsOn:)
1856 - (self dispose:)
1857 - )
1858 - )
1859 -)
1860 -
1861 -(instance getTheMoon of Script
1862 - (properties)
1863 -
1864 - (method (changeState newState)
1865 - (switch (= state newState)
1866 - (0
1867 - (global1 handsOff:)
1868 - (Load rsVIEW 5319)
1869 - (guardTalker client: archDuke loop: 28)
1870 - (global2 centerScreen: -318 self 10)
1871 - )
1872 - (1
1873 - (moon setScript: 0 cel: 9 setCycle: End)
1874 - (gKQEgo
1875 - view: 5319
1876 - loop: 0
1877 - cel: 0
1878 - x: 463
1879 - y: 101
1880 - setPri: 109
1881 - setScale: 0
1882 - setCycle: CT 9 1 self
1883 - )
1884 - )
1885 - (2
1886 - (gKqSound1 number: 836 loop: -1 play:)
1887 - (gKQEgo cel: 10 setCycle: End self)
1888 - )
1889 - (3
1890 - (gKQEgo view: 5319 loop: 1 cel: 0 setCycle: End self)
1891 - )
1892 - (4
1893 - (gKQEgo view: 5319 loop: 2 cel: 0 setCycle: CT 5 1 self)
1894 - )
1895 - (5
1896 - (gKqSound1 stop:)
1897 - (gKQEgo setCycle: End self)
1898 - )
1899 - (6
1900 - (gKQEgo view: 5319 loop: 3 cel: 0 setCycle: CT 3 1 self)
1901 - )
1902 - (7
1903 - (gKqSound1 number: 836 loop: -1 play:)
1904 - (gKQEgo cel: 4 setCycle: End self)
1905 - )
1906 - (8
1907 - (self setScript: crookFalls)
1908 - (gKQEgo view: 5319 loop: 5 cel: 0 setCycle: CT 4 1 self)
1909 - )
1910 - (9
1911 - (gKqSound1 stop:)
1912 - (gKQEgo setCycle: CT 15 1 self)
1913 - )
1914 - (10
1915 - (gKQEgo setCycle: End self)
1916 - (= local12 1)
1917 - (gKqMusic1 number: 5315 loop: 1 play:)
1918 - (gateGuard
1919 - view: 5328
1920 - setLoop: 2 1
1921 - cel: 0
1922 - init:
1923 - posn: 290 113
1924 - setCycle: Walk
1925 - setSpeed: 4
1926 - setMotion: MoveTo 420 118 gateGuard
1927 - )
1928 - (archDuke
1929 - view: 5319
1930 - loop: 6
1931 - cel: 0
1932 - x: 469
1933 - y: 136
1934 - setPri: 90
1935 - cycleSpeed: 6
1936 - init:
1937 - setScale: 0
1938 - setCycle: CT 29 1 self
1939 - )
1940 - )
1941 - (11
1942 - (archDuke setPri: 100 setCycle: End self)
1943 - )
1944 - (12
1945 - (gKQEgo hide:)
1946 - (archDuke view: 5319 loop: 7 cel: 0 setCycle: End self)
1947 - )
1948 - (13
1949 - (if (gateGuard mover?) (-- state))
1950 - (= cycles 3)
1951 - )
1952 - (14
1953 - (gKqMessager sayRange: 0 0 18 1 2 self)
1954 - )
1955 - (15
1956 - (guardTalker client: gateGuard loop: -1)
1957 - (gKqMessager sayRange: 0 0 18 3 4 self)
1958 - )
1959 - (16
1960 - (= local12 1)
1961 - (gKqMusic1 number: 5316 loop: 1 play: self)
1962 - )
1963 - (17
1964 - (gKQEgo get: 48)
1965 - (proc11_1 126)
1966 - (global2 newRoom: 35)
1967 - )
1968 - )
1969 - )
1970 -)
1971 -
1972 -(instance crookFalls of Script
1973 - (properties)
1974 -
1975 - (method (changeState newState)
1976 - (switch (= state newState)
1977 - (0
1978 - (crook
1979 - view: 5319
1980 - loop: 4
1981 - cel: 0
1982 - x: 425
1983 - y: 93
1984 - setPri: 140
1985 - init:
1986 - setCycle: End self
1987 - )
1988 - )
1989 - (1
1990 - (gKQEgo put: 39)
1991 - (crook dispose:)
1992 - (self dispose:)
1993 - )
1994 - )
1995 - )
1996 -)
1997 -
1998 -(instance talkToChicken of Script
1999 - (properties)
2000 -
2001 - (method (init)
2002 - (proc11_2 539)
2003 - (super init: &rest)
2004 - )
2005 -
2006 - (method (dispose)
2007 - (proc11_2 539)
2008 - (super dispose:)
2009 - )
2010 -
2011 - (method (changeState newState)
2012 - (if (not (proc11_0 539))
2013 - (switch (= state newState)
2014 - (0
2015 - (global1 handsOff: 1)
2016 - (proc11_3 gKQEgo chickenPetite self)
2017 - )
2018 - (1
2019 - (chickenTalker hide_mouth: 0)
2020 - (gKqMessager say: 4 8 14 0 self)
2021 - )
2022 - (2
2023 - (chickenPetite
2024 - setLoop: 6 1
2025 - setCel: 0
2026 - setCycle: Fwd
2027 - ignoreActors: 1
2028 - setMotion: PolyPath 400 (chickenPetite y?) self
2029 - )
2030 - )
2031 - (3
2032 - (gKQEgo setHeading: 180 self)
2033 - )
2034 - (4
2035 - (proc5300_4)
2036 - (global1 handsOn:)
2037 - (self dispose:)
2038 - )
2039 - )
2040 - else
2041 - (gKQEgo normalize: 2)
2042 - (chickenPetite setCycle: 0 setMotion: 0)
2043 - (proc5300_4)
2044 - (global1 handsOn:)
2045 - (self dispose:)
2046 - )
2047 - )
2048 -)
2049 -
2050 -(instance talkToChickenAboutMoon of Script
2051 - (properties)
2052 -
2053 - (method (changeState newState &tmp temp0)
2054 - (switch (= state newState)
2055 - (0
2056 - (global1 handsOff:)
2057 - (gKqMessager say: 4 8 17 1 self)
2058 - )
2059 - (1
2060 - (chickenPetite view: 5311 setLoop: 6 cel: 0 posn: 424 82)
2061 - (UpdateScreenItem chickenPetite)
2062 - (FrameOut)
2063 - (chickenTalker hide_mouth: 0 modeless: 2)
2064 - (= cycles 1)
2065 - )
2066 - (2
2067 - (gKqMessager say: 4 8 17 2 self)
2068 - )
2069 - (3
2070 - (chickenTalker hide_mouth: 1 modeless: 2 loop: -1)
2071 - (chickenPetite setCycle: CT 3 1 self)
2072 - )
2073 - (4
2074 - (chickenPetite setLoop: 2 1 cel: 4 setCycle: Beg self)
2075 - )
2076 - (5
2077 - (gKqMessager say: 4 8 17 3 self)
2078 - )
2079 - (6
2080 - (gKqSound1 number: 5311 loop: 1 play:)
2081 - (chickenPetite
2082 - setCycle: ROsc -1 0 2
2083 - moveSpeed: 8
2084 - setMotion: MoveTo 452 64 self
2085 - )
2086 - )
2087 - (7
2088 - (chickenPetite setCycle: End self)
2089 - )
2090 - (8
2091 - (gKQEgo hide:)
2092 - (chickenPetite
2093 - setLoop: 3
2094 - cel: 0
2095 - setPri: -1
2096 - posn: 459 100
2097 - setCycle: Fwd
2098 - )
2099 - (gKqMessager say: 4 8 17 4 self)
2100 - )
2101 - (9
2102 - (chickenPetite setCycle: End self)
2103 - )
2104 - (10
2105 - (chickenPetite
2106 - setLoop: 4
2107 - cel: 0
2108 - posn: 451 93
2109 - setCycle: End self
2110 - )
2111 - )
2112 - (11
2113 - (gKQEgo show:)
2114 - (= temp0 (- (Abs (gNewPlane_2 left:)) 10))
2115 - (chickenPetite
2116 - setLoop: 0 1
2117 - setCel: 0
2118 - setCycle: Walk
2119 - ignoreActors: 1
2120 - setMotion: PolyPath temp0 (chickenPetite y?) self
2121 - )
2122 - (gKqMessager say: 4 8 17 5 self)
2123 - )
2124 - (12
2125 - (gKQEgo
2126 - normalize: 1
2127 - posn: (chickenPetite approachX?) (chickenPetite approachY?)
2128 - setHeading: 180 self
2129 - )
2130 - )
2131 - (13 0)
2132 - (14
2133 - (proc5300_4)
2134 - (global1 handsOn:)
2135 - (self dispose:)
2136 - )
2137 - )
2138 - )
2139 -)
2140 -
2141 -(instance uncoverCage of Script
2142 - (properties)
2143 -
2144 - (method (changeState newState)
2145 - (switch (= state newState)
2146 - (0
2147 - (global1 handsOff:)
2148 - (proc11_1 138)
2149 - (cageCover dispose:)
2150 - (chinaBird view: 5329 loop: 1 cel: 0 x: 571 y: 97 init:)
2151 - (gKQEgo
2152 - view: 5327
2153 - loop: 0
2154 - cel: 0
2155 - x: 503
2156 - y: 138
2157 - setPri: 119
2158 - setScale: 0
2159 - setCycle: End self
2160 - )
2161 - )
2162 - (1
2163 - (cageCover init:)
2164 - (gKQEgo
2165 - normalize: 2
2166 - posn: (birdCage approachX?) (birdCage approachY?)
2167 - setScaler: Scaler 83 53 98 78
2168 - setHeading: 90
2169 - )
2170 - (chinaBird
2171 - view: 5327
2172 - loop: 1
2173 - cel: 0
2174 - x: 502
2175 - y: 141
2176 - setCycle: End self
2177 - )
2178 - )
2179 - (2
2180 - (global1 handsOn:)
2181 - (self dispose:)
2182 - )
2183 - )
2184 - )
2185 -)
2186 -
2187 -(instance openCageDoor of Script
2188 - (properties)
2189 -
2190 - (method (changeState newState)
2191 - (switch (= state newState)
2192 - (0
2193 - (global1 handsOff:)
2194 - (= gKQEgoX (gKQEgo x?))
2195 - (= gKQEgoY (gKQEgo y?))
2196 - (gKQEgo setHeading: 90 self)
2197 - )
2198 - (1
2199 - (gKQEgo
2200 - view: 5327
2201 - loop: 3
2202 - cel: 0
2203 - x: 535
2204 - y: 123
2205 - setScale: 0
2206 - setCycle: CT 5 1 self
2207 - )
2208 - )
2209 - (2
2210 - (gKqSound1 number: 5330 loop: 1 play:)
2211 - (cageDoor setCycle: End)
2212 - (gKQEgo setCycle: CT 9 1 self)
2213 - )
2214 - (3 (gKQEgo setCycle: Beg self))
2215 - (4
2216 - (gKQEgo
2217 - normalize: 0
2218 - posn: gKQEgoX gKQEgoY
2219 - setScaler: Scaler 83 53 98 78
2220 - )
2221 - (global1 handsOn:)
2222 - (self dispose:)
2223 - )
2224 - )
2225 - )
2226 -)
2227 -
2228 -(instance getTheChinaBird of Script
2229 - (properties)
2230 -
2231 - (method (changeState newState)
2232 - (switch (= state newState)
2233 - (0
2234 - (global1 handsOff:)
2235 - (= gKQEgoX (gKQEgo x?))
2236 - (= gKQEgoY (gKQEgo y?))
2237 - (gKQEgo setHeading: 90 self)
2238 - )
2239 - (1
2240 - (gKqMessager say: 7 8 28 0 self)
2241 - )
2242 - (2
2243 - (gKQEgo
2244 - view: 5327
2245 - loop: 3
2246 - cel: 0
2247 - x: 535
2248 - y: 123
2249 - setScale: 0
2250 - setCycle: End self
2251 - )
2252 - )
2253 - (3
2254 - (gKQEgo hide:)
2255 - (chinaBird
2256 - view: 5327
2257 - loop: 4
2258 - cel: 1
2259 - x: 557
2260 - y: 114
2261 - setPri: 123
2262 - setCycle: End self
2263 - )
2264 - )
2265 - (4
2266 - (chinaBird dispose:)
2267 - (gKQEgo get: 42)
2268 - (birdCage dispose:)
2269 - (gKQEgo
2270 - show:
2271 - posn: gKQEgoX gKQEgoY
2272 - normalize: 4
2273 - setScaler: Scaler 83 53 98 78
2274 - )
2275 - (global1 handsOn:)
2276 - (self dispose:)
2277 - )
2278 - )
2279 - )
2280 -)
2281 -
2282 -(instance tryGetBird of Script
2283 - (properties)
2284 -
2285 - (method (changeState newState)
2286 - (switch (= state newState)
2287 - (0
2288 - (global1 handsOff:)
2289 - (gKQEgo setPri: 119 setHeading: 90 self)
2290 - )
2291 - (1
2292 - (cond
2293 - ((not (proc11_1 118)) (self setScript: firstAttemptToGetBird self))
2294 - ((not (proc11_1 119)) (self setScript: secondAttemptToGetBird self))
2295 - )
2296 - )
2297 - (2
2298 - (gKQEgo setHeading: 180 self)
2299 - )
2300 - (3
2301 - (global1 handsOn:)
2302 - (self dispose:)
2303 - )
2304 - )
2305 - )
2306 -)
2307 -
2308 -(instance firstAttemptToGetBird of Script
2309 - (properties)
2310 -
2311 - (method (changeState newState)
2312 - (switch (= state newState)
2313 - (0
2314 - (global1 handsOff:)
2315 - (= gKQEgoX (gKQEgo x?))
2316 - (= gKQEgoY (gKQEgo y?))
2317 - (gKqMessager sayRange: 7 8 29 1 3 self)
2318 - )
2319 - (1
2320 - (gKQEgo
2321 - setScale: 0
2322 - view: 5329
2323 - loop: 0
2324 - cel: 0
2325 - x: 550
2326 - y: 109
2327 - setCycle: End self
2328 - )
2329 - )
2330 - (2
2331 - (chinaBird
2332 - view: 5329
2333 - loop: 1
2334 - cel: 0
2335 - x: 571
2336 - y: 97
2337 - setCycle: End self
2338 - )
2339 - )
2340 - (3
2341 - (chinaBirdTalker hide_mouth: 1)
2342 - (gKqMessager say: 7 8 29 4 self)
2343 - )
2344 - (4
2345 - (snakeSalesman hide:)
2346 - (= seconds 2)
2347 - )
2348 - (5
2349 - (chinaBirdTalker hide_mouth: 0)
2350 - (snakeSalesman
2351 - setScript: 0
2352 - view: 5329
2353 - loop: 2
2354 - cel: 0
2355 - x: 522
2356 - y: 96
2357 - setPri: 88
2358 - show:
2359 - setCycle: CT 6 1 self
2360 - )
2361 - )
2362 - (6
2363 - (snakeSalesman setPri: 121 setCycle: End self)
2364 - )
2365 - (7
2366 - (gKqMessager say: 7 8 29 5 self)
2367 - )
2368 - (8
2369 - (proc11_2 138)
2370 - (snakeSalesman
2371 - view: 5329
2372 - loop: 3
2373 - cel: 0
2374 - x: 519
2375 - y: 105
2376 - setCycle: CT 2 1 self
2377 - )
2378 - )
2379 - (9
2380 - (cageCover dispose:)
2381 - (snakeSalesman cel: 3 setCycle: CT 10 1 self)
2382 - )
2383 - (10
2384 - (gKqSound1 number: 5331 loop: 1 play:)
2385 - (cageDoor cel: (cageDoor lastCel:) setCycle: Beg self)
2386 - (snakeSalesman setCycle: CT 24 1 self)
2387 - )
2388 - (11
2389 - (cageCover init:)
2390 - (snakeSalesman cel: 25 setCycle: End self)
2391 - (chinaBird setCycle: Beg)
2392 - )
2393 - (12
2394 - (snakeSalesman
2395 - view: 5329
2396 - setLoop: 8
2397 - cel: 4
2398 - posn: 554 108
2399 - setCycle: CT 13 1 self
2400 - )
2401 - )
2402 - (13
2403 - (snakeSalesman setPri: 80 setCycle: End self)
2404 - )
2405 - (14
2406 - (snakeSalesman hide:)
2407 - (= seconds 2)
2408 - )
2409 - (15
2410 - (snakeSalesman
2411 - view: 5323
2412 - loop: 1
2413 - cel: 0
2414 - posn: 531 90
2415 - setPri: 90
2416 - show:
2417 - setScript: keepSalesmanBusy
2418 - )
2419 - (gKQEgo
2420 - posn: gKQEgoX gKQEgoY
2421 - normalize:
2422 - setScaler: Scaler 83 53 98 78
2423 - )
2424 - (self dispose:)
2425 - )
2426 - )
2427 - )
2428 -)
2429 -
2430 -(instance secondAttemptToGetBird of Script
2431 - (properties)
2432 -
2433 - (method (changeState newState)
2434 - (switch (= state newState)
2435 - (0
2436 - (global1 handsOff:)
2437 - (= gKQEgoX (gKQEgo x?))
2438 - (= gKQEgoY (gKQEgo y?))
2439 - (gKQEgo
2440 - setScale: 0
2441 - view: 5329
2442 - loop: 0
2443 - cel: 0
2444 - x: 550
2445 - y: 109
2446 - setCycle: End self
2447 - )
2448 - )
2449 - (1
2450 - (chinaBird
2451 - view: 5329
2452 - loop: 1
2453 - cel: 0
2454 - x: 571
2455 - y: 97
2456 - setCycle: End self
2457 - )
2458 - )
2459 - (2
2460 - (chinaBirdTalker hide_mouth: 1)
2461 - (gKqMessager say: 7 8 31 1 self)
2462 - )
2463 - (3
2464 - (snakeSalesman hide:)
2465 - (= seconds 2)
2466 - )
2467 - (4
2468 - (chinaBirdTalker hide_mouth: 0)
2469 - (snakeSalesman
2470 - setScript: 0
2471 - view: 5329
2472 - loop: 2
2473 - cel: 0
2474 - x: 522
2475 - y: 96
2476 - setPri: 88
2477 - show:
2478 - setCycle: CT 6 1 self
2479 - )
2480 - )
2481 - (5
2482 - (snakeSalesman setPri: 121 setCycle: End self)
2483 - )
2484 - (6
2485 - (gKqMessager say: 7 8 31 2 self)
2486 - )
2487 - (7
2488 - (proc11_2 138)
2489 - (snakeSalesman
2490 - view: 5329
2491 - loop: 3
2492 - cel: 0
2493 - x: 519
2494 - y: 105
2495 - setCycle: CT 2 1 self
2496 - )
2497 - )
2498 - (8
2499 - (cageCover dispose:)
2500 - (snakeSalesman cel: 3 setCycle: CT 10 1 self)
2501 - )
2502 - (9
2503 - (gKqSound1 number: 5331 loop: 1 play:)
2504 - (cageDoor cel: (cageDoor lastCel:) setCycle: Beg self)
2505 - (snakeSalesman setCycle: CT 24 1 self)
2506 - )
2507 - (10
2508 - (cageCover init:)
2509 - (snakeSalesman cel: 25 setCycle: End self)
2510 - )
2511 - (11
2512 - (snakeSalesman
2513 - view: 5329
2514 - setLoop: 8
2515 - cel: 4
2516 - posn: 554 108
2517 - setCycle: CT 13 1 self
2518 - )
2519 - )
2520 - (12
2521 - (snakeSalesman setPri: 80 setCycle: End self)
2522 - )
2523 - (13
2524 - (snakeSalesman
2525 - view: 5323
2526 - loop: 1
2527 - cel: 0
2528 - posn: 531 90
2529 - setPri: 90
2530 - setScript: keepSalesmanBusy
2531 - )
2532 - (gKQEgo
2533 - posn: gKQEgoX gKQEgoY
2534 - normalize:
2535 - setScaler: Scaler 83 53 98 78
2536 - )
2537 - (self dispose:)
2538 - )
2539 - )
2540 - )
2541 -)
2542 -
2543 -(instance takeBird of Script
2544 - (properties)
2545 -
2546 - (method (changeState newState)
2547 - (switch (= state newState)
2548 - (0
2549 - (global1 handsOff:)
2550 - (= gKQEgoX (gKQEgo x?))
2551 - (= gKQEgoY (gKQEgo y?))
2552 - (gKQEgo
2553 - setScale: 0
2554 - view: 5329
2555 - loop: 0
2556 - cel: 0
2557 - x: 550
2558 - y: 109
2559 - setCycle: End self
2560 - )
2561 - )
2562 - (1
2563 - (chinaBird
2564 - view: 5329
2565 - loop: 1
2566 - cel: 0
2567 - x: 571
2568 - y: 97
2569 - setCycle: End self
2570 - )
2571 - )
2572 - (2
2573 - (chinaBirdTalker hide_mouth: 1)
2574 - (gKqMessager say: 7 8 32 1 self)
2575 - )
2576 - (3
2577 - (chinaBirdTalker hide_mouth: 0)
2578 - (snakeSalesman
2579 - setScript: 0
2580 - view: 5329
2581 - loop: 2
2582 - cel: 0
2583 - x: 522
2584 - y: 96
2585 - setPri: 88
2586 - setCycle: CT 6 1 self
2587 - )
2588 - )
2589 - (4
2590 - (snakeSalesman setPri: 121 setCycle: End self)
2591 - )
2592 - (5
2593 - (proc11_2 138)
2594 - (snakeSalesman
2595 - view: 5329
2596 - loop: 3
2597 - cel: 0
2598 - x: 519
2599 - y: 105
2600 - setCycle: CT 2 1 self
2601 - )
2602 - )
2603 - (6
2604 - (cageCover dispose:)
2605 - (snakeSalesman cel: 3 setCycle: CT 10 1 self)
2606 - )
2607 - (7
2608 - (gKqSound1 number: 5331 loop: 1 play:)
2609 - (cageDoor cel: (cageDoor lastCel:) setCycle: Beg self)
2610 - (snakeSalesman setCycle: CT 24 1 self)
2611 - )
2612 - (8
2613 - (cageCover init:)
2614 - (snakeSalesman cel: 25 setCycle: End self)
2615 - )
2616 - (9
2617 - (snakeTalker hide_mouth: 1 clientCel: -2)
2618 - (gKqMessager say: 7 8 32 2 self)
2619 - )
2620 - (10
2621 - (gKQEgo hide:)
2622 - (snakeSalesman
2623 - view: 5329
2624 - loop: 5
2625 - cel: 0
2626 - x: 552
2627 - y: 112
2628 - setCycle: CT 14 1 self
2629 - )
2630 - )
2631 - (11
2632 - (gKqSound1 number: 831 loop: 1 play:)
2633 - (snakeSalesman setCycle: End self)
2634 - )
2635 - (12
2636 - (snakeSalesman
2637 - view: 5329
2638 - loop: 6
2639 - cel: 0
2640 - x: 576
2641 - y: 113
2642 - setCycle: CT 11 1 self
2643 - )
2644 - )
2645 - (13
2646 - (gKqSound1 number: 825 loop: 1 play:)
2647 - (snakeSalesman setCycle: CT 34 1 self)
2648 - )
2649 - (14
2650 - (snakeTalker hide_mouth: 1)
2651 - (gKqMessager say: 7 8 32 3 self)
2652 - )
2653 - (15
2654 - (snakeTalker hide_mouth: 0)
2655 - (snakeSalesman setCycle: End self)
2656 - )
2657 - (16 (proc11_5 45 self))
2658 - (17
2659 - (snakeSalesman
2660 - view: 5323
2661 - loop: 1
2662 - cel: 0
2663 - posn: 531 90
2664 - setPri: 90
2665 - setScript: keepSalesmanBusy
2666 - )
2667 - (gKQEgo
2668 - show:
2669 - normalize:
2670 - posn: gKQEgoX gKQEgoY
2671 - setScaler: Scaler 83 53 98 78
2672 - )
2673 - (gKQEgo setHeading: 180 self)
2674 - )
2675 - (18
2676 - (global1 handsOn:)
2677 - (self dispose:)
2678 - )
2679 - )
2680 - )
2681 -)
2682 -
2683 -(instance giveStatue of Script
2684 - (properties)
2685 -
2686 - (method (changeState newState)
2687 - (switch (= state newState)
2688 - (0
2689 - (global1 handsOff:)
2690 - (gKqMessager say: 6 61 0 1 self)
2691 - )
2692 - (1
2693 - (if (snakeSalesman script?)
2694 - (keepSalesmanBusy caller: self register: 1)
2695 - else
2696 - (= cycles 1)
2697 - )
2698 - )
2699 - (2
2700 - (snakeSalesman hide:)
2701 - (wagon dispose:)
2702 - (gKQEgo
2703 - view: 5338
2704 - setLoop: 1 1
2705 - cel: 0
2706 - posn: 515 107
2707 - setScale: 0
2708 - setCycle: CT 9 1 self
2709 - )
2710 - )
2711 - (3
2712 - (proc11_1 204)
2713 - (gKQEgo put: 47 setCycle: CT 11 1 self)
2714 - )
2715 - (4
2716 - (gKQEgo
2717 - normalize: 6
2718 - posn: 494 108
2719 - setScaler: Scaler 83 53 98 78
2720 - )
2721 - (snakeSalesman
2722 - view: 5338
2723 - setLoop: 1 1
2724 - posn: 515 107
2725 - cel: 12
2726 - show:
2727 - setPri: 110
2728 - setCycle: End self
2729 - )
2730 - )
2731 - (5
2732 - (snakeSalesman setLoop: 2 1 cel: 0 setCycle: End self)
2733 - )
2734 - (6
2735 - (snakeSalesman setLoop: 3 1 cel: 0 setCycle: CT 6 1 self)
2736 - (gKQEgo view: 8075 setLoop: 0 1 cel: 0 setCycle: End self)
2737 - )
2738 - (7 0)
2739 - (8
2740 - (snakeSalesman setCycle: End self)
2741 - (gKQEgo setCycle: Beg self)
2742 - )
2743 - (9
2744 - (gKQEgo normalize: 6 posn: 494 108)
2745 - ((ScriptID 13 0)
2746 - client: gKQEgo
2747 - view: -1
2748 - loop: -1
2749 - clientCel: -2
2750 - )
2751 - (snakeTalker view: 5338 loop: 24 clientCel: -2)
2752 - (gKqMessager sayRange: 6 61 0 2 6 self)
2753 - )
2754 - (10
2755 - (gKqSound1 number: 5333 loop: 1 play:)
2756 - (snakeSalesman setLoop: 4 1 cel: 0 setCycle: End self)
2757 - )
2758 - (11
2759 - (gKqSound1 stop:)
2760 - (curtain init:)
2761 - (= local11 0)
2762 - (gKQEgo get: 65)
2763 - (proc11_1 198)
2764 - (= cycles 1)
2765 - )
2766 - (12
2767 - (gKQEgo setHeading: 180 self)
2768 - )
2769 - (13
2770 - (global1 handsOn:)
2771 - (self dispose:)
2772 - )
2773 - )
2774 - )
2775 -)
2776 -
2777 -(instance knockOnTownHallDoor of Script
2778 - (properties)
2779 -
2780 - (method (changeState newState)
2781 - (switch (= state newState)
2782 - (0
2783 - (global1 handsOff:)
2784 - (Load rsVIEW 5305)
2785 - (Load rsVIEW 5306)
2786 - (= cycles 1)
2787 - )
2788 - (1
2789 - (gKQEgo
2790 - view: 5306
2791 - loop: 0
2792 - cel: 0
2793 - posn: 231 104
2794 - setScale: 0
2795 - setCycle: CT 2 1 self
2796 - )
2797 - (gKqSound1 number: 808 loop: 1 play:)
2798 - )
2799 - (2
2800 - (gKqSound1 number: 808 loop: 1 play:)
2801 - (gKQEgo setCycle: CT 4 1 self)
2802 - )
2803 - (3
2804 - (gKqSound1 number: 801 setLoop: 1 play:)
2805 - (townHallDoor setCycle: CT 4 1 self)
2806 - )
2807 - (4
2808 - (if (not (proc11_0 421))
2809 - (gKQEgo
2810 - view: 5306
2811 - setLoop: 3
2812 - cel: 0
2813 - posn: 236 100
2814 - setCycle: End
2815 - )
2816 - else
2817 - (gKQEgo normalize: 7 setScaler: Scaler 83 53 98 78)
2818 - )
2819 - (badger
2820 - view: 5306
2821 - setLoop: 2
2822 - cel: 0
2823 - posn: 226 97
2824 - setPri: 86
2825 - init:
2826 - setCycle: End self
2827 - )
2828 - )
2829 - (5
2830 - (cond
2831 - ((not (proc11_1 421)) (self setScript: firstDoorKnock self))
2832 - ((not (proc11_1 420)) (gKqMessager say: 3 8 9 0 self))
2833 - (else (gKqMessager say: 3 8 10 0 self))
2834 - )
2835 - )
2836 - (6
2837 - (badger
2838 - view: 5305
2839 - setLoop: 3
2840 - posn: 217 93
2841 - cel: 0
2842 - setCycle: End self
2843 - )
2844 - )
2845 - (7
2846 - (badger dispose:)
2847 - (townHallDoor setCycle: Beg self)
2848 - )
2849 - (8
2850 - (gKqSound1 number: 802 setLoop: 1 play:)
2851 - (global1 handsOn:)
2852 - (self dispose:)
2853 - )
2854 - )
2855 - )
2856 -)
2857 -
2858 -(instance firstDoorKnock of Script
2859 - (properties)
2860 -
2861 - (method (changeState newState)
2862 - (switch (= state newState)
2863 - (0
2864 - (gKqMessager say: 3 8 8 1 self)
2865 - )
2866 - (1 (gKQEgo setCycle: Beg self))
2867 - (2
2868 - (gKQEgo
2869 - normalize: 7
2870 - posn: (townHallDoor approachX?) (townHallDoor approachY?)
2871 - setScaler: Scaler 83 53 98 78
2872 - )
2873 - (UpdateScreenItem gKQEgo)
2874 - (FrameOut)
2875 - (= cycles 2)
2876 - )
2877 - (3
2878 - (gKqMessager sayRange: 3 8 8 2 3 self)
2879 - )
2880 - (4 (self dispose:))
2881 - )
2882 - )
2883 -)
2884 -
2885 -(instance escortedOutOfTownHall of Script
2886 - (properties)
2887 -
2888 - (method (changeState newState)
2889 - (switch (= state newState)
2890 - (0
2891 - (global1 handsOff:)
2892 - (townHallDoor cel: 4 setPri: 10)
2893 - (badger
2894 - view: 5306
2895 - loop: 2
2896 - cel: 0
2897 - x: 226
2898 - y: 98
2899 - priority: 83
2900 - fixPriority: 1
2901 - init:
2902 - setCycle: End self
2903 - )
2904 - (gKQEgo
2905 - normalize: 4
2906 - posn: 220 97
2907 - setMotion: MoveTo 240 103 self
2908 - )
2909 - )
2910 - (1 (proc11_3 gKQEgo badger))
2911 - (2
2912 - (badger
2913 - view: 5305
2914 - setLoop: 3
2915 - posn: 217 93
2916 - cel: 0
2917 - setCycle: End self
2918 - )
2919 - )
2920 - (3
2921 - (badger dispose:)
2922 - (townHallDoor setCycle: Beg self)
2923 - )
2924 - (4
2925 - (gKqSound1 number: 802 loop: 1 play:)
2926 - (gKQEgo setHeading: 180 self)
2927 - )
2928 - (5
2929 - (global1 handsOn:)
2930 - (self dispose:)
2931 - )
2932 - )
2933 - )
2934 -)
2935 -
2936 -(instance enterTownHall of Script
2937 - (properties)
2938 -
2939 - (method (changeState newState)
2940 - (switch (= state newState)
2941 - (0
2942 - (global1 handsOff:)
2943 - (gKQEgo
2944 - posn: 232 100
2945 - view: 5307
2946 - setLoop: 0
2947 - setCel: 0
2948 - cycleSpeed: 6
2949 - setScale: 0
2950 - )
2951 - (UpdateScreenItem gKQEgo)
2952 - (FrameOut)
2953 - (gKqSound1 number: 808 loop: 1 play: self)
2954 - )
2955 - (1
2956 - (gKQEgo setCycle: CT 2 1 self)
2957 - )
2958 - (2 (gKQEgo setCycle: Beg self))
2959 - (3
2960 - (gKqSound1 play:)
2961 - (gKQEgo setCycle: CT 2 1 self)
2962 - )
2963 - (4 (gKQEgo setCycle: Beg self))
2964 - (5
2965 - (gKqSound1 play:)
2966 - (gKQEgo setCycle: CT 3 1 self)
2967 - )
2968 - (6
2969 - (gKqSound1 number: 801 loop: 1 play:)
2970 - (townHallDoor setPri: 80 setCycle: CT 4 1 self)
2971 - )
2972 - (7
2973 - (badger
2974 - view: 5306
2975 - loop: 2
2976 - cel: 0
2977 - x: 226
2978 - y: 98
2979 - priority: 83
2980 - fixPriority: 1
2981 - init:
2982 - setCycle: End self
2983 - )
2984 - )
2985 - (8
2986 - (gKQEgo
2987 - cel: 5
2988 - posn: 221 103
2989 - setPri: 83
2990 - setCycle: CT 6 1 self
2991 - )
2992 - )
2993 - (9
2994 - (badger hide:)
2995 - (gKQEgo cel: 7 setCycle: End self)
2996 - )
2997 - (10
2998 - (guardTalker client: gKQEgo)
2999 - (gKqMessager say: 3 8 11 0 self)
3000 - )
3001 - (11
3002 - (gKQEgo
3003 - posn: 240 101
3004 - setLoop: 1
3005 - setCel: 0
3006 - setCycle: End self
3007 - )
3008 - )
3009 - (12
3010 - (gKQEgo
3011 - posn: 242 100
3012 - setLoop: 2
3013 - setCel: 0
3014 - setCycle: CT 12 1 self
3015 - )
3016 - )
3017 - (13
3018 - (gKQEgo setPri: 88 setCycle: End self)
3019 - )
3020 - (14 (global2 newRoom: 5100))
3021 - )
3022 - )
3023 -)
3024 -
3025 -(instance dukeStopsVal of Script
3026 - (properties)
3027 -
3028 - (method (changeState newState)
3029 - (switch (= state newState)
3030 - (0
3031 - (global1 handsOff:)
3032 - (= local0 1)
3033 - (proc11_3 gKQEgo archDuke)
3034 - (archDuke
3035 - posn: 160 111
3036 - setLoop: 4
3037 - setCel: 0
3038 - setCycle: End self
3039 - )
3040 - )
3041 - (1
3042 - (archTalker modeless: 2)
3043 - (gKqMessager say: 0 0 2 0 self)
3044 - (self setScript: egoBackOff self)
3045 - )
3046 - (2 0)
3047 - (3
3048 - (archTalker modeless: 1)
3049 - (archDuke setCycle: Beg self)
3050 - )
3051 - (4
3052 - (archDuke posn: 225 112 setLoop: 2)
3053 - (global1 handsOn:)
3054 - (self dispose:)
3055 - )
3056 - )
3057 - )
3058 -)
3059 -
3060 -(instance egoBackOff of Script
3061 - (properties)
3062 -
3063 - (method (changeState newState)
3064 - (switch (= state newState)
3065 - (0
3066 - (gKQEgo
3067 - view: 5301
3068 - setLoop: 5
3069 - setCel: 0
3070 - setScale: 0
3071 - setCycle: End self
3072 - )
3073 - )
3074 - (1
3075 - (gKQEgo normalize: 0 setScaler: Scaler 83 53 98 78)
3076 - (self dispose:)
3077 - )
3078 - )
3079 - )
3080 -)
3081 -
3082 -(instance fromAssembly of Script
3083 - (properties)
3084 -
3085 - (method (changeState newState)
3086 - (= cycles 0)
3087 - (switch (= state newState)
3088 - (0
3089 - (global1 handsOff:)
3090 - (= cycles 4)
3091 - )
3092 - (1
3093 - (gKQEgo
3094 - setLoop: (gKQEgo loop?) 1
3095 - setMotion: MoveTo 229 99 self
3096 - )
3097 - )
3098 - (2
3099 - (townHallDoor setCycle: Beg self)
3100 - )
3101 - (3
3102 - (gKqSound1 number: 802 loop: 1 play:)
3103 - (gKQEgo setHeading: 225 self)
3104 - )
3105 - (4
3106 - (if (== global122 3)
3107 - (self setScript: removeValsMask self)
3108 - else
3109 - (= cycles 1)
3110 - )
3111 - )
3112 - (5
3113 - (gKQEgo normalize: 5 setScaler: Scaler 83 53 98 78)
3114 - (gKQEgo setHeading: 180 self)
3115 - )
3116 - (6
3117 - (if (not next) (global1 handsOn:))
3118 - (self dispose:)
3119 - )
3120 - )
3121 - )
3122 -)
3123 -
3124 -(instance removeValsMask of Script
3125 - (properties)
3126 -
3127 - (method (changeState newState)
3128 - (switch (= state newState)
3129 - (0
3130 - (gKQEgo
3131 - view: 5309
3132 - setLoop: 0
3133 - setCel: 21
3134 - setScale: 0
3135 - cycleSpeed: 6
3136 - setCycle: Beg self
3137 - )
3138 - )
3139 - (1
3140 - (gKQEgo setLoop: 2 cel: 27 setCycle: Beg self)
3141 - )
3142 - (2
3143 - (gKQEgo get: 43)
3144 - (proc11_2 137)
3145 - (self dispose:)
3146 - )
3147 - )
3148 - )
3149 -)
3150 -
3151 -(instance putOnMask of Script
3152 - (properties)
3153 -
3154 - (method (dispose)
3155 - (if (gOldWalkHandler contains: self)
3156 - (gOldWalkHandler delete: self)
3157 - (global73 delete: self)
3158 - )
3159 - (super dispose:)
3160 - )
3161 -
3162 - (method (changeState newState)
3163 - (switch (= state newState)
3164 - (0
3165 - (global1 handsOff:)
3166 - (global1 handsOff:)
3167 - (gKQEgo setMotion: PolyPath 237 98 self)
3168 - )
3169 - (1
3170 - (gKQEgo
3171 - view: 5309
3172 - setLoop: 2
3173 - setCel: 0
3174 - setScale: 0
3175 - cycleSpeed: 6
3176 - setCycle: End self
3177 - )
3178 - )
3179 - (2
3180 - (gKQEgo
3181 - view: 5309
3182 - setLoop: 0 1
3183 - setCel: 0
3184 - setCycle: End self
3185 - )
3186 - (proc11_1 137)
3187 - (gKQEgo put: 43)
3188 - )
3189 - (3
3190 - (gOldWalkHandler add: self)
3191 - (global73 add: self)
3192 - (global1 handsOn:)
3193 - )
3194 - (4
3195 - (global1 handsOff:)
3196 - (gOldWalkHandler delete: self)
3197 - (global73 delete: self)
3198 - (gKQEgo
3199 - view: 5309
3200 - setLoop: 0
3201 - setCel: 21
3202 - setScale: 0
3203 - setCycle: Beg self
3204 - )
3205 - (proc11_2 137)
3206 - (gKQEgo get: 43)
3207 - )
3208 - (5
3209 - (gKQEgo setLoop: 3 cel: 0 setCycle: End self)
3210 - )
3211 - (6
3212 - (global1 handsOn:)
3213 - (gKQEgo normalize: 5 setScaler: Scaler 83 53 98 78)
3214 - (self dispose:)
3215 - )
3216 - )
3217 +(instance townHallDoor of Prop
3218 + (properties
3219 + heading 90
3220 + noun 3
3221 + sightAngle 15
3222 + approachX 239
3223 + approachY 100
3224 + x 231
3225 + y 90
3226 + priority 85
3227 + fixPriority 1
3228 + view 5302
3229 + loop 4
3230 )
3231
3232 - (method (handleEvent pEvent &tmp temp0)
3233 + (method (init)
3234 + (super init:)
3235 (if
3236 (or
3237 - (and
3238 - (& (pEvent type?) evMOUSEBUTTON)
3239 - (= temp0 1)
3240 - (or (pEvent localize: gNewPlane_2) 1)
3241 - (gNewPlane_2 onMe: pEvent)
3242 - (not (townHallDoor onMe: pEvent))
3243 - )
3244 - (& (pEvent type?) evMOVE)
3245 - )
3246 - (pEvent claimed: 1)
3247 - (self changeState: 4)
3248 - )
3249 - (if temp0 (pEvent globalize:))
3250 - (pEvent claimed?)
3251 - )
3252 -)
3253 -
3254 -(instance chickenTimerScript of Script
3255 - (properties)
3256 -
3257 - (method (dispose)
3258 - (gOldWalkHandler delete: self)
3259 - (global73 delete: self)
3260 - (chickenPetite setHotspot: 8 10)
3261 - (super dispose:)
3262 - )
3263 -
3264 - (method (changeState newState)
3265 - (switch (= state newState)
3266 - (0
3267 - (gOldWalkHandler add: self)
3268 - (global73 add: self)
3269 - (chickenPetite setHotspot: 8 10)
3270 - (= seconds (+ register 1))
3271 - )
3272 - (1
3273 - (chickenPetite setHotspot: 0)
3274 - (global2 setScript: chickenRunsOff)
3275 - (self dispose:)
3276 + (and (== global122 3) (not local0))
3277 + (and (== global122 5) (proc11_0 203))
3278 )
3279 + (= loop 3)
3280 )
3281 - )
3282 -
3283 - (method (handleEvent pEvent &tmp temp0 temp1)
3284 - (= temp1 0)
3285 - (if
3286 - (and
3287 - (& (pEvent type?) evMOUSEBUTTON)
3288 - (= temp1 1)
3289 - (or (pEvent localize: gNewPlane_2) 1)
3290 - (chickenPetite onMe: pEvent)
3291 - )
3292 - (pEvent globalize:)
3293 - (self dispose:)
3294 - (return 0)
3295 + (if (not (proc11_0 110))
3296 + (= cel 4)
3297 + else
3298 + (self setHotspot: 8 10)
3299 )
3300 - (if temp1 (pEvent globalize:))
3301 - (if
3302 - (and
3303 - (gNewPlane_2 onMe: pEvent)
3304 - (or
3305 - (& (pEvent type?) evMOVE)
3306 - (& (pEvent type?) evMOUSEBUTTON)
3307 + (self
3308 + approachVerbs: 8
3309 + setPolygon:
3310 + ((Polygon new:)
3311 + type: 0
3312 + init: 211 98 206 67 206 52 212 45 220 44 227 47 231 55 233 70 235 91
3313 + yourself:
3314 )
3315 - )
3316 - (pEvent claimed: 1)
3317 - (self seconds: 0 cycles: 1)
3318 )
3319 - (return (pEvent claimed?))
3320 )
3321 -)
3322 -
3323 -(instance enterChinaShop of Script
3324 - (properties)
3325
3326 - (method (changeState newState)
3327 - (switch (= state newState)
3328 - (0
3329 - (global1 handsOff:)
3330 - (if (!= global104 -3)
3331 - (gKQEgo
3332 - view: 8123
3333 - setLoop: 1 1
3334 - cel: 0
3335 - setCycle: CT 14 1 self
3336 + (method (doVerb theVerb)
3337 + (return
3338 + (if
3339 + (and (> global122 3) (== noun 3) (== theVerb 8))
3340 + (global2
3341 + setScript: (ScriptID 5302 32) 0 (== global122 5)
3342 + )
3343 + else
3344 + (if (and (== global122 5) (== noun 2))
3345 + (global2 setScript: (ScriptID 5302 31))
3346 + (return 1)
3347 + )
3348 + (cond
3349 + (
3350 + (and
3351 + (not (proc11_0 137))
3352 + (or
3353 + (and (== loop 3) (not (proc11_0 449)))
3354 + (== noun 2)
3355 + )
3356 + )
3357 + ((ScriptID 13 0) hide_mouth: 1)
3358 + (gKqMessager say: 2 theVerb 7 0 self)
3359 + (proc11_1 449)
3360 )
3361 - else
3362 - (= cycles 1)
3363 + ((== global104 -3) (global2 newRoom: 5100))
3364 + ((!= global122 3) (global2 newRoom: 5100))
3365 + ((proc11_0 137) (global2 setScript: (ScriptID 5302 16)))
3366 + (else (global2 setScript: (ScriptID 5302 1)))
3367 )
3368 )
3369 - (1
3370 - (gKqSound1 number: 801 setLoop: 1 play:)
3371 - (chinaDoor setCycle: End self)
3372 - )
3373 - (2 (global2 newRoom: 5050))
3374 )
3375 )
3376 -)
3377 -
3378 -(instance getWoodenNickel of Script
3379 - (properties)
3380
3381 - (method (changeState newState)
3382 - (switch (= state newState)
3383 - (0
3384 - (global1 handsOff:)
3385 - (gKQEgo
3386 - view: 5317
3387 - loop: 0
3388 - cel: 0
3389 - x: 371
3390 - y: 89
3391 - setScale: 0
3392 - cycleSpeed: 6
3393 - setPri: 108
3394 - setCycle: End self
3395 + (method (onMe param1 &tmp temp0 temp1 temp2)
3396 + (= temp0 (super onMe: param1))
3397 + (= temp1 (- (param1 x?) nsLeft))
3398 + (= temp2 (- (param1 y?) nsTop))
3399 + (if
3400 + (and
3401 + (== loop 3)
3402 + (not (proc11_0 137))
3403 + (or
3404 + (and
3405 + (proc64999_5 temp1 9 10)
3406 + (<= 24 temp2)
3407 + (<= temp2 34)
3408 + )
3409 + (and
3410 + (<= 10 temp1)
3411 + (<= temp1 18)
3412 + (proc64999_5 temp2 23 24)
3413 + )
3414 + (and
3415 + (proc64999_5 temp1 18 19)
3416 + (<= 24 temp2)
3417 + (<= temp2 34)
3418 + )
3419 + (and
3420 + (<= 10 temp1)
3421 + (<= temp1 18)
3422 + (proc64999_5 temp2 34 35)
3423 + )
3424 )
3425 )
3426 - (1
3427 - (gKQEgo
3428 - loop: 1
3429 - cel: 0
3430 - posn: 372 82
3431 - setPri: 150
3432 - setCycle: CT 6 1 self
3433 + (return 0)
3434 + )
3435 + (if (and temp0 (param1 type?))
3436 + (if
3437 + (and
3438 + (== loop 3)
3439 + (not (proc11_0 137))
3440 + (<= 10 temp1)
3441 + (<= temp1 18)
3442 + (<= 24 temp2)
3443 + (<= temp2 34)
3444 )
3445 - )
3446 - (2
3447 - (nickel dispose:)
3448 - (gKQEgo get: 44)
3449 - (gKQEgo setCycle: End self)
3450 - )
3451 - (3
3452 - (gKQEgo setCycle: CT 7 -1 self)
3453 - )
3454 - (4
3455 - (gKQEgo
3456 - loop: 0
3457 - cel: 15
3458 - x: 371
3459 - y: 89
3460 - setPri: -1
3461 - setCycle: Beg self
3462 + (if (proc11_0 137) (return 0))
3463 + (= noun 2)
3464 + (if (not (proc11_0 137))
3465 + (= approachX 239)
3466 + (= approachY 100)
3467 + else
3468 + (= approachX (gKQEgo x?))
3469 + (= approachY (gKQEgo y?))
3470 )
3471 - )
3472 - (5
3473 - (gKQEgo
3474 - normalize: 5
3475 - posn: (nickel approachX?) (nickel approachY?)
3476 - setScaler: Scaler 83 53 98 78
3477 - setHeading: 180 self
3478 + else
3479 + (= noun 3)
3480 + (if
3481 + (and (== global122 5) (== (global80 message?) 8))
3482 + (= approachX 226)
3483 + (= approachY 102)
3484 + else
3485 + (if (or (!= global122 3) (proc11_0 449))
3486 + (= approachX 232)
3487 + (= approachY 103)
3488 + )
3489 + (if (proc11_0 137) (= approachX 237) (= approachY 98))
3490 )
3491 )
3492 - (6
3493 - (global1 handsOn:)
3494 - (self dispose:)
3495 - )
3496 )
3497 + (return temp0)
3498 + )
3499 +
3500 + (method (cue)
3501 + ((ScriptID 13 0) hide_mouth: 0)
3502 )
3503 )
3504
3505 -(instance switchMusic of Script
3506 - (properties)
3507 +(instance fauxSign of Feature
3508 + (properties
3509 + noun 8
3510 + approachX 413
3511 + approachY 75
3512 + x 413
3513 + y 70
3514 + )
3515
3516 - (method (changeState newState)
3517 - (switch (= state newState)
3518 - (0
3519 - (gKqMusic1 fade: 30 25 20 1 self)
3520 - )
3521 - (1
3522 - (gKqMusic1 number: register loop: -1 play: setVol: 30)
3523 - (gKqMusic1 fade: 127 25 20 0)
3524 - (= local12 (= register 0))
3525 - (self dispose:)
3526 - )
3527 + (method (init)
3528 + (super init:)
3529 + (self
3530 + setHotspot: 8 10
3531 + approachVerbs: 8
3532 + setPolygon:
3533 + ((Polygon new:)
3534 + type: 1
3535 + init: 398 32 399 31 412 30 425 36 425 38 398 40
3536 + yourself:
3537 + )
3538 )
3539 )
3540 -)
3541 -
3542 -(instance moveEgoIntoPosition of Script
3543 - (properties)
3544
3545 - (method (changeState newState)
3546 - (switch (= state newState)
3547 - (0
3548 - (global1 handsOff:)
3549 - (gKQEgo setMotion: PolyPath 482 91 self)
3550 - )
3551 - (1
3552 - (global2 centerScreen: -318 self)
3553 - (gKQEgo setHeading: 225 self)
3554 - )
3555 - (2 0)
3556 - (3
3557 - (global2 setScript: theMoonFalls)
3558 - )
3559 + (method (doVerb theVerb)
3560 + (if (== global104 -3)
3561 + (gKqMessager say: noun theVerb 37)
3562 + else
3563 + (gKqMessager say: noun theVerb 0)
3564 )
3565 )
3566 )
3567 @@ -3385,43 +959,19 @@
3568 (super init:)
3569 (if (!= global122 4)
3570 (self setHotspot: 9998 approachVerbs: 9998)
3571 - )
3572 - )
3573 -
3574 - (method (doVerb theVerb)
3575 - (switch theVerb
3576 - (8
3577 - (global2 setScript: talkToDuke)
3578 - )
3579 - (5
3580 - (global2 setScript: showTheComb)
3581 - )
3582 - (else
3583 - (gKqMessager say: noun 0 5 0)
3584 - )
3585 - )
3586 - )
3587 -)
3588 -
3589 -(instance talkToDuke of Script
3590 - (properties)
3591 + )
3592 + )
3593
3594 - (method (changeState newState)
3595 - (switch (= state newState)
3596 - (0
3597 - (global1 handsOff:)
3598 - (proc11_3 gKQEgo archDuke self)
3599 + (method (doVerb theVerb)
3600 + (switch theVerb
3601 + (8
3602 + (global2 setScript: (ScriptID 5302 24))
3603 )
3604 - (1
3605 - (if (not (proc11_1 410))
3606 - (gKqMessager say: 1 8 3 0 self)
3607 - else
3608 - (gKqMessager say: 1 8 4 0 self)
3609 - )
3610 + (5
3611 + (global2 setScript: (ScriptID 5300 68))
3612 )
3613 - (2
3614 - (global1 handsOn:)
3615 - (self dispose:)
3616 + (else
3617 + (gKqMessager say: noun 0 5 0)
3618 )
3619 )
3620 )
3621 @@ -3438,9 +988,9 @@
3622
3623 (method (doVerb)
3624 (if (proc11_0 111)
3625 - (global2 setScript: talkToChickenAboutMoon)
3626 + (global2 setScript: (ScriptID 5300 81))
3627 else
3628 - (global2 setScript: talkToChicken)
3629 + (global2 setScript: (ScriptID 5301 8))
3630 )
3631 )
3632
3633 @@ -3492,7 +1042,7 @@
3634 (properties
3635 x 533
3636 y 84
3637 - priority 98
3638 + priority 90
3639 fixPriority 1
3640 view 5302
3641 loop 6
3642 @@ -3558,369 +1108,447 @@
3643 )
3644 )
3645
3646 -(instance stork of Prop
3647 +(instance stork of Prop
3648 + (properties
3649 + x 272
3650 + y 106
3651 + view 5313
3652 + )
3653 +
3654 + (method (init)
3655 + (super init: &rest)
3656 + (if (not (proc5300_16 195)) (= cel 11))
3657 + )
3658 +)
3659 +
3660 +(instance hippo of Prop
3661 + (properties
3662 + x 264
3663 + y 107
3664 + view 5313
3665 + loop 1
3666 + )
3667 +
3668 + (method (init)
3669 + (super init: &rest)
3670 + (if (not (proc5300_16 195)) (= cel 9))
3671 + )
3672 +
3673 + (method (cue)
3674 + (gateGuard view: 5326 setLoop: 0 cel: 1 setCycle: 0)
3675 + (UpdateScreenItem gateGuard)
3676 + )
3677 +)
3678 +
3679 +(instance moon of Prop
3680 + (properties
3681 + approachX 362
3682 + approachY 78
3683 + x 350
3684 + y 75
3685 + view 5312
3686 + )
3687 +
3688 + (method (init)
3689 + (super init:)
3690 + (self heading: 135 setHotspot: 0 52 approachVerbs: 52)
3691 + )
3692 +
3693 + (method (doVerb theVerb)
3694 + (pool doVerb: theVerb)
3695 + )
3696 +)
3697 +
3698 +(instance nickel of View
3699 + (properties
3700 + approachX 371
3701 + approachY 89
3702 + x 351
3703 + y 48
3704 + priority 95
3705 + fixPriority 1
3706 + view 5321
3707 + loop 1
3708 + )
3709 +
3710 + (method (init)
3711 + (super init:)
3712 + (self setHotspot: 8 10 approachVerbs: 8)
3713 + (= signal (& signal $efff))
3714 + )
3715 +
3716 + (method (doVerb)
3717 + (global2 setScript: (ScriptID 5302 3))
3718 + )
3719 +)
3720 +
3721 +(instance yBranch of Feature
3722 + (properties
3723 + approachX 279
3724 + approachY 102
3725 + x 288
3726 + y 81
3727 + )
3728 +
3729 + (method (init)
3730 + (super init:)
3731 + (self
3732 + setHotspot: 8 10 60
3733 + approachVerbs: 8 60
3734 + setPolygon:
3735 + ((Polygon new:)
3736 + type: 0
3737 + init: 287 57 294 47 316 53 311 89
3738 + yourself:
3739 + )
3740 + )
3741 + )
3742 +
3743 + (method (doVerb theVerb)
3744 + (switch theVerb
3745 + (8
3746 + (global2 setScript: (ScriptID 5302 25))
3747 + )
3748 + (60
3749 + (global2 setScript: (ScriptID 5302 26))
3750 + (self dispose:)
3751 + )
3752 + )
3753 + (return 1)
3754 + )
3755 +)
3756 +
3757 +(instance rubChicken of Actor
3758 + (properties
3759 + approachX 279
3760 + approachY 102
3761 + x 298
3762 + y 61
3763 + priority 93
3764 + fixPriority 1
3765 + view 5331
3766 + loop 4
3767 + )
3768 +
3769 + (method (init)
3770 + (super init:)
3771 + (self setHotspot: 8 10 71 approachVerbs: 8 71)
3772 + (= signal (& signal $efff))
3773 + )
3774 +
3775 + (method (doVerb theVerb)
3776 + (return
3777 + (switch theVerb
3778 + (8
3779 + (global2 setScript: (ScriptID 5302 27))
3780 + (return 1)
3781 + )
3782 + (71
3783 + (global2 setScript: (ScriptID 5302 28))
3784 + (return 1)
3785 + )
3786 + )
3787 + )
3788 + )
3789 +
3790 + (method (onMe param1 &tmp temp0)
3791 + (if (= temp0 (super onMe: param1))
3792 + (if (== (global80 message?) 8)
3793 + (= approachX 279)
3794 + (= approachY 102)
3795 + )
3796 + (if (== (global80 message?) 71)
3797 + (= approachX 282)
3798 + (= approachY 100)
3799 + )
3800 + )
3801 + (return temp0)
3802 + )
3803 +)
3804 +
3805 +(instance cageCover of View
3806 + (properties
3807 + x 572
3808 + y 89
3809 + view 5300
3810 + loop 1
3811 + )
3812 +
3813 + (method (init)
3814 + (super init: &rest)
3815 + (if (proc11_0 138)
3816 + (self loop: 0 x: 510 y: 120 setPri: 1)
3817 + else
3818 + (self loop: 1 cel: 0 x: 559 y: 70 setPri: 110)
3819 + )
3820 + (self ignoreActors:)
3821 + )
3822 +
3823 + (method (onMe)
3824 + (return 0)
3825 + )
3826 +)
3827 +
3828 +(instance fauxDoorExit of ExitFeature
3829 + (properties
3830 + noun 12
3831 + approachX 435
3832 + approachY 69
3833 + x 439
3834 + y 66
3835 + exitDir 2
3836 + )
3837 +
3838 + (method (init)
3839 + (super init:)
3840 + (self setHotspot: 8 10 approachVerbs: 8)
3841 + (fauxDoor setHotspot: 0)
3842 + )
3843 +
3844 + (method (doVerb theVerb)
3845 + (fauxDoor doVerb: theVerb)
3846 + )
3847 +
3848 + (method (onMe param1 &tmp temp0)
3849 + (if
3850 + (and
3851 + (= temp0 (fauxDoor onMe: param1))
3852 + (param1 type?)
3853 + (proc11_0 203)
3854 + )
3855 + (= approachX 424)
3856 + (= approachY 72)
3857 + )
3858 + (return temp0)
3859 + )
3860 +)
3861 +
3862 +(instance crook of Prop
3863 + (properties)
3864 +
3865 + (method (cue)
3866 + (gKQEgo view: 5326 loop: 0 cel: 0)
3867 + (UpdateScreenItem gKQEgo)
3868 + )
3869 +)
3870 +
3871 +(instance partySound1 of Sound
3872 + (properties
3873 + flags $0004
3874 + number 5100
3875 + loop -1
3876 + )
3877 +)
3878 +
3879 +(instance partySound2 of Sound
3880 + (properties
3881 + flags $0004
3882 + number 5102
3883 + loop -1
3884 + )
3885 +)
3886 +
3887 +(instance archDukeSound of Sound
3888 + (properties
3889 + flags $0004
3890 + number 5301
3891 + loop -1
3892 + )
3893 +)
3894 +
3895 +(instance chickenSound of Sound
3896 (properties
3897 - x 272
3898 - y 106
3899 - view 5313
3900 - )
3901 -
3902 - (method (init)
3903 - (super init: &rest)
3904 - (if (not (localproc_77f0 195)) (= cel 11))
3905 + flags $0004
3906 + number 5310
3907 + loop -1
3908 )
3909 )
3910
3911 -(instance hippo of Prop
3912 +(instance gateGuard of Actor
3913 (properties
3914 - x 264
3915 - y 107
3916 - view 5313
3917 - loop 1
3918 + noun 10
3919 + approachX 61
3920 + approachY 113
3921 + x 29
3922 + y 113
3923 + view 5328
3924 )
3925
3926 (method (init)
3927 (super init: &rest)
3928 - (if (not (localproc_77f0 195)) (= cel 9))
3929 + (self setHotspot: 8 10 approachVerbs: 8)
3930 + )
3931 +
3932 + (method (doVerb)
3933 + (guardTalker client: self)
3934 + (cond
3935 + ((not (proc11_1 542)) (gKqMessager say: noun 8 39 0))
3936 + ((not (proc11_1 543)) (gKqMessager say: noun 8 38 0))
3937 + (else (gKqMessager say: noun 8 40 0))
3938 + )
3939 + )
3940 +
3941 + (method (cue)
3942 + (self view: 5328 setLoop: 0 cel: 0 setCycle: 0)
3943 + (UpdateScreenItem self)
3944 + (FrameOut)
3945 )
3946 )
3947
3948 -(instance moon of Prop
3949 +(instance feather of View
3950 (properties
3951 - approachX 362
3952 - approachY 78
3953 - x 350
3954 - y 75
3955 - view 5314
3956 + approachX 280
3957 + approachY 93
3958 + x 295
3959 + y 62
3960 + priority 93
3961 + fixPriority 1
3962 + view 5331
3963 + loop 5
3964 )
3965
3966 (method (init)
3967 - (super init:)
3968 - (self heading: 135 setHotspot: 0 52 approachVerbs: 52)
3969 + (super init: &rest)
3970 + (if (not (gKQEgo has: 41))
3971 + (self setHotspot: 8 10 approachVerbs: 8)
3972 + (= signal (& signal $efff))
3973 + )
3974 )
3975
3976 - (method (doVerb theVerb)
3977 - (pool doVerb: theVerb)
3978 + (method (doVerb)
3979 + (global2 setScript: (ScriptID 5302 29))
3980 )
3981 )
3982
3983 -(instance nickel of View
3984 +(instance wagonSign of View
3985 (properties
3986 - approachX 371
3987 - approachY 89
3988 - x 351
3989 - y 48
3990 + x 520
3991 + y 53
3992 priority 95
3993 fixPriority 1
3994 - view 5321
3995 - loop 1
3996 + view 5300
3997 + loop 7
3998 )
3999
4000 (method (init)
4001 - (super init:)
4002 - (self setHotspot: 8 10 approachVerbs: 8)
4003 - (= signal (& signal $efff))
4004 + (super init: &rest)
4005 + (= local11 1)
4006 )
4007 -
4008 - (method (doVerb)
4009 - (global2 setScript: getWoodenNickel)
4010 +)
4011 +
4012 +(instance cageDoor of Prop
4013 + (properties
4014 + x 577
4015 + y 94
4016 + priority 98
4017 + fixPriority 1
4018 + view 5300
4019 + loop 3
4020 )
4021 )
4022
4023 -(instance yBranch of Feature
4024 +(instance archTalker of KQTalker
4025 (properties
4026 - approachX 279
4027 - approachY 102
4028 - x 288
4029 - y 81
4030 + clientCel -1
4031 )
4032
4033 (method (init)
4034 - (super init:)
4035 - (self
4036 - setHotspot: 8 10 60
4037 - approachVerbs: 8 60
4038 - setPolygon:
4039 - ((Polygon new:)
4040 - type: 0
4041 - init: 287 57 294 47 316 53 311 89
4042 - yourself:
4043 - )
4044 - )
4045 + (= client archDuke)
4046 + (super init: &rest)
4047 )
4048 -
4049 - (method (doVerb theVerb)
4050 - (switch theVerb
4051 - (8 (global2 setScript: sayHmmm))
4052 - (60
4053 - (global2 setScript: putChickenOnTree)
4054 - (self dispose:)
4055 - )
4056 - )
4057 - (return 1)
4058 +)
4059 +
4060 +(instance bull of Prop
4061 + (properties
4062 + x 108
4063 + y 78
4064 + priority 92
4065 + fixPriority 1
4066 + view 5337
4067 + loop 1
4068 )
4069 )
4070
4071 -(instance sayHmmm of Script
4072 +(instance bullTalker of KQTalker
4073 (properties)
4074
4075 - (method (changeState newState)
4076 - (switch (= state newState)
4077 - (0
4078 - (global1 handsOff:)
4079 - (gKQEgo
4080 - view: 8295
4081 - setLoop: 0
4082 - setCel: 0
4083 - setCycle: End self
4084 - )
4085 - ((ScriptID 13 0) hide_mouth: 1)
4086 - )
4087 - (1
4088 - (gKqMessager say: 1 8 3 0 self 1250)
4089 - )
4090 - (2
4091 - ((ScriptID 13 0) hide_mouth: 0)
4092 - (gKQEgo setCycle: Beg self)
4093 - )
4094 - (3
4095 - (gKQEgo normalize: 6)
4096 - (global1 handsOn:)
4097 - (self dispose:)
4098 - )
4099 - )
4100 + (method (init)
4101 + (= client bull)
4102 + (super init: &rest)
4103 )
4104 )
4105
4106 -(instance putChickenOnTree of Script
4107 +(instance fauxOwnerTalker of KQTalker
4108 (properties)
4109
4110 - (method (changeState newState)
4111 - (switch (= state newState)
4112 - (0
4113 - (global1 handsOff:)
4114 - (gKQEgo
4115 - setScale: 0
4116 - view: 5330
4117 - loop: 0
4118 - cel: 0
4119 - x: 269
4120 - y: 103
4121 - setCycle: End self
4122 - )
4123 - )
4124 - (1
4125 - (gKQEgo loop: 1 cel: 0 x: 269 y: 103 setCycle: End self)
4126 - )
4127 - (2
4128 - (proc11_1 273)
4129 - (gKQEgo put: 46)
4130 - (rubChicken init:)
4131 - (gKQEgo
4132 - normalize: 6
4133 - posn: 283 102
4134 - setScaler: Scaler 83 53 98 78
4135 - )
4136 - (global1 handsOn:)
4137 - (self dispose:)
4138 - )
4139 - )
4140 + (method (init)
4141 + (= client fauxDoor)
4142 + (= mouth_y (* (client z?) -1))
4143 + (super init: &rest)
4144 )
4145 )
4146
4147 -(instance rubChicken of Actor
4148 - (properties
4149 - approachX 279
4150 - approachY 102
4151 - x 298
4152 - y 61
4153 - priority 93
4154 - fixPriority 1
4155 - view 5331
4156 - loop 4
4157 - )
4158 +(instance mockingBirdTalker of KQTalker
4159 + (properties)
4160
4161 (method (init)
4162 - (super init:)
4163 - (self setHotspot: 8 10 71 approachVerbs: 8 71)
4164 - (= signal (& signal $efff))
4165 + (= client mockingBird)
4166 + (= loop 2)
4167 + (= mouth_y (* (client z?) -1))
4168 + (super init: &rest)
4169 )
4170 -
4171 - (method (doVerb theVerb)
4172 - (return
4173 - (switch theVerb
4174 - (8
4175 - (global2 setScript: getChickenDown)
4176 - (return 1)
4177 - )
4178 - (71
4179 - (global2 setScript: replaceTheMoon)
4180 - (return 1)
4181 - )
4182 - )
4183 - )
4184 +)
4185 +
4186 +(instance guardTalker of KQTalker
4187 + (properties
4188 + clientCel -1
4189 )
4190
4191 - (method (onMe param1 &tmp temp0)
4192 - (if (= temp0 (super onMe: param1))
4193 - (if (== (global80 message?) 8)
4194 - (= approachX 279)
4195 - (= approachY 102)
4196 - )
4197 - (if (== (global80 message?) 71)
4198 - (= approachX 282)
4199 - (= approachY 100)
4200 - )
4201 - )
4202 - (return temp0)
4203 + (method (init)
4204 + (if (not client) (= client badger))
4205 + (super init: &rest)
4206 )
4207 )
4208
4209 -(instance getChickenDown of Script
4210 +(instance snakeTalker of KQTalker
4211 (properties)
4212
4213 - (method (changeState newState)
4214 - (switch (= state newState)
4215 - (0
4216 - (global1 handsOff:)
4217 - (gKQEgo
4218 - view: 5332
4219 - loop: 0
4220 - cel: 0
4221 - x: 269
4222 - y: 103
4223 - setScale: 0
4224 - setCycle: End self
4225 - )
4226 - (gKQEgo get: 46)
4227 - (proc11_2 273)
4228 - (rubChicken dispose:)
4229 - (yBranch init:)
4230 - )
4231 - (1
4232 - (gKQEgo
4233 - normalize: 3
4234 - posn: (rubChicken approachX?) (rubChicken approachY?)
4235 - setScaler: Scaler 83 53 98 78
4236 - )
4237 - (global1 handsOn:)
4238 - (self dispose:)
4239 - )
4240 - )
4241 + (method (init)
4242 + (if (!= client gKQEgo) (= client snakeSalesman))
4243 + (super init: &rest)
4244 + )
4245 +)
4246 +
4247 +(instance chickenTalker of KQTalker
4248 + (properties
4249 + hide_mouth 1
4250 + )
4251 +
4252 + (method (init)
4253 + (= client chickenPetite)
4254 + (super init: &rest)
4255 )
4256 )
4257
4258 -(instance replaceTheMoon of Script
4259 +(instance chinaBirdTalker of KQTalker
4260 (properties)
4261
4262 - (method (changeState newState &tmp temp0)
4263 - (switch (= state newState)
4264 - (0
4265 - (global1 handsOff:)
4266 - (Load rsCDAUDIO 5405)
4267 - (Load rsSOUND 854)
4268 - (Load rsCDAUDIO 5404)
4269 - (gKQEgo
4270 - view: 5331
4271 - loop: 0
4272 - cel: 0
4273 - x: 282
4274 - y: 99
4275 - setScale: 0
4276 - setCycle: End self
4277 - )
4278 - )
4279 - (1
4280 - (rubChicken hide:)
4281 - (gKqSound1 number: 5404 loop: 1 play:)
4282 - (gKQEgo
4283 - view: 5331
4284 - loop: 1
4285 - cel: 0
4286 - x: 281
4287 - y: 103
4288 - setCycle: End self
4289 - )
4290 - )
4291 - (2 (= cycles 60))
4292 - (3
4293 - (if
4294 - (and (not (proc11_0 136)) (not (gKQEgo has: 41)))
4295 - (feather init:)
4296 - )
4297 - (gKqSound1 number: 854 loop: 1 play:)
4298 - (gKQEgo
4299 - view: 5331
4300 - loop: 2
4301 - cel: 0
4302 - x: 280
4303 - y: 103
4304 - setCycle: End self
4305 - )
4306 - )
4307 - (4
4308 - (gKQEgo
4309 - put: 48
4310 - normalize: 6
4311 - posn: 278 102
4312 - setScaler: Scaler 83 53 98 78
4313 - )
4314 - (gKqSound1 number: 5405 loop: 1 play:)
4315 - (rubChicken
4316 - show:
4317 - view: 5331
4318 - loop: 3
4319 - cel: 0
4320 - x: 296
4321 - y: 96
4322 - setCycle: End self
4323 - )
4324 - )
4325 - (5
4326 - (= temp0 (+ (Abs ((global2 plane?) left:)) 330))
4327 - (rubChicken
4328 - setLoop: 6 1
4329 - cel: 0
4330 - posn: 327 94
4331 - setCycle: Walk
4332 - setPri: -1
4333 - setMotion: PolyPath temp0 94 self
4334 - )
4335 - )
4336 - (6
4337 - (proc11_2 273)
4338 - (rubChicken dispose:)
4339 - (littleDoorExit init:)
4340 - (bigGate dispose:)
4341 - (proc11_1 202)
4342 - (localproc_7b59)
4343 - (archTalker clientCel: -2)
4344 - (global2 setScript: (ScriptID 5301 1))
4345 - )
4346 - )
4347 + (method (init)
4348 + (= client chinaBird)
4349 + (super init: &rest)
4350 )
4351 )
4352
4353 -(instance cageCover of View
4354 +(instance iSign of Inset
4355 (properties
4356 - x 572
4357 - y 89
4358 - view 5300
4359 - loop 1
4360 + picture 5303
4361 + priority 200
4362 )
4363
4364 (method (init)
4365 + (= x (Abs ((global2 plane?) left:)))
4366 (super init: &rest)
4367 - (if (proc11_0 138)
4368 - (self loop: 0 x: 510 y: 120 setPri: 1)
4369 - else
4370 - (self loop: 1 cel: 0 x: 559 y: 70 setPri: 110)
4371 - )
4372 - (self ignoreActors:)
4373 - )
4374 -
4375 - (method (onMe)
4376 - (return 0)
4377 + (proc11_6)
4378 )
4379 )
4380
4381 @@ -3937,47 +1565,7 @@
4382 )
4383
4384 (method (doVerb)
4385 - (global2 setScript: tryAndThrowMoonUp)
4386 - )
4387 -)
4388 -
4389 -(instance tryAndThrowMoonUp of Script
4390 - (properties)
4391 -
4392 - (method (changeState newState)
4393 - (switch (= state newState)
4394 - (0
4395 - (global1 handsOff:)
4396 - (gKQEgo setHeading: 180 self)
4397 - )
4398 - (1
4399 - (gKQEgo
4400 - view: 5336
4401 - setLoop: 0 1
4402 - cel: 0
4403 - setCycle: CT 10 1 self
4404 - )
4405 - )
4406 - (2
4407 - (gKqSound1 number: 824 loop: 1 play:)
4408 - (gKQEgo setCycle: End self)
4409 - )
4410 - (3
4411 - (gKQEgo setLoop: 1 1 cel: 0 setCycle: CT 6 1 self)
4412 - )
4413 - (4
4414 - (gKqSound1 number: 856 loop: 1 play:)
4415 - (gKQEgo setCycle: End self)
4416 - )
4417 - (5
4418 - (gKQEgo setLoop: 2 1 cel: 0 setCycle: End self)
4419 - )
4420 - (6
4421 - (gKQEgo normalize: 2)
4422 - (global1 handsOn:)
4423 - (self dispose:)
4424 - )
4425 - )
4426 + (global2 setScript: (ScriptID 5302 30))
4427 )
4428 )
4429
4430 @@ -4091,1160 +1679,1193 @@
4431 )
4432
4433 (method (doVerb)
4434 - (global2 setScript: exitToGate)
4435 + (global2 setScript: (ScriptID 5302 5))
4436 (return 1)
4437 )
4438 )
4439
4440 -(instance exitToGate of Script
4441 - (properties)
4442 +(instance chinaDoorExit of ExitFeature
4443 + (properties
4444 + noun 11
4445 + approachX 116
4446 + approachY 109
4447 + exitDir 1
4448 + )
4449
4450 - (method (changeState newState)
4451 - (switch (= state newState)
4452 - (0
4453 - (global1 handsOff:)
4454 - (gKqSound1 number: 801 loop: 1 play:)
4455 - (littleDoor setCycle: End self)
4456 - )
4457 - (1
4458 - (gKQEgo setMotion: MoveTo 27 113 self)
4459 - )
4460 - (2
4461 - (gKQEgo setHeading: 315 self)
4462 - )
4463 - (3
4464 - (if (== global104 -4)
4465 - (gKQEgo
4466 - view: 8065
4467 - loop: 1
4468 - cel: 0
4469 - priority: 109
4470 - fixPriority: 1
4471 - setCycle: CT 4 1 self
4472 - )
4473 - else
4474 - (= cycles 1)
4475 - )
4476 - )
4477 - (4 (global2 newRoom: 5400))
4478 + (method (init)
4479 + (super init:)
4480 + (= x approachX)
4481 + (= y (chinaDoor y?))
4482 + (self setHotspot: 8 10 approachVerbs: 8)
4483 + )
4484 +
4485 + (method (doVerb)
4486 + (if (or (proc11_0 110) (!= global122 3))
4487 + (global2 setScript: (ScriptID 5302 6))
4488 + else
4489 + (global2 setScript: (ScriptID 5302 17))
4490 )
4491 + (return 1)
4492 + )
4493 +
4494 + (method (onMe param1)
4495 + (chinaDoor onMe: param1)
4496 )
4497 )
4498
4499 -(instance chinaDoor of Prop
4500 +(instance wagon of Feature
4501 (properties
4502 - noun 11
4503 - approachX 116
4504 - approachY 109
4505 - x 128
4506 - y 104
4507 - priority 10
4508 - fixPriority 1
4509 - view 5302
4510 + noun 6
4511 + approachX 511
4512 + approachY 115
4513 + x 534
4514 + y 112
4515 )
4516
4517 (method (init)
4518 - (super init: &rest)
4519 - (if (and (proc11_0 203) (not (proc11_0 284)))
4520 - (self setHotspot: 8 10 approachVerbs: 8)
4521 + (super init:)
4522 + (self
4523 + setHotspot: 9998
4524 + approachVerbs: 9998
4525 + setPolygon:
4526 + ((Polygon new:)
4527 + type: 0
4528 + init: 518 57 550 55 550 81 541 86 516 81 521 98
4529 + yourself:
4530 + )
4531 )
4532 )
4533
4534 - (method (doVerb)
4535 - (global2 setScript: (ScriptID 5301 5))
4536 + (method (doVerb theVerb)
4537 + (if local11 (gKqMessager say: noun 8 46 0) (return 1))
4538 + (return
4539 + (if (!= global104 -3)
4540 + (switch theVerb
4541 + (8
4542 + (global2 setScript: (ScriptID 5302 34))
4543 + )
4544 + (61
4545 + (global2 setScript: (ScriptID 5302 13))
4546 + )
4547 + (5
4548 + (global2 setScript: (ScriptID 5302 35))
4549 + )
4550 + (else
4551 + (global2 setScript: (ScriptID 5302 33))
4552 + )
4553 + )
4554 + else
4555 + 0
4556 + )
4557 + )
4558 + )
4559 +
4560 + (method (onMe param1 &tmp temp0)
4561 + (if
4562 + (and (proc11_0 349) (== (global80 message?) 5))
4563 + (return 0)
4564 + )
4565 + (if
4566 + (and
4567 + local11
4568 + (not (proc64999_5 (global80 message?) 8 10))
4569 + )
4570 + (return 0)
4571 + )
4572 + (= temp0
4573 + (if (super onMe: param1)
4574 + else
4575 + (snakeSalesman onMe: param1)
4576 + )
4577 + )
4578 + (if (param1 type?)
4579 + (cond
4580 + ((== (global80 message?) 61) (= approachX 490) (= approachY 108))
4581 + (
4582 + (and (not (proc11_0 116)) (not (proc11_0 461))) (= approachX 506) (= approachY 104))
4583 + (else (= approachX 495) (= approachY 100))
4584 + )
4585 + )
4586 + (return temp0)
4587 )
4588 )
4589
4590 -(instance chinaDoorExit of ExitFeature
4591 +(instance pool of Feature
4592 (properties
4593 - noun 11
4594 - approachX 116
4595 - approachY 109
4596 - exitDir 1
4597 + sightAngle 180
4598 + approachX 471
4599 + approachY 103
4600 + x 466
4601 + y 108
4602 )
4603
4604 (method (init)
4605 (super init:)
4606 - (= x approachX)
4607 - (= y (chinaDoor y?))
4608 - (self setHotspot: 8 10 approachVerbs: 8)
4609 + (self
4610 + setHotspot: 8 10 52
4611 + approachVerbs: 8 52
4612 + setPolygon:
4613 + ((Polygon new:)
4614 + type: 1
4615 + init: 445 88 436 107 349 109 330 103 324 87 326 80 355 78 428 81
4616 + yourself:
4617 + )
4618 + )
4619 )
4620
4621 - (method (doVerb)
4622 - (if (or (proc11_0 110) (!= global122 3))
4623 - (global2 setScript: enterChinaShop)
4624 - else
4625 - (global2 setScript: dukeStopsVal)
4626 + (method (doVerb theVerb)
4627 + (switch theVerb
4628 + (8
4629 + (global2 setScript: (ScriptID 5302 7))
4630 + )
4631 + (52
4632 + (global2 setScript: (ScriptID 5300 79))
4633 + )
4634 )
4635 - (return 1)
4636 )
4637
4638 - (method (onMe param1)
4639 - (chinaDoor onMe: param1)
4640 + (method (onMe param1 &tmp temp0)
4641 + (if
4642 + (and (= temp0 (super onMe: param1)) (param1 type?))
4643 + (switch (global80 message?)
4644 + (8
4645 + (= approachX 442)
4646 + (= approachY 114)
4647 + (= x 440)
4648 + )
4649 + (else
4650 + (= approachX 471)
4651 + (= approachY 103)
4652 + (= x 466)
4653 + )
4654 + )
4655 + )
4656 + (return temp0)
4657 )
4658 )
4659
4660 -(instance townHallDoor of Prop
4661 +(instance birdCage of Feature
4662 (properties
4663 - heading 90
4664 - noun 3
4665 - sightAngle 15
4666 - approachX 239
4667 - approachY 100
4668 - x 231
4669 - y 90
4670 - priority 85
4671 - fixPriority 1
4672 - view 5302
4673 - loop 4
4674 + noun 7
4675 + approachX 556
4676 + approachY 110
4677 + x 560
4678 + y 113
4679 )
4680
4681 (method (init)
4682 (super init:)
4683 - (if
4684 - (or
4685 - (and (== global122 3) (not local1))
4686 - (and (== global122 5) (proc11_0 203))
4687 - )
4688 - (= loop 3)
4689 - )
4690 - (if (not (proc11_0 110))
4691 - (= cel 4)
4692 - else
4693 - (self setHotspot: 8 10)
4694 - )
4695 (self
4696 + setHotspot: 8 10
4697 approachVerbs: 8
4698 setPolygon:
4699 ((Polygon new:)
4700 type: 0
4701 - init: 211 98 206 67 206 52 212 45 220 44 227 47 231 55 233 70 235 91
4702 + init:
4703 + 565
4704 + 105
4705 + 561
4706 + 97
4707 + 561
4708 + 88
4709 + 562
4710 + 82
4711 + 571
4712 + 70
4713 + 574
4714 + 70
4715 + 584
4716 + 80
4717 + 586
4718 + 91
4719 + 585
4720 + 98
4721 + 582
4722 + 105
4723 + 574
4724 + 106
4725 yourself:
4726 )
4727 )
4728 )
4729
4730 - (method (doVerb theVerb)
4731 - (return
4732 - (if
4733 - (and (> global122 3) (== noun 3) (== theVerb 8))
4734 - (global2 setScript: openTownHallDoor 0 (== global122 5))
4735 - else
4736 - (if (and (== global122 5) (== noun 2))
4737 - (global2 setScript: showTownHallSign)
4738 - (return 1)
4739 - )
4740 + (method (doVerb)
4741 + (cond
4742 + ((not (proc11_0 138)) (global2 setScript: (ScriptID 5300 63)))
4743 + ((not (proc11_0 139)) (global2 setScript: (ScriptID 5300 64)) (proc11_1 139))
4744 + ((not (gKQEgo has: 42))
4745 (cond
4746 - (
4747 - (and
4748 - (not (proc11_0 137))
4749 - (or
4750 - (and (== loop 3) (not (proc11_0 449)))
4751 - (== noun 2)
4752 - )
4753 + ((and (not (proc11_0 109)) (proc11_0 117)) (global2 setScript: (ScriptID 5300 65)))
4754 + ((not (proc11_0 109))
4755 + (if (proc11_0 119)
4756 + (global2 setScript: (ScriptID 5302 12))
4757 + else
4758 + (global2 setScript: (ScriptID 5300 66))
4759 )
4760 - ((ScriptID 13 0) hide_mouth: 1)
4761 - (gKqMessager say: 2 theVerb 7 0 self)
4762 - (proc11_1 449)
4763 )
4764 - ((== global104 -3) (global2 newRoom: 5100))
4765 - ((!= global122 3) (global2 newRoom: 5100))
4766 - ((proc11_0 137) (global2 setScript: enterTownHall))
4767 - (else (global2 setScript: knockOnTownHallDoor))
4768 )
4769 + (proc11_2 139)
4770 )
4771 )
4772 + (return 1)
4773 )
4774
4775 - (method (onMe param1 &tmp temp0 temp1 temp2)
4776 - (= temp0 (super onMe: param1))
4777 - (= temp1 (- (param1 x?) nsLeft))
4778 - (= temp2 (- (param1 y?) nsTop))
4779 + (method (onMe param1 &tmp temp0)
4780 (if
4781 (and
4782 - (== loop 3)
4783 - (not (proc11_0 137))
4784 - (or
4785 - (and
4786 - (proc64999_5 temp1 9 10)
4787 - (<= 24 temp2)
4788 - (<= temp2 34)
4789 - )
4790 - (and
4791 - (<= 10 temp1)
4792 - (<= temp1 18)
4793 - (proc64999_5 temp2 23 24)
4794 - )
4795 - (and
4796 - (proc64999_5 temp1 18 19)
4797 - (<= 24 temp2)
4798 - (<= temp2 34)
4799 - )
4800 - (and
4801 - (<= 10 temp1)
4802 - (<= temp1 18)
4803 - (proc64999_5 temp2 34 35)
4804 - )
4805 - )
4806 + (= temp0 (super onMe: param1))
4807 + (proc11_0 117)
4808 + (proc11_0 138)
4809 )
4810 - (return 0)
4811 + (= approachX 556)
4812 + (= approachY 113)
4813 )
4814 - (if (and temp0 (param1 type?))
4815 - (if
4816 - (and
4817 - (== loop 3)
4818 - (not (proc11_0 137))
4819 - (<= 10 temp1)
4820 - (<= temp1 18)
4821 - (<= 24 temp2)
4822 - (<= temp2 34)
4823 - )
4824 - (if (proc11_0 137) (return 0))
4825 - (= noun 2)
4826 - (if (not (proc11_0 137))
4827 - (= approachX 239)
4828 - (= approachY 100)
4829 - else
4830 - (= approachX (gKQEgo x?))
4831 - (= approachY (gKQEgo y?))
4832 - )
4833 - else
4834 - (= noun 3)
4835 - (if
4836 - (and (== global122 5) (== (global80 message?) 8))
4837 - (= approachX 226)
4838 - (= approachY 102)
4839 + (return temp0)
4840 + )
4841 +)
4842 +
4843 +(instance snakeSalesman of Prop
4844 + (properties
4845 + x 531
4846 + y 90
4847 + priority 90
4848 + fixPriority 1
4849 + view 5323
4850 + loop 1
4851 + )
4852 +)
4853 +
4854 +(instance egoActions of Actions
4855 + (properties)
4856 +
4857 + (method (doVerb theVerb)
4858 + (switch theVerb
4859 + (57
4860 + (if (proc5300_16 195)
4861 + (global2 setScript: (ScriptID 5302 21))
4862 else
4863 - (if (or (!= global122 3) (proc11_0 449))
4864 - (= approachX 232)
4865 - (= approachY 103)
4866 - )
4867 - (if (proc11_0 137) (= approachX 237) (= approachY 98))
4868 + (return 0)
4869 )
4870 )
4871 + (else (return 0))
4872 )
4873 - (return temp0)
4874 + (return 1)
4875 )
4876 +)
4877 +
4878 +(instance roomFeatureInitCode of Code
4879 + (properties)
4880
4881 - (method (cue)
4882 - ((ScriptID 13 0) hide_mouth: 0)
4883 + (method (doit param1)
4884 + (if
4885 + (and
4886 + (not (param1 isKindOf: KQInventory))
4887 + (param1 respondsTo: #signal)
4888 + )
4889 + (param1
4890 + sightAngle: 10
4891 + signal: (| (param1 signal?) $7001)
4892 + )
4893 + )
4894 + )
4895 +)
4896 +
4897 +(instance enterFromGate of Script
4898 + (properties)
4899 +
4900 + (method (changeState newState)
4901 + (switch (= state newState)
4902 + (0
4903 + (global1 handsOff:)
4904 + (littleDoor cel: (littleDoor lastCel:))
4905 + (= cycles 4)
4906 + )
4907 + (1
4908 + (gKQEgo normalize: 3)
4909 + (= cycles 1)
4910 + )
4911 + (2
4912 + (littleDoor setCycle: Beg self)
4913 + )
4914 + (3
4915 + (gKqSound1 number: 802 loop: 1 play:)
4916 + (gKQEgo setHeading: 90 self)
4917 + )
4918 + (4
4919 + (if (== next (ScriptID 5301 0))
4920 + (gKQEgo setMotion: MoveTo 60 (gKQEgo y?) self)
4921 + else
4922 + (gKQEgo setMotion: MoveTo 40 (gKQEgo y?) self)
4923 + )
4924 + )
4925 + (5
4926 + (if (and (not next) (== client global2))
4927 + (global1 handsOn:)
4928 + )
4929 + (self dispose:)
4930 + )
4931 + )
4932 )
4933 )
4934
4935 -(instance showTownHallSign of Script
4936 +(instance chickenRunsOff of Script
4937 (properties)
4938
4939 - (method (changeState newState)
4940 - (switch (= state newState)
4941 - (0
4942 - (global2 setInset: iSign self)
4943 + (method (init)
4944 + (proc11_2 539)
4945 + (super init: &rest)
4946 + )
4947 +
4948 + (method (dispose)
4949 + (proc11_2 539)
4950 + (super dispose:)
4951 + )
4952 +
4953 + (method (changeState newState &tmp temp0)
4954 + (if (not (proc11_0 539))
4955 + (switch (= state newState)
4956 + (0
4957 + (global1 handsOff: 1)
4958 + (gKqMusic1 pause: 1)
4959 + (chickenSound number: 5310 loop: -1 play:)
4960 + (chickenPetite
4961 + view: 5311
4962 + setLoop: 6 1
4963 + setCel: 0
4964 + setPri: -1
4965 + setCycle: End self
4966 + )
4967 + )
4968 + (1
4969 + (if (< (chickenPetite x?) 320)
4970 + (= global372 8)
4971 + (proc11_3 gKQEgo 315 104 0)
4972 + (chickenPetite
4973 + setLoop: 7 1
4974 + setCel: 0
4975 + setCycle: Walk
4976 + setMotion: PolyPath 315 104 self
4977 + )
4978 + else
4979 + (= global372 9)
4980 + (= temp0 (- (Abs (gNewPlane_2 left:)) 15))
4981 + (proc11_3 gKQEgo temp0 (chickenPetite y?) 0)
4982 + (chickenPetite
4983 + setLoop: 0 1
4984 + setCycle: Walk
4985 + setMotion: PolyPath temp0 (chickenPetite y?) self
4986 + )
4987 + )
4988 + (gKqMessager say: 0 0 13 0 chickenPetite)
4989 + )
4990 + (2
4991 + (chickenSound fade:)
4992 + (gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
4993 + (chickenPetite setCycle: 0)
4994 + (proc5300_4)
4995 + (global1 handsOn:)
4996 + (self dispose:)
4997 + )
4998 )
4999 - (1 (self dispose:))
5000 + else
5001 + (chickenSound stop:)
5002 + (gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
5003 + (chickenPetite setCycle: 0 setMotion: 0)
5004 + (proc5300_4)
5005 + (global1 handsOn:)
5006 + (self dispose:)
5007 )
5008 )
5009 )
5010
5011 -(instance openTownHallDoor of Script
5012 +(instance archDukeTalk of Script
5013 (properties)
5014
5015 + (method (doit)
5016 + (super doit:)
5017 + (if (and (== state 1) register) (self cue:))
5018 + )
5019 +
5020 (method (changeState newState)
5021 (switch (= state newState)
5022 (0
5023 - (global1 handsOff:)
5024 - (if (== global104 -4)
5025 - (gKQEgo
5026 - view: 8125
5027 - loop: 1
5028 - cel: 0
5029 - posn: 228 100
5030 - setPri: 88
5031 - setCycle: CT 5 1 self
5032 - )
5033 - else
5034 - (gKQEgo
5035 - view: 8485
5036 - setLoop: 1
5037 - cel: 0
5038 - setPri: 88
5039 - setCycle: CT 5 1 self
5040 - )
5041 + (archDuke
5042 + view: 5303
5043 + setLoop: 0
5044 + setCel: 0
5045 + posn: 147 115
5046 + setCycle: End self
5047 )
5048 )
5049 (1
5050 - (if register
5051 - (gKqSound1 number: 803 loop: 1 play: self)
5052 + (if (not register)
5053 + (archDuke setLoop: 1 setCel: 0 setCycle: Fwd)
5054 else
5055 - (= cycles 1)
5056 + (self cue:)
5057 )
5058 )
5059 (2
5060 - (if register
5061 - ((ScriptID 13 0) hide_mouth: 1 clientCel: -2)
5062 - (gKqMessager say: 0 0 47 0 self)
5063 - else
5064 - (gKqSound1 number: 801 loop: 1 play:)
5065 - (townHallDoor setPri: 10 setCycle: End self)
5066 - (gKQEgo setCycle: End self)
5067 - )
5068 + (archDuke setLoop: 2 setCel: 0 setCycle: CT 16 1 self)
5069 )
5070 (3
5071 - ((ScriptID 13 0) hide_mouth: 0)
5072 - (if register (gKQEgo setCycle: Beg self))
5073 + (gKQEgo setScript: (ScriptID 5300 67))
5074 + (archDuke setLoop: 2 setCel: 17 setCycle: CT 20 1 self)
5075 )
5076 (4
5077 - (if register
5078 - (gKQEgo
5079 - normalize: 7
5080 - posn: (townHallDoor approachX?) (townHallDoor approachY?)
5081 - )
5082 - (global1 handsOn:)
5083 - (self dispose:)
5084 - else
5085 - (gKQEgo
5086 - normalize: 3
5087 - posn: 222 101
5088 - setPri: 20
5089 - setMotion: MoveTo 177 75 self
5090 - )
5091 - )
5092 + (gKqSound1 number: 5305 loop: 1 play:)
5093 + (archDuke setCycle: CT 24 1 self)
5094 + )
5095 + (5
5096 + (gKqSound1 stop:)
5097 + (archDuke setCycle: End self)
5098 )
5099 - (5 (global2 newRoom: 5100))
5100 + (6 (self dispose:))
5101 )
5102 )
5103 )
5104
5105 -(instance wagon of Feature
5106 - (properties
5107 - noun 6
5108 - approachX 511
5109 - approachY 115
5110 - x 534
5111 - y 112
5112 - )
5113 +(instance unCoverCage of Script
5114 + (properties)
5115
5116 - (method (init)
5117 - (super init:)
5118 - (self
5119 - setHotspot: 9998
5120 - approachVerbs: 9998
5121 - setPolygon:
5122 - ((Polygon new:)
5123 - type: 0
5124 - init: 518 57 550 55 550 81 541 86 516 81 521 98
5125 - yourself:
5126 + (method (changeState newState)
5127 + (switch (= state newState)
5128 + (0
5129 + (global1 handsOff:)
5130 + (proc11_1 138)
5131 + (cageCover dispose:)
5132 + (chinaBird view: 5329 loop: 1 cel: 0 x: 571 y: 97 init:)
5133 + (gKQEgo
5134 + view: 5327
5135 + loop: 0
5136 + cel: 0
5137 + x: 503
5138 + y: 138
5139 + setPri: 119
5140 + setScale: 0
5141 + setCycle: End self
5142 )
5143 - )
5144 - )
5145 -
5146 - (method (doVerb theVerb)
5147 - (if local15 (gKqMessager say: noun 8 46 0) (return 1))
5148 - (return
5149 - (if (!= global104 -3)
5150 - (switch theVerb
5151 - (8
5152 - (global2 setScript: snakeDoVerbDo)
5153 - )
5154 - (61
5155 - (global2 setScript: giveStatue)
5156 - )
5157 - (5
5158 - (global2 setScript: snakeDoVerbComb)
5159 - )
5160 - (else
5161 - (global2 setScript: snakeDoVerbElse)
5162 - )
5163 + )
5164 + (1
5165 + (cageCover init:)
5166 + (gKQEgo
5167 + normalize: 2
5168 + posn: (birdCage approachX?) (birdCage approachY?)
5169 + setScaler: Scaler 83 53 98 78
5170 + setHeading: 90
5171 )
5172 - else
5173 - 0
5174 + (chinaBird
5175 + view: 5327
5176 + loop: 1
5177 + cel: 0
5178 + x: 502
5179 + y: 141
5180 + setCycle: End self
5181 + )
5182 + )
5183 + (2
5184 + (global1 handsOn:)
5185 + (self dispose:)
5186 )
5187 )
5188 )
5189 +)
5190 +
5191 +(instance openCageDoor of Script
5192 + (properties)
5193
5194 - (method (onMe param1 &tmp temp0)
5195 - (if
5196 - (and (proc11_0 349) (== (global80 message?) 5))
5197 - (return 0)
5198 - )
5199 - (if
5200 - (and
5201 - local15
5202 - (not (proc64999_5 (global80 message?) 8 10))
5203 + (method (changeState newState)
5204 + (switch (= state newState)
5205 + (0
5206 + (global1 handsOff:)
5207 + (= gKQEgoX (gKQEgo x?))
5208 + (= gKQEgoY (gKQEgo y?))
5209 + (gKQEgo setHeading: 90 self)
5210 )
5211 - (return 0)
5212 - )
5213 - (= temp0
5214 - (if (super onMe: param1)
5215 - else
5216 - (snakeSalesman onMe: param1)
5217 + (1
5218 + (gKQEgo
5219 + view: 5327
5220 + loop: 3
5221 + cel: 0
5222 + x: 535
5223 + y: 123
5224 + setScale: 0
5225 + setCycle: CT 5 1 self
5226 + )
5227 )
5228 - )
5229 - (if (param1 type?)
5230 - (cond
5231 - ((== (global80 message?) 61) (= approachX 490) (= approachY 108))
5232 - (
5233 - (and (not (proc11_0 116)) (not (proc11_0 461))) (= approachX 506) (= approachY 104))
5234 - (else (= approachX 495) (= approachY 100))
5235 + (2
5236 + (gKqSound1 number: 5330 loop: 1 play:)
5237 + (cageDoor setCycle: End)
5238 + (gKQEgo setCycle: CT 9 1 self)
5239 + )
5240 + (3 (gKQEgo setCycle: Beg self))
5241 + (4
5242 + (gKQEgo
5243 + normalize: 0
5244 + posn: gKQEgoX gKQEgoY
5245 + setScaler: Scaler 83 53 98 78
5246 + )
5247 + (global1 handsOn:)
5248 + (self dispose:)
5249 )
5250 )
5251 - (return temp0)
5252 )
5253 )
5254
5255 -(instance snakeDoVerbElse of Script
5256 +(instance getTheChinaBird of Script
5257 (properties)
5258
5259 (method (changeState newState)
5260 (switch (= state newState)
5261 (0
5262 (global1 handsOff:)
5263 - (if (snakeSalesman script?)
5264 - (keepSalesmanBusy caller: self register: 1)
5265 - else
5266 - (= cycles 1)
5267 - )
5268 + (= gKQEgoX (gKQEgo x?))
5269 + (= gKQEgoY (gKQEgo y?))
5270 + (gKQEgo setHeading: 90 self)
5271 )
5272 (1
5273 - (if (or (proc11_0 116) (proc11_0 95))
5274 - (gKqMessager say: 6 0 45 0 self)
5275 - else
5276 - (gKqMessager say: 6 98 5 0 self)
5277 - )
5278 + (gKqMessager say: 7 8 28 0 self)
5279 )
5280 (2
5281 - ((ScriptID 13 0) hide_mouth: 0 modeless: 1)
5282 + (gKQEgo
5283 + view: 5327
5284 + loop: 3
5285 + cel: 0
5286 + x: 535
5287 + y: 123
5288 + setScale: 0
5289 + setCycle: End self
5290 + )
5291 + )
5292 + (3
5293 + (gKQEgo hide:)
5294 + (chinaBird
5295 + view: 5327
5296 + loop: 4
5297 + cel: 1
5298 + x: 557
5299 + y: 114
5300 + setPri: 123
5301 + setCycle: End self
5302 + )
5303 + )
5304 + (4
5305 + (chinaBird dispose:)
5306 + (gKQEgo get: 42)
5307 + (birdCage dispose:)
5308 + (gKQEgo
5309 + show:
5310 + posn: gKQEgoX gKQEgoY
5311 + normalize: 4
5312 + setScaler: Scaler 83 53 98 78
5313 + )
5314 (global1 handsOn:)
5315 - (snakeSalesman setScript: keepSalesmanBusy)
5316 (self dispose:)
5317 )
5318 )
5319 )
5320 )
5321
5322 -(instance snakeDoVerbDo of Script
5323 +(instance tryGetBird of Script
5324 (properties)
5325
5326 (method (changeState newState)
5327 (switch (= state newState)
5328 (0
5329 (global1 handsOff:)
5330 - (if (snakeSalesman script?)
5331 - (keepSalesmanBusy caller: self register: 1)
5332 - else
5333 - (= cycles 1)
5334 - )
5335 + (gKQEgo setPri: 119 setHeading: 90 self)
5336 )
5337 (1
5338 (cond
5339 - ((or (proc11_0 116) (proc11_0 95))
5340 - (if (or (not (proc11_0 123)) (== global122 5))
5341 - (cond
5342 - (
5343 - (and (not (proc11_0 95)) (not (proc11_1 416))) (gKqMessager say: 6 8 22 0 self))
5344 - ((not (proc11_1 417)) (gKqMessager say: 6 8 23 0 self))
5345 - (else (gKqMessager say: 6 8 24 0 self))
5346 - )
5347 - else
5348 - (gKqMessager say: 6 8 24 0 self)
5349 - )
5350 - )
5351 - ((or (not (proc11_0 123)) (== global122 5))
5352 - (cond
5353 - ((not (proc11_1 418)) (gKqMessager say: 6 8 25 0 self))
5354 - ((not (proc11_1 419)) (gKqMessager say: 6 8 26 0 self))
5355 - (else
5356 - ((ScriptID 13 0) hide_mouth: 1)
5357 - (gKqMessager say: 6 8 27 0 self)
5358 - )
5359 - )
5360 - )
5361 - (else
5362 - ((ScriptID 13 0) hide_mouth: 1)
5363 - (snakeSalesman setScript: keepSalesmanBusy)
5364 - (gKqMessager say: 6 8 27 0 self)
5365 - )
5366 + ((not (proc11_1 118)) (self setScript: (ScriptID 5302 10) self))
5367 + ((not (proc11_1 119)) (self setScript: (ScriptID 5302 11) self))
5368 )
5369 )
5370 (2
5371 - ((ScriptID 13 0) hide_mouth: 0 modeless: 1)
5372 + (gKQEgo setHeading: 180 self)
5373 + )
5374 + (3
5375 (global1 handsOn:)
5376 - (if (not (snakeSalesman script?))
5377 - (snakeSalesman setScript: keepSalesmanBusy)
5378 - )
5379 (self dispose:)
5380 )
5381 )
5382 )
5383 )
5384
5385 -(instance snakeDoVerbComb of Script
5386 +(instance getBlownOn of Script
5387 (properties)
5388
5389 (method (changeState newState)
5390 (switch (= state newState)
5391 (0
5392 - (global1 handsOff:)
5393 - (if (snakeSalesman script?)
5394 - (keepSalesmanBusy caller: self register: 1)
5395 - else
5396 - (= cycles 1)
5397 + (gKQEgo
5398 + view: 5303
5399 + setLoop: 8
5400 + cel: 0
5401 + setScale: 0
5402 + posn: (+ (gKQEgo x?) 25) (gKQEgo y?)
5403 + setCycle: End self
5404 )
5405 )
5406 (1
5407 - (cond
5408 - ((proc11_0 116) (gKqMessager say: 6 5 22 0 self) (proc11_1 349))
5409 - ((not (proc11_1 461)) (proc11_1 95) (self setScript: haveSalesmanPoint))
5410 - ((not (proc11_1 417)) (gKqMessager say: 6 5 26 0 self))
5411 - (else (proc11_1 349) (gKqMessager say: 6 5 27 0 self))
5412 + (gKQEgo
5413 + normalize: 0
5414 + x: (- (gKQEgo x?) 25)
5415 + setScaler: Scaler 83 53 98 78
5416 )
5417 - )
5418 - (2
5419 - ((ScriptID 13 0) hide_mouth: 0 modeless: 1)
5420 - (global1 handsOn:)
5421 - (snakeSalesman setScript: keepSalesmanBusy)
5422 (self dispose:)
5423 )
5424 )
5425 )
5426 )
5427
5428 -(instance haveSalesmanPoint of Script
5429 +(instance showTheComb of Script
5430 (properties)
5431
5432 + (method (init)
5433 + (proc11_2 539)
5434 + (super init: &rest)
5435 + )
5436 +
5437 + (method (dispose)
5438 + (proc11_2 539)
5439 + (super dispose:)
5440 + )
5441 +
5442 (method (changeState newState)
5443 - (switch (= state newState)
5444 - (0
5445 - (global1 handsOff:)
5446 - (gKqMessager say: 6 5 25 1 self)
5447 - )
5448 - (1
5449 - (if (snakeSalesman script?)
5450 - (keepSalesmanBusy caller: self register: 1)
5451 - else
5452 + (if (not (proc11_0 539))
5453 + (switch (= state newState)
5454 + (0
5455 + (global1 handsOff: 1)
5456 + (Load rsVIEW 5303)
5457 + (Load rsCDAUDIO 5305)
5458 + (Load rsVIEW 8132)
5459 + (Load rsVIEW 5334)
5460 + (= register (gKQEgo cycleSpeed?))
5461 + (gKQEgo
5462 + view: 8241
5463 + setLoop:
5464 + (if
5465 + (and
5466 + (< 0 (gKQEgo heading?))
5467 + (< (= register (gKQEgo cycleSpeed?)) 180)
5468 + )
5469 + 0
5470 + else
5471 + 1
5472 + )
5473 + setCel: 0
5474 + cycleSpeed: 12
5475 + setCycle: CT 20 1 self
5476 + )
5477 + )
5478 + (1
5479 + (gKqSound1 number: 1256 setLoop: -1 play:)
5480 + (gKQEgo setCycle: End self)
5481 + )
5482 + (2
5483 + (gKQEgo setCycle: CT 20 -1 self)
5484 + )
5485 + (3
5486 + (gKqSound1 setLoop: 1 stop:)
5487 + (gKQEgo setCycle: Beg self)
5488 + )
5489 + (4
5490 + (gKQEgo
5491 + normalize: 0
5492 + setScaler: Scaler 83 53 98 78
5493 + cycleSpeed: register
5494 + )
5495 (= cycles 1)
5496 )
5497 + (5
5498 + (archTalker clientCel: -2 hide_mouth: 1 modeless: 2)
5499 + (gKqMessager say: 1 5 6 1 self)
5500 + )
5501 + (6
5502 + (self setScript: (ScriptID 5300 62) self)
5503 + (gKqMessager say: 1 5 6 2 self)
5504 + )
5505 + (7 (script register: 1))
5506 + (8
5507 + (gKqMusic1 pause: 1)
5508 + (chickenSound number: 5310 loop: -1 play:)
5509 + (archTalker clientCel: -1 hide_mouth: 0 modeless: 1)
5510 + (self setScript: (ScriptID 5300 69) self self)
5511 + (= register (gKQEgo cycleSpeed?))
5512 + (chickenPetite
5513 + posn: 308 102
5514 + setPri: 130
5515 + view: 5303
5516 + setLoop: 4
5517 + setCel: 0
5518 + init:
5519 + setCycle: CT 16 1 self
5520 + )
5521 + (chickenTalker modeless: 2)
5522 + (= global372 7)
5523 + (gKqMessager say: 1 5 6 3 chickenPetite)
5524 + )
5525 + (9
5526 + (chickenPetite setCycle: CT 36 1 self)
5527 + (gKQEgo
5528 + view: 8132
5529 + setLoop: 0
5530 + setCel: 6
5531 + cycleSpeed: 13
5532 + setCycle: Beg
5533 + )
5534 + )
5535 + (10
5536 + (chickenPetite setCycle: End self)
5537 + (gKQEgo setCycle: End)
5538 + )
5539 + (11
5540 + (chickenSound fade:)
5541 + (gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
5542 + (gKQEgo
5543 + normalize: 0
5544 + setScaler: Scaler 83 53 98 78
5545 + cycleSpeed: register
5546 + )
5547 + (proc5300_4)
5548 + (= cycles 2)
5549 + )
5550 + (12
5551 + (archTalker clientCel: 4)
5552 + (gKqMessager say: 1 5 6 4 self)
5553 + )
5554 + (13
5555 + (archTalker clientCel: -1)
5556 + (archDuke setCycle: CT 12 1 self)
5557 + )
5558 + (14
5559 + (archDuke setPri: 86 setCycle: End self)
5560 + )
5561 + (15
5562 + (archDuke hide:)
5563 + (townHallDoor setHotspot: 8 10 setCycle: Beg self)
5564 + )
5565 + (16
5566 + (gKqSound1 number: 802 setLoop: 1 play:)
5567 + (archDuke
5568 + view: 5334
5569 + setLoop: 3 1
5570 + cel: 0
5571 + posn: 218 88
5572 + setPri: 82
5573 + show:
5574 + setCycle: Walk
5575 + setScaler: Scaler 92 73 86 78
5576 + setMotion: MoveTo 177 75 self
5577 + )
5578 + )
5579 + (17
5580 + (chickenTalker modeless: 1)
5581 + (archDuke dispose:)
5582 + (proc11_1 110)
5583 + (if (gKQEgo scratch?)
5584 + (gKQEgo addRespondVerb: 51)
5585 + else
5586 + (gKQEgo setHotspot: 0 51)
5587 + )
5588 + (chinaDoorExit init:)
5589 + (global1 handsOn:)
5590 + (self dispose:)
5591 + )
5592 )
5593 - (2
5594 - (gKqMessager sayRange: 6 5 25 2 4 self)
5595 - )
5596 - (3
5597 - (if (not (gKQEgo has: 47))
5598 - (gKqMessager say: 6 5 25 5 self)
5599 - else
5600 + else
5601 + (switch (= state newState)
5602 + (0
5603 + (gKqSound1 stop:)
5604 + (gKQEgo setScript: 0)
5605 + (if script (script caller: 0))
5606 + (= cycles 2)
5607 + )
5608 + (1
5609 + (gKQEgo
5610 + normalize: 0
5611 + setScaler: Scaler 83 53 98 78
5612 + posn: (archDuke approachX?) (archDuke approachY?)
5613 + cycleSpeed: register
5614 + )
5615 + (archDuke dispose:)
5616 + (proc11_1 110)
5617 + (if (gKQEgo scratch?)
5618 + (gKQEgo addRespondVerb: 51)
5619 + else
5620 + (gKQEgo setHotspot: 0 51)
5621 + )
5622 + (chickenPetite setCycle: 0 setMotion: 0)
5623 + (proc5300_4)
5624 + (archTalker clientCel: -1 hide_mouth: 0 modeless: 1)
5625 + (chickenTalker modeless: 1)
5626 + (chinaDoorExit init:)
5627 + (chickenSound fade:)
5628 + (gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
5629 + (archTalker clientCel: -1)
5630 + (townHallDoor setHotspot: 8 10 cel: 0)
5631 + (UpdateScreenItem townHallDoor)
5632 (global1 handsOn:)
5633 - (snakeSalesman setScript: keepSalesmanBusy)
5634 (self dispose:)
5635 )
5636 )
5637 - (4
5638 - (gKQEgo hide:)
5639 - (= register (snakeSalesman priority?))
5640 - (snakeSalesman
5641 - view: 5325
5642 - setLoop: 2 1
5643 - cel: 0
5644 - posn: 491 134
5645 - setPri: 150
5646 - setCycle: CT 8 1 self
5647 - )
5648 - )
5649 - (5
5650 - (snakeSalesman cel: 9)
5651 - (UpdateScreenItem snakeSalesman)
5652 - (FrameOut)
5653 - (= cycles 1)
5654 - )
5655 - (6
5656 - (gKqMessager say: 6 5 25 6 self)
5657 - )
5658 - (7
5659 - (snakeSalesman setCycle: Beg self)
5660 - )
5661 - (8
5662 - (gKQEgo show:)
5663 - (snakeSalesman
5664 - setLoop: 5
5665 - cel: 7
5666 - setPri: register
5667 - posn: 497 129
5668 - )
5669 - (UpdateScreenItem snakeSalesman)
5670 - (FrameOut)
5671 - (= cycles 3)
5672 - )
5673 - (9
5674 - (gKqMessager sayRange: 6 5 25 7 9 self)
5675 - )
5676 - (10
5677 - (global1 handsOn:)
5678 - (snakeSalesman setScript: keepSalesmanBusy)
5679 - (self dispose:)
5680 - )
5681 )
5682 )
5683 )
5684
5685 -(instance keepSalesmanBusy of Script
5686 +(instance standUpDuke of Script
5687 (properties)
5688
5689 - (method (doit)
5690 - (if (and seconds (or register next))
5691 - (= seconds 0)
5692 - (= cycles 1)
5693 - )
5694 - (super doit:)
5695 - )
5696 -
5697 (method (changeState newState)
5698 (switch (= state newState)
5699 (0
5700 - (= local14 (= state 1))
5701 - (snakeSalesman
5702 - view: 5325
5703 - setLoop: 5
5704 - cel: 7
5705 - posn: 497 129
5706 - setPri: 95
5707 - setCycle: Beg self
5708 - )
5709 - )
5710 - (1
5711 - (= local14 0)
5712 - (= seconds (Random 2 5))
5713 - )
5714 - (2
5715 - (= local14 1)
5716 - (if (and (not next) (not register))
5717 - (if (Random 0 1)
5718 - (self changeState: 8)
5719 - else
5720 - (self changeState: 4)
5721 - )
5722 - else
5723 - (snakeSalesman
5724 - setLoop: 5
5725 - setPri: 95
5726 - posn: 497 129
5727 - setCycle: End self
5728 - )
5729 - )
5730 - )
5731 - (3
5732 - (= register 0)
5733 - (if next (next caller: caller) (= caller 0))
5734 - (self dispose:)
5735 - )
5736 - (4
5737 - (snakeSalesman
5738 - setLoop: 4
5739 - cel: 0
5740 - setPri: 92
5741 - posn: 529 95
5742 - setCycle: CT 6 1 self
5743 - )
5744 - )
5745 - (5
5746 - (if (and (not register) (Random 0 1))
5747 - (-- state)
5748 - (snakeSalesman setCycle: ROsc 1 6 14 self)
5749 - else
5750 - (= cycles 1)
5751 - )
5752 - )
5753 - (6
5754 - (snakeSalesman setCycle: CT 18 1 self)
5755 - )
5756 - (7
5757 - (= state 0)
5758 - (snakeSalesman
5759 - setLoop: 5
5760 - cel: 3
5761 - setPri: 95
5762 - posn: 497 129
5763 - setCycle: End self
5764 - )
5765 - )
5766 - (8
5767 - (snakeSalesman
5768 + (archDuke
5769 + posn: 147 116
5770 setLoop: 3
5771 - cel: 0
5772 - setPri: 92
5773 - posn: 496 129
5774 + setCel: 0
5775 setCycle: End self
5776 )
5777 )
5778 - (9 (= seconds 3))
5779 - (10
5780 - (snakeSalesman setCycle: Beg self)
5781 - )
5782 - (11
5783 - (= state 0)
5784 - (snakeSalesman
5785 + (1
5786 + (archDuke
5787 + posn: 206 107
5788 setLoop: 5
5789 - setPri: 95
5790 - posn: 497 129
5791 - cel: 3
5792 - setCycle: End self
5793 + setCel: 0
5794 + setCycle: CT 4 1 self
5795 )
5796 )
5797 + (2 (self dispose:))
5798 )
5799 )
5800 )
5801
5802 -(instance pool of Feature
5803 - (properties
5804 - sightAngle 180
5805 - approachX 471
5806 - approachY 103
5807 - x 466
5808 - y 108
5809 - )
5810 +(instance theMoonFalls of Script
5811 + (properties)
5812
5813 (method (init)
5814 - (super init:)
5815 - (self
5816 - setHotspot: 8 10 52
5817 - approachVerbs: 8 52
5818 - setPolygon:
5819 - ((Polygon new:)
5820 - type: 1
5821 - init: 445 88 436 107 349 109 330 103 324 87 326 80 355 78 428 81
5822 - yourself:
5823 - )
5824 - )
5825 + (proc11_2 539)
5826 + (super init: &rest)
5827 )
5828
5829 - (method (doVerb theVerb)
5830 - (switch theVerb
5831 - (8
5832 - (global2 setScript: tryToGetMoon)
5833 - )
5834 - (52
5835 - (global2 setScript: getTheMoon)
5836 - )
5837 - )
5838 + (method (dispose)
5839 + (proc11_2 539)
5840 + (super dispose:)
5841 )
5842
5843 - (method (onMe param1 &tmp temp0)
5844 - (if
5845 - (and (= temp0 (super onMe: param1)) (param1 type?))
5846 - (switch (global80 message?)
5847 - (8
5848 - (= approachX 442)
5849 - (= approachY 114)
5850 - (= x 440)
5851 + (method (changeState newState)
5852 + (if (not (proc11_0 539))
5853 + (switch (= state newState)
5854 + (0
5855 + (global1 handsOff: 1)
5856 + (Load rsCDAUDIO 907)
5857 + (Load rsCDAUDIO 854)
5858 + (Load rsCDAUDIO 836)
5859 + (Load rsVIEW 5314)
5860 + (localproc_1162)
5861 + (= global372 9)
5862 + (chickenPetite
5863 + view: 5311
5864 + setLoop: 0 1
5865 + setCycle: Walk
5866 + posn: 607 117
5867 + moveSpeed: 3
5868 + setPri: -1
5869 + init:
5870 + setMotion: MoveTo 500 107 self
5871 + )
5872 + (chickenTalker hide_mouth: 1 modeless: 2)
5873 + (gKqMessager say: 0 0 16 1 chickenPetite)
5874 )
5875 - (else
5876 - (= approachX 471)
5877 - (= approachY 103)
5878 - (= x 466)
5879 + (1
5880 + (chickenPetite setMotion: PolyPath 468 94 self)
5881 )
5882 - )
5883 - )
5884 - (return temp0)
5885 - )
5886 -)
5887 -
5888 -(instance birdCage of Feature
5889 - (properties
5890 - noun 7
5891 - approachX 556
5892 - approachY 110
5893 - x 560
5894 - y 113
5895 - )
5896 -
5897 - (method (init)
5898 - (super init:)
5899 - (self
5900 - setHotspot: 8 10
5901 - approachVerbs: 8
5902 - setPolygon:
5903 - ((Polygon new:)
5904 - type: 0
5905 - init:
5906 - 565
5907 - 105
5908 - 561
5909 - 97
5910 - 561
5911 - 88
5912 - 562
5913 - 82
5914 - 571
5915 - 70
5916 - 574
5917 - 70
5918 - 584
5919 - 80
5920 - 586
5921 - 91
5922 - 585
5923 - 98
5924 - 582
5925 - 105
5926 - 574
5927 - 106
5928 - yourself:
5929 + (2
5930 + (chickenPetite setMotion: PolyPath 393 86 self)
5931 + )
5932 + (3
5933 + (chickenPetite setMotion: PolyPath 321 102 self)
5934 + )
5935 + (4
5936 + (= global372 8)
5937 + (chickenPetite
5938 + setLoop: (if (global84 size:) 7 else 8) 1
5939 + )
5940 + (chickenPetite setMotion: PolyPath 402 117 self)
5941 + )
5942 + (5
5943 + (chickenPetite setMotion: PolyPath 477 98 self)
5944 + )
5945 + (6
5946 + (= global372 8)
5947 + (chickenPetite
5948 + setLoop: (if (global84 size:) 0 else 9) 1
5949 + )
5950 + (chickenPetite setMotion: PolyPath 468 94 self)
5951 + )
5952 + (7
5953 + (= global372 -1)
5954 + (chickenPetite
5955 + view: 5314
5956 + setLoop: 5
5957 + cel: 0
5958 + x: 475
5959 + y: 135
5960 + setPri: 100
5961 + setCycle: 0
5962 + )
5963 + (UnLoad 128 5311)
5964 + (chickenTalker hide_mouth: 1 clientCel: -2)
5965 + (moon
5966 + view: 5312
5967 + loop: 0
5968 + cel: 0
5969 + x: 382
5970 + y: 95
5971 + setPri: 150
5972 + init:
5973 + setCycle: End self
5974 + )
5975 + )
5976 + (8
5977 + (moon loop: 1 cel: 0 setCycle: End self)
5978 )
5979 - )
5980 - )
5981 -
5982 - (method (doVerb)
5983 - (cond
5984 - ((not (proc11_0 138)) (global2 setScript: uncoverCage))
5985 - ((not (proc11_0 139)) (global2 setScript: openCageDoor) (proc11_1 139))
5986 - ((not (gKQEgo has: 42))
5987 - (cond
5988 - ((and (not (proc11_0 109)) (proc11_0 117)) (global2 setScript: getTheChinaBird))
5989 - ((not (proc11_0 109))
5990 - (if (proc11_0 119)
5991 - (global2 setScript: takeBird)
5992 - else
5993 - (global2 setScript: tryGetBird)
5994 - )
5995 + (9
5996 + (mockingBird
5997 + view: 5314
5998 + loop: 3
5999 + cel: 0
6000 + x: 349
6001 + y: 49
6002 + z: 0
6003 + setPri: 150
6004 + setCycle: CT 2 1
6005 )
6006 + (moon loop: 2 cel: 0 setCycle: CT 1 1 self)
6007 + )
6008 + (10
6009 + (gKqSound1 number: 907 loop: 1 play:)
6010 + (moon loop: 2 setCycle: CT 11 1 self)
6011 + )
6012 + (11
6013 + (self setScript: (ScriptID 5300 72))
6014 + (moon setCycle: End self)
6015 + )
6016 + (12
6017 + (chickenPetite setPri: -1 setCycle: CT 6 1 self)
6018 + )
6019 + (13
6020 + (archDukeSound number: 854 loop: 1 play:)
6021 + (chickenPetite setCycle: End self)
6022 + )
6023 + (14
6024 + (gKqSound1 number: 836 loop: 1 play:)
6025 + (chickenPetite
6026 + view: 5315
6027 + loop: 0
6028 + cel: 0
6029 + posn: 415 93
6030 + setPri: 125
6031 + setCycle: End self
6032 + )
6033 + )
6034 + (15
6035 + (moon
6036 + view: 5316
6037 + loop: 6
6038 + cel: 0
6039 + setScript: (ScriptID 5300 71)
6040 + )
6041 + (gKqSound1 number: 836 loop: 1 play:)
6042 + (chickenPetite loop: 1 cel: 0 setCycle: End self)
6043 + )
6044 + (16
6045 + (chickenPetite
6046 + loop: 2
6047 + cel: 0
6048 + setHotspot: 8 10
6049 + approachVerbs: 8
6050 + setPri: 110
6051 + setCycle: End self
6052 + )
6053 + )
6054 + (17
6055 + (global1 handsOn:)
6056 + (pool init:)
6057 + (self dispose:)
6058 )
6059 - (proc11_2 139)
6060 )
6061 - )
6062 - (return 1)
6063 - )
6064 -
6065 - (method (onMe param1 &tmp temp0)
6066 - (if
6067 - (and
6068 - (= temp0 (super onMe: param1))
6069 - (proc11_0 117)
6070 - (proc11_0 138)
6071 + else
6072 + (self setScript: 0)
6073 + (gKqSound1 stop:)
6074 + (proc11_1 113)
6075 + (mockingBird dispose:)
6076 + (chickenPetite view: 5315 loop: 2)
6077 + (chickenPetite
6078 + cel: (chickenPetite lastCel:)
6079 + posn: 415 93
6080 + setPri: 110
6081 + setMotion: 0
6082 + setCycle: 0
6083 + setHotspot: 8 10
6084 + approachVerbs: 8
6085 )
6086 - (= approachX 556)
6087 - (= approachY 113)
6088 - )
6089 - (return temp0)
6090 - )
6091 -)
6092 -
6093 -(instance fauxSign of Feature
6094 - (properties
6095 - noun 8
6096 - approachX 413
6097 - approachY 75
6098 - x 413
6099 - y 70
6100 - )
6101 -
6102 - (method (init)
6103 - (super init:)
6104 - (self
6105 - setHotspot: 8 10
6106 - approachVerbs: 8
6107 - setPolygon:
6108 - ((Polygon new:)
6109 - type: 1
6110 - init: 398 32 399 31 412 30 425 36 425 38 398 40
6111 - yourself:
6112 + (nickel init:)
6113 + (if (not (moon script?))
6114 + (moon
6115 + view: 5316
6116 + loop: 6
6117 + cel: 0
6118 + init:
6119 + setScript: (ScriptID 5300 71)
6120 )
6121 - )
6122 - )
6123 -
6124 - (method (doVerb theVerb)
6125 - (if (== global104 -3)
6126 - (gKqMessager say: noun theVerb 37)
6127 - else
6128 - (gKqMessager say: noun theVerb 0)
6129 + )
6130 + (gKQEgo normalize: 5)
6131 + (pool init:)
6132 + (global1 handsOn:)
6133 + (self dispose:)
6134 )
6135 )
6136 )
6137
6138 -(instance fauxDoor of Prop
6139 - (properties
6140 - noun 12
6141 - approachX 435
6142 - approachY 69
6143 - x 439
6144 - y 69
6145 - z 3
6146 - priority 66
6147 - fixPriority 1
6148 - view 5302
6149 - loop 2
6150 - )
6151 -
6152 - (method (init)
6153 - (super init:)
6154 - (if (not (proc11_0 276)) (self setHotspot: 8 10))
6155 - (self
6156 - approachVerbs: 8
6157 - setPolygon:
6158 - ((Polygon new:)
6159 - type: 1
6160 - init: 438 65 446 67 443 30 431 33
6161 - yourself:
6162 - )
6163 - )
6164 - )
6165 +(instance bobbingMoon of Script
6166 + (properties)
6167
6168 - (method (doVerb)
6169 - (cond
6170 - ((== global104 -4)
6171 - (cond
6172 - ((proc11_0 203) (global2 setScript: (ScriptID 5301 4)))
6173 - ((== global122 5) (global2 setScript: enterFauxShop))
6174 - ((and (proc11_0 120) (proc11_0 121)) (gKqMessager say: 8 8 34 0))
6175 - ((not (proc11_0 123)) (gKqMessager say: 8 8 33 0))
6176 - ((proc11_0 122) (global2 setScript: enterFauxShop))
6177 - (else (global2 setScript: walkThroughDoor))
6178 + (method (changeState newState)
6179 + (switch (= state newState)
6180 + (0
6181 + (moon
6182 + view: 5316
6183 + setLoop: 6 1
6184 + cel: 14
6185 + cycleSpeed: 8
6186 + posn: 409 93
6187 + setPri: 110
6188 + setCycle: Beg self
6189 )
6190 )
6191 - ((proc11_0 149) (global2 setScript: enterFauxShop))
6192 - (else (global2 setScript: walkThroughDoor))
6193 - )
6194 - )
6195 -
6196 - (method (onMe param1 &tmp temp0)
6197 - (if
6198 - (and
6199 - (= temp0 (super onMe: param1))
6200 - (param1 type?)
6201 - (== loop 5)
6202 + (1
6203 + (if register
6204 + (moon setCycle: End self)
6205 + else
6206 + (-- state)
6207 + (moon setCycle: ROsc 1 4 9 self)
6208 + )
6209 )
6210 - (= approachX (- x 3))
6211 - (= approachY y)
6212 + (2 (self dispose:))
6213 )
6214 - (return temp0)
6215 )
6216 )
6217
6218 -(instance readFauxDoorSign of Script
6219 +(instance mockingBirdFlysAway of Script
6220 (properties)
6221
6222 (method (changeState newState)
6223 (switch (= state newState)
6224 (0
6225 - (global1 handsOff:)
6226 - (gKQEgo setHeading: 90 self)
6227 + (gKqSound1 number: 5312 loop: 1 play:)
6228 + (mockingBird view: 5314 loop: 3 cel: 2 setCycle: End self)
6229 )
6230 (1
6231 - (gKqMessager say: 8 8 register 0)
6232 + (nickel init:)
6233 + (mockingBird
6234 + setLoop: 4 1
6235 + cel: 0
6236 + setCycle: Fwd
6237 + posn: 362 52
6238 + setPri: 150
6239 + moveSpeed: 1
6240 + setMotion: MoveTo 640 1 self
6241 + )
6242 )
6243 (2
6244 - (global1 handsOn:)
6245 + (proc11_1 113)
6246 + (mockingBird dispose:)
6247 (self dispose:)
6248 )
6249 )
6250 )
6251 )
6252
6253 -(instance fauxDoorExit of ExitFeature
6254 - (properties
6255 - noun 12
6256 - approachX 435
6257 - approachY 69
6258 - x 439
6259 - y 66
6260 - exitDir 2
6261 - )
6262 -
6263 - (method (init)
6264 - (super init:)
6265 - (self setHotspot: 8 10 approachVerbs: 8)
6266 - (fauxDoor setHotspot: 0)
6267 - )
6268 -
6269 - (method (doVerb theVerb)
6270 - (fauxDoor doVerb: theVerb)
6271 - )
6272 -
6273 - (method (onMe param1 &tmp temp0)
6274 - (if
6275 - (and
6276 - (= temp0 (fauxDoor onMe: param1))
6277 - (param1 type?)
6278 - (proc11_0 203)
6279 - )
6280 - (= approachX 424)
6281 - (= approachY 72)
6282 - )
6283 - (return temp0)
6284 - )
6285 -)
6286 -
6287 -(instance enterFauxShop of Script
6288 +(instance cantPassDuke of Script
6289 (properties)
6290
6291 (method (changeState newState)
6292 (switch (= state newState)
6293 (0
6294 (global1 handsOff:)
6295 - (if (!= global104 -3)
6296 - (gKQEgo view: 8121 loop: 0 cel: 0 setCycle: CT 2 1 self)
6297 - else
6298 - (= cycles 1)
6299 - )
6300 + (gKQEgo setMotion: 0)
6301 + (= cycles 1)
6302 )
6303 (1
6304 - (gKqSound1 number: 801 loop: 1 play:)
6305 - (fauxDoor setCycle: End self)
6306 - (if (!= global104 -3)
6307 - (gKQEgo setCycle: Beg self)
6308 - else
6309 - (= cycles 1)
6310 - )
6311 + (archTalker modeless: 2)
6312 + (gKqMessager say: 0 0 2 0 self)
6313 + (self setScript: (ScriptID 5300 74) self)
6314 )
6315 (2 0)
6316 (3
6317 - (gKQEgo normalize: 0 setMotion: MoveTo 450 69 self)
6318 + (global1 handsOn:)
6319 + (self dispose:)
6320 )
6321 - (4 (global2 newRoom: 5000))
6322 )
6323 )
6324 )
6325
6326 -(instance snakeSalesman of Prop
6327 - (properties
6328 - x 531
6329 - y 90
6330 - priority 90
6331 - fixPriority 1
6332 - view 5323
6333 - loop 1
6334 - )
6335 -)
6336 -
6337 -(instance crook of Prop
6338 - (properties)
6339 -)
6340 -
6341 -(instance egoActions of Actions
6342 +(instance stepBackEgo of Script
6343 (properties)
6344
6345 - (method (doVerb theVerb)
6346 - (switch theVerb
6347 - (57
6348 - (if (localproc_77f0 195)
6349 - (global2 setScript: putOnMask)
6350 - else
6351 - (return 0)
6352 + (method (changeState newState)
6353 + (switch (= state newState)
6354 + (0
6355 + (gKQEgo
6356 + view: 8021
6357 + setLoop: 0
6358 + setCel: 0
6359 + setCycle: End self
6360 )
6361 )
6362 - (else (return 0))
6363 - )
6364 - (return 1)
6365 - )
6366 -)
6367 -
6368 -(instance partySound1 of Sound
6369 - (properties
6370 - flags $0004
6371 - number 5100
6372 - loop -1
6373 - )
6374 -)
6375 -
6376 -(instance partySound2 of Sound
6377 - (properties
6378 - flags $0004
6379 - number 5102
6380 - loop -1
6381 - )
6382 -)
6383 -
6384 -(instance archDukeSound of Sound
6385 - (properties
6386 - flags $0004
6387 - number 5301
6388 - loop -1
6389 - )
6390 -)
6391 -
6392 -(instance chickenSound of Sound
6393 - (properties
6394 - flags $0004
6395 - number 5310
6396 - loop -1
6397 - )
6398 -)
6399 -
6400 -(instance gateGuard of Actor
6401 - (properties
6402 - noun 10
6403 - approachX 61
6404 - approachY 113
6405 - x 29
6406 - y 113
6407 - view 5328
6408 - )
6409 -
6410 - (method (init)
6411 - (super init: &rest)
6412 - (self setHotspot: 8 10 approachVerbs: 8)
6413 - )
6414 -
6415 - (method (doVerb)
6416 - (guardTalker client: self)
6417 - (cond
6418 - ((not (proc11_1 542)) (gKqMessager say: noun 8 39 0))
6419 - ((not (proc11_1 543)) (gKqMessager say: noun 8 38 0))
6420 - (else (gKqMessager say: noun 8 40 0))
6421 - )
6422 - )
6423 -
6424 - (method (cue)
6425 - (self view: 5328 setLoop: 0 cel: 0 setCycle: 0)
6426 - (UpdateScreenItem self)
6427 - (FrameOut)
6428 - )
6429 -)
6430 -
6431 -(instance feather of View
6432 - (properties
6433 - approachX 280
6434 - approachY 93
6435 - x 295
6436 - y 62
6437 - priority 93
6438 - fixPriority 1
6439 - view 5331
6440 - loop 5
6441 - )
6442 -
6443 - (method (init)
6444 - (super init: &rest)
6445 - (if (not (gKQEgo has: 41))
6446 - (self setHotspot: 8 10 approachVerbs: 8)
6447 - (= signal (& signal $efff))
6448 + (1
6449 + (gKQEgo
6450 + normalize: 0
6451 + setScaler: Scaler 83 53 98 78
6452 + posn: 90 (gKQEgo y?)
6453 + ignoreActors: 1
6454 + )
6455 + (self dispose:)
6456 + )
6457 )
6458 )
6459 -
6460 - (method (doVerb)
6461 - (global2 setScript: getFeather)
6462 - )
6463 )
6464
6465 -(instance getFeather of Script
6466 +(instance walkThroughDoor of Script
6467 (properties)
6468
6469 (method (changeState newState)
6470 (switch (= state newState)
6471 (0
6472 (global1 handsOff:)
6473 - (= gKQEgoX (gKQEgo x?))
6474 - (= gKQEgoY (gKQEgo y?))
6475 - (= cycles 3)
6476 + (gKqSound1 number: 801 loop: 1 play:)
6477 + (fauxDoor setCycle: End self)
6478 )
6479 (1
6480 - (gKQEgo view: 8075 loop: 0 cel: 0 setCycle: End self)
6481 + (gKQEgo setMotion: MoveTo 457 69 self)
6482 )
6483 (2
6484 - (feather dispose:)
6485 - (gKQEgo get: 41 setCycle: Beg self)
6486 + (gKQEgo setMotion: MoveTo 466 69 self)
6487 )
6488 (3
6489 + (gKQEgo setHeading: 180 self)
6490 + )
6491 + (4 (= seconds 3))
6492 + (5
6493 (gKQEgo
6494 - normalize: 6
6495 - posn: gKQEgoX gKQEgoY
6496 - setScaler: Scaler 83 53 98 78
6497 + setMotion: MoveTo (fauxDoor approachX?) (fauxDoor approachY?) self
6498 )
6499 + )
6500 + (6
6501 + (fauxDoor setCycle: Beg self)
6502 + )
6503 + (7
6504 + (gKqSound1 number: 802 loop: 1 play:)
6505 (global1 handsOn:)
6506 (self dispose:)
6507 )
6508 @@ -5252,250 +2873,519 @@
6509 )
6510 )
6511
6512 -(instance wagonSign of View
6513 - (properties
6514 - x 520
6515 - y 53
6516 - priority 95
6517 - fixPriority 1
6518 - view 5300
6519 - loop 7
6520 - )
6521 -
6522 - (method (init)
6523 - (super init: &rest)
6524 - (= local15 1)
6525 - )
6526 -)
6527 -
6528 -(instance cageDoor of Prop
6529 - (properties
6530 - x 577
6531 - y 94
6532 - priority 98
6533 - fixPriority 1
6534 - view 5300
6535 - loop 3
6536 - )
6537 -)
6538 -
6539 -(instance glint1 of Prop
6540 - (properties
6541 - x 365
6542 - y 92
6543 - priority 109
6544 - fixPriority 1
6545 - view 5300
6546 - loop 4
6547 - cycleSpeed 9
6548 - )
6549 +(instance partyGoers of Script
6550 + (properties)
6551
6552 - (method (init)
6553 - (super init: &rest)
6554 - (self setScript: glintScript)
6555 - )
6556 -)
6557 -
6558 -(instance glint2 of Prop
6559 - (properties
6560 - x 414
6561 - y 94
6562 - priority 109
6563 - fixPriority 1
6564 - view 5300
6565 - loop 5
6566 - cycleSpeed 10
6567 - )
6568 -)
6569 -
6570 -(instance glint3 of Prop
6571 - (properties
6572 - x 394
6573 - y 93
6574 - priority 109
6575 - fixPriority 1
6576 - view 5300
6577 - loop 6
6578 - cycleSpeed 14
6579 + (method (changeState newState)
6580 + (if (not (proc11_0 539))
6581 + (switch (= state newState)
6582 + (0
6583 + (global1 handsOff: 1)
6584 + (gKQEgo setMotion: 0)
6585 + (proc11_3 gKQEgo badger 0)
6586 + (stork setCycle: CT 11 1 self)
6587 + (hippo setCycle: CT 9 1 self)
6588 + )
6589 + (1 0)
6590 + (2
6591 + (badger setCycle: CT 12 1 self)
6592 + )
6593 + (3
6594 + (guardTalker clientCel: -2 client: badger)
6595 + (gKqMessager say: 0 0 15 0 self)
6596 + )
6597 + (4
6598 + (badger setPri: 110 setCycle: End self)
6599 + )
6600 + (5
6601 + (stork setCycle: End self)
6602 + (hippo setCycle: End self)
6603 + )
6604 + (6 0)
6605 + (7
6606 + (stork dispose:)
6607 + (hippo view: -12406 setLoop: 0 cel: 0 setCycle: End self)
6608 + )
6609 + (8
6610 + (hippo dispose:)
6611 + (badger setCycle: CT 15 -1 self)
6612 + )
6613 + (9
6614 + (badger
6615 + view: 5305
6616 + setLoop: 3
6617 + posn: 217 93
6618 + cel: 0
6619 + setPri: 82
6620 + setCycle: End self
6621 + )
6622 + )
6623 + (10
6624 + (badger dispose:)
6625 + (townHallDoor setCycle: Beg self)
6626 + )
6627 + (11
6628 + (gKqSound1 number: 802 loop: 1 play:)
6629 + (global1 handsOn:)
6630 + (self dispose:)
6631 + )
6632 + )
6633 + else
6634 + (proc11_2 539)
6635 + (gKqSound1 stop:)
6636 + (badger dispose:)
6637 + (hippo dispose:)
6638 + (stork dispose:)
6639 + (townHallDoor cel: 0)
6640 + (UpdateScreenItem townHallDoor)
6641 + (global1 handsOn:)
6642 + (self dispose:)
6643 + )
6644 )
6645 )
6646
6647 -(instance glintScript of Script
6648 +(instance rosellaFirstEnter of Script
6649 (properties)
6650
6651 - (method (init)
6652 - (glint2 init: hide:)
6653 - (glint3 init: hide:)
6654 - (super init: &rest)
6655 - )
6656 -
6657 (method (changeState newState)
6658 (switch (= state newState)
6659 (0
6660 - (glint1 show: cel: 0 setCycle: End self)
6661 + (global1 handsOff:)
6662 + (Load rsSOUND 5307)
6663 + (Load rsSOUND 5308)
6664 + (Load rsCDAUDIO 5408)
6665 + (townHallDoor cel: 4 setPri: 80)
6666 + (archDukeSound number: 5307 loop: -1 play:)
6667 + (archDuke
6668 + view: 5341
6669 + loop: 0
6670 + cel: 0
6671 + x: 229
6672 + y: 105
6673 + cycleSpeed: 10
6674 + init:
6675 + setCycle: Fwd
6676 + )
6677 + (self setScript: (ScriptID 5300 8) self)
6678 )
6679 (1
6680 - (glint1 hide:)
6681 - (glint2 show: cel: 0 setCycle: End self)
6682 + (gKQEgo setMotion: PolyPath 170 111 self)
6683 )
6684 (2
6685 - (glint2 hide:)
6686 - (= state -1)
6687 - (glint3 show: cel: 0 setCycle: End self)
6688 + (archDukeSound number: 5308 loop: 1 play:)
6689 + (archDuke cel: 0 setCycle: End self)
6690 + )
6691 + (3
6692 + (archDuke loop: 1 cel: 0 x: 233 y: 105 setCycle: End self)
6693 + )
6694 + (4
6695 + (archDuke loop: 2 cel: 0 x: 233 y: 105 setCycle: End self)
6696 + )
6697 + (5
6698 + (archDukeSound fade: 0 50 20 1)
6699 + (archTalker clientCel: -2 loop: 3)
6700 + (gKqMessager sayRange: 0 0 35 1 3 self)
6701 + )
6702 + (6
6703 + (archDukeSound number: 5307 loop: -1 play:)
6704 + (archDuke
6705 + view: 5341
6706 + loop: 0
6707 + cel: 0
6708 + x: 229
6709 + y: 105
6710 + setCycle: Fwd
6711 + )
6712 + (= seconds 3)
6713 + )
6714 + (7
6715 + (archDukeSound number: 5308 loop: 1 play: fade: 0 50 20 1)
6716 + (archDuke
6717 + view: 5342
6718 + loop: 0
6719 + cel: 0
6720 + x: 233
6721 + y: 103
6722 + setCycle: End self
6723 + )
6724 + )
6725 + (8
6726 + (gKqSound1 number: 5408 loop: 1 play: self)
6727 + (archDuke view: 5342 loop: 1 cel: 0 x: 233 y: 103)
6728 + (UpdateScreenItem archDuke)
6729 + (FrameOut)
6730 + )
6731 + (9
6732 + (archTalker hide_mouth: 1 clientCel: -2)
6733 + (gKqMessager say: 0 0 35 4 self)
6734 + )
6735 + (10
6736 + (gKqMusic1 loop: -1 play: setVol: 0 fade: 127 25 10 0)
6737 + (archDuke
6738 + view: 5334
6739 + setLoop: 3 1
6740 + cel: 0
6741 + x: 234
6742 + y: 100
6743 + setPri: 82
6744 + setCycle: Walk
6745 + setMotion: MoveTo 177 75 self
6746 + )
6747 + )
6748 + (11
6749 + (archDuke dispose:)
6750 + (townHallDoor setCycle: Beg self)
6751 + )
6752 + (12
6753 + (gKqSound1 number: 802 loop: 1 play:)
6754 + (if (not (proc11_1 167))
6755 + ((ScriptID 13 0) hide_mouth: 1)
6756 + (gKqMessager say: 0 0 36 0 self)
6757 + else
6758 + (self cue:)
6759 + )
6760 + )
6761 + (13
6762 + ((ScriptID 13 0) hide_mouth: 0)
6763 + (if (gKQEgo scratch?)
6764 + (gKQEgo addRespondVerb: 51)
6765 + else
6766 + (gKQEgo setHotspot: 0 51)
6767 + )
6768 + (global1 handsOn:)
6769 + (self dispose:)
6770 )
6771 )
6772 )
6773 )
6774
6775 -(instance archTalker of KQTalker
6776 - (properties
6777 - clientCel -1
6778 - )
6779 -
6780 - (method (init)
6781 - (= client archDuke)
6782 - (super init: &rest)
6783 - )
6784 -)
6785 -
6786 -(instance bull of Prop
6787 - (properties
6788 - x 108
6789 - y 78
6790 - priority 92
6791 - fixPriority 1
6792 - view 5337
6793 - loop 1
6794 - )
6795 -)
6796 -
6797 -(instance bullTalker of KQTalker
6798 - (properties)
6799 -
6800 - (method (init)
6801 - (= client bull)
6802 - (super init: &rest)
6803 - )
6804 -)
6805 -
6806 -(instance fauxOwnerTalker of KQTalker
6807 - (properties)
6808 -
6809 - (method (init)
6810 - (= client fauxDoor)
6811 - (= mouth_y (* (client z?) -1))
6812 - (super init: &rest)
6813 - )
6814 -)
6815 -
6816 -(instance mockingBirdTalker of KQTalker
6817 +(instance snakeChickenCartoon of Script
6818 (properties)
6819
6820 (method (init)
6821 - (= client mockingBird)
6822 - (= loop 2)
6823 - (= mouth_y (* (client z?) -1))
6824 - (super init: &rest)
6825 - )
6826 -)
6827 -
6828 -(instance guardTalker of KQTalker
6829 - (properties
6830 - clientCel -1
6831 - )
6832 -
6833 - (method (init)
6834 - (if (not client) (= client badger))
6835 + (proc11_2 539)
6836 (super init: &rest)
6837 )
6838 -)
6839 -
6840 -(instance snakeTalker of KQTalker
6841 - (properties)
6842
6843 - (method (init)
6844 - (if (!= client gKQEgo) (= client snakeSalesman))
6845 - (super init: &rest)
6846 - )
6847 -)
6848 -
6849 -(instance chickenTalker of KQTalker
6850 - (properties
6851 - hide_mouth 1
6852 + (method (dispose)
6853 + (proc11_2 539)
6854 + (super dispose:)
6855 )
6856
6857 - (method (init)
6858 - (= client chickenPetite)
6859 - (super init: &rest)
6860 + (method (changeState newState)
6861 + (if (not (proc11_0 539))
6862 + (switch (= state newState)
6863 + (0
6864 + (global1 handsOff: 1)
6865 + (Load rsVIEW 5323)
6866 + (Load rsVIEW 5325)
6867 + (chickenPetite
6868 + view: 5323
6869 + loop: 0
6870 + cel: 0
6871 + x: 520
6872 + y: 108
6873 + init:
6874 + )
6875 + (chickenTalker hide_mouth: 0 clientCel: -2 modeless: 2)
6876 + (gKqMessager say: 0 0 21 1 self)
6877 + )
6878 + (1
6879 + (snakeSalesman
6880 + view: 5323
6881 + loop: 1
6882 + cel: 0
6883 + posn: 529 92
6884 + setCycle: End self
6885 + )
6886 + )
6887 + (2
6888 + (gKqMessager say: 0 0 21 2 self)
6889 + )
6890 + (3
6891 + (snakeSalesman
6892 + view: 5323
6893 + loop: 2
6894 + cel: 0
6895 + posn: 534 95
6896 + setCycle: End self
6897 + )
6898 + )
6899 + (4
6900 + (gKqMessager sayRange: 0 0 21 3 4 self)
6901 + )
6902 + (5
6903 + (snakeSalesman
6904 + view: 5323
6905 + loop: 3
6906 + cel: 0
6907 + posn: 543 90
6908 + setCycle: End self
6909 + )
6910 + )
6911 + (6
6912 + (gKqMessager say: 0 0 21 5 self)
6913 + )
6914 + (7
6915 + (chickenPetite setCycle: End self)
6916 + )
6917 + (8
6918 + (chickenPetite dispose:)
6919 + (snakeSalesman
6920 + view: 5325
6921 + loop: 0
6922 + cel: 4
6923 + posn: 491 128
6924 + setCycle: End self
6925 + )
6926 + )
6927 + (9
6928 + (snakeSalesman setScript: (ScriptID 5302 0))
6929 + (gKQEgo setHeading: 180 self)
6930 + )
6931 + (10
6932 + (global1 handsOn:)
6933 + (self dispose:)
6934 + )
6935 + )
6936 + else
6937 + (chickenPetite dispose:)
6938 + (if (not (snakeSalesman script?))
6939 + (snakeSalesman setScript: (ScriptID 5302 0))
6940 + )
6941 + (gKQEgo normalize: 2)
6942 + (global1 handsOn:)
6943 + (self dispose:)
6944 + )
6945 )
6946 )
6947
6948 -(instance chinaBirdTalker of KQTalker
6949 +(instance getTheMoon of Script
6950 (properties)
6951
6952 - (method (init)
6953 - (= client chinaBird)
6954 - (super init: &rest)
6955 + (method (changeState newState)
6956 + (switch (= state newState)
6957 + (0
6958 + (global1 handsOff:)
6959 + (Load rsVIEW 5319)
6960 + (guardTalker client: archDuke view: 5319 loop: 28)
6961 + (global2 centerScreen: -318 self 10)
6962 + )
6963 + (1
6964 + (moon setScript: 0 cel: 9 setCycle: End)
6965 + (gKQEgo
6966 + view: 5322
6967 + loop: 0
6968 + cel: 0
6969 + x: 463
6970 + y: 101
6971 + setPri: 109
6972 + setScale: 0
6973 + setCycle: CT 9 1 self
6974 + )
6975 + )
6976 + (2
6977 + (gKqSound1 number: 836 loop: -1 play:)
6978 + (gKQEgo cel: 10 setCycle: End self)
6979 + )
6980 + (3
6981 + (gKQEgo view: 5322 loop: 1 cel: 0 setCycle: End self)
6982 + )
6983 + (4
6984 + (gKQEgo view: 5322 loop: 2 cel: 0 setCycle: CT 5 1 self)
6985 + )
6986 + (5
6987 + (gKqSound1 stop:)
6988 + (gKQEgo setCycle: End self)
6989 + )
6990 + (6
6991 + (gKQEgo view: 5318 loop: 3 cel: 0 setCycle: CT 3 1 self)
6992 + )
6993 + (7
6994 + (gKqSound1 number: 836 loop: -1 play:)
6995 + (gKQEgo cel: 4 setCycle: End self)
6996 + )
6997 + (8
6998 + (self setScript: (ScriptID 5300 80))
6999 + (gKQEgo view: 5324 loop: 0 cel: 0 setCycle: CT 4 1 self)
7000 + )
7001 + (9
7002 + (gKqSound1 stop:)
7003 + (gKQEgo setCycle: CT 15 1 self)
7004 + )
7005 + (10
7006 + (gKQEgo setCycle: End crook)
7007 + (= global378 1)
7008 + (gKqMusic1 number: 5315 loop: 1 play:)
7009 + (gateGuard
7010 + view: 5328
7011 + setLoop: 2 1
7012 + cel: 0
7013 + init:
7014 + posn: 290 113
7015 + setCycle: Walk
7016 + setSpeed: 4
7017 + setMotion: MoveTo 420 118 hippo
7018 + )
7019 + (archDuke
7020 + view: 5320
7021 + loop: 0
7022 + cel: 0
7023 + x: 469
7024 + y: 136
7025 + setPri: 90
7026 + cycleSpeed: 6
7027 + init:
7028 + setScale: 0
7029 + setCycle: CT 29 1 self
7030 + )
7031 + )
7032 + (11
7033 + (archDuke setPri: 100 setCycle: End self)
7034 + )
7035 + (12
7036 + (gKQEgo dispose:)
7037 + (archDuke view: 5319 loop: 7 cel: 0 setCycle: End self)
7038 + )
7039 + (13
7040 + (if (gateGuard mover?) (-- state))
7041 + (= cycles 3)
7042 + )
7043 + (14
7044 + (gKqMessager sayRange: 0 0 18 1 2 self)
7045 + )
7046 + (15
7047 + (guardTalker
7048 + client: gateGuard
7049 + view: -1
7050 + loop: 1
7051 + hide_mouth: 0
7052 + )
7053 + (gKqMessager sayRange: 0 0 18 3 4 self)
7054 + )
7055 + (16
7056 + (= global378 1)
7057 + (gKqMusic1 number: 5316 loop: 1 play: self)
7058 + )
7059 + (17
7060 + (gKQEgo get: 48)
7061 + (proc11_1 126)
7062 + (global2 newRoom: 35)
7063 + )
7064 + )
7065 )
7066 )
7067
7068 -(instance roomFeatureInitCode of Code
7069 +(instance crookFalls of Script
7070 (properties)
7071
7072 - (method (doit param1)
7073 - (if
7074 - (and
7075 - (not (param1 isKindOf: KQInventory))
7076 - (param1 respondsTo: #signal)
7077 + (method (changeState newState)
7078 + (switch (= state newState)
7079 + (0
7080 + (crook
7081 + view: 5318
7082 + loop: 4
7083 + cel: 0
7084 + x: 425
7085 + y: 93
7086 + setPri: 140
7087 + init:
7088 + setCycle: End self
7089 + )
7090 )
7091 - (param1
7092 - sightAngle: 10
7093 - signal: (| (param1 signal?) $7001)
7094 + (1
7095 + (gKQEgo put: 39)
7096 + (crook dispose:)
7097 + (self dispose:)
7098 )
7099 )
7100 )
7101 )
7102
7103 -(instance iSign of Inset
7104 - (properties
7105 - picture 5303
7106 - priority 200
7107 - )
7108 -
7109 - (method (init)
7110 - (= x (Abs ((global2 plane?) left:)))
7111 - (super init: &rest)
7112 - (proc11_6)
7113 - )
7114 -)
7115 -
7116 -(instance tryToGetMoon of Script
7117 +(instance talkToChickenAboutMoon of Script
7118 (properties)
7119
7120 - (method (changeState newState)
7121 + (method (changeState newState &tmp temp0)
7122 (switch (= state newState)
7123 (0
7124 (global1 handsOff:)
7125 - (gKQEgo view: 8075 setLoop: 1 1 cel: 0 setCycle: End self)
7126 + (gKqMessager say: 4 8 17 1 self)
7127 )
7128 (1
7129 - ((ScriptID 13 0) hide_mouth: 1)
7130 - (gKqMessager say: 12 8 18 2 self 1100)
7131 + (chickenPetite view: 5311 setLoop: 6 cel: 0 posn: 424 82)
7132 + (UpdateScreenItem chickenPetite)
7133 + (FrameOut)
7134 + (chickenTalker hide_mouth: 0 modeless: 2)
7135 + (= cycles 1)
7136 + )
7137 + (2
7138 + (gKqMessager say: 4 8 17 2 self)
7139 )
7140 - (2 (gKQEgo setCycle: Beg self))
7141 (3
7142 - (gKQEgo view: 8295 setLoop: 1 1 cel: 0 setCycle: End self)
7143 + (chickenTalker hide_mouth: 1 modeless: 2 loop: -1)
7144 + (chickenPetite setCycle: CT 3 1 self)
7145 )
7146 (4
7147 - ((ScriptID 13 0) hide_mouth: 1)
7148 - (gKqMessager say: 1 8 3 0 self 1250)
7149 + (chickenPetite setLoop: 2 1 cel: 4 setCycle: Beg self)
7150 )
7151 (5
7152 - ((ScriptID 13 0) hide_mouth: 0)
7153 - (gKQEgo setCycle: Beg self)
7154 + (gKqMessager say: 4 8 17 3 self)
7155 )
7156 (6
7157 - (gKQEgo normalize: 7)
7158 + (gKqSound1 number: 5311 loop: 1 play:)
7159 + (chickenPetite
7160 + setCycle: ROsc -1 0 2
7161 + moveSpeed: 8
7162 + setMotion: MoveTo 452 64 self
7163 + )
7164 + )
7165 + (7
7166 + (chickenPetite setCycle: End self)
7167 + )
7168 + (8
7169 + (gKQEgo hide:)
7170 + (chickenPetite
7171 + setLoop: 3
7172 + cel: 0
7173 + setPri: -1
7174 + posn: 459 100
7175 + setCycle: Fwd
7176 + )
7177 + (gKqMessager say: 4 8 17 4 self)
7178 + )
7179 + (9
7180 + (chickenPetite setCycle: End self)
7181 + )
7182 + (10
7183 + (chickenPetite
7184 + setLoop: 4
7185 + cel: 0
7186 + posn: 451 93
7187 + setCycle: End self
7188 + )
7189 + )
7190 + (11
7191 + (gKQEgo show:)
7192 + (= temp0 (- (Abs (gNewPlane_2 left:)) 10))
7193 + (chickenPetite
7194 + setLoop: 0 1
7195 + setCel: 0
7196 + setCycle: Walk
7197 + ignoreActors: 1
7198 + setMotion: PolyPath temp0 (chickenPetite y?) self
7199 + )
7200 + (gKqMessager say: 4 8 17 5 self)
7201 + )
7202 + (12
7203 + (gKQEgo
7204 + normalize: 1
7205 + posn: (chickenPetite approachX?) (chickenPetite approachY?)
7206 + setHeading: 180 self
7207 + )
7208 + )
7209 + (13 0)
7210 + (14
7211 + (proc5300_4)
7212 (global1 handsOn:)
7213 (self dispose:)
7214 )
7215