diff --git a/1.4 b/2.0b
index 09f6fc8..d866a2c 100644
--- a/1.4
+++ b/2.0b
@@ -22,7 +22,6 @@
 	rm5300 0
 	chickenPetite 1
 	chickenSound 2
-	chickenTimerScript 3
 	proc5300_4 4
 	archDuke 5
 	townHallDoor 6
@@ -32,33 +31,84 @@
 	fauxDoor 10
 	bull 11
 	chinaDoor 12
+	glint1 13
+	glint2 14
+	glint3 15
+	proc5300_16 16
+	bigGate 17
+	fauxSign 18
+	badger 19
+	curtain 20
+	chinaBird 21
+	mockingBird 22
+	stork 23
+	hippo 24
+	moon 25
+	nickel 26
+	yBranch 27
+	rubChicken 28
 	archTalker 29
 	chickenTalker 30
 	guardTalker 31
+	cageCover 32
 	mockingBirdTalker 33
 	snakeTalker 34
 	chinaBirdTalker 35
 	bullTalker 36
 	fauxOwnerTalker 37
+	fauxDoorExit 38
+	crook 39
+	partySound1 40
+	partySound2 41
+	feather 45
+	wagonSign 46
+	cageDoor 47
+	iSign 50
+	sky 51
+	bigGate 52
+	littleDoor 53
+	littleDoorExit 54
+	chinaDoorExit 55
+	wagon 56
+	pool 57
+	birdCage 58
+	snakeSalesman 59
+	chickenRunsOff 61
+	archDukeTalk 62
+	unCoverCage 63
+	openCageDoor 64
+	getTheChinaBird 65
+	tryGetBird 66
+	getBlownOn 67
+	showTheComb 68
+	standUpDuke 69
+	theMoonFalls 70
+	bobbingMoon 71
+	mockingBirdFlysAway 72
+	cantPassDuke 73
+	stepBackEgo 74
+	walkThroughDoor 75
+	partyGoers 76
+	rosellaFirstEnter 77
+	snakeChickenCartoon 78
+	getTheMoon 79
+	crookFalls 80
+	talkToChickenAboutMoon 81
 )

 (local
 	local0
 	local1
 	local2
-	local3
-	[local4 2]
+	[local3 2]
+	local5
 	local6
-	local7
 	gKQEgoX
 	gKQEgoY
 	theGRoomFeatureInitCode
+	local10
 	local11
 	local12
-	local13
-	local14
-	local15
-	local16
 )
 (procedure (proc5300_4)
 	(cond
@@ -89,7 +139,7 @@
 	)
 )

