diff --git a/Script/Script60089.txt b/Script/Script60089.txt
new file mode 100644
index 0000000..a5fa983
--- /dev/null
+++ b/Script/Script60089.txt
@@ -0,0 +1,152 @@
+ScaleTo::init:
+		lap	param[$0]
+		bnt	code_0080
+		lap	param[$1]
+		aTop	client
+		lsp	param[$0]
+		ldi	$2
+		ge?
+		bnt	code_0080
+		lap	param[$2]
+		aTop	endScale
+		lsp	param[$0]
+		ldi	$3		; z
+		ge?
+		bnt	code_0080
+		lap	param[$3]
+		aTop	step
+		lsp	param[$0]
+		ldi	$4		; scaleX
+		ge?
+		bnt	code_0080
+		lap	param[$4]
+		aTop	waitCount
+		lsp	param[$0]
+		ldi	$5		; scaleY
+		ge?
+		bnt	code_0080
+		lap	param[$5]
+		aTop	caller
+code_0080:	pToa	waitCount
+		aTop	saveWaitCount
+		pushi	$6		; maxScale
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pToa	endScale
+		le?
+		bnt	code_0094
+		ldi	$1
+code_0094:	aTop	scaleDir
+		ret
+
+ScaleTo::doit:
+		link	$1
+		lsg	global[$40]
+		pToa	waitCount
+		sub
+		push
+		ldi	$0
+		gt?
+		bnt	code_010c
+		pToa	scaleDir
+		bnt	code_00b6
+		pushi	$6		; maxScale
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pToa	step
+		add
+		jmp	code_00c2
+
+code_00b6:	pushi	$6		; maxScale
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pToa	step
+		sub
+code_00c2:	sat	temp[$0]
+		pushi	$6		; maxScale
+		push1
+		push
+		pushi	$4		; scaleX
+		push1
+		push
+		pushi	$5		; scaleY
+		push1
+		push
+		pToa	client
+		send	$12
+		bnot
+		pToa	scaleDir
+		bnt	code_00f0
+		pushi	$6		; maxScale
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pToa	endScale
+		ge?
+		bnt	code_0105
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_0105
+
+code_00f0:	pushi	$6		; maxScale
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pToa	endScale
+		le?
+		bnt	code_0105
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_0105:	pTos	saveWaitCount
+		lag	global[$40]
+		add
+		aTop	waitCount
+code_010c:	ret
+
+ScaleTo::dispose:
+		link	$1
+		ldi	$0
+		aTop	endScale
+		ldi	$6		; maxScale
+		aTop	step
+		ldi	$1
+		aTop	waitCount
+		pushi	$144		; 324, scaler
+		push1
+		push0
+		pToa	client
+		send	$6
+		bnot
+		pToa	caller
+		bnt	code_0138
+		sat	temp[$0]
+		ldi	$0
+		aTop	caller
+		pushi	$c7		; 199, cue
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_0138:	pushi	$95		; 149, dispose
+		push0
+		super	Scaler, $4
+		bnot
+		ret
+
diff --git a/Script/Script60090.txt b/Script/Script60090.txt
new file mode 100644
index 0000000..1025146
--- /dev/null
+++ b/Script/Script60090.txt
@@ -0,0 +1,706 @@
+MessagerDialog::init:
+		link	$3
+		pushi	$94		; 148, init
+		push0
+		super	FancyDialog, $4
+		bnot
+		lap	param[$1]
+		aTop	pMessager
+		pushi	$17d		; 381, addItem
+		pushi	$5		; scaleY
+		class	TextItem
+		push
+		pushi	$23		; 35, '#', text
+		lsp	param[$2]
+		pushi	$25		; 37, '%', fore
+		dup
+		push0
+		pToa	plane
+		send	$4
+		bnot
+		push
+		self	$e
+		bnot
+		sat	temp[$0]
+		pushi	$249		; 585, posnItem
+		pushi	$3		; z
+		push
+		pushi	$fd		; 253, strip
+		pToa	margin
+		add
+		push
+		pushi	$fd		; 253, strip
+		pToa	margin
+		add
+		push
+		pushi	$1be		; 446, setSize
+		push0
+		self	$e
+		bnot
+		pushi	$17d		; 381, addItem
+		pushi	$5		; scaleY
+		lsg	global[$9]
+		pushi	$23		; 35, '#', text
+		lofsa	string_0076	; "Okay"
+		push
+		pushi	$25		; 37, '%', fore
+		lsg	global[$61]
+		self	$e
+		bnot
+		sat	temp[$2]
+		pushi	$249		; 585, posnItem
+		pushi	$3		; z
+		push
+		pushi	$fd		; 253, strip
+		pToa	margin
+		add
+		push
+		pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		ldi	$5		; scaleY
+		add
+		push
+		pushi	$1be		; 446, setSize
+		push0
+		pushi	$e3		; 227, expand
+		push2
+		pTos	margin
+		pTos	margin
+		self	$16
+		bnot
+		lap	param[$3]
+		bnt	code_0148
+		lap	param[$4]
+		bnt	code_0148
+		pushi	$dc		; 220, posn
+		push2
+		lsp	param[$3]
+		lsp	param[$4]
+		pToa	plane
+		send	$8
+		bnot
+		jmp	code_0159
+
+code_0148:	pushi	$de		; 222, centerIn
+		push1
+		push0
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		push
+		pToa	plane
+		send	$6
+		bnot
+code_0159:	pushi	$248		; 584, open
+		push0
+		self	$4
+		bnot
+		ret
+
+MessagerDialog::handleEvent:
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		bnt	code_0170
+		ldi	$0
+		ret
+
+		jmp	code_01cf
+
+code_0170:	pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_0180
+		ldi	$0
+		ret
+
+		jmp	code_01cf
+
+code_0180:	pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		and
+		not
+		bnt	code_019d
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		ldi	$0
+		ret
+
+		jmp	code_01cf
+
+code_019d:	pushi	$48		; 72, 'H', modifiers
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$3		; z
+		and
+		bnt	code_01c3
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$282		; 642, killed
+		push1
+		push1
+		pToa	pMessager
+		send	$6
+		bnot
+		ldi	$1
+		ret
+
+		jmp	code_01cf
+
+code_01c3:	pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		ldi	$1
+		ret
+
+code_01cf:	ret
+
+MessagerDialog::process:
+		link	$1
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		sat	temp[$0]
+		bnt	code_01e6
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_01e6:	lat	temp[$0]
+		ret
+
+MessagerDialog::dispose:
+		pushi	$c7		; 199, cue
+		push0
+		pToa	pMessager
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		super	FancyDialog, $4
+		bnot
+		ret
+
+Messager::getSeqSize:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+code_0201:	pushi	$6		; maxScale
+		push0
+		lsp	param[$4]
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		+at	temp[$0]
+		push
+		callk	kernel_72, $c
+		bnot
+		bnt	code_0217
+		jmp	code_0201
+
+code_0217:	-at	temp[$0]
+		ret
+
+Messager::dispose:
+		ldi	$0
+		aTop	pLastSequence
+		pToa	caller
+		bnt	code_0253
+		pushi	$9f		; 159, add
+		push1
+		pushi	$cb		; 203, cuee
+		push1
+		push
+		pushi	$cc		; 204, cuer
+		push1
+		pushSelf
+		pushi	$c2		; 194, register
+		push1
+		pTos	killed
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Cue
+		send	$4
+		bnot
+		send	$16
+		bnot
+		push
+		pushi	$ca		; 202, pCuees
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$6
+		bnot
+code_0253:	pushi	$95		; 149, dispose
+		push0
+		super	Obj, $4
+		bnot
+		ret
+
+Messager::cue:
+		lap	param[$0]
+		bnt	code_0268
+		lap	param[$1]
+		bnt	code_0268
+		ldi	$1
+		aTop	killed
+code_0268:	pToa	oneOnly
+		bt	code_026e
+		pToa	killed
+code_026e:	bnt	code_0279
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_0280
+
+code_0279:	pushi	$288		; 648, nextMsg
+		push0
+		self	$4
+		bnot
+code_0280:	ret
+
+Messager::say:
+		link	$6
+		ldi	$0
+		sat	temp[$5]
+		sat	temp[$4]
+		sat	temp[$3]
+		aTop	caller
+		aTop	pCurSequence
+		sat	temp[$2]
+		sat	temp[$1]
+		sat	temp[$0]
+		ldi	$0
+		aTop	killed
+		aTop	oneOnly
+		lapi	param[$1]
+		sat	temp[$0]
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_02ac
+		ldi	$1
+		lapi	param[$1]
+		sat	temp[$1]
+code_02ac:	lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_02b9
+		ldi	$2
+		lapi	param[$1]
+		sat	temp[$2]
+code_02b9:	lsp	param[$0]
+		ldi	$3		; z
+		gt?
+		bnt	code_02d2
+		ldi	$3		; z
+		lapi	param[$1]
+		bnt	code_02d2
+		ldi	$1
+		aTop	oneOnly
+		ldi	$3		; z
+		lapi	param[$1]
+		aTop	pCurSequence
+		jmp	code_02d6
+
+code_02d2:	ldi	$1
+		aTop	pCurSequence
+code_02d6:	lsp	param[$0]
+		ldi	$4		; scaleX
+		gt?
+		bnt	code_02e3
+		ldi	$4		; scaleX
+		lapi	param[$1]
+		aTop	caller
+code_02e3:	lsp	param[$0]
+		ldi	$5		; scaleY
+		gt?
+		bnt	code_02f2
+		ldi	$5		; scaleY
+		lapi	param[$1]
+		sat	temp[$3]
+		jmp	code_02f6
+
+code_02f2:	lag	global[$34]
+		sat	temp[$3]
+code_02f6:	lsp	param[$0]
+		ldi	$6		; maxScale
+		gt?
+		bnt	code_0326
+		ldi	$1
+		aTop	oneOnly
+		lsp	param[$0]
+		ldi	$7		; priority
+		gt?
+		bnt	code_030c
+		ldi	$0
+		aTop	oneOnly
+code_030c:	push2
+		push1
+		pushi	$419		; 1049, getSeqSize
+		pushi	$4		; scaleX
+		lst	temp[$0]
+		lst	temp[$1]
+		lst	temp[$2]
+		lst	temp[$3]
+		self	$c
+		bnot
+		push
+		callk	kernel_60, $4
+		bnot
+		aTop	pCurSequence
+code_0326:	pushi	$6		; maxScale
+		push0
+		lst	temp[$3]
+		lst	temp[$0]
+		lst	temp[$1]
+		lst	temp[$2]
+		pTos	pCurSequence
+		callk	kernel_72, $c
+		bnot
+		not
+		bnt	code_0366
+		pushi	$6		; maxScale
+		lofsa	string_008a	; "<Messager>\n"
+		push
+		lst	temp[$3]
+		lst	temp[$0]
+		lst	temp[$1]
+		lst	temp[$2]
+		pTos	pCurSequence
+		calle	export60029_1, $c
+		bnot
+		ldi	$ea74		; -5516
+		sat	temp[$3]
+		ldi	$c		; 12, inBottom
+		sat	temp[$0]
+		ldi	$0
+		sat	temp[$2]
+		sat	temp[$1]
+		ldi	$1
+		aTop	pCurSequence
+		jmp	code_0379
+
+code_0366:	pushi	$288		; 648, nextMsg
+		pushi	$5		; scaleY
+		lst	temp[$3]
+		lst	temp[$0]
+		lst	temp[$1]
+		lst	temp[$2]
+		pTos	pCurSequence
+		self	$e
+		bnot
+code_0379:	ret
+
+Messager::sayRange:
+		link	$4
+		ldi	$0
+		sat	temp[$3]
+		aTop	caller
+		aTop	pCurSequence
+		sat	temp[$2]
+		sat	temp[$1]
+		sat	temp[$0]
+		ldi	$0
+		aTop	killed
+		aTop	oneOnly
+		lapi	param[$1]
+		sat	temp[$0]
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_03a1
+		ldi	$1
+		lapi	param[$1]
+		sat	temp[$1]
+code_03a1:	lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_03ae
+		ldi	$2
+		lapi	param[$1]
+		sat	temp[$2]
+code_03ae:	ldi	$1
+		aTop	oneOnly
+		lsp	param[$0]
+		ldi	$3		; z
+		gt?
+		bnt	code_03c7
+		ldi	$3		; z
+		lapi	param[$1]
+		bnt	code_03c7
+		ldi	$3		; z
+		lapi	param[$1]
+		aTop	pCurSequence
+		jmp	code_03cb
+
+code_03c7:	ldi	$1
+		aTop	pCurSequence
+code_03cb:	lsp	param[$0]
+		ldi	$4		; scaleX
+		gt?
+		bnt	code_03e4
+		ldi	$4		; scaleX
+		lapi	param[$1]
+		bnt	code_03e4
+		ldi	$0
+		aTop	oneOnly
+		ldi	$4		; scaleX
+		lapi	param[$1]
+		aTop	pLastSequence
+		jmp	code_03e8
+
+code_03e4:	pToa	pCurSequence
+		aTop	pLastSequence
+code_03e8:	lsp	param[$0]
+		ldi	$5		; scaleY
+		gt?
+		bnt	code_03f5
+		ldi	$5		; scaleY
+		lapi	param[$1]
+		aTop	caller
+code_03f5:	lsp	param[$0]
+		ldi	$6		; maxScale
+		gt?
+		bnt	code_0404
+		ldi	$6		; maxScale
+		lapi	param[$1]
+		sat	temp[$3]
+		jmp	code_0408
+
+code_0404:	lag	global[$34]
+		sat	temp[$3]
+code_0408:	pushi	$6		; maxScale
+		push0
+		lst	temp[$3]
+		lst	temp[$0]
+		lst	temp[$1]
+		lst	temp[$2]
+		pTos	pCurSequence
+		callk	kernel_72, $c
+		bnot
+		not
+		bnt	code_0448
+		pushi	$6		; maxScale
+		lofsa	string_008a	; "<Messager>\n"
+		push
+		lst	temp[$3]
+		lst	temp[$0]
+		lst	temp[$1]
+		lst	temp[$2]
+		pTos	pCurSequence
+		calle	export60029_1, $c
+		bnot
+		ldi	$ea74		; -5516
+		sat	temp[$3]
+		ldi	$c		; 12, inBottom
+		sat	temp[$0]
+		ldi	$0
+		sat	temp[$2]
+		sat	temp[$1]
+		ldi	$1
+		aTop	pCurSequence
+		jmp	code_045b
+
+code_0448:	pushi	$288		; 648, nextMsg
+		pushi	$5		; scaleY
+		lst	temp[$3]
+		lst	temp[$0]
+		lst	temp[$1]
+		lst	temp[$2]
+		pTos	pCurSequence
+		self	$e
+		bnot
+code_045b:	ret
+
+Messager::sayNext:
+		ldi	$0
+		aTop	killed
+		aTop	oneOnly
+		aTop	caller
+		lap	param[$0]
+		bnt	code_046c
+		lap	param[$1]
+		aTop	caller
+code_046c:	pushi	$288		; 648, nextMsg
+		push0
+		self	$4
+		bnot
+		ret
+
+Messager::sayFormat:
+		link	$2
+		lap	param[$6]
+		aTop	caller
+		ldi	$1
+		aTop	oneOnly
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		sat	temp[$0]
+		pushi	$7		; priority
+		push0
+		lsp	param[$5]
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		lsp	param[$4]
+		pushi	$71		; 113, 'q', data
+		push0
+		send	$4
+		bnot
+		push
+		callk	kernel_72, $e
+		bnot
+		pushi	$f5		; 245, format
+		push1
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		&rest	$7		; priority
+		lat	temp[$0]
+		send	$6
+		bnot
+		lap	param[$6]
+		bnt	code_04d1
+		pushi	$6		; maxScale
+		lst	temp[$0]
+		pushi	$91		; 145, bitPutIndex
+		push2
+		pushi	$93		; 147, pLine
+		push
+		pushi	$c7		; 199, cue
+		calle	export60029_0, $c
+		bnot
+		jmp	code_04e0
+
+code_04d1:	pushi	$3		; z
+		lst	temp[$0]
+		pushi	$91		; 145, bitPutIndex
+		push2
+		calle	export60029_0, $6
+		bnot
+code_04e0:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		ret
+
+Messager::nextMsg:
+		link	$5
+		pushi	$d1		; 209, newWith
+		push2
+		pushi	$190		; 400, createPoly
+		lofsa	string_00c8	; ""
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$1]
+		lap	param[$0]
+		bnt	code_0520
+		pushi	$7		; priority
+		push0
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		lsp	param[$4]
+		lsp	param[$5]
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		callk	kernel_72, $e
+		bnot
+		sat	temp[$0]
+		jmp	code_0531
+
+code_0520:	push2
+		push1
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		callk	kernel_72, $4
+		bnot
+		sat	temp[$0]
+code_0531:	lat	temp[$0]
+		bnt	code_055b
+		pToa	pLastSequence
+		not
+		bt	code_0541
+		pToa	pLastSequence
+		bnt	code_055b
+		pTos	pCurSequence
+		le?
+code_0541:	bnt	code_055b
+		pushi	$94		; 148, init
+		push2
+		pushSelf
+		lst	temp[$1]
+		pushi	$8d		; 141, new
+		push0
+		class	MessagerDialog
+		send	$4
+		bnot
+		sat	temp[$3]
+		send	$8
+		bnot
+		jmp	code_056b
+
+code_055b:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_056b:	ret
+
diff --git a/Script/Script60091.txt b/Script/Script60091.txt
new file mode 100644
index 0000000..9f31219
--- /dev/null
+++ b/Script/Script60091.txt
@@ -0,0 +1,32 @@
+Sync::syncStart:
+		ret
+
+Sync::syncCheck:
+		ret
+
+Sync::syncStop:
+		ret
+
+ScriptSync::init:
+		ret
+
+ScriptSync::doit:
+		link	$1
+		ret
+
+ScriptSync::cue:
+		ret
+
+MouthSync::init:
+		ret
+
+MouthSync::doit:
+		link	$4
+		ret
+
+MouthSync::dispose:
+		ret
+
+MouthSync::cue:
+		ret
+
diff --git a/Script/Script60092.txt b/Script/Script60092.txt
new file mode 100644
index 0000000..fec528e
--- /dev/null
+++ b/Script/Script60092.txt
@@ -0,0 +1,740 @@
+PackedData::new:
+		ldi	$0
+		aTop	bitGetIndex
+		aTop	bitPutIndex
+		aTop	putIndex
+		aTop	getIndex
+		pushi	$8d		; 141, new
+		push0
+		&rest	$1
+		super	ByteArray, $4
+		bnot
+		ret
+
+PackedData::dispose:
+		ldi	$0
+		aTop	bitGetIndex
+		aTop	bitPutIndex
+		aTop	putIndex
+		aTop	getIndex
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	ByteArray, $4
+		bnot
+		ret
+
+PackedData::getByte:
+		push2
+		push2
+		pushSelf
+		callk	kernel_156, $4
+		bnot
+		ret
+
+PackedData::getWord:
+		push2
+		pushi	$4		; scaleX
+		pushSelf
+		callk	kernel_156, $4
+		bnot
+		ret
+
+PackedData::getLong:
+		link	$4
+		lap	param[$0]
+		bnt	code_00c1
+		lap	param[$1]
+		sat	temp[$1]
+		not
+		bnt	code_00cc
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$1]
+		jmp	code_00cc
+
+code_00c1:	pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$1]
+code_00cc:	pushi	$3		; z
+		pushi	$6		; maxScale
+		pushSelf
+		lst	temp[$1]
+		callk	kernel_156, $6
+		bnot
+		lat	temp[$1]
+		ret
+
+PackedData::getArray:
+		link	$4
+		pushi	$136		; 310, getLong
+		push0
+		self	$4
+		bnot
+		sat	temp[$1]
+		pushi	$129		; 297, less
+		push1
+		push0
+		send	$6
+		bnot
+		bt	code_00f4
+		pTos	getIndex
+		ldi	$0
+		lt?
+code_00f4:	bnt	code_0102
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		ldi	$0
+		ret
+
+code_0102:	pushi	$136		; 310, getLong
+		push0
+		self	$4
+		bnot
+		sat	temp[$2]
+		lap	param[$0]
+		bnt	code_012e
+		pushi	$127		; 295, equal
+		push1
+		lsp	param[$1]
+		lat	temp[$2]
+		send	$6
+		bnot
+		not
+		bnt	code_012e
+		pushi	$3		; z
+		lofsa	string_002c	; "Error in PackData getArray: got type=%d, wanted type=%d"
+		push
+		lst	temp[$2]
+		lsp	param[$1]
+		calle	export60029_1, $6
+		bnot
+code_012e:	pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_0153
+		pushi	$8d		; 141, new
+		push1
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		class	IntArray
+		send	$6
+		bnot
+		jmp	code_01b7
+
+code_0153:	dup
+		ldi	$1
+		eq?
+		bnt	code_016e
+		pushi	$8d		; 141, new
+		push1
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		class	IDArray
+		send	$6
+		bnot
+		jmp	code_01b7
+
+code_016e:	dup
+		ldi	$2
+		eq?
+		bnt	code_0189
+		pushi	$8d		; 141, new
+		push1
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		class	ByteArray
+		send	$6
+		bnot
+		jmp	code_01b7
+
+code_0189:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_01a4
+		pushi	$8d		; 141, new
+		push1
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$6
+		bnot
+		jmp	code_01b7
+
+code_01a4:	pushi	$8d		; 141, new
+		push1
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		class	PackedData
+		send	$6
+		bnot
+code_01b7:	toss
+		sat	temp[$0]
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_01f5
+		ldi	$0
+		sat	temp[$3]
+code_01ce:	pushi	$12d		; 301, greater
+		push1
+		lst	temp[$3]
+		lat	temp[$1]
+		send	$6
+		bnot
+		bnt	code_028e
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$3]
+		pushi	$135		; 309, getWord
+		push0
+		self	$4
+		bnot
+		push
+		lat	temp[$0]
+		send	$8
+		bnot
+		+at	temp[$3]
+		jmp	code_01ce
+
+		jmp	code_028e
+
+code_01f5:	dup
+		ldi	$1
+		eq?
+		bnt	code_0225
+		ldi	$0
+		sat	temp[$3]
+code_01ff:	pushi	$12d		; 301, greater
+		push1
+		lst	temp[$3]
+		lat	temp[$1]
+		send	$6
+		bnot
+		bnt	code_028e
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$3]
+		pushi	$135		; 309, getWord
+		push0
+		self	$4
+		bnot
+		push
+		lat	temp[$0]
+		send	$8
+		bnot
+		+at	temp[$3]
+		jmp	code_01ff
+
+		jmp	code_028e
+
+code_0225:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_0267
+		ldi	$0
+		sat	temp[$3]
+code_022f:	pushi	$12d		; 301, greater
+		push1
+		lst	temp[$3]
+		lat	temp[$1]
+		send	$6
+		bnot
+		bnt	code_0252
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$3]
+		pushi	$134		; 308, getByte
+		push0
+		self	$4
+		bnot
+		push
+		lat	temp[$0]
+		send	$8
+		bnot
+		+at	temp[$3]
+		jmp	code_022f
+
+code_0252:	pushi	$4b		; 75, 'K', at
+		push2
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		push0
+		lat	temp[$0]
+		send	$8
+		bnot
+		jmp	code_028e
+
+code_0267:	pushi	$d2		; 210, copyToFrom
+		pushi	$4		; scaleX
+		push0
+		pushSelf
+		pTos	getIndex
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		lat	temp[$0]
+		send	$c
+		bnot
+		pTos	getIndex
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		add
+		aTop	getIndex
+code_028e:	toss
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		lat	temp[$0]
+		ret
+
+PackedData::getString:
+		link	$5
+		lap	param[$0]
+		bnt	code_02b0
+		lap	param[$1]
+		sat	temp[$0]
+		jmp	code_02b4
+
+code_02b0:	ldi	$0
+		sat	temp[$0]
+code_02b4:	push1
+		class	Str
+		push
+		callk	kernel_10, $2
+		bnot
+		sat	temp[$4]
+		pushi	$71		; 113, 'q', data
+		push1
+		pushi	$3		; z
+		pushi	$8		; fixPriority
+		pushSelf
+		lst	temp[$0]
+		callk	kernel_156, $6
+		bnot
+		push
+		lat	temp[$4]
+		send	$6
+		bnot
+		lat	temp[$4]
+		ret
+
+PackedData::putString:
+		link	$3
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_02e4
+		lap	param[$2]
+		sat	temp[$0]
+		jmp	code_02ee
+
+code_02e4:	pushi	$5a		; 90, 'Z', size
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$0]
+code_02ee:	ldi	$0
+		sat	temp[$2]
+		pushi	$13b		; 315, putWord
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+code_02fb:	lat	temp[$0]
+		bnt	code_0317
+		pushi	$13a		; 314, putByte
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$2]
+		lap	param[$1]
+		send	$6
+		bnot
+		push
+		self	$6
+		bnot
+		-at	temp[$0]
+		+at	temp[$2]
+		jmp	code_02fb
+
+code_0317:	ret
+
+PackedData::getBits:
+		link	$3
+		pushi	$3		; z
+		push0
+		pushSelf
+		lsp	param[$1]
+		callk	kernel_156, $6
+		bnot
+		ret
+
+PackedData::putByte:
+		link	$1
+		pTos	putIndex
+		ldi	$0
+		ge?
+		bnt	code_0349
+		ldi	$0
+		sat	temp[$0]
+code_0332:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_0349
+		pushi	$3		; z
+		dup
+		pushSelf
+		lat	temp[$0]
+		lspi	param[$1]
+		callk	kernel_156, $6
+		bnot
+		+at	temp[$0]
+		jmp	code_0332
+
+code_0349:	ret
+
+PackedData::putWord:
+		link	$1
+		pTos	putIndex
+		ldi	$0
+		ge?
+		bnt	code_036f
+		ldi	$0
+		sat	temp[$0]
+code_0357:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_036f
+		pushi	$3		; z
+		pushi	$5		; scaleY
+		pushSelf
+		lat	temp[$0]
+		lspi	param[$1]
+		callk	kernel_156, $6
+		bnot
+		+at	temp[$0]
+		jmp	code_0357
+
+code_036f:	ret
+
+PackedData::putLong:
+		link	$1
+		pTos	putIndex
+		ldi	$0
+		ge?
+		bnt	code_03aa
+		ldi	$0
+		sat	temp[$0]
+code_037d:	lst	temp[$0]
+		lap	param[$0]
+		lt?
+		bnt	code_03aa
+		lat	temp[$0]
+		lspi	param[$1]
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_0399
+		pushi	$13b		; 315, putWord
+		push2
+		pushi	$ff		; 255, asInteger
+		dup
+		self	$8
+		bnot
+		jmp	code_03a6
+
+code_0399:	pushi	$3		; z
+		pushi	$7		; priority
+		pushSelf
+		lat	temp[$0]
+		lspi	param[$1]
+		callk	kernel_156, $6
+		bnot
+code_03a6:	+at	temp[$0]
+		jmp	code_037d
+
+code_03aa:	ret
+
+PackedData::putArray:
+		link	$3
+		pushi	$8d		; 141, new
+		push1
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_03bc
+		lap	param[$2]
+		jmp	code_03c4
+
+code_03bc:	pushi	$5a		; 90, 'Z', size
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+code_03c4:	push
+		class	LongInt
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$129		; 297, less
+		push1
+		push0
+		send	$6
+		bnot
+		bt	code_03db
+		pTos	putIndex
+		ldi	$0
+		lt?
+code_03db:	bnt	code_03e9
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		ldi	$0
+		ret
+
+code_03e9:	pushi	$8d		; 141, new
+		push1
+		pushi	$97		; 151, isKindOf
+		push1
+		class	PackedData
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_0400
+		ldi	$ff		; 255, asInteger
+		jmp	code_0408
+
+code_0400:	pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+code_0408:	push
+		class	LongInt
+		send	$6
+		bnot
+		sat	temp[$1]
+		pushi	$13c		; 316, putLong
+		push1
+		lst	temp[$0]
+		pushi	$13c		; 316, putLong
+		push1
+		push
+		self	$c
+		bnot
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_0459
+		ldi	$0
+		sat	temp[$2]
+code_0432:	pushi	$12d		; 301, greater
+		push1
+		lst	temp[$2]
+		lat	temp[$0]
+		send	$6
+		bnot
+		bnt	code_04df
+		pushi	$13b		; 315, putWord
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$2]
+		lap	param[$1]
+		send	$6
+		bnot
+		push
+		self	$6
+		bnot
+		+at	temp[$2]
+		jmp	code_0432
+
+		jmp	code_04df
+
+code_0459:	dup
+		ldi	$1
+		eq?
+		bnt	code_048a
+		ldi	$0
+		sat	temp[$2]
+code_0463:	pushi	$12d		; 301, greater
+		push1
+		lst	temp[$2]
+		lat	temp[$0]
+		send	$6
+		bnot
+		bnt	code_04df
+		pushi	$13b		; 315, putWord
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$2]
+		lap	param[$1]
+		send	$6
+		bnot
+		push
+		self	$6
+		bnot
+		+at	temp[$2]
+		jmp	code_0463
+
+		jmp	code_04df
+
+code_048a:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_04b9
+		ldi	$0
+		sat	temp[$2]
+code_0494:	pushi	$12d		; 301, greater
+		push1
+		lst	temp[$2]
+		lat	temp[$0]
+		send	$6
+		bnot
+		bnt	code_04df
+		pushi	$13a		; 314, putByte
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$2]
+		lap	param[$1]
+		send	$6
+		bnot
+		push
+		self	$6
+		bnot
+		+at	temp[$2]
+		jmp	code_0494
+
+		jmp	code_04df
+
+code_04b9:	pushi	$d2		; 210, copyToFrom
+		pushi	$4		; scaleX
+		pTos	putIndex
+		lsp	param[$1]
+		push0
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		self	$c
+		bnot
+		pTos	putIndex
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		add
+		aTop	putIndex
+code_04df:	toss
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		ldi	$1
+		ret
+
+PackedData::putBits:
+		link	$2
+		pushi	$4		; scaleX
+		push1
+		pushSelf
+		lsp	param[$1]
+		lsp	param[$2]
+		callk	kernel_156, $8
+		bnot
+		ret
+
+PackedData::peek:
+		link	$3
+		pToa	getIndex
+		sat	temp[$1]
+		push2
+		pushSelf
+		lsp	param[$1]
+		calle	export60025_5, $4
+		bnot
+		sat	temp[$2]
+		lat	temp[$1]
+		aTop	getIndex
+		lat	temp[$2]
+		ret
+
diff --git a/Script/Script60093.txt b/Script/Script60093.txt
new file mode 100644
index 0000000..aa5d86f
--- /dev/null
+++ b/Script/Script60093.txt
@@ -0,0 +1,1293 @@
+CueSet::add:
+		pushi	$9f		; 159, add
+		push1
+		lsp	param[$1]
+		super	Set, $6
+		bnot
+		pushi	$ce		; 206, pList
+		push1
+		pushSelf
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		lsp	param[$1]
+		lag	global[$65]
+		send	$6
+		bnot
+		ret
+
+CueSet::delete:
+		pushi	$58		; 88, 'X', delete
+		push1
+		lsp	param[$1]
+		lag	global[$65]
+		send	$6
+		bnot
+		pushi	$58		; 88, 'X', delete
+		push1
+		lsp	param[$1]
+		super	Set, $6
+		bnot
+		pushi	$ce		; 206, pList
+		push1
+		push0
+		lap	param[$1]
+		send	$6
+		bnot
+		ret
+
+ManagedRoom::init:
+		ldi	$1
+		aTop	pInitted
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	Obj, $4
+		bnot
+		ret
+
+ManagedRoom::dispose:
+		link	$4
+		pToa	pCuees
+		bnt	code_01b4
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$45		; 69, 'E', doit
+		send	$6
+		bnot
+code_01b4:	pushi	$279		; 633, pFocusedRoom
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		sat	temp[$0]
+		pushi	$c9		; 201, setScript
+		push1
+		push0
+		self	$6
+		bnot
+		pToa	pDemons
+		bnt	code_01d6
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pDemons
+code_01d6:	pToa	pCast
+		bnt	code_01e5
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pCast
+code_01e5:	pToa	pFeatures
+		bnt	code_01f4
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pFeatures
+code_01f4:	pToa	pSounds
+		bnt	code_0203
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pSounds
+code_0203:	pToa	pTimers
+		bnt	code_0212
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pTimers
+code_0212:	pToa	pTalkers
+		bnt	code_0221
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pTalkers
+code_0221:	pToa	pScreen
+		bnt	code_0230
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pScreen
+code_0230:	pToa	pCuees
+		bnt	code_024a
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$45		; 69, 'E', doit
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pCuees
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pCuees
+code_024a:	pToa	plane
+		bnt	code_0259
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	plane
+code_0259:	pToa	obstacles
+		bnt	code_02de
+		pushi	$5a		; 90, 'Z', size
+		push0
+		send	$4
+		bnot
+		sat	temp[$1]
+		ldi	$0
+		sat	temp[$3]
+code_026a:	lst	temp[$3]
+		lat	temp[$1]
+		lt?
+		bnt	code_02cd
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$3]
+		pToa	obstacles
+		send	$6
+		bnot
+		sat	temp[$2]
+		push1
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_02a6
+		pushi	$97		; 151, isKindOf
+		push1
+		class	Polygon
+		push
+		lat	temp[$2]
+		send	$6
+		bnot
+		bnt	code_02a6
+		pushi	$16f		; 367, pDispose
+		push1
+		push1
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$2]
+		send	$a
+		bnot
+		jmp	code_02c9
+
+code_02a6:	push2
+		lofsa	string_00f7	; "Found a non-polygon in the obstacles list. (%s)"
+		push
+		push1
+		lst	temp[$2]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_02c1
+		pushi	$20		; 32, ' ', name
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		jmp	code_02c4
+
+code_02c1:	lofsa	string_0127	; "<bad object>"
+code_02c4:	push
+		callk	kernel_132, $4
+		bnot
+code_02c9:	+at	temp[$3]
+		jmp	code_026a
+
+code_02cd:	pushi	$a6		; 166, release
+		push0
+		pushi	$95		; 149, dispose
+		push0
+		pToa	obstacles
+		send	$8
+		bnot
+		ldi	$0
+		aTop	obstacles
+code_02de:	pToa	scaler
+		bnt	code_02ed
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	scaler
+code_02ed:	pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		lag	global[$30]
+		send	$6
+		bnot
+		ldi	$0
+		aTop	pInitted
+		pushi	$95		; 149, dispose
+		push0
+		super	Obj, $4
+		bnot
+		lat	temp[$0]
+		bnt	code_030b
+		push
+		selfID
+		ne?
+		bnt	code_030b
+code_030b:	ret
+
+ManagedRoom::doit:
+		link	$1
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pSounds
+		sat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_0326
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$24a		; 586, check
+		lat	temp[$0]
+		send	$6
+		bnot
+code_0326:	pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pTimers
+		sat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_033d
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$45		; 69, 'E', doit
+		lat	temp[$0]
+		send	$6
+		bnot
+code_033d:	pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pCast
+		sat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_0351
+		pushi	$45		; 69, 'E', doit
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_0351:	pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pCuees
+		sat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_0368
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$45		; 69, 'E', doit
+		lat	temp[$0]
+		send	$6
+		bnot
+code_0368:	pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pDemons
+		sat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_037f
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$45		; 69, 'E', doit
+		lat	temp[$0]
+		send	$6
+		bnot
+code_037f:	pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pTimers
+		sat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_0396
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$58		; 88, 'X', delete
+		lat	temp[$0]
+		send	$6
+		bnot
+code_0396:	pToa	script
+		sat	temp[$0]
+		bnt	code_03a2
+		pushi	$45		; 69, 'E', doit
+		push0
+		send	$4
+		bnot
+code_03a2:	ret
+
+ManagedRoom::setScript:
+		pToa	script
+		bnt	code_03ae
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_03ae:	lap	param[$1]
+		aTop	script
+		bnt	code_03be
+		pushi	$94		; 148, init
+		push1
+		pushSelf
+		&rest	$2
+		send	$6
+		bnot
+code_03be:	ret
+
+ManagedRoom::handleEvent:
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		bnt	code_03cd
+		ldi	$1
+		jmp	code_0400
+
+code_03cd:	pToa	script
+		bnt	code_03e0
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		bnt	code_03e0
+		ldi	$1
+		jmp	code_0400
+
+code_03e0:	pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		pToa	pCast
+		send	$6
+		bnot
+		bnt	code_03f1
+		ldi	$1
+		jmp	code_0400
+
+code_03f1:	pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		pToa	pScreen
+		send	$6
+		bnot
+		bnt	code_0400
+		ldi	$1
+code_0400:	pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+
+ManagedRoom::newRoom:
+		pushi	$272		; 626, newRoom
+		push0
+		&rest	$1
+		lag	global[$30]
+		send	$4
+		bnot
+		ret
+
+ManagedRoom::show:
+		pToa	pVisible
+		not
+		bnt	code_0427
+		pushi	$7		; priority
+		push1
+		push1
+		pToa	plane
+		send	$6
+		bnot
+		ldi	$1
+		aTop	pVisible
+code_0427:	pToa	picture
+		bnt	code_0433
+		pushi	$1bb		; 443, drawPic
+		push1
+		push
+		self	$6
+		bnot
+code_0433:	pushi	$75		; 117, 'u', show
+		push0
+		pushi	$57		; 87, 'W', draw
+		push0
+		pToa	pScreen
+		send	$8
+		bnot
+		push1
+		pTos	plane
+		callk	kernel_42, $2
+		bnot
+		ret
+
+ManagedRoom::hide:
+		pToa	pVisible
+		bnt	code_0458
+		pushi	$7		; priority
+		push1
+		pushi	$ff		; 255, asInteger
+		pToa	plane
+		send	$6
+		bnot
+		ldi	$0
+		aTop	pVisible
+code_0458:	pushi	$69		; 105, 'i', hide
+		push0
+		pToa	pScreen
+		send	$4
+		bnot
+		push1
+		pTos	plane
+		callk	kernel_42, $2
+		bnot
+		ret
+
+ManagedRoom::virtualize:
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_0134	; "RoomCast"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	Cast
+		send	$4
+		bnot
+		aTop	pCast
+		send	$6
+		bnot
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_013d	; "RoomFeatures"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	EventHandler
+		send	$4
+		bnot
+		aTop	pFeatures
+		send	$6
+		bnot
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_014a	; "RoomSounds"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	EventHandler
+		send	$4
+		bnot
+		aTop	pSounds
+		send	$6
+		bnot
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_0155	; "RoomTimers"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		aTop	pTimers
+		send	$6
+		bnot
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_0160	; "RoomDemons"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		aTop	pDemons
+		send	$6
+		bnot
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_016b	; "RoomTalkers"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	EventHandler
+		send	$4
+		bnot
+		aTop	pTalkers
+		send	$6
+		bnot
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_0177	; "RoomCuees"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	CueSet
+		send	$4
+		bnot
+		aTop	pCuees
+		send	$6
+		bnot
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_0181	; "RoomPlane"
+		push
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$fe		; 254, strIndex
+		pushi	$94		; 148, init
+		pushi	$4		; scaleX
+		push0
+		push0
+		pushi	$27f		; 639, rename
+		pushi	$1df		; 479, validKey
+		pushi	$28		; 40, '(', style
+		push1
+		pTos	style
+		pushi	$1b8		; 440, addCast
+		push1
+		pTos	pCast
+		pushi	$8d		; 141, new
+		push0
+		class	Plane
+		send	$4
+		bnot
+		aTop	plane
+		send	$24
+		bnot
+		pushi	$7		; priority
+		push0
+		pToa	plane
+		send	$4
+		bnot
+		not
+		bt	code_0545
+		pushi	$7		; priority
+		push0
+		pToa	plane
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		eq?
+code_0545:	bnt	code_0550
+		pushi	$7		; priority
+		push1
+		push1
+		pToa	plane
+		send	$6
+		bnot
+code_0550:	pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_018b	; "RoomScreen"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	screen
+		send	$4
+		bnot
+		aTop	pScreen
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		push0
+		push0
+		pToa	pScreen
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push0
+		push1
+		pTos	plane
+		pushi	$248		; 584, open
+		push0
+		pToa	pScreen
+		send	$a
+		bnot
+		pushi	$69		; 105, 'i', hide
+		push0
+		self	$4
+		bnot
+		ret
+
+ManagedRoom::drawPic:
+		lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_05a8
+		lap	param[$3]
+		bnt	code_05a8
+		lsp	param[$1]
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_059d
+		lap	param[$1]
+		aTop	picture
+code_059d:	lsp	param[$2]
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_05a8
+		lap	param[$2]
+		aTop	style
+code_05a8:	pTos	style
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_05c5
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_05c1
+		lsp	param[$2]
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_05c1
+		lap	param[$2]
+		jmp	code_05c7
+
+code_05c1:	ldi	$0
+		jmp	code_05c7
+
+code_05c5:	pToa	style
+code_05c7:	sap	param[$2]
+		pushi	$1bb		; 443, drawPic
+		push2
+		lsp	param[$1]
+		push
+		pToa	plane
+		send	$8
+		bnot
+		ret
+
+ManagedRoom::addPolygon:
+		link	$7
+		pToa	obstacles
+		not
+		bnt	code_05e8
+		pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		aTop	obstacles
+code_05e8:	ldi	$0
+		sat	temp[$2]
+code_05ec:	lst	temp[$2]
+		lap	param[$0]
+		lt?
+		bnt	code_06a6
+		lat	temp[$2]
+		lapi	param[$1]
+		sat	temp[$3]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	obstacles
+		send	$4
+		bnot
+		bnt	code_0696
+		pushi	$5b		; 91, '[', points
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		sat	temp[$1]
+		push2
+		lst	temp[$3]
+		pTos	obstacles
+		callk	kernel_102, $4
+		bnot
+		sat	temp[$0]
+		bnt	code_06a1
+		pushi	$2b		; 43, '+', type
+		push1
+		pushi	$2b		; 43, '+', type
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	Polygon
+		send	$4
+		bnot
+		sat	temp[$6]
+		send	$6
+		bnot
+		push2
+		pushi	$4		; scaleX
+		pushi	$71		; 113, 'q', data
+		push0
+		pushi	$5b		; 91, '[', points
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		callk	kernel_91, $4
+		bnot
+		pushi	$71		; 113, 'q', data
+		push1
+		lst	temp[$0]
+		pushi	$5b		; 91, '[', points
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		lst	temp[$6]
+		pToa	obstacles
+		send	$6
+		bnot
+		pushi	$5a		; 90, 'Z', size
+		push1
+		pushi	$d8		; 216, callKernel
+		push2
+		push1
+		pushi	$71		; 113, 'q', data
+		push0
+		pushi	$5b		; 91, '[', points
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$5b		; 91, '[', points
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		send	$8
+		bnot
+		push
+		ldi	$2
+		div
+		push
+		lat	temp[$6]
+		send	$6
+		bnot
+		jmp	code_06a1
+
+code_0696:	pushi	$9f		; 159, add
+		push1
+		lst	temp[$3]
+		pToa	obstacles
+		send	$6
+		bnot
+code_06a1:	+at	temp[$2]
+		jmp	code_05ec
+
+code_06a6:	ret
+
+ManagedRoom::deletePolygon:
+		pushi	$58		; 88, 'X', delete
+		push1
+		lsp	param[$1]
+		pToa	obstacles
+		send	$6
+		bnot
+		ret
+
+ManagedRoom::setScale:
+		link	$1
+		lsp	param[$0]
+		ldi	$1
+		eq?
+		bnt	code_06c1
+		lap	param[$3]
+		sat	temp[$0]
+		jmp	code_06eb
+
+code_06c1:	pushi	$14b		; 331, frontY
+		push1
+		lsp	param[$3]
+		pushi	$14c		; 332, backY
+		push1
+		lsp	param[$4]
+		pushi	$145		; 325, frontSize
+		push1
+		lsp	param[$1]
+		pushi	$14d		; 333, backSize
+		push1
+		lsp	param[$2]
+		pushi	$8d		; 141, new
+		push0
+		class	Scaler
+		send	$4
+		bnot
+		sat	temp[$0]
+		send	$18
+		bnot
+		lap	param[$1]
+		aTop	frontSize
+code_06eb:	lat	temp[$0]
+		aTop	scaler
+		ret
+
+ManagedRoom::isMatch:
+		ldi	$0
+		ret
+
+ManagedRoom::setInfo:
+		ret
+
+StaticRoom::dispose:
+		link	$1
+		pToa	modNum
+		sat	temp[$0]
+		pushi	$95		; 149, dispose
+		push0
+		super	ManagedRoom, $4
+		bnot
+		lat	temp[$0]
+		bnt	code_0710
+		pushi	$9f		; 159, add
+		push1
+		push
+		lag	global[$69]
+		send	$6
+		bnot
+code_0710:	ret
+
+StaticRoom::setInfo:
+		lap	param[$1]
+		aTop	modNum
+		ret
+
+RoomMgr::init:
+		pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		aTop	pRoomList
+		lag	global[$40]
+		sal	local[$1]
+		ldi	$5		; scaleY
+		sal	local[$0]
+		ret
+
+RoomMgr::dispose:
+		pToa	pRoomList
+		bnt	code_0739
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pRoomList
+code_0739:	ldi	$0
+		aTop	pFocusedRoom
+		ret
+
+RoomMgr::doit:
+		link	$5
+		pToa	pRestart
+		bnt	code_0761
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$95		; 149, dispose
+		pToa	pRoomList
+		send	$6
+		bnot
+		pushi	$a6		; 166, release
+		push0
+		pToa	pRoomList
+		send	$4
+		bnot
+		pToa	pRestart
+		sag	global[$36]
+		ldi	$0
+		aTop	pRestart
+code_0761:	pToa	pNextRoom
+		bnt	code_0771
+		pushi	$2c7		; 711, spawnRoom
+		push1
+		push
+		self	$6
+		bnot
+		ldi	$0
+		aTop	pNextRoom
+code_0771:	lsl	local[$0]
+		push1
+		lsg	global[$40]
+		lal	local[$1]
+		sub
+		push
+		callk	kernel_61, $2
+		bnot
+		sub
+		sal	local[$0]
+		lag	global[$40]
+		sal	local[$1]
+		lsl	local[$0]
+		ldi	$0
+		le?
+		bnt	code_07e4
+		ldi	$5		; scaleY
+		sal	local[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pRoomList
+		send	$4
+		bnot
+		sat	temp[$2]
+		pushi	$45		; 69, 'E', doit
+		push0
+		class	SoundMgr
+		send	$4
+		bnot
+		push0
+		callk	kernel_121, $0
+		bnot
+		aTop	scratch
+		lat	temp[$2]
+		sat	temp[$4]
+code_07ae:	lst	temp[$2]
+		ldi	$0
+		gt?
+		bnt	code_07dd
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$2]
+		ldi	$1
+		sub
+		push
+		pToa	pRoomList
+		send	$6
+		bnot
+		sat	temp[$0]
+		lag	global[$3]
+		sat	temp[$3]
+		lat	temp[$0]
+		sag	global[$3]
+		pushi	$45		; 69, 'E', doit
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		lat	temp[$3]
+		sag	global[$3]
+		-at	temp[$2]
+		jmp	code_07ae
+
+code_07dd:	push0
+		callk	kernel_33, $0
+		bnot
+		jmp	code_07e9
+
+code_07e4:	push0
+		callk	kernel_33, $0
+		bnot
+code_07e9:	pToa	pFocusedRoom
+		bnt	code_0820
+		push1
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_0820
+		pushi	$97		; 151, isKindOf
+		push1
+		class	ManagedRoom
+		push
+		pToa	pFocusedRoom
+		send	$6
+		bnot
+		bnt	code_0820
+		pToa	pFocusedRoom
+		sag	global[$3]
+		pushi	$45		; 69, 'E', doit
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		lag	global[$6a]
+		bnt	code_081c
+		pushi	$45		; 69, 'E', doit
+		push0
+		send	$4
+		bnot
+code_081c:	pToa	pFocusedRoom
+		sag	global[$3]
+code_0820:	ret
+
+RoomMgr::handleEvent:
+		pToa	pFocusedRoom
+		bnt	code_0831
+		pushi	$c8		; 200, handleEvent
+		push1
+		lsp	param[$1]
+		&rest	$2
+		send	$6
+		bnot
+		ret
+
+code_0831:	ldi	$0
+		ret
+
+RoomMgr::newRoom:
+		link	$1
+		pushi	$2c6		; 710, findRoom
+		push0
+		&rest	$1
+		self	$4
+		bnot
+		sat	temp[$0]
+		lag	global[$34]
+		sag	global[$35]
+		lst	temp[$0]
+		ldi	$0
+		eq?
+		bnt	code_0857
+		pushi	$2c5		; 709, createRoom
+		push0
+		&rest	$1
+		self	$4
+		bnot
+		sat	temp[$0]
+code_0857:	pushi	$2c7		; 711, spawnRoom
+		push1
+		lst	temp[$0]
+		self	$6
+		bnot
+		lat	temp[$0]
+		ret
+
+RoomMgr::createRoom:
+		link	$1
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_089b
+		pToa	pVirtualType
+		bnt	code_088d
+		pushi	$8d		; 141, new
+		push0
+		send	$4
+		bnot
+		sat	temp[$0]
+		pushi	$2c0		; 704, setInfo
+		push0
+		&rest	$1
+		send	$4
+		bnot
+		pushi	$2bc		; 700, virtualize
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		jmp	code_08b7
+
+code_088d:	push1
+		lofsa	string_01ad	; "RoomManager::createRoom (pVirtualType is undefined)"
+		push
+		calle	export60029_0, $2
+		bnot
+		jmp	code_08b7
+
+code_089b:	push2
+		lsp	param[$1]
+		push0
+		callk	kernel_2, $4
+		bnot
+		sat	temp[$0]
+		pushi	$2c0		; 704, setInfo
+		push0
+		&rest	$1
+		send	$4
+		bnot
+		pushi	$2bc		; 700, virtualize
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_08b7:	pushi	$9f		; 159, add
+		push1
+		lst	temp[$0]
+		pToa	pRoomList
+		send	$6
+		bnot
+		lat	temp[$0]
+		ret
+
+RoomMgr::findRoom:
+		pushi	$a0		; 160, firstTrue
+		push1
+		pushi	$2bf		; 703, isMatch
+		&rest	$1
+		pToa	pRoomList
+		send	$6
+		bnot
+		ret
+
+RoomMgr::spawnRoom:
+		link	$4
+		pushi	$a3		; 163, contains
+		push1
+		lsp	param[$1]
+		pToa	pRoomList
+		send	$6
+		bnot
+		bnt	code_095d
+		lag	global[$3]
+		sat	temp[$2]
+		lap	param[$1]
+		sag	global[$3]
+		pToa	pFocusedRoom
+		sat	temp[$1]
+		bnt	code_0914
+		pushi	$2bb		; 699, pType
+		push0
+		pToa	pFocusedRoom
+		send	$4
+		bnot
+		push
+		ldi	$0
+		eq?
+		bnt	code_090c
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pFocusedRoom
+		send	$4
+		bnot
+		jmp	code_0914
+
+code_090c:	pushi	$69		; 105, 'i', hide
+		push0
+		pToa	pFocusedRoom
+		send	$4
+		bnot
+code_0914:	lap	param[$1]
+		aTop	pFocusedRoom
+		pushi	$23c		; 572, pInitted
+		push0
+		send	$4
+		bnot
+		not
+		bnt	code_092b
+		pushi	$94		; 148, init
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+code_092b:	pushi	$2bb		; 699, pType
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$0
+		eq?
+		bnt	code_0953
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$180		; 384, modNum
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_0953
+		pushi	$180		; 384, modNum
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sag	global[$34]
+code_0953:	pushi	$75		; 117, 'u', show
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		jmp	code_0969
+
+code_095d:	push1
+		lofsa	string_01e1	; "RoomManager::spawnRoom (aWhatRoom is not a member of pRoomList)"
+		push
+		calle	export60029_0, $2
+		bnot
+code_0969:	pushi	$2b		; 43, '+', type
+		push0
+		pushi	$f3		; 243, nextEvent
+		push1
+		pushi	$3		; z
+		lag	global[$e]
+		send	$6
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$0
+		ne?
+		bnt	code_0982
+		jmp	code_0969
+
+code_0982:	lat	temp[$2]
+		sag	global[$3]
+		ret
+
+RoomMgr::add:
+		pushi	$9f		; 159, add
+		push0
+		&rest	$1
+		pToa	pRoomList
+		send	$4
+		bnot
+		ret
+
+RoomMgr::delete:
+		pushi	$58		; 88, 'X', delete
+		push1
+		lsp	param[$1]
+		pToa	pRoomList
+		send	$6
+		bnot
+		lsp	param[$1]
+		pToa	pFocusedRoom
+		eq?
+		bnt	code_09a8
+		ldi	$0
+		aTop	pFocusedRoom
+code_09a8:	ret
+
+doDoit::doit:
+		link	$1
+		lag	global[$3]
+		sat	temp[$0]
+		lap	param[$1]
+		sag	global[$3]
+		pushi	$45		; 69, 'E', doit
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		lat	temp[$0]
+		sag	global[$3]
+		ret
+