diff --git a/Script/Script40108.txt b/Script/Script40108.txt
new file mode 100644
index 0000000..6886605
--- /dev/null
+++ b/Script/Script40108.txt
@@ -0,0 +1,1833 @@
+export40108_0	= InitializeGlobalLists
+export40108_1	= GlobalEffectList
+export40108_2	= GlobalMovieCmdList
+export40108_3	= GlobalBaseList
+export40108_4	= GlobalATPList
+export40108_5	= GlobalPicInfoList
+export40108_6	= GlobalSpellList
+export40108_7	= GlobalSEList
+
+InitializeGlobalLists::doit:
+		pushi	$94		; 148, init
+		push0
+		lofsa	GlobalEffectList
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		lofsa	GlobalMovieCmdList
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		lofsa	GlobalBaseList
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		lofsa	GlobalATPList
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		lofsa	GlobalPicInfoList
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		push2
+		pushi	$9cb6		; -25418
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9d10		; -25328
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9d11		; -25327
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9d12		; -25326
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9d13		; -25325
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9d14		; -25324
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9d15		; -25323
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9d16		; -25322
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9d17		; -25321
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9d18		; -25320
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9d19		; -25319
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		lofsa	GlobalSpellList
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		lofsa	GlobalSEList
+		send	$4
+		bnot
+		ret
+
+GlobalEffectList::init:
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	List, $4
+		bnot
+		ret
+
+GlobalMovieCmdList::init:
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	List, $4
+		bnot
+		pushi	$9f		; 159, add
+		pushi	$46		; 70, 'F', isBlocked
+		push2
+		pushi	$9ca5		; -25435
+		push1
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$3		; z
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		push2
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$4		; scaleX
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$5		; scaleY
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$6		; maxScale
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$7		; priority
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$8		; fixPriority
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$9		; inLeft
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$a		; 10, inTop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$b		; 11, inRight
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$d		; 13, seenRect
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$e		; 14, view
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$13		; 19, nsTop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$14		; 20, nsRight
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$f		; 15, loop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$11		; 17, bitmap
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$12		; 18, nsLeft
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$34		; 52, '4', number
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$15		; 21, nsBottom
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$16		; 22, lsLeft
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$17		; 23, lsTop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$18		; 24, lsRight
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$19		; 25, lsBottom
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$1a		; 26, signal
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$1b		; 27, illegalBits
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$34		; 52, '4', number
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$1d		; 29, brTop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$1e		; 30, brRight
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$1f		; 31, brBottom
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$20		; 32, ' ', name
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$21		; 33, '!', key
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$22		; 34, '"', time
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$23		; 35, '#', text
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$23		; 35, '#', text
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$24		; 36, '$', elements
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$27		; 39, ''', mode
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$28		; 40, '(', style
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$26		; 38, '&', back
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$29		; 41, ')', state
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$2a		; 42, '*', font
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$2b		; 43, '+', type
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$2c		; 44, ',', window
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$2d		; 45, '-', cursor
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$2e		; 46, '.', max
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$2f		; 47, '/', mark
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$30		; 48, '0', who
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$31		; 49, '1', message
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$32		; 50, '2', edit
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$33		; 51, '3', play
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$35		; 53, '5', nodePtr
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$37		; 55, '7', dx
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$38		; 56, '8', dy
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$39		; 57, '9', b_moveCnt
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$3c		; 60, '<', b_di
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$3d		; 61, '=', b_xAxis
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$3e		; 62, '>', b_incr
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$3f		; 63, '?', xStep
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$40		; 64, '@', yStep
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$41		; 65, 'A', moveSpeed
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$42		; 66, 'B', cantBeHere
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$43		; 67, 'C', heading
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$25		; 37, '%', fore
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$36		; 54, '6', client
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$44		; 68, 'D', mover
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$45		; 69, 'E', doit
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$47		; 71, 'G', looper
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$48		; 72, 'H', modifiers
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$49		; 73, 'I', replay
+		callk	kernel_2, $4
+		bnot
+		push
+		self	$90
+		bnot
+		ret
+
+GlobalBaseList::init:
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	List, $4
+		bnot
+		pushi	$9f		; 159, add
+		pushi	$15		; 21, nsBottom
+		class	BCarryable
+		push
+		class	BContainer
+		push
+		class	BHead
+		push
+		class	BWearable
+		push
+		class	BOpenable
+		push
+		class	BDescribed
+		push
+		class	BCycle
+		push
+		class	BCharacter
+		push
+		class	BLockable
+		push
+		class	BKey
+		push
+		class	BWeapon
+		push
+		class	BEntry
+		push
+		class	BShop
+		push
+		class	BNPC
+		push
+		class	BConsume
+		push
+		class	BPassword
+		push
+		class	BGatekeeper
+		push
+		class	BTrade
+		push
+		class	BSit
+		push
+		class	BScroll
+		push
+		class	BTalk
+		push
+		self	$2e
+		bnot
+		ret
+
+GlobalSpellList::init:
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	List, $4
+		bnot
+		pushi	$9f		; 159, add
+		pushi	$94		; 148, init
+		push2
+		pushi	$9d08		; -25336
+		push1
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push2
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$3		; z
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$4		; scaleX
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$5		; scaleY
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$6		; maxScale
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$7		; priority
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$8		; fixPriority
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$9		; inLeft
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$a		; 10, inTop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$b		; 11, inRight
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$c		; 12, inBottom
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$d		; 13, seenRect
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$e		; 14, view
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$f		; 15, loop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$10		; 16, cel
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$11		; 17, bitmap
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$12		; 18, nsLeft
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$13		; 19, nsTop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$14		; 20, nsRight
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$15		; 21, nsBottom
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$16		; 22, lsLeft
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$17		; 23, lsTop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$18		; 24, lsRight
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$19		; 25, lsBottom
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$1a		; 26, signal
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$1b		; 27, illegalBits
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$1c		; 28, brLeft
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$1d		; 29, brTop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$1e		; 30, brRight
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$1f		; 31, brBottom
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$20		; 32, ' ', name
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$21		; 33, '!', key
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$22		; 34, '"', time
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$23		; 35, '#', text
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$24		; 36, '$', elements
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$25		; 37, '%', fore
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$26		; 38, '&', back
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$27		; 39, ''', mode
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$28		; 40, '(', style
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$29		; 41, ')', state
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$2a		; 42, '*', font
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$2b		; 43, '+', type
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$2c		; 44, ',', window
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$2d		; 45, '-', cursor
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$2e		; 46, '.', max
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$2f		; 47, '/', mark
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$30		; 48, '0', who
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$31		; 49, '1', message
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$32		; 50, '2', edit
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$33		; 51, '3', play
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$34		; 52, '4', number
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$35		; 53, '5', nodePtr
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$36		; 54, '6', client
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$37		; 55, '7', dx
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$48		; 72, 'H', modifiers
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$38		; 56, '8', dy
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$39		; 57, '9', b_moveCnt
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$3a		; 58, ':', b_i1
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$3b		; 59, ';', b_i2
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$3c		; 60, '<', b_di
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$3d		; 61, '=', b_xAxis
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$3e		; 62, '>', b_incr
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$3f		; 63, '?', xStep
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$40		; 64, '@', yStep
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$41		; 65, 'A', moveSpeed
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$42		; 66, 'B', cantBeHere
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$43		; 67, 'C', heading
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$44		; 68, 'D', mover
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$45		; 69, 'E', doit
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$46		; 70, 'F', isBlocked
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$47		; 71, 'G', looper
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$49		; 73, 'I', replay
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$4a		; 74, 'J', setPri
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$4b		; 75, 'K', at
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$67		; 103, 'g', quitGame
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$4c		; 76, 'L', next
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$4d		; 77, 'M', done
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$69		; 105, 'i', hide
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$4e		; 78, 'N', width
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$4f		; 79, 'O', pragmaFail
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$50		; 80, 'P', claimed
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$51		; 81, 'Q', value
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$52		; 82, 'R', save
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$53		; 83, 'S', restore
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$54		; 84, 'T', title
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$55		; 85, 'U', button
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$72		; 114, 'r', skip
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$73		; 115, 's', center
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$74		; 116, 't', all
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$56		; 86, 'V', icon
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$57		; 87, 'W', draw
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$58		; 88, 'X', delete
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$59		; 89, 'Y', printLang
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$5a		; 90, 'Z', size
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$5b		; 91, '[', points
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$5e		; 94, '^', handle
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$5f		; 95, '_', min
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$60		; 96, '`', sec
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$61		; 97, 'a', frame
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$62		; 98, 'b', vol
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$63		; 99, 'c', perform
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$64		; 100, 'd', moveDone
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$65		; 101, 'e', topString
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$66		; 102, 'f', flags
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$68		; 104, 'h', restart
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$6a		; 106, 'j', scaleSignal
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$6b		; 107, 'k', vanishingX
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$6c		; 108, 'l', vanishingY
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$6d		; 109, 'm', picture
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$6e		; 110, 'n', resX
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$6f		; 111, 'o', resY
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$75		; 117, 'u', show
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$76		; 118, 'v', textLeft
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$77		; 119, 'w', textTop
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$78		; 120, 'x', textRight
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$79		; 121, 'y', textBottom
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$7a		; 122, 'z', borderColor
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$7b		; 123, '{', titleFore
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$7c		; 124, '|', titleBack
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$7d		; 125, '}', titleFont
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$7e		; 126, '~', dimmed
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$70		; 112, 'p', coordType
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$71		; 113, 'q', data
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$5c		; 92, '\', palette
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$5d		; 93, ']', dataInc
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$7f		; 127, frameOut
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$80		; 128, lastKey
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$81		; 129, magnifier
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$82		; 130, magPower
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$83		; 131, mirrored
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$84		; 132, pitch
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$85		; 133, roll
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$86		; 134, yaw
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$87		; 135, left
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$88		; 136, right
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$89		; 137, top
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		pushi	$8a		; 138, bottom
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$9d08		; -25336
+		push0
+		callk	kernel_2, $4
+		bnot
+		push
+		self	$2c
+		bnot
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$94		; 148, init
+		self	$6
+		bnot
+		ret
+
+GlobalSEList::init:
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	List, $4
+		bnot
+		pushi	$9f		; 159, add
+		pushi	$8a		; 138, bottom
+		class	SEDeathCloud
+		push
+		class	SEFlameOrb
+		push
+		class	SEFlash
+		push
+		class	SEFlashGrow
+		push
+		class	SEFlashFade
+		push
+		class	SELightning
+		push
+		class	SEGreenCloud
+		push
+		class	SERedCloud
+		push
+		class	SEBlueCloud
+		push
+		class	SEYellowCloud
+		push
+		class	SEWhiteCloud
+		push
+		class	SEPurpleCloud
+		push
+		class	SEIceStorm
+		push
+		class	SESummon
+		push
+		class	SEGreenFade
+		push
+		class	SERedFade
+		push
+		class	SEBlueFade
+		push
+		class	SEYellowFade
+		push
+		class	SEWhiteFade
+		push
+		class	SEPurpleFade
+		push
+		class	SEHeal
+		push
+		class	SEDrainMagic
+		push
+		class	SEWhirlwind
+		push
+		class	SEShieldUp
+		push
+		class	SEShieldDown
+		push
+		class	SEPoof
+		push
+		class	SEDeathBlade
+		push
+		class	SEUnlock
+		push
+		class	SEMagicDust
+		push
+		class	SELevitate
+		push
+		class	SEFireBall
+		push
+		class	SEMusic
+		push
+		class	SESound
+		push
+		class	SEMultiBlade
+		push
+		class	SEDispelMagic
+		push
+		class	SEPermanency
+		push
+		class	SEGatherTheFellowship
+		push
+		class	SEAcidSphere
+		push
+		class	SELightDart
+		push
+		class	SEPsychicOrb
+		push
+		class	SEGreaterHeal
+		push
+		class	SEPurify
+		push
+		class	SECurePoison
+		push
+		class	SESummonZombie
+		push
+		class	SESummonDaemon
+		push
+		class	SESummonPixie
+		push
+		class	SEEarthquake
+		push
+		class	SEEngrave
+		push
+		class	SECornucopia
+		push
+		class	SEImproveArmor
+		push
+		class	SERemoveCurse
+		push
+		class	SEIceOrb
+		push
+		class	SEHoldMonster
+		push
+		class	SEBerserk
+		push
+		class	SEShield
+		push
+		class	SEGreaterShield
+		push
+		class	SEFireShield
+		push
+		class	SEColdShield
+		push
+		class	SELightningShield
+		push
+		class	SEInvulnerability
+		push
+		class	SEPoisonShield
+		push
+		class	SEAcidShield
+		push
+		class	SEExtension
+		push
+		class	SESeeInvisibility
+		push
+		class	SEShift
+		push
+		class	SEInvisibility
+		push
+		class	SERust
+		push
+		class	SEDefenselessness
+		push
+		class	SEImprovedInvisibility
+		push
+		class	SEEnchantItem
+		push
+		class	SEFireCurse
+		push
+		class	SEColdCurse
+		push
+		class	SELightningCurse
+		push
+		class	SEPoisonCurse
+		push
+		class	SEAcidCurse
+		push
+		class	SEEmpower
+		push
+		class	SEEnfeeble
+		push
+		class	SEPoisonBolt
+		push
+		class	SESummonWraith
+		push
+		class	SESummonUndead
+		push
+		class	SESummonNightFriends
+		push
+		class	SEFireGrasp
+		push
+		class	SEArticGrasp
+		push
+		class	SEVenomousTouch
+		push
+		class	SEFlameBlade
+		push
+		class	SEElectricCharge
+		push
+		class	SEColdSteel
+		push
+		class	SEVenom
+		push
+		class	SEStealLife
+		push
+		class	SENimbility
+		push
+		class	SEClumsiness
+		push
+		class	SEImmolation
+		push
+		class	SEWarpMind
+		push
+		class	SEDrainLife
+		push
+		class	SESpark
+		push
+		class	SEDeathTouch
+		push
+		class	SEBanishment
+		push
+		class	SEStoning
+		push
+		class	SEAcidRain
+		push
+		class	SEMassDrain
+		push
+		class	SEElectricFury
+		push
+		class	SEDeathWish
+		push
+		class	SEWrathOfTheGods
+		push
+		class	SECrushingBoulder
+		push
+		class	SEMissileResistance
+		push
+		class	SEHeadOfDeath
+		push
+		class	SEFreeze
+		push
+		class	SEStun
+		push
+		class	SEConfusion
+		push
+		class	SEMindShackle
+		push
+		class	SELoyaltyShift
+		push
+		class	SEFear
+		push
+		class	SEElphamesJustice
+		push
+		class	SEIncinerate
+		push
+		class	SEIndestruction
+		push
+		class	SEEnidsBlessing
+		push
+		class	SEDuachsVengeance
+		push
+		class	SEColdSnap
+		push
+		class	SESpellBlast
+		push
+		class	SEForcedFlee
+		push
+		class	SEAntiMagicAura
+		push
+		class	SESingleFumble
+		push
+		class	SEMassFumble
+		push
+		class	SEGustOfWind
+		push
+		class	SESandStorm
+		push
+		class	SEBang
+		push
+		class	SEBangViolet
+		push
+		class	SEBangGreen
+		push
+		class	SEBangYellow
+		push
+		class	SEBangOrange
+		push
+		class	SEBangTeal
+		push
+		class	SEBangBlue
+		push
+		class	SESlideCombatant
+		push
+		class	SELightningBolt
+		push
+		class	SEPoisonCloudTarget
+		push
+		class	SEPoisonCloudArea
+		push
+		class	SEFlameTarget
+		push
+		class	SEFlameArea
+		push
+		self	$18
+		bnot
+		ret
+
diff --git a/Script/Script40109.txt b/Script/Script40109.txt
new file mode 100644
index 0000000..3a010c8
--- /dev/null
+++ b/Script/Script40109.txt
@@ -0,0 +1,738 @@
+RlmInfoBar::dispose:
+		pushi	$37c		; 892, deleteStatusBox
+		push1
+		pTos	pEgoBoxSet
+		self	$6
+		bnot
+		pushi	$37c		; 892, deleteStatusBox
+		push1
+		pTos	pLeftBoxSet
+		self	$6
+		bnot
+		pushi	$37c		; 892, deleteStatusBox
+		push1
+		pTos	pRightBoxSet
+		self	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pEgoBoxSet
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pLeftBoxSet
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pRightBoxSet
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Plane, $4
+		bnot
+		ret
+
+RlmInfoBar::deleteStatusBox:
+		link	$4
+		push1
+		lsp	param[$1]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_013d
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$1]
+		bnt	code_013d
+		lst	temp[$0]
+		ldi	$0
+		eq?
+code_00d1:	lst	temp[$0]
+		lat	temp[$1]
+		lt?
+		bnt	code_011c
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$3]
+		push1
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_010d
+		pushi	$97		; 151, isKindOf
+		push1
+		class	View
+		push
+		lat	temp[$3]
+		send	$6
+		bnot
+		bnt	code_010d
+		push1
+		lst	temp[$3]
+		callk	kernel_31, $2
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+code_010d:	pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$0]
+		push0
+		lap	param[$1]
+		send	$8
+		bnot
+		+at	temp[$0]
+		jmp	code_00d1
+
+code_011c:	pushi	$3		; z
+		pushi	$2335		; 9013
+		push0
+		push0
+		callk	kernel_29, $6
+		bnot
+		sat	temp[$2]
+		push
+		pToa	bottom
+		ne?
+		bnt	code_013d
+		lat	temp[$2]
+		aTop	bottom
+		ldi	$fe		; 254, strIndex
+		aTop	picture
+		push1
+		pushSelf
+		callk	kernel_42, $2
+		bnot
+code_013d:	ret
+
+RlmInfoBar::init:
+		ret
+
+		pushi	$94		; 148, init
+		pushi	$4		; scaleX
+		push0
+		push0
+		pushi	$27f		; 639, rename
+		pushi	$3		; z
+		pushi	$2335		; 9013
+		push0
+		push0
+		callk	kernel_29, $6
+		bnot
+		push
+		ldi	$1
+		sub
+		push
+		super	Plane, $c
+		bnot
+		pushi	$8d		; 141, new
+		push0
+		class	Cast
+		send	$4
+		bnot
+		aTop	pCast
+		pushi	$1b8		; 440, addCast
+		push1
+		pTos	pCast
+		self	$6
+		bnot
+		pToa	pBar
+		not
+		bnt	code_01a3
+		ldi	$1
+		aTop	pBar
+		pushi	$8d		; 141, new
+		push1
+		push2
+		class	IntArray
+		send	$6
+		bnot
+		aTop	pEgoBoxSet
+		pushi	$8d		; 141, new
+		push1
+		pushi	$4		; scaleX
+		class	IntArray
+		send	$6
+		bnot
+		aTop	pLeftBoxSet
+		pushi	$8d		; 141, new
+		push1
+		pushi	$4		; scaleX
+		class	IntArray
+		send	$6
+		bnot
+		aTop	pRightBoxSet
+		jmp	code_01a9
+
+code_01a3:	pushi	$75		; 117, 'u', show
+		push0
+		self	$4
+		bnot
+code_01a9:	ret
+
+RlmInfoBar::setBarText:
+		link	$3
+		pToa	pText
+		bnt	code_01bb
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pText
+code_01bb:	pushi	$f5		; 245, format
+		push2
+		lofsa	string_0058	; "%s"
+		push
+		lsp	param[$1]
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		pushi	$3		; z
+		push1
+		push2
+		pushi	$9		; inLeft
+		push
+		callk	kernel_91, $4
+		bnot
+		push
+		pushi	$14		; 20, nsRight
+		callk	kernel_70, $6
+		bnot
+		sat	temp[$2]
+		pushi	$192		; 402, getName
+		sub
+		push
+		ldi	$2
+		div
+		sat	temp[$2]
+		pushi	$25		; 37, '%', fore
+		push1
+		pushi	$1a		; 26, signal
+		pushi	$32b		; 811, pShadowColor
+		push1
+		pushi	$5		; scaleY
+		pushi	$2a		; 42, '*', font
+		push1
+		pushi	$14		; 20, nsRight
+		pushi	$94		; 148, init
+		pushi	$6		; maxScale
+		lst	temp[$0]
+		push
+		pushi	$9		; inLeft
+		pushi	$ff		; 255, asInteger
+		push0
+		pTos	pCast
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	ShadowText
+		send	$4
+		bnot
+		aTop	pText
+		send	$26
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		ret
+
+RlmInfoBar::updateBar:
+		link	$10
+		lsp	param[$3]
+		ldi	$0
+		lt?
+		bnt	code_0230
+		ret
+
+code_0230:	lsp	param[$3]
+		ldi	$0
+		eq?
+		bnt	code_024d
+		lsp	param[$0]
+		ldi	$3		; z
+		eq?
+		bnt	code_024d
+		pushi	$4		; scaleX
+		pushi	$6		; maxScale
+		pushi	$5		; scaleY
+		lsp	param[$1]
+		lsp	param[$2]
+		callk	kernel_118, $8
+		bnot
+		ret
+
+code_024d:	ret
+
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$d]
+		pushi	$b5		; 181, set
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		pushi	$113		; 275, mul
+		push1
+		pushi	$64		; 100, 'd', moveDone
+		lat	temp[$d]
+		send	$6
+		bnot
+		pushi	$115		; 277, div
+		push1
+		lsp	param[$2]
+		lat	temp[$d]
+		send	$6
+		bnot
+		pushi	$10d		; 269, lowWord
+		push0
+		lat	temp[$d]
+		send	$4
+		bnot
+		sat	temp[$7]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$d]
+		send	$4
+		bnot
+		lst	temp[$7]
+		ldi	$64		; 100, 'd', moveDone
+		gt?
+		bnt	code_0299
+		ldi	$64		; 100, 'd', moveDone
+		sat	temp[$7]
+		jmp	code_02a4
+
+code_0299:	lst	temp[$7]
+		ldi	$0
+		lt?
+		bnt	code_02a4
+		ldi	$0
+		sat	temp[$7]
+code_02a4:	lsp	param[$3]
+		ldi	$1
+		eq?
+		bnt	code_02b6
+		lsp	param[$1]
+		ldi	$0
+		lt?
+		bnt	code_02b6
+		ldi	$0
+		sap	param[$1]
+code_02b6:	lst	temp[$7]
+		ldi	$32		; 50, '2', edit
+		gt?
+		bnt	code_02c3
+		ldi	$53		; 83, 'S', restore
+		sat	temp[$0]
+		jmp	code_02d4
+
+code_02c3:	lst	temp[$7]
+		ldi	$1e		; 30, brRight
+		gt?
+		bnt	code_02d0
+		ldi	$40		; 64, '@', yStep
+		sat	temp[$0]
+		jmp	code_02d4
+
+code_02d0:	ldi	$3b		; 59, ';', b_i2
+		sat	temp[$0]
+code_02d4:	ldi	$0
+		sat	temp[$9]
+		ldi	$0
+		sat	temp[$8]
+		pushi	$3		; z
+		pushi	$2335		; 9013
+		push1
+		push0
+		callk	kernel_29, $6
+		bnot
+		sat	temp[$4]
+		pushi	$3		; z
+		pushi	$2335		; 9013
+		push1
+		push0
+		callk	kernel_28, $6
+		bnot
+		sat	temp[$3]
+		lsp	param[$0]
+		ldi	$3		; z
+		gt?
+		bnt	code_03c0
+		lsp	param[$1]
+		ldi	$0
+		le?
+		bnt	code_0318
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_005b	; "%s: Dead"
+		push
+		lsp	param[$5]
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$5]
+		jmp	code_032d
+
+code_0318:	pushi	$f5		; 245, format
+		pushi	$3		; z
+		lofsa	string_0064	; "%s %d"
+		push
+		lsp	param[$5]
+		lsp	param[$1]
+		class	Str
+		send	$a
+		bnot
+		sat	temp[$5]
+code_032d:	ldi	$0
+		sat	temp[$e]
+		lsp	param[$3]
+		lat	temp[$4]
+		mul
+		sat	temp[$a]
+		pushi	$3		; z
+		push1
+		push2
+		pushi	$9		; inLeft
+		lst	temp[$5]
+		callk	kernel_91, $4
+		bnot
+		push
+		pushi	$3e7		; 999, pUpdatorList
+		callk	kernel_70, $6
+		bnot
+		sat	temp[$6]
+		push
+		lat	temp[$3]
+		gt?
+		bnt	code_035b
+		lst	temp[$6]
+		ldi	$4		; scaleX
+		add
+		sat	temp[$3]
+code_035b:	lsp	param[$4]
+		ldi	$0
+		eq?
+		bnt	code_0380
+		pushi	$87		; 135, left
+		push0
+		push0
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		sat	temp[$8]
+		lag	global[$d3]
+		bnt	code_037a
+		ldi	$f		; 15, loop
+		sat	temp[$e]
+code_037a:	pToa	pLeftBoxSet
+		sat	temp[$c]
+		jmp	code_0398
+
+code_0380:	pushi	$88		; 136, right
+		push0
+		push0
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		lat	temp[$3]
+		sub
+		sat	temp[$8]
+		pToa	pRightBoxSet
+		sat	temp[$c]
+code_0398:	lst	temp[$a]
+		lat	temp[$e]
+		add
+		sat	temp[$9]
+		push
+		lat	temp[$4]
+		add
+		sat	temp[$a]
+		ldi	$0
+		sat	temp[$e]
+		lst	temp[$a]
+		pToa	bottom
+		gt?
+		bnt	code_03cf
+		lat	temp[$a]
+		aTop	bottom
+		ldi	$fe		; 254, strIndex
+		aTop	picture
+		push1
+		pushSelf
+		callk	kernel_42, $2
+		bnot
+		jmp	code_03cf
+
+code_03c0:	pushi	$d0		; 208, with
+		push1
+		lofsa	string_006a	; "Error"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$5]
+code_03cf:	push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$3]
+		lat	temp[$c]
+		send	$6
+		bnot
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_03f4
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$3]
+		lat	temp[$c]
+		send	$6
+		bnot
+		push
+		callk	kernel_31, $2
+		bnot
+code_03f4:	ldi	$0
+		sat	temp[$2]
+		lst	temp[$c]
+		pToa	pEgoBoxSet
+		ne?
+		bnt	code_04ad
+		pushi	$11		; 17, bitmap
+		push1
+		pushi	$5		; scaleY
+		push0
+		lst	temp[$3]
+		ldi	$1
+		add
+		push
+		lst	temp[$4]
+		ldi	$1
+		add
+		push
+		pushi	$ff		; 255, asInteger
+		lsg	global[$54]
+		callk	kernel_35, $a
+		bnot
+		push
+		push1
+		push1
+		lst	temp[$8]
+		push2
+		push1
+		lst	temp[$9]
+		pushi	$7		; priority
+		push1
+		pTos	priority
+		ldi	$1
+		add
+		push
+		pushi	$94		; 148, init
+		push1
+		pTos	pCast
+		pushi	$8d		; 141, new
+		push0
+		class	View
+		send	$4
+		bnot
+		sat	temp[$2]
+		send	$1e
+		bnot
+		pushi	$7		; priority
+		push2
+		pushi	$11		; 17, bitmap
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		push0
+		push0
+		lst	temp[$3]
+		push0
+		pushi	$5		; scaleY
+		callk	kernel_35, $e
+		bnot
+		pushi	$7		; priority
+		push2
+		pushi	$11		; 17, bitmap
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		push0
+		lst	temp[$4]
+		lst	temp[$3]
+		lst	temp[$4]
+		pushi	$5		; scaleY
+		callk	kernel_35, $e
+		bnot
+		pushi	$7		; priority
+		push2
+		pushi	$11		; 17, bitmap
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		push0
+		push0
+		push0
+		lst	temp[$4]
+		pushi	$5		; scaleY
+		callk	kernel_35, $e
+		bnot
+		pushi	$7		; priority
+		push2
+		pushi	$11		; 17, bitmap
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		lst	temp[$3]
+		push0
+		lst	temp[$3]
+		lst	temp[$4]
+		pushi	$5		; scaleY
+		callk	kernel_35, $e
+		bnot
+		pushi	$4b		; 75, 'K', at
+		push2
+		lsp	param[$3]
+		lst	temp[$2]
+		lat	temp[$c]
+		send	$8
+		bnot
+code_04ad:	push1
+		lst	temp[$2]
+		callk	kernel_30, $2
+		bnot
+		ldi	$0
+		sat	temp[$1]
+		lat	temp[$7]
+		bnt	code_0519
+		lsp	param[$3]
+		ldi	$1
+		le?
+		bnt	code_04c9
+		ldi	$2
+		sat	temp[$e]
+		jmp	code_04cd
+
+code_04c9:	ldi	$0
+		sat	temp[$e]
+code_04cd:	lst	temp[$3]
+		lat	temp[$7]
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		push
+		lat	temp[$e]
+		sub
+		sat	temp[$f]
+		push
+		ldi	$1
+		lt?
+		bnt	code_04e6
+		ldi	$1
+		sat	temp[$f]
+code_04e6:	pushi	$5		; scaleY
+		push0
+		lst	temp[$f]
+		lst	temp[$4]
+		ldi	$2
+		sub
+		push
+		pushi	$ff		; 255, asInteger
+		lst	temp[$0]
+		callk	kernel_35, $a
+		bnot
+		sat	temp[$1]
+		pushi	$5		; scaleY
+		pushi	$6		; maxScale
+		pushi	$11		; 17, bitmap
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		push1
+		push1
+		callk	kernel_35, $a
+		bnot
+		push2
+		push1
+		lst	temp[$1]
+		callk	kernel_35, $4
+		bnot
+code_0519:	pushi	$f		; 15, loop
+		pushi	$4		; scaleX
+		pushi	$11		; 17, bitmap
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$5]
+		send	$4
+		bnot
+		push
+		push1
+		pushi	$4		; scaleX
+		lst	temp[$3]
+		lst	temp[$4]
+		pushi	$2b		; 43, '+', type
+		pushi	$ff		; 255, asInteger
+		dup
+		push1
+		push1
+		pushi	$ff		; 255, asInteger
+		push0
+		push0
+		callk	kernel_35, $1e
+		bnot
+		lat	temp[$5]
+		bnt	code_0552
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_0552:	push1
+		lst	temp[$2]
+		callk	kernel_32, $2
+		bnot
+		ret
+
diff --git a/Script/Script40110.txt b/Script/Script40110.txt
new file mode 100644
index 0000000..ea3db1a
--- /dev/null
+++ b/Script/Script40110.txt
@@ -0,0 +1,416 @@
+PicInfoList::init:
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	Set, $4
+		bnot
+		pushi	$9f		; 159, add
+		pushi	$f		; 15, loop
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$3		; z
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$bb8		; 3000, BAD SELECTOR
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$c
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$3		; z
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$bb9		; 3001, BAD SELECTOR
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$c
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$3		; z
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$bc1		; 3009, BAD SELECTOR
+		pushi	$1ae		; 430, horizon
+		push1
+		pushi	$82		; 130, magPower
+		pushi	$472		; 1138, pBackY
+		push1
+		push1
+		pushi	$473		; 1139, pBackSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$470		; 1136, polyList
+		push1
+		pushi	$2b		; 43, '+', type
+		push1
+		push2
+		pushi	$94		; 148, init
+		pushi	$12		; 18, nsLeft
+		push0
+		push0
+		push0
+		pushi	$f7		; 247, cat
+		pushi	$89		; 137, top
+		pushi	$96		; 150, isClass
+		pushi	$105		; 261, setCycle
+		pushi	$83		; 131, mirrored
+		pushi	$166		; 358, dirLoop
+		pushi	$80		; 128, lastKey
+		pushi	$1be		; 446, setSize
+		pushi	$99		; 153, respondsTo
+		pushi	$23f		; 575, eatTheMice
+		pushi	$e3		; 227, expand
+		pushi	$27f		; 639, rename
+		pushi	$109		; 265, timeLeft
+		pushi	$27f		; 639, rename
+		push0
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Polygon
+		send	$4
+		bnot
+		send	$32
+		bnot
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$24
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		push2
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$d4c		; 3404, BAD SELECTOR
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$c
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		push2
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$d4d		; 3405, BAD SELECTOR
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$c
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$a		; 10, inTop
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$bd6		; 3030, BAD SELECTOR
+		pushi	$470		; 1136, polyList
+		push1
+		pushi	$2b		; 43, '+', type
+		push1
+		push2
+		pushi	$94		; 148, init
+		pushi	$a		; 10, inTop
+		push0
+		pushi	$68		; 104, 'h', restart
+		push0
+		pushi	$13c		; 316, putLong
+		pushi	$a0		; 160, firstTrue
+		pushi	$13d		; 317, putArray
+		pushi	$174		; 372, finalY
+		pushi	$68		; 104, 'h', restart
+		push0
+		pushi	$68		; 104, 'h', restart
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Polygon
+		send	$4
+		bnot
+		send	$22
+		bnot
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$12
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$a		; 10, inTop
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$bd7		; 3031, BAD SELECTOR
+		pushi	$470		; 1136, polyList
+		push1
+		pushi	$2b		; 43, '+', type
+		push1
+		push2
+		pushi	$94		; 148, init
+		pushi	$a		; 10, inTop
+		push0
+		pushi	$d5		; 213, compare
+		push0
+		pushi	$13d		; 317, putArray
+		pushi	$280		; 640, disposeWhenDone
+		pushi	$13c		; 316, putLong
+		pushi	$280		; 640, disposeWhenDone
+		pushi	$dc		; 220, posn
+		push0
+		pushi	$d5		; 213, compare
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Polygon
+		send	$4
+		bnot
+		send	$22
+		bnot
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$12
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$a		; 10, inTop
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$bd8		; 3032, BAD SELECTOR
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$c
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$5		; scaleY
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$dac		; 3500, BAD SELECTOR
+		pushi	$1ae		; 430, horizon
+		push1
+		pushi	$64		; 100, 'd', moveDone
+		pushi	$472		; 1138, pBackY
+		push1
+		pushi	$a0		; 160, firstTrue
+		pushi	$473		; 1139, pBackSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$474		; 1140, pFrontY
+		push1
+		pushi	$140		; 320, pHandle
+		pushi	$475		; 1141, pFrontSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$2a
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$6		; maxScale
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$fa0		; 4000, BAD SELECTOR
+		pushi	$1ae		; 430, horizon
+		push1
+		pushi	$5a		; 90, 'Z', size
+		pushi	$472		; 1138, pBackY
+		push1
+		pushi	$a0		; 160, firstTrue
+		pushi	$473		; 1139, pBackSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$474		; 1140, pFrontY
+		push1
+		pushi	$140		; 320, pHandle
+		pushi	$475		; 1141, pFrontSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$2a
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$6		; maxScale
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$fa1		; 4001, BAD SELECTOR
+		pushi	$1ae		; 430, horizon
+		push1
+		pushi	$5a		; 90, 'Z', size
+		pushi	$472		; 1138, pBackY
+		push1
+		pushi	$a0		; 160, firstTrue
+		pushi	$473		; 1139, pBackSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$474		; 1140, pFrontY
+		push1
+		pushi	$140		; 320, pHandle
+		pushi	$475		; 1141, pFrontSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$2a
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$7		; priority
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$c81		; 3201, BAD SELECTOR
+		pushi	$1ae		; 430, horizon
+		push1
+		pushi	$5a		; 90, 'Z', size
+		pushi	$472		; 1138, pBackY
+		push1
+		pushi	$a0		; 160, firstTrue
+		pushi	$473		; 1139, pBackSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$474		; 1140, pFrontY
+		push1
+		pushi	$140		; 320, pHandle
+		pushi	$475		; 1141, pFrontSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$2a
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$8		; fixPriority
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$ce4		; 3300, BAD SELECTOR
+		pushi	$1ae		; 430, horizon
+		push1
+		pushi	$5a		; 90, 'Z', size
+		pushi	$472		; 1138, pBackY
+		push1
+		pushi	$a0		; 160, firstTrue
+		pushi	$473		; 1139, pBackSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$474		; 1140, pFrontY
+		push1
+		pushi	$140		; 320, pHandle
+		pushi	$475		; 1141, pFrontSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$2a
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		pushi	$f		; 15, loop
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$bff		; 3071, BAD SELECTOR
+		pushi	$472		; 1138, pBackY
+		push1
+		pushi	$a0		; 160, firstTrue
+		pushi	$473		; 1139, pBackSize
+		push1
+		pushi	$70		; 112, 'p', coordType
+		pushi	$474		; 1140, pFrontY
+		push1
+		pushi	$140		; 320, pHandle
+		pushi	$475		; 1141, pFrontSize
+		push1
+		pushi	$70		; 112, 'p', coordType
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$24
+		bnot
+		push
+		pushi	$46f		; 1135, roomType
+		push1
+		push1
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$1964		; 6500
+		pushi	$1ae		; 430, horizon
+		push1
+		pushi	$82		; 130, magPower
+		pushi	$472		; 1138, pBackY
+		push1
+		push1
+		pushi	$473		; 1139, pBackSize
+		push1
+		pushi	$50		; 80, 'P', claimed
+		pushi	$8d		; 141, new
+		push0
+		class	PicInfo
+		send	$4
+		bnot
+		send	$1e
+		bnot
+		push
+		self	$22
+		bnot
+		ret
+
diff --git a/Script/Script40111.txt b/Script/Script40111.txt
new file mode 100644
index 0000000..811f86e
--- /dev/null
+++ b/Script/Script40111.txt
@@ -0,0 +1,4654 @@
+export40111_0	= code_20ba
+export40111_1	= WACombatMoveScript
+
+ShowCombatAction::doit:
+		link	$1
+		ldi	$f1		; 241, scale
+		sat	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		class	SpellList
+		send	$4
+		bnot
+		bnt	code_024e
+		lst	temp[$0]
+		ldi	$2
+		or
+		sat	temp[$0]
+code_024e:	pushi	$45		; 69, 'E', doit
+		pushi	$3		; z
+		lofsa	ItemList
+		push
+		lsg	global[$1]
+		lofsa	EdibleCode
+		push
+		lofsa	MakeItemList
+		send	$a
+		bnot
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lofsa	ItemList
+		send	$4
+		bnot
+		bnt	code_0275
+		lst	temp[$0]
+		ldi	$4		; scaleX
+		or
+		sat	temp[$0]
+code_0275:	pushi	$95		; 149, dispose
+		push0
+		lofsa	ItemList
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		pushi	$3		; z
+		lofsa	ItemList
+		push
+		lsg	global[$1]
+		lofsa	UseableCode
+		push
+		lofsa	MakeItemList
+		send	$a
+		bnot
+		pushi	$45		; 69, 'E', doit
+		pushi	$4		; scaleX
+		lofsa	ItemList
+		push
+		lsg	global[$1]
+		lofsa	EquipCode
+		push
+		push0
+		lofsa	MakeItemList
+		send	$c
+		bnot
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lofsa	ItemList
+		send	$4
+		bnot
+		bnt	code_02bc
+		lst	temp[$0]
+		ldi	$8		; fixPriority
+		or
+		sat	temp[$0]
+code_02bc:	pushi	$95		; 149, dispose
+		push0
+		lofsa	ItemList
+		send	$4
+		bnot
+		pushi	$3		; z
+		pushi	$9		; inLeft
+		push2
+		lst	temp[$0]
+		callk	kernel_118, $6
+		bnot
+		ret
+
+BasicCursorController::doit:
+		link	$1
+		pushi	$271		; 625, handsLevel
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		bnt	code_02e4
+		ldi	$ff		; 255, asInteger
+		aTop	pLastCursor
+		ret
+
+code_02e4:	pushi	$f4		; 244, curEvent
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		sat	temp[$0]
+		pushi	$2b		; 43, '+', type
+		push0
+		send	$4
+		bnot
+		not
+		bnt	code_0358
+		pTos	pActiveCursor
+		pToa	pLastCursor
+		ne?
+		bnt	code_0303
+		ldi	$ff		; 255, asInteger
+		aTop	pOnScreen
+code_0303:	pushi	$a3		; 163, contains
+		push1
+		lst	temp[$0]
+		push0
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_0338
+		pTos	pOnScreen
+		ldi	$1
+		ne?
+		bnt	code_0358
+		pushi	$1b3		; 435, setCursor
+		push2
+		pushi	$270d		; 9997
+		pTos	pActiveCursor
+		pushi	$57		; 87, 'W', draw
+		push0
+		lofsa	combatCursor
+		send	$c
+		bnot
+		pToa	pActiveCursor
+		aTop	pLastCursor
+		ldi	$1
+		aTop	pOnScreen
+		jmp	code_0358
+
+code_0338:	pTos	pOnScreen
+		ldi	$0
+		ne?
+		bnt	code_0358
+		pushi	$1b3		; 435, setCursor
+		push2
+		pushi	$270d		; 9997
+		push0
+		pushi	$57		; 87, 'W', draw
+		push0
+		lofsa	combatCursor
+		send	$c
+		bnot
+		pToa	pActiveCursor
+		aTop	pLastCursor
+		ldi	$0
+		aTop	pOnScreen
+code_0358:	ret
+
+CombatDragItem::track:
+		pushi	$b9		; 185, localize
+		push1
+		push0
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pOfsX
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pOfsY
+		pushi	$ba		; 186, globalize
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		pushi	$ec		; 236, track
+		push1
+		lsp	param[$1]
+		super	Button, $6
+		bnot
+		ret
+
+CombatDragItem::trackDoit:
+		pushi	$ba		; 186, globalize
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		pushi	$db		; 219, moveTo
+		push2
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	pOfsX
+		sub
+		push
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	pOfsY
+		sub
+		push
+		push0
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$8
+		bnot
+		push1
+		push0
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		callk	kernel_42, $2
+		bnot
+		ret
+
+cancelButton::doit:
+		ldi	$1
+		sal	local[$a]
+		lal	local[$e]
+		bnt	code_03e0
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$e]
+code_03e0:	ret
+
+HelpText::doit:
+		lal	local[$9]
+		bnt	code_03f0
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$9]
+code_03f0:	lap	param[$1]
+		not
+		bnt	code_03f6
+		ret
+
+code_03f6:	pushi	$11		; 17, bitmap
+		lsp	param[$1]
+		pushi	$64		; 100, 'd', moveDone
+		pushi	$170		; 368, display
+		pushi	$148		; 328, divisions
+		pushi	$6a		; 106, 'j', scaleSignal
+		pushi	$fb		; 251, subStr
+		pushi	$90		; 144, bitGetIndex
+		pushi	$64		; 100, 'd', moveDone
+		pushi	$74		; 116, 't', all
+		lofsa	string_0943	; "Help"
+		push
+		pushi	$91		; 145, bitPutIndex
+		push0
+		pushi	$81		; 129, magnifier
+		lofsa	cancelButton
+		push
+		pushi	$fdea		; -534
+		pushi	$3c		; 60, '<', b_di
+		pushi	$47		; 71, 'G', looper
+		calle	export60029_0, $22
+		bnot
+		sal	local[$9]
+		ret
+
+CastSpell::doit:
+		ldi	$0
+		sal	local[$e]
+		lsp	param[$1]
+		dup
+		ldi	$0
+		eq?
+		bnt	code_0441
+		ldi	$1
+		sal	local[$a]
+		jmp	code_050d
+
+code_0441:	pushi	$2bb		; 699, pType
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$10		; 16, cel
+		and
+		bnt	code_04af
+		pushi	$321		; 801, pID
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sal	local[$b]
+		pushi	$2bb		; 699, pType
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sal	local[$c]
+		push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		pushi	$9		; inLeft
+		pushi	$e		; 14, view
+		lofsa	string_0951	; "tbwppbb"
+		push
+		pushi	$70		; 112, 'p', coordType
+		pushi	$5		; scaleY
+		lsl	local[$b]
+		lsl	local[$d]
+		dup
+		push0
+		push0
+		callk	kernel_128, $12
+		bnot
+		lal	local[$f]
+		bnt	code_049b
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_049b:	push2
+		pushi	$1f		; 31, brBottom
+		pushi	$5		; scaleY
+		callk	kernel_118, $4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		jmp	code_050d
+
+code_04af:	pushi	$2bb		; 699, pType
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		and
+		bnt	code_04df
+		pushi	$321		; 801, pID
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sal	local[$b]
+		pushi	$2bb		; 699, pType
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sal	local[$c]
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$3		; z
+		callk	kernel_118, $4
+		bnot
+		jmp	code_050d
+
+code_04df:	pushi	$2bb		; 699, pType
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$8		; fixPriority
+		and
+		bnt	code_050d
+		pushi	$321		; 801, pID
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sal	local[$b]
+		pushi	$2bb		; 699, pType
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sal	local[$c]
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$3		; z
+		callk	kernel_118, $4
+		bnot
+code_050d:	toss
+		ldi	$1
+		ret
+
+ChooseItemToEat::doit:
+		ldi	$0
+		sal	local[$e]
+		lsp	param[$1]
+		dup
+		ldi	$0
+		eq?
+		bnt	code_0523
+		ldi	$1
+		sal	local[$a]
+		jmp	code_056d
+
+code_0523:	push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		pushi	$5		; scaleY
+		pushi	$e		; 14, view
+		lofsa	string_0963	; "tbp"
+		push
+		pushi	$70		; 112, 'p', coordType
+		pushi	$6		; maxScale
+		pushi	$8c		; 140, scratch
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		callk	kernel_128, $a
+		bnot
+		lal	local[$f]
+		bnt	code_055b
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_055b:	push2
+		pushi	$1f		; 31, brBottom
+		pushi	$5		; scaleY
+		callk	kernel_118, $4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_056d:	toss
+		ldi	$1
+		ret
+
+ChooseItemToEquip::doit:
+		ldi	$0
+		sal	local[$e]
+		lsp	param[$1]
+		dup
+		ldi	$0
+		eq?
+		bnt	code_0583
+		ldi	$1
+		sal	local[$a]
+		jmp	code_05cd
+
+code_0583:	push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		pushi	$5		; scaleY
+		pushi	$e		; 14, view
+		lofsa	string_0963	; "tbp"
+		push
+		pushi	$70		; 112, 'p', coordType
+		pushi	$8		; fixPriority
+		pushi	$8c		; 140, scratch
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		callk	kernel_128, $a
+		bnot
+		lal	local[$f]
+		bnt	code_05bb
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_05bb:	push2
+		pushi	$1f		; 31, brBottom
+		pushi	$5		; scaleY
+		callk	kernel_118, $4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_05cd:	toss
+		ldi	$1
+		ret
+
+ChooseItemToUse::doit:
+		link	$2
+		ldi	$0
+		sal	local[$e]
+		lsp	param[$1]
+		dup
+		ldi	$0
+		eq?
+		bnt	code_05e6
+		ldi	$1
+		sal	local[$a]
+		jmp	code_0686
+
+code_05e6:	push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		pushi	$8c		; 140, scratch
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sap	param[$1]
+		pushi	$45		; 69, 'E', doit
+		push1
+		push
+		lofsa	UseableCode
+		send	$6
+		bnot
+		bnt	code_0653
+		pushi	$35c		; 860, getBase
+		push1
+		class	BUse
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$454		; 1108, pSpell
+		push0
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_0686
+		lap	param[$1]
+		sal	local[$d]
+		pushi	$4b		; 75, 'K', at
+		push1
+		pushi	$454		; 1108, pSpell
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		push2
+		pushi	$9cac		; -25428
+		pushi	$6		; maxScale
+		callk	kernel_2, $4
+		bnot
+		send	$6
+		bnot
+		sat	temp[$1]
+		pushi	$45		; 69, 'E', doit
+		push1
+		push
+		lofsa	CastSpell
+		send	$6
+		bnot
+		jmp	code_0686
+
+code_0653:	pushi	$5		; scaleY
+		pushi	$e		; 14, view
+		lofsa	string_0963	; "tbp"
+		push
+		pushi	$70		; 112, 'p', coordType
+		pushi	$8		; fixPriority
+		lsp	param[$1]
+		callk	kernel_128, $a
+		bnot
+		lal	local[$f]
+		bnt	code_0674
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_0674:	push2
+		pushi	$1f		; 31, brBottom
+		pushi	$5		; scaleY
+		callk	kernel_118, $4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_0686:	toss
+		ldi	$1
+		ret
+
+HandleCombatAction::doit:
+		link	$2
+		lap	param[$1]
+		aTop	scratch
+		push
+		dup
+		ldi	$2bfa		; 11258
+		eq?
+		bnt	code_06c1
+		pushi	$3a6		; 934, stopAction
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		class	gDialogList
+		send	$4
+		bnot
+		pushi	$497		; 1175, exitCombat
+		push1
+		pushSelf
+		lag	global[$6a]
+		send	$6
+		bnot
+		jmp	code_07fb
+
+code_06c1:	dup
+		ldi	$2bf2		; 11250
+		eq?
+		bnt	code_0702
+		push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		pushi	$4		; scaleX
+		pushi	$e		; 14, view
+		lofsa	string_0999	; "tb"
+		push
+		pushi	$70		; 112, 'p', coordType
+		pushi	$4		; scaleX
+		callk	kernel_128, $8
+		bnot
+		lal	local[$f]
+		bnt	code_06f6
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_06f6:	pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		jmp	code_07fb
+
+code_0702:	dup
+		ldi	$2bf9		; 11257
+		eq?
+		bnt	code_0742
+		push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		pushi	$4		; scaleX
+		pushi	$e		; 14, view
+		lofsa	string_0999	; "tb"
+		push
+		pushi	$70		; 112, 'p', coordType
+		push2
+		callk	kernel_128, $8
+		bnot
+		lal	local[$f]
+		bnt	code_0736
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_0736:	pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		jmp	code_07fb
+
+code_0742:	dup
+		ldi	$2bf7		; 11255
+		eq?
+		bnt	code_0758
+		push2
+		pushi	$1f		; 31, brBottom
+		push2
+		callk	kernel_118, $4
+		bnot
+		ldi	$1
+		sal	local[$10]
+		jmp	code_07fb
+
+code_0758:	dup
+		ldi	$2bf8		; 11256
+		eq?
+		bnt	code_076e
+		push2
+		pushi	$1f		; 31, brBottom
+		push2
+		callk	kernel_118, $4
+		bnot
+		ldi	$7		; priority
+		sal	local[$10]
+		jmp	code_07fb
+
+code_076e:	dup
+		ldi	$2bf6		; 11254
+		eq?
+		bnt	code_0781
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$4		; scaleX
+		callk	kernel_118, $4
+		bnot
+		jmp	code_07fb
+
+code_0781:	dup
+		ldi	$2bf4		; 11252
+		eq?
+		bnt	code_07af
+		pushi	$45		; 69, 'E', doit
+		push2
+		lofsa	EdibleCode
+		push
+		lofsa	ChooseItemToEat
+		push
+		lofsa	MakeContainerDialog
+		send	$8
+		bnot
+		bnt	code_07a9
+		pushi	$55d		; 1373, pActiveCursor
+		push1
+		push2
+		class	BasicCursorController
+		send	$6
+		bnot
+		jmp	code_07fb
+
+code_07a9:	ldi	$1
+		sal	local[$a]
+		jmp	code_07fb
+
+code_07af:	dup
+		ldi	$2bf5		; 11253
+		eq?
+		bnt	code_07e2
+		pushi	$45		; 69, 'E', doit
+		pushi	$3		; z
+		lofsa	UseableCode
+		push
+		lofsa	ChooseItemToUse
+		push
+		lofsa	EquipCode
+		push
+		lofsa	MakeContainerDialog
+		send	$a
+		bnot
+		bnt	code_07dc
+		pushi	$55d		; 1373, pActiveCursor
+		push1
+		push2
+		class	BasicCursorController
+		send	$6
+		bnot
+		jmp	code_07fb
+
+code_07dc:	ldi	$1
+		sal	local[$a]
+		jmp	code_07fb
+
+code_07e2:	dup
+		ldi	$2bf3		; 11251
+		eq?
+		bnt	code_07fb
+		lag	global[$1]
+		sal	local[$d]
+		pushi	$3		; z
+		pushi	$e		; 14, view
+		lofsa	CastSpell
+		push
+		pushi	$45		; 69, 'E', doit
+		callk	kernel_118, $6
+		bnot
+code_07fb:	toss
+		ldi	$ff		; 255, asInteger
+		ret
+
+HandleTimerEnd::cue:
+		ldi	$0
+		sal	local[$f]
+		lal	local[$e]
+		bnt	code_0812
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$e]
+code_0812:	push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		pushi	$55d		; 1373, pActiveCursor
+		push1
+		push2
+		class	BasicCursorController
+		send	$6
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push1
+		pushi	$2bf9		; 11257
+		lofsa	HandleCombatAction
+		send	$6
+		bnot
+		ret
+
+GetCombatAction::doit:
+		link	$1
+		pushi	$45		; 69, 'E', doit
+		push0
+		lofsa	ShowCombatAction
+		send	$4
+		bnot
+		pushi	$276		; 630, handsOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$708		; 1800, BAD SELECTOR
+		sat	temp[$0]
+		lsg	global[$ee]
+		dup
+		ldi	$1
+		eq?
+		bnt	code_0861
+		ldi	$12c		; 300, lessEqualLong
+		sat	temp[$0]
+		jmp	code_0893
+
+code_0861:	dup
+		ldi	$2
+		eq?
+		bnt	code_086e
+		ldi	$258		; 600, setOpenRect
+		sat	temp[$0]
+		jmp	code_0893
+
+code_086e:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_087b
+		ldi	$4b0		; 1200, pContainerButton
+		sat	temp[$0]
+		jmp	code_0893
+
+code_087b:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_0888
+		ldi	$708		; 1800, BAD SELECTOR
+		sat	temp[$0]
+		jmp	code_0893
+
+code_0888:	dup
+		ldi	$5		; scaleY
+		eq?
+		bnt	code_0893
+		ldi	$a8c		; 2700, BAD SELECTOR
+		sat	temp[$0]
+code_0893:	toss
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_09be	; "lTurnTimer"
+		push
+		pushi	$107		; 263, setTicks
+		push2
+		lst	temp[$0]
+		lofsa	HandleTimerEnd
+		push
+		class	DisplayTimer
+		send	$8
+		bnot
+		sal	local[$f]
+		send	$6
+		bnot
+		ret
+
+CombatRoom::init:
+		link	$f
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$5		; scaleY
+		callk	kernel_118, $4
+		bnot
+		ldi	$0
+		sal	local[$6]
+		ldi	$0
+		sal	local[$7]
+		ldi	$0
+		sal	local[$8]
+		ldi	$0
+		sal	local[$40]
+		push2
+		pushi	$6		; maxScale
+		dup
+		callk	kernel_118, $4
+		bnot
+		pushi	$55d		; 1373, pActiveCursor
+		push1
+		push0
+		class	BasicCursorController
+		send	$6
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$141		; 321, stop
+		push0
+		class	MusicMgr
+		send	$4
+		bnot
+		push2
+		push0
+		push1
+		callk	kernel_60, $4
+		bnot
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_090d
+		pushi	$33		; 51, '3', play
+		push1
+		lofsa	string_09d9	; "engage1.mid"
+		push
+		class	MusicMgr
+		send	$6
+		bnot
+		jmp	code_091f
+
+code_090d:	dup
+		ldi	$1
+		eq?
+		bnt	code_091f
+		pushi	$33		; 51, '3', play
+		push1
+		lofsa	string_09e5	; "engage2.mid"
+		push
+		class	MusicMgr
+		send	$6
+		bnot
+code_091f:	toss
+		pushi	$b5		; 181, set
+		pushi	$4		; scaleX
+		push0
+		push0
+		pushi	$27f		; 639, rename
+		pushi	$13d		; 317, putArray
+		pToa	plane
+		send	$c
+		bnot
+		pushi	$dd		; 221, moveBy
+		push2
+		push0
+		pushi	$e3		; 227, expand
+		pToa	plane
+		send	$8
+		bnot
+		pushi	$7		; priority
+		push1
+		push2
+		pToa	plane
+		send	$6
+		bnot
+		push1
+		pTos	plane
+		callk	kernel_42, $2
+		bnot
+		ldi	$1
+		aTop	pInitted
+		pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		aTop	pLeftGroup
+		pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		aTop	pRightGroup
+		pushi	$aa		; 170, addToFront
+		push1
+		pushSelf
+		lag	global[$27]
+		send	$6
+		bnot
+		pushi	$94		; 148, init
+		push0
+		pushi	$4a		; 74, 'J', setPri
+		push1
+		pushi	$3e8		; 1000, pUpdateClient
+		pushi	$69		; 105, 'i', hide
+		push0
+		lofsa	GridBox
+		send	$e
+		bnot
+		pushi	$44a		; 1098, pRoomPic
+		push0
+		pToa	pMovieParams
+		send	$4
+		bnot
+		aTop	picture
+		pTos	picture
+		ldi	$fa0		; 4000, BAD SELECTOR
+		eq?
+		bnt	code_099e
+		ldi	$bb8		; 3000, BAD SELECTOR
+		aTop	picture
+code_099e:	pushi	$a1		; 161, firstEqual
+		push2
+		pushi	$6d		; 109, 'm', picture
+		pTos	picture
+		push2
+		pushi	$9cac		; -25428
+		pushi	$5		; scaleY
+		callk	kernel_2, $4
+		bnot
+		send	$8
+		bnot
+		sat	temp[$7]
+		pushi	$1ae		; 430, horizon
+		push1
+		pushi	$1ae		; 430, horizon
+		push0
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		ldi	$0
+		aTop	horizon
+		sat	temp[$0]
+code_09ca:	lst	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$428		; 1064, pLeftGroup
+		push0
+		pToa	pMovieParams
+		send	$4
+		bnot
+		send	$4
+		bnot
+		lt?
+		bnt	code_09fc
+		pushi	$31b		; 795, addCombatant
+		push2
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		pushi	$428		; 1064, pLeftGroup
+		push0
+		pToa	pMovieParams
+		send	$4
+		bnot
+		send	$6
+		bnot
+		push
+		push0
+		self	$8
+		bnot
+		+at	temp[$0]
+		jmp	code_09ca
+
+code_09fc:	ldi	$0
+		sat	temp[$0]
+code_0a00:	lst	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$429		; 1065, pRightGroup
+		push0
+		pToa	pMovieParams
+		send	$4
+		bnot
+		send	$4
+		bnot
+		lt?
+		bnt	code_0a32
+		pushi	$31b		; 795, addCombatant
+		push2
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		pushi	$429		; 1065, pRightGroup
+		push0
+		pToa	pMovieParams
+		send	$4
+		bnot
+		send	$6
+		bnot
+		push
+		push1
+		self	$8
+		bnot
+		+at	temp[$0]
+		jmp	code_0a00
+
+code_0a32:	pushi	$44b		; 1099, pCloudX
+		push0
+		pToa	pMovieParams
+		send	$4
+		bnot
+		aTop	prevX
+		pushi	$44c		; 1100, pCloudY
+		push0
+		pToa	pMovieParams
+		send	$4
+		bnot
+		aTop	prevY
+		pushi	$1bb		; 443, drawPic
+		push1
+		pTos	picture
+		self	$6
+		bnot
+		pushi	$19a		; 410, setScale
+		pushi	$4		; scaleX
+		pushi	$40		; 64, '@', yStep
+		dup
+		pushi	$1e0		; 480, isControl
+		push0
+		self	$c
+		bnot
+		push1
+		pushi	$8c		; 140, scratch
+		push0
+		pToa	pMovieParams
+		send	$4
+		bnot
+		push
+		callk	kernel_60, $2
+		bnot
+		push2
+		pushi	$5		; scaleY
+		pushi	$f		; 15, loop
+		callk	kernel_60, $4
+		bnot
+		sat	temp[$d]
+		ldi	$0
+		sat	temp[$0]
+code_0a7f:	lst	temp[$0]
+		lat	temp[$d]
+		lt?
+		bnt	code_0bc0
+		push2
+		push0
+		pushi	$17		; 23, lsTop
+		callk	kernel_60, $4
+		bnot
+		sat	temp[$9]
+		push2
+		push0
+		pushi	$11		; 17, bitmap
+		callk	kernel_60, $4
+		bnot
+		sat	temp[$a]
+		lst	temp[$9]
+		ldi	$1a		; 26, signal
+		mul
+		sat	temp[$b]
+		lst	temp[$a]
+		ldi	$b		; 11, inRight
+		mul
+		sat	temp[$c]
+		lst	temp[$b]
+		ldi	$d		; 13, seenRect
+		add
+		sat	temp[$b]
+		lst	temp[$c]
+		ldi	$5		; scaleY
+		add
+		sat	temp[$c]
+		pTos	picture
+		dup
+		ldi	$bb8		; 3000, BAD SELECTOR
+		eq?
+		bnt	code_0ad7
+		push2
+		push0
+		push1
+		callk	kernel_60, $4
+		bnot
+		push2
+		pushi	$413		; 1043, pDestLoop
+		pushi	$41b		; 1051, pApproachX
+		callk	kernel_60, $4
+		bnot
+		sat	temp[$e]
+		jmp	code_0b80
+
+code_0ad7:	dup
+		ldi	$d4c		; 3404, BAD SELECTOR
+		eq?
+		bnt	code_0b14
+		push2
+		push0
+		push1
+		callk	kernel_60, $4
+		bnot
+		bnt	code_0b04
+		push2
+		pushi	$427		; 1063, pAutoLock
+		pushi	$429		; 1065, pRightGroup
+		callk	kernel_60, $4
+		bnot
+		sat	temp[$e]
+		push
+		ldi	$429		; 1065, pRightGroup
+		eq?
+		bnt	code_0b80
+		ldi	$450		; 1104, pCombatants
+		sat	temp[$e]
+		jmp	code_0b80
+
+code_0b04:	push2
+		pushi	$9e2		; 2530, BAD SELECTOR
+		pushi	$9e9		; 2537, BAD SELECTOR
+		callk	kernel_60, $4
+		bnot
+		sat	temp[$e]
+		jmp	code_0b80
+
+code_0b14:	dup
+		ldi	$d4d		; 3405, BAD SELECTOR
+		eq?
+		bnt	code_0b50
+		push2
+		push0
+		push1
+		callk	kernel_60, $4
+		bnot
+		bnt	code_0b41
+		push2
+		pushi	$427		; 1063, pAutoLock
+		pushi	$429		; 1065, pRightGroup
+		callk	kernel_60, $4
+		bnot
+		sat	temp[$e]
+		push
+		ldi	$429		; 1065, pRightGroup
+		eq?
+		bnt	code_0b80
+		ldi	$450		; 1104, pCombatants
+		sat	temp[$e]
+		jmp	code_0b80
+
+code_0b41:	push2
+		pushi	$9e2		; 2530, BAD SELECTOR
+		pushi	$9e9		; 2537, BAD SELECTOR
+		callk	kernel_60, $4
+		bnot
+		sat	temp[$e]
+		jmp	code_0b80
+
+code_0b50:	dup
+		ldi	$bff		; 3071, BAD SELECTOR
+		eq?
+		bnt	code_0b6c
+		push2
+		push0
+		push1
+		callk	kernel_60, $4
+		bnot
+		push2
+		push0
+		pushi	$9		; inLeft
+		callk	kernel_60, $4
+		bnot
+		lali	local[$36]
+		sat	temp[$e]
+		jmp	code_0b80
+
+code_0b6c:	push2
+		push0
+		push1
+		callk	kernel_60, $4
+		bnot
+		push2
+		pushi	$413		; 1043, pDestLoop
+		pushi	$41b		; 1051, pApproachX
+		callk	kernel_60, $4
+		bnot
+		sat	temp[$e]
+code_0b80:	toss
+		pushi	$e		; 14, view
+		push1
+		lst	temp[$e]
+		push1
+		push1
+		lst	temp[$b]
+		ldi	$5		; scaleY
+		add
+		push
+		push2
+		push1
+		lst	temp[$c]
+		ldi	$6e		; 110, 'n', resX
+		add
+		push
+		pushi	$19a		; 410, setScale
+		push0
+		pushi	$19d		; 413, setSignal
+		push1
+		pushi	$1000		; 4096, -objID-
+		pushi	$4		; scaleX
+		push1
+		pushi	$40		; 64, '@', yStep
+		pushi	$5		; scaleY
+		push1
+		pushi	$40		; 64, '@', yStep
+		pushi	$94		; 148, init
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Prop
+		send	$4
+		bnot
+		send	$2c
+		bnot
+		+at	temp[$0]
+		jmp	code_0a7f
+
+code_0bc0:	pTos	picture
+		dup
+		ldi	$bb8		; 3000, BAD SELECTOR
+		eq?
+		bnt	code_0bec
+		pushi	$e		; 14, view
+		push1
+		pushi	$4e0		; 1248, pGrabLoop
+		push1
+		push1
+		push0
+		push2
+		push1
+		push1
+		pushi	$3		; z
+		push1
+		push1
+		pushi	$94		; 148, init
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	View
+		send	$4
+		bnot
+		send	$1c
+		bnot
+		jmp	code_0c3c
+
+code_0bec:	dup
+		ldi	$bb9		; 3001, BAD SELECTOR
+		eq?
+		bnt	code_0c15
+		pushi	$e		; 14, view
+		push1
+		pushi	$4e1		; 1249, pGrabAction
+		push1
+		push1
+		push0
+		push2
+		push1
+		push1
+		pushi	$3		; z
+		push1
+		push1
+		pushi	$94		; 148, init
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	View
+		send	$4
+		bnot
+		send	$1c
+		bnot
+		jmp	code_0c3c
+
+code_0c15:	dup
+		ldi	$fa0		; 4000, BAD SELECTOR
+		eq?
+		bnt	code_0c3c
+		pushi	$e		; 14, view
+		push1
+		pushi	$4e0		; 1248, pGrabLoop
+		push1
+		push1
+		push0
+		push2
+		push1
+		push1
+		pushi	$3		; z
+		push1
+		push1
+		pushi	$94		; 148, init
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	View
+		send	$4
+		bnot
+		send	$1c
+		bnot
+code_0c3c:	toss
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$94		; 148, init
+		lofsa	LocatorList
+		send	$6
+		bnot
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$63		; 99, 'c', perform
+		lofsa	LocatorList
+		send	$6
+		bnot
+		ldi	$0
+		aTop	pMovieParams
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		class	WinDialogSet
+		send	$6
+		bnot
+		pushi	$c9		; 201, setScript
+		push1
+		pushi	$8d		; 141, new
+		push0
+		lofsa	ReadyingForCombatScript
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		ret
+
+CombatRoom::dispose:
+		link	$2
+		push2
+		pushi	$1f		; 31, brBottom
+		push1
+		callk	kernel_118, $4
+		bnot
+		lal	local[$f]
+		bnt	code_0c90
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_0c90:	pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		class	WinDialogSet
+		send	$6
+		bnot
+		push2
+		pushi	$9		; inLeft
+		pushi	$5		; scaleY
+		callk	kernel_118, $4
+		bnot
+		push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push2
+		pushi	$6		; maxScale
+		pushi	$7		; priority
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		pushi	$2c4		; 708, pRestart
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		not
+		bnt	code_0ccf
+		pushi	$55f		; 1375, restoreCombatant
+		push1
+		lsg	global[$1]
+		self	$6
+		bnot
+code_0ccf:	pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		lag	global[$27]
+		send	$6
+		bnot
+		pushi	$a6		; 166, release
+		push0
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pLeftGroup
+		send	$8
+		bnot
+		pushi	$a6		; 166, release
+		push0
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pRightGroup
+		send	$8
+		bnot
+		ldi	$0
+		aTop	pRightGroup
+		aTop	pLeftGroup
+		pToa	pServID
+		bnt	code_0d07
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pServID
+code_0d07:	pushi	$45		; 69, 'E', doit
+		push0
+		class	RestoreMusic
+		send	$4
+		bnot
+		ldi	$0
+		sag	global[$eb]
+		pushi	$95		; 149, dispose
+		push0
+		super	NetRoom, $4
+		bnot
+		ret
+
+CombatRoom::delete:
+		pushi	$2c4		; 708, pRestart
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		not
+		bnt	code_0d33
+		pushi	$31c		; 796, delCombatant
+		push1
+		lsp	param[$1]
+		&rest	$2
+		self	$6
+		bnot
+code_0d33:	pushi	$58		; 88, 'X', delete
+		push1
+		lsp	param[$1]
+		&rest	$2
+		super	NetRoom, $6
+		bnot
+		ret
+
+CombatRoom::endCombatMode:
+		link	$2
+		push2
+		pushi	$9		; inLeft
+		pushi	$4		; scaleX
+		callk	kernel_118, $4
+		bnot
+		push2
+		pushi	$1f		; 31, brBottom
+		push1
+		callk	kernel_118, $4
+		bnot
+		ldi	$0
+		sat	temp[$0]
+code_0d56:	lst	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		lt?
+		bnt	code_0dd6
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$1]
+		pushi	$4cc		; 1228, pFriend
+		push1
+		push0
+		send	$6
+		bnot
+		pushi	$3ec		; 1004, pAction
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1c		; 28, brLeft
+		ne?
+		bnt	code_0dd1
+		pushi	$3a6		; 934, stopAction
+		push0
+		pushi	$3bb		; 955, clearMode
+		push1
+		push2
+		pushi	$3ba		; 954, setMode
+		push1
+		pushi	$4		; scaleX
+		pushi	$373		; 883, setAction
+		push1
+		push1
+		lat	temp[$1]
+		send	$16
+		bnot
+		pushi	$36a		; 874, updateDisplay
+		push1
+		push1
+		lat	temp[$1]
+		send	$6
+		bnot
+		lst	temp[$1]
+		lag	global[$1]
+		eq?
+		bnt	code_0dd1
+		pushi	$33		; 51, '3', play
+		push1
+		lofsa	string_09f1	; "victory.mid"
+		push
+		class	MusicMgr
+		send	$6
+		bnot
+		pushi	$69		; 105, 'i', hide
+		push0
+		lofsa	GridBox
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lofsa	SpellBtnList
+		send	$4
+		bnot
+code_0dd1:	+at	temp[$0]
+		jmp	code_0d56
+
+code_0dd6:	ldi	$1
+		sal	local[$4]
+		ret
+
+CombatRoom::doit:
+		link	$5
+		pushi	$45		; 69, 'E', doit
+		push0
+		super	NetRoom, $4
+		bnot
+		push2
+		pushi	$1f		; 31, brBottom
+		push0
+		callk	kernel_118, $4
+		bnot
+		sat	temp[$3]
+		lal	local[$a]
+		bnt	code_0e0a
+		pushi	$55d		; 1373, pActiveCursor
+		push1
+		push0
+		class	BasicCursorController
+		send	$6
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		lofsa	ShowCombatAction
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$a]
+code_0e0a:	pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_0e22
+		pushi	$45		; 69, 'E', doit
+		push0
+		class	BasicCursorController
+		send	$4
+		bnot
+code_0e22:	pushi	$f4		; 244, curEvent
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		sat	temp[$4]
+		push1
+		push1
+		push1
+		push0
+		send	$4
+		bnot
+		push
+		push2
+		push1
+		push2
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		pushi	$2b		; 43, '+', type
+		push1
+		pushi	$2b		; 43, '+', type
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		lofsa	CombatEvent
+		send	$12
+		bnot
+		push2
+		lofsa	CombatEvent
+		push
+		pTos	plane
+		callk	kernel_81, $4
+		bnot
+		pushi	$2b		; 43, '+', type
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		bnt	code_0e6b
+		ldi	$0
+		jmp	code_0f86
+
+code_0e6b:	pToa	script
+		bnt	code_0e74
+		ldi	$0
+		jmp	code_0f86
+
+code_0e74:	pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_0f7d
+		pushi	$271		; 625, handsLevel
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		not
+		bnt	code_0f7d
+		lst	temp[$3]
+		ldi	$4		; scaleX
+		eq?
+		bt	code_0ea5
+		lst	temp[$3]
+		ldi	$3		; z
+		eq?
+		bnt	code_0f7d
+		lsl	local[$c]
+		ldi	$8		; fixPriority
+		and
+code_0ea5:	bnt	code_0f7d
+		pushi	$564		; 1380, getGridX
+		push1
+		push1
+		push0
+		lofsa	CombatEvent
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		sal	local[$2]
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_0f7d
+		pushi	$565		; 1381, getGridY
+		push1
+		push2
+		push0
+		lofsa	CombatEvent
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		sal	local[$3]
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_0f7d
+		push1
+		push0
+		lofsa	GridBox
+		send	$4
+		bnot
+		push
+		pushi	$562		; 1378, getXFromGrid
+		push1
+		lsl	local[$2]
+		self	$6
+		bnot
+		ne?
+		bt	code_0f02
+		push2
+		push0
+		lofsa	GridBox
+		send	$4
+		bnot
+		push
+		pushi	$563		; 1379, getYFromGrid
+		push1
+		lsl	local[$3]
+		self	$6
+		bnot
+		ne?
+code_0f02:	bnt	code_0f22
+		pushi	$dc		; 220, posn
+		push2
+		pushi	$562		; 1378, getXFromGrid
+		push1
+		lsl	local[$2]
+		self	$6
+		bnot
+		push
+		pushi	$563		; 1379, getYFromGrid
+		push1
+		lsl	local[$3]
+		self	$6
+		bnot
+		push
+		lofsa	GridBox
+		send	$8
+		bnot
+code_0f22:	pushi	$560		; 1376, isLegalMove
+		pushi	$3		; z
+		lsg	global[$1]
+		lsl	local[$2]
+		lsl	local[$3]
+		self	$a
+		bnot
+		bt	code_0f40
+		pushi	$f		; 15, loop
+		push0
+		lofsa	combatCursor
+		send	$4
+		bnot
+		push
+		ldi	$2
+		eq?
+code_0f40:	bnt	code_0f48
+		ldi	$0
+		sat	temp[$2]
+		jmp	code_0f4c
+
+code_0f48:	ldi	$1
+		sat	temp[$2]
+code_0f4c:	lst	temp[$2]
+		pushi	$10		; 16, cel
+		push0
+		lofsa	GridBox
+		send	$4
+		bnot
+		ne?
+		bnt	code_0f65
+		pushi	$10		; 16, cel
+		push1
+		lst	temp[$2]
+		lofsa	GridBox
+		send	$6
+		bnot
+code_0f65:	pushi	$7		; priority
+		push1
+		push0
+		callk	kernel_44, $0
+		bnot
+		push
+		ldi	$1
+		add
+		push
+		pushi	$75		; 117, 'u', show
+		push0
+		lofsa	GridBox
+		send	$a
+		bnot
+		jmp	code_0f86
+
+code_0f7d:	pushi	$69		; 105, 'i', hide
+		push0
+		lofsa	GridBox
+		send	$4
+		bnot
+code_0f86:	ret
+
+CombatRoom::handleEvent:
+		link	$2
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push0
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$100		; 256, strMax
+		eq?
+		bnt	code_0fc1
+		pushi	$31		; 49, '1', message
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$8		; fixPriority
+		eq?
+		bnt	code_0fc1
+		pushi	$45		; 69, 'E', doit
+		push1
+		pushi	$48		; 72, 'H', modifiers
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		lofsa	HandleCombatAction
+		send	$6
+		bnot
+code_0fc1:	pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_1364
+		pushi	$632		; 1586, pHealthHi
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$0
+		ge?
+		bnt	code_1364
+		pushi	$406		; 1030, pHealth
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bnt	code_1364
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		eq?
+		bnt	code_133a
+		pushi	$48		; 72, 'H', modifiers
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_133a
+		pushi	$b9		; 185, localize
+		push1
+		pTos	plane
+		lap	param[$1]
+		send	$6
+		bnot
+		push2
+		pushi	$1f		; 31, brBottom
+		push0
+		callk	kernel_118, $4
+		bnot
+		push
+		dup
+		ldi	$2
+		eq?
+		bnt	code_10d8
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$58		; 88, 'X', delete
+		push1
+		lsg	global[$1]
+		pToa	pWObjectList
+		send	$6
+		bnot
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	pWObjectList
+		send	$a
+		bnot
+		sat	temp[$1]
+		pushi	$9f		; 159, add
+		push1
+		lsg	global[$1]
+		pToa	pWObjectList
+		send	$6
+		bnot
+		lat	temp[$1]
+		bnt	code_132b
+		pushi	$3ec		; 1004, pAction
+		push0
+		send	$4
+		bnot
+		push
+		ldi	$1c		; 28, brLeft
+		ne?
+		bnt	code_132b
+		pushi	$2cb		; 715, pServIDLo
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		bt	code_1090
+		pushi	$2cc		; 716, pServIDHi
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+code_1090:	bnt	code_132b
+		pushi	$5		; scaleY
+		pushi	$e		; 14, view
+		lofsa	string_0963	; "tbp"
+		push
+		pushi	$70		; 112, 'p', coordType
+		lsl	local[$10]
+		lst	temp[$1]
+		callk	kernel_128, $a
+		bnot
+		lal	local[$f]
+		bnt	code_10b4
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_10b4:	push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$5		; scaleY
+		callk	kernel_118, $4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		jmp	code_132b
+
+code_10d8:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_1288
+		lsl	local[$c]
+		ldi	$8		; fixPriority
+		and
+		bnt	code_1154
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		lsl	local[$2]
+		ldi	$0
+		lt?
+		bt	code_10fc
+		lsl	local[$3]
+		ldi	$0
+		lt?
+code_10fc:	bnt	code_1107
+		pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+
+code_1107:	pushi	$9		; inLeft
+		pushi	$e		; 14, view
+		lofsa	string_0951	; "tbwppbb"
+		push
+		pushi	$70		; 112, 'p', coordType
+		pushi	$5		; scaleY
+		lsl	local[$b]
+		lsl	local[$d]
+		lsg	global[$1]
+		lsl	local[$2]
+		lsl	local[$3]
+		callk	kernel_128, $12
+		bnot
+		lal	local[$f]
+		bnt	code_1130
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_1130:	push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$5		; scaleY
+		callk	kernel_118, $4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		jmp	code_132b
+
+code_1154:	pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		ldi	$0
+		sat	temp[$1]
+		not
+		bnt	code_11b5
+		lsl	local[$c]
+		ldi	$20		; 32, ' ', name
+		and
+		bnt	code_11b5
+		lag	global[$db]
+		bnt	code_1195
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	pLeftGroup
+		send	$a
+		bnot
+		sat	temp[$1]
+		jmp	code_11b5
+
+code_1195:	pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	pRightGroup
+		send	$a
+		bnot
+		sat	temp[$1]
+code_11b5:	lat	temp[$1]
+		not
+		bnt	code_120b
+		lsl	local[$c]
+		ldi	$40		; 64, '@', yStep
+		and
+		bnt	code_120b
+		lag	global[$db]
+		bnt	code_11eb
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	pRightGroup
+		send	$a
+		bnot
+		sat	temp[$1]
+		jmp	code_120b
+
+code_11eb:	pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	pLeftGroup
+		send	$a
+		bnot
+		sat	temp[$1]
+code_120b:	lat	temp[$1]
+		bnt	code_132b
+		pushi	$3ec		; 1004, pAction
+		push0
+		send	$4
+		bnot
+		push
+		ldi	$1c		; 28, brLeft
+		ne?
+		bnt	code_132b
+		pushi	$2cb		; 715, pServIDLo
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		bt	code_123a
+		pushi	$2cc		; 716, pServIDHi
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+code_123a:	bnt	code_132b
+		pushi	$9		; inLeft
+		pushi	$e		; 14, view
+		lofsa	string_0951	; "tbwppbb"
+		push
+		pushi	$70		; 112, 'p', coordType
+		pushi	$5		; scaleY
+		lsl	local[$b]
+		lsl	local[$d]
+		lst	temp[$1]
+		push0
+		push0
+		callk	kernel_128, $12
+		bnot
+		lal	local[$f]
+		bnt	code_1264
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_1264:	push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$5		; scaleY
+		callk	kernel_118, $4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		jmp	code_132b
+
+code_1288:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_132b
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$10		; 16, cel
+		push0
+		lofsa	GridBox
+		send	$4
+		bnot
+		push
+		ldi	$0
+		eq?
+		bnt	code_132b
+		pushi	$17c		; 380, isNotHidden
+		push0
+		lofsa	GridBox
+		send	$4
+		bnot
+		bnt	code_132b
+		pushi	$564		; 1380, getGridX
+		push1
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		sal	local[$0]
+		pushi	$565		; 1381, getGridY
+		push1
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		sal	local[$1]
+		pushi	$560		; 1376, isLegalMove
+		pushi	$3		; z
+		lsg	global[$1]
+		lsl	local[$0]
+		push
+		self	$a
+		bnot
+		bnt	code_132b
+		pushi	$6		; maxScale
+		pushi	$e		; 14, view
+		lofsa	string_09fd	; "tbbb"
+		push
+		pushi	$70		; 112, 'p', coordType
+		push0
+		lsl	local[$0]
+		lsl	local[$1]
+		callk	kernel_128, $c
+		bnot
+		lal	local[$f]
+		bnt	code_130a
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$f]
+code_130a:	push2
+		pushi	$9		; inLeft
+		push1
+		callk	kernel_118, $4
+		bnot
+		push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		push2
+		pushi	$1f		; 31, brBottom
+		pushi	$5		; scaleY
+		callk	kernel_118, $4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_132b:	toss
+		pushi	$ba		; 186, globalize
+		push1
+		pTos	plane
+		lap	param[$1]
+		send	$6
+		bnot
+		jmp	code_1364
+
+code_133a:	lal	local[$9]
+		bnt	code_1364
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_1364
+		pushi	$31		; 49, '1', message
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1b		; 27, illegalBits
+		eq?
+		bnt	code_1364
+		pushi	$45		; 69, 'E', doit
+		push0
+		lofsa	ShowCombatAction
+		send	$4
+		bnot
+code_1364:	pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+
+CombatRoom::addCombatant:
+		lsp	param[$2]
+		ldi	$0
+		eq?
+		bnt	code_1381
+		pushi	$9f		; 159, add
+		push1
+		lsp	param[$1]
+		pToa	pLeftGroup
+		send	$6
+		bnot
+		jmp	code_138c
+
+code_1381:	pushi	$9f		; 159, add
+		push1
+		lsp	param[$1]
+		pToa	pRightGroup
+		send	$6
+		bnot
+code_138c:	ret
+
+CombatRoom::delCombatant:
+		pToa	pLeftGroup
+		bnt	code_13c1
+		pushi	$a3		; 163, contains
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		bnt	code_13aa
+		pushi	$58		; 88, 'X', delete
+		push1
+		lsp	param[$1]
+		pToa	pLeftGroup
+		send	$6
+		bnot
+		jmp	code_13c1
+
+code_13aa:	pushi	$a3		; 163, contains
+		push1
+		lsp	param[$1]
+		pToa	pRightGroup
+		send	$6
+		bnot
+		bnt	code_13c1
+		pushi	$58		; 88, 'X', delete
+		push1
+		lsp	param[$1]
+		pToa	pRightGroup
+		send	$6
+		bnot
+code_13c1:	ret
+
+CombatRoom::restoreCombatant:
+		link	$4
+code_13c4:	pushi	$a0		; 160, firstTrue
+		push2
+		pushi	$97		; 151, isKindOf
+		class	Pile of Stuff
+		push
+		pToa	pWObjectList
+		send	$8
+		bnot
+		sat	temp[$2]
+		bnt	code_13e1
+		pushi	$46b		; 1131, unMakePile
+		push0
+		send	$4
+		bnot
+		jmp	code_13c4
+
+code_13e1:	pushi	$b1		; 177, duplicate
+		push0
+		pToa	pWObjectList
+		send	$4
+		bnot
+		sat	temp[$1]
+		ldi	$0
+		sat	temp[$3]
+code_13f0:	lst	temp[$3]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		lt?
+		bnt	code_141d
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$3]
+		lat	temp[$1]
+		send	$6
+		bnot
+		sat	temp[$2]
+		push
+		lag	global[$1]
+		ne?
+		bnt	code_1419
+		pushi	$3e0		; 992, setVisible
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+code_1419:	+at	temp[$3]
+		jmp	code_13f0
+
+code_141d:	pushi	$4b		; 75, 'K', at
+		push1
+		push0
+		pushi	$2c1		; 705, pRoomList
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$3c6		; 966, deleteFromRoom
+		lat	temp[$1]
+		send	$6
+		bnot
+		pushi	$9d		; 157, eachElementDo
+		push2
+		pushi	$3c5		; 965, addToRoom
+		lst	temp[$0]
+		lat	temp[$1]
+		send	$8
+		bnot
+		pushi	$a6		; 166, release
+		push0
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$8
+		bnot
+		ret
+
+CombatRoom::isLegalMove:
+		link	$7
+		ldi	$0
+		sat	temp[$0]
+code_145d:	lst	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pLeftGroup
+		send	$4
+		bnot
+		lt?
+		bnt	code_14ae
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		pToa	pLeftGroup
+		send	$6
+		bnot
+		sat	temp[$3]
+		push
+		lap	param[$1]
+		ne?
+		bnt	code_14aa
+		push1
+		lst	temp[$3]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_14aa
+		lsp	param[$2]
+		pushi	$43b		; 1083, pCombatX
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		eq?
+		bnt	code_14aa
+		lsp	param[$3]
+		pushi	$43c		; 1084, pCombatY
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		eq?
+		bnt	code_14aa
+		ldi	$0
+		ret
+
+code_14aa:	+at	temp[$0]
+		jmp	code_145d
+
+code_14ae:	ldi	$0
+		sat	temp[$0]
+code_14b2:	lst	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pRightGroup
+		send	$4
+		bnot
+		lt?
+		bnt	code_1504
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		pToa	pRightGroup
+		send	$6
+		bnot
+		sat	temp[$3]
+		push
+		lap	param[$1]
+		ne?
+		bnt	code_1500
+		push1
+		lst	temp[$3]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_1500
+		lsp	param[$2]
+		pushi	$43b		; 1083, pCombatX
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		eq?
+		bnt	code_1500
+		lsp	param[$3]
+		pushi	$43c		; 1084, pCombatY
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		eq?
+		bnt	code_1500
+		ldi	$0
+		ret
+
+code_1500:	+at	temp[$0]
+		jmp	code_14b2
+
+code_1504:	pushi	$564		; 1380, getGridX
+		push1
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		sat	temp[$1]
+		pushi	$565		; 1381, getGridY
+		push1
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		sat	temp[$2]
+		ldi	$1
+		ret
+
+CombatRoom::posnOnGrid:
+		pushi	$dc		; 220, posn
+		push2
+		pushi	$562		; 1378, getXFromGrid
+		push1
+		lsp	param[$2]
+		self	$6
+		bnot
+		push
+		ldi	$d		; 13, seenRect
+		add
+		push
+		pushi	$563		; 1379, getYFromGrid
+		push1
+		lsp	param[$3]
+		self	$6
+		bnot
+		push
+		ldi	$5		; scaleY
+		add
+		push
+		lap	param[$1]
+		send	$8
+		bnot
+		ret
+
+CombatRoom::getXFromGrid:
+		pushi	$5		; scaleY
+		lsp	param[$1]
+		ldi	$1a		; 26, signal
+		mul
+		add
+		ret
+
+CombatRoom::getYFromGrid:
+		pushi	$6e		; 110, 'n', resX
+		lsp	param[$1]
+		ldi	$b		; 11, inRight
+		mul
+		add
+		ret
+
+CombatRoom::getGridX:
+		pushi	$275		; 629, notify
+		lap	param[$1]
+		ge?
+		bnt	code_157c
+		pprev
+		ldi	$5		; scaleY
+		ge?
+		bnt	code_157c
+		lsp	param[$1]
+		ldi	$5		; scaleY
+		sub
+		push
+		ldi	$1a		; 26, signal
+		div
+		ret
+
+		jmp	code_157f
+
+code_157c:	ldi	$ff		; 255, asInteger
+		ret
+
+code_157f:	ret
+
+CombatRoom::getGridY:
+		pushi	$134		; 308, getByte
+		lap	param[$1]
+		ge?
+		bnt	code_159b
+		pprev
+		ldi	$6e		; 110, 'n', resX
+		ge?
+		bnt	code_159b
+		lsp	param[$1]
+		ldi	$6e		; 110, 'n', resX
+		sub
+		push
+		ldi	$b		; 11, inRight
+		div
+		ret
+
+		jmp	code_159e
+
+code_159b:	ldi	$ff		; 255, asInteger
+		ret
+
+code_159e:	ret
+
+CombatRoom::getGridNum:
+		link	$2
+		ldi	$ff		; 255, asInteger
+		sat	temp[$0]
+		pushi	$f4		; 244, curEvent
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		sat	temp[$1]
+		push1
+		push1
+		push1
+		push0
+		send	$4
+		bnot
+		push
+		push2
+		push1
+		push2
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pushi	$2b		; 43, '+', type
+		push1
+		pushi	$2b		; 43, '+', type
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		lofsa	CombatEvent
+		send	$12
+		bnot
+		push2
+		lofsa	CombatEvent
+		push
+		pTos	plane
+		callk	kernel_81, $4
+		bnot
+		push2
+		push0
+		lofsa	CombatEvent
+		send	$4
+		bnot
+		push
+		ldi	$6e		; 110, 'n', resX
+		ge?
+		bnt	code_1611
+		pushi	$18		; 24, lsRight
+		push2
+		push0
+		lofsa	CombatEvent
+		send	$4
+		bnot
+		push
+		ldi	$6e		; 110, 'n', resX
+		sub
+		mul
+		push
+		ldi	$b		; 11, inRight
+		div
+		push
+		push1
+		push0
+		lofsa	CombatEvent
+		send	$4
+		bnot
+		push
+		ldi	$1a		; 26, signal
+		div
+		add
+		sat	temp[$0]
+code_1611:	lat	temp[$0]
+		ret
+
+ReadyingForCombatScript::handleError:
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_1631
+		push1
+		lofsa	string_0a0d	; "Error in starting combat."
+		push
+		calle	export60029_0, $2
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		pToa	client
+		send	$4
+		bnot
+code_1631:	ret
+
+ReadyingForCombatScript::dispose:
+		lal	local[$40]
+		not
+		bnt	code_1640
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_1640:	pushi	$95		; 149, dispose
+		push0
+		super	Script, $4
+		bnot
+		ret
+
+ReadyingForCombatScript::changeState:
+		link	$5
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_1915
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	CombatWaitText
+		send	$4
+		bnot
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$4]
+		ldi	$0
+		sal	local[$5]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$428		; 1064, pLeftGroup
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		not
+		bt	code_169c
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$429		; 1065, pRightGroup
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		not
+code_169c:	bnt	code_16bd
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		push1
+		lofsa	string_0a27	; "Error in starting combat. No opponents."
+		push
+		calle	export60029_0, $2
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		pToa	client
+		send	$4
+		bnot
+code_16bd:	pushi	$d0		; 208, with
+		push1
+		lofsa	string_0a4f	; "Waiting to start combat...\n"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$3]
+		pushi	$9f		; 159, add
+		push1
+		push
+		lag	global[$9c]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		pushi	$94		; 148, init
+		push1
+		lsg	global[$1]
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push1
+		push1
+		push2
+		pushi	$9ca5		; -25435
+		pushi	$16		; 22, lsLeft
+		callk	kernel_2, $4
+		bnot
+		send	$6
+		bnot
+		send	$a
+		bnot
+		push
+		pushi	$3f6		; 1014, pOutgoingMovie
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		lag	global[$1]
+		send	$6
+		bnot
+		ldi	$0
+		sat	temp[$0]
+code_171d:	lst	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$428		; 1064, pLeftGroup
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		lt?
+		bnt	code_17f7
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		pushi	$428		; 1064, pLeftGroup
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		sat	temp[$1]
+		bnt	code_17f2
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		send	$4
+		bnot
+		bnt	code_17df
+		pushi	$128		; 296, equalLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_17df
+		pushi	$561		; 1377, posnOnGrid
+		pushi	$3		; z
+		lst	temp[$1]
+		pushi	$43b		; 1083, pCombatX
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pushi	$43c		; 1084, pCombatY
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pToa	client
+		send	$a
+		bnot
+		pushi	$f		; 15, loop
+		push1
+		push0
+		pushi	$105		; 261, setCycle
+		push1
+		class	End
+		push
+		pushi	$373		; 883, setAction
+		push1
+		push1
+		lst	temp[$1]
+		call	code_20b9, $2
+		bnot
+		push
+		pushi	$4cc		; 1228, pFriend
+		push1
+		pushi	$a3		; 163, contains
+		push1
+		lsg	global[$1]
+		pushi	$428		; 1064, pLeftGroup
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_17c4
+		ldi	$1
+		jmp	code_17c6
+
+code_17c4:	ldi	$0
+code_17c6:	push
+		lat	temp[$1]
+		send	$18
+		bnot
+		pushi	$3c5		; 965, addToRoom
+		push1
+		pTos	client
+		pushi	$36a		; 874, updateDisplay
+		push1
+		push1
+		lat	temp[$1]
+		send	$c
+		bnot
+		jmp	code_17f2
+
+code_17df:	pushi	$58		; 88, 'X', delete
+		push1
+		lst	temp[$1]
+		pushi	$428		; 1064, pLeftGroup
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		-at	temp[$0]
+code_17f2:	+at	temp[$0]
+		jmp	code_171d
+
+code_17f7:	ldi	$0
+		sat	temp[$0]
+code_17fb:	lst	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$429		; 1065, pRightGroup
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		lt?
+		bnt	code_18d5
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		pushi	$429		; 1065, pRightGroup
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		sat	temp[$1]
+		bnt	code_18d0
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		send	$4
+		bnot
+		bnt	code_18bd
+		pushi	$128		; 296, equalLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_18bd
+		pushi	$561		; 1377, posnOnGrid
+		pushi	$3		; z
+		lst	temp[$1]
+		pushi	$43b		; 1083, pCombatX
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pushi	$43c		; 1084, pCombatY
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pToa	client
+		send	$a
+		bnot
+		pushi	$f		; 15, loop
+		push1
+		push1
+		pushi	$105		; 261, setCycle
+		push1
+		class	End
+		push
+		pushi	$373		; 883, setAction
+		push1
+		push1
+		lst	temp[$1]
+		call	code_20b9, $2
+		bnot
+		push
+		pushi	$4cc		; 1228, pFriend
+		push1
+		pushi	$a3		; 163, contains
+		push1
+		lsg	global[$1]
+		pushi	$429		; 1065, pRightGroup
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_18a2
+		ldi	$1
+		jmp	code_18a4
+
+code_18a2:	ldi	$0
+code_18a4:	push
+		lat	temp[$1]
+		send	$18
+		bnot
+		pushi	$3c5		; 965, addToRoom
+		push1
+		pTos	client
+		pushi	$36a		; 874, updateDisplay
+		push1
+		push1
+		lat	temp[$1]
+		send	$c
+		bnot
+		jmp	code_18d0
+
+code_18bd:	pushi	$58		; 88, 'X', delete
+		push1
+		lst	temp[$1]
+		pushi	$429		; 1065, pRightGroup
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		-at	temp[$0]
+code_18d0:	+at	temp[$0]
+		jmp	code_17fb
+
+code_18d5:	pushi	$d0		; 208, with
+		push1
+		lofsa	string_0a6b	; "Combat begins!\n"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$3]
+		pushi	$9f		; 159, add
+		push1
+		push
+		lag	global[$9c]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$33e		; 830, pHandleActions
+		push1
+		push1
+		class	ActionQMgr
+		send	$6
+		bnot
+		ldi	$1
+		sal	local[$40]
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_1915:	toss
+		ret
+
+WANetCombatMoveScript::handleError:
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetCombatMoveScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_1951
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pHandsOff
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		class	WAReady
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_19e1
+
+code_1951:	dup
+		ldi	$1
+		eq?
+		bnt	code_19cf
+		lag	global[$db]
+		bnt	code_19a1
+		pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_19a1
+		pushi	$a3		; 163, contains
+		push1
+		push2
+		pushi	$a410		; -23536
+		push1
+		callk	kernel_2, $4
+		bnot
+		push
+		lag	global[$6]
+		send	$6
+		bnot
+		bnt	code_19a1
+		pushi	$486		; 1158, swapIcons
+		push2
+		push2
+		pushi	$a410		; -23536
+		push1
+		callk	kernel_2, $4
+		bnot
+		push
+		push2
+		pushi	$a410		; -23536
+		pushi	$3		; z
+		callk	kernel_2, $4
+		bnot
+		push
+		lag	global[$6]
+		send	$8
+		bnot
+code_19a1:	pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_19c8
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$56a		; 1386, combatMove
+		pushi	$3		; z
+		lsl	local[$0]
+		lsl	local[$1]
+		pushSelf
+		lag	global[$6a]
+		send	$a
+		bnot
+		jmp	code_19e1
+
+code_19c8:	ldi	$1
+		aTop	cycles
+		jmp	code_19e1
+
+code_19cf:	dup
+		ldi	$2
+		eq?
+		bnt	code_19e1
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_19e1:	toss
+		ret
+
+MakeItemList::doit:
+		link	$4
+		lsp	param[$0]
+		ldi	$4		; scaleX
+		lt?
+		bt	code_19ee
+		lap	param[$4]
+code_19ee:	bnt	code_19fa
+		pushi	$a6		; 166, release
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+code_19fa:	pushi	$35c		; 860, getBase
+		push1
+		class	BContainer
+		push
+		lap	param[$2]
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$420		; 1056, pContents
+		push0
+		send	$4
+		bnot
+		send	$4
+		bnot
+		sat	temp[$1]
+		ldi	$0
+		sat	temp[$3]
+code_1a1b:	lst	temp[$3]
+		lat	temp[$1]
+		lt?
+		bnt	code_1a8c
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$3]
+		pushi	$420		; 1056, pContents
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		sat	temp[$2]
+		pushi	$45		; 69, 'E', doit
+		push1
+		push
+		lap	param[$3]
+		send	$6
+		bnot
+		bnt	code_1a67
+		pushi	$9f		; 159, add
+		push1
+		pushi	$94		; 148, init
+		push0
+		pushi	$8c		; 140, scratch
+		push1
+		lst	temp[$2]
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		lofsa	objectDisplay
+		send	$4
+		bnot
+		send	$e
+		bnot
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+code_1a67:	pushi	$386		; 902, hasBase
+		push1
+		class	BContainer
+		push
+		lat	temp[$2]
+		send	$6
+		bnot
+		bnt	code_1a88
+		pushi	$45		; 69, 'E', doit
+		pushi	$4		; scaleX
+		lsp	param[$1]
+		lst	temp[$2]
+		lsp	param[$3]
+		push0
+		lofsa	MakeItemList
+		send	$c
+		bnot
+code_1a88:	+at	temp[$3]
+		jmp	code_1a1b
+
+code_1a8c:	ret
+
+objectDisplay::init:
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	BitMap, $4
+		bnot
+		pushi	$4e		; 78, 'N', width
+		push1
+		pushi	$aa		; 170, addToFront
+		pushi	$e1		; 225, height
+		push1
+		pushi	$2a		; 42, '*', font
+		self	$c
+		bnot
+		ret
+
+objectDisplay::draw:
+		link	$2
+		lap	param[$1]
+		bnt	code_1ab4
+		ldi	$1
+		sat	temp[$0]
+		jmp	code_1ab8
+
+code_1ab4:	lag	global[$54]
+		sat	temp[$0]
+code_1ab8:	pushi	$5		; scaleY
+		push0
+		pushi	$4e		; 78, 'N', width
+		push0
+		self	$4
+		bnot
+		push
+		pushi	$e1		; 225, height
+		push0
+		self	$4
+		bnot
+		push
+		pushi	$fe		; 254, strIndex
+		lst	temp[$0]
+		callk	kernel_35, $a
+		bnot
+		aTop	bitmap
+		pushi	$3aa		; 938, createDisplay
+		push1
+		pushi	$21		; 33, '!', key
+		pToa	scratch
+		send	$6
+		bnot
+		sat	temp[$1]
+		pushi	$5		; scaleY
+		pushi	$6		; maxScale
+		pTos	bitmap
+		push
+		push0
+		push0
+		callk	kernel_35, $a
+		bnot
+		push2
+		push1
+		lst	temp[$1]
+		callk	kernel_35, $4
+		bnot
+		pushi	$1ad		; 429, update
+		push0
+		pToa	scratch
+		send	$4
+		bnot
+		pushi	$17d		; 381, addItem
+		pushi	$6		; maxScale
+		pushi	$3		; z
+		pushi	$35e		; 862, pIDName
+		push0
+		pToa	scratch
+		send	$4
+		bnot
+		bnt	code_1b3c
+		pushi	$35f		; 863, getAffectedState
+		push1
+		pushi	$20		; 32, ' ', name
+		pToa	scratch
+		send	$6
+		bnot
+		bt	code_1b2d
+		pushi	$35f		; 863, getAffectedState
+		push1
+		pushi	$57		; 87, 'W', draw
+		pToa	scratch
+		send	$6
+		bnot
+code_1b2d:	bnt	code_1b3c
+		pushi	$35e		; 862, pIDName
+		push0
+		pToa	scratch
+		send	$4
+		bnot
+		jmp	code_1b45
+
+code_1b3c:	pushi	$315		; 789, pName
+		push0
+		pToa	scratch
+		send	$4
+		bnot
+code_1b45:	push
+		pushi	$32		; 50, '2', edit
+		pushi	$a		; 10, inTop
+		lsg	global[$55]
+		lst	temp[$0]
+		self	$10
+		bnot
+		ret
+
+objectSelector::selectItem:
+		link	$1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		pToa	elements
+		send	$6
+		bnot
+		sat	temp[$0]
+		bnt	code_1b79
+		pushi	$1b4		; 436, enable
+		push1
+		push1
+		lofsa	chooseBtn
+		send	$6
+		bnot
+		pushi	$51		; 81, 'Q', value
+		push1
+		lst	temp[$0]
+		lofsa	chooseBtn
+		send	$6
+		bnot
+code_1b79:	pushi	$1d4		; 468, selectItem
+		push1
+		lsp	param[$1]
+		&rest	$2
+		super	Selector, $6
+		bnot
+		ret
+
+ChooseObjectDialog::init:
+		link	$5
+		pushi	$94		; 148, init
+		push0
+		&rest	$2
+		super	FancyDialog, $4
+		bnot
+		pushi	$26		; 38, '&', back
+		push1
+		push0
+		pToa	plane
+		send	$6
+		bnot
+		pushi	$17d		; 381, addItem
+		push1
+		lofsa	objectSelector
+		push
+		self	$6
+		bnot
+		sat	temp[$0]
+		pushi	$21f		; 543, setList
+		push1
+		lofsa	ItemList
+		push
+		pushi	$94		; 148, init
+		push1
+		pushSelf
+		pushi	$db		; 219, moveTo
+		push2
+		pushi	$a		; 10, inTop
+		pushi	$28		; 40, '(', style
+		lat	temp[$0]
+		send	$14
+		bnot
+		pushi	$17d		; 381, addItem
+		push1
+		lofsa	chooseCancelBtn
+		push
+		self	$6
+		bnot
+		sat	temp[$3]
+		pushi	$249		; 585, posnItem
+		pushi	$3		; z
+		push
+		pushi	$50		; 80, 'P', claimed
+		pushi	$e6		; 230, sizeToCel
+		self	$a
+		bnot
+		pushi	$17d		; 381, addItem
+		push1
+		lofsa	chooseBtn
+		push
+		self	$6
+		bnot
+		sat	temp[$3]
+		pushi	$249		; 585, posnItem
+		pushi	$3		; z
+		push
+		pushi	$a		; 10, inTop
+		pushi	$e6		; 230, sizeToCel
+		self	$a
+		bnot
+		pushi	$1b4		; 436, enable
+		push1
+		push0
+		lofsa	chooseBtn
+		send	$6
+		bnot
+		pushi	$1be		; 446, setSize
+		push0
+		self	$4
+		bnot
+		pushi	$e0		; 224, widen
+		push1
+		pushi	$5		; scaleY
+		pToa	plane
+		send	$6
+		bnot
+		pushi	$17d		; 381, addItem
+		pushi	$5		; scaleY
+		class	TitleItem
+		push
+		pushi	$23		; 35, '#', text
+		lofsa	string_0afd	; "Choose An Object"
+		push
+		pushi	$25		; 37, '%', fore
+		pushi	$2b		; 43, '+', type
+		self	$e
+		bnot
+		sat	temp[$1]
+		pushi	$17d		; 381, addItem
+		pushi	$3		; z
+		class	UnderlineItem
+		push
+		pushi	$8c		; 140, scratch
+		lst	temp[$1]
+		self	$a
+		bnot
+		sat	temp[$2]
+		pushi	$249		; 585, posnItem
+		pushi	$3		; z
+		lst	temp[$1]
+		pushi	$fb		; 251, subStr
+		pushi	$5		; scaleY
+		self	$a
+		bnot
+		pushi	$249		; 585, posnItem
+		pushi	$3		; z
+		lst	temp[$2]
+		pushi	$87		; 135, left
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		add
+		push
+		self	$a
+		bnot
+		pushi	$de		; 222, centerIn
+		push1
+		push0
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		push
+		pushi	$dd		; 221, moveBy
+		push2
+		push0
+		pushi	$e		; 14, view
+		pToa	plane
+		send	$e
+		bnot
+		lap	param[$1]
+		aTop	retObject
+		ldi	$45		; 69, 'E', doit
+		aTop	retSelector
+		pushi	$1d3		; 467, modal
+		push1
+		push2
+		pushi	$248		; 584, open
+		push0
+		self	$a
+		bnot
+		ret
+
+ChooseObjectDialog::dispose:
+		pushi	$95		; 149, dispose
+		push0
+		lofsa	ItemList
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	FancyDialog, $4
+		bnot
+		ret
+
+MakeContainerDialog::doit:
+		link	$3
+		pushi	$45		; 69, 'E', doit
+		pushi	$3		; z
+		lofsa	ItemList
+		push
+		lsg	global[$1]
+		lsp	param[$1]
+		lofsa	MakeItemList
+		send	$a
+		bnot
+		lsp	param[$0]
+		ldi	$2
+		gt?
+		bnt	code_1cec
+		lap	param[$3]
+		bnt	code_1cec
+		pushi	$45		; 69, 'E', doit
+		pushi	$4		; scaleX
+		lofsa	ItemList
+		push
+		lsg	global[$1]
+		lsp	param[$3]
+		push0
+		lofsa	MakeItemList
+		send	$c
+		bnot
+code_1cec:	pushi	$5a		; 90, 'Z', size
+		push0
+		lofsa	ItemList
+		send	$4
+		bnot
+		bnt	code_1d09
+		pushi	$3		; z
+		pushi	$14		; 20, nsRight
+		lofsa	ItemList
+		push
+		lsp	param[$2]
+		callk	kernel_118, $6
+		bnot
+		ldi	$1
+		ret
+
+code_1d09:	ldi	$0
+		ret
+
+EdibleCode::doit:
+		pushi	$386		; 902, hasBase
+		push1
+		class	BConsume
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		ret
+
+EquipCode::doit:
+		link	$1
+		pushi	$35c		; 860, getBase
+		push1
+		class	BWearable
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$0]
+		bnt	code_1d4d
+		pushi	$35c		; 860, getBase
+		push1
+		class	BHead
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		not
+		bnt	code_1d4d
+		pushi	$3a8		; 936, owns
+		push2
+		lsp	param[$1]
+		push1
+		lag	global[$1]
+		send	$8
+		bnot
+		bnt	code_1d4d
+		ldi	$1
+		ret
+
+code_1d4d:	ldi	$0
+		ret
+
+UseableCode::doit:
+		link	$2
+		pushi	$35c		; 860, getBase
+		push1
+		class	BUse
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCharacter
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		sat	temp[$1]
+		lat	temp[$0]
+		bnt	code_1dd1
+		lat	temp[$1]
+		bnt	code_1dd1
+		pushi	$454		; 1108, pSpell
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_1dd1
+		pushi	$2bb		; 699, pType
+		push0
+		pushi	$4b		; 75, 'K', at
+		push1
+		pushi	$454		; 1108, pSpell
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		push2
+		pushi	$9cac		; -25428
+		pushi	$6		; maxScale
+		callk	kernel_2, $4
+		bnot
+		send	$6
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$1
+		and
+		bnt	code_1dd1
+		pushi	$4b		; 75, 'K', at
+		push1
+		pushi	$10		; 16, cel
+		pushi	$430		; 1072, pSkillArray
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		push
+		pushi	$501		; 1281, pTheurgism
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		ge?
+		bnt	code_1dd1
+		ldi	$1
+		ret
+
+code_1dd1:	ldi	$0
+		ret
+
+WACombatMoveScript::changeState:
+		link	$a
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_205d
+		lsl	local[$6]
+		ldi	$0
+		eq?
+		bnt	code_1e31
+		push2
+		push0
+		pushi	$64		; 100, 'd', moveDone
+		callk	kernel_60, $4
+		bnot
+		sat	temp[$9]
+		push
+		ldi	$19		; 25, lsBottom
+		lt?
+		bnt	code_1e0a
+		pushi	$33		; 51, '3', play
+		push1
+		lofsa	string_0b56	; "battle3.mid"
+		push
+		class	MusicMgr
+		send	$6
+		bnot
+		jmp	code_1e2d
+
+code_1e0a:	lst	temp[$9]
+		ldi	$32		; 50, '2', edit
+		lt?
+		bnt	code_1e21
+		pushi	$33		; 51, '3', play
+		push1
+		lofsa	string_0b62	; "battle2.mid"
+		push
+		class	MusicMgr
+		send	$6
+		bnot
+		jmp	code_1e2d
+
+code_1e21:	pushi	$33		; 51, '3', play
+		push1
+		lofsa	string_0b6e	; "battle1.mid"
+		push
+		class	MusicMgr
+		send	$6
+		bnot
+code_1e2d:	ldi	$1
+		sal	local[$6]
+code_1e31:	pTos	client
+		lag	global[$1]
+		eq?
+		bnt	code_1e43
+		pushi	$3ee		; 1006, pPlayMovie
+		push1
+		push1
+		pToa	client
+		send	$6
+		bnot
+code_1e43:	pushi	$43d		; 1085, pDestX
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		sat	temp[$2]
+		pushi	$43e		; 1086, pDestY
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		sat	temp[$3]
+		pushi	$43b		; 1083, pCombatX
+		push1
+		lst	temp[$2]
+		pushi	$43c		; 1084, pCombatY
+		push1
+		push
+		pToa	client
+		send	$c
+		bnot
+		pushi	$562		; 1378, getXFromGrid
+		push1
+		lst	temp[$2]
+		pushi	$c5		; 197, pRoom
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		push
+		ldi	$d		; 13, seenRect
+		add
+		sat	temp[$6]
+		pushi	$563		; 1379, getYFromGrid
+		push1
+		lst	temp[$3]
+		pushi	$c5		; 197, pRoom
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		push
+		ldi	$5		; scaleY
+		add
+		sat	temp[$7]
+		push1
+		lst	temp[$6]
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sub
+		push
+		callk	kernel_61, $2
+		bnot
+		sat	temp[$4]
+		push1
+		lst	temp[$7]
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sub
+		push
+		callk	kernel_61, $2
+		bnot
+		sat	temp[$5]
+		push2
+		pTos	client
+		pushi	$4		; scaleX
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lst	temp[$6]
+		lst	temp[$7]
+		callk	kernel_63, $8
+		bnot
+		push
+		callk	kernel_95, $4
+		bnot
+		push1
+		pushi	$40f		; 1039, pWeapon
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_1f1f
+		pushi	$97		; 151, isKindOf
+		push1
+		class	BWeapon
+		push
+		pushi	$40f		; 1039, pWeapon
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_1f1f
+		pushi	$4e3		; 1251, pDamageType
+		push0
+		pushi	$40f		; 1039, pWeapon
+		push0
+		pToa	client
+		send	$4
+		bnot
+		send	$4
+		bnot
+		aTop	scratch
+		jmp	code_1f23
+
+code_1f1f:	ldi	$ff		; 255, asInteger
+		aTop	scratch
+code_1f23:	pTos	scratch
+		ldi	$0
+		eq?
+		bnt	code_1f39
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$b		; 11, inRight
+		pToa	client
+		send	$6
+		bnot
+		jmp	code_1f86
+
+code_1f39:	pTos	scratch
+		ldi	$2
+		eq?
+		bnt	code_1f4f
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$12		; 18, nsLeft
+		pToa	client
+		send	$6
+		bnot
+		jmp	code_1f86
+
+code_1f4f:	pTos	scratch
+		ldi	$1
+		eq?
+		bnt	code_1f65
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$e		; 14, view
+		pToa	client
+		send	$6
+		bnot
+		jmp	code_1f86
+
+code_1f65:	pTos	scratch
+		ldi	$3		; z
+		eq?
+		bnt	code_1f7b
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$e		; 14, view
+		pToa	client
+		send	$6
+		bnot
+		jmp	code_1f86
+
+code_1f7b:	pushi	$373		; 883, setAction
+		push1
+		pushi	$12		; 18, nsLeft
+		pToa	client
+		send	$6
+		bnot
+code_1f86:	pushi	$6a		; 106, 'j', scaleSignal
+		push1
+		pushi	$6a		; 106, 'j', scaleSignal
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		or
+		push
+		pushi	$105		; 261, setCycle
+		push1
+		class	Fwd
+		push
+		pushi	$15c		; 348, setMotion
+		pushi	$4		; scaleX
+		class	MoveTo
+		push
+		lst	temp[$6]
+		lst	temp[$7]
+		pushSelf
+		pToa	client
+		send	$18
+		bnot
+		push1
+		pTos	client
+		callk	kernel_22, $2
+		bnot
+		sat	temp[$8]
+		pushi	$507		; 1287, saveStep
+		push0
+		pToa	client
+		send	$4
+		bnot
+		pushi	$1a9		; 425, setStep
+		push2
+		push2
+		lst	temp[$4]
+		lat	temp[$8]
+		div
+		push
+		push1
+		calle	export60025_3, $4
+		bnot
+		push
+		push2
+		lst	temp[$5]
+		lat	temp[$8]
+		div
+		push
+		push1
+		calle	export60025_3, $4
+		bnot
+		push
+		pToa	client
+		send	$8
+		bnot
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$64		; 100, 'd', moveDone
+		eq?
+		bt	code_2009
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$c8		; 200, handleEvent
+		eq?
+code_2009:	bnt	code_20b8
+		push2
+		push0
+		push2
+		callk	kernel_60, $4
+		bnot
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_202c
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_0b7a	; "step1.wav"
+		push
+		pTos	client
+		class	SoundMgr
+		send	$8
+		bnot
+		jmp	code_2059
+
+code_202c:	dup
+		ldi	$1
+		eq?
+		bnt	code_2044
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_0b84	; "step2.wav"
+		push
+		pTos	client
+		class	SoundMgr
+		send	$8
+		bnot
+		jmp	code_2059
+
+code_2044:	dup
+		ldi	$2
+		eq?
+		bnt	code_2059
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_0b84	; "step2.wav"
+		push
+		pTos	client
+		class	SoundMgr
+		send	$8
+		bnot
+code_2059:	toss
+		jmp	code_20b8
+
+code_205d:	dup
+		ldi	$1
+		eq?
+		bnt	code_20b8
+		pushi	$6a		; 106, 'j', scaleSignal
+		push1
+		pushi	$6a		; 106, 'j', scaleSignal
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		ldi	$fb		; 251, subStr
+		and
+		push
+		pushi	$105		; 261, setCycle
+		push1
+		push0
+		pushi	$373		; 883, setAction
+		push1
+		push1
+		pTos	client
+		call	code_20b9, $2
+		bnot
+		push
+		pushi	$508		; 1288, restoreStep
+		push0
+		pToa	client
+		send	$16
+		bnot
+		pTos	client
+		lag	global[$1]
+		eq?
+		bnt	code_20a1
+		pushi	$3ee		; 1006, pPlayMovie
+		push1
+		push0
+		lag	global[$1]
+		send	$6
+		bnot
+code_20a1:	pushi	$9d		; 157, eachElementDo
+		push1
+		pushi	$63		; 99, 'c', perform
+		lofsa	LocatorList
+		send	$6
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_20b8:	toss
+code_20b9:	ret
+
+; export40111_0
+code_20ba:	link	$2
+		pushi	$3ec		; 1004, pAction
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1c		; 28, brLeft
+		eq?
+		bnt	code_20cf
+		ldi	$1c		; 28, brLeft
+		ret
+
+code_20cf:	pushi	$2fb		; 763, pCombatGroup
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_20df
+		ldi	$1
+		ret
+
+code_20df:	push1
+		pushi	$40f		; 1039, pWeapon
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_211f
+		pushi	$97		; 151, isKindOf
+		push1
+		class	BWeapon
+		push
+		pushi	$40f		; 1039, pWeapon
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_211f
+		pushi	$4e3		; 1251, pDamageType
+		push0
+		pushi	$40f		; 1039, pWeapon
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		sat	temp[$0]
+		jmp	code_2123
+
+code_211f:	ldi	$ff		; 255, asInteger
+		sat	temp[$0]
+code_2123:	lst	temp[$0]
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2133
+		ldi	$a		; 10, inTop
+		sat	temp[$1]
+		jmp	code_2161
+
+code_2133:	dup
+		ldi	$2
+		eq?
+		bnt	code_2141
+		ldi	$11		; 17, bitmap
+		sat	temp[$1]
+		jmp	code_2161
+
+code_2141:	dup
+		ldi	$1
+		eq?
+		bnt	code_214f
+		ldi	$d		; 13, seenRect
+		sat	temp[$1]
+		jmp	code_2161
+
+code_214f:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_215d
+		ldi	$d		; 13, seenRect
+		sat	temp[$1]
+		jmp	code_2161
+
+code_215d:	ldi	$11		; 17, bitmap
+		sat	temp[$1]
+code_2161:	toss
+		lat	temp[$1]
+		ret
+
diff --git a/Script/Script40112.txt b/Script/Script40112.txt
new file mode 100644
index 0000000..1a44585
--- /dev/null
+++ b/Script/Script40112.txt
@@ -0,0 +1,312 @@
+Mutex::init:
+		pushi	$94		; 148, init
+		push0
+		super	Obj, $4
+		bnot
+		pushi	$b1		; 177, duplicate
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		aTop	pObjects
+		ret
+
+Mutex::dispose:
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		pushi	$348		; 840, pPendingList
+		push0
+		lofsa	LockMgr
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		pushi	$349		; 841, pLockedList
+		push0
+		lofsa	LockMgr
+		send	$4
+		bnot
+		send	$6
+		bnot
+		ldi	$0
+		aTop	pActive
+		pushi	$a6		; 166, release
+		push0
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pObjects
+		send	$8
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Obj, $4
+		bnot
+		ret
+
+Mutex::hasConflict:
+		link	$2
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pObjects
+		send	$4
+		bnot
+		sat	temp[$1]
+		ldi	$0
+		sat	temp[$0]
+code_00ca:	lst	temp[$0]
+		lat	temp[$1]
+		lt?
+		bnt	code_0103
+		pTos	pOwner
+		pushi	$343		; 835, pOwner
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ne?
+		bnt	code_00ff
+		pushi	$a3		; 163, contains
+		push1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		pToa	pObjects
+		send	$6
+		bnot
+		push
+		pushi	$344		; 836, pObjects
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_00ff
+		ldi	$1
+		ret
+
+code_00ff:	+at	temp[$0]
+		jmp	code_00ca
+
+code_0103:	ldi	$0
+		ret
+
+Mutex::hasNoConflict:
+		pushi	$a0		; 160, firstTrue
+		push2
+		pushi	$346		; 838, hasConflict
+		pushSelf
+		lap	param[$1]
+		send	$8
+		bnot
+		bnt	code_0118
+		ldi	$0
+		ret
+
+code_0118:	ldi	$1
+		ret
+
+LockMgr::init:
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	Obj, $4
+		bnot
+		pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		aTop	pLockedList
+		pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		aTop	pPendingList
+		ret
+
+LockMgr::dispose:
+		pToa	pLockedList
+		bnt	code_014b
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pLockedList
+code_014b:	pToa	pPendingList
+		bnt	code_015a
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pPendingList
+code_015a:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Obj, $4
+		bnot
+		ret
+
+LockMgr::lock:
+		link	$3
+		pushi	$8d		; 141, new
+		push0
+		class	Set
+		send	$4
+		bnot
+		sat	temp[$2]
+		ldi	$0
+		sat	temp[$0]
+code_0176:	lst	temp[$0]
+		lsp	param[$0]
+		ldi	$2
+		sub
+		lt?
+		bnt	code_0197
+		lat	temp[$0]
+		lapi	param[$2]
+		bnt	code_0193
+		pushi	$9f		; 159, add
+		push1
+		lat	temp[$0]
+		lspi	param[$2]
+		lat	temp[$2]
+		send	$6
+		bnot
+code_0193:	+at	temp[$0]
+		jmp	code_0176
+
+code_0197:	pushi	$5a		; 90, 'Z', size
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		bnt	code_01e1
+		pushi	$94		; 148, init
+		push1
+		lst	temp[$2]
+		pushi	$33f		; 831, pClient
+		push1
+		lat	temp[$0]
+		lspi	param[$2]
+		pushi	$343		; 835, pOwner
+		push1
+		lsp	param[$1]
+		pushi	$8d		; 141, new
+		push0
+		class	Mutex
+		send	$4
+		bnot
+		sat	temp[$1]
+		send	$12
+		bnot
+		pushi	$a6		; 166, release
+		push0
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$2]
+		send	$8
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		lst	temp[$1]
+		pToa	pPendingList
+		send	$6
+		bnot
+		lat	temp[$1]
+		ret
+
+		jmp	code_01ea
+
+code_01e1:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+code_01ea:	ldi	$0
+		ret
+
+LockMgr::doit:
+		link	$1
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	pPendingList
+		send	$4
+		bnot
+		bnt	code_026c
+code_01f9:	pushi	$a0		; 160, firstTrue
+		push2
+		pushi	$347		; 839, hasNoConflict
+		pTos	pLockedList
+		pToa	pPendingList
+		send	$8
+		bnot
+		sat	temp[$0]
+		bnt	code_026c
+		pushi	$58		; 88, 'X', delete
+		push1
+		push
+		pToa	pPendingList
+		send	$6
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		lst	temp[$0]
+		pToa	pLockedList
+		send	$6
+		bnot
+		pushi	$345		; 837, pActive
+		push1
+		push1
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$33f		; 831, pClient
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_01f9
+		pushi	$9f		; 159, add
+		push1
+		pushi	$cb		; 203, cuee
+		push1
+		pushi	$33f		; 831, pClient
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Cue
+		send	$4
+		bnot
+		send	$a
+		bnot
+		push
+		pushi	$ca		; 202, pCuees
+		push0
+		pushi	$279		; 633, pFocusedRoom
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$6
+		bnot
+		jmp	code_01f9
+
+code_026c:	ret
+