-(procedure (localproc_77f0 param1 &tmp temp0)
+(procedure (proc5300_16 param1 &tmp temp0)
 	(return
 		(if
 		(<= (= temp0 (Abs (gNewPlane_2 left:))) param1)
@@ -100,163 +150,6 @@
 	)
 )

-(procedure (localproc_7b59)
-	(if (global2 obstacles?)
-		((global2 obstacles?) dispose:)
-		(global2 obstacles: 0)
-	)
-	(global2
-		addObstacle:
-			(if (or (<= global122 4) (proc11_0 202))
-				((Polygon new:)
-					type: 3
-					init:
-						16
-						117
-						39
-						121
-						102
-						129
-						191
-						124
-						232
-						110
-						264
-						101
-						299
-						101
-						342
-						119
-						449
-						123
-						497
-						109
-						536
-						121
-						587
-						121
-						562
-						110
-						548
-						113
-						507
-						104
-						475
-						86
-						475
-						70
-						455
-						75
-						432
-						68
-						416
-						75
-						358
-						75
-						345
-						70
-						307
-						70
-						294
-						77
-						251
-						95
-						216
-						102
-						142
-						111
-						100
-						111
-						45
-						99
-					yourself:
-				)
-			else
-				((Polygon new:)
-					type: 3
-					init:
-						57
-						105
-						57
-						116
-						21
-						116
-						14
-						117
-						39
-						121
-						102
-						129
-						191
-						124
-						232
-						110
-						264
-						101
-						299
-						101
-						342
-						119
-						449
-						123
-						497
-						109
-						536
-						121
-						587
-						121
-						562
-						108
-						548
-						113
-						507
-						104
-						475
-						86
-						475
-						70
-						455
-						75
-						432
-						68
-						416
-						75
-						357
-						75
-						343
-						68
-						307
-						68
-						294
-						77
-						251
-						95
-						216
-						102
-						142
-						111
-						100
-						111
-						51
-						98
-						39
-						105
-					yourself:
-				)
-			)
-			((Polygon new:)
-				type: 2
-				init: 396 90 476 98 455 111 341 111 326 108 325 101
-				yourself:
-			)
-			((Polygon new:)
-				type: 2
-				init: 278 94 284 85 374 85 374 90 341 94
-				yourself:
-			)
-	)
-)
-
 (instance rm5300 of KQRoom
 	(properties
 		picture 5301
@@ -269,23 +162,23 @@
 		(super init:)
 		(= global372 -1)
 		(= temp1 0)
-		(= local13 0)
+		(= local10 0)
 		(= temp0 5300)
 		(= theGRoomFeatureInitCode gRoomFeatureInitCode)
 		(= gRoomFeatureInitCode roomFeatureInitCode)
 		(proc11_1 55)
-		(= local6 ((ScriptID 19 1) nsTop?))
-		(= local7 ((ScriptID 19 0) nsTop?))
+		(= local5 ((ScriptID 19 1) nsTop?))
+		(= local6 ((ScriptID 19 0) nsTop?))
 		((ScriptID 19 1) nsTop: 60)
 		((ScriptID 19 0) nsTop: 60)
-		(localproc_7b59)
+		(localproc_1162)
 		(gKQEgo
 			init:
 			normalize:
 			ignoreActors: 1
 			setScaler: Scaler 83 53 98 78
 		)
-		(= local1
+		(= local0
 			(if (or (gKQEgo has: 43) (proc11_0 137))
 			else
 				(proc11_0 121)
@@ -293,17 +186,17 @@
 		)
 		(if (gKQEgo has: 47) (proc11_1 123))
 		(proc11_2 138)
-		(genericEnterScript register: 0)
+		((ScriptID 5302 8) register: 0)
 		(switch global12
 			(5400
 				(self setRect: 0 0 640 136)
 				(gKQEgo normalize: 3 heading: 0 posn: 20 112)
-				(self setScript: enterFromGate)
+				(self setScript: (ScriptID 5300 8))
 			)
 			(5050
 				(self setRect: 0 0 640 136)
 				(gKQEgo normalize: 3 heading: 0 posn: 127 118)
-				(genericEnterScript
+				((ScriptID 5302 8)
 					register: (chinaDoor cel: 4 yourself:)
 				)
 			)
@@ -316,7 +209,7 @@
 				(self setRect: -318 0 321 136)
 				(gKQEgo normalize: 6 heading: 45 posn: 419 75)
 				(fauxDoor cel: 5)
-				(genericEnterScript register: fauxDoor)
+				((ScriptID 5302 8) register: fauxDoor)
 			)
 			(6200
 				(self setRect: -318 0 321 136)
@@ -354,8 +247,8 @@
 		(if (and (proc11_0 110) (not (proc11_0 203)))
 			(chinaDoorExit init:)
 		)
-		(if (genericEnterScript register?)
-			(self setScript: genericEnterScript)
+		(if ((ScriptID 5302 8) register?)
+			(self setScript: (ScriptID 5302 8))
 		)
 		(switch global122
 			(3
@@ -367,7 +260,12 @@
 				)
 				(if (and (not (proc11_0 126)) (proc11_0 111))
 					(pool init:)
-					(moon init: setScript: bobbingMoon)
+					(moon
+						view: 5312
+						loop: 6
+						init:
+						setScript: (ScriptID 5300 71)
+					)
 				)
 				(proc5300_4)
 				(if (not (proc11_0 113)) (mockingBird init:))
@@ -382,29 +280,29 @@
 				(if (not (proc11_0 123))
 					(fauxDoor loop: 5 x: 433 y: 71)
 					(UpdateScreenItem fauxDoor)
-					(snakeSalesman init: setScript: keepSalesmanBusy)
+					(snakeSalesman init: setScript: (ScriptID 5302 0))
 				else
 					(if (proc11_0 122) (fauxDoorExit init:))
 					(wagonSign init:)
 				)
 				(gKQEgo actions: egoActions)
-				(if local1
-					(= local2 (if (< (gKQEgo x?) 181) 181 else 239))
-					(= local3
+				(if local0
+					(= local1 (if (< (gKQEgo x?) 181) 181 else 239))
+					(= local2
 						(proc64999_3
 							(-
 								50
 								(proc64999_2
-									(Abs (GetDistance (gKQEgo x?) 0 local2 0))
+									(Abs (GetDistance (gKQEgo x?) 0 local1 0))
 									50
 								)
 							)
 							20
 						)
 					)
-					(= local16 1)
-					(partySound1 play: local3 0)
-					(partySound2 play: local3 0)
+					(= local12 1)
+					(partySound1 play: local2 0)
+					(partySound2 play: local2 0)
 				)
 				(switch global12
 					(5400 0)
@@ -418,7 +316,7 @@
 							setPri: 88
 							setScaler: Scaler 83 53 98 78
 						)
-						(global2 setScript: fromAssembly)
+						(global2 setScript: (ScriptID 5302 19))
 					)
 				)
 				(cond
@@ -436,7 +334,7 @@
 							(not (proc11_0 407))
 						)
 						(proc11_1 407)
-						(= local13 1)
+						(= local10 1)
 						(global2 setScript: (ScriptID 5301 0))
 					)
 					(
@@ -473,17 +371,17 @@
 						setPri: 88
 						setScaler: Scaler 83 53 98 78
 					)
-					(global2 setScript: fromAssembly)
+					(global2 setScript: (ScriptID 5302 19))
 				)
 				(if (not (proc11_1 450))
 					(= temp1 1)
 					(proc11_1 166)
-					(global2 setScript: rosellaFirstEnter)
+					(global2 setScript: (ScriptID 5300 77))
 				)
 			)
 			(5
 				(if (not (proc11_0 198))
-					(snakeSalesman init: setScript: keepSalesmanBusy)
+					(snakeSalesman init: setScript: (ScriptID 5302 0))
 				else
 					(curtain init:)
 				)
@@ -498,21 +396,21 @@
 					(feather init:)
 				)
 				(if (proc11_0 203)
-					(= local2 (if (< (gKQEgo x?) 181) 181 else 239))
-					(= local3
+					(= local1 (if (< (gKQEgo x?) 181) 181 else 239))
+					(= local2
 						(proc64999_3
 							(-
 								127
 								(proc64999_2
-									(Abs (GetDistance (gKQEgo x?) 0 local2 0))
+									(Abs (GetDistance (gKQEgo x?) 0 local1 0))
 									127
 								)
 							)
 							0
 						)
 					)
-					(= local16 1)
-					(partySound1 number: 5409 play: local3 0)
+					(= local12 1)
+					(partySound1 number: 5409 play: local2 0)
 				)
 				(if (gKQEgo has: 48) (sky init:))
 				(if (not (proc11_0 203)) (fauxDoorExit init:))
@@ -529,16 +427,16 @@
 							setPri: 88
 							setScaler: Scaler 83 53 98 78
 						)
-						(global2 setScript: fromAssembly)
+						(global2 setScript: (ScriptID 5302 19))
 					else
-						(global2 setScript: escortedOutOfTownHall)
+						(global2 setScript: (ScriptID 5302 14))
 					)
 				)
 			)
 		)
 		(if
 			(and
-				(= local11 (gNewCast contains: snakeSalesman))
+				(= global377 (gNewCast contains: snakeSalesman))
 				(== global12 5000)
 			)
 			(= temp0 5325)
@@ -565,7 +463,7 @@
 					(proc11_0 138)
 					(gKQEgo has: 42)
 					(gNewCast contains: cageCover)
-					(not (localproc_77f0 (- (cageCover nsLeft?) 40)))
+					(not (proc5300_16 (- (cageCover nsLeft?) 40)))
 				)
 				(cageCover dispose:)
 				(cageDoor cel: 0)
@@ -574,49 +472,48 @@
 			(if (not script)
 				(if
 				(and (not (proc11_0 110)) (>= (gKQEgo x?) 107))
-					(global2 setScript: cantPassDuke)
+					(global2 setScript: (ScriptID 5300 73))
 				)
-				(if
-				(and (not (proc11_0 409)) (localproc_77f0 561))
+				(if (and (not (proc11_0 409)) (proc5300_16 561))
 					(proc11_1 409)
 					(if (proc11_0 97) (gKQEgo setMotion: 0))
 					(snakeSalesman setScript: 0)
-					(global2 setScript: snakeChickenCartoon)
+					(global2 setScript: (ScriptID 5300 78))
 				)
 				(if
 					(and
 						(proc11_0 407)
-						(not local13)
+						(not local10)
 						(not (proc11_0 408))
-						(localproc_77f0 193)
+						(proc5300_16 193)
 					)
 					(proc11_1 408)
-					(global2 setScript: partyGoers)
+					(global2 setScript: (ScriptID 5300 76))
 				)
 				(if
 					(and
 						(not (proc11_0 111))
 						(gKQEgo has: 47)
-						(localproc_77f0 500)
+						(proc5300_16 500)
 					)
 					(proc11_1 111)
-					(global2 setScript: moveEgoIntoPosition)
+					(global2 setScript: (ScriptID 5302 9))
 				)
 			)
-			(if local16
+			(if local12
 				(if
 				(not (if (<= 181 (gKQEgo x?)) (<= (gKQEgo x?) 239)))
 					(cond
-						((localproc_77f0 239)
-							(= local2 (if (< (gKQEgo x?) 181) 181 else 239))
+						((proc5300_16 239)
+							(= local1 (if (< (gKQEgo x?) 181) 181 else 239))
 							(if
 								(!=
-									(= local3
+									(= local2
 										(proc64999_3
 											(-
 												50
 												(proc64999_2
-													(Abs (GetDistance (gKQEgo x?) 0 local2 0))
+													(Abs (GetDistance (gKQEgo x?) 0 local1 0))
 													50
 												)
 											)
@@ -625,8 +522,8 @@
 									)
 									(partySound1 vol?)
 								)
-								(partySound1 setVol: local3)
-								(partySound2 setVol: local3)
+								(partySound1 setVol: local2)
+								(partySound2 setVol: local2)
 							)
 						)
 						((partySound1 vol?) (partySound1 setVol: 20) (partySound2 setVol: 20))
@@ -635,20 +532,20 @@
 			)
 		)
 		(if (== global122 5)
-			(if local16
+			(if local12
 				(if
 				(not (if (<= 181 (gKQEgo x?)) (<= (gKQEgo x?) 239)))
 					(cond
-						((localproc_77f0 239)
-							(= local2 (if (< (gKQEgo x?) 181) 181 else 239))
+						((proc5300_16 239)
+							(= local1 (if (< (gKQEgo x?) 181) 181 else 239))
 							(if
 								(!=
-									(= local3
+									(= local2
 										(proc64999_3
 											(-
 												127
 												(proc64999_2
-													(Abs (GetDistance (gKQEgo x?) 0 local2 0))
+													(Abs (GetDistance (gKQEgo x?) 0 local1 0))
 													127
 												)
 											)
@@ -657,7 +554,7 @@
 									)
 									(partySound1 vol?)
 								)
-								(partySound1 setVol: local3)
+								(partySound1 setVol: local2)
 							)
 						)
 						((partySound1 vol?) (partySound1 setVol: 0))
@@ -666,40 +563,39 @@
 			)
 			(if
 				(and
-					local16
+					local12
 					(not (proc11_0 347))
 					(<= 181 (gKQEgo x?))
 					(<= (gKQEgo x?) 239)
+					(proc11_0 203)
 				)
 				(proc11_1 347)
 				(global2 setScript: (ScriptID 5301 6))
 			)
 		)
-		(if (not local12)
+		(if (not global378)
 			(if
 				(and
-					local11
-					(localproc_77f0 541)
+					global377
+					(proc5300_16 541)
 					(== (gKqMusic1 number?) 5300)
 				)
-				(= local12 1)
-				(gKQEgo setScript: switchMusic 0 5325)
+				(= global378 1)
+				(gKQEgo setScript: (ScriptID 5302 23) 0 5325)
 			)
 			(if
 				(and
 					(!= (gKqMusic1 number?) 5300)
-					(or (not (localproc_77f0 541)) (not local11))
+					(or (not (proc5300_16 541)) (not global377))
 				)
-				(= local12 1)
-				(gKQEgo setScript: switchMusic 0 5300)
+				(= global378 1)
+				(gKQEgo setScript: (ScriptID 5302 23) 0 5300)
 			)
 		)
 	)

 	(method (dispose)
 		(gKQEgo actions: 0)
-		(DisposeScript 5301)
-		(DisposeScript -597)
 		(super dispose:)
 	)

@@ -710,15 +606,15 @@
 					(proc64999_5
 						theScript
 						(ScriptID 5301 2)
-						rosellaFirstEnter
-						escortedOutOfTownHall
+						(ScriptID 5300 77)
+						(ScriptID 5302 14)
 					)
 				)
 				(proc64999_5
 					script
-					genericEnterScript
-					enterFromGate
-					fromAssembly
+					(ScriptID 5302 8)
+					(ScriptID 5300 8)
+					(ScriptID 5302 19)
 				)
 			)
 			(script next: theScript)
@@ -730,8 +626,8 @@

 	(method (newRoom)
 		(= gRoomFeatureInitCode theGRoomFeatureInitCode)
-		((ScriptID 19 1) nsTop: local6)
-		((ScriptID 19 0) nsTop: local7)
+		((ScriptID 19 1) nsTop: local5)
+		((ScriptID 19 0) nsTop: local6)
 		(super newRoom: &rest)
 	)

@@ -741,2629 +637,307 @@
 	)
 )

-(instance genericEnterScript of Script
-	(properties)
-
-	(method (doit)
-		(super doit:)
-		(if
-			(and
-				(gKQEgo mover?)
-				((global2 obstacles?)
-					firstTrue: #onMe (gKQEgo x?) (gKQEgo y?)
-				)
-			)
-			(gKQEgo setMotion: 0)
-			(= cycles 1)
-		)
+(instance glint1 of Prop
+	(properties
+		x 365
+		y 92
+		priority 109
+		fixPriority 1
+		view 5300
+		loop 4
+		cycleSpeed 9
 	)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(Load rsCDAUDIO 802)
-				(gKQEgo
-					posn: (register approachX?) (register approachY?)
-				)
-				(= cycles 1)
-			)
-			(1
-				(register cel: (register lastCel:) setCycle: Beg self)
-			)
-			(2
-				(gKqSound1 number: 802 setLoop: 1 play:)
-				(gKQEgo setHeading: 180 self)
-			)
-			(3
-				(if
-					(not
-						((global2 obstacles?)
-							firstTrue: #onMe (gKQEgo x?) (gKQEgo y?)
-						)
-					)
-					(gKQEgo setMotion: MoveTo (gKQEgo x?) 150)
-				else
-					(= cycles 1)
-				)
-			)
-			(4
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
+	(method (init)
+		(super init: &rest)
+		(self setScript: (ScriptID 5301 9))
 	)
 )

-(instance enterFromGate of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(littleDoor cel: (littleDoor lastCel:))
-				(= cycles 4)
-			)
-			(1
-				(gKQEgo normalize: 3)
-				(= cycles 1)
-			)
-			(2
-				(littleDoor setCycle: Beg self)
-			)
-			(3
-				(gKqSound1 number: 802 loop: 1 play:)
-				(gKQEgo setHeading: 90 self)
-			)
-			(4
-				(if (== next (ScriptID 5301 0))
-					(gKQEgo setMotion: MoveTo 60 (gKQEgo y?) self)
-				else
-					(gKQEgo setMotion: MoveTo 40 (gKQEgo y?) self)
-				)
-			)
-			(5
-				(if (and (not next) (== client global2))
-					(global1 handsOn:)
-				)
-				(self dispose:)
-			)
-		)
+(instance glint2 of Prop
+	(properties
+		x 414
+		y 94
+		priority 109
+		fixPriority 1
+		view 5300
+		loop 5
+		cycleSpeed 10
 	)
 )

-(instance chickenRunsOff of Script
-	(properties)
+(instance glint3 of Prop
+	(properties
+		x 394
+		y 93
+		priority 109
+		fixPriority 1
+		view 5300
+		loop 6
+		cycleSpeed 14
+	)
+)
+
+(instance chinaDoor of Prop
+	(properties
+		noun 11
+		approachX 116
+		approachY 109
+		x 128
+		y 104
+		priority 10
+		fixPriority 1
+		view 5302
+	)

 	(method (init)
-		(proc11_2 539)
 		(super init: &rest)
+		(if (and (proc11_0 203) (not (proc11_0 284)))
+			(self setHotspot: 8 10 approachVerbs: 8)
+		)
 	)

-	(method (dispose)
-		(proc11_2 539)
-		(super dispose:)
+	(method (doVerb)
+		(global2 setScript: (ScriptID 5302 6))
+	)
+)
+
+(instance fauxDoor of Prop
+	(properties
+		noun 12
+		approachX 435
+		approachY 69
+		x 439
+		y 69
+		z 3
+		priority 66
+		fixPriority 1
+		view 5302
+		loop 2
 	)

-	(method (changeState newState &tmp temp0)
-		(if (not (proc11_0 539))
-			(switch (= state newState)
-				(0
-					(global1 handsOff: 1)
-					(gKqMusic1 pause: 1)
-					(chickenSound number: 5310 loop: -1 play:)
-					(chickenPetite
-						view: 5311
-						setLoop: 6 1
-						setCel: 0
-						setPri: -1
-						setCycle: End self
-					)
-				)
-				(1
-					(if (< (chickenPetite x?) 320)
-						(= global372 8)
-						(proc11_3 gKQEgo 315 104 0)
-						(chickenPetite
-							setLoop: 7 1
-							setCel: 0
-							setCycle: Walk
-							setMotion: PolyPath 315 104 self
-						)
-					else
-						(= global372 9)
-						(= temp0 (- (Abs (gNewPlane_2 left:)) 15))
-						(proc11_3 gKQEgo temp0 (chickenPetite y?) 0)
-						(chickenPetite
-							setLoop: 0 1
-							setCycle: Walk
-							setMotion: PolyPath temp0 (chickenPetite y?) self
-						)
-					)
-					(gKqMessager say: 0 0 13 0 chickenPetite)
+	(method (init)
+		(super init:)
+		(if (not (proc11_0 276)) (self setHotspot: 8 10))
+		(self
+			approachVerbs: 8
+			setPolygon:
+				((Polygon new:)
+					type: 1
+					init: 438 65 446 67 443 30 431 33
+					yourself:
 				)
-				(2
-					(chickenSound fade:)
-					(gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
-					(chickenPetite setCycle: 0)
-					(proc5300_4)
-					(global1 handsOn:)
-					(self dispose:)
+		)
+	)
+
+	(method (doVerb)
+		(cond
+			((== global104 -4)
+				(cond
+					((proc11_0 203) (global2 setScript: (ScriptID 5301 4)))
+					((== global122 5) (global2 setScript: (ScriptID 5302 4)))
+					((and (proc11_0 120) (proc11_0 121)) (gKqMessager say: 8 8 34 0))
+					((not (proc11_0 123)) (gKqMessager say: 8 8 33 0))
+					((proc11_0 122) (global2 setScript: (ScriptID 5302 4)))
+					(else (global2 setScript: (ScriptID 5300 75)))
 				)
 			)
-		else
-			(chickenSound stop:)
-			(gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
-			(chickenPetite setCycle: 0 setMotion: 0)
-			(proc5300_4)
-			(global1 handsOn:)
-			(self dispose:)
+			((proc11_0 149) (global2 setScript: (ScriptID 5302 4)))
+			(else (global2 setScript: (ScriptID 5300 75)))
+		)
+	)
+
+	(method (onMe param1 &tmp temp0)
+		(if
+			(and
+				(= temp0 (super onMe: param1))
+				(param1 type?)
+				(== loop 5)
+			)
+			(= approachX (- x 3))
+			(= approachY y)
 		)
+		(return temp0)
 	)
 )

-(instance archDukeTalk of Script
-	(properties)
-
-	(method (doit)
-		(super doit:)
-		(if (and (== state 1) register) (self cue:))
-	)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(archDuke
-					view: 5303
-					setLoop: 0
-					setCel: 0
-					posn: 147 115
-					setCycle: End self
-				)
-			)
-			(1
-				(if (not register)
-					(archDuke setLoop: 1 setCel: 0 setCycle: Fwd)
-				else
-					(self cue:)
-				)
-			)
-			(2
-				(archDuke setLoop: 2 setCel: 0 setCycle: CT 16 1 self)
-			)
-			(3
-				(gKQEgo setScript: getBlownOn)
-				(archDuke setLoop: 2 setCel: 17 setCycle: CT 20 1 self)
-			)
-			(4
-				(gKqSound1 number: 5305 loop: 1 play:)
-				(archDuke setCycle: CT 24 1 self)
-			)
-			(5
-				(gKqSound1 stop:)
-				(archDuke setCycle: End self)
-			)
-			(6 (self dispose:))
-		)
-	)
-)
-
-(instance getBlownOn of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(gKQEgo
-					view: 5303
-					setLoop: 8
-					cel: 0
-					setScale: 0
-					posn: (+ (gKQEgo x?) 25) (gKQEgo y?)
-					setCycle: End self
-				)
-			)
-			(1
-				(gKQEgo
-					normalize: 0
-					x: (- (gKQEgo x?) 25)
-					setScaler: Scaler 83 53 98 78
-				)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance showTheComb of Script
-	(properties)
-
-	(method (init)
-		(proc11_2 539)
-		(super init: &rest)
-	)
-
-	(method (dispose)
-		(proc11_2 539)
-		(super dispose:)
-	)
-
-	(method (changeState newState)
-		(if (not (proc11_0 539))
-			(switch (= state newState)
-				(0
-					(global1 handsOff: 1)
-					(Load rsVIEW 5303)
-					(Load rsCDAUDIO 5305)
-					(Load rsVIEW 8132)
-					(Load rsVIEW 5334)
-					(= register (gKQEgo cycleSpeed?))
-					(gKQEgo
-						view: 8241
-						setLoop:
-							(if
-								(and
-									(< 0 (gKQEgo heading?))
-									(< (= register (gKQEgo cycleSpeed?)) 180)
-								)
-								0
-							else
-								1
-							)
-						setCel: 0
-						cycleSpeed: 12
-						setCycle: CT 20 1 self
-					)
-				)
-				(1
-					(gKqSound1 number: 1256 setLoop: -1 play:)
-					(gKQEgo setCycle: End self)
-				)
-				(2
-					(gKQEgo setCycle: CT 20 -1 self)
-				)
-				(3
-					(gKqSound1 setLoop: 1 stop:)
-					(gKQEgo setCycle: Beg self)
-				)
-				(4
-					(gKQEgo
-						normalize: 0
-						setScaler: Scaler 83 53 98 78
-						cycleSpeed: register
-					)
-					(= cycles 1)
-				)
-				(5
-					(archTalker clientCel: -2 hide_mouth: 1 modeless: 2)
-					(gKqMessager say: 1 5 6 1 self)
-				)
-				(6
-					(self setScript: archDukeTalk self)
-					(gKqMessager say: 1 5 6 2 self)
-				)
-				(7 (script register: 1))
-				(8
-					(gKqMusic1 pause: 1)
-					(chickenSound number: 5310 loop: -1 play:)
-					(archTalker clientCel: -1 hide_mouth: 0 modeless: 1)
-					(self setScript: standUpDuke self self)
-					(= register (gKQEgo cycleSpeed?))
-					(chickenPetite
-						posn: 308 102
-						setPri: 130
-						view: 5303
-						setLoop: 4
-						setCel: 0
-						init:
-						setCycle: CT 16 1 self
-					)
-					(chickenTalker modeless: 2)
-					(= global372 7)
-					(gKqMessager say: 1 5 6 3 chickenPetite)
-				)
-				(9
-					(chickenPetite setCycle: CT 36 1 self)
-					(gKQEgo
-						view: 8132
-						setLoop: 0
-						setCel: 6
-						cycleSpeed: 13
-						setCycle: Beg
-					)
-				)
-				(10
-					(chickenPetite setCycle: End self)
-					(gKQEgo setCycle: End)
-				)
-				(11
-					(chickenSound fade:)
-					(gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
-					(gKQEgo
-						normalize: 0
-						setScaler: Scaler 83 53 98 78
-						cycleSpeed: register
-					)
-					(proc5300_4)
-					(= cycles 2)
-				)
-				(12
-					(archTalker clientCel: 4)
-					(gKqMessager say: 1 5 6 4 self)
-				)
-				(13
-					(archTalker clientCel: -1)
-					(archDuke setCycle: CT 12 1 self)
-				)
-				(14
-					(archDuke setPri: 86 setCycle: End self)
-				)
-				(15
-					(archDuke hide:)
-					(townHallDoor setHotspot: 8 10 setCycle: Beg self)
-				)
-				(16
-					(gKqSound1 number: 802 setLoop: 1 play:)
-					(archDuke
-						view: 5334
-						setLoop: 3 1
-						cel: 0
-						posn: 218 88
-						setPri: 82
-						show:
-						setCycle: Walk
-						setScaler: Scaler 92 73 86 78
-						setMotion: MoveTo 177 75 self
-					)
-				)
-				(17
-					(chickenTalker modeless: 1)
-					(archDuke dispose:)
-					(proc11_1 110)
-					(if (gKQEgo scratch?)
-						(gKQEgo addRespondVerb: 51)
-					else
-						(gKQEgo setHotspot: 0 51)
-					)
-					(chinaDoorExit init:)
-					(global1 handsOn:)
-					(self dispose:)
-				)
-			)
-		else
-			(switch (= state newState)
-				(0
-					(gKqSound1 stop:)
-					(gKQEgo setScript: 0)
-					(if script (script caller: 0))
-					(= cycles 2)
-				)
-				(1
-					(gKQEgo
-						normalize: 0
-						setScaler: Scaler 83 53 98 78
-						posn: (archDuke approachX?) (archDuke approachY?)
-						cycleSpeed: register
-					)
-					(archDuke dispose:)
-					(proc11_1 110)
-					(if (gKQEgo scratch?)
-						(gKQEgo addRespondVerb: 51)
-					else
-						(gKQEgo setHotspot: 0 51)
-					)
-					(chickenPetite setCycle: 0 setMotion: 0)
-					(proc5300_4)
-					(archTalker clientCel: -1 hide_mouth: 0 modeless: 1)
-					(chickenTalker modeless: 1)
-					(chinaDoorExit init:)
-					(chickenSound fade:)
-					(gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
-					(archTalker clientCel: -1)
-					(townHallDoor setHotspot: 8 10 cel: 0)
-					(UpdateScreenItem townHallDoor)
-					(global1 handsOn:)
-					(self dispose:)
-				)
-			)
-		)
-	)
-)
-
-(instance standUpDuke of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(archDuke
-					posn: 147 116
-					setLoop: 3
-					setCel: 0
-					setCycle: End self
-				)
-			)
-			(1
-				(archDuke
-					posn: 206 107
-					setLoop: 5
-					setCel: 0
-					setCycle: CT 4 1 self
-				)
-			)
-			(2 (self dispose:))
-		)
-	)
-)
-
-(instance theMoonFalls of Script
-	(properties)
-
-	(method (init)
-		(proc11_2 539)
-		(super init: &rest)
-	)
-
-	(method (dispose)
-		(proc11_2 539)
-		(super dispose:)
-	)
-
-	(method (changeState newState)
-		(if (not (proc11_0 539))
-			(switch (= state newState)
-				(0
-					(global1 handsOff: 1)
-					(Load rsCDAUDIO 907)
-					(Load rsCDAUDIO 854)
-					(Load rsCDAUDIO 836)
-					(Load rsVIEW 5314)
-					(localproc_7b59)
-					(= global372 9)
-					(chickenPetite
-						view: 5311
-						setLoop: 0 1
-						setCycle: Walk
-						posn: 607 117
-						moveSpeed: 3
-						setPri: -1
-						init:
-						setMotion: MoveTo 500 107 self
-					)
-					(chickenTalker hide_mouth: 1 modeless: 2)
-					(gKqMessager say: 0 0 16 1 chickenPetite)
-				)
-				(1
-					(chickenPetite setMotion: PolyPath 468 94 self)
-				)
-				(2
-					(chickenPetite setMotion: PolyPath 393 86 self)
-				)
-				(3
-					(chickenPetite setMotion: PolyPath 321 102 self)
-				)
-				(4
-					(= global372 8)
-					(chickenPetite
-						setLoop: (if (global84 size:) 7 else 8) 1
-					)
-					(chickenPetite setMotion: PolyPath 402 117 self)
-				)
-				(5
-					(chickenPetite setMotion: PolyPath 477 98 self)
-				)
-				(6
-					(= global372 8)
-					(chickenPetite
-						setLoop: (if (global84 size:) 0 else 9) 1
-					)
-					(chickenPetite setMotion: PolyPath 468 94 self)
-				)
-				(7
-					(= global372 -1)
-					(chickenPetite
-						view: 5314
-						setLoop: 5
-						cel: 0
-						x: 475
-						y: 135
-						setPri: 100
-						setCycle: 0
-					)
-					(UnLoad 128 5311)
-					(chickenTalker hide_mouth: 1 clientCel: -2)
-					(moon
-						view: 5314
-						loop: 0
-						cel: 0
-						x: 382
-						y: 95
-						setPri: 150
-						init:
-						setCycle: End self
-					)
-				)
-				(8
-					(moon loop: 1 cel: 0 setCycle: End self)
-				)
-				(9
-					(mockingBird
-						view: 5314
-						loop: 3
-						cel: 0
-						x: 349
-						y: 49
-						z: 0
-						setPri: 150
-						setCycle: CT 2 1
-					)
-					(moon loop: 2 cel: 0 setCycle: CT 1 1 self)
-				)
-				(10
-					(gKqSound1 number: 907 loop: 1 play:)
-					(moon loop: 2 setCycle: CT 11 1 self)
-				)
-				(11
-					(self setScript: mockingBirdFlysAway)
-					(moon setCycle: End self)
-				)
-				(12
-					(chickenPetite setPri: -1 setCycle: CT 6 1 self)
-				)
-				(13
-					(archDukeSound number: 854 loop: 1 play:)
-					(chickenPetite setCycle: End self)
-				)
-				(14
-					(gKqSound1 number: 836 loop: 1 play:)
-					(chickenPetite
-						view: 5315
-						loop: 0
-						cel: 0
-						posn: 415 93
-						setPri: 125
-						setCycle: End self
-					)
-				)
-				(15
-					(moon setScript: bobbingMoon)
-					(gKqSound1 number: 836 loop: 1 play:)
-					(chickenPetite loop: 1 cel: 0 setCycle: End self)
-				)
-				(16
-					(chickenPetite
-						loop: 2
-						cel: 0
-						setHotspot: 8 10
-						approachVerbs: 8
-						setPri: 110
-						setCycle: End self
-					)
-				)
-				(17
-					(global1 handsOn:)
-					(pool init:)
-					(self dispose:)
-				)
-			)
-		else
-			(self setScript: 0)
-			(gKqSound1 stop:)
-			(proc11_1 113)
-			(mockingBird dispose:)
-			(chickenPetite view: 5315 loop: 2)
-			(chickenPetite
-				cel: (chickenPetite lastCel:)
-				posn: 415 93
-				setPri: 110
-				setMotion: 0
-				setCycle: 0
-				setHotspot: 8 10
-				approachVerbs: 8
-			)
-			(nickel init:)
-			(if (not (moon script?))
-				(moon init: setScript: bobbingMoon)
-			)
-			(gKQEgo normalize: 5)
-			(pool init:)
-			(global1 handsOn:)
-			(self dispose:)
-		)
-	)
-)
-
-(instance bobbingMoon of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(moon
-					setLoop: 6 1
-					cel: 14
-					cycleSpeed: 8
-					posn: 409 93
-					setPri: 110
-					setCycle: Beg self
-				)
-			)
-			(1
-				(if register
-					(moon setCycle: End self)
-				else
-					(-- state)
-					(moon setCycle: ROsc 1 4 9 self)
-				)
-			)
-			(2 (self dispose:))
-		)
-	)
-)
-
-(instance mockingBirdFlysAway of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(gKqSound1 number: 5312 loop: 1 play:)
-				(mockingBird view: 5314 loop: 3 cel: 2 setCycle: End self)
-			)
-			(1
-				(nickel init:)
-				(mockingBird
-					setLoop: 4 1
-					cel: 0
-					setCycle: Fwd
-					posn: 362 52
-					setPri: 150
-					moveSpeed: 1
-					setMotion: MoveTo 640 1 self
-				)
-			)
-			(2
-				(proc11_1 113)
-				(mockingBird dispose:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance cantPassDuke of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKQEgo setMotion: 0)
-				(= cycles 1)
-			)
-			(1
-				(archTalker modeless: 2)
-				(gKqMessager say: 0 0 2 0 self)
-				(self setScript: stepBackEgo self)
-			)
-			(2 0)
-			(3
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance stepBackEgo of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(gKQEgo
-					view: 8021
-					setLoop: 0
-					setCel: 0
-					setCycle: End self
-				)
-			)
-			(1
-				(gKQEgo
-					normalize: 0
-					setScaler: Scaler 83 53 98 78
-					posn: 90 (gKQEgo y?)
-					ignoreActors: 1
-				)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance walkThroughDoor of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKqSound1 number: 801 loop: 1 play:)
-				(fauxDoor setCycle: End self)
-			)
-			(1
-				(gKQEgo setMotion: MoveTo 457 69 self)
-			)
-			(2
-				(gKQEgo setMotion: MoveTo 466 69 self)
-			)
-			(3
-				(gKQEgo setHeading: 180 self)
-			)
-			(4 (= seconds 3))
-			(5
-				(gKQEgo
-					setMotion: MoveTo (fauxDoor approachX?) (fauxDoor approachY?) self
-				)
-			)
-			(6
-				(fauxDoor setCycle: Beg self)
-			)
-			(7
-				(gKqSound1 number: 802 loop: 1 play:)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance partyGoers of Script
-	(properties)
-
-	(method (changeState newState)
-		(if (not (proc11_0 539))
-			(switch (= state newState)
-				(0
-					(global1 handsOff: 1)
-					(gKQEgo setMotion: 0)
-					(proc11_3 gKQEgo badger 0)
-					(stork setCycle: CT 11 1 self)
-					(hippo setCycle: CT 9 1 self)
-				)
-				(1 0)
-				(2
-					(badger setCycle: CT 12 1 self)
-				)
-				(3
-					(guardTalker clientCel: -2 client: badger)
-					(gKqMessager say: 0 0 15 0 self)
-				)
-				(4
-					(badger setPri: 110 setCycle: End self)
-				)
-				(5
-					(stork setCycle: End self)
-					(hippo setCycle: End self)
-				)
-				(6 0)
-				(7
-					(stork dispose:)
-					(hippo view: -12406 setLoop: 0 cel: 0 setCycle: End self)
-				)
-				(8
-					(hippo dispose:)
-					(badger setCycle: CT 15 -1 self)
-				)
-				(9
-					(badger
-						view: 5305
-						setLoop: 3
-						posn: 217 93
-						cel: 0
-						setPri: 82
-						setCycle: End self
-					)
-				)
-				(10
-					(badger dispose:)
-					(townHallDoor setCycle: Beg self)
-				)
-				(11
-					(gKqSound1 number: 802 loop: 1 play:)
-					(global1 handsOn:)
-					(self dispose:)
-				)
-			)
-		else
-			(proc11_2 539)
-			(gKqSound1 stop:)
-			(badger dispose:)
-			(hippo dispose:)
-			(stork dispose:)
-			(townHallDoor cel: 0)
-			(UpdateScreenItem townHallDoor)
-			(global1 handsOn:)
-			(self dispose:)
-		)
-	)
-)
-
-(instance rosellaFirstEnter of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(Load rsSOUND 5307)
-				(Load rsSOUND 5308)
-				(Load rsCDAUDIO 5408)
-				(townHallDoor cel: 4 setPri: 80)
-				(archDukeSound number: 5307 loop: -1 play:)
-				(archDuke
-					view: 5341
-					loop: 0
-					cel: 0
-					x: 229
-					y: 105
-					cycleSpeed: 10
-					init:
-					setCycle: Fwd
-				)
-				(self setScript: enterFromGate self)
-			)
-			(1
-				(gKQEgo setMotion: PolyPath 170 111 self)
-			)
-			(2
-				(archDukeSound number: 5308 loop: 1 play:)
-				(archDuke cel: 0 setCycle: End self)
-			)
-			(3
-				(archDuke loop: 1 cel: 0 x: 233 y: 105 setCycle: End self)
-			)
-			(4
-				(archDuke loop: 2 cel: 0 x: 233 y: 105 setCycle: End self)
-			)
-			(5
-				(archDukeSound fade: 0 50 20 1)
-				(archTalker clientCel: -2)
-				(gKqMessager sayRange: 0 0 35 1 3 self)
-			)
-			(6
-				(archDukeSound number: 5307 loop: -1 play:)
-				(archDuke
-					view: 5341
-					loop: 0
-					cel: 0
-					x: 229
-					y: 105
-					setCycle: Fwd
-				)
-				(= seconds 3)
-			)
-			(7
-				(archDukeSound number: 5308 loop: 1 play: fade: 0 50 20 1)
-				(archDuke
-					view: 5342
-					loop: 0
-					cel: 0
-					x: 233
-					y: 103
-					setCycle: End self
-				)
-			)
-			(8
-				(gKqSound1 number: 5408 loop: 1 play:)
-				(archDuke view: 5342 loop: 1 cel: 0 x: 233 y: 103)
-				(UpdateScreenItem archDuke)
-				(FrameOut)
-				(= cycles 1)
-			)
-			(9
-				(archTalker hide_mouth: 1 clientCel: -2)
-				(gKqMessager say: 0 0 35 4 self)
-			)
-			(10
-				(gKqMusic1 loop: -1 play: setVol: 0 fade: 127 25 10 0)
-				(archDuke
-					view: 5334
-					setLoop: 3 1
-					cel: 0
-					x: 234
-					y: 100
-					setPri: 82
-					setCycle: Walk
-					setMotion: MoveTo 177 75 self
-				)
-			)
-			(11
-				(archDuke dispose:)
-				(townHallDoor setCycle: Beg self)
-			)
-			(12
-				(gKqSound1 number: 802 loop: 1 play:)
-				(if (not (proc11_1 167))
-					((ScriptID 13 0) hide_mouth: 1)
-					(gKqMessager say: 0 0 36 0 self)
-				else
-					(self cue:)
-				)
-			)
-			(13
-				((ScriptID 13 0) hide_mouth: 0)
-				(if (gKQEgo scratch?)
-					(gKQEgo addRespondVerb: 51)
-				else
-					(gKQEgo setHotspot: 0 51)
-				)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance snakeChickenCartoon of Script
-	(properties)
-
-	(method (init)
-		(proc11_2 539)
-		(super init: &rest)
-	)
-
-	(method (dispose)
-		(proc11_2 539)
-		(super dispose:)
-	)
-
-	(method (changeState newState)
-		(if (not (proc11_0 539))
-			(switch (= state newState)
-				(0
-					(global1 handsOff: 1)
-					(Load rsVIEW 5323)
-					(Load rsVIEW 5325)
-					(chickenPetite
-						view: 5323
-						loop: 0
-						cel: 0
-						x: 520
-						y: 108
-						init:
-					)
-					(chickenTalker hide_mouth: 0 clientCel: -2 modeless: 2)
-					(gKqMessager say: 0 0 21 1 self)
-				)
-				(1
-					(snakeSalesman
-						view: 5323
-						loop: 1
-						cel: 0
-						posn: 529 92
-						setCycle: End self
-					)
-				)
-				(2
-					(gKqMessager say: 0 0 21 2 self)
-				)
-				(3
-					(snakeSalesman
-						view: 5323
-						loop: 2
-						cel: 0
-						posn: 534 95
-						setCycle: End self
-					)
-				)
-				(4
-					(gKqMessager sayRange: 0 0 21 3 4 self)
-				)
-				(5
-					(snakeSalesman
-						view: 5323
-						loop: 3
-						cel: 0
-						posn: 543 90
-						setCycle: End self
-					)
-				)
-				(6
-					(gKqMessager say: 0 0 21 5 self)
-				)
-				(7
-					(chickenPetite setCycle: End self)
-				)
-				(8
-					(chickenPetite dispose:)
-					(snakeSalesman
-						view: 5325
-						loop: 0
-						cel: 4
-						posn: 491 128
-						setCycle: End self
-					)
-				)
-				(9
-					(snakeSalesman setScript: keepSalesmanBusy)
-					(gKQEgo setHeading: 180 self)
-				)
-				(10
-					(global1 handsOn:)
-					(self dispose:)
-				)
-			)
-		else
-			(chickenPetite dispose:)
-			(if (not (snakeSalesman script?))
-				(snakeSalesman setScript: keepSalesmanBusy)
-			)
-			(gKQEgo normalize: 2)
-			(global1 handsOn:)
-			(self dispose:)
-		)
-	)
-)
-
-(instance getTheMoon of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(Load rsVIEW 5319)
-				(guardTalker client: archDuke loop: 28)
-				(global2 centerScreen: -318 self 10)
-			)
-			(1
-				(moon setScript: 0 cel: 9 setCycle: End)
-				(gKQEgo
-					view: 5319
-					loop: 0
-					cel: 0
-					x: 463
-					y: 101
-					setPri: 109
-					setScale: 0
-					setCycle: CT 9 1 self
-				)
-			)
-			(2
-				(gKqSound1 number: 836 loop: -1 play:)
-				(gKQEgo cel: 10 setCycle: End self)
-			)
-			(3
-				(gKQEgo view: 5319 loop: 1 cel: 0 setCycle: End self)
-			)
-			(4
-				(gKQEgo view: 5319 loop: 2 cel: 0 setCycle: CT 5 1 self)
-			)
-			(5
-				(gKqSound1 stop:)
-				(gKQEgo setCycle: End self)
-			)
-			(6
-				(gKQEgo view: 5319 loop: 3 cel: 0 setCycle: CT 3 1 self)
-			)
-			(7
-				(gKqSound1 number: 836 loop: -1 play:)
-				(gKQEgo cel: 4 setCycle: End self)
-			)
-			(8
-				(self setScript: crookFalls)
-				(gKQEgo view: 5319 loop: 5 cel: 0 setCycle: CT 4 1 self)
-			)
-			(9
-				(gKqSound1 stop:)
-				(gKQEgo setCycle: CT 15 1 self)
-			)
-			(10
-				(gKQEgo setCycle: End self)
-				(= local12 1)
-				(gKqMusic1 number: 5315 loop: 1 play:)
-				(gateGuard
-					view: 5328
-					setLoop: 2 1
-					cel: 0
-					init:
-					posn: 290 113
-					setCycle: Walk
-					setSpeed: 4
-					setMotion: MoveTo 420 118 gateGuard
-				)
-				(archDuke
-					view: 5319
-					loop: 6
-					cel: 0
-					x: 469
-					y: 136
-					setPri: 90
-					cycleSpeed: 6
-					init:
-					setScale: 0
-					setCycle: CT 29 1 self
-				)
-			)
-			(11
-				(archDuke setPri: 100 setCycle: End self)
-			)
-			(12
-				(gKQEgo hide:)
-				(archDuke view: 5319 loop: 7 cel: 0 setCycle: End self)
-			)
-			(13
-				(if (gateGuard mover?) (-- state))
-				(= cycles 3)
-			)
-			(14
-				(gKqMessager sayRange: 0 0 18 1 2 self)
-			)
-			(15
-				(guardTalker client: gateGuard loop: -1)
-				(gKqMessager sayRange: 0 0 18 3 4 self)
-			)
-			(16
-				(= local12 1)
-				(gKqMusic1 number: 5316 loop: 1 play: self)
-			)
-			(17
-				(gKQEgo get: 48)
-				(proc11_1 126)
-				(global2 newRoom: 35)
-			)
-		)
-	)
-)
-
-(instance crookFalls of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(crook
-					view: 5319
-					loop: 4
-					cel: 0
-					x: 425
-					y: 93
-					setPri: 140
-					init:
-					setCycle: End self
-				)
-			)
-			(1
-				(gKQEgo put: 39)
-				(crook dispose:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance talkToChicken of Script
-	(properties)
-
-	(method (init)
-		(proc11_2 539)
-		(super init: &rest)
-	)
-
-	(method (dispose)
-		(proc11_2 539)
-		(super dispose:)
-	)
-
-	(method (changeState newState)
-		(if (not (proc11_0 539))
-			(switch (= state newState)
-				(0
-					(global1 handsOff: 1)
-					(proc11_3 gKQEgo chickenPetite self)
-				)
-				(1
-					(chickenTalker hide_mouth: 0)
-					(gKqMessager say: 4 8 14 0 self)
-				)
-				(2
-					(chickenPetite
-						setLoop: 6 1
-						setCel: 0
-						setCycle: Fwd
-						ignoreActors: 1
-						setMotion: PolyPath 400 (chickenPetite y?) self
-					)
-				)
-				(3
-					(gKQEgo setHeading: 180 self)
-				)
-				(4
-					(proc5300_4)
-					(global1 handsOn:)
-					(self dispose:)
-				)
-			)
-		else
-			(gKQEgo normalize: 2)
-			(chickenPetite setCycle: 0 setMotion: 0)
-			(proc5300_4)
-			(global1 handsOn:)
-			(self dispose:)
-		)
-	)
-)
-
-(instance talkToChickenAboutMoon of Script
-	(properties)
-
-	(method (changeState newState &tmp temp0)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKqMessager say: 4 8 17 1 self)
-			)
-			(1
-				(chickenPetite view: 5311 setLoop: 6 cel: 0 posn: 424 82)
-				(UpdateScreenItem chickenPetite)
-				(FrameOut)
-				(chickenTalker hide_mouth: 0 modeless: 2)
-				(= cycles 1)
-			)
-			(2
-				(gKqMessager say: 4 8 17 2 self)
-			)
-			(3
-				(chickenTalker hide_mouth: 1 modeless: 2 loop: -1)
-				(chickenPetite setCycle: CT 3 1 self)
-			)
-			(4
-				(chickenPetite setLoop: 2 1 cel: 4 setCycle: Beg self)
-			)
-			(5
-				(gKqMessager say: 4 8 17 3 self)
-			)
-			(6
-				(gKqSound1 number: 5311 loop: 1 play:)
-				(chickenPetite
-					setCycle: ROsc -1 0 2
-					moveSpeed: 8
-					setMotion: MoveTo 452 64 self
-				)
-			)
-			(7
-				(chickenPetite setCycle: End self)
-			)
-			(8
-				(gKQEgo hide:)
-				(chickenPetite
-					setLoop: 3
-					cel: 0
-					setPri: -1
-					posn: 459 100
-					setCycle: Fwd
-				)
-				(gKqMessager say: 4 8 17 4 self)
-			)
-			(9
-				(chickenPetite setCycle: End self)
-			)
-			(10
-				(chickenPetite
-					setLoop: 4
-					cel: 0
-					posn: 451 93
-					setCycle: End self
-				)
-			)
-			(11
-				(gKQEgo show:)
-				(= temp0 (- (Abs (gNewPlane_2 left:)) 10))
-				(chickenPetite
-					setLoop: 0 1
-					setCel: 0
-					setCycle: Walk
-					ignoreActors: 1
-					setMotion: PolyPath temp0 (chickenPetite y?) self
-				)
-				(gKqMessager say: 4 8 17 5 self)
-			)
-			(12
-				(gKQEgo
-					normalize: 1
-					posn: (chickenPetite approachX?) (chickenPetite approachY?)
-					setHeading: 180 self
-				)
-			)
-			(13 0)
-			(14
-				(proc5300_4)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance uncoverCage of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(proc11_1 138)
-				(cageCover dispose:)
-				(chinaBird view: 5329 loop: 1 cel: 0 x: 571 y: 97 init:)
-				(gKQEgo
-					view: 5327
-					loop: 0
-					cel: 0
-					x: 503
-					y: 138
-					setPri: 119
-					setScale: 0
-					setCycle: End self
-				)
-			)
-			(1
-				(cageCover init:)
-				(gKQEgo
-					normalize: 2
-					posn: (birdCage approachX?) (birdCage approachY?)
-					setScaler: Scaler 83 53 98 78
-					setHeading: 90
-				)
-				(chinaBird
-					view: 5327
-					loop: 1
-					cel: 0
-					x: 502
-					y: 141
-					setCycle: End self
-				)
-			)
-			(2
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance openCageDoor of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(= gKQEgoX (gKQEgo x?))
-				(= gKQEgoY (gKQEgo y?))
-				(gKQEgo setHeading: 90 self)
-			)
-			(1
-				(gKQEgo
-					view: 5327
-					loop: 3
-					cel: 0
-					x: 535
-					y: 123
-					setScale: 0
-					setCycle: CT 5 1 self
-				)
-			)
-			(2
-				(gKqSound1 number: 5330 loop: 1 play:)
-				(cageDoor setCycle: End)
-				(gKQEgo setCycle: CT 9 1 self)
-			)
-			(3 (gKQEgo setCycle: Beg self))
-			(4
-				(gKQEgo
-					normalize: 0
-					posn: gKQEgoX gKQEgoY
-					setScaler: Scaler 83 53 98 78
-				)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance getTheChinaBird of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(= gKQEgoX (gKQEgo x?))
-				(= gKQEgoY (gKQEgo y?))
-				(gKQEgo setHeading: 90 self)
-			)
-			(1
-				(gKqMessager say: 7 8 28 0 self)
-			)
-			(2
-				(gKQEgo
-					view: 5327
-					loop: 3
-					cel: 0
-					x: 535
-					y: 123
-					setScale: 0
-					setCycle: End self
-				)
-			)
-			(3
-				(gKQEgo hide:)
-				(chinaBird
-					view: 5327
-					loop: 4
-					cel: 1
-					x: 557
-					y: 114
-					setPri: 123
-					setCycle: End self
-				)
-			)
-			(4
-				(chinaBird dispose:)
-				(gKQEgo get: 42)
-				(birdCage dispose:)
-				(gKQEgo
-					show:
-					posn: gKQEgoX gKQEgoY
-					normalize: 4
-					setScaler: Scaler 83 53 98 78
-				)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance tryGetBird of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKQEgo setPri: 119 setHeading: 90 self)
-			)
-			(1
-				(cond
-					((not (proc11_1 118)) (self setScript: firstAttemptToGetBird self))
-					((not (proc11_1 119)) (self setScript: secondAttemptToGetBird self))
-				)
-			)
-			(2
-				(gKQEgo setHeading: 180 self)
-			)
-			(3
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance firstAttemptToGetBird of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(= gKQEgoX (gKQEgo x?))
-				(= gKQEgoY (gKQEgo y?))
-				(gKqMessager sayRange: 7 8 29 1 3 self)
-			)
-			(1
-				(gKQEgo
-					setScale: 0
-					view: 5329
-					loop: 0
-					cel: 0
-					x: 550
-					y: 109
-					setCycle: End self
-				)
-			)
-			(2
-				(chinaBird
-					view: 5329
-					loop: 1
-					cel: 0
-					x: 571
-					y: 97
-					setCycle: End self
-				)
-			)
-			(3
-				(chinaBirdTalker hide_mouth: 1)
-				(gKqMessager say: 7 8 29 4 self)
-			)
-			(4
-				(snakeSalesman hide:)
-				(= seconds 2)
-			)
-			(5
-				(chinaBirdTalker hide_mouth: 0)
-				(snakeSalesman
-					setScript: 0
-					view: 5329
-					loop: 2
-					cel: 0
-					x: 522
-					y: 96
-					setPri: 88
-					show:
-					setCycle: CT 6 1 self
-				)
-			)
-			(6
-				(snakeSalesman setPri: 121 setCycle: End self)
-			)
-			(7
-				(gKqMessager say: 7 8 29 5 self)
-			)
-			(8
-				(proc11_2 138)
-				(snakeSalesman
-					view: 5329
-					loop: 3
-					cel: 0
-					x: 519
-					y: 105
-					setCycle: CT 2 1 self
-				)
-			)
-			(9
-				(cageCover dispose:)
-				(snakeSalesman cel: 3 setCycle: CT 10 1 self)
-			)
-			(10
-				(gKqSound1 number: 5331 loop: 1 play:)
-				(cageDoor cel: (cageDoor lastCel:) setCycle: Beg self)
-				(snakeSalesman setCycle: CT 24 1 self)
-			)
-			(11
-				(cageCover init:)
-				(snakeSalesman cel: 25 setCycle: End self)
-				(chinaBird setCycle: Beg)
-			)
-			(12
-				(snakeSalesman
-					view: 5329
-					setLoop: 8
-					cel: 4
-					posn: 554 108
-					setCycle: CT 13 1 self
-				)
-			)
-			(13
-				(snakeSalesman setPri: 80 setCycle: End self)
-			)
-			(14
-				(snakeSalesman hide:)
-				(= seconds 2)
-			)
-			(15
-				(snakeSalesman
-					view: 5323
-					loop: 1
-					cel: 0
-					posn: 531 90
-					setPri: 90
-					show:
-					setScript: keepSalesmanBusy
-				)
-				(gKQEgo
-					posn: gKQEgoX gKQEgoY
-					normalize:
-					setScaler: Scaler 83 53 98 78
-				)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance secondAttemptToGetBird of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(= gKQEgoX (gKQEgo x?))
-				(= gKQEgoY (gKQEgo y?))
-				(gKQEgo
-					setScale: 0
-					view: 5329
-					loop: 0
-					cel: 0
-					x: 550
-					y: 109
-					setCycle: End self
-				)
-			)
-			(1
-				(chinaBird
-					view: 5329
-					loop: 1
-					cel: 0
-					x: 571
-					y: 97
-					setCycle: End self
-				)
-			)
-			(2
-				(chinaBirdTalker hide_mouth: 1)
-				(gKqMessager say: 7 8 31 1 self)
-			)
-			(3
-				(snakeSalesman hide:)
-				(= seconds 2)
-			)
-			(4
-				(chinaBirdTalker hide_mouth: 0)
-				(snakeSalesman
-					setScript: 0
-					view: 5329
-					loop: 2
-					cel: 0
-					x: 522
-					y: 96
-					setPri: 88
-					show:
-					setCycle: CT 6 1 self
-				)
-			)
-			(5
-				(snakeSalesman setPri: 121 setCycle: End self)
-			)
-			(6
-				(gKqMessager say: 7 8 31 2 self)
-			)
-			(7
-				(proc11_2 138)
-				(snakeSalesman
-					view: 5329
-					loop: 3
-					cel: 0
-					x: 519
-					y: 105
-					setCycle: CT 2 1 self
-				)
-			)
-			(8
-				(cageCover dispose:)
-				(snakeSalesman cel: 3 setCycle: CT 10 1 self)
-			)
-			(9
-				(gKqSound1 number: 5331 loop: 1 play:)
-				(cageDoor cel: (cageDoor lastCel:) setCycle: Beg self)
-				(snakeSalesman setCycle: CT 24 1 self)
-			)
-			(10
-				(cageCover init:)
-				(snakeSalesman cel: 25 setCycle: End self)
-			)
-			(11
-				(snakeSalesman
-					view: 5329
-					setLoop: 8
-					cel: 4
-					posn: 554 108
-					setCycle: CT 13 1 self
-				)
-			)
-			(12
-				(snakeSalesman setPri: 80 setCycle: End self)
-			)
-			(13
-				(snakeSalesman
-					view: 5323
-					loop: 1
-					cel: 0
-					posn: 531 90
-					setPri: 90
-					setScript: keepSalesmanBusy
-				)
-				(gKQEgo
-					posn: gKQEgoX gKQEgoY
-					normalize:
-					setScaler: Scaler 83 53 98 78
-				)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance takeBird of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(= gKQEgoX (gKQEgo x?))
-				(= gKQEgoY (gKQEgo y?))
-				(gKQEgo
-					setScale: 0
-					view: 5329
-					loop: 0
-					cel: 0
-					x: 550
-					y: 109
-					setCycle: End self
-				)
-			)
-			(1
-				(chinaBird
-					view: 5329
-					loop: 1
-					cel: 0
-					x: 571
-					y: 97
-					setCycle: End self
-				)
-			)
-			(2
-				(chinaBirdTalker hide_mouth: 1)
-				(gKqMessager say: 7 8 32 1 self)
-			)
-			(3
-				(chinaBirdTalker hide_mouth: 0)
-				(snakeSalesman
-					setScript: 0
-					view: 5329
-					loop: 2
-					cel: 0
-					x: 522
-					y: 96
-					setPri: 88
-					setCycle: CT 6 1 self
-				)
-			)
-			(4
-				(snakeSalesman setPri: 121 setCycle: End self)
-			)
-			(5
-				(proc11_2 138)
-				(snakeSalesman
-					view: 5329
-					loop: 3
-					cel: 0
-					x: 519
-					y: 105
-					setCycle: CT 2 1 self
-				)
-			)
-			(6
-				(cageCover dispose:)
-				(snakeSalesman cel: 3 setCycle: CT 10 1 self)
-			)
-			(7
-				(gKqSound1 number: 5331 loop: 1 play:)
-				(cageDoor cel: (cageDoor lastCel:) setCycle: Beg self)
-				(snakeSalesman setCycle: CT 24 1 self)
-			)
-			(8
-				(cageCover init:)
-				(snakeSalesman cel: 25 setCycle: End self)
-			)
-			(9
-				(snakeTalker hide_mouth: 1 clientCel: -2)
-				(gKqMessager say: 7 8 32 2 self)
-			)
-			(10
-				(gKQEgo hide:)
-				(snakeSalesman
-					view: 5329
-					loop: 5
-					cel: 0
-					x: 552
-					y: 112
-					setCycle: CT 14 1 self
-				)
-			)
-			(11
-				(gKqSound1 number: 831 loop: 1 play:)
-				(snakeSalesman setCycle: End self)
-			)
-			(12
-				(snakeSalesman
-					view: 5329
-					loop: 6
-					cel: 0
-					x: 576
-					y: 113
-					setCycle: CT 11 1 self
-				)
-			)
-			(13
-				(gKqSound1 number: 825 loop: 1 play:)
-				(snakeSalesman setCycle: CT 34 1 self)
-			)
-			(14
-				(snakeTalker hide_mouth: 1)
-				(gKqMessager say: 7 8 32 3 self)
-			)
-			(15
-				(snakeTalker hide_mouth: 0)
-				(snakeSalesman setCycle: End self)
-			)
-			(16 (proc11_5 45 self))
-			(17
-				(snakeSalesman
-					view: 5323
-					loop: 1
-					cel: 0
-					posn: 531 90
-					setPri: 90
-					setScript: keepSalesmanBusy
-				)
-				(gKQEgo
-					show:
-					normalize:
-					posn: gKQEgoX gKQEgoY
-					setScaler: Scaler 83 53 98 78
-				)
-				(gKQEgo setHeading: 180 self)
-			)
-			(18
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance giveStatue of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKqMessager say: 6 61 0 1 self)
-			)
-			(1
-				(if (snakeSalesman script?)
-					(keepSalesmanBusy caller: self register: 1)
-				else
-					(= cycles 1)
-				)
-			)
-			(2
-				(snakeSalesman hide:)
-				(wagon dispose:)
-				(gKQEgo
-					view: 5338
-					setLoop: 1 1
-					cel: 0
-					posn: 515 107
-					setScale: 0
-					setCycle: CT 9 1 self
-				)
-			)
-			(3
-				(proc11_1 204)
-				(gKQEgo put: 47 setCycle: CT 11 1 self)
-			)
-			(4
-				(gKQEgo
-					normalize: 6
-					posn: 494 108
-					setScaler: Scaler 83 53 98 78
-				)
-				(snakeSalesman
-					view: 5338
-					setLoop: 1 1
-					posn: 515 107
-					cel: 12
-					show:
-					setPri: 110
-					setCycle: End self
-				)
-			)
-			(5
-				(snakeSalesman setLoop: 2 1 cel: 0 setCycle: End self)
-			)
-			(6
-				(snakeSalesman setLoop: 3 1 cel: 0 setCycle: CT 6 1 self)
-				(gKQEgo view: 8075 setLoop: 0 1 cel: 0 setCycle: End self)
-			)
-			(7 0)
-			(8
-				(snakeSalesman setCycle: End self)
-				(gKQEgo setCycle: Beg self)
-			)
-			(9
-				(gKQEgo normalize: 6 posn: 494 108)
-				((ScriptID 13 0)
-					client: gKQEgo
-					view: -1
-					loop: -1
-					clientCel: -2
-				)
-				(snakeTalker view: 5338 loop: 24 clientCel: -2)
-				(gKqMessager sayRange: 6 61 0 2 6 self)
-			)
-			(10
-				(gKqSound1 number: 5333 loop: 1 play:)
-				(snakeSalesman setLoop: 4 1 cel: 0 setCycle: End self)
-			)
-			(11
-				(gKqSound1 stop:)
-				(curtain init:)
-				(= local11 0)
-				(gKQEgo get: 65)
-				(proc11_1 198)
-				(= cycles 1)
-			)
-			(12
-				(gKQEgo setHeading: 180 self)
-			)
-			(13
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance knockOnTownHallDoor of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(Load rsVIEW 5305)
-				(Load rsVIEW 5306)
-				(= cycles 1)
-			)
-			(1
-				(gKQEgo
-					view: 5306
-					loop: 0
-					cel: 0
-					posn: 231 104
-					setScale: 0
-					setCycle: CT 2 1 self
-				)
-				(gKqSound1 number: 808 loop: 1 play:)
-			)
-			(2
-				(gKqSound1 number: 808 loop: 1 play:)
-				(gKQEgo setCycle: CT 4 1 self)
-			)
-			(3
-				(gKqSound1 number: 801 setLoop: 1 play:)
-				(townHallDoor setCycle: CT 4 1 self)
-			)
-			(4
-				(if (not (proc11_0 421))
-					(gKQEgo
-						view: 5306
-						setLoop: 3
-						cel: 0
-						posn: 236 100
-						setCycle: End
-					)
-				else
-					(gKQEgo normalize: 7 setScaler: Scaler 83 53 98 78)
-				)
-				(badger
-					view: 5306
-					setLoop: 2
-					cel: 0
-					posn: 226 97
-					setPri: 86
-					init:
-					setCycle: End self
-				)
-			)
-			(5
-				(cond
-					((not (proc11_1 421)) (self setScript: firstDoorKnock self))
-					((not (proc11_1 420)) (gKqMessager say: 3 8 9 0 self))
-					(else (gKqMessager say: 3 8 10 0 self))
-				)
-			)
-			(6
-				(badger
-					view: 5305
-					setLoop: 3
-					posn: 217 93
-					cel: 0
-					setCycle: End self
-				)
-			)
-			(7
-				(badger dispose:)
-				(townHallDoor setCycle: Beg self)
-			)
-			(8
-				(gKqSound1 number: 802 setLoop: 1 play:)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance firstDoorKnock of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(gKqMessager say: 3 8 8 1 self)
-			)
-			(1 (gKQEgo setCycle: Beg self))
-			(2
-				(gKQEgo
-					normalize: 7
-					posn: (townHallDoor approachX?) (townHallDoor approachY?)
-					setScaler: Scaler 83 53 98 78
-				)
-				(UpdateScreenItem gKQEgo)
-				(FrameOut)
-				(= cycles 2)
-			)
-			(3
-				(gKqMessager sayRange: 3 8 8 2 3 self)
-			)
-			(4 (self dispose:))
-		)
-	)
-)
-
-(instance escortedOutOfTownHall of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(townHallDoor cel: 4 setPri: 10)
-				(badger
-					view: 5306
-					loop: 2
-					cel: 0
-					x: 226
-					y: 98
-					priority: 83
-					fixPriority: 1
-					init:
-					setCycle: End self
-				)
-				(gKQEgo
-					normalize: 4
-					posn: 220 97
-					setMotion: MoveTo 240 103 self
-				)
-			)
-			(1 (proc11_3 gKQEgo badger))
-			(2
-				(badger
-					view: 5305
-					setLoop: 3
-					posn: 217 93
-					cel: 0
-					setCycle: End self
-				)
-			)
-			(3
-				(badger dispose:)
-				(townHallDoor setCycle: Beg self)
-			)
-			(4
-				(gKqSound1 number: 802 loop: 1 play:)
-				(gKQEgo setHeading: 180 self)
-			)
-			(5
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance enterTownHall of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKQEgo
-					posn: 232 100
-					view: 5307
-					setLoop: 0
-					setCel: 0
-					cycleSpeed: 6
-					setScale: 0
-				)
-				(UpdateScreenItem gKQEgo)
-				(FrameOut)
-				(gKqSound1 number: 808 loop: 1 play: self)
-			)
-			(1
-				(gKQEgo setCycle: CT 2 1 self)
-			)
-			(2 (gKQEgo setCycle: Beg self))
-			(3
-				(gKqSound1 play:)
-				(gKQEgo setCycle: CT 2 1 self)
-			)
-			(4 (gKQEgo setCycle: Beg self))
-			(5
-				(gKqSound1 play:)
-				(gKQEgo setCycle: CT 3 1 self)
-			)
-			(6
-				(gKqSound1 number: 801 loop: 1 play:)
-				(townHallDoor setPri: 80 setCycle: CT 4 1 self)
-			)
-			(7
-				(badger
-					view: 5306
-					loop: 2
-					cel: 0
-					x: 226
-					y: 98
-					priority: 83
-					fixPriority: 1
-					init:
-					setCycle: End self
-				)
-			)
-			(8
-				(gKQEgo
-					cel: 5
-					posn: 221 103
-					setPri: 83
-					setCycle: CT 6 1 self
-				)
-			)
-			(9
-				(badger hide:)
-				(gKQEgo cel: 7 setCycle: End self)
-			)
-			(10
-				(guardTalker client: gKQEgo)
-				(gKqMessager say: 3 8 11 0 self)
-			)
-			(11
-				(gKQEgo
-					posn: 240 101
-					setLoop: 1
-					setCel: 0
-					setCycle: End self
-				)
-			)
-			(12
-				(gKQEgo
-					posn: 242 100
-					setLoop: 2
-					setCel: 0
-					setCycle: CT 12 1 self
-				)
-			)
-			(13
-				(gKQEgo setPri: 88 setCycle: End self)
-			)
-			(14 (global2 newRoom: 5100))
-		)
-	)
-)
-
-(instance dukeStopsVal of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(= local0 1)
-				(proc11_3 gKQEgo archDuke)
-				(archDuke
-					posn: 160 111
-					setLoop: 4
-					setCel: 0
-					setCycle: End self
-				)
-			)
-			(1
-				(archTalker modeless: 2)
-				(gKqMessager say: 0 0 2 0 self)
-				(self setScript: egoBackOff self)
-			)
-			(2 0)
-			(3
-				(archTalker modeless: 1)
-				(archDuke setCycle: Beg self)
-			)
-			(4
-				(archDuke posn: 225 112 setLoop: 2)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance egoBackOff of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(gKQEgo
-					view: 5301
-					setLoop: 5
-					setCel: 0
-					setScale: 0
-					setCycle: End self
-				)
-			)
-			(1
-				(gKQEgo normalize: 0 setScaler: Scaler 83 53 98 78)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance fromAssembly of Script
-	(properties)
-
-	(method (changeState newState)
-		(= cycles 0)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(= cycles 4)
-			)
-			(1
-				(gKQEgo
-					setLoop: (gKQEgo loop?) 1
-					setMotion: MoveTo 229 99 self
-				)
-			)
-			(2
-				(townHallDoor setCycle: Beg self)
-			)
-			(3
-				(gKqSound1 number: 802 loop: 1 play:)
-				(gKQEgo setHeading: 225 self)
-			)
-			(4
-				(if (== global122 3)
-					(self setScript: removeValsMask self)
-				else
-					(= cycles 1)
-				)
-			)
-			(5
-				(gKQEgo normalize: 5 setScaler: Scaler 83 53 98 78)
-				(gKQEgo setHeading: 180 self)
-			)
-			(6
-				(if (not next) (global1 handsOn:))
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance removeValsMask of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(gKQEgo
-					view: 5309
-					setLoop: 0
-					setCel: 21
-					setScale: 0
-					cycleSpeed: 6
-					setCycle: Beg self
-				)
-			)
-			(1
-				(gKQEgo setLoop: 2 cel: 27 setCycle: Beg self)
-			)
-			(2
-				(gKQEgo get: 43)
-				(proc11_2 137)
-				(self dispose:)
-			)
-		)
-	)
-)
-
-(instance putOnMask of Script
-	(properties)
-
-	(method (dispose)
-		(if (gOldWalkHandler contains: self)
-			(gOldWalkHandler delete: self)
-			(global73 delete: self)
-		)
-		(super dispose:)
-	)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(global1 handsOff:)
-				(gKQEgo setMotion: PolyPath 237 98 self)
-			)
-			(1
-				(gKQEgo
-					view: 5309
-					setLoop: 2
-					setCel: 0
-					setScale: 0
-					cycleSpeed: 6
-					setCycle: End self
-				)
-			)
-			(2
-				(gKQEgo
-					view: 5309
-					setLoop: 0 1
-					setCel: 0
-					setCycle: End self
-				)
-				(proc11_1 137)
-				(gKQEgo put: 43)
-			)
-			(3
-				(gOldWalkHandler add: self)
-				(global73 add: self)
-				(global1 handsOn:)
-			)
-			(4
-				(global1 handsOff:)
-				(gOldWalkHandler delete: self)
-				(global73 delete: self)
-				(gKQEgo
-					view: 5309
-					setLoop: 0
-					setCel: 21
-					setScale: 0
-					setCycle: Beg self
-				)
-				(proc11_2 137)
-				(gKQEgo get: 43)
-			)
-			(5
-				(gKQEgo setLoop: 3 cel: 0 setCycle: End self)
-			)
-			(6
-				(global1 handsOn:)
-				(gKQEgo normalize: 5 setScaler: Scaler 83 53 98 78)
-				(self dispose:)
-			)
-		)
+(instance townHallDoor of Prop
+	(properties
+		heading 90
+		noun 3
+		sightAngle 15
+		approachX 239
+		approachY 100
+		x 231
+		y 90
+		priority 85
+		fixPriority 1
+		view 5302
+		loop 4
 	)

-	(method (handleEvent pEvent &tmp temp0)
+	(method (init)
+		(super init:)
 		(if
 			(or
-				(and
-					(& (pEvent type?) evMOUSEBUTTON)
-					(= temp0 1)
-					(or (pEvent localize: gNewPlane_2) 1)
-					(gNewPlane_2 onMe: pEvent)
-					(not (townHallDoor onMe: pEvent))
-				)
-				(& (pEvent type?) evMOVE)
-			)
-			(pEvent claimed: 1)
-			(self changeState: 4)
-		)
-		(if temp0 (pEvent globalize:))
-		(pEvent claimed?)
-	)
-)
-
-(instance chickenTimerScript of Script
-	(properties)
-
-	(method (dispose)
-		(gOldWalkHandler delete: self)
-		(global73 delete: self)
-		(chickenPetite setHotspot: 8 10)
-		(super dispose:)
-	)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(gOldWalkHandler add: self)
-				(global73 add: self)
-				(chickenPetite setHotspot: 8 10)
-				(= seconds (+ register 1))
-			)
-			(1
-				(chickenPetite setHotspot: 0)
-				(global2 setScript: chickenRunsOff)
-				(self dispose:)
+				(and (== global122 3) (not local0))
+				(and (== global122 5) (proc11_0 203))
 			)
+			(= loop 3)
 		)
-	)
-
-	(method (handleEvent pEvent &tmp temp0 temp1)
-		(= temp1 0)
-		(if
-			(and
-				(& (pEvent type?) evMOUSEBUTTON)
-				(= temp1 1)
-				(or (pEvent localize: gNewPlane_2) 1)
-				(chickenPetite onMe: pEvent)
-			)
-			(pEvent globalize:)
-			(self dispose:)
-			(return 0)
+		(if (not (proc11_0 110))
+			(= cel 4)
+		else
+			(self setHotspot: 8 10)
 		)
-		(if temp1 (pEvent globalize:))
-		(if
-			(and
-				(gNewPlane_2 onMe: pEvent)
-				(or
-					(& (pEvent type?) evMOVE)
-					(& (pEvent type?) evMOUSEBUTTON)
+		(self
+			approachVerbs: 8
+			setPolygon:
+				((Polygon new:)
+					type: 0
+					init: 211 98 206 67 206 52 212 45 220 44 227 47 231 55 233 70 235 91
+					yourself:
 				)
-			)
-			(pEvent claimed: 1)
-			(self seconds: 0 cycles: 1)
 		)
-		(return (pEvent claimed?))
 	)
-)
-
-(instance enterChinaShop of Script
-	(properties)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(if (!= global104 -3)
-					(gKQEgo
-						view: 8123
-						setLoop: 1 1
-						cel: 0
-						setCycle: CT 14 1 self
+	(method (doVerb theVerb)
+		(return
+			(if
+			(and (> global122 3) (== noun 3) (== theVerb 8))
+				(global2
+					setScript: (ScriptID 5302 32) 0 (== global122 5)
+				)
+			else
+				(if (and (== global122 5) (== noun 2))
+					(global2 setScript: (ScriptID 5302 31))
+					(return 1)
+				)
+				(cond
+					(
+						(and
+							(not (proc11_0 137))
+							(or
+								(and (== loop 3) (not (proc11_0 449)))
+								(== noun 2)
+							)
+						)
+						((ScriptID 13 0) hide_mouth: 1)
+						(gKqMessager say: 2 theVerb 7 0 self)
+						(proc11_1 449)
 					)
-				else
-					(= cycles 1)
+					((== global104 -3) (global2 newRoom: 5100))
+					((!= global122 3) (global2 newRoom: 5100))
+					((proc11_0 137) (global2 setScript: (ScriptID 5302 16)))
+					(else (global2 setScript: (ScriptID 5302 1)))
 				)
 			)
-			(1
-				(gKqSound1 number: 801 setLoop: 1 play:)
-				(chinaDoor setCycle: End self)
-			)
-			(2 (global2 newRoom: 5050))
 		)
 	)
-)
-
-(instance getWoodenNickel of Script
-	(properties)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKQEgo
-					view: 5317
-					loop: 0
-					cel: 0
-					x: 371
-					y: 89
-					setScale: 0
-					cycleSpeed: 6
-					setPri: 108
-					setCycle: End self
+	(method (onMe param1 &tmp temp0 temp1 temp2)
+		(= temp0 (super onMe: param1))
+		(= temp1 (- (param1 x?) nsLeft))
+		(= temp2 (- (param1 y?) nsTop))
+		(if
+			(and
+				(== loop 3)
+				(not (proc11_0 137))
+				(or
+					(and
+						(proc64999_5 temp1 9 10)
+						(<= 24 temp2)
+						(<= temp2 34)
+					)
+					(and
+						(<= 10 temp1)
+						(<= temp1 18)
+						(proc64999_5 temp2 23 24)
+					)
+					(and
+						(proc64999_5 temp1 18 19)
+						(<= 24 temp2)
+						(<= temp2 34)
+					)
+					(and
+						(<= 10 temp1)
+						(<= temp1 18)
+						(proc64999_5 temp2 34 35)
+					)
 				)
 			)
-			(1
-				(gKQEgo
-					loop: 1
-					cel: 0
-					posn: 372 82
-					setPri: 150
-					setCycle: CT 6 1 self
+			(return 0)
+		)
+		(if (and temp0 (param1 type?))
+			(if
+				(and
+					(== loop 3)
+					(not (proc11_0 137))
+					(<= 10 temp1)
+					(<= temp1 18)
+					(<= 24 temp2)
+					(<= temp2 34)
 				)
-			)
-			(2
-				(nickel dispose:)
-				(gKQEgo get: 44)
-				(gKQEgo setCycle: End self)
-			)
-			(3
-				(gKQEgo setCycle: CT 7 -1 self)
-			)
-			(4
-				(gKQEgo
-					loop: 0
-					cel: 15
-					x: 371
-					y: 89
-					setPri: -1
-					setCycle: Beg self
+				(if (proc11_0 137) (return 0))
+				(= noun 2)
+				(if (not (proc11_0 137))
+					(= approachX 239)
+					(= approachY 100)
+				else
+					(= approachX (gKQEgo x?))
+					(= approachY (gKQEgo y?))
 				)
-			)
-			(5
-				(gKQEgo
-					normalize: 5
-					posn: (nickel approachX?) (nickel approachY?)
-					setScaler: Scaler 83 53 98 78
-					setHeading: 180 self
+			else
+				(= noun 3)
+				(if
+				(and (== global122 5) (== (global80 message?) 8))
+					(= approachX 226)
+					(= approachY 102)
+				else
+					(if (or (!= global122 3) (proc11_0 449))
+						(= approachX 232)
+						(= approachY 103)
+					)
+					(if (proc11_0 137) (= approachX 237) (= approachY 98))
 				)
 			)
-			(6
-				(global1 handsOn:)
-				(self dispose:)
-			)
 		)
+		(return temp0)
+	)
+
+	(method (cue)
+		((ScriptID 13 0) hide_mouth: 0)
 	)
 )

-(instance switchMusic of Script
-	(properties)
+(instance fauxSign of Feature
+	(properties
+		noun 8
+		approachX 413
+		approachY 75
+		x 413
+		y 70
+	)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(gKqMusic1 fade: 30 25 20 1 self)
-			)
-			(1
-				(gKqMusic1 number: register loop: -1 play: setVol: 30)
-				(gKqMusic1 fade: 127 25 20 0)
-				(= local12 (= register 0))
-				(self dispose:)
-			)
+	(method (init)
+		(super init:)
+		(self
+			setHotspot: 8 10
+			approachVerbs: 8
+			setPolygon:
+				((Polygon new:)
+					type: 1
+					init: 398 32 399 31 412 30 425 36 425 38 398 40
+					yourself:
+				)
 		)
 	)
-)
-
-(instance moveEgoIntoPosition of Script
-	(properties)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKQEgo setMotion: PolyPath 482 91 self)
-			)
-			(1
-				(global2 centerScreen: -318 self)
-				(gKQEgo setHeading: 225 self)
-			)
-			(2 0)
-			(3
-				(global2 setScript: theMoonFalls)
-			)
+	(method (doVerb theVerb)
+		(if (== global104 -3)
+			(gKqMessager say: noun theVerb 37)
+		else
+			(gKqMessager say: noun theVerb 0)
 		)
 	)
 )
@@ -3385,43 +959,19 @@
 		(super init:)
 		(if (!= global122 4)
 			(self setHotspot: 9998 approachVerbs: 9998)
-		)
-	)
-
-	(method (doVerb theVerb)
-		(switch theVerb
-			(8
-				(global2 setScript: talkToDuke)
-			)
-			(5
-				(global2 setScript: showTheComb)
-			)
-			(else
-				(gKqMessager say: noun 0 5 0)
-			)
-		)
-	)
-)
-
-(instance talkToDuke of Script
-	(properties)
+		)
+	)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(proc11_3 gKQEgo archDuke self)
+	(method (doVerb theVerb)
+		(switch theVerb
+			(8
+				(global2 setScript: (ScriptID 5302 24))
 			)
-			(1
-				(if (not (proc11_1 410))
-					(gKqMessager say: 1 8 3 0 self)
-				else
-					(gKqMessager say: 1 8 4 0 self)
-				)
+			(5
+				(global2 setScript: (ScriptID 5300 68))
 			)
-			(2
-				(global1 handsOn:)
-				(self dispose:)
+			(else
+				(gKqMessager say: noun 0 5 0)
 			)
 		)
 	)
@@ -3438,9 +988,9 @@

 	(method (doVerb)
 		(if (proc11_0 111)
-			(global2 setScript: talkToChickenAboutMoon)
+			(global2 setScript: (ScriptID 5300 81))
 		else
-			(global2 setScript: talkToChicken)
+			(global2 setScript: (ScriptID 5301 8))
 		)
 	)

@@ -3492,7 +1042,7 @@
 	(properties
 		x 533
 		y 84
-		priority 98
+		priority 90
 		fixPriority 1
 		view 5302
 		loop 6
@@ -3558,369 +1108,447 @@
 	)
 )

-(instance stork of Prop
+(instance stork of Prop
+	(properties
+		x 272
+		y 106
+		view 5313
+	)
+
+	(method (init)
+		(super init: &rest)
+		(if (not (proc5300_16 195)) (= cel 11))
+	)
+)
+
+(instance hippo of Prop
+	(properties
+		x 264
+		y 107
+		view 5313
+		loop 1
+	)
+
+	(method (init)
+		(super init: &rest)
+		(if (not (proc5300_16 195)) (= cel 9))
+	)
+
+	(method (cue)
+		(gateGuard view: 5326 setLoop: 0 cel: 1 setCycle: 0)
+		(UpdateScreenItem gateGuard)
+	)
+)
+
+(instance moon of Prop
+	(properties
+		approachX 362
+		approachY 78
+		x 350
+		y 75
+		view 5312
+	)
+
+	(method (init)
+		(super init:)
+		(self heading: 135 setHotspot: 0 52 approachVerbs: 52)
+	)
+
+	(method (doVerb theVerb)
+		(pool doVerb: theVerb)
+	)
+)
+
+(instance nickel of View
+	(properties
+		approachX 371
+		approachY 89
+		x 351
+		y 48
+		priority 95
+		fixPriority 1
+		view 5321
+		loop 1
+	)
+
+	(method (init)
+		(super init:)
+		(self setHotspot: 8 10 approachVerbs: 8)
+		(= signal (& signal $efff))
+	)
+
+	(method (doVerb)
+		(global2 setScript: (ScriptID 5302 3))
+	)
+)
+
+(instance yBranch of Feature
+	(properties
+		approachX 279
+		approachY 102
+		x 288
+		y 81
+	)
+
+	(method (init)
+		(super init:)
+		(self
+			setHotspot: 8 10 60
+			approachVerbs: 8 60
+			setPolygon:
+				((Polygon new:)
+					type: 0
+					init: 287 57 294 47 316 53 311 89
+					yourself:
+				)
+		)
+	)
+
+	(method (doVerb theVerb)
+		(switch theVerb
+			(8
+				(global2 setScript: (ScriptID 5302 25))
+			)
+			(60
+				(global2 setScript: (ScriptID 5302 26))
+				(self dispose:)
+			)
+		)
+		(return 1)
+	)
+)
+
+(instance rubChicken of Actor
+	(properties
+		approachX 279
+		approachY 102
+		x 298
+		y 61
+		priority 93
+		fixPriority 1
+		view 5331
+		loop 4
+	)
+
+	(method (init)
+		(super init:)
+		(self setHotspot: 8 10 71 approachVerbs: 8 71)
+		(= signal (& signal $efff))
+	)
+
+	(method (doVerb theVerb)
+		(return
+			(switch theVerb
+				(8
+					(global2 setScript: (ScriptID 5302 27))
+					(return 1)
+				)
+				(71
+					(global2 setScript: (ScriptID 5302 28))
+					(return 1)
+				)
+			)
+		)
+	)
+
+	(method (onMe param1 &tmp temp0)
+		(if (= temp0 (super onMe: param1))
+			(if (== (global80 message?) 8)
+				(= approachX 279)
+				(= approachY 102)
+			)
+			(if (== (global80 message?) 71)
+				(= approachX 282)
+				(= approachY 100)
+			)
+		)
+		(return temp0)
+	)
+)
+
+(instance cageCover of View
+	(properties
+		x 572
+		y 89
+		view 5300
+		loop 1
+	)
+
+	(method (init)
+		(super init: &rest)
+		(if (proc11_0 138)
+			(self loop: 0 x: 510 y: 120 setPri: 1)
+		else
+			(self loop: 1 cel: 0 x: 559 y: 70 setPri: 110)
+		)
+		(self ignoreActors:)
+	)
+
+	(method (onMe)
+		(return 0)
+	)
+)
+
+(instance fauxDoorExit of ExitFeature
+	(properties
+		noun 12
+		approachX 435
+		approachY 69
+		x 439
+		y 66
+		exitDir 2
+	)
+
+	(method (init)
+		(super init:)
+		(self setHotspot: 8 10 approachVerbs: 8)
+		(fauxDoor setHotspot: 0)
+	)
+
+	(method (doVerb theVerb)
+		(fauxDoor doVerb: theVerb)
+	)
+
+	(method (onMe param1 &tmp temp0)
+		(if
+			(and
+				(= temp0 (fauxDoor onMe: param1))
+				(param1 type?)
+				(proc11_0 203)
+			)
+			(= approachX 424)
+			(= approachY 72)
+		)
+		(return temp0)
+	)
+)
+
+(instance crook of Prop
+	(properties)
+
+	(method (cue)
+		(gKQEgo view: 5326 loop: 0 cel: 0)
+		(UpdateScreenItem gKQEgo)
+	)
+)
+
+(instance partySound1 of Sound
+	(properties
+		flags $0004
+		number 5100
+		loop -1
+	)
+)
+
+(instance partySound2 of Sound
+	(properties
+		flags $0004
+		number 5102
+		loop -1
+	)
+)
+
+(instance archDukeSound of Sound
+	(properties
+		flags $0004
+		number 5301
+		loop -1
+	)
+)
+
+(instance chickenSound of Sound
 	(properties
-		x 272
-		y 106
-		view 5313
-	)
-
-	(method (init)
-		(super init: &rest)
-		(if (not (localproc_77f0 195)) (= cel 11))
+		flags $0004
+		number 5310
+		loop -1
 	)
 )

-(instance hippo of Prop
+(instance gateGuard of Actor
 	(properties
-		x 264
-		y 107
-		view 5313
-		loop 1
+		noun 10
+		approachX 61
+		approachY 113
+		x 29
+		y 113
+		view 5328
 	)

 	(method (init)
 		(super init: &rest)
-		(if (not (localproc_77f0 195)) (= cel 9))
+		(self setHotspot: 8 10 approachVerbs: 8)
+	)
+
+	(method (doVerb)
+		(guardTalker client: self)
+		(cond
+			((not (proc11_1 542)) (gKqMessager say: noun 8 39 0))
+			((not (proc11_1 543)) (gKqMessager say: noun 8 38 0))
+			(else (gKqMessager say: noun 8 40 0))
+		)
+	)
+
+	(method (cue)
+		(self view: 5328 setLoop: 0 cel: 0 setCycle: 0)
+		(UpdateScreenItem self)
+		(FrameOut)
 	)
 )

-(instance moon of Prop
+(instance feather of View
 	(properties
-		approachX 362
-		approachY 78
-		x 350
-		y 75
-		view 5314
+		approachX 280
+		approachY 93
+		x 295
+		y 62
+		priority 93
+		fixPriority 1
+		view 5331
+		loop 5
 	)

 	(method (init)
-		(super init:)
-		(self heading: 135 setHotspot: 0 52 approachVerbs: 52)
+		(super init: &rest)
+		(if (not (gKQEgo has: 41))
+			(self setHotspot: 8 10 approachVerbs: 8)
+			(= signal (& signal $efff))
+		)
 	)

-	(method (doVerb theVerb)
-		(pool doVerb: theVerb)
+	(method (doVerb)
+		(global2 setScript: (ScriptID 5302 29))
 	)
 )

-(instance nickel of View
+(instance wagonSign of View
 	(properties
-		approachX 371
-		approachY 89
-		x 351
-		y 48
+		x 520
+		y 53
 		priority 95
 		fixPriority 1
-		view 5321
-		loop 1
+		view 5300
+		loop 7
 	)

 	(method (init)
-		(super init:)
-		(self setHotspot: 8 10 approachVerbs: 8)
-		(= signal (& signal $efff))
+		(super init: &rest)
+		(= local11 1)
 	)
-
-	(method (doVerb)
-		(global2 setScript: getWoodenNickel)
+)
+
+(instance cageDoor of Prop
+	(properties
+		x 577
+		y 94
+		priority 98
+		fixPriority 1
+		view 5300
+		loop 3
 	)
 )

-(instance yBranch of Feature
+(instance archTalker of KQTalker
 	(properties
-		approachX 279
-		approachY 102
-		x 288
-		y 81
+		clientCel -1
 	)

 	(method (init)
-		(super init:)
-		(self
-			setHotspot: 8 10 60
-			approachVerbs: 8 60
-			setPolygon:
-				((Polygon new:)
-					type: 0
-					init: 287 57 294 47 316 53 311 89
-					yourself:
-				)
-		)
+		(= client archDuke)
+		(super init: &rest)
 	)
-
-	(method (doVerb theVerb)
-		(switch theVerb
-			(8 (global2 setScript: sayHmmm))
-			(60
-				(global2 setScript: putChickenOnTree)
-				(self dispose:)
-			)
-		)
-		(return 1)
+)
+
+(instance bull of Prop
+	(properties
+		x 108
+		y 78
+		priority 92
+		fixPriority 1
+		view 5337
+		loop 1
 	)
 )

-(instance sayHmmm of Script
+(instance bullTalker of KQTalker
 	(properties)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKQEgo
-					view: 8295
-					setLoop: 0
-					setCel: 0
-					setCycle: End self
-				)
-				((ScriptID 13 0) hide_mouth: 1)
-			)
-			(1
-				(gKqMessager say: 1 8 3 0 self 1250)
-			)
-			(2
-				((ScriptID 13 0) hide_mouth: 0)
-				(gKQEgo setCycle: Beg self)
-			)
-			(3
-				(gKQEgo normalize: 6)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
+	(method (init)
+		(= client bull)
+		(super init: &rest)
 	)
 )

-(instance putChickenOnTree of Script
+(instance fauxOwnerTalker of KQTalker
 	(properties)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKQEgo
-					setScale: 0
-					view: 5330
-					loop: 0
-					cel: 0
-					x: 269
-					y: 103
-					setCycle: End self
-				)
-			)
-			(1
-				(gKQEgo loop: 1 cel: 0 x: 269 y: 103 setCycle: End self)
-			)
-			(2
-				(proc11_1 273)
-				(gKQEgo put: 46)
-				(rubChicken init:)
-				(gKQEgo
-					normalize: 6
-					posn: 283 102
-					setScaler: Scaler 83 53 98 78
-				)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
+	(method (init)
+		(= client fauxDoor)
+		(= mouth_y (* (client z?) -1))
+		(super init: &rest)
 	)
 )

-(instance rubChicken of Actor
-	(properties
-		approachX 279
-		approachY 102
-		x 298
-		y 61
-		priority 93
-		fixPriority 1
-		view 5331
-		loop 4
-	)
+(instance mockingBirdTalker of KQTalker
+	(properties)

 	(method (init)
-		(super init:)
-		(self setHotspot: 8 10 71 approachVerbs: 8 71)
-		(= signal (& signal $efff))
+		(= client mockingBird)
+		(= loop 2)
+		(= mouth_y (* (client z?) -1))
+		(super init: &rest)
 	)
-
-	(method (doVerb theVerb)
-		(return
-			(switch theVerb
-				(8
-					(global2 setScript: getChickenDown)
-					(return 1)
-				)
-				(71
-					(global2 setScript: replaceTheMoon)
-					(return 1)
-				)
-			)
-		)
+)
+
+(instance guardTalker of KQTalker
+	(properties
+		clientCel -1
 	)

-	(method (onMe param1 &tmp temp0)
-		(if (= temp0 (super onMe: param1))
-			(if (== (global80 message?) 8)
-				(= approachX 279)
-				(= approachY 102)
-			)
-			(if (== (global80 message?) 71)
-				(= approachX 282)
-				(= approachY 100)
-			)
-		)
-		(return temp0)
+	(method (init)
+		(if (not client) (= client badger))
+		(super init: &rest)
 	)
 )

-(instance getChickenDown of Script
+(instance snakeTalker of KQTalker
 	(properties)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKQEgo
-					view: 5332
-					loop: 0
-					cel: 0
-					x: 269
-					y: 103
-					setScale: 0
-					setCycle: End self
-				)
-				(gKQEgo get: 46)
-				(proc11_2 273)
-				(rubChicken dispose:)
-				(yBranch init:)
-			)
-			(1
-				(gKQEgo
-					normalize: 3
-					posn: (rubChicken approachX?) (rubChicken approachY?)
-					setScaler: Scaler 83 53 98 78
-				)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
+	(method (init)
+		(if (!= client gKQEgo) (= client snakeSalesman))
+		(super init: &rest)
+	)
+)
+
+(instance chickenTalker of KQTalker
+	(properties
+		hide_mouth 1
+	)
+
+	(method (init)
+		(= client chickenPetite)
+		(super init: &rest)
 	)
 )

-(instance replaceTheMoon of Script
+(instance chinaBirdTalker of KQTalker
 	(properties)

-	(method (changeState newState &tmp temp0)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(Load rsCDAUDIO 5405)
-				(Load rsSOUND 854)
-				(Load rsCDAUDIO 5404)
-				(gKQEgo
-					view: 5331
-					loop: 0
-					cel: 0
-					x: 282
-					y: 99
-					setScale: 0
-					setCycle: End self
-				)
-			)
-			(1
-				(rubChicken hide:)
-				(gKqSound1 number: 5404 loop: 1 play:)
-				(gKQEgo
-					view: 5331
-					loop: 1
-					cel: 0
-					x: 281
-					y: 103
-					setCycle: End self
-				)
-			)
-			(2 (= cycles 60))
-			(3
-				(if
-				(and (not (proc11_0 136)) (not (gKQEgo has: 41)))
-					(feather init:)
-				)
-				(gKqSound1 number: 854 loop: 1 play:)
-				(gKQEgo
-					view: 5331
-					loop: 2
-					cel: 0
-					x: 280
-					y: 103
-					setCycle: End self
-				)
-			)
-			(4
-				(gKQEgo
-					put: 48
-					normalize: 6
-					posn: 278 102
-					setScaler: Scaler 83 53 98 78
-				)
-				(gKqSound1 number: 5405 loop: 1 play:)
-				(rubChicken
-					show:
-					view: 5331
-					loop: 3
-					cel: 0
-					x: 296
-					y: 96
-					setCycle: End self
-				)
-			)
-			(5
-				(= temp0 (+ (Abs ((global2 plane?) left:)) 330))
-				(rubChicken
-					setLoop: 6 1
-					cel: 0
-					posn: 327 94
-					setCycle: Walk
-					setPri: -1
-					setMotion: PolyPath temp0 94 self
-				)
-			)
-			(6
-				(proc11_2 273)
-				(rubChicken dispose:)
-				(littleDoorExit init:)
-				(bigGate dispose:)
-				(proc11_1 202)
-				(localproc_7b59)
-				(archTalker clientCel: -2)
-				(global2 setScript: (ScriptID 5301 1))
-			)
-		)
+	(method (init)
+		(= client chinaBird)
+		(super init: &rest)
 	)
 )

-(instance cageCover of View
+(instance iSign of Inset
 	(properties
-		x 572
-		y 89
-		view 5300
-		loop 1
+		picture 5303
+		priority 200
 	)

 	(method (init)
+		(= x (Abs ((global2 plane?) left:)))
 		(super init: &rest)
-		(if (proc11_0 138)
-			(self loop: 0 x: 510 y: 120 setPri: 1)
-		else
-			(self loop: 1 cel: 0 x: 559 y: 70 setPri: 110)
-		)
-		(self ignoreActors:)
-	)
-
-	(method (onMe)
-		(return 0)
+		(proc11_6)
 	)
 )

@@ -3937,47 +1565,7 @@
 	)

 	(method (doVerb)
-		(global2 setScript: tryAndThrowMoonUp)
-	)
-)
-
-(instance tryAndThrowMoonUp of Script
-	(properties)
-
-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKQEgo setHeading: 180 self)
-			)
-			(1
-				(gKQEgo
-					view: 5336
-					setLoop: 0 1
-					cel: 0
-					setCycle: CT 10 1 self
-				)
-			)
-			(2
-				(gKqSound1 number: 824 loop: 1 play:)
-				(gKQEgo setCycle: End self)
-			)
-			(3
-				(gKQEgo setLoop: 1 1 cel: 0 setCycle: CT 6 1 self)
-			)
-			(4
-				(gKqSound1 number: 856 loop: 1 play:)
-				(gKQEgo setCycle: End self)
-			)
-			(5
-				(gKQEgo setLoop: 2 1 cel: 0 setCycle: End self)
-			)
-			(6
-				(gKQEgo normalize: 2)
-				(global1 handsOn:)
-				(self dispose:)
-			)
-		)
+		(global2 setScript: (ScriptID 5302 30))
 	)
 )

@@ -4091,1160 +1679,1193 @@
 	)

 	(method (doVerb)
-		(global2 setScript: exitToGate)
+		(global2 setScript: (ScriptID 5302 5))
 		(return 1)
 	)
 )

-(instance exitToGate of Script
-	(properties)
+(instance chinaDoorExit of ExitFeature
+	(properties
+		noun 11
+		approachX 116
+		approachY 109
+		exitDir 1
+	)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKqSound1 number: 801 loop: 1 play:)
-				(littleDoor setCycle: End self)
-			)
-			(1
-				(gKQEgo setMotion: MoveTo 27 113 self)
-			)
-			(2
-				(gKQEgo setHeading: 315 self)
-			)
-			(3
-				(if (== global104 -4)
-					(gKQEgo
-						view: 8065
-						loop: 1
-						cel: 0
-						priority: 109
-						fixPriority: 1
-						setCycle: CT 4 1 self
-					)
-				else
-					(= cycles 1)
-				)
-			)
-			(4 (global2 newRoom: 5400))
+	(method (init)
+		(super init:)
+		(= x approachX)
+		(= y (chinaDoor y?))
+		(self setHotspot: 8 10 approachVerbs: 8)
+	)
+
+	(method (doVerb)
+		(if (or (proc11_0 110) (!= global122 3))
+			(global2 setScript: (ScriptID 5302 6))
+		else
+			(global2 setScript: (ScriptID 5302 17))
 		)
+		(return 1)
+	)
+
+	(method (onMe param1)
+		(chinaDoor onMe: param1)
 	)
 )

-(instance chinaDoor of Prop
+(instance wagon of Feature
 	(properties
-		noun 11
-		approachX 116
-		approachY 109
-		x 128
-		y 104
-		priority 10
-		fixPriority 1
-		view 5302
+		noun 6
+		approachX 511
+		approachY 115
+		x 534
+		y 112
 	)

 	(method (init)
-		(super init: &rest)
-		(if (and (proc11_0 203) (not (proc11_0 284)))
-			(self setHotspot: 8 10 approachVerbs: 8)
+		(super init:)
+		(self
+			setHotspot: 9998
+			approachVerbs: 9998
+			setPolygon:
+				((Polygon new:)
+					type: 0
+					init: 518 57 550 55 550 81 541 86 516 81 521 98
+					yourself:
+				)
 		)
 	)

-	(method (doVerb)
-		(global2 setScript: (ScriptID 5301 5))
+	(method (doVerb theVerb)
+		(if local11 (gKqMessager say: noun 8 46 0) (return 1))
+		(return
+			(if (!= global104 -3)
+				(switch theVerb
+					(8
+						(global2 setScript: (ScriptID 5302 34))
+					)
+					(61
+						(global2 setScript: (ScriptID 5302 13))
+					)
+					(5
+						(global2 setScript: (ScriptID 5302 35))
+					)
+					(else
+						(global2 setScript: (ScriptID 5302 33))
+					)
+				)
+			else
+				0
+			)
+		)
+	)
+
+	(method (onMe param1 &tmp temp0)
+		(if
+		(and (proc11_0 349) (== (global80 message?) 5))
+			(return 0)
+		)
+		(if
+			(and
+				local11
+				(not (proc64999_5 (global80 message?) 8 10))
+			)
+			(return 0)
+		)
+		(= temp0
+			(if (super onMe: param1)
+			else
+				(snakeSalesman onMe: param1)
+			)
+		)
+		(if (param1 type?)
+			(cond
+				((== (global80 message?) 61) (= approachX 490) (= approachY 108))
+				(
+				(and (not (proc11_0 116)) (not (proc11_0 461))) (= approachX 506) (= approachY 104))
+				(else (= approachX 495) (= approachY 100))
+			)
+		)
+		(return temp0)
 	)
 )

-(instance chinaDoorExit of ExitFeature
+(instance pool of Feature
 	(properties
-		noun 11
-		approachX 116
-		approachY 109
-		exitDir 1
+		sightAngle 180
+		approachX 471
+		approachY 103
+		x 466
+		y 108
 	)

 	(method (init)
 		(super init:)
-		(= x approachX)
-		(= y (chinaDoor y?))
-		(self setHotspot: 8 10 approachVerbs: 8)
+		(self
+			setHotspot: 8 10 52
+			approachVerbs: 8 52
+			setPolygon:
+				((Polygon new:)
+					type: 1
+					init: 445 88 436 107 349 109 330 103 324 87 326 80 355 78 428 81
+					yourself:
+				)
+		)
 	)

-	(method (doVerb)
-		(if (or (proc11_0 110) (!= global122 3))
-			(global2 setScript: enterChinaShop)
-		else
-			(global2 setScript: dukeStopsVal)
+	(method (doVerb theVerb)
+		(switch theVerb
+			(8
+				(global2 setScript: (ScriptID 5302 7))
+			)
+			(52
+				(global2 setScript: (ScriptID 5300 79))
+			)
 		)
-		(return 1)
 	)

-	(method (onMe param1)
-		(chinaDoor onMe: param1)
+	(method (onMe param1 &tmp temp0)
+		(if
+		(and (= temp0 (super onMe: param1)) (param1 type?))
+			(switch (global80 message?)
+				(8
+					(= approachX 442)
+					(= approachY 114)
+					(= x 440)
+				)
+				(else
+					(= approachX 471)
+					(= approachY 103)
+					(= x 466)
+				)
+			)
+		)
+		(return temp0)
 	)
 )

-(instance townHallDoor of Prop
+(instance birdCage of Feature
 	(properties
-		heading 90
-		noun 3
-		sightAngle 15
-		approachX 239
-		approachY 100
-		x 231
-		y 90
-		priority 85
-		fixPriority 1
-		view 5302
-		loop 4
+		noun 7
+		approachX 556
+		approachY 110
+		x 560
+		y 113
 	)

 	(method (init)
 		(super init:)
-		(if
-			(or
-				(and (== global122 3) (not local1))
-				(and (== global122 5) (proc11_0 203))
-			)
-			(= loop 3)
-		)
-		(if (not (proc11_0 110))
-			(= cel 4)
-		else
-			(self setHotspot: 8 10)
-		)
 		(self
+			setHotspot: 8 10
 			approachVerbs: 8
 			setPolygon:
 				((Polygon new:)
 					type: 0
-					init: 211 98 206 67 206 52 212 45 220 44 227 47 231 55 233 70 235 91
+					init:
+						565
+						105
+						561
+						97
+						561
+						88
+						562
+						82
+						571
+						70
+						574
+						70
+						584
+						80
+						586
+						91
+						585
+						98
+						582
+						105
+						574
+						106
 					yourself:
 				)
 		)
 	)

-	(method (doVerb theVerb)
-		(return
-			(if
-			(and (> global122 3) (== noun 3) (== theVerb 8))
-				(global2 setScript: openTownHallDoor 0 (== global122 5))
-			else
-				(if (and (== global122 5) (== noun 2))
-					(global2 setScript: showTownHallSign)
-					(return 1)
-				)
+	(method (doVerb)
+		(cond
+			((not (proc11_0 138)) (global2 setScript: (ScriptID 5300 63)))
+			((not (proc11_0 139)) (global2 setScript: (ScriptID 5300 64)) (proc11_1 139))
+			((not (gKQEgo has: 42))
 				(cond
-					(
-						(and
-							(not (proc11_0 137))
-							(or
-								(and (== loop 3) (not (proc11_0 449)))
-								(== noun 2)
-							)
+					((and (not (proc11_0 109)) (proc11_0 117)) (global2 setScript: (ScriptID 5300 65)))
+					((not (proc11_0 109))
+						(if (proc11_0 119)
+							(global2 setScript: (ScriptID 5302 12))
+						else
+							(global2 setScript: (ScriptID 5300 66))
 						)
-						((ScriptID 13 0) hide_mouth: 1)
-						(gKqMessager say: 2 theVerb 7 0 self)
-						(proc11_1 449)
 					)
-					((== global104 -3) (global2 newRoom: 5100))
-					((!= global122 3) (global2 newRoom: 5100))
-					((proc11_0 137) (global2 setScript: enterTownHall))
-					(else (global2 setScript: knockOnTownHallDoor))
 				)
+				(proc11_2 139)
 			)
 		)
+		(return 1)
 	)

-	(method (onMe param1 &tmp temp0 temp1 temp2)
-		(= temp0 (super onMe: param1))
-		(= temp1 (- (param1 x?) nsLeft))
-		(= temp2 (- (param1 y?) nsTop))
+	(method (onMe param1 &tmp temp0)
 		(if
 			(and
-				(== loop 3)
-				(not (proc11_0 137))
-				(or
-					(and
-						(proc64999_5 temp1 9 10)
-						(<= 24 temp2)
-						(<= temp2 34)
-					)
-					(and
-						(<= 10 temp1)
-						(<= temp1 18)
-						(proc64999_5 temp2 23 24)
-					)
-					(and
-						(proc64999_5 temp1 18 19)
-						(<= 24 temp2)
-						(<= temp2 34)
-					)
-					(and
-						(<= 10 temp1)
-						(<= temp1 18)
-						(proc64999_5 temp2 34 35)
-					)
-				)
+				(= temp0 (super onMe: param1))
+				(proc11_0 117)
+				(proc11_0 138)
 			)
-			(return 0)
+			(= approachX 556)
+			(= approachY 113)
 		)
-		(if (and temp0 (param1 type?))
-			(if
-				(and
-					(== loop 3)
-					(not (proc11_0 137))
-					(<= 10 temp1)
-					(<= temp1 18)
-					(<= 24 temp2)
-					(<= temp2 34)
-				)
-				(if (proc11_0 137) (return 0))
-				(= noun 2)
-				(if (not (proc11_0 137))
-					(= approachX 239)
-					(= approachY 100)
-				else
-					(= approachX (gKQEgo x?))
-					(= approachY (gKQEgo y?))
-				)
-			else
-				(= noun 3)
-				(if
-				(and (== global122 5) (== (global80 message?) 8))
-					(= approachX 226)
-					(= approachY 102)
+		(return temp0)
+	)
+)
+
+(instance snakeSalesman of Prop
+	(properties
+		x 531
+		y 90
+		priority 90
+		fixPriority 1
+		view 5323
+		loop 1
+	)
+)
+
+(instance egoActions of Actions
+	(properties)
+
+	(method (doVerb theVerb)
+		(switch theVerb
+			(57
+				(if (proc5300_16 195)
+					(global2 setScript: (ScriptID 5302 21))
 				else
-					(if (or (!= global122 3) (proc11_0 449))
-						(= approachX 232)
-						(= approachY 103)
-					)
-					(if (proc11_0 137) (= approachX 237) (= approachY 98))
+					(return 0)
 				)
 			)
+			(else  (return 0))
 		)
-		(return temp0)
+		(return 1)
 	)
+)
+
+(instance roomFeatureInitCode of Code
+	(properties)

-	(method (cue)
-		((ScriptID 13 0) hide_mouth: 0)
+	(method (doit param1)
+		(if
+			(and
+				(not (param1 isKindOf: KQInventory))
+				(param1 respondsTo: #signal)
+			)
+			(param1
+				sightAngle: 10
+				signal: (| (param1 signal?) $7001)
+			)
+		)
+	)
+)
+
+(instance enterFromGate of Script
+	(properties)
+
+	(method (changeState newState)
+		(switch (= state newState)
+			(0
+				(global1 handsOff:)
+				(littleDoor cel: (littleDoor lastCel:))
+				(= cycles 4)
+			)
+			(1
+				(gKQEgo normalize: 3)
+				(= cycles 1)
+			)
+			(2
+				(littleDoor setCycle: Beg self)
+			)
+			(3
+				(gKqSound1 number: 802 loop: 1 play:)
+				(gKQEgo setHeading: 90 self)
+			)
+			(4
+				(if (== next (ScriptID 5301 0))
+					(gKQEgo setMotion: MoveTo 60 (gKQEgo y?) self)
+				else
+					(gKQEgo setMotion: MoveTo 40 (gKQEgo y?) self)
+				)
+			)
+			(5
+				(if (and (not next) (== client global2))
+					(global1 handsOn:)
+				)
+				(self dispose:)
+			)
+		)
 	)
 )

-(instance showTownHallSign of Script
+(instance chickenRunsOff of Script
 	(properties)

-	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global2 setInset: iSign self)
+	(method (init)
+		(proc11_2 539)
+		(super init: &rest)
+	)
+
+	(method (dispose)
+		(proc11_2 539)
+		(super dispose:)
+	)
+
+	(method (changeState newState &tmp temp0)
+		(if (not (proc11_0 539))
+			(switch (= state newState)
+				(0
+					(global1 handsOff: 1)
+					(gKqMusic1 pause: 1)
+					(chickenSound number: 5310 loop: -1 play:)
+					(chickenPetite
+						view: 5311
+						setLoop: 6 1
+						setCel: 0
+						setPri: -1
+						setCycle: End self
+					)
+				)
+				(1
+					(if (< (chickenPetite x?) 320)
+						(= global372 8)
+						(proc11_3 gKQEgo 315 104 0)
+						(chickenPetite
+							setLoop: 7 1
+							setCel: 0
+							setCycle: Walk
+							setMotion: PolyPath 315 104 self
+						)
+					else
+						(= global372 9)
+						(= temp0 (- (Abs (gNewPlane_2 left:)) 15))
+						(proc11_3 gKQEgo temp0 (chickenPetite y?) 0)
+						(chickenPetite
+							setLoop: 0 1
+							setCycle: Walk
+							setMotion: PolyPath temp0 (chickenPetite y?) self
+						)
+					)
+					(gKqMessager say: 0 0 13 0 chickenPetite)
+				)
+				(2
+					(chickenSound fade:)
+					(gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
+					(chickenPetite setCycle: 0)
+					(proc5300_4)
+					(global1 handsOn:)
+					(self dispose:)
+				)
 			)
-			(1 (self dispose:))
+		else
+			(chickenSound stop:)
+			(gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
+			(chickenPetite setCycle: 0 setMotion: 0)
+			(proc5300_4)
+			(global1 handsOn:)
+			(self dispose:)
 		)
 	)
 )

-(instance openTownHallDoor of Script
+(instance archDukeTalk of Script
 	(properties)

+	(method (doit)
+		(super doit:)
+		(if (and (== state 1) register) (self cue:))
+	)
+
 	(method (changeState newState)
 		(switch (= state newState)
 			(0
-				(global1 handsOff:)
-				(if (== global104 -4)
-					(gKQEgo
-						view: 8125
-						loop: 1
-						cel: 0
-						posn: 228 100
-						setPri: 88
-						setCycle: CT 5 1 self
-					)
-				else
-					(gKQEgo
-						view: 8485
-						setLoop: 1
-						cel: 0
-						setPri: 88
-						setCycle: CT 5 1 self
-					)
+				(archDuke
+					view: 5303
+					setLoop: 0
+					setCel: 0
+					posn: 147 115
+					setCycle: End self
 				)
 			)
 			(1
-				(if register
-					(gKqSound1 number: 803 loop: 1 play: self)
+				(if (not register)
+					(archDuke setLoop: 1 setCel: 0 setCycle: Fwd)
 				else
-					(= cycles 1)
+					(self cue:)
 				)
 			)
 			(2
-				(if register
-					((ScriptID 13 0) hide_mouth: 1 clientCel: -2)
-					(gKqMessager say: 0 0 47 0 self)
-				else
-					(gKqSound1 number: 801 loop: 1 play:)
-					(townHallDoor setPri: 10 setCycle: End self)
-					(gKQEgo setCycle: End self)
-				)
+				(archDuke setLoop: 2 setCel: 0 setCycle: CT 16 1 self)
 			)
 			(3
-				((ScriptID 13 0) hide_mouth: 0)
-				(if register (gKQEgo setCycle: Beg self))
+				(gKQEgo setScript: (ScriptID 5300 67))
+				(archDuke setLoop: 2 setCel: 17 setCycle: CT 20 1 self)
 			)
 			(4
-				(if register
-					(gKQEgo
-						normalize: 7
-						posn: (townHallDoor approachX?) (townHallDoor approachY?)
-					)
-					(global1 handsOn:)
-					(self dispose:)
-				else
-					(gKQEgo
-						normalize: 3
-						posn: 222 101
-						setPri: 20
-						setMotion: MoveTo 177 75 self
-					)
-				)
+				(gKqSound1 number: 5305 loop: 1 play:)
+				(archDuke setCycle: CT 24 1 self)
+			)
+			(5
+				(gKqSound1 stop:)
+				(archDuke setCycle: End self)
 			)
-			(5 (global2 newRoom: 5100))
+			(6 (self dispose:))
 		)
 	)
 )

-(instance wagon of Feature
-	(properties
-		noun 6
-		approachX 511
-		approachY 115
-		x 534
-		y 112
-	)
+(instance unCoverCage of Script
+	(properties)

-	(method (init)
-		(super init:)
-		(self
-			setHotspot: 9998
-			approachVerbs: 9998
-			setPolygon:
-				((Polygon new:)
-					type: 0
-					init: 518 57 550 55 550 81 541 86 516 81 521 98
-					yourself:
+	(method (changeState newState)
+		(switch (= state newState)
+			(0
+				(global1 handsOff:)
+				(proc11_1 138)
+				(cageCover dispose:)
+				(chinaBird view: 5329 loop: 1 cel: 0 x: 571 y: 97 init:)
+				(gKQEgo
+					view: 5327
+					loop: 0
+					cel: 0
+					x: 503
+					y: 138
+					setPri: 119
+					setScale: 0
+					setCycle: End self
 				)
-		)
-	)
-
-	(method (doVerb theVerb)
-		(if local15 (gKqMessager say: noun 8 46 0) (return 1))
-		(return
-			(if (!= global104 -3)
-				(switch theVerb
-					(8
-						(global2 setScript: snakeDoVerbDo)
-					)
-					(61
-						(global2 setScript: giveStatue)
-					)
-					(5
-						(global2 setScript: snakeDoVerbComb)
-					)
-					(else
-						(global2 setScript: snakeDoVerbElse)
-					)
+			)
+			(1
+				(cageCover init:)
+				(gKQEgo
+					normalize: 2
+					posn: (birdCage approachX?) (birdCage approachY?)
+					setScaler: Scaler 83 53 98 78
+					setHeading: 90
 				)
-			else
-				0
+				(chinaBird
+					view: 5327
+					loop: 1
+					cel: 0
+					x: 502
+					y: 141
+					setCycle: End self
+				)
+			)
+			(2
+				(global1 handsOn:)
+				(self dispose:)
 			)
 		)
 	)
+)
+
+(instance openCageDoor of Script
+	(properties)

-	(method (onMe param1 &tmp temp0)
-		(if
-		(and (proc11_0 349) (== (global80 message?) 5))
-			(return 0)
-		)
-		(if
-			(and
-				local15
-				(not (proc64999_5 (global80 message?) 8 10))
+	(method (changeState newState)
+		(switch (= state newState)
+			(0
+				(global1 handsOff:)
+				(= gKQEgoX (gKQEgo x?))
+				(= gKQEgoY (gKQEgo y?))
+				(gKQEgo setHeading: 90 self)
 			)
-			(return 0)
-		)
-		(= temp0
-			(if (super onMe: param1)
-			else
-				(snakeSalesman onMe: param1)
+			(1
+				(gKQEgo
+					view: 5327
+					loop: 3
+					cel: 0
+					x: 535
+					y: 123
+					setScale: 0
+					setCycle: CT 5 1 self
+				)
 			)
-		)
-		(if (param1 type?)
-			(cond
-				((== (global80 message?) 61) (= approachX 490) (= approachY 108))
-				(
-				(and (not (proc11_0 116)) (not (proc11_0 461))) (= approachX 506) (= approachY 104))
-				(else (= approachX 495) (= approachY 100))
+			(2
+				(gKqSound1 number: 5330 loop: 1 play:)
+				(cageDoor setCycle: End)
+				(gKQEgo setCycle: CT 9 1 self)
+			)
+			(3 (gKQEgo setCycle: Beg self))
+			(4
+				(gKQEgo
+					normalize: 0
+					posn: gKQEgoX gKQEgoY
+					setScaler: Scaler 83 53 98 78
+				)
+				(global1 handsOn:)
+				(self dispose:)
 			)
 		)
-		(return temp0)
 	)
 )

-(instance snakeDoVerbElse of Script
+(instance getTheChinaBird of Script
 	(properties)

 	(method (changeState newState)
 		(switch (= state newState)
 			(0
 				(global1 handsOff:)
-				(if (snakeSalesman script?)
-					(keepSalesmanBusy caller: self register: 1)
-				else
-					(= cycles 1)
-				)
+				(= gKQEgoX (gKQEgo x?))
+				(= gKQEgoY (gKQEgo y?))
+				(gKQEgo setHeading: 90 self)
 			)
 			(1
-				(if (or (proc11_0 116) (proc11_0 95))
-					(gKqMessager say: 6 0 45 0 self)
-				else
-					(gKqMessager say: 6 98 5 0 self)
-				)
+				(gKqMessager say: 7 8 28 0 self)
 			)
 			(2
-				((ScriptID 13 0) hide_mouth: 0 modeless: 1)
+				(gKQEgo
+					view: 5327
+					loop: 3
+					cel: 0
+					x: 535
+					y: 123
+					setScale: 0
+					setCycle: End self
+				)
+			)
+			(3
+				(gKQEgo hide:)
+				(chinaBird
+					view: 5327
+					loop: 4
+					cel: 1
+					x: 557
+					y: 114
+					setPri: 123
+					setCycle: End self
+				)
+			)
+			(4
+				(chinaBird dispose:)
+				(gKQEgo get: 42)
+				(birdCage dispose:)
+				(gKQEgo
+					show:
+					posn: gKQEgoX gKQEgoY
+					normalize: 4
+					setScaler: Scaler 83 53 98 78
+				)
 				(global1 handsOn:)
-				(snakeSalesman setScript: keepSalesmanBusy)
 				(self dispose:)
 			)
 		)
 	)
 )

-(instance snakeDoVerbDo of Script
+(instance tryGetBird of Script
 	(properties)

 	(method (changeState newState)
 		(switch (= state newState)
 			(0
 				(global1 handsOff:)
-				(if (snakeSalesman script?)
-					(keepSalesmanBusy caller: self register: 1)
-				else
-					(= cycles 1)
-				)
+				(gKQEgo setPri: 119 setHeading: 90 self)
 			)
 			(1
 				(cond
-					((or (proc11_0 116) (proc11_0 95))
-						(if (or (not (proc11_0 123)) (== global122 5))
-							(cond
-								(
-								(and (not (proc11_0 95)) (not (proc11_1 416))) (gKqMessager say: 6 8 22 0 self))
-								((not (proc11_1 417)) (gKqMessager say: 6 8 23 0 self))
-								(else (gKqMessager say: 6 8 24 0 self))
-							)
-						else
-							(gKqMessager say: 6 8 24 0 self)
-						)
-					)
-					((or (not (proc11_0 123)) (== global122 5))
-						(cond
-							((not (proc11_1 418)) (gKqMessager say: 6 8 25 0 self))
-							((not (proc11_1 419)) (gKqMessager say: 6 8 26 0 self))
-							(else
-								((ScriptID 13 0) hide_mouth: 1)
-								(gKqMessager say: 6 8 27 0 self)
-							)
-						)
-					)
-					(else
-						((ScriptID 13 0) hide_mouth: 1)
-						(snakeSalesman setScript: keepSalesmanBusy)
-						(gKqMessager say: 6 8 27 0 self)
-					)
+					((not (proc11_1 118)) (self setScript: (ScriptID 5302 10) self))
+					((not (proc11_1 119)) (self setScript: (ScriptID 5302 11) self))
 				)
 			)
 			(2
-				((ScriptID 13 0) hide_mouth: 0 modeless: 1)
+				(gKQEgo setHeading: 180 self)
+			)
+			(3
 				(global1 handsOn:)
-				(if (not (snakeSalesman script?))
-					(snakeSalesman setScript: keepSalesmanBusy)
-				)
 				(self dispose:)
 			)
 		)
 	)
 )

-(instance snakeDoVerbComb of Script
+(instance getBlownOn of Script
 	(properties)

 	(method (changeState newState)
 		(switch (= state newState)
 			(0
-				(global1 handsOff:)
-				(if (snakeSalesman script?)
-					(keepSalesmanBusy caller: self register: 1)
-				else
-					(= cycles 1)
+				(gKQEgo
+					view: 5303
+					setLoop: 8
+					cel: 0
+					setScale: 0
+					posn: (+ (gKQEgo x?) 25) (gKQEgo y?)
+					setCycle: End self
 				)
 			)
 			(1
-				(cond
-					((proc11_0 116) (gKqMessager say: 6 5 22 0 self) (proc11_1 349))
-					((not (proc11_1 461)) (proc11_1 95) (self setScript: haveSalesmanPoint))
-					((not (proc11_1 417)) (gKqMessager say: 6 5 26 0 self))
-					(else (proc11_1 349) (gKqMessager say: 6 5 27 0 self))
+				(gKQEgo
+					normalize: 0
+					x: (- (gKQEgo x?) 25)
+					setScaler: Scaler 83 53 98 78
 				)
-			)
-			(2
-				((ScriptID 13 0) hide_mouth: 0 modeless: 1)
-				(global1 handsOn:)
-				(snakeSalesman setScript: keepSalesmanBusy)
 				(self dispose:)
 			)
 		)
 	)
 )

-(instance haveSalesmanPoint of Script
+(instance showTheComb of Script
 	(properties)

+	(method (init)
+		(proc11_2 539)
+		(super init: &rest)
+	)
+
+	(method (dispose)
+		(proc11_2 539)
+		(super dispose:)
+	)
+
 	(method (changeState newState)
-		(switch (= state newState)
-			(0
-				(global1 handsOff:)
-				(gKqMessager say: 6 5 25 1 self)
-			)
-			(1
-				(if (snakeSalesman script?)
-					(keepSalesmanBusy caller: self register: 1)
-				else
+		(if (not (proc11_0 539))
+			(switch (= state newState)
+				(0
+					(global1 handsOff: 1)
+					(Load rsVIEW 5303)
+					(Load rsCDAUDIO 5305)
+					(Load rsVIEW 8132)
+					(Load rsVIEW 5334)
+					(= register (gKQEgo cycleSpeed?))
+					(gKQEgo
+						view: 8241
+						setLoop:
+							(if
+								(and
+									(< 0 (gKQEgo heading?))
+									(< (= register (gKQEgo cycleSpeed?)) 180)
+								)
+								0
+							else
+								1
+							)
+						setCel: 0
+						cycleSpeed: 12
+						setCycle: CT 20 1 self
+					)
+				)
+				(1
+					(gKqSound1 number: 1256 setLoop: -1 play:)
+					(gKQEgo setCycle: End self)
+				)
+				(2
+					(gKQEgo setCycle: CT 20 -1 self)
+				)
+				(3
+					(gKqSound1 setLoop: 1 stop:)
+					(gKQEgo setCycle: Beg self)
+				)
+				(4
+					(gKQEgo
+						normalize: 0
+						setScaler: Scaler 83 53 98 78
+						cycleSpeed: register
+					)
 					(= cycles 1)
 				)
+				(5
+					(archTalker clientCel: -2 hide_mouth: 1 modeless: 2)
+					(gKqMessager say: 1 5 6 1 self)
+				)
+				(6
+					(self setScript: (ScriptID 5300 62) self)
+					(gKqMessager say: 1 5 6 2 self)
+				)
+				(7 (script register: 1))
+				(8
+					(gKqMusic1 pause: 1)
+					(chickenSound number: 5310 loop: -1 play:)
+					(archTalker clientCel: -1 hide_mouth: 0 modeless: 1)
+					(self setScript: (ScriptID 5300 69) self self)
+					(= register (gKQEgo cycleSpeed?))
+					(chickenPetite
+						posn: 308 102
+						setPri: 130
+						view: 5303
+						setLoop: 4
+						setCel: 0
+						init:
+						setCycle: CT 16 1 self
+					)
+					(chickenTalker modeless: 2)
+					(= global372 7)
+					(gKqMessager say: 1 5 6 3 chickenPetite)
+				)
+				(9
+					(chickenPetite setCycle: CT 36 1 self)
+					(gKQEgo
+						view: 8132
+						setLoop: 0
+						setCel: 6
+						cycleSpeed: 13
+						setCycle: Beg
+					)
+				)
+				(10
+					(chickenPetite setCycle: End self)
+					(gKQEgo setCycle: End)
+				)
+				(11
+					(chickenSound fade:)
+					(gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
+					(gKQEgo
+						normalize: 0
+						setScaler: Scaler 83 53 98 78
+						cycleSpeed: register
+					)
+					(proc5300_4)
+					(= cycles 2)
+				)
+				(12
+					(archTalker clientCel: 4)
+					(gKqMessager say: 1 5 6 4 self)
+				)
+				(13
+					(archTalker clientCel: -1)
+					(archDuke setCycle: CT 12 1 self)
+				)
+				(14
+					(archDuke setPri: 86 setCycle: End self)
+				)
+				(15
+					(archDuke hide:)
+					(townHallDoor setHotspot: 8 10 setCycle: Beg self)
+				)
+				(16
+					(gKqSound1 number: 802 setLoop: 1 play:)
+					(archDuke
+						view: 5334
+						setLoop: 3 1
+						cel: 0
+						posn: 218 88
+						setPri: 82
+						show:
+						setCycle: Walk
+						setScaler: Scaler 92 73 86 78
+						setMotion: MoveTo 177 75 self
+					)
+				)
+				(17
+					(chickenTalker modeless: 1)
+					(archDuke dispose:)
+					(proc11_1 110)
+					(if (gKQEgo scratch?)
+						(gKQEgo addRespondVerb: 51)
+					else
+						(gKQEgo setHotspot: 0 51)
+					)
+					(chinaDoorExit init:)
+					(global1 handsOn:)
+					(self dispose:)
+				)
 			)
-			(2
-				(gKqMessager sayRange: 6 5 25 2 4 self)
-			)
-			(3
-				(if (not (gKQEgo has: 47))
-					(gKqMessager say: 6 5 25 5 self)
-				else
+		else
+			(switch (= state newState)
+				(0
+					(gKqSound1 stop:)
+					(gKQEgo setScript: 0)
+					(if script (script caller: 0))
+					(= cycles 2)
+				)
+				(1
+					(gKQEgo
+						normalize: 0
+						setScaler: Scaler 83 53 98 78
+						posn: (archDuke approachX?) (archDuke approachY?)
+						cycleSpeed: register
+					)
+					(archDuke dispose:)
+					(proc11_1 110)
+					(if (gKQEgo scratch?)
+						(gKQEgo addRespondVerb: 51)
+					else
+						(gKQEgo setHotspot: 0 51)
+					)
+					(chickenPetite setCycle: 0 setMotion: 0)
+					(proc5300_4)
+					(archTalker clientCel: -1 hide_mouth: 0 modeless: 1)
+					(chickenTalker modeless: 1)
+					(chinaDoorExit init:)
+					(chickenSound fade:)
+					(gKqMusic1 setVol: 0 pause: 0 fade: 127 25 10 0)
+					(archTalker clientCel: -1)
+					(townHallDoor setHotspot: 8 10 cel: 0)
+					(UpdateScreenItem townHallDoor)
 					(global1 handsOn:)
-					(snakeSalesman setScript: keepSalesmanBusy)
 					(self dispose:)
 				)
 			)
-			(4
-				(gKQEgo hide:)
-				(= register (snakeSalesman priority?))
-				(snakeSalesman
-					view: 5325
-					setLoop: 2 1
-					cel: 0
-					posn: 491 134
-					setPri: 150
-					setCycle: CT 8 1 self
-				)
-			)
-			(5
-				(snakeSalesman cel: 9)
-				(UpdateScreenItem snakeSalesman)
-				(FrameOut)
-				(= cycles 1)
-			)
-			(6
-				(gKqMessager say: 6 5 25 6 self)
-			)
-			(7
-				(snakeSalesman setCycle: Beg self)
-			)
-			(8
-				(gKQEgo show:)
-				(snakeSalesman
-					setLoop: 5
-					cel: 7
-					setPri: register
-					posn: 497 129
-				)
-				(UpdateScreenItem snakeSalesman)
-				(FrameOut)
-				(= cycles 3)
-			)
-			(9
-				(gKqMessager sayRange: 6 5 25 7 9 self)
-			)
-			(10
-				(global1 handsOn:)
-				(snakeSalesman setScript: keepSalesmanBusy)
-				(self dispose:)
-			)
 		)
 	)
 )

-(instance keepSalesmanBusy of Script
+(instance standUpDuke of Script
 	(properties)

-	(method (doit)
-		(if (and seconds (or register next))
-			(= seconds 0)
-			(= cycles 1)
-		)
-		(super doit:)
-	)
-
 	(method (changeState newState)
 		(switch (= state newState)
 			(0
-				(= local14 (= state 1))
-				(snakeSalesman
-					view: 5325
-					setLoop: 5
-					cel: 7
-					posn: 497 129
-					setPri: 95
-					setCycle: Beg self
-				)
-			)
-			(1
-				(= local14 0)
-				(= seconds (Random 2 5))
-			)
-			(2
-				(= local14 1)
-				(if (and (not next) (not register))
-					(if (Random 0 1)
-						(self changeState: 8)
-					else
-						(self changeState: 4)
-					)
-				else
-					(snakeSalesman
-						setLoop: 5
-						setPri: 95
-						posn: 497 129
-						setCycle: End self
-					)
-				)
-			)
-			(3
-				(= register 0)
-				(if next (next caller: caller) (= caller 0))
-				(self dispose:)
-			)
-			(4
-				(snakeSalesman
-					setLoop: 4
-					cel: 0
-					setPri: 92
-					posn: 529 95
-					setCycle: CT 6 1 self
-				)
-			)
-			(5
-				(if (and (not register) (Random 0 1))
-					(-- state)
-					(snakeSalesman setCycle: ROsc 1 6 14 self)
-				else
-					(= cycles 1)
-				)
-			)
-			(6
-				(snakeSalesman setCycle: CT 18 1 self)
-			)
-			(7
-				(= state 0)
-				(snakeSalesman
-					setLoop: 5
-					cel: 3
-					setPri: 95
-					posn: 497 129
-					setCycle: End self
-				)
-			)
-			(8
-				(snakeSalesman
+				(archDuke
+					posn: 147 116
 					setLoop: 3
-					cel: 0
-					setPri: 92
-					posn: 496 129
+					setCel: 0
 					setCycle: End self
 				)
 			)
-			(9 (= seconds 3))
-			(10
-				(snakeSalesman setCycle: Beg self)
-			)
-			(11
-				(= state 0)
-				(snakeSalesman
+			(1
+				(archDuke
+					posn: 206 107
 					setLoop: 5
-					setPri: 95
-					posn: 497 129
-					cel: 3
-					setCycle: End self
+					setCel: 0
+					setCycle: CT 4 1 self
 				)
 			)
+			(2 (self dispose:))
 		)
 	)
 )

-(instance pool of Feature
-	(properties
-		sightAngle 180
-		approachX 471
-		approachY 103
-		x 466
-		y 108
-	)
+(instance theMoonFalls of Script
+	(properties)

 	(method (init)
-		(super init:)
-		(self
-			setHotspot: 8 10 52
-			approachVerbs: 8 52
-			setPolygon:
-				((Polygon new:)
-					type: 1
-					init: 445 88 436 107 349 109 330 103 324 87 326 80 355 78 428 81
-					yourself:
-				)
-		)
+		(proc11_2 539)
+		(super init: &rest)
 	)

-	(method (doVerb theVerb)
-		(switch theVerb
-			(8
-				(global2 setScript: tryToGetMoon)
-			)
-			(52
-				(global2 setScript: getTheMoon)
-			)
-		)
+	(method (dispose)
+		(proc11_2 539)
+		(super dispose:)
 	)

-	(method (onMe param1 &tmp temp0)
-		(if
-		(and (= temp0 (super onMe: param1)) (param1 type?))
-			(switch (global80 message?)
-				(8
-					(= approachX 442)
-					(= approachY 114)
-					(= x 440)
+	(method (changeState newState)
+		(if (not (proc11_0 539))
+			(switch (= state newState)
+				(0
+					(global1 handsOff: 1)
+					(Load rsCDAUDIO 907)
+					(Load rsCDAUDIO 854)
+					(Load rsCDAUDIO 836)
+					(Load rsVIEW 5314)
+					(localproc_1162)
+					(= global372 9)
+					(chickenPetite
+						view: 5311
+						setLoop: 0 1
+						setCycle: Walk
+						posn: 607 117
+						moveSpeed: 3
+						setPri: -1
+						init:
+						setMotion: MoveTo 500 107 self
+					)
+					(chickenTalker hide_mouth: 1 modeless: 2)
+					(gKqMessager say: 0 0 16 1 chickenPetite)
 				)
-				(else
-					(= approachX 471)
-					(= approachY 103)
-					(= x 466)
+				(1
+					(chickenPetite setMotion: PolyPath 468 94 self)
 				)
-			)
-		)
-		(return temp0)
-	)
-)
-
-(instance birdCage of Feature
-	(properties
-		noun 7
-		approachX 556
-		approachY 110
-		x 560
-		y 113
-	)
-
-	(method (init)
-		(super init:)
-		(self
-			setHotspot: 8 10
-			approachVerbs: 8
-			setPolygon:
-				((Polygon new:)
-					type: 0
-					init:
-						565
-						105
-						561
-						97
-						561
-						88
-						562
-						82
-						571
-						70
-						574
-						70
-						584
-						80
-						586
-						91
-						585
-						98
-						582
-						105
-						574
-						106
-					yourself:
+				(2
+					(chickenPetite setMotion: PolyPath 393 86 self)
+				)
+				(3
+					(chickenPetite setMotion: PolyPath 321 102 self)
+				)
+				(4
+					(= global372 8)
+					(chickenPetite
+						setLoop: (if (global84 size:) 7 else 8) 1
+					)
+					(chickenPetite setMotion: PolyPath 402 117 self)
+				)
+				(5
+					(chickenPetite setMotion: PolyPath 477 98 self)
+				)
+				(6
+					(= global372 8)
+					(chickenPetite
+						setLoop: (if (global84 size:) 0 else 9) 1
+					)
+					(chickenPetite setMotion: PolyPath 468 94 self)
+				)
+				(7
+					(= global372 -1)
+					(chickenPetite
+						view: 5314
+						setLoop: 5
+						cel: 0
+						x: 475
+						y: 135
+						setPri: 100
+						setCycle: 0
+					)
+					(UnLoad 128 5311)
+					(chickenTalker hide_mouth: 1 clientCel: -2)
+					(moon
+						view: 5312
+						loop: 0
+						cel: 0
+						x: 382
+						y: 95
+						setPri: 150
+						init:
+						setCycle: End self
+					)
+				)
+				(8
+					(moon loop: 1 cel: 0 setCycle: End self)
 				)
-		)
-	)
-
-	(method (doVerb)
-		(cond
-			((not (proc11_0 138)) (global2 setScript: uncoverCage))
-			((not (proc11_0 139)) (global2 setScript: openCageDoor) (proc11_1 139))
-			((not (gKQEgo has: 42))
-				(cond
-					((and (not (proc11_0 109)) (proc11_0 117)) (global2 setScript: getTheChinaBird))
-					((not (proc11_0 109))
-						(if (proc11_0 119)
-							(global2 setScript: takeBird)
-						else
-							(global2 setScript: tryGetBird)
-						)
+				(9
+					(mockingBird
+						view: 5314
+						loop: 3
+						cel: 0
+						x: 349
+						y: 49
+						z: 0
+						setPri: 150
+						setCycle: CT 2 1
 					)
+					(moon loop: 2 cel: 0 setCycle: CT 1 1 self)
+				)
+				(10
+					(gKqSound1 number: 907 loop: 1 play:)
+					(moon loop: 2 setCycle: CT 11 1 self)
+				)
+				(11
+					(self setScript: (ScriptID 5300 72))
+					(moon setCycle: End self)
+				)
+				(12
+					(chickenPetite setPri: -1 setCycle: CT 6 1 self)
+				)
+				(13
+					(archDukeSound number: 854 loop: 1 play:)
+					(chickenPetite setCycle: End self)
+				)
+				(14
+					(gKqSound1 number: 836 loop: 1 play:)
+					(chickenPetite
+						view: 5315
+						loop: 0
+						cel: 0
+						posn: 415 93
+						setPri: 125
+						setCycle: End self
+					)
+				)
+				(15
+					(moon
+						view: 5316
+						loop: 6
+						cel: 0
+						setScript: (ScriptID 5300 71)
+					)
+					(gKqSound1 number: 836 loop: 1 play:)
+					(chickenPetite loop: 1 cel: 0 setCycle: End self)
+				)
+				(16
+					(chickenPetite
+						loop: 2
+						cel: 0
+						setHotspot: 8 10
+						approachVerbs: 8
+						setPri: 110
+						setCycle: End self
+					)
+				)
+				(17
+					(global1 handsOn:)
+					(pool init:)
+					(self dispose:)
 				)
-				(proc11_2 139)
 			)
-		)
-		(return 1)
-	)
-
-	(method (onMe param1 &tmp temp0)
-		(if
-			(and
-				(= temp0 (super onMe: param1))
-				(proc11_0 117)
-				(proc11_0 138)
+		else
+			(self setScript: 0)
+			(gKqSound1 stop:)
+			(proc11_1 113)
+			(mockingBird dispose:)
+			(chickenPetite view: 5315 loop: 2)
+			(chickenPetite
+				cel: (chickenPetite lastCel:)
+				posn: 415 93
+				setPri: 110
+				setMotion: 0
+				setCycle: 0
+				setHotspot: 8 10
+				approachVerbs: 8
 			)
-			(= approachX 556)
-			(= approachY 113)
-		)
-		(return temp0)
-	)
-)
-
-(instance fauxSign of Feature
-	(properties
-		noun 8
-		approachX 413
-		approachY 75
-		x 413
-		y 70
-	)
-
-	(method (init)
-		(super init:)
-		(self
-			setHotspot: 8 10
-			approachVerbs: 8
-			setPolygon:
-				((Polygon new:)
-					type: 1
-					init: 398 32 399 31 412 30 425 36 425 38 398 40
-					yourself:
+			(nickel init:)
+			(if (not (moon script?))
+				(moon
+					view: 5316
+					loop: 6
+					cel: 0
+					init:
+					setScript: (ScriptID 5300 71)
 				)
-		)
-	)
-
-	(method (doVerb theVerb)
-		(if (== global104 -3)
-			(gKqMessager say: noun theVerb 37)
-		else
-			(gKqMessager say: noun theVerb 0)
+			)
+			(gKQEgo normalize: 5)
+			(pool init:)
+			(global1 handsOn:)
+			(self dispose:)
 		)
 	)
 )

-(instance fauxDoor of Prop
-	(properties
-		noun 12
-		approachX 435
-		approachY 69
-		x 439
-		y 69
-		z 3
-		priority 66
-		fixPriority 1
-		view 5302
-		loop 2
-	)
-
-	(method (init)
-		(super init:)
-		(if (not (proc11_0 276)) (self setHotspot: 8 10))
-		(self
-			approachVerbs: 8
-			setPolygon:
-				((Polygon new:)
-					type: 1
-					init: 438 65 446 67 443 30 431 33
-					yourself:
-				)
-		)
-	)
+(instance bobbingMoon of Script
+	(properties)

-	(method (doVerb)
-		(cond
-			((== global104 -4)
-				(cond
-					((proc11_0 203) (global2 setScript: (ScriptID 5301 4)))
-					((== global122 5) (global2 setScript: enterFauxShop))
-					((and (proc11_0 120) (proc11_0 121)) (gKqMessager say: 8 8 34 0))
-					((not (proc11_0 123)) (gKqMessager say: 8 8 33 0))
-					((proc11_0 122) (global2 setScript: enterFauxShop))
-					(else (global2 setScript: walkThroughDoor))
+	(method (changeState newState)
+		(switch (= state newState)
+			(0
+				(moon
+					view: 5316
+					setLoop: 6 1
+					cel: 14
+					cycleSpeed: 8
+					posn: 409 93
+					setPri: 110
+					setCycle: Beg self
 				)
 			)
-			((proc11_0 149) (global2 setScript: enterFauxShop))
-			(else (global2 setScript: walkThroughDoor))
-		)
-	)
-
-	(method (onMe param1 &tmp temp0)
-		(if
-			(and
-				(= temp0 (super onMe: param1))
-				(param1 type?)
-				(== loop 5)
+			(1
+				(if register
+					(moon setCycle: End self)
+				else
+					(-- state)
+					(moon setCycle: ROsc 1 4 9 self)
+				)
 			)
-			(= approachX (- x 3))
-			(= approachY y)
+			(2 (self dispose:))
 		)
-		(return temp0)
 	)
 )

-(instance readFauxDoorSign of Script
+(instance mockingBirdFlysAway of Script
 	(properties)

 	(method (changeState newState)
 		(switch (= state newState)
 			(0
-				(global1 handsOff:)
-				(gKQEgo setHeading: 90 self)
+				(gKqSound1 number: 5312 loop: 1 play:)
+				(mockingBird view: 5314 loop: 3 cel: 2 setCycle: End self)
 			)
 			(1
-				(gKqMessager say: 8 8 register 0)
+				(nickel init:)
+				(mockingBird
+					setLoop: 4 1
+					cel: 0
+					setCycle: Fwd
+					posn: 362 52
+					setPri: 150
+					moveSpeed: 1
+					setMotion: MoveTo 640 1 self
+				)
 			)
 			(2
-				(global1 handsOn:)
+				(proc11_1 113)
+				(mockingBird dispose:)
 				(self dispose:)
 			)
 		)
 	)
 )

-(instance fauxDoorExit of ExitFeature
-	(properties
-		noun 12
-		approachX 435
-		approachY 69
-		x 439
-		y 66
-		exitDir 2
-	)
-
-	(method (init)
-		(super init:)
-		(self setHotspot: 8 10 approachVerbs: 8)
-		(fauxDoor setHotspot: 0)
-	)
-
-	(method (doVerb theVerb)
-		(fauxDoor doVerb: theVerb)
-	)
-
-	(method (onMe param1 &tmp temp0)
-		(if
-			(and
-				(= temp0 (fauxDoor onMe: param1))
-				(param1 type?)
-				(proc11_0 203)
-			)
-			(= approachX 424)
-			(= approachY 72)
-		)
-		(return temp0)
-	)
-)
-
-(instance enterFauxShop of Script
+(instance cantPassDuke of Script
 	(properties)

 	(method (changeState newState)
 		(switch (= state newState)
 			(0
 				(global1 handsOff:)
-				(if (!= global104 -3)
-					(gKQEgo view: 8121 loop: 0 cel: 0 setCycle: CT 2 1 self)
-				else
-					(= cycles 1)
-				)
+				(gKQEgo setMotion: 0)
+				(= cycles 1)
 			)
 			(1
-				(gKqSound1 number: 801 loop: 1 play:)
-				(fauxDoor setCycle: End self)
-				(if (!= global104 -3)
-					(gKQEgo setCycle: Beg self)
-				else
-					(= cycles 1)
-				)
+				(archTalker modeless: 2)
+				(gKqMessager say: 0 0 2 0 self)
+				(self setScript: (ScriptID 5300 74) self)
 			)
 			(2 0)
 			(3
-				(gKQEgo normalize: 0 setMotion: MoveTo 450 69 self)
+				(global1 handsOn:)
+				(self dispose:)
 			)
-			(4 (global2 newRoom: 5000))
 		)
 	)
 )

-(instance snakeSalesman of Prop
-	(properties
-		x 531
-		y 90
-		priority 90
-		fixPriority 1
-		view 5323
-		loop 1
-	)
-)
-
-(instance crook of Prop
-	(properties)
-)
-
-(instance egoActions of Actions
+(instance stepBackEgo of Script
 	(properties)

-	(method (doVerb theVerb)
-		(switch theVerb
-			(57
-				(if (localproc_77f0 195)
-					(global2 setScript: putOnMask)
-				else
-					(return 0)
+	(method (changeState newState)
+		(switch (= state newState)
+			(0
+				(gKQEgo
+					view: 8021
+					setLoop: 0
+					setCel: 0
+					setCycle: End self
 				)
 			)
-			(else  (return 0))
-		)
-		(return 1)
-	)
-)
-
-(instance partySound1 of Sound
-	(properties
-		flags $0004
-		number 5100
-		loop -1
-	)
-)
-
-(instance partySound2 of Sound
-	(properties
-		flags $0004
-		number 5102
-		loop -1
-	)
-)
-
-(instance archDukeSound of Sound
-	(properties
-		flags $0004
-		number 5301
-		loop -1
-	)
-)
-
-(instance chickenSound of Sound
-	(properties
-		flags $0004
-		number 5310
-		loop -1
-	)
-)
-
-(instance gateGuard of Actor
-	(properties
-		noun 10
-		approachX 61
-		approachY 113
-		x 29
-		y 113
-		view 5328
-	)
-
-	(method (init)
-		(super init: &rest)
-		(self setHotspot: 8 10 approachVerbs: 8)
-	)
-
-	(method (doVerb)
-		(guardTalker client: self)
-		(cond
-			((not (proc11_1 542)) (gKqMessager say: noun 8 39 0))
-			((not (proc11_1 543)) (gKqMessager say: noun 8 38 0))
-			(else (gKqMessager say: noun 8 40 0))
-		)
-	)
-
-	(method (cue)
-		(self view: 5328 setLoop: 0 cel: 0 setCycle: 0)
-		(UpdateScreenItem self)
-		(FrameOut)
-	)
-)
-
-(instance feather of View
-	(properties
-		approachX 280
-		approachY 93
-		x 295
-		y 62
-		priority 93
-		fixPriority 1
-		view 5331
-		loop 5
-	)
-
-	(method (init)
-		(super init: &rest)
-		(if (not (gKQEgo has: 41))
-			(self setHotspot: 8 10 approachVerbs: 8)
-			(= signal (& signal $efff))
+			(1
+				(gKQEgo
+					normalize: 0
+					setScaler: Scaler 83 53 98 78
+					posn: 90 (gKQEgo y?)
+					ignoreActors: 1
+				)
+				(self dispose:)
+			)
 		)
 	)
-
-	(method (doVerb)
-		(global2 setScript: getFeather)
-	)
 )

-(instance getFeather of Script
+(instance walkThroughDoor of Script
 	(properties)

 	(method (changeState newState)
 		(switch (= state newState)
 			(0
 				(global1 handsOff:)
-				(= gKQEgoX (gKQEgo x?))
-				(= gKQEgoY (gKQEgo y?))
-				(= cycles 3)
+				(gKqSound1 number: 801 loop: 1 play:)
+				(fauxDoor setCycle: End self)
 			)
 			(1
-				(gKQEgo view: 8075 loop: 0 cel: 0 setCycle: End self)
+				(gKQEgo setMotion: MoveTo 457 69 self)
 			)
 			(2
-				(feather dispose:)
-				(gKQEgo get: 41 setCycle: Beg self)
+				(gKQEgo setMotion: MoveTo 466 69 self)
 			)
 			(3
+				(gKQEgo setHeading: 180 self)
+			)
+			(4 (= seconds 3))
+			(5
 				(gKQEgo
-					normalize: 6
-					posn: gKQEgoX gKQEgoY
-					setScaler: Scaler 83 53 98 78
+					setMotion: MoveTo (fauxDoor approachX?) (fauxDoor approachY?) self
 				)
+			)
+			(6
+				(fauxDoor setCycle: Beg self)
+			)
+			(7
+				(gKqSound1 number: 802 loop: 1 play:)
 				(global1 handsOn:)
 				(self dispose:)
 			)
@@ -5252,250 +2873,519 @@
 	)
 )

-(instance wagonSign of View
-	(properties
-		x 520
-		y 53
-		priority 95
-		fixPriority 1
-		view 5300
-		loop 7
-	)
-
-	(method (init)
-		(super init: &rest)
-		(= local15 1)
-	)
-)
-
-(instance cageDoor of Prop
-	(properties
-		x 577
-		y 94
-		priority 98
-		fixPriority 1
-		view 5300
-		loop 3
-	)
-)
-
-(instance glint1 of Prop
-	(properties
-		x 365
-		y 92
-		priority 109
-		fixPriority 1
-		view 5300
-		loop 4
-		cycleSpeed 9
-	)
+(instance partyGoers of Script
+	(properties)

-	(method (init)
-		(super init: &rest)
-		(self setScript: glintScript)
-	)
-)
-
-(instance glint2 of Prop
-	(properties
-		x 414
-		y 94
-		priority 109
-		fixPriority 1
-		view 5300
-		loop 5
-		cycleSpeed 10
-	)
-)
-
-(instance glint3 of Prop
-	(properties
-		x 394
-		y 93
-		priority 109
-		fixPriority 1
-		view 5300
-		loop 6
-		cycleSpeed 14
+	(method (changeState newState)
+		(if (not (proc11_0 539))
+			(switch (= state newState)
+				(0
+					(global1 handsOff: 1)
+					(gKQEgo setMotion: 0)
+					(proc11_3 gKQEgo badger 0)
+					(stork setCycle: CT 11 1 self)
+					(hippo setCycle: CT 9 1 self)
+				)
+				(1 0)
+				(2
+					(badger setCycle: CT 12 1 self)
+				)
+				(3
+					(guardTalker clientCel: -2 client: badger)
+					(gKqMessager say: 0 0 15 0 self)
+				)
+				(4
+					(badger setPri: 110 setCycle: End self)
+				)
+				(5
+					(stork setCycle: End self)
+					(hippo setCycle: End self)
+				)
+				(6 0)
+				(7
+					(stork dispose:)
+					(hippo view: -12406 setLoop: 0 cel: 0 setCycle: End self)
+				)
+				(8
+					(hippo dispose:)
+					(badger setCycle: CT 15 -1 self)
+				)
+				(9
+					(badger
+						view: 5305
+						setLoop: 3
+						posn: 217 93
+						cel: 0
+						setPri: 82
+						setCycle: End self
+					)
+				)
+				(10
+					(badger dispose:)
+					(townHallDoor setCycle: Beg self)
+				)
+				(11
+					(gKqSound1 number: 802 loop: 1 play:)
+					(global1 handsOn:)
+					(self dispose:)
+				)
+			)
+		else
+			(proc11_2 539)
+			(gKqSound1 stop:)
+			(badger dispose:)
+			(hippo dispose:)
+			(stork dispose:)
+			(townHallDoor cel: 0)
+			(UpdateScreenItem townHallDoor)
+			(global1 handsOn:)
+			(self dispose:)
+		)
 	)
 )

-(instance glintScript of Script
+(instance rosellaFirstEnter of Script
 	(properties)

-	(method (init)
-		(glint2 init: hide:)
-		(glint3 init: hide:)
-		(super init: &rest)
-	)
-
 	(method (changeState newState)
 		(switch (= state newState)
 			(0
-				(glint1 show: cel: 0 setCycle: End self)
+				(global1 handsOff:)
+				(Load rsSOUND 5307)
+				(Load rsSOUND 5308)
+				(Load rsCDAUDIO 5408)
+				(townHallDoor cel: 4 setPri: 80)
+				(archDukeSound number: 5307 loop: -1 play:)
+				(archDuke
+					view: 5341
+					loop: 0
+					cel: 0
+					x: 229
+					y: 105
+					cycleSpeed: 10
+					init:
+					setCycle: Fwd
+				)
+				(self setScript: (ScriptID 5300 8) self)
 			)
 			(1
-				(glint1 hide:)
-				(glint2 show: cel: 0 setCycle: End self)
+				(gKQEgo setMotion: PolyPath 170 111 self)
 			)
 			(2
-				(glint2 hide:)
-				(= state -1)
-				(glint3 show: cel: 0 setCycle: End self)
+				(archDukeSound number: 5308 loop: 1 play:)
+				(archDuke cel: 0 setCycle: End self)
+			)
+			(3
+				(archDuke loop: 1 cel: 0 x: 233 y: 105 setCycle: End self)
+			)
+			(4
+				(archDuke loop: 2 cel: 0 x: 233 y: 105 setCycle: End self)
+			)
+			(5
+				(archDukeSound fade: 0 50 20 1)
+				(archTalker clientCel: -2 loop: 3)
+				(gKqMessager sayRange: 0 0 35 1 3 self)
+			)
+			(6
+				(archDukeSound number: 5307 loop: -1 play:)
+				(archDuke
+					view: 5341
+					loop: 0
+					cel: 0
+					x: 229
+					y: 105
+					setCycle: Fwd
+				)
+				(= seconds 3)
+			)
+			(7
+				(archDukeSound number: 5308 loop: 1 play: fade: 0 50 20 1)
+				(archDuke
+					view: 5342
+					loop: 0
+					cel: 0
+					x: 233
+					y: 103
+					setCycle: End self
+				)
+			)
+			(8
+				(gKqSound1 number: 5408 loop: 1 play: self)
+				(archDuke view: 5342 loop: 1 cel: 0 x: 233 y: 103)
+				(UpdateScreenItem archDuke)
+				(FrameOut)
+			)
+			(9
+				(archTalker hide_mouth: 1 clientCel: -2)
+				(gKqMessager say: 0 0 35 4 self)
+			)
+			(10
+				(gKqMusic1 loop: -1 play: setVol: 0 fade: 127 25 10 0)
+				(archDuke
+					view: 5334
+					setLoop: 3 1
+					cel: 0
+					x: 234
+					y: 100
+					setPri: 82
+					setCycle: Walk
+					setMotion: MoveTo 177 75 self
+				)
+			)
+			(11
+				(archDuke dispose:)
+				(townHallDoor setCycle: Beg self)
+			)
+			(12
+				(gKqSound1 number: 802 loop: 1 play:)
+				(if (not (proc11_1 167))
+					((ScriptID 13 0) hide_mouth: 1)
+					(gKqMessager say: 0 0 36 0 self)
+				else
+					(self cue:)
+				)
+			)
+			(13
+				((ScriptID 13 0) hide_mouth: 0)
+				(if (gKQEgo scratch?)
+					(gKQEgo addRespondVerb: 51)
+				else
+					(gKQEgo setHotspot: 0 51)
+				)
+				(global1 handsOn:)
+				(self dispose:)
 			)
 		)
 	)
 )

-(instance archTalker of KQTalker
-	(properties
-		clientCel -1
-	)
-
-	(method (init)
-		(= client archDuke)
-		(super init: &rest)
-	)
-)
-
-(instance bull of Prop
-	(properties
-		x 108
-		y 78
-		priority 92
-		fixPriority 1
-		view 5337
-		loop 1
-	)
-)
-
-(instance bullTalker of KQTalker
-	(properties)
-
-	(method (init)
-		(= client bull)
-		(super init: &rest)
-	)
-)
-
-(instance fauxOwnerTalker of KQTalker
-	(properties)
-
-	(method (init)
-		(= client fauxDoor)
-		(= mouth_y (* (client z?) -1))
-		(super init: &rest)
-	)
-)
-
-(instance mockingBirdTalker of KQTalker
+(instance snakeChickenCartoon of Script
 	(properties)

 	(method (init)
-		(= client mockingBird)
-		(= loop 2)
-		(= mouth_y (* (client z?) -1))
-		(super init: &rest)
-	)
-)
-
-(instance guardTalker of KQTalker
-	(properties
-		clientCel -1
-	)
-
-	(method (init)
-		(if (not client) (= client badger))
+		(proc11_2 539)
 		(super init: &rest)
 	)
-)
-
-(instance snakeTalker of KQTalker
-	(properties)

-	(method (init)
-		(if (!= client gKQEgo) (= client snakeSalesman))
-		(super init: &rest)
-	)
-)
-
-(instance chickenTalker of KQTalker
-	(properties
-		hide_mouth 1
+	(method (dispose)
+		(proc11_2 539)
+		(super dispose:)
 	)

-	(method (init)
-		(= client chickenPetite)
-		(super init: &rest)
+	(method (changeState newState)
+		(if (not (proc11_0 539))
+			(switch (= state newState)
+				(0
+					(global1 handsOff: 1)
+					(Load rsVIEW 5323)
+					(Load rsVIEW 5325)
+					(chickenPetite
+						view: 5323
+						loop: 0
+						cel: 0
+						x: 520
+						y: 108
+						init:
+					)
+					(chickenTalker hide_mouth: 0 clientCel: -2 modeless: 2)
+					(gKqMessager say: 0 0 21 1 self)
+				)
+				(1
+					(snakeSalesman
+						view: 5323
+						loop: 1
+						cel: 0
+						posn: 529 92
+						setCycle: End self
+					)
+				)
+				(2
+					(gKqMessager say: 0 0 21 2 self)
+				)
+				(3
+					(snakeSalesman
+						view: 5323
+						loop: 2
+						cel: 0
+						posn: 534 95
+						setCycle: End self
+					)
+				)
+				(4
+					(gKqMessager sayRange: 0 0 21 3 4 self)
+				)
+				(5
+					(snakeSalesman
+						view: 5323
+						loop: 3
+						cel: 0
+						posn: 543 90
+						setCycle: End self
+					)
+				)
+				(6
+					(gKqMessager say: 0 0 21 5 self)
+				)
+				(7
+					(chickenPetite setCycle: End self)
+				)
+				(8
+					(chickenPetite dispose:)
+					(snakeSalesman
+						view: 5325
+						loop: 0
+						cel: 4
+						posn: 491 128
+						setCycle: End self
+					)
+				)
+				(9
+					(snakeSalesman setScript: (ScriptID 5302 0))
+					(gKQEgo setHeading: 180 self)
+				)
+				(10
+					(global1 handsOn:)
+					(self dispose:)
+				)
+			)
+		else
+			(chickenPetite dispose:)
+			(if (not (snakeSalesman script?))
+				(snakeSalesman setScript: (ScriptID 5302 0))
+			)
+			(gKQEgo normalize: 2)
+			(global1 handsOn:)
+			(self dispose:)
+		)
 	)
 )

-(instance chinaBirdTalker of KQTalker
+(instance getTheMoon of Script
 	(properties)

-	(method (init)
-		(= client chinaBird)
-		(super init: &rest)
+	(method (changeState newState)
+		(switch (= state newState)
+			(0
+				(global1 handsOff:)
+				(Load rsVIEW 5319)
+				(guardTalker client: archDuke view: 5319 loop: 28)
+				(global2 centerScreen: -318 self 10)
+			)
+			(1
+				(moon setScript: 0 cel: 9 setCycle: End)
+				(gKQEgo
+					view: 5322
+					loop: 0
+					cel: 0
+					x: 463
+					y: 101
+					setPri: 109
+					setScale: 0
+					setCycle: CT 9 1 self
+				)
+			)
+			(2
+				(gKqSound1 number: 836 loop: -1 play:)
+				(gKQEgo cel: 10 setCycle: End self)
+			)
+			(3
+				(gKQEgo view: 5322 loop: 1 cel: 0 setCycle: End self)
+			)
+			(4
+				(gKQEgo view: 5322 loop: 2 cel: 0 setCycle: CT 5 1 self)
+			)
+			(5
+				(gKqSound1 stop:)
+				(gKQEgo setCycle: End self)
+			)
+			(6
+				(gKQEgo view: 5318 loop: 3 cel: 0 setCycle: CT 3 1 self)
+			)
+			(7
+				(gKqSound1 number: 836 loop: -1 play:)
+				(gKQEgo cel: 4 setCycle: End self)
+			)
+			(8
+				(self setScript: (ScriptID 5300 80))
+				(gKQEgo view: 5324 loop: 0 cel: 0 setCycle: CT 4 1 self)
+			)
+			(9
+				(gKqSound1 stop:)
+				(gKQEgo setCycle: CT 15 1 self)
+			)
+			(10
+				(gKQEgo setCycle: End crook)
+				(= global378 1)
+				(gKqMusic1 number: 5315 loop: 1 play:)
+				(gateGuard
+					view: 5328
+					setLoop: 2 1
+					cel: 0
+					init:
+					posn: 290 113
+					setCycle: Walk
+					setSpeed: 4
+					setMotion: MoveTo 420 118 hippo
+				)
+				(archDuke
+					view: 5320
+					loop: 0
+					cel: 0
+					x: 469
+					y: 136
+					setPri: 90
+					cycleSpeed: 6
+					init:
+					setScale: 0
+					setCycle: CT 29 1 self
+				)
+			)
+			(11
+				(archDuke setPri: 100 setCycle: End self)
+			)
+			(12
+				(gKQEgo dispose:)
+				(archDuke view: 5319 loop: 7 cel: 0 setCycle: End self)
+			)
+			(13
+				(if (gateGuard mover?) (-- state))
+				(= cycles 3)
+			)
+			(14
+				(gKqMessager sayRange: 0 0 18 1 2 self)
+			)
+			(15
+				(guardTalker
+					client: gateGuard
+					view: -1
+					loop: 1
+					hide_mouth: 0
+				)
+				(gKqMessager sayRange: 0 0 18 3 4 self)
+			)
+			(16
+				(= global378 1)
+				(gKqMusic1 number: 5316 loop: 1 play: self)
+			)
+			(17
+				(gKQEgo get: 48)
+				(proc11_1 126)
+				(global2 newRoom: 35)
+			)
+		)
 	)
 )

-(instance roomFeatureInitCode of Code
+(instance crookFalls of Script
 	(properties)

-	(method (doit param1)
-		(if
-			(and
-				(not (param1 isKindOf: KQInventory))
-				(param1 respondsTo: #signal)
+	(method (changeState newState)
+		(switch (= state newState)
+			(0
+				(crook
+					view: 5318
+					loop: 4
+					cel: 0
+					x: 425
+					y: 93
+					setPri: 140
+					init:
+					setCycle: End self
+				)
 			)
-			(param1
-				sightAngle: 10
-				signal: (| (param1 signal?) $7001)
+			(1
+				(gKQEgo put: 39)
+				(crook dispose:)
+				(self dispose:)
 			)
 		)
 	)
 )

-(instance iSign of Inset
-	(properties
-		picture 5303
-		priority 200
-	)
-
-	(method (init)
-		(= x (Abs ((global2 plane?) left:)))
-		(super init: &rest)
-		(proc11_6)
-	)
-)
-
-(instance tryToGetMoon of Script
+(instance talkToChickenAboutMoon of Script
 	(properties)

-	(method (changeState newState)
+	(method (changeState newState &tmp temp0)
 		(switch (= state newState)
 			(0
 				(global1 handsOff:)
-				(gKQEgo view: 8075 setLoop: 1 1 cel: 0 setCycle: End self)
+				(gKqMessager say: 4 8 17 1 self)
 			)
 			(1
-				((ScriptID 13 0) hide_mouth: 1)
-				(gKqMessager say: 12 8 18 2 self 1100)
+				(chickenPetite view: 5311 setLoop: 6 cel: 0 posn: 424 82)
+				(UpdateScreenItem chickenPetite)
+				(FrameOut)
+				(chickenTalker hide_mouth: 0 modeless: 2)
+				(= cycles 1)
+			)
+			(2
+				(gKqMessager say: 4 8 17 2 self)
 			)
-			(2 (gKQEgo setCycle: Beg self))
 			(3
-				(gKQEgo view: 8295 setLoop: 1 1 cel: 0 setCycle: End self)
+				(chickenTalker hide_mouth: 1 modeless: 2 loop: -1)
+				(chickenPetite setCycle: CT 3 1 self)
 			)
 			(4
-				((ScriptID 13 0) hide_mouth: 1)
-				(gKqMessager say: 1 8 3 0 self 1250)
+				(chickenPetite setLoop: 2 1 cel: 4 setCycle: Beg self)
 			)
 			(5
-				((ScriptID 13 0) hide_mouth: 0)
-				(gKQEgo setCycle: Beg self)
+				(gKqMessager say: 4 8 17 3 self)
 			)
 			(6
-				(gKQEgo normalize: 7)
+				(gKqSound1 number: 5311 loop: 1 play:)
+				(chickenPetite
+					setCycle: ROsc -1 0 2
+					moveSpeed: 8
+					setMotion: MoveTo 452 64 self
+				)
+			)
+			(7
+				(chickenPetite setCycle: End self)
+			)
+			(8
+				(gKQEgo hide:)
+				(chickenPetite
+					setLoop: 3
+					cel: 0
+					setPri: -1
+					posn: 459 100
+					setCycle: Fwd
+				)
+				(gKqMessager say: 4 8 17 4 self)
+			)
+			(9
+				(chickenPetite setCycle: End self)
+			)
+			(10
+				(chickenPetite
+					setLoop: 4
+					cel: 0
+					posn: 451 93
+					setCycle: End self
+				)
+			)
+			(11
+				(gKQEgo show:)
+				(= temp0 (- (Abs (gNewPlane_2 left:)) 10))
+				(chickenPetite
+					setLoop: 0 1
+					setCel: 0
+					setCycle: Walk
+					ignoreActors: 1
+					setMotion: PolyPath temp0 (chickenPetite y?) self
+				)
+				(gKqMessager say: 4 8 17 5 self)
+			)
+			(12
+				(gKQEgo
+					normalize: 1
+					posn: (chickenPetite approachX?) (chickenPetite approachY?)
+					setHeading: 180 self
+				)
+			)
+			(13 0)
+			(14
+				(proc5300_4)
 				(global1 handsOn:)
 				(self dispose:)
 			)