diff --git a/Script/Script0.txt b/Script/Script0.txt
new file mode 100644
index 0000000..a4b9ccb
--- /dev/null
+++ b/Script/Script0.txt
@@ -0,0 +1,1662 @@
+export000_0	= RoomZero
+
+HandsOffCode::doit:
+		link	$1
+		pushi	$4b		; 75, 'K', at
+		push1
+		push0
+		class	MovieCmdList
+		send	$6
+		bnot
+		sat	temp[$0]
+		bnt	code_01b1
+		push2
+		lofsa	string_05ee	; "You seem to be locked up with an hourglass. The currently active MovieCmd is (%s)."
+		push
+		pushi	$20		; 32, ' ', name
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		callk	kernel_132, $4
+		bnot
+code_01b1:	ldi	$0
+		sag	global[$e8]
+		ret
+
+RoomZero::init:
+		link	$4
+		push0
+		calle	export60026_0, $0
+		bnot
+		push0
+		callk	kernel_121, $0
+		bnot
+		sag	global[$40]
+		class	gDialogList
+		sag	global[$68]
+		pushi	$8d		; 141, new
+		push1
+		pushi	$11		; 17, bitmap
+		class	Str
+		send	$6
+		bnot
+		sag	global[$cf]
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_064e	; "login.lst"
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	File
+		send	$4
+		bnot
+		sat	temp[$3]
+		send	$6
+		bnot
+		pushi	$248		; 584, open
+		push1
+		push1
+		lat	temp[$3]
+		send	$6
+		bnot
+		bnt	code_0207
+		pushi	$27a		; 634, readString
+		push2
+		lsg	global[$cf]
+		pushi	$11		; 17, bitmap
+		lat	temp[$3]
+		send	$8
+		bnot
+code_0207:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		sag	global[$d0]
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sag	global[$d7]
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sag	global[$de]
+		class	RoomMgr
+		sag	global[$30]
+		pushi	$94		; 148, init
+		push0
+		class	LockMgr
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		class	ActionQMgr
+		send	$4
+		bnot
+		pushi	$26		; 38, '&', back
+		push1
+		lsg	global[$54]
+		pushi	$25		; 37, '%', fore
+		push1
+		lsg	global[$5c]
+		ldi	$2
+		add
+		push
+		lofsa	RealmWindow
+		sag	global[$8]
+		send	$c
+		bnot
+		pushi	$25		; 37, '%', fore
+		push1
+		lsg	global[$5c]
+		ldi	$2
+		add
+		push
+		lofsa	FancyWindow
+		sag	global[$4e]
+		send	$6
+		bnot
+		pushi	$26		; 38, '&', back
+		push1
+		pushi	$72		; 114, 'r', skip
+		push0
+		class	Button
+		send	$4
+		bnot
+		push
+		pushi	$1e7		; 487, normalColor
+		push1
+		pushi	$72		; 114, 'r', skip
+		push0
+		class	Button
+		send	$4
+		bnot
+		push
+		pushi	$25		; 37, '%', fore
+		push1
+		lsg	global[$5c]
+		ldi	$1
+		add
+		push
+		pushi	$1e8		; 488, selectColor
+		push1
+		lsg	global[$5c]
+		ldi	$2
+		add
+		push
+		pushi	$1e9		; 489, chosenColor
+		push1
+		lsg	global[$5c]
+		ldi	$1
+		add
+		push
+		pushi	$1ea		; 490, dimColor
+		push1
+		lsg	global[$5c]
+		lofsa	RealmButton
+		sag	global[$9]
+		send	$24
+		bnot
+		pushi	$25		; 37, '%', fore
+		push1
+		lsg	global[$62]
+		class	TitleItem
+		send	$6
+		bnot
+		class	FancyDialog
+		sag	global[$7]
+		ldi	$270f		; 9999
+		sag	global[$3b]
+		sag	global[$3a]
+		ldi	$1
+		sag	global[$49]
+		class	Messager
+		sag	global[$14]
+		ldi	$0
+		sag	global[$69]
+		class	NetUser
+		sag	global[$e]
+		pushi	$24e		; 590, handsOff
+		push0
+		self	$4
+		bnot
+		ldi	$270f		; 9999
+		sag	global[$b5]
+		ldi	$f		; 15, loop
+		sag	global[$b7]
+		lag	global[$55]
+		sag	global[$b6]
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		sat	temp[$2]
+		push2
+		lofsa	string_0658	; "soundVolume"
+		push
+		lst	temp[$2]
+		callk	kernel_125, $4
+		bnot
+		bnt	code_030f
+		pushi	$ff		; 255, asInteger
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		sag	global[$b7]
+code_030f:	pushi	$274		; 628, masterVolume
+		push1
+		lsg	global[$b7]
+		lag	global[$2]
+		send	$6
+		bnot
+		push1
+		push0
+		callk	kernel_60, $2
+		bnot
+		push2
+		lofsa	string_0664	; "logfile"
+		push
+		lst	temp[$2]
+		callk	kernel_125, $4
+		bnot
+		bnt	code_0367
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		bnt	code_034e
+		pushi	$20		; 32, ' ', name
+		push1
+		pushi	$d0		; 208, with
+		push1
+		lst	temp[$2]
+		class	Str
+		send	$6
+		bnot
+		push
+		lofsa	Logfile
+		send	$6
+		bnot
+		jmp	code_0371
+
+code_034e:	pushi	$20		; 32, ' ', name
+		push1
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_0664	; "logfile"
+		push
+		class	Str
+		send	$6
+		bnot
+		push
+		lofsa	Logfile
+		send	$6
+		bnot
+		jmp	code_0371
+
+code_0367:	pushi	$20		; 32, ' ', name
+		push1
+		push0
+		lofsa	Logfile
+		send	$6
+		bnot
+code_0371:	pushi	$94		; 148, init
+		push0
+		super	Game, $4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9cac		; -25428
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		pushi	$3ae		; 942, setColor
+		push1
+		pushi	$6a		; 106, 'j', scaleSignal
+		pushi	$1a9		; 425, setStep
+		push2
+		pushi	$6		; maxScale
+		pushi	$4		; scaleX
+		lofsa	NEgo
+		send	$12
+		bnot
+		lofsa	NEgo
+		sag	global[$1]
+		pushi	$94		; 148, init
+		push0
+		class	WDragger
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		class	GameServer
+		send	$4
+		bnot
+		sag	global[$6a]
+		sag	global[$2f]
+		pushi	$276		; 630, handsOn
+		push0
+		self	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		class	RealmIconBar
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	NetMsgProcessor
+		send	$4
+		bnot
+		send	$4
+		bnot
+		pushi	$94		; 148, init
+		push0
+		pushi	$272		; 626, newRoom
+		push1
+		pushi	$e290		; -7536
+		lag	global[$30]
+		send	$a
+		bnot
+		pushi	$94		; 148, init
+		push0
+		lofsa	GlobalKeyHandler
+		send	$4
+		bnot
+		ret
+
+RoomZero::dispose:
+		lag	global[$d7]
+		bnt	code_0407
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sag	global[$d7]
+code_0407:	lag	global[$de]
+		bnt	code_0416
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		sag	global[$de]
+code_0416:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Game, $4
+		bnot
+		ret
+
+RoomZero::controlOff:
+		pushi	$359		; 857, stopDragging
+		push0
+		class	WDragger
+		send	$4
+		bnot
+		push1
+		pushi	$21		; 33, '!', key
+		callk	kernel_118, $2
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		&rest	$1
+		super	Game, $4
+		bnot
+		ret
+
+RoomZero::handsOff:
+		pushi	$359		; 857, stopDragging
+		push0
+		class	WDragger
+		send	$4
+		bnot
+		push1
+		pushi	$21		; 33, '!', key
+		callk	kernel_118, $2
+		bnot
+		pushi	$24e		; 590, handsOff
+		push0
+		&rest	$1
+		super	Game, $4
+		bnot
+		ret
+
+RoomZero::handsOn:
+		pushi	$276		; 630, handsOn
+		push0
+		&rest	$1
+		super	Game, $4
+		bnot
+		pToa	handsLevel
+		not
+		bnt	code_0479
+		lag	global[$e8]
+		bnt	code_0479
+		pushi	$36		; 54, '6', client
+		push1
+		push0
+		pushi	$95		; 149, dispose
+		push0
+		send	$a
+		bnot
+		ldi	$0
+		sag	global[$e8]
+code_0479:	ret
+
+RoomZero::controlOn:
+		pushi	$278		; 632, controlOn
+		push0
+		&rest	$1
+		super	Game, $4
+		bnot
+		pToa	handsLevel
+		not
+		bnt	code_049c
+		lag	global[$e8]
+		bnt	code_049c
+		pushi	$36		; 54, '6', client
+		push1
+		push0
+		pushi	$95		; 149, dispose
+		push0
+		send	$a
+		bnot
+		ldi	$0
+		sag	global[$e8]
+code_049c:	ret
+
+RoomZero::doit:
+		link	$4
+		pushi	$45		; 69, 'E', doit
+		push0
+		&rest	$1
+		super	Game, $4
+		bnot
+code_04a8:	pushi	$5a		; 90, 'Z', size
+		push0
+		class	DeadObjects
+		send	$4
+		bnot
+		bnt	code_04dd
+		pushi	$4b		; 75, 'K', at
+		push1
+		push0
+		class	DeadObjects
+		send	$6
+		bnot
+		sat	temp[$2]
+		push1
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_04d1
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+code_04d1:	pushi	$58		; 88, 'X', delete
+		push1
+		lst	temp[$2]
+		class	DeadObjects
+		send	$6
+		bnot
+		jmp	code_04a8
+
+code_04dd:	lag	global[$1]
+		bnt	code_0580
+		pushi	$5a		; 90, 'Z', size
+		push0
+		class	gApproveGiveList
+		send	$4
+		bnot
+		bnt	code_0580
+		pushi	$4b		; 75, 'K', at
+		push1
+		push0
+		class	gApproveGiveList
+		send	$6
+		bnot
+		sat	temp[$2]
+		bnt	code_0580
+		push1
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_0580
+		pushi	$97		; 151, isKindOf
+		push1
+		class	NetRoom
+		push
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_0580
+		pushi	$c3		; 195, script
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_0580
+		pushi	$3f8		; 1016, pMovieCmd
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_0580
+		pushi	$271		; 625, handsLevel
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		not
+		bnt	code_0580
+		pushi	$5a		; 90, 'Z', size
+		push0
+		class	gDialogList
+		send	$4
+		bnot
+		not
+		bnt	code_0580
+		pushi	$58		; 88, 'X', delete
+		push1
+		lst	temp[$2]
+		class	gApproveGiveList
+		send	$6
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		ldi	$0
+		ne?
+		bnt	code_0580
+		pushi	$9f		; 159, add
+		push1
+		pushi	$45		; 69, 'E', doit
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		class	gDialogList
+		send	$6
+		bnot
+code_0580:	lag	global[$1]
+		bnt	code_05fc
+		pushi	$5a		; 90, 'Z', size
+		push0
+		class	gTeleportList
+		send	$4
+		bnot
+		bnt	code_05fc
+		pushi	$4b		; 75, 'K', at
+		push1
+		push0
+		class	gTeleportList
+		send	$6
+		bnot
+		sat	temp[$2]
+		bnt	code_05fc
+		push1
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_05fc
+		pushi	$97		; 151, isKindOf
+		push1
+		class	NetRoom
+		push
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_05fc
+		pushi	$c3		; 195, script
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_05fc
+		pushi	$3f8		; 1016, pMovieCmd
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_05fc
+		pushi	$271		; 625, handsLevel
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		not
+		bnt	code_05fc
+		pushi	$58		; 88, 'X', delete
+		push1
+		lst	temp[$2]
+		class	gTeleportList
+		send	$6
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+code_05fc:	pushi	$5a		; 90, 'Z', size
+		push0
+		class	ActiveMovieCmdList
+		send	$4
+		bnot
+		sat	temp[$1]
+		bnt	code_0650
+		ldi	$0
+		sat	temp[$0]
+code_060d:	lst	temp[$0]
+		lat	temp[$1]
+		lt?
+		bnt	code_0650
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		class	ActiveMovieCmdList
+		send	$6
+		bnot
+		sat	temp[$3]
+		pushi	$434		; 1076, pDone
+		push0
+		send	$4
+		bnot
+		bnt	code_0644
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		pushi	$58		; 88, 'X', delete
+		push1
+		lst	temp[$3]
+		class	ActiveMovieCmdList
+		send	$6
+		bnot
+		-at	temp[$1]
+		-at	temp[$0]
+		jmp	code_064c
+
+code_0644:	pushi	$45		; 69, 'E', doit
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+code_064c:	+at	temp[$0]
+		jmp	code_060d
+
+code_0650:	lag	global[$32]
+		ret
+
+RoomZero::handleEvent:
+		link	$2
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_075b
+		pushi	$31		; 49, '1', message
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		dup
+		ldi	$1f00		; 7936
+		eq?
+		bnt	code_06bf
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		sat	temp[$0]
+		pushi	$8		; fixPriority
+		lofsa	string_066c	; "Save Screen to?:"
+		push
+		pushi	$76		; 118, 'v', textLeft
+		lst	temp[$0]
+		pushi	$14		; 20, nsRight
+		pushi	$8		; fixPriority
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_067d	; "Okay"
+		push
+		push1
+		calle	export60029_0, $10
+		bnot
+		push1
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		callk	kernel_136, $2
+		bnot
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		jmp	code_075a
+
+code_06bf:	dup
+		ldi	$2600		; 9728
+		eq?
+		bnt	code_075a
+		pushi	$20		; 32, ' ', name
+		push0
+		lofsa	Logfile
+		send	$4
+		bnot
+		bnt	code_075a
+		pushi	$8d		; 141, new
+		push1
+		pushi	$fa		; 250, lower
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$1]
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_0682	; "Enter text to append to logfile[%s]:"
+		push
+		pushi	$20		; 32, ' ', name
+		push0
+		lofsa	Logfile
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		pushi	$b		; 11, inRight
+		push
+		pushi	$7f		; 127, frameOut
+		lst	temp[$1]
+		pushi	$c8		; 200, handleEvent
+		pushi	$4		; scaleX
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_06a7	; "OK"
+		push
+		push1
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_06aa	; "Cancel"
+		push
+		push0
+		calle	export60029_0, $16
+		bnot
+		bnt	code_0748
+		pushi	$248		; 584, open
+		push1
+		push0
+		lofsa	Logfile
+		send	$6
+		bnot
+		pushi	$27b		; 635, writeString
+		pushi	$3		; z
+		lofsa	string_06b1	; "\r\n"
+		push
+		lst	temp[$1]
+		lofsa	string_06b1	; "\r\n"
+		push
+		lofsa	Logfile
+		send	$a
+		bnot
+		pushi	$253		; 595, close
+		push0
+		lofsa	Logfile
+		send	$4
+		bnot
+code_0748:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_075a:	toss
+code_075b:	toss
+		ret
+
+BorderedPlane::init:
+		link	$6
+		pushi	$94		; 148, init
+		push0
+		&rest	$3		; z
+		super	Plane, $4
+		bnot
+		lap	param[$1]
+		bnt	code_09ce
+		lsp	param[$2]
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_09ce
+		pushi	$8d		; 141, new
+		push0
+		class	Cast
+		send	$4
+		bnot
+		aTop	pCast
+		pushi	$3		; z
+		lsp	param[$2]
+		push1
+		push0
+		callk	kernel_28, $6
+		bnot
+		sat	temp[$0]
+		pushi	$3		; z
+		lsp	param[$2]
+		push0
+		push0
+		callk	kernel_29, $6
+		bnot
+		sat	temp[$1]
+		pushi	$d3		; 211, copy
+		push1
+		lsp	param[$1]
+		pushi	$e3		; 227, expand
+		push2
+		lst	temp[$0]
+		pushi	$3		; z
+		lsp	param[$2]
+		pushi	$4		; scaleX
+		push0
+		callk	kernel_28, $6
+		bnot
+		sub
+		push
+		lst	temp[$1]
+		pushi	$3		; z
+		lsp	param[$2]
+		pushi	$4		; scaleX
+		push0
+		callk	kernel_29, $6
+		bnot
+		sub
+		push
+		pushi	$1b8		; 440, addCast
+		push1
+		pTos	pCast
+		pushi	$6d		; 109, 'm', picture
+		push1
+		pushi	$fe		; 254, strIndex
+		pushi	$7		; priority
+		push1
+		pushi	$7		; priority
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		add
+		push
+		self	$20
+		bnot
+		push1
+		pushSelf
+		callk	kernel_42, $2
+		bnot
+		pushi	$4e		; 78, 'N', width
+		push0
+		self	$4
+		bnot
+		sat	temp[$2]
+		pushi	$e1		; 225, height
+		push0
+		self	$4
+		bnot
+		sat	temp[$3]
+		pushi	$3		; z
+		lsp	param[$2]
+		push0
+		push0
+		callk	kernel_28, $6
+		bnot
+		sat	temp[$0]
+		pushi	$3		; z
+		lsp	param[$2]
+		push0
+		push0
+		callk	kernel_29, $6
+		bnot
+		sat	temp[$1]
+		lst	temp[$2]
+		pushi	$3		; z
+		lsp	param[$2]
+		push1
+		push0
+		callk	kernel_28, $6
+		bnot
+		sub
+		push
+		ldi	$1
+		add
+		sat	temp[$4]
+		push
+		ldi	$0
+		lt?
+		bnt	code_082b
+		lat	temp[$0]
+		sat	temp[$4]
+code_082b:	lat	temp[$1]
+		sat	temp[$5]
+		pushi	$e		; 14, view
+		push1
+		lsp	param[$2]
+		pushi	$f		; 15, loop
+		push1
+		push0
+		pushi	$4a		; 74, 'J', setPri
+		push1
+		pTos	priority
+		ldi	$1
+		add
+		push
+		pushi	$d		; 13, seenRect
+		push1
+		pushi	$d0		; 208, with
+		pushi	$4		; scaleX
+		push0
+		push0
+		lst	temp[$4]
+		lst	temp[$5]
+		class	Rect
+		send	$c
+		bnot
+		push
+		pushi	$94		; 148, init
+		push1
+		pTos	pCast
+		pushi	$8d		; 141, new
+		push0
+		class	View
+		send	$4
+		bnot
+		send	$1e
+		bnot
+		pushi	$3		; z
+		lsp	param[$2]
+		push1
+		push0
+		callk	kernel_28, $6
+		bnot
+		sat	temp[$0]
+		pushi	$3		; z
+		lsp	param[$2]
+		push1
+		push0
+		callk	kernel_29, $6
+		bnot
+		sat	temp[$1]
+		lat	temp[$0]
+		sat	temp[$4]
+		lst	temp[$3]
+		pushi	$3		; z
+		lsp	param[$2]
+		push2
+		push0
+		callk	kernel_29, $6
+		bnot
+		sub
+		push
+		ldi	$1
+		add
+		sat	temp[$5]
+		push
+		ldi	$0
+		lt?
+		bnt	code_08a1
+		lat	temp[$1]
+		sat	temp[$5]
+code_08a1:	pushi	$e		; 14, view
+		push1
+		lsp	param[$2]
+		pushi	$f		; 15, loop
+		push1
+		push1
+		push1
+		push1
+		lst	temp[$2]
+		pushi	$4a		; 74, 'J', setPri
+		push1
+		pTos	priority
+		ldi	$1
+		add
+		push
+		pushi	$d		; 13, seenRect
+		push1
+		pushi	$d0		; 208, with
+		pushi	$4		; scaleX
+		push0
+		push0
+		lst	temp[$4]
+		lst	temp[$5]
+		class	Rect
+		send	$c
+		bnot
+		push
+		pushi	$94		; 148, init
+		push1
+		pTos	pCast
+		pushi	$8d		; 141, new
+		push0
+		class	View
+		send	$4
+		bnot
+		send	$24
+		bnot
+		pushi	$3		; z
+		lsp	param[$2]
+		push2
+		push0
+		callk	kernel_28, $6
+		bnot
+		sat	temp[$0]
+		pushi	$3		; z
+		lsp	param[$2]
+		push2
+		push0
+		callk	kernel_29, $6
+		bnot
+		sat	temp[$1]
+		lst	temp[$0]
+		lat	temp[$2]
+		sub
+		push
+		pushi	$3		; z
+		lsp	param[$2]
+		pushi	$3		; z
+		push0
+		callk	kernel_28, $6
+		bnot
+		add
+		push
+		ldi	$2
+		sub
+		sat	temp[$4]
+		lat	temp[$1]
+		sat	temp[$5]
+		pushi	$e		; 14, view
+		push1
+		lsp	param[$2]
+		pushi	$f		; 15, loop
+		push1
+		push2
+		push1
+		push1
+		lst	temp[$2]
+		push2
+		push1
+		lst	temp[$3]
+		pushi	$4a		; 74, 'J', setPri
+		push1
+		pTos	priority
+		ldi	$1
+		add
+		push
+		pushi	$d		; 13, seenRect
+		push1
+		pushi	$d0		; 208, with
+		pushi	$4		; scaleX
+		lst	temp[$4]
+		push0
+		lst	temp[$0]
+		lst	temp[$5]
+		class	Rect
+		send	$c
+		bnot
+		push
+		pushi	$94		; 148, init
+		push1
+		pTos	pCast
+		pushi	$8d		; 141, new
+		push0
+		class	View
+		send	$4
+		bnot
+		send	$2a
+		bnot
+		pushi	$3		; z
+		lsp	param[$2]
+		pushi	$3		; z
+		push0
+		callk	kernel_28, $6
+		bnot
+		sat	temp[$0]
+		pushi	$3		; z
+		lsp	param[$2]
+		pushi	$3		; z
+		push0
+		callk	kernel_29, $6
+		bnot
+		sat	temp[$1]
+		lat	temp[$0]
+		sat	temp[$4]
+		lst	temp[$1]
+		lat	temp[$3]
+		sub
+		push
+		pushi	$3		; z
+		lsp	param[$2]
+		push0
+		push0
+		callk	kernel_29, $6
+		bnot
+		add
+		push
+		ldi	$2
+		sub
+		sat	temp[$5]
+		pushi	$e		; 14, view
+		push1
+		lsp	param[$2]
+		pushi	$f		; 15, loop
+		push1
+		pushi	$3		; z
+		push2
+		push1
+		lst	temp[$3]
+		pushi	$4a		; 74, 'J', setPri
+		push1
+		pTos	priority
+		ldi	$1
+		add
+		push
+		pushi	$d		; 13, seenRect
+		push1
+		pushi	$d0		; 208, with
+		pushi	$4		; scaleX
+		push0
+		lst	temp[$5]
+		lst	temp[$4]
+		lst	temp[$1]
+		class	Rect
+		send	$c
+		bnot
+		push
+		pushi	$94		; 148, init
+		push1
+		pTos	pCast
+		pushi	$8d		; 141, new
+		push0
+		class	View
+		send	$4
+		bnot
+		send	$24
+		bnot
+		push1
+		pushSelf
+		callk	kernel_42, $2
+		bnot
+code_09ce:	ret
+
+FancyWindow::init:
+		pToa	pInitted
+		bnt	code_09d4
+		ret
+
+code_09d4:	ldi	$1
+		aTop	pInitted
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	Window, $4
+		bnot
+		pTos	pBorderView
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_09ff
+		pushi	$94		; 148, init
+		push2
+		pushSelf
+		pTos	pBorderView
+		pushi	$8d		; 141, new
+		push0
+		class	BorderedPlane
+		send	$4
+		bnot
+		aTop	pBorderPlane
+		send	$8
+		bnot
+code_09ff:	pushi	$8d		; 141, new
+		push0
+		class	Cast
+		send	$4
+		bnot
+		aTop	pCast
+		pushi	$1b8		; 440, addCast
+		push1
+		pTos	pCast
+		self	$6
+		bnot
+		pTos	back
+		ldi	$ec		; 236, track
+		eq?
+		bnt	code_0a6d
+		pushi	$9f		; 159, add
+		push2
+		pushi	$ec		; 236, track
+		pushi	$1e		; 30, brRight
+		class	Remaps
+		send	$8
+		bnot
+		pushi	$11		; 17, bitmap
+		push1
+		pushi	$8		; fixPriority
+		push0
+		pushi	$4e		; 78, 'N', width
+		push0
+		self	$4
+		bnot
+		push
+		pushi	$e1		; 225, height
+		push0
+		self	$4
+		bnot
+		push
+		push0
+		pTos	back
+		pTos	resX
+		pTos	resY
+		push1
+		callk	kernel_35, $10
+		bnot
+		push
+		pushi	$8		; fixPriority
+		push1
+		push1
+		pushi	$7		; priority
+		push1
+		push0
+		pushi	$94		; 148, init
+		push1
+		pTos	pCast
+		pushi	$8d		; 141, new
+		push0
+		class	View
+		send	$4
+		bnot
+		send	$18
+		bnot
+		ldi	$fe		; 254, strIndex
+		aTop	picture
+		+ag	global[$c9]
+		jmp	code_0a71
+
+code_0a6d:	ldi	$ff		; 255, asInteger
+		aTop	picture
+code_0a71:	push1
+		pushSelf
+		callk	kernel_42, $2
+		bnot
+		ret
+
+FancyWindow::hide:
+		pushi	$69		; 105, 'i', hide
+		push0
+		super	Window, $4
+		bnot
+		pToa	pBorderPlane
+		bnt	code_0a89
+		pushi	$69		; 105, 'i', hide
+		push0
+		send	$4
+		bnot
+code_0a89:	ret
+
+FancyWindow::show:
+		pushi	$75		; 117, 'u', show
+		push0
+		super	Window, $4
+		bnot
+		pToa	pBorderPlane
+		bnt	code_0a9b
+		pushi	$75		; 117, 'u', show
+		push0
+		send	$4
+		bnot
+code_0a9b:	ret
+
+FancyWindow::erase:
+		pushi	$1ba		; 442, erase
+		push0
+		super	Window, $4
+		bnot
+		pToa	pBorderPlane
+		bnt	code_0aaf
+		pushi	$1ba		; 442, erase
+		push0
+		send	$4
+		bnot
+code_0aaf:	ret
+
+FancyWindow::dispose:
+		pToa	pBorderPlane
+		bnt	code_0abf
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pBorderPlane
+code_0abf:	pTos	back
+		ldi	$ec		; 236, track
+		eq?
+		bnt	code_0ad7
+		pToa	pCast
+		bnt	code_0acd
+		-ag	global[$c9]
+code_0acd:	pushi	$58		; 88, 'X', delete
+		push1
+		pTos	back
+		class	Remaps
+		send	$6
+		bnot
+code_0ad7:	pushi	$95		; 149, dispose
+		push0
+		super	Window, $4
+		bnot
+		ret
+
+FancyWindow::posnOnScreen:
+		link	$1
+		pTos	left
+		ldi	$0
+		lt?
+		bnt	code_0af3
+		pushi	$db		; 219, moveTo
+		push2
+		push0
+		pTos	top
+		self	$8
+		bnot
+code_0af3:	pTos	top
+		ldi	$0
+		lt?
+		bnt	code_0b04
+		pushi	$db		; 219, moveTo
+		push2
+		pTos	left
+		push0
+		self	$8
+		bnot
+code_0b04:	push0
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		sat	temp[$0]
+		pTos	right
+		pushi	$88		; 136, right
+		push0
+		send	$4
+		bnot
+		gt?
+		bnt	code_0b2f
+		pushi	$dd		; 221, moveBy
+		push2
+		pushi	$88		; 136, right
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		pToa	right
+		sub
+		push
+		push0
+		self	$8
+		bnot
+code_0b2f:	pTos	bottom
+		pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		gt?
+		bnt	code_0b53
+		pushi	$dd		; 221, moveBy
+		push2
+		push0
+		pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		pToa	bottom
+		sub
+		push
+		self	$8
+		bnot
+code_0b53:	ret
+
+RealmButton::drawText:
+		link	$3
+		pToa	text
+		bnt	code_0c16
+		pushi	$8d		; 141, new
+		push0
+		class	Rect
+		send	$4
+		bnot
+		sat	temp[$0]
+		pToa	textRect
+		bnt	code_0b76
+		pushi	$d3		; 211, copy
+		push1
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_0b8b
+
+code_0b76:	pushi	$d3		; 211, copy
+		push1
+		pushSelf
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$db		; 219, moveTo
+		push2
+		push0
+		push0
+		lat	temp[$0]
+		send	$8
+		bnot
+code_0b8b:	pushi	$e		; 14, view
+		pushi	$4		; scaleX
+		pTos	bitmap
+		push2
+		pushi	$9		; inLeft
+		pTos	text
+		callk	kernel_91, $4
+		bnot
+		push
+		pushi	$87		; 135, left
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		pushi	$89		; 137, top
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		pushi	$88		; 136, right
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		pTos	back
+		pToa	skip
+		eq?
+		bnt	code_0bfb
+		pTos	state
+		ldi	$1
+		and
+		not
+		bnt	code_0bd6
+		pToa	dimColor
+		jmp	code_0bfd
+
+code_0bd6:	pTos	state
+		ldi	$4		; scaleX
+		and
+		bnt	code_0be1
+		pToa	chosenColor
+		jmp	code_0bfd
+
+code_0be1:	pTos	state
+		ldi	$20		; 32, ' ', name
+		and
+		bnt	code_0bec
+		pToa	selectColor
+		jmp	code_0bfd
+
+code_0bec:	pTos	state
+		ldi	$8		; fixPriority
+		and
+		bnt	code_0bf7
+		pToa	chosenColor
+		jmp	code_0bfd
+
+code_0bf7:	pToa	fore
+		jmp	code_0bfd
+
+code_0bfb:	pToa	fore
+code_0bfd:	push
+		pTos	skip
+		pTos	skip
+		pTos	font
+		pTos	mode
+		pushi	$ff		; 255, asInteger
+		push0
+		callk	kernel_35, $1c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_0c16:	ret
+
+GlobalKeyHandler::init:
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	Script, $4
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		lag	global[$27]
+		send	$6
+		bnot
+		ret
+
+GlobalKeyHandler::dispose:
+		pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		lag	global[$27]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Script, $4
+		bnot
+		ret
+
+GlobalKeyHandler::handleEvent:
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_0c8a
+		pushi	$31		; 49, '1', message
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		dup
+		ldi	$3c00		; 15360
+		eq?
+		bnt	code_0c89
+		pushi	$274		; 628, masterVolume
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		bnt	code_0c75
+		pushi	$274		; 628, masterVolume
+		push1
+		push0
+		lag	global[$2]
+		send	$6
+		bnot
+		jmp	code_0c80
+
+code_0c75:	pushi	$274		; 628, masterVolume
+		push1
+		pushi	$f		; 15, loop
+		lag	global[$2]
+		send	$6
+		bnot
+code_0c80:	pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+code_0c89:	toss
+code_0c8a:	pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+
diff --git a/Script/Script40000.txt b/Script/Script40000.txt
new file mode 100644
index 0000000..06d7405
Binary files /dev/null and b/Script/Script40000.txt differ
diff --git a/Script/Script40001.txt b/Script/Script40001.txt
new file mode 100644
index 0000000..2301845
--- /dev/null
+++ b/Script/Script40001.txt
@@ -0,0 +1,68 @@
+WDragger::dispose:
+		pushi	$359		; 857, stopDragging
+		push0
+		self	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Obj, $4
+		bnot
+		ret
+
+WDragger::startDragging:
+		link	$2
+		pushi	$f4		; 244, curEvent
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		sat	temp[$0]
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		push1
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		sub
+		aTop	pOfsX
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		sub
+		aTop	pOfsY
+		pushi	$5		; scaleY
+		pushi	$19		; 25, lsBottom
+		push0
+		lsp	param[$1]
+		pTos	pOfsX
+		pTos	pOfsY
+		callk	kernel_118, $a
+		bnot
+		ldi	$1
+		aTop	pDragging
+		ret
+
+WDragger::stopDragging:
+		ldi	$0
+		aTop	pDragging
+		push2
+		pushi	$19		; 25, lsBottom
+		push1
+		callk	kernel_118, $4
+		bnot
+		ret
+
diff --git a/Script/Script40002.txt b/Script/Script40002.txt
new file mode 100644
index 0000000..fe1b673
--- /dev/null
+++ b/Script/Script40002.txt
@@ -0,0 +1,16148 @@
+export40002_0	= WAExamineScript
+export40002_1	= WAOpenScript
+export40002_2	= WACloseScript
+export40002_3	= WALockScript
+export40002_4	= WAUnlockScript
+export40002_5	= WATakeScript
+export40002_6	= WAPutScript
+export40002_7	= WADropScript
+export40002_8	= WAPutOnScript
+export40002_9	= WATakeOffScript
+export40002_10	= WAAttackScript
+export40002_11	= WAStartCombatScript
+export40002_12	= WAMoneyTakeScript
+export40002_13	= WAMoneyPutScript
+export40002_14	= WAMoneyDropScript
+export40002_15	= WAConsumeScript
+export40002_16	= WATeleportScript
+export40002_17	= WAMissleScript
+export40002_18	= $0
+export40002_19	= WAStandScript
+export40002_20	= WACombatTeleportScript
+export40002_21	= WASitScript
+export40002_22	= $0
+export40002_23	= WAMemorizeScript
+export40002_24	= WAGiveScript
+export40002_25	= WAMoneyGiveScript
+export40002_26	= WARobScript
+export40002_27	= $0
+export40002_28	= $0
+export40002_29	= WAForceDropScript
+
+QuitGameHandler::doit:
+		pushi	$24e		; 590, handsOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9c45		; -25531
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		lap	param[$0]
+		bnt	code_0709
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bnt	code_06eb
+		pushi	$95		; 149, dispose
+		push0
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		pushi	$2fb		; 763, pCombatGroup
+		push1
+		push0
+		lag	global[$1]
+		send	$6
+		bnot
+code_06eb:	pushi	$3c6		; 966, deleteFromRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		pushi	$3dc		; 988, deleteFromServer
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		pushi	$2c4		; 708, pRestart
+		push1
+		pushi	$afd4		; -20524
+		lag	global[$30]
+		send	$6
+		bnot
+code_0709:	ret
+
+WAScript::init:
+		lap	param[$1]
+		aTop	pClient
+		pTos	pMovieCmd
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_071b
+		ldi	$0
+		aTop	pMovieCmd
+		jmp	code_071f
+
+code_071b:	lag	global[$f0]
+		aTop	pMovieCmd
+code_071f:	pushi	$97		; 151, isKindOf
+		push1
+		class	WAScript
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		bnt	code_0738
+		pushi	$3f8		; 1016, pMovieCmd
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		aTop	pMovieCmd
+code_0738:	pushi	$97		; 151, isKindOf
+		push1
+		class	Script
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		bnt	code_0752
+		pushi	$36		; 54, '6', client
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		aTop	pClient
+		jmp	code_0738
+
+code_0752:	pushi	$97		; 151, isKindOf
+		push1
+		class	ManagedRoom
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		bnt	code_0766
+		pToa	pClient
+		aTop	pRoom
+		jmp	code_0771
+
+code_0766:	pushi	$c5		; 197, pRoom
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		aTop	pRoom
+code_0771:	pToa	pDirectObject
+		not
+		bnt	code_0781
+		pushi	$31e		; 798, pDirectObject
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		aTop	pDirectObject
+code_0781:	pToa	pIndirectObject
+		not
+		bnt	code_0791
+		pushi	$3e3		; 995, pIndirectObject
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		aTop	pIndirectObject
+code_0791:	pTos	client
+		pToa	pClient
+		eq?
+		bnt	code_07b6
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_07b6
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WANetScript
+		push
+		self	$6
+		bnot
+		not
+		bnt	code_07b6
+		pushi	$40e		; 1038, pRecordMotion
+		push1
+		push0
+		pToa	pClient
+		send	$6
+		bnot
+code_07b6:	pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	Script, $4
+		bnot
+		ret
+
+WAScript::dispose:
+		link	$2
+		pToa	pHandsOff
+		bnt	code_07d4
+		pushi	$276		; 630, handsOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pHandsOff
+code_07d4:	pToa	pClient
+		bnt	code_080b
+		push
+		pToa	client
+		eq?
+		bnt	code_080b
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_07fc
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WANetScript
+		push
+		self	$6
+		bnot
+		not
+		bnt	code_07fc
+		pushi	$40e		; 1038, pRecordMotion
+		push1
+		push1
+		pToa	pClient
+		send	$6
+		bnot
+code_07fc:	pushi	$31e		; 798, pDirectObject
+		push1
+		push0
+		pushi	$3e3		; 995, pIndirectObject
+		push1
+		push0
+		pToa	pClient
+		send	$c
+		bnot
+code_080b:	ldi	$0
+		aTop	pClient
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Script, $4
+		bnot
+		ret
+
+WANetScript::defaultError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_0a93
+		lsp	param[$3]
+		dup
+		ldi	$2
+		eq?
+		bnt	code_0842
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1bb0	; "You can't do that now."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0842:	dup
+		ldi	$2710		; 10000
+		eq?
+		bnt	code_085b
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1bc7	; "You can't do that right now."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_085b:	dup
+		ldi	$2711		; 10001
+		eq?
+		bnt	code_0874
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1be4	; "That's already been done."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0874:	dup
+		ldi	$2712		; 10002
+		eq?
+		bnt	code_088d
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1bfe	; "There is no space for that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_088d:	dup
+		ldi	$2713		; 10003
+		eq?
+		bnt	code_08a6
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1c1a	; "You have to remove something first."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_08a6:	dup
+		ldi	$2714		; 10004
+		eq?
+		bnt	code_08bf
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1c3e	; "You can't do that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_08bf:	dup
+		ldi	$2715		; 10005
+		eq?
+		bnt	code_08d8
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1c51	; "You can't go there."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_08d8:	dup
+		ldi	$2716		; 10006
+		eq?
+		bnt	code_08f1
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1c65	; "That didn't work."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_08f1:	dup
+		ldi	$2717		; 10007
+		eq?
+		bnt	code_090a
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1c77	; "You have to unlock that first."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_090a:	dup
+		ldi	$2718		; 10008
+		eq?
+		bnt	code_0923
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1c96	; "That key will not work in this lock."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0923:	dup
+		ldi	$271a		; 10010
+		eq?
+		bnt	code_093c
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1cbb	; "This is a redundant define."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_093c:	dup
+		ldi	$271b		; 10011
+		eq?
+		bnt	code_0955
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1cd7	; "Your character type cannot wear that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0955:	dup
+		ldi	$271c		; 10012
+		eq?
+		bnt	code_096e
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1cfd	; "It's too bulky."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_096e:	dup
+		ldi	$271d		; 10013
+		eq?
+		bnt	code_0987
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1d0d	; "It's too heavy."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0987:	dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_09a0
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1d1d	; "You cannot afford it."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_09a0:	dup
+		ldi	$271f		; 10015
+		eq?
+		bnt	code_09b9
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1c3e	; "You can't do that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_09b9:	dup
+		ldi	$2720		; 10016
+		eq?
+		bnt	code_09d2
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1d33	; "Somebody else is busy with that right now."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_09d2:	dup
+		ldi	$2721		; 10017
+		eq?
+		bnt	code_09eb
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1d5e	; "That's the wrong password."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_09eb:	dup
+		ldi	$2722		; 10018
+		eq?
+		bnt	code_0a04
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1d79	; "You can't do anything to it."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0a04:	dup
+		ldi	$2723		; 10019
+		eq?
+		bnt	code_0a1d
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1d96	; "That wouldn't make much sense."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0a1d:	dup
+		ldi	$2724		; 10020
+		eq?
+		bnt	code_0a36
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1db5	; "You've wasted your effort.\n"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0a36:	dup
+		ldi	$2725		; 10021
+		eq?
+		bnt	code_0a4e
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1de2	; "You need to be closer for that to be effective."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0a4e:	dup
+		ldi	$2726		; 10022
+		eq?
+		bnt	code_0a66
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1e12	; "You can not wield that while using a shield."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0a66:	dup
+		ldi	$2727		; 10023
+		eq?
+		bnt	code_0a7e
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1e3f	; "You can not wield that while using a two-handed weapon."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0a8f
+
+code_0a7e:	pushi	$f5		; 245, format
+		push2
+		lofsa	string_1e77	; "NAK received (%d)"
+		push
+		lsp	param[$3]
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+code_0a8f:	toss
+		jmp	code_0b08
+
+code_0a93:	lsp	param[$3]
+		dup
+		ldi	$c350		; -15536
+		eq?
+		bnt	code_0ae0
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldActor
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		bnt	code_0ac5
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_1e89	; "You can't get close enough to %s."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		jmp	code_0b07
+
+code_0ac5:	pushi	$f5		; 245, format
+		push2
+		lofsa	string_1eab	; "You can't get close enough to the %s."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		jmp	code_0b07
+
+code_0ae0:	dup
+		ldi	$c351		; -15535
+		eq?
+		bnt	code_0af8
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1ed1	; "You have to stand up first."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_0b07
+
+code_0af8:	pushi	$f5		; 245, format
+		push1
+		lofsa	string_1eed	; "You can not do that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+code_0b07:	toss
+code_0b08:	lat	temp[$0]
+		ret
+
+WANetScript::init:
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	WAScript, $4
+		bnot
+		ret
+
+WANetScript::dispose:
+		lag	global[$6a]
+		bnt	code_0b49
+		pushi	$c3		; 195, script
+		push0
+		send	$4
+		bnot
+		bnt	code_0b49
+		pushi	$c4		; 196, caller
+		push0
+		pushi	$c3		; 195, script
+		push0
+		lag	global[$6a]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		selfID
+		eq?
+		bnt	code_0b49
+		pushi	$c4		; 196, caller
+		push1
+		push0
+		pushi	$c3		; 195, script
+		push0
+		lag	global[$6a]
+		send	$4
+		bnot
+		send	$6
+		bnot
+code_0b49:	pToa	pMutex
+		bnt	code_0b58
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pMutex
+code_0b58:	pushi	$31e		; 798, pDirectObject
+		push1
+		push0
+		pushi	$3e3		; 995, pIndirectObject
+		push1
+		push0
+		lag	global[$1]
+		send	$c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		super	WAScript, $4
+		bnot
+		ret
+
+WANetScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WorldActor::doit:
+		link	$2
+		pToa	mover
+		bnt	code_0bfa
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		sat	temp[$0]
+		pToa	pCombatGroup
+		sat	temp[$1]
+		push
+		lat	temp[$0]
+		eq?
+		bt	code_0bde
+		lat	temp[$0]
+		bnt	code_0bfa
+		lat	temp[$1]
+		bnt	code_0bfa
+		pushi	$4		; scaleX
+		pushi	$8		; fixPriority
+		lst	temp[$0]
+		pushi	$10d		; 269, lowWord
+		push0
+		send	$4
+		bnot
+		push
+		pushi	$10e		; 270, hiWord
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		callk	kernel_154, $8
+		bnot
+code_0bde:	bnt	code_0bfa
+		pushi	$6		; maxScale
+		pushi	$7		; priority
+		pTos	pBaseView
+		pTos	cel
+		pTos	x
+		pTos	scaleY
+		pushi	$145		; 325, frontSize
+		push0
+		pToa	scaler
+		send	$4
+		bnot
+		push
+		callk	kernel_117, $c
+		bnot
+code_0bfa:	pushi	$45		; 69, 'E', doit
+		push0
+		&rest	$1
+		super	WorldObject, $4
+		bnot
+		ret
+
+WorldActor::getBitmap:
+		link	$2
+		ldi	$0
+		sat	temp[$0]
+		pToa	pHead
+		bnt	code_0c41
+		pushi	$35c		; 860, getBase
+		push1
+		class	BHead
+		push
+		pToa	pHead
+		send	$6
+		bnot
+		sat	temp[$1]
+		pushi	$466		; 1126, generateBitmap
+		push2
+		push0
+		push0
+		send	$8
+		bnot
+		sat	temp[$0]
+		pushi	$3		; z
+		pushi	$a		; 10, inTop
+		push
+		pTos	clut
+		callk	kernel_35, $6
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		lst	temp[$0]
+		lag	global[$66]
+		send	$6
+		bnot
+		jmp	code_0c4b
+
+code_0c41:	pushi	$621		; 1569, getBitmap
+		push0
+		super	WorldObject, $4
+		bnot
+		sat	temp[$0]
+code_0c4b:	lat	temp[$0]
+		ret
+
+WorldActor::buildVerbList:
+		link	$3
+		pushi	$366		; 870, buildVerbList
+		push1
+		lsp	param[$1]
+		&rest	$2
+		super	WorldObject, $6
+		bnot
+		pushSelf
+		lag	global[$1]
+		ne?
+		bnt	code_0ca7
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCarryable
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_0ca7
+		pushi	$3a9		; 937, isOwnedBy
+		push2
+		lsg	global[$1]
+		push1
+		lap	param[$1]
+		send	$8
+		bnot
+		bnt	code_0ca7
+		pushi	$35c		; 860, getBase
+		push1
+		class	BWearable
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$2]
+		not
+		bt	code_0c9a
+		pushi	$41e		; 1054, pIsWorn
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		not
+code_0c9a:	bnt	code_0ca7
+		pushi	$9f		; 159, add
+		push1
+		pushi	$1d		; 29, brTop
+		class	VerbList
+		send	$6
+		bnot
+code_0ca7:	lsp	param[$1]
+		lag	global[$1]
+		eq?
+		bnt	code_0ccd
+		pushSelf
+		lag	global[$1]
+		ne?
+		bnt	code_0ccd
+		pushi	$35c		; 860, getBase
+		push1
+		class	BNPC
+		push
+		self	$6
+		bnot
+		not
+		bnt	code_0ccd
+		pushi	$9f		; 159, add
+		push1
+		pushi	$2af8		; 11000
+		class	VerbList
+		send	$6
+		bnot
+code_0ccd:	pushi	$97		; 151, isKindOf
+		push1
+		class	WorldActor
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_0ded
+		lsp	param[$1]
+		selfID
+		ne?
+		bnt	code_0ded
+		pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		not
+		bnt	code_0ded
+		pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		and
+		not
+		bnt	code_0ded
+		class	VerbList
+		sat	temp[$0]
+		pushi	$35c		; 860, getBase
+		push1
+		class	BNPC
+		push
+		self	$6
+		bnot
+		not
+		bnt	code_0d2e
+		pushi	$37e		; 894, pLeader
+		push0
+		class	GroupList
+		send	$4
+		bnot
+		not
+		bnt	code_0d2e
+		pushi	$9f		; 159, add
+		push1
+		pushi	$74		; 116, 't', all
+		lat	temp[$0]
+		send	$6
+		bnot
+code_0d2e:	pushi	$37d		; 893, servIDEquals
+		push1
+		pushi	$380		; 896, pWhoToFollow
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		bnt	code_0d4f
+		pushi	$9f		; 159, add
+		push1
+		pushi	$72		; 114, 'r', skip
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_0ded
+
+code_0d4f:	pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$1]
+		pushi	$b5		; 181, set
+		push2
+		pushi	$2cb		; 715, pServIDLo
+		push0
+		self	$4
+		bnot
+		push
+		pushi	$2cc		; 716, pServIDHi
+		push0
+		self	$4
+		bnot
+		push
+		lat	temp[$1]
+		send	$8
+		bnot
+		pushi	$37f		; 895, findByServID
+		push1
+		lst	temp[$1]
+		class	GroupList
+		send	$6
+		bnot
+		not
+		bnt	code_0d9e
+		pushi	$35c		; 860, getBase
+		push1
+		class	BNPC
+		push
+		self	$6
+		bnot
+		not
+		bnt	code_0de4
+		pushi	$9f		; 159, add
+		push1
+		pushi	$2d		; 45, '-', cursor
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_0de4
+
+code_0d9e:	pushi	$5a		; 90, 'Z', size
+		push0
+		class	GroupList
+		send	$4
+		bnot
+		bnt	code_0de4
+		pushi	$37d		; 893, servIDEquals
+		push1
+		pushi	$2ca		; 714, pServID
+		push0
+		pushi	$37e		; 894, pLeader
+		push0
+		class	GroupList
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		bnt	code_0de4
+		pushi	$37d		; 893, servIDEquals
+		push1
+		pushi	$380		; 896, pWhoToFollow
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		not
+		bnt	code_0de4
+		pushi	$9f		; 159, add
+		push1
+		pushi	$2d		; 45, '-', cursor
+		lat	temp[$0]
+		send	$6
+		bnot
+code_0de4:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+code_0ded:	ret
+
+WorldActor::dispose:
+		link	$1
+		pToa	pWhoToFollow
+		bnt	code_0e01
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pWhoToFollow
+code_0e01:	pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		class	CombatWaitingList
+		send	$6
+		bnot
+		pushi	$a0		; 160, firstTrue
+		push2
+		pushi	$97		; 151, isKindOf
+		class	CombatRoom
+		push
+		pushi	$2c1		; 705, pRoomList
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		send	$8
+		bnot
+		sat	temp[$0]
+		bnt	code_0e2d
+		pushi	$31c		; 796, delCombatant
+		push1
+		pushSelf
+		send	$6
+		bnot
+code_0e2d:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WorldObject, $4
+		bnot
+		ret
+
+WorldActor::updateDisplay:
+		link	$9
+		pTos	pBaseView
+		ldi	$ff		; 255, asInteger
+		eq?
+		bt	code_0e52
+		pTos	view
+		ldi	$ff		; 255, asInteger
+		eq?
+		bt	code_0e52
+		pToa	pBitmapBased
+		not
+		bt	code_0e52
+		pTos	signal
+		ldi	$8		; fixPriority
+		and
+code_0e52:	bnt	code_0e55
+		ret
+
+code_0e55:	pToa	pAction
+		sat	temp[$8]
+		pToa	bitmap
+		sat	temp[$0]
+		pushi	$15		; 21, nsBottom
+		pushi	$c		; 12, inBottom
+		pTos	pBaseView
+		pTos	loop
+		pTos	cel
+		lst	temp[$8]
+		pTos	pShirtView
+		pTos	pPantsView
+		pTos	pShoesView
+		pTos	pBeltView
+		pTos	pWristView
+		pTos	pBaldricView
+		pTos	pRobeView
+		pTos	pCowlView
+		pTos	pSkirtView
+		pTos	pWeaponView
+		pTos	pShieldView
+		pTos	pHeadOrigin
+		pTos	pHeadBitmaps
+		pTos	pFrozenClut
+		pTos	pInvisibleClut
+		pTos	clut
+		callk	kernel_35, $2a
+		bnot
+		aTop	bitmap
+		push1
+		pushSelf
+		callk	kernel_32, $2
+		bnot
+		lat	temp[$0]
+		bnt	code_0eb2
+		pushi	$9f		; 159, add
+		push1
+		push
+		lag	global[$66]
+		send	$6
+		bnot
+code_0eb2:	ret
+
+WorldActor::setHead:
+		link	$1
+		lap	param[$1]
+		aTop	pHead
+		pushi	$35c		; 860, getBase
+		push1
+		class	BHead
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$71		; 113, 'q', data
+		push0
+		pushi	$4eb		; 1259, pOriginPoints
+		push0
+		send	$4
+		bnot
+		send	$4
+		bnot
+		aTop	pHeadOrigin
+		pushi	$71		; 113, 'q', data
+		push0
+		pushi	$4ea		; 1258, pBitmapArray
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		aTop	pHeadBitmaps
+		pushi	$38e		; 910, take
+		push1
+		pTos	pHead
+		self	$6
+		bnot
+		pushi	$392		; 914, putOn
+		push1
+		pTos	pHead
+		self	$6
+		bnot
+		ret
+
+WorldActor::setColor:
+		pushi	$3ae		; 942, setColor
+		push1
+		lsp	param[$1]
+		super	WorldObject, $6
+		bnot
+		pToa	pHead
+		bnt	code_0f17
+		pushi	$3ae		; 942, setColor
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+code_0f17:	ret
+
+WorldActor::setSex:
+		link	$1
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCharacter
+		push
+		self	$6
+		bnot
+		sat	temp[$0]
+		pushi	$30c		; 780, pSex
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		pushi	$3cb		; 971, changed
+		push0
+		self	$4
+		bnot
+		ret
+
+WorldActor::setRace:
+		link	$1
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCharacter
+		push
+		self	$6
+		bnot
+		sat	temp[$0]
+		pushi	$30b		; 779, pRace
+		push1
+		lsp	param[$1]
+		send	$6
+		bnot
+		pushi	$3cb		; 971, changed
+		push0
+		self	$4
+		bnot
+		ret
+
+WorldActor::getSex:
+		pushi	$30c		; 780, pSex
+		push0
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCharacter
+		push
+		self	$6
+		bnot
+		send	$4
+		bnot
+		ret
+
+WorldActor::getRace:
+		pushi	$30b		; 779, pRace
+		push0
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCharacter
+		push
+		self	$6
+		bnot
+		send	$4
+		bnot
+		ret
+
+WorldActor::saveStep:
+		pToa	origStep
+		aTop	pStep
+		ret
+
+WorldActor::restoreStep:
+		pToa	pStep
+		aTop	origStep
+		ret
+
+WorldActor::generatePolygon:
+		ldi	$2
+		ret
+
+WorldActor::init:
+		pToa	pMover
+		not
+		bnt	code_0f92
+		class	PolyPath
+		aTop	pMover
+code_0f92:	pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	WorldObject, $4
+		bnot
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	pWhoToFollow
+		pushi	$b5		; 181, set
+		push2
+		pushi	$ff		; 255, asInteger
+		dup
+		pToa	pWhoToFollow
+		send	$8
+		bnot
+		ret
+
+WorldActor::goto:
+		link	$3
+		pushi	$37d		; 893, servIDEquals
+		push1
+		pushi	$380		; 896, pWhoToFollow
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		self	$6
+		bnot
+		bnt	code_1072
+		pushi	$261		; 609, controls
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		bnt	code_1072
+		pushi	$384		; 900, pSittingOn
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_1072
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		self	$4
+		bnot
+		not
+		bnt	code_1072
+		pushi	$c3		; 195, script
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_1072
+		pushi	$3f8		; 1016, pMovieCmd
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		not
+		bnt	code_1072
+		pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		not
+		bnt	code_1072
+		pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		and
+		not
+		bnt	code_1072
+		pushi	$37e		; 894, pLeader
+		push0
+		class	GroupList
+		send	$4
+		bnot
+		bnt	code_1072
+		pushi	$37d		; 893, servIDEquals
+		push1
+		pushi	$2ca		; 714, pServID
+		push0
+		pushi	$37e		; 894, pLeader
+		push0
+		class	GroupList
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		not
+		bnt	code_1072
+		ldi	$f6		; 246, newCopies
+		sat	temp[$2]
+		ldi	$f6		; 246, newCopies
+		sat	temp[$1]
+		pushi	$39b		; 923, goto
+		push2
+		lsp	param[$1]
+		add
+		push
+		lsp	param[$2]
+		lat	temp[$2]
+		add
+		push
+		lag	global[$1]
+		send	$8
+		bnot
+code_1072:	pushi	$373		; 883, setAction
+		push1
+		push2
+		self	$6
+		bnot
+		pushi	$1a9		; 425, setStep
+		push2
+		pTos	origStep
+		ldi	$8		; fixPriority
+		shr
+		push
+		pTos	origStep
+		ldi	$ff		; 255, asInteger
+		and
+		push
+		self	$8
+		bnot
+		pToa	pMover
+		bnt	code_109e
+		pushi	$15c		; 348, setMotion
+		push1
+		push
+		&rest	$1
+		self	$6
+		bnot
+		jmp	code_10a9
+
+code_109e:	push2
+		lofsa	string_1f0e	; "WActor goto called on '%s' with null mover."
+		push
+		pTos	pName
+		callk	kernel_132, $4
+		bnot
+code_10a9:	ldi	$0
+		ret
+
+WorldActor::handleVerb:
+		link	$a
+		ldi	$1
+		sat	temp[$0]
+		lsp	param[$0]
+		ldi	$1
+		gt?
+		bnt	code_10bf
+		lap	param[$2]
+		sat	temp[$1]
+		jmp	code_10c3
+
+code_10bf:	ldi	$0
+		sat	temp[$1]
+code_10c3:	push1
+		pTos	pIndirectObject
+		calle	export60000_0, $2
+		bnot
+		not
+		bt	code_10dd
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldObject
+		push
+		pToa	pIndirectObject
+		send	$6
+		bnot
+		not
+code_10dd:	bnt	code_10e3
+		ldi	$0
+		aTop	pIndirectObject
+code_10e3:	push1
+		pTos	pDirectObject
+		calle	export60000_0, $2
+		bnot
+		not
+		bt	code_10fd
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldObject
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		not
+code_10fd:	bnt	code_1103
+		ldi	$0
+		aTop	pDirectObject
+code_1103:	pToa	pIndirectObject
+		bnt	code_110b
+		sat	temp[$2]
+		jmp	code_110f
+
+code_110b:	pToa	pDirectObject
+		sat	temp[$2]
+code_110f:	push1
+		lst	temp[$2]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_11af
+		pushi	$4		; scaleX
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		ldi	$4e		; 78, 'N', width
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		sat	temp[$8]
+		pushi	$4		; scaleX
+		push0
+		self	$4
+		bnot
+		push
+		ldi	$4e		; 78, 'N', width
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		sat	temp[$9]
+		lst	temp[$8]
+		add
+		push
+		ldi	$2
+		div
+		sat	temp[$7]
+		push
+		pushi	$186		; 390, approachDist
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		sat	temp[$6]
+		lsp	param[$1]
+		ldi	$3		; z
+		ne?
+		bnt	code_11af
+		pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_11af
+		pushi	$3a8		; 936, owns
+		push1
+		lst	temp[$2]
+		lag	global[$1]
+		send	$6
+		bnot
+		not
+		bnt	code_11af
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldActor
+		push
+		lat	temp[$2]
+		send	$6
+		bnot
+		not
+		bnt	code_11af
+		pushi	$165		; 357, distanceTo
+		push1
+		lst	temp[$2]
+		lag	global[$1]
+		send	$6
+		bnot
+		push
+		lat	temp[$6]
+		gt?
+		bnt	code_11af
+		pushi	$38c		; 908, setMessage
+		push1
+		lofsa	string_1f3a	; "You are not close enough!"
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		lat	temp[$0]
+		ret
+
+code_11af:	lsp	param[$1]
+		dup
+		ldi	$1
+		eq?
+		bnt	code_11e0
+		pushi	$3ec		; 1004, pAction
+		push0
+		self	$4
+		bnot
+		push
+		ldi	$1c		; 28, brLeft
+		ne?
+		bnt	code_196d
+		pushi	$3ec		; 1004, pAction
+		push0
+		self	$4
+		bnot
+		push
+		ldi	$3		; z
+		ne?
+		bnt	code_196d
+		pushi	$39b		; 923, goto
+		push0
+		&rest	$2
+		self	$4
+		bnot
+		jmp	code_196d
+
+code_11e0:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_11fd
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		class	WALookScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_11fd:	dup
+		ldi	$32		; 50, '2', edit
+		eq?
+		bnt	code_121a
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAExamineScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_121a:	dup
+		ldi	$c		; 12, inBottom
+		eq?
+		bnt	code_1237
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetOpenScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1237:	dup
+		ldi	$1a		; 26, signal
+		eq?
+		bnt	code_1254
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetSitScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1254:	dup
+		ldi	$50		; 80, 'P', claimed
+		eq?
+		bnt	code_1271
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetStandUpScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1271:	dup
+		ldi	$d		; 13, seenRect
+		eq?
+		bnt	code_128e
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetCloseScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_128e:	dup
+		ldi	$29		; 41, ')', state
+		eq?
+		bnt	code_12ab
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetLockScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_12ab:	dup
+		ldi	$28		; 40, '(', style
+		eq?
+		bnt	code_12c8
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetUnlockScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_12c8:	dup
+		ldi	$8		; fixPriority
+		eq?
+		bnt	code_1315
+		pToa	pIndirectObject
+		bnt	code_12d5
+		aTop	pDirectObject
+code_12d5:	ldi	$0
+		aTop	pIndirectObject
+		pToa	pDirectObject
+		bnt	code_196d
+		pushi	$40d		; 1037, pMoney
+		push0
+		send	$4
+		bnot
+		bnt	code_12fe
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetMoneyTakeScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_12fe:	pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetTakeScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1315:	dup
+		ldi	$b		; 11, inRight
+		eq?
+		bnt	code_13aa
+		pToa	pDirectObject
+		bnt	code_196d
+		pToa	pIndirectObject
+		bnt	code_196d
+		pushi	$97		; 151, isKindOf
+		push1
+		class	Money
+		push
+		pToa	pIndirectObject
+		send	$6
+		bnot
+		bt	code_1340
+		pushi	$97		; 151, isKindOf
+		push1
+		class	Mana
+		push
+		pToa	pIndirectObject
+		send	$6
+		bnot
+code_1340:	bnt	code_135a
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetMoneyPutScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_135a:	pushi	$35c		; 860, getBase
+		push1
+		class	BWearable
+		push
+		pToa	pIndirectObject
+		send	$6
+		bnot
+		sat	temp[$3]
+		bnt	code_1393
+		pushi	$41e		; 1054, pIsWorn
+		push0
+		send	$4
+		bnot
+		bnt	code_1393
+		pushi	$4		; scaleX
+		pushi	$3		; z
+		pushi	$2f		; 47, '/', mark
+		pTos	pIndirectObject
+		push0
+		callk	kernel_158, $8
+		bnot
+		pushi	$4		; scaleX
+		pushi	$3		; z
+		pushi	$b		; 11, inRight
+		pTos	pDirectObject
+		pTos	pIndirectObject
+		callk	kernel_158, $8
+		bnot
+		jmp	code_196d
+
+code_1393:	pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetPutScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_13aa:	dup
+		ldi	$a		; 10, inTop
+		eq?
+		bnt	code_1401
+		pToa	pDirectObject
+		bnt	code_196d
+		pushi	$97		; 151, isKindOf
+		push1
+		class	Money
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		bt	code_13d0
+		pushi	$97		; 151, isKindOf
+		push1
+		class	Mana
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+code_13d0:	bnt	code_13ea
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetMoneyDropScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_13ea:	pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetDropScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1401:	dup
+		ldi	$3d		; 61, '=', b_xAxis
+		eq?
+		bnt	code_141f
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetPutOnScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_141f:	dup
+		ldi	$16		; 22, lsLeft
+		eq?
+		bnt	code_143d
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetPutOnScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_143d:	dup
+		ldi	$2f		; 47, '/', mark
+		eq?
+		bnt	code_145b
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetTakeOffScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_145b:	dup
+		ldi	$3a		; 58, ':', b_i1
+		eq?
+		bnt	code_147d
+		pushi	$3ec		; 1004, pAction
+		push0
+		self	$4
+		bnot
+		push
+		ldi	$1c		; 28, brLeft
+		ne?
+		bnt	code_196d
+		pushi	$3		; z
+		pushi	$e		; 14, view
+		push0
+		push0
+		callk	kernel_118, $6
+		bnot
+		jmp	code_196d
+
+code_147d:	dup
+		ldi	$33		; 51, '3', play
+		eq?
+		bnt	code_14a2
+		pTos	pAction
+		ldi	$3		; z
+		ne?
+		bnt	code_196d
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		class	WAExitScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_14a2:	dup
+		ldi	$6d		; 109, 'm', picture
+		eq?
+		bnt	code_14fe
+		pToa	pDirectObject
+		bnt	code_196d
+		pushi	$35c		; 860, getBase
+		push1
+		class	BOpenable
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		sat	temp[$3]
+		bnt	code_14e7
+		pushi	$425		; 1061, pOpen
+		push0
+		send	$4
+		bnot
+		not
+		bnt	code_14e7
+		pushi	$4		; scaleX
+		pushi	$3		; z
+		pushi	$c		; 12, inBottom
+		pTos	pDirectObject
+		push0
+		callk	kernel_158, $8
+		bnot
+		pushi	$4		; scaleX
+		pushi	$3		; z
+		pushi	$6d		; 109, 'm', picture
+		pTos	pDirectObject
+		push0
+		callk	kernel_158, $8
+		bnot
+		jmp	code_196d
+
+code_14e7:	pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAEnterScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_14fe:	dup
+		ldi	$1b		; 27, illegalBits
+		eq?
+		bnt	code_151c
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetAttackScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_151c:	dup
+		ldi	$70		; 112, 'p', coordType
+		eq?
+		bnt	code_153a
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetStartCombatScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_153a:	dup
+		ldi	$3f		; 63, '?', xStep
+		eq?
+		bnt	code_1558
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetShopScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1558:	dup
+		ldi	$49		; 73, 'I', replay
+		eq?
+		bnt	code_1576
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetSellScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1576:	dup
+		ldi	$89		; 137, top
+		eq?
+		bnt	code_1595
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetAuctionScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1595:	dup
+		ldi	$7c		; 124, '|', titleBack
+		eq?
+		bnt	code_15b3
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetRechargeScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_15b3:	dup
+		ldi	$25		; 37, '%', fore
+		eq?
+		bnt	code_15d1
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetRepairScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_15d1:	dup
+		ldi	$2b5c		; 11100
+		eq?
+		bnt	code_15f0
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetGetSellScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_15f0:	dup
+		ldi	$2b75		; 11125
+		eq?
+		bnt	code_160f
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetGetRepairScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_160f:	dup
+		ldi	$11		; 17, bitmap
+		eq?
+		bnt	code_162d
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetConsumeScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_162d:	dup
+		ldi	$12		; 18, nsLeft
+		eq?
+		bnt	code_164b
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetConsumeScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_164b:	dup
+		ldi	$77		; 119, 'w', textTop
+		eq?
+		bnt	code_1669
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetMemorizeScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1669:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_1687
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetTalkScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1687:	dup
+		ldi	$1d		; 29, brTop
+		eq?
+		bnt	code_16e3
+		pToa	pDirectObject
+		bnt	code_196d
+		pToa	pIndirectObject
+		bnt	code_196d
+		pushi	$97		; 151, isKindOf
+		push1
+		class	Money
+		push
+		pToa	pIndirectObject
+		send	$6
+		bnot
+		bt	code_16b2
+		pushi	$97		; 151, isKindOf
+		push1
+		class	Mana
+		push
+		pToa	pIndirectObject
+		send	$6
+		bnot
+code_16b2:	bnt	code_16cc
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetMoneyGiveScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_16cc:	pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetGiveScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_16e3:	dup
+		ldi	$2d		; 45, '-', cursor
+		eq?
+		bnt	code_1725
+		pToa	pDirectObject
+		bnt	code_196d
+		pushi	$b5		; 181, set
+		push2
+		pushi	$2cb		; 715, pServIDLo
+		push0
+		send	$4
+		bnot
+		push
+		pushi	$2cc		; 716, pServIDHi
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pToa	pWhoToFollow
+		send	$8
+		bnot
+		pushi	$382		; 898, updatePanel
+		push1
+		pushi	$383		; 899, curPanel
+		push0
+		lag	global[$6]
+		send	$4
+		bnot
+		push
+		lag	global[$6]
+		send	$6
+		bnot
+		ldi	$0
+		aTop	pDirectObject
+		jmp	code_196d
+
+code_1725:	dup
+		ldi	$72		; 114, 'r', skip
+		eq?
+		bnt	code_1753
+		pushi	$b5		; 181, set
+		push2
+		pushi	$ff		; 255, asInteger
+		dup
+		pToa	pWhoToFollow
+		send	$8
+		bnot
+		pushi	$382		; 898, updatePanel
+		push1
+		pushi	$383		; 899, curPanel
+		push0
+		lag	global[$6]
+		send	$4
+		bnot
+		push
+		lag	global[$6]
+		send	$6
+		bnot
+		ldi	$0
+		aTop	pDirectObject
+		jmp	code_196d
+
+code_1753:	dup
+		ldi	$74		; 116, 't', all
+		eq?
+		bnt	code_1771
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetGroupScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1771:	dup
+		ldi	$1c		; 28, brLeft
+		eq?
+		bnt	code_178f
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetTradeScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_178f:	dup
+		ldi	$75		; 117, 'u', show
+		eq?
+		bnt	code_17ac
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		class	WANetNewPassScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_17ac:	dup
+		ldi	$76		; 118, 'v', textLeft
+		eq?
+		bnt	code_17ed
+		pushi	$d0		; 208, with
+		push1
+		pushi	$35d		; 861, pProperName
+		push0
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCharacter
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$4]
+		pushi	$c9		; 201, setScript
+		pushi	$3		; z
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetGoHomeScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		lst	temp[$4]
+		self	$a
+		bnot
+		jmp	code_196d
+
+code_17ed:	dup
+		ldi	$78		; 120, 'x', textRight
+		eq?
+		bnt	code_180b
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetRobScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_180b:	dup
+		ldi	$7d		; 125, '}', titleFont
+		eq?
+		bnt	code_1829
+		pToa	pDirectObject
+		bnt	code_196d
+		pushi	$142		; 322, pObject
+		push1
+		push
+		pushi	$94		; 148, init
+		push0
+		class	MakeItemDialog
+		send	$a
+		bnot
+		jmp	code_196d
+
+code_1829:	dup
+		ldi	$7		; priority
+		eq?
+		bnt	code_1847
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetUseScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1847:	dup
+		ldi	$79		; 121, 'y', textBottom
+		eq?
+		bnt	code_1865
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetUseScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1865:	dup
+		ldi	$7a		; 122, 'z', borderColor
+		eq?
+		bnt	code_1883
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetUseScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1883:	dup
+		ldi	$7b		; 123, '{', titleFore
+		eq?
+		bnt	code_18a1
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetUseScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_18a1:	dup
+		ldi	$81		; 129, magnifier
+		eq?
+		bnt	code_18c0
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetUseScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_18c0:	dup
+		ldi	$e		; 14, view
+		eq?
+		bnt	code_18de
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetPushScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_18de:	dup
+		ldi	$7e		; 126, '~', dimmed
+		eq?
+		bnt	code_18fc
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetOpenScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_18fc:	dup
+		ldi	$7f		; 127, frameOut
+		eq?
+		bnt	code_191a
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetCloseScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_191a:	dup
+		ldi	$80		; 128, lastKey
+		eq?
+		bnt	code_1939
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetDyeScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1939:	dup
+		ldi	$2b8e		; 11150
+		eq?
+		bnt	code_1958
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WANetDyeScript
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		self	$8
+		bnot
+		jmp	code_196d
+
+code_1958:	ldi	$0
+		sat	temp[$0]
+		ldi	$0
+		aTop	pDirectObject
+		aTop	pIndirectObject
+		lat	temp[$1]
+		bnt	code_196d
+		pushi	$c7		; 199, cue
+		push0
+		send	$4
+		bnot
+code_196d:	toss
+		lat	temp[$0]
+		ret
+
+WorldActor::setMotion:
+		link	$1
+		pToa	mover
+		sat	temp[$0]
+		pushi	$15c		; 348, setMotion
+		push1
+		lsp	param[$1]
+		&rest	$2
+		super	WorldObject, $6
+		bnot
+		lat	temp[$0]
+		bnt	code_199c
+		pToa	mover
+		not
+		bnt	code_199c
+		pTos	pAction
+		ldi	$2
+		eq?
+		bnt	code_199c
+		pushi	$373		; 883, setAction
+		push1
+		push1
+		self	$6
+		bnot
+code_199c:	ret
+
+WorldActor::setAction:
+		pTos	pAction
+		ldi	$1c		; 28, brLeft
+		eq?
+		bnt	code_19a5
+		ret
+
+code_19a5:	push2
+		pushi	$80		; 128, lastKey
+		pTos	pBaseView
+		lap	param[$1]
+		add
+		push
+		callk	kernel_5, $4
+		bnot
+		not
+		bnt	code_1a40
+		lsp	param[$1]
+		dup
+		ldi	$b		; 11, inRight
+		eq?
+		bnt	code_19c6
+		ldi	$2
+		sap	param[$1]
+		jmp	code_1a3f
+
+code_19c6:	dup
+		ldi	$e		; 14, view
+		eq?
+		bnt	code_19d3
+		ldi	$2
+		sap	param[$1]
+		jmp	code_1a3f
+
+code_19d3:	dup
+		ldi	$1a		; 26, signal
+		eq?
+		bnt	code_19e0
+		ldi	$2
+		sap	param[$1]
+		jmp	code_1a3f
+
+code_19e0:	dup
+		ldi	$12		; 18, nsLeft
+		eq?
+		bnt	code_19ed
+		ldi	$2
+		sap	param[$1]
+		jmp	code_1a3f
+
+code_19ed:	dup
+		ldi	$16		; 22, lsLeft
+		eq?
+		bnt	code_19fa
+		ldi	$2
+		sap	param[$1]
+		jmp	code_1a3f
+
+code_19fa:	dup
+		ldi	$a		; 10, inTop
+		eq?
+		bnt	code_1a07
+		ldi	$1
+		sap	param[$1]
+		jmp	code_1a3f
+
+code_1a07:	dup
+		ldi	$d		; 13, seenRect
+		eq?
+		bnt	code_1a14
+		ldi	$1
+		sap	param[$1]
+		jmp	code_1a3f
+
+code_1a14:	dup
+		ldi	$19		; 25, lsBottom
+		eq?
+		bnt	code_1a21
+		ldi	$1
+		sap	param[$1]
+		jmp	code_1a3f
+
+code_1a21:	dup
+		ldi	$11		; 17, bitmap
+		eq?
+		bnt	code_1a2e
+		ldi	$1
+		sap	param[$1]
+		jmp	code_1a3f
+
+code_1a2e:	dup
+		ldi	$15		; 21, nsBottom
+		eq?
+		bnt	code_1a3b
+		ldi	$1
+		sap	param[$1]
+		jmp	code_1a3f
+
+code_1a3b:	ldi	$1
+		sap	param[$1]
+code_1a3f:	toss
+code_1a40:	pushi	$373		; 883, setAction
+		push1
+		lsp	param[$1]
+		super	WorldObject, $6
+		bnot
+		lsp	param[$1]
+		dup
+		ldi	$2
+		eq?
+		bnt	code_1a60
+		pushi	$105		; 261, setCycle
+		push1
+		class	Walk
+		push
+		self	$6
+		bnot
+		jmp	code_1a91
+
+code_1a60:	dup
+		ldi	$1
+		eq?
+		bnt	code_1a91
+		pTos	view
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_1a91
+		push1
+		pushSelf
+		callk	kernel_22, $2
+		bnot
+		push
+		ldi	$1
+		gt?
+		bnt	code_1a89
+		pushi	$105		; 261, setCycle
+		push1
+		class	Fwd
+		push
+		self	$6
+		bnot
+		jmp	code_1a91
+
+code_1a89:	pushi	$105		; 261, setCycle
+		push1
+		push0
+		self	$6
+		bnot
+code_1a91:	toss
+		ret
+
+WorldActor::gotoVisibleLocation:
+		link	$c
+		pTos	pAction
+		ldi	$3		; z
+		eq?
+		bnt	code_1ab1
+		lap	param[$0]
+		bnt	code_1ab0
+		lap	param[$1]
+		bnt	code_1ab0
+		pushi	$c7		; 199, cue
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+code_1ab0:	ret
+
+code_1ab1:	pToa	plane
+		sat	temp[$4]
+		pushi	$89		; 137, top
+		push0
+		pToa	plane
+		send	$4
+		bnot
+		push
+		ldi	$1e		; 30, brRight
+		add
+		sat	temp[$0]
+		pushi	$87		; 135, left
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		ldi	$1e		; 30, brRight
+		add
+		sat	temp[$1]
+		pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		ldi	$1e		; 30, brRight
+		sub
+		sat	temp[$2]
+		pushi	$88		; 136, right
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		ldi	$1e		; 30, brRight
+		sub
+		sat	temp[$3]
+		pToa	y
+		sat	temp[$6]
+code_1af5:	lst	temp[$6]
+		lat	temp[$2]
+		lt?
+		bnt	code_1bed
+		pToa	x
+		sat	temp[$5]
+code_1b01:	lst	temp[$5]
+		lat	temp[$1]
+		gt?
+		bnt	code_1b70
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		lst	temp[$5]
+		lst	temp[$6]
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$a
+		bnot
+		sat	temp[$7]
+		bnt	code_1b30
+		push2
+		push0
+		send	$4
+		bnot
+		push
+		lat	temp[$6]
+		gt?
+code_1b30:	not
+		bnt	code_1b67
+		lst	temp[$5]
+		pToa	x
+		eq?
+		bnt	code_1b55
+		lst	temp[$6]
+		pToa	y
+		eq?
+		bnt	code_1b55
+		lap	param[$0]
+		bnt	code_1b66
+		pushi	$c7		; 199, cue
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		jmp	code_1b66
+
+code_1b55:	pushi	$39b		; 923, goto
+		pushi	$3		; z
+		lst	temp[$5]
+		lst	temp[$6]
+		&rest	$2
+		lsp	param[$1]
+		self	$a
+		bnot
+code_1b66:	ret
+
+code_1b67:	lst	temp[$5]
+		ldi	$a		; 10, inTop
+		sub
+		sat	temp[$5]
+		jmp	code_1b01
+
+code_1b70:	pToa	x
+		sat	temp[$5]
+code_1b74:	lst	temp[$5]
+		lat	temp[$3]
+		lt?
+		bnt	code_1be3
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		lst	temp[$5]
+		lst	temp[$6]
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$a
+		bnot
+		sat	temp[$7]
+		bnt	code_1ba3
+		push2
+		push0
+		send	$4
+		bnot
+		push
+		lat	temp[$6]
+		gt?
+code_1ba3:	not
+		bnt	code_1bda
+		lst	temp[$5]
+		pToa	x
+		eq?
+		bnt	code_1bc8
+		lst	temp[$6]
+		pToa	y
+		eq?
+		bnt	code_1bc8
+		lap	param[$0]
+		bnt	code_1bd9
+		pushi	$c7		; 199, cue
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		jmp	code_1bd9
+
+code_1bc8:	pushi	$39b		; 923, goto
+		pushi	$3		; z
+		lst	temp[$5]
+		lst	temp[$6]
+		&rest	$2
+		lsp	param[$1]
+		self	$a
+		bnot
+code_1bd9:	ret
+
+code_1bda:	lst	temp[$5]
+		ldi	$a		; 10, inTop
+		add
+		sat	temp[$5]
+		jmp	code_1b74
+
+code_1be3:	lst	temp[$6]
+		ldi	$a		; 10, inTop
+		add
+		sat	temp[$6]
+		jmp	code_1af5
+
+code_1bed:	pToa	y
+		sat	temp[$6]
+code_1bf1:	lst	temp[$6]
+		lat	temp[$0]
+		gt?
+		bnt	code_1ce9
+		pToa	x
+		sat	temp[$5]
+code_1bfd:	lst	temp[$5]
+		lat	temp[$1]
+		gt?
+		bnt	code_1c6c
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		lst	temp[$5]
+		lst	temp[$6]
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$a
+		bnot
+		sat	temp[$7]
+		bnt	code_1c2c
+		push2
+		push0
+		send	$4
+		bnot
+		push
+		lat	temp[$6]
+		gt?
+code_1c2c:	not
+		bnt	code_1c63
+		lst	temp[$5]
+		pToa	x
+		eq?
+		bnt	code_1c51
+		lst	temp[$6]
+		pToa	y
+		eq?
+		bnt	code_1c51
+		lap	param[$0]
+		bnt	code_1c62
+		pushi	$c7		; 199, cue
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		jmp	code_1c62
+
+code_1c51:	pushi	$39b		; 923, goto
+		pushi	$3		; z
+		lst	temp[$5]
+		lst	temp[$6]
+		&rest	$2
+		lsp	param[$1]
+		self	$a
+		bnot
+code_1c62:	ret
+
+code_1c63:	lst	temp[$5]
+		ldi	$a		; 10, inTop
+		sub
+		sat	temp[$5]
+		jmp	code_1bfd
+
+code_1c6c:	pToa	x
+		sat	temp[$5]
+code_1c70:	lst	temp[$5]
+		lat	temp[$3]
+		lt?
+		bnt	code_1cdf
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		lst	temp[$5]
+		lst	temp[$6]
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		send	$a
+		bnot
+		sat	temp[$7]
+		bnt	code_1c9f
+		push2
+		push0
+		send	$4
+		bnot
+		push
+		lat	temp[$6]
+		gt?
+code_1c9f:	not
+		bnt	code_1cd6
+		lst	temp[$5]
+		pToa	x
+		eq?
+		bnt	code_1cc4
+		lst	temp[$6]
+		pToa	y
+		eq?
+		bnt	code_1cc4
+		lap	param[$0]
+		bnt	code_1cd5
+		pushi	$c7		; 199, cue
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		jmp	code_1cd5
+
+code_1cc4:	pushi	$39b		; 923, goto
+		pushi	$3		; z
+		lst	temp[$5]
+		lst	temp[$6]
+		&rest	$2
+		lsp	param[$1]
+		self	$a
+		bnot
+code_1cd5:	ret
+
+code_1cd6:	lst	temp[$5]
+		ldi	$a		; 10, inTop
+		add
+		sat	temp[$5]
+		jmp	code_1c70
+
+code_1cdf:	lst	temp[$6]
+		ldi	$a		; 10, inTop
+		sub
+		sat	temp[$6]
+		jmp	code_1bf1
+
+code_1ce9:	ret
+
+WALookScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_1d0c
+		pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+		jmp	code_1d3a
+
+code_1d0c:	lsp	param[$2]
+		dup
+		ldi	$c350		; -15536
+		eq?
+		bnt	code_1d28
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1f5f	; "You can't quite make it out from here."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_1d39
+
+code_1d28:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_1d39:	toss
+code_1d3a:	lat	temp[$0]
+		bnt	code_1d49
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_1d49:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WALookScript::changeState:
+		link	$2
+		pToa	pDirectObject
+		sat	temp[$0]
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_1db5
+		push1
+		lst	temp[$0]
+		calle	export60000_0, $2
+		bnot
+		not
+		bnt	code_1d7d
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_1d7d:	pushi	$37d		; 893, servIDEquals
+		push2
+		pushi	$ff		; 255, asInteger
+		dup
+		lat	temp[$0]
+		send	$8
+		bnot
+		bt	code_1d98
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldActor
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+code_1d98:	bnt	code_1da2
+		ldi	$1
+		aTop	cycles
+		jmp	code_1faa
+
+code_1da2:	pushi	$39c		; 924, approach
+		pushi	$3		; z
+		lst	temp[$0]
+		pushi	$3		; z
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_1faa
+
+code_1db5:	dup
+		ldi	$1
+		eq?
+		bnt	code_1dcb
+		pushi	$39d		; 925, face
+		push2
+		lst	temp[$0]
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_1faa
+
+code_1dcb:	dup
+		ldi	$2
+		eq?
+		bnt	code_1ea7
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pHandsOff
+		pushi	$3e6		; 998, pUser
+		push1
+		pTos	pClient
+		lat	temp[$0]
+		send	$6
+		bnot
+		push1
+		lst	temp[$0]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_1e18
+		pushi	$37d		; 893, servIDEquals
+		push2
+		pushi	$ff		; 255, asInteger
+		dup
+		lat	temp[$0]
+		send	$8
+		bnot
+		bnt	code_1e18
+		pushi	$391		; 913, look
+		push1
+		lst	temp[$0]
+		pToa	pClient
+		send	$6
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_1faa
+
+code_1e18:	push1
+		lst	temp[$0]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_1e6e
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldActor
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		bnt	code_1e6e
+		pushi	$386		; 902, hasBase
+		push1
+		class	BNPC
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		not
+		bnt	code_1e6e
+		pushi	$319		; 793, pHead
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_1e6e
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		aTop	register
+		pushi	$50e		; 1294, getBiography
+		pushi	$3		; z
+		lst	temp[$0]
+		pTos	register
+		pushSelf
+		lag	global[$6a]
+		send	$a
+		bnot
+		jmp	code_1faa
+
+code_1e6e:	push1
+		lst	temp[$0]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_1e99
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		aTop	register
+		pushi	$4fa		; 1274, getDescription
+		pushi	$3		; z
+		lst	temp[$0]
+		pTos	register
+		pushSelf
+		lag	global[$6a]
+		send	$a
+		bnot
+		jmp	code_1faa
+
+code_1e99:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_1faa
+
+code_1ea7:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_1faa
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pHandsOff
+		ldi	$1
+		aTop	pDone
+		pushi	$37d		; 893, servIDEquals
+		push2
+		pushi	$ff		; 255, asInteger
+		dup
+		lat	temp[$0]
+		send	$8
+		bnot
+		bnt	code_1ed8
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_1faa
+
+code_1ed8:	push1
+		lst	temp[$0]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_1f24
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldActor
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		bnt	code_1f24
+		pushi	$386		; 902, hasBase
+		push1
+		class	BNPC
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		not
+		bnt	code_1f24
+		pushi	$319		; 793, pHead
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		bnt	code_1f24
+		pushi	$45		; 69, 'E', doit
+		push1
+		lst	temp[$0]
+		class	CreateLookDialog
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_1faa
+
+code_1f24:	push1
+		lst	temp[$0]
+		calle	export60000_0, $2
+		bnot
+		bnt	code_1f85
+		pushi	$35c		; 860, getBase
+		push1
+		class	BDescribed
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		sat	temp[$1]
+		bnt	code_1f85
+		pushi	$386		; 902, hasBase
+		push1
+		class	BNPC
+		push
+		lat	temp[$0]
+		send	$6
+		bnot
+		not
+		bnt	code_1f85
+		pushi	$645		; 1605, pIsBook
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		eq?
+		bnt	code_1f85
+		pushi	$3		; z
+		pushi	$13		; 19, nsTop
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1f86	; "Book"
+		push
+		class	Str
+		send	$6
+		bnot
+		push
+		push2
+		pushi	$9		; inLeft
+		pTos	register
+		callk	kernel_91, $4
+		bnot
+		push
+		callk	kernel_118, $6
+		bnot
+		jmp	code_1f9a
+
+code_1f85:	pushi	$4		; scaleX
+		pushi	$7		; priority
+		push2
+		lst	temp[$0]
+		push2
+		pushi	$9		; inLeft
+		pTos	register
+		callk	kernel_91, $4
+		bnot
+		push
+		callk	kernel_118, $8
+		bnot
+code_1f9a:	pushi	$95		; 149, dispose
+		push0
+		pToa	register
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_1faa:	toss
+		ret
+
+WANetSitScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2070
+		push1
+		pTos	pDirectObject
+		callk	kernel_20, $2
+		bnot
+		pushi	$4e		; 78, 'N', width
+		pushi	$4		; scaleX
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		sat	temp[$2]
+		pushi	$4e		; 78, 'N', width
+		pushi	$5		; scaleY
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		sat	temp[$3]
+		pushi	$87		; 135, left
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushi	$5		; scaleY
+		push2
+		pushi	$e		; 14, view
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushi	$f		; 15, loop
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushi	$10		; 16, cel
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushi	$9		; inLeft
+		callk	kernel_36, $a
+		bnot
+		push
+		lat	temp[$2]
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		add
+		sat	temp[$0]
+		pushi	$89		; 137, top
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushi	$5		; scaleY
+		pushi	$3		; z
+		pushi	$e		; 14, view
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushi	$f		; 15, loop
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushi	$10		; 16, cel
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushi	$9		; inLeft
+		callk	kernel_36, $a
+		bnot
+		push
+		lat	temp[$3]
+		mul
+		push
+		ldi	$64		; 100, 'd', moveDone
+		div
+		add
+		sat	temp[$1]
+		lat	temp[$0]
+		aTop	x
+		lat	temp[$1]
+		aTop	y
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		lst	temp[$0]
+		push
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_20dd
+
+code_2070:	dup
+		ldi	$1
+		eq?
+		bnt	code_20aa
+		push1
+		push1
+		pTos	x
+		push2
+		push1
+		pTos	y
+		pToa	pClient
+		send	$c
+		bnot
+		pushi	$f		; 15, loop
+		push1
+		pushi	$f		; 15, loop
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$3cd		; 973, recordPosn
+		push0
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		pToa	pClient
+		send	$a
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_20dd
+
+code_20aa:	dup
+		ldi	$2
+		eq?
+		bnt	code_20cf
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$a2		; 162, allTrue
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_20dd
+
+code_20cf:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_20dd
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_20dd:	toss
+		ret
+
+WASitScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_212a
+		pushi	$343		; 835, pOwner
+		push1
+		pTos	pClient
+		pushi	$35c		; 860, getBase
+		push1
+		class	BSit
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		sat	temp[$0]
+		send	$6
+		bnot
+		pushi	$384		; 900, pSittingOn
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$3		; z
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_2138
+
+code_212a:	dup
+		ldi	$1
+		eq?
+		bnt	code_2138
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2138:	toss
+		ret
+
+WANetStandUpScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2164
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$a3		; 163, contains
+		lsg	global[$1]
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_2172
+
+code_2164:	dup
+		ldi	$1
+		eq?
+		bnt	code_2172
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2172:	toss
+		ret
+
+WAStandScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2212
+		pushi	$632		; 1586, pHealthHi
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$0
+		lt?
+		bt	code_21e0
+		pushi	$632		; 1586, pHealthHi
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		not
+		bnt	code_21a9
+		pushi	$406		; 1030, pHealth
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		not
+code_21a9:	bt	code_21e0
+		pushi	$3ec		; 1004, pAction
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$1c		; 28, brLeft
+		eq?
+		bt	code_21e0
+		pToa	register
+		not
+		bnt	code_21f1
+		push1
+		pushi	$384		; 900, pSittingOn
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_21f1
+		pushi	$384		; 900, pSittingOn
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+code_21e0:	bnt	code_21f1
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_22c8
+
+code_21f1:	pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_2202
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_2202:	pushi	$105		; 261, setCycle
+		push2
+		class	Beg
+		push
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_22c8
+
+code_2212:	dup
+		ldi	$1
+		eq?
+		bnt	code_22a5
+		pushi	$381		; 897, pMode
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_2253
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		bnt	code_2253
+		pushi	$105		; 261, setCycle
+		push1
+		class	End
+		push
+		pushi	$373		; 883, setAction
+		push1
+		push1
+		pTos	pClient
+		calle	export40111_0, $2
+		bnot
+		push
+		pToa	pClient
+		send	$c
+		bnot
+		jmp	code_229e
+
+code_2253:	push1
+		pushi	$384		; 900, pSittingOn
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_2294
+		pushi	$35c		; 860, getBase
+		push1
+		class	BSit
+		push
+		pushi	$384		; 900, pSittingOn
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		send	$6
+		bnot
+		sat	temp[$0]
+		bnt	code_2294
+		pushi	$343		; 835, pOwner
+		push1
+		push0
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$384		; 900, pSittingOn
+		push1
+		push0
+		pToa	pClient
+		send	$6
+		bnot
+code_2294:	pushi	$373		; 883, setAction
+		push1
+		push1
+		pToa	pClient
+		send	$6
+		bnot
+code_229e:	ldi	$1
+		aTop	cycles
+		jmp	code_22c8
+
+code_22a5:	dup
+		ldi	$2
+		eq?
+		bnt	code_22c8
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_22bd
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_22bd:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_22c8:	toss
+		ret
+
+WANetMemorizeScript::handleError:
+		link	$2
+		ldi	$0
+		sat	temp[$0]
+		ldi	$0
+		sat	temp[$1]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_2375
+		lsp	param[$3]
+		dup
+		ldi	$2711		; 10001
+		eq?
+		bnt	code_22f8
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1fd4	; "You know all there is to know about that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_2371
+
+code_22f8:	dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_2312
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1ffe	; "You do not have enough build points to learn that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_2371
+
+code_2312:	dup
+		ldi	$2730		; 10032
+		eq?
+		bnt	code_232c
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2031	; "You do not have enough skill to learn that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_2371
+
+code_232c:	dup
+		ldi	$272f		; 10031
+		eq?
+		bnt	code_2346
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_205d	; "You failed to learn that skill and spent one build point due to the effort."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_2371
+
+code_2346:	dup
+		ldi	$272c		; 10028
+		eq?
+		bnt	code_2360
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_20a9	; "Your intelligence is too limited to learn that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_2371
+
+code_2360:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_2371:	toss
+		jmp	code_2386
+
+code_2375:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_2386:	lat	temp[$0]
+		bnt	code_23ba
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_20d9	; "Learn> %s"
+		push
+		lst	temp[$0]
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$1]
+		pushi	$3		; z
+		pushi	$6		; maxScale
+		push2
+		push
+		callk	kernel_118, $6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		pushi	$38c		; 908, setMessage
+		push1
+		lst	temp[$0]
+		lag	global[$1]
+		send	$6
+		bnot
+code_23ba:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetMemorizeScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_23f0
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$a5		; 165, first
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_23fe
+
+code_23f0:	dup
+		ldi	$1
+		eq?
+		bnt	code_23fe
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_23fe:	toss
+		ret
+
+WAMemorizeScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2428
+		pushi	$31e		; 798, pDirectObject
+		push1
+		push0
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_2436
+
+code_2428:	dup
+		ldi	$1
+		eq?
+		bnt	code_2436
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2436:	toss
+		ret
+
+WANetTalkScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2457
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$4		; scaleX
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_249a
+
+code_2457:	dup
+		ldi	$1
+		eq?
+		bnt	code_246d
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_249a
+
+code_246d:	dup
+		ldi	$2
+		eq?
+		bnt	code_248c
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$50f		; 1295, talkTo
+		push2
+		pTos	pDirectObject
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_249a
+
+code_248c:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_249a
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_249a:	toss
+		ret
+
+approveGive::doit:
+		lap	param[$0]
+		bnt	code_24d3
+		lap	param[$1]
+		not
+		bnt	code_24c9
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$97		; 151, isKindOf
+		pTos	pClient
+		pushi	$ff		; 255, asInteger
+		dup
+		lag	global[$6a]
+		send	$c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_24c9:	pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_2502
+
+code_24d3:	pushi	$10		; 16, cel
+		pTos	pPrompt
+		pushi	$fdf5		; -523
+		lsg	global[$55]
+		pushi	$8b		; 139, numLines
+		push1
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_2118	; "Accept"
+		push
+		push1
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_211f	; "Refuse"
+		push
+		push0
+		pushi	$91		; 145, bitPutIndex
+		push2
+		pushi	$93		; 147, pLine
+		pushSelf
+		pushi	$45		; 69, 'E', doit
+		&rest	$3		; z
+		calle	export60029_0, $20
+		bnot
+		ret
+
+code_2502:	ret
+
+WANetGiveScript::handleEvent:
+		lsp	param[$1]
+		dup
+		ldi	$0
+		eq?
+		bnt	code_251a
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_2528
+
+code_251a:	dup
+		ldi	$1
+		eq?
+		bnt	code_2528
+		pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+code_2528:	toss
+		ret
+
+WANetGiveScript::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_254b
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$1d		; 29, brTop
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_2604
+
+code_254b:	dup
+		ldi	$1
+		eq?
+		bnt	code_2561
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_2604
+
+code_2561:	dup
+		ldi	$2
+		eq?
+		bnt	code_25d1
+		pushi	$35c		; 860, getBase
+		push1
+		class	BShop
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		bnt	code_25ca
+		pushi	$f5		; 245, format
+		pushi	$3		; z
+		lofsa	string_2132	; "Are you sure you want to give your\n"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$a
+		bnot
+		sat	temp[$1]
+		pushi	$c		; 12, inBottom
+		pushi	$b		; 11, inRight
+		pushi	$4		; scaleX
+		lofsa	string_215f	; "Are you sure?"
+		push
+		lst	temp[$1]
+		lofsa	string_216d	; "No"
+		push
+		pushSelf
+		pushi	$95		; 149, dispose
+		lofsa	string_2170	; "Yes"
+		push
+		pushSelf
+		pushi	$c7		; 199, cue
+		push1
+		push0
+		callk	kernel_118, $18
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		jmp	code_2604
+
+code_25ca:	ldi	$1
+		aTop	cycles
+		jmp	code_2604
+
+code_25d1:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_25f6
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$a4		; 164, isEmpty
+		pTos	pDirectObject
+		pTos	pIndirectObject
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_2604
+
+code_25f6:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_2604
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2604:	toss
+		ret
+
+WAGiveScript::changeState:
+		link	$3
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_263e
+		pushi	$384		; 900, pSittingOn
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		not
+		bnt	code_2637
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$4		; scaleX
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pClient
+		send	$e
+		bnot
+		jmp	code_2686
+
+code_2637:	ldi	$1
+		aTop	cycles
+		jmp	code_2686
+
+code_263e:	dup
+		ldi	$1
+		eq?
+		bnt	code_265b
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAStandScript
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_2686
+
+code_265b:	dup
+		ldi	$2
+		eq?
+		bnt	code_2674
+		pushi	$38e		; 910, take
+		push1
+		pTos	pIndirectObject
+		pToa	pDirectObject
+		send	$6
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_2686
+
+code_2674:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_2686
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2686:	toss
+		ret
+
+WANetMoneyGiveScript::dispose:
+		pToa	scratch
+		bnt	code_2698
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	scratch
+code_2698:	push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WANetScript, $4
+		bnot
+		ret
+
+WANetMoneyGiveScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_26f2
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	scratch
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_26e3
+		pushi	$4		; scaleX
+		pushi	$20		; 32, ' ', name
+		push0
+		pushSelf
+		pTos	scratch
+		callk	kernel_118, $8
+		bnot
+		jmp	code_277f
+
+code_26e3:	pushi	$4		; scaleX
+		pushi	$20		; 32, ' ', name
+		push1
+		pushSelf
+		pTos	scratch
+		callk	kernel_118, $8
+		bnot
+		jmp	code_277f
+
+code_26f2:	dup
+		ldi	$1
+		eq?
+		bnt	code_2727
+		pushi	$12d		; 301, greater
+		push1
+		push0
+		pToa	scratch
+		send	$6
+		bnot
+		bnt	code_2719
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$1d		; 29, brTop
+		pushSelf
+		pToa	client
+		send	$a
+		bnot
+		jmp	code_277f
+
+code_2719:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_277f
+
+code_2727:	dup
+		ldi	$2
+		eq?
+		bnt	code_273d
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	client
+		send	$8
+		bnot
+		jmp	code_277f
+
+code_273d:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_276d
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$510		; 1296, giveMoney
+		pushi	$4		; scaleX
+		pTos	scratch
+		pTos	pDirectObject
+		pushi	$97		; 151, isKindOf
+		push1
+		class	Mana
+		push
+		pToa	pIndirectObject
+		send	$6
+		bnot
+		push
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_277f
+
+code_276d:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_277f
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_277f:	toss
+		ret
+
+WAMoneyGiveScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_27b9
+		pushi	$384		; 900, pSittingOn
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		not
+		bnt	code_27b2
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$4		; scaleX
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pClient
+		send	$e
+		bnot
+		jmp	code_283f
+
+code_27b2:	ldi	$1
+		aTop	cycles
+		jmp	code_283f
+
+code_27b9:	dup
+		ldi	$1
+		eq?
+		bnt	code_2831
+		pushi	$3e3		; 995, pIndirectObject
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		bnt	code_27f5
+		pushi	$3da		; 986, subManaValue
+		push1
+		pushi	$2f5		; 757, pNumber
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$3d9		; 985, addManaValue
+		push1
+		pushi	$2f5		; 757, pNumber
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		jmp	code_281b
+
+code_27f5:	pushi	$3d7		; 983, subValue
+		push1
+		pushi	$2f5		; 757, pNumber
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$3d6		; 982, addValue
+		push1
+		pushi	$2f5		; 757, pNumber
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+code_281b:	pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAStandScript
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_283f
+
+code_2831:	dup
+		ldi	$2
+		eq?
+		bnt	code_283f
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_283f:	toss
+		ret
+
+WAExamineScript::changeState:
+		link	$1
+		pToa	pDirectObject
+		sat	temp[$0]
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2866
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		lst	temp[$0]
+		pushi	$32		; 50, '2', edit
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_28bf
+
+code_2866:	dup
+		ldi	$1
+		eq?
+		bnt	code_287c
+		pushi	$39d		; 925, face
+		push2
+		lst	temp[$0]
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_28bf
+
+code_287c:	dup
+		ldi	$2
+		eq?
+		bnt	code_28ad
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pHandsOff
+		pushi	$3e6		; 998, pUser
+		push1
+		pTos	pClient
+		lat	temp[$0]
+		send	$6
+		bnot
+		pushi	$39e		; 926, examine
+		push1
+		lst	temp[$0]
+		pToa	pClient
+		send	$6
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_28bf
+
+code_28ad:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_28bf
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_28bf:	toss
+		ret
+
+myGetPass::doit:
+		lap	param[$0]
+		bnt	code_28ec
+		lap	param[$1]
+		bnt	code_28d7
+		pushi	$c7		; 199, cue
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		jmp	code_28e2
+
+code_28d7:	pushi	$9f		; 159, add
+		push1
+		pTos	pClient
+		class	DeadObjects
+		send	$6
+		bnot
+code_28e2:	pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_2932
+
+code_28ec:	pushi	$9f		; 159, add
+		push1
+		pushi	$15		; 21, nsBottom
+		pTos	pPrompt
+		pushi	$76		; 118, 'v', textLeft
+		pTos	pStr
+		pTos	pMax
+		pushi	$fdf5		; -523
+		lsg	global[$55]
+		pushi	$fdf4		; -524
+		pushi	$2a		; 42, '*', font
+		pushi	$8b		; 139, numLines
+		push1
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_21c8	; " OK "
+		push
+		push1
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_21cd	; "Cancel"
+		push
+		push0
+		pushi	$91		; 145, bitPutIndex
+		push2
+		pushi	$93		; 147, pLine
+		pushSelf
+		pushi	$45		; 69, 'E', doit
+		&rest	$2
+		calle	export60029_0, $2a
+		bnot
+		aTop	pPrint
+		push
+		class	gDialogList
+		send	$6
+		bnot
+code_2932:	ret
+
+WANetOpenScript::dispose:
+		pToa	pDone
+		not
+		bnt	code_293f
+		push1
+		push1
+		callk	kernel_158, $2
+		bnot
+code_293f:	pToa	scratch
+		bnt	code_294b
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_294b:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WANetScript, $4
+		bnot
+		ret
+
+WANetOpenScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_2a0b
+		lsp	param[$3]
+		dup
+		ldi	$2717		; 10007
+		eq?
+		bnt	code_298a
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_21de	; "You can't open the %s because it is locked."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		jmp	code_2a07
+
+code_298a:	dup
+		ldi	$2714		; 10004
+		eq?
+		bnt	code_29ae
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_21de	; "You can't open the %s because it is locked."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		jmp	code_2a07
+
+code_29ae:	dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_29d2
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_220a	; "The %s is strangely sealed and will not open."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		jmp	code_2a07
+
+code_29d2:	dup
+		ldi	$271d		; 10013
+		eq?
+		bnt	code_29f6
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_2238	; "You can not open that. The %s will open when the last person in it's dungeon has left."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		jmp	code_2a07
+
+code_29f6:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_2a07:	toss
+		jmp	code_2a1c
+
+code_2a0b:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_2a1c:	push1
+		push1
+		callk	kernel_158, $2
+		bnot
+		lat	temp[$0]
+		bnt	code_2a31
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_2a31:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetOpenScript::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2a5e
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$c		; 12, inBottom
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_2b54
+
+code_2a5e:	dup
+		ldi	$1
+		eq?
+		bnt	code_2a74
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_2b54
+
+code_2a74:	dup
+		ldi	$2
+		eq?
+		bnt	code_2ac0
+		pushi	$35c		; 860, getBase
+		push1
+		class	BPassword
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		sat	temp[$1]
+		bnt	code_2ab7
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		aTop	scratch
+		pushi	$a		; 10, inTop
+		pushi	$b		; 11, inRight
+		push1
+		lofsa	string_228f	; "Password"
+		push
+		lofsa	string_2298	; "Enter the password:"
+		push
+		pTos	scratch
+		pushi	$10		; 16, cel
+		pushSelf
+		pushi	$95		; 149, dispose
+		pushSelf
+		pushi	$c7		; 199, cue
+		callk	kernel_118, $14
+		bnot
+		jmp	code_2b54
+
+code_2ab7:	ipToa	state
+		ldi	$1
+		aTop	cycles
+		jmp	code_2b54
+
+code_2ac0:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_2ae1
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	scratch
+		send	$4
+		bnot
+		not
+		bnt	code_2ada
+		pTos	state
+		ldi	$2
+		sub
+		aTop	state
+code_2ada:	ldi	$1
+		aTop	cycles
+		jmp	code_2b54
+
+code_2ae1:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_2b42
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$35c		; 860, getBase
+		push1
+		class	BPassword
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		bnt	code_2b2d
+		pushi	$35c		; 860, getBase
+		push1
+		class	BEntry
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		bnt	code_2b15
+		push1
+		push1
+		callk	kernel_158, $2
+		bnot
+code_2b15:	pushi	$511		; 1297, performPass
+		pushi	$5		; scaleY
+		pushi	$9b		; 155, handleMsg
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pTos	scratch
+		pushSelf
+		lag	global[$6a]
+		send	$e
+		bnot
+		jmp	code_2b54
+
+code_2b2d:	pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$9b		; 155, handleMsg
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_2b54
+
+code_2b42:	dup
+		ldi	$5		; scaleY
+		eq?
+		bnt	code_2b54
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2b54:	toss
+		ret
+
+WAOpenScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2be2
+		pushi	$3e6		; 998, pUser
+		push1
+		pTos	pClient
+		pushi	$248		; 584, open
+		push0
+		pToa	pDirectObject
+		send	$a
+		bnot
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_22bc	; "dopen.wav"
+		push
+		pTos	pDirectObject
+		class	SoundMgr
+		send	$8
+		bnot
+		pushi	$35c		; 860, getBase
+		push1
+		class	BOpenable
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		bnt	code_2bc9
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$1e		; 30, brRight
+		pToa	pDirectObject
+		send	$6
+		bnot
+		lag	global[$d5]
+		bnt	code_2bb9
+		pushi	$10		; 16, cel
+		push1
+		push1
+		pTos	pDirectObject
+		callk	kernel_22, $2
+		bnot
+		push
+		ldi	$1
+		sub
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_2c05
+
+code_2bb9:	pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pDirectObject
+		send	$8
+		bnot
+		jmp	code_2c05
+
+code_2bc9:	pushi	$10		; 16, cel
+		push1
+		push1
+		pToa	pDirectObject
+		send	$6
+		bnot
+		pushi	$1ad		; 429, update
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_2c05
+
+code_2be2:	dup
+		ldi	$1
+		eq?
+		bnt	code_2c05
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_2bfa
+		pushi	$3a4		; 932, showContents
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+code_2bfa:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2c05:	toss
+		ret
+
+WANetCloseScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_2c50
+		lsp	param[$3]
+		dup
+		ldi	$271d		; 10013
+		eq?
+		bnt	code_2c3b
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_22d3	; "You can not close that. The %s will close once someone has entered it's dungeon."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		jmp	code_2c4c
+
+code_2c3b:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_2c4c:	toss
+		jmp	code_2c61
+
+code_2c50:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_2c61:	lat	temp[$0]
+		bnt	code_2c70
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_2c70:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetCloseScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2c9b
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$d		; 13, seenRect
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_2ce8
+
+code_2c9b:	dup
+		ldi	$1
+		eq?
+		bnt	code_2cb1
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_2ce8
+
+code_2cb1:	dup
+		ldi	$2
+		eq?
+		bnt	code_2cd6
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$9c		; 156, handleError
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_2ce8
+
+code_2cd6:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_2ce8
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2ce8:	toss
+		ret
+
+WACloseScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2d7f
+		pushi	$3e6		; 998, pUser
+		push1
+		pTos	pClient
+		pushi	$253		; 595, close
+		push0
+		pToa	pDirectObject
+		send	$a
+		bnot
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_2335	; "dclose.wav"
+		push
+		pTos	pDirectObject
+		class	SoundMgr
+		send	$8
+		bnot
+		pushi	$35c		; 860, getBase
+		push1
+		class	BOpenable
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		bnt	code_2d66
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$1e		; 30, brRight
+		pToa	pDirectObject
+		send	$6
+		bnot
+		lag	global[$d5]
+		bnt	code_2d42
+		pushi	$10		; 16, cel
+		push1
+		push0
+		pToa	pDirectObject
+		send	$6
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_2d9a
+
+code_2d42:	pushi	$10		; 16, cel
+		push1
+		push1
+		pTos	pDirectObject
+		callk	kernel_22, $2
+		bnot
+		push
+		ldi	$1
+		sub
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		pushi	$105		; 261, setCycle
+		push2
+		class	Beg
+		push
+		pushSelf
+		pToa	pDirectObject
+		send	$8
+		bnot
+		jmp	code_2d9a
+
+code_2d66:	pushi	$10		; 16, cel
+		push1
+		push0
+		pToa	pDirectObject
+		send	$6
+		bnot
+		pushi	$1ad		; 429, update
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_2d9a
+
+code_2d7f:	dup
+		ldi	$1
+		eq?
+		bnt	code_2d9a
+		pushi	$3a5		; 933, hideContents
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2d9a:	toss
+		ret
+
+WANetDyeScript::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2dbe
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$80		; 128, lastKey
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_2e0b
+
+code_2dbe:	dup
+		ldi	$1
+		eq?
+		bnt	code_2dd4
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_2e0b
+
+code_2dd4:	dup
+		ldi	$2
+		eq?
+		bnt	code_2df9
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$a9		; 169, prev
+		pTos	pDirectObject
+		pTos	pIndirectObject
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_2e0b
+
+code_2df9:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_2e0b
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2e0b:	toss
+		ret
+
+WANetLockScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+		bnt	code_2e31
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_2e31:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetLockScript::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2e5e
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$29		; 41, ')', state
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_2eb2
+
+code_2e5e:	dup
+		ldi	$1
+		eq?
+		bnt	code_2e74
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_2eb2
+
+code_2e74:	dup
+		ldi	$2
+		eq?
+		bnt	code_2ea0
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$9d		; 157, eachElementDo
+		pTos	pDirectObject
+		pToa	pIndirectObject
+		bnt	code_2e94
+		jmp	code_2e96
+
+code_2e94:	ldi	$ff		; 255, asInteger
+code_2e96:	push
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_2eb2
+
+code_2ea0:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_2eb2
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2eb2:	toss
+		ret
+
+WALockScript::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2ee6
+		pushi	$3e6		; 998, pUser
+		push1
+		pTos	pClient
+		pushi	$34a		; 842, lock
+		push0
+		pToa	pDirectObject
+		send	$a
+		bnot
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_236d	; "dlock.wav"
+		push
+		pTos	pDirectObject
+		class	SoundMgr
+		send	$8
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_2ef8
+
+code_2ee6:	dup
+		ldi	$1
+		eq?
+		bnt	code_2ef8
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2ef8:	toss
+		ret
+
+WANetUnlockScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+		bnt	code_2f1e
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_2f1e:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetUnlockScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2f49
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$28		; 40, '(', style
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_2f9d
+
+code_2f49:	dup
+		ldi	$1
+		eq?
+		bnt	code_2f5f
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_2f9d
+
+code_2f5f:	dup
+		ldi	$2
+		eq?
+		bnt	code_2f8b
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$9e		; 158, nextNode
+		pTos	pDirectObject
+		pToa	pIndirectObject
+		bnt	code_2f7f
+		jmp	code_2f81
+
+code_2f7f:	ldi	$ff		; 255, asInteger
+code_2f81:	push
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_2f9d
+
+code_2f8b:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_2f9d
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2f9d:	toss
+		ret
+
+WAUnlockScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_2fcf
+		pushi	$3e6		; 998, pUser
+		push1
+		pTos	pClient
+		pushi	$38d		; 909, unlock
+		push0
+		pToa	pDirectObject
+		send	$a
+		bnot
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_2396	; "dunlock.wav"
+		push
+		pTos	pDirectObject
+		class	SoundMgr
+		send	$8
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_2fe1
+
+code_2fcf:	dup
+		ldi	$1
+		eq?
+		bnt	code_2fe1
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_2fe1:	toss
+		ret
+
+WANetTakeScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_3022
+		lsp	param[$3]
+		dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_300d
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_23b1	; "You weren't fast enough."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_301e
+
+code_300d:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_301e:	toss
+		jmp	code_3033
+
+code_3022:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_3033:	lat	temp[$0]
+		bnt	code_3042
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_3042:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetTakeScript::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_306f
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$8		; fixPriority
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_30bc
+
+code_306f:	dup
+		ldi	$1
+		eq?
+		bnt	code_3085
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_30bc
+
+code_3085:	dup
+		ldi	$2
+		eq?
+		bnt	code_30aa
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$96		; 150, isClass
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_30bc
+
+code_30aa:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_30bc
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_30bc:	toss
+		ret
+
+WATakeScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3113
+		pushi	$3a8		; 936, owns
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		not
+		bnt	code_30e6
+		pushi	$3ec		; 1004, pAction
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$3		; z
+		ne?
+code_30e6:	aTop	pDoAnimation
+		pToa	pDoAnimation
+		bnt	code_3109
+		lag	global[$d5]
+		not
+		bnt	code_3109
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$5		; scaleY
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pClient
+		send	$e
+		bnot
+		jmp	code_3172
+
+code_3109:	pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+		jmp	code_3172
+
+code_3113:	dup
+		ldi	$1
+		eq?
+		bnt	code_3137
+		pushi	$3e6		; 998, pUser
+		push1
+		pTos	pClient
+		pToa	pDirectObject
+		send	$6
+		bnot
+		pushi	$38e		; 910, take
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_3172
+
+code_3137:	dup
+		ldi	$2
+		eq?
+		bnt	code_3154
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAStandScript
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_3172
+
+code_3154:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_3172
+		pushi	$3		; z
+		pushi	$d		; 13, seenRect
+		pushi	$3		; z
+		pTos	pDirectObject
+		callk	kernel_118, $6
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3172:	toss
+		ret
+
+WANetMoneyTakeScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_31b3
+		lsp	param[$3]
+		dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_319e
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_23b1	; "You weren't fast enough."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_31af
+
+code_319e:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_31af:	toss
+		jmp	code_31c4
+
+code_31b3:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_31c4:	lat	temp[$0]
+		bnt	code_31d3
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_31d3:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetMoneyTakeScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3200
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$8		; fixPriority
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_3247
+
+code_3200:	dup
+		ldi	$1
+		eq?
+		bnt	code_3216
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_3247
+
+code_3216:	dup
+		ldi	$2
+		eq?
+		bnt	code_3235
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$512		; 1298, takeMoney
+		push2
+		pTos	pDirectObject
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_3247
+
+code_3235:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_3247
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3247:	toss
+		ret
+
+WAMoneyTakeScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_32a0
+		pushi	$3ec		; 1004, pAction
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$3		; z
+		ne?
+		bnt	code_3273
+		pushi	$3a8		; 936, owns
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		not
+code_3273:	aTop	pDoAnimation
+		pToa	pDoAnimation
+		bnt	code_3296
+		lag	global[$d5]
+		not
+		bnt	code_3296
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$5		; scaleY
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pClient
+		send	$e
+		bnot
+		jmp	code_3340
+
+code_3296:	pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+		jmp	code_3340
+
+code_32a0:	dup
+		ldi	$1
+		eq?
+		bnt	code_32fe
+		pushi	$38e		; 910, take
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_32d9
+		pushi	$3d9		; 985, addManaValue
+		push1
+		pushi	$338		; 824, pManaValue
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		jmp	code_32ec
+
+code_32d9:	pushi	$3d6		; 982, addValue
+		push1
+		pushi	$337		; 823, pValue
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pToa	pClient
+		send	$6
+		bnot
+code_32ec:	pToa	pDirectObject
+		bnt	code_32f7
+		pushi	$69		; 105, 'i', hide
+		push0
+		send	$4
+		bnot
+code_32f7:	ldi	$1
+		aTop	cycles
+		jmp	code_3340
+
+code_32fe:	dup
+		ldi	$2
+		eq?
+		bnt	code_331b
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAStandScript
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_3340
+
+code_331b:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_3340
+		pushi	$31e		; 798, pDirectObject
+		push1
+		push0
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3340:	toss
+		ret
+
+WANetPutScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_339b
+		lsp	param[$3]
+		dup
+		ldi	$271c		; 10012
+		eq?
+		bnt	code_336c
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_240e	; "It's too bulky to fit in that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_3397
+
+code_336c:	dup
+		ldi	$271d		; 10013
+		eq?
+		bnt	code_3386
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_242d	; "It's too heavy to fit in that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_3397
+
+code_3386:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_3397:	toss
+		jmp	code_33ac
+
+code_339b:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_33ac:	lat	temp[$0]
+		bnt	code_33bb
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_33bb:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetPutScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_33e6
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$b		; 11, inRight
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_3433
+
+code_33e6:	dup
+		ldi	$1
+		eq?
+		bnt	code_33fc
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_3433
+
+code_33fc:	dup
+		ldi	$2
+		eq?
+		bnt	code_3421
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$98		; 152, isMemberOf
+		pTos	pDirectObject
+		pTos	pIndirectObject
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_3433
+
+code_3421:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_3433
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3433:	toss
+		ret
+
+WAPutScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_348e
+		pushi	$384		; 900, pSittingOn
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		not
+		bnt	code_3487
+		pushi	$3a8		; 936, owns
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		not
+		aTop	pDoAnimation
+		pToa	pDoAnimation
+		bnt	code_347d
+		lag	global[$d5]
+		not
+		bnt	code_347d
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$5		; scaleY
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pClient
+		send	$e
+		bnot
+		jmp	code_34dc
+
+code_347d:	pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+		jmp	code_34dc
+
+code_3487:	ldi	$1
+		aTop	cycles
+		jmp	code_34dc
+
+code_348e:	dup
+		ldi	$1
+		eq?
+		bnt	code_34ad
+		pushi	$3e6		; 998, pUser
+		push1
+		pTos	pClient
+		pushi	$38e		; 910, take
+		push1
+		pTos	pIndirectObject
+		pToa	pDirectObject
+		send	$c
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_34dc
+
+code_34ad:	dup
+		ldi	$2
+		eq?
+		bnt	code_34ca
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAStandScript
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_34dc
+
+code_34ca:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_34dc
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_34dc:	toss
+		ret
+
+WANetMoneyPutScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+		bnt	code_3502
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_3502:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetMoneyPutScript::dispose:
+		pToa	scratch
+		bnt	code_351e
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	scratch
+code_351e:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WANetScript, $4
+		bnot
+		ret
+
+WANetMoneyPutScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3548
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$b		; 11, inRight
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_35f7
+
+code_3548:	dup
+		ldi	$1
+		eq?
+		bnt	code_355e
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_35f7
+
+code_355e:	dup
+		ldi	$2
+		eq?
+		bnt	code_359f
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	scratch
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_3590
+		pushi	$4		; scaleX
+		pushi	$20		; 32, ' ', name
+		push0
+		pushSelf
+		pTos	scratch
+		callk	kernel_118, $8
+		bnot
+		jmp	code_35f7
+
+code_3590:	pushi	$4		; scaleX
+		pushi	$20		; 32, ' ', name
+		push1
+		pushSelf
+		pTos	scratch
+		callk	kernel_118, $8
+		bnot
+		jmp	code_35f7
+
+code_359f:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_35e5
+		pushi	$12d		; 301, greater
+		push1
+		push0
+		pToa	scratch
+		send	$6
+		bnot
+		bnt	code_35de
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$513		; 1299, putMoney
+		pushi	$4		; scaleX
+		pTos	scratch
+		pTos	pDirectObject
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		push
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_35f7
+
+code_35de:	ldi	$1
+		aTop	cycles
+		jmp	code_35f7
+
+code_35e5:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_35f7
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_35f7:	toss
+		ret
+
+WAMoneyPutScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3654
+		pushi	$384		; 900, pSittingOn
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		not
+		bnt	code_364d
+		pushi	$3a8		; 936, owns
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		not
+		aTop	pDoAnimation
+		pToa	pDoAnimation
+		bnt	code_3643
+		lag	global[$d5]
+		not
+		bnt	code_3643
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$5		; scaleY
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pClient
+		send	$e
+		bnot
+		jmp	code_3703
+
+code_3643:	pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+		jmp	code_3703
+
+code_364d:	ldi	$1
+		aTop	cycles
+		jmp	code_3703
+
+code_3654:	dup
+		ldi	$1
+		eq?
+		bnt	code_36d4
+		pToa	pIndirectObject
+		bnt	code_36cd
+		pToa	pDirectObject
+		bnt	code_36cd
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCarryable
+		push
+		pToa	pIndirectObject
+		send	$6
+		bnot
+		bnt	code_36cd
+		pushi	$46e		; 1134, pShow
+		push1
+		push1
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCarryable
+		push
+		pToa	pIndirectObject
+		send	$6
+		bnot
+		send	$6
+		bnot
+		pushi	$38e		; 910, take
+		push1
+		pTos	pIndirectObject
+		pToa	pDirectObject
+		send	$6
+		bnot
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_36ba
+		pushi	$3da		; 986, subManaValue
+		push1
+		pushi	$338		; 824, pManaValue
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		jmp	code_36cd
+
+code_36ba:	pushi	$3d7		; 983, subValue
+		push1
+		pushi	$337		; 823, pValue
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		pToa	pClient
+		send	$6
+		bnot
+code_36cd:	ldi	$1
+		aTop	cycles
+		jmp	code_3703
+
+code_36d4:	dup
+		ldi	$2
+		eq?
+		bnt	code_36f1
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAStandScript
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_3703
+
+code_36f1:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_3703
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3703:	toss
+		ret
+
+WANetDropScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+		bnt	code_3729
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_3729:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetDropScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3750
+		pushi	$506		; 1286, gotoVisibleLocation
+		push1
+		pushSelf
+		pToa	pClient
+		send	$6
+		bnot
+		jmp	code_3787
+
+code_3750:	dup
+		ldi	$1
+		eq?
+		bnt	code_3775
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$97		; 151, isKindOf
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_3787
+
+code_3775:	dup
+		ldi	$2
+		eq?
+		bnt	code_3787
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3787:	toss
+		ret
+
+WADropScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3801
+		lag	global[$d5]
+		bt	code_37e1
+		pushi	$632		; 1586, pHealthHi
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$0
+		lt?
+		bt	code_37e1
+		pushi	$406		; 1030, pHealth
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		not
+		bnt	code_37c1
+		pushi	$632		; 1586, pHealthHi
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		not
+code_37c1:	bt	code_37e1
+		pushi	$3ec		; 1004, pAction
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$1c		; 28, brLeft
+		eq?
+		bt	code_37e1
+		pushi	$3ec		; 1004, pAction
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$3		; z
+		eq?
+code_37e1:	bnt	code_37eb
+		ldi	$1
+		aTop	cycles
+		jmp	code_3906
+
+code_37eb:	pushi	$373		; 883, setAction
+		push1
+		pushi	$5		; scaleY
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pClient
+		send	$e
+		bnot
+		jmp	code_3906
+
+code_3801:	dup
+		ldi	$1
+		eq?
+		bnt	code_38cd
+		pushi	$390		; 912, drop
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push1
+		pTos	pDirectObject
+		class	GotoVisibleLocation
+		send	$6
+		bnot
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		bnt	code_38c6
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		not
+		bt	code_3852
+		pushi	$128		; 296, equalLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		send	$6
+		bnot
+		not
+code_3852:	bnt	code_38c6
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		not
+		bnt	code_3878
+		pushi	$2fb		; 763, pCombatGroup
+		push1
+		pushi	$8d		; 141, new
+		push2
+		pushi	$ff		; 255, asInteger
+		dup
+		class	LongInt
+		send	$8
+		bnot
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+code_3878:	pushi	$10f		; 271, setLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		not
+		bt	code_38ba
+		pushi	$128		; 296, equalLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		send	$6
+		bnot
+		not
+code_38ba:	bnt	code_38c6
+		pushi	$3e0		; 992, setVisible
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+code_38c6:	ldi	$1
+		aTop	cycles
+		jmp	code_3906
+
+code_38cd:	dup
+		ldi	$2
+		eq?
+		bnt	code_38f4
+		pushi	$514		; 1300, pMakePile
+		push1
+		push1
+		lag	global[$3]
+		send	$6
+		bnot
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAStandScript
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_3906
+
+code_38f4:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_3906
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3906:	toss
+		ret
+
+WAForceDropScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_39d9
+		pushi	$394		; 916, takeOff
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$390		; 912, drop
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		bnt	code_39d2
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		not
+		bt	code_395e
+		pushi	$128		; 296, equalLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		send	$6
+		bnot
+		not
+code_395e:	bnt	code_39d2
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		not
+		bnt	code_3984
+		pushi	$2fb		; 763, pCombatGroup
+		push1
+		pushi	$8d		; 141, new
+		push2
+		pushi	$ff		; 255, asInteger
+		dup
+		class	LongInt
+		send	$8
+		bnot
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+code_3984:	pushi	$10f		; 271, setLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		not
+		bt	code_39c6
+		pushi	$128		; 296, equalLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		send	$6
+		bnot
+		not
+code_39c6:	bnt	code_39d2
+		pushi	$3e0		; 992, setVisible
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+code_39d2:	ldi	$1
+		aTop	cycles
+		jmp	code_39f5
+
+code_39d9:	dup
+		ldi	$1
+		eq?
+		bnt	code_39f5
+		pushi	$514		; 1300, pMakePile
+		push1
+		push1
+		lag	global[$3]
+		send	$6
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_39f5:	toss
+		ret
+
+WANetMoneyDropScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+		bnt	code_3a1b
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_3a1b:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetMoneyDropScript::dispose:
+		pToa	scratch
+		bnt	code_3a37
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	scratch
+code_3a37:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WANetScript, $4
+		bnot
+		ret
+
+WANetMoneyDropScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3a8a
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	scratch
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_3a7b
+		pushi	$4		; scaleX
+		pushi	$20		; 32, ' ', name
+		push0
+		pushSelf
+		pTos	scratch
+		callk	kernel_118, $8
+		bnot
+		jmp	code_3af9
+
+code_3a7b:	pushi	$4		; scaleX
+		pushi	$20		; 32, ' ', name
+		push1
+		pushSelf
+		pTos	scratch
+		callk	kernel_118, $8
+		bnot
+		jmp	code_3af9
+
+code_3a8a:	dup
+		ldi	$1
+		eq?
+		bnt	code_3ab9
+		pushi	$12d		; 301, greater
+		push1
+		push0
+		pToa	scratch
+		send	$6
+		bnot
+		bnt	code_3aab
+		pushi	$506		; 1286, gotoVisibleLocation
+		push1
+		pushSelf
+		pToa	pClient
+		send	$6
+		bnot
+		jmp	code_3af9
+
+code_3aab:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_3af9
+
+code_3ab9:	dup
+		ldi	$2
+		eq?
+		bnt	code_3ae7
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$515		; 1301, dropMoney
+		pushi	$3		; z
+		pTos	scratch
+		pushi	$97		; 151, isKindOf
+		push1
+		class	Mana
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		push
+		pushSelf
+		lag	global[$6a]
+		send	$a
+		bnot
+		jmp	code_3af9
+
+code_3ae7:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_3af9
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3af9:	toss
+		ret
+
+WAMoneyDropScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3b59
+		lag	global[$d5]
+		bt	code_3b39
+		pushi	$3ec		; 1004, pAction
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$1c		; 28, brLeft
+		eq?
+		bt	code_3b39
+		pushi	$3ec		; 1004, pAction
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$3		; z
+		eq?
+		bt	code_3b39
+		pushi	$381		; 897, pMode
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+code_3b39:	bnt	code_3b43
+		ldi	$1
+		aTop	cycles
+		jmp	code_3bf8
+
+code_3b43:	pushi	$373		; 883, setAction
+		push1
+		pushi	$5		; scaleY
+		pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pClient
+		send	$e
+		bnot
+		jmp	code_3bf8
+
+code_3b59:	dup
+		ldi	$1
+		eq?
+		bnt	code_3bbf
+		pushi	$390		; 912, drop
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_3b92
+		pushi	$3da		; 986, subManaValue
+		push1
+		pushi	$338		; 824, pManaValue
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		jmp	code_3ba5
+
+code_3b92:	pushi	$3d7		; 983, subValue
+		push1
+		pushi	$337		; 823, pValue
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pToa	pClient
+		send	$6
+		bnot
+code_3ba5:	pushi	$3fb		; 1019, pHidden
+		push1
+		push0
+		pToa	pDirectObject
+		send	$6
+		bnot
+		pushi	$3e0		; 992, setVisible
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_3bf8
+
+code_3bbf:	dup
+		ldi	$2
+		eq?
+		bnt	code_3be6
+		pushi	$514		; 1300, pMakePile
+		push1
+		push1
+		lag	global[$3]
+		send	$6
+		bnot
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAStandScript
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_3bf8
+
+code_3be6:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_3bf8
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3bf8:	toss
+		ret
+
+WANetPutOnScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_3c53
+		lsp	param[$3]
+		dup
+		ldi	$2712		; 10002
+		eq?
+		bnt	code_3c24
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_24e2	; "You are already wearing something there."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_3c4f
+
+code_3c24:	dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_3c3e
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_250b	; "You are unable to use it\n"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_3c4f
+
+code_3c3e:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_3c4f:	toss
+		jmp	code_3ca3
+
+code_3c53:	lsp	param[$3]
+		dup
+		ldi	$c350		; -15536
+		eq?
+		bnt	code_3c79
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_1eab	; "You can't get close enough to the %s."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		jmp	code_3ca2
+
+code_3c79:	dup
+		ldi	$c351		; -15535
+		eq?
+		bnt	code_3c93
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_1ed1	; "You have to stand up first."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_3ca2
+
+code_3c93:	pushi	$f5		; 245, format
+		push1
+		lofsa	string_1eed	; "You can not do that."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+code_3ca2:	toss
+code_3ca3:	lat	temp[$0]
+		bnt	code_3cb2
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_3cb2:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetPutOnScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3ce8
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$99		; 153, respondsTo
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_3cfa
+
+code_3ce8:	dup
+		ldi	$1
+		eq?
+		bnt	code_3cfa
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3cfa:	toss
+		ret
+
+WAPutOnScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3d1a
+		pushi	$392		; 914, putOn
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_3d74
+
+code_3d1a:	dup
+		ldi	$1
+		eq?
+		bnt	code_3d62
+		pushi	$35c		; 860, getBase
+		push1
+		class	BWeapon
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		bnt	code_3d5b
+		pushi	$381		; 897, pMode
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_3d5b
+		pushi	$373		; 883, setAction
+		push1
+		push1
+		pTos	pClient
+		calle	export40111_0, $2
+		bnot
+		push
+		pushi	$105		; 261, setCycle
+		push1
+		class	End
+		push
+		pToa	pClient
+		send	$c
+		bnot
+code_3d5b:	ldi	$1
+		aTop	cycles
+		jmp	code_3d74
+
+code_3d62:	dup
+		ldi	$2
+		eq?
+		bnt	code_3d74
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3d74:	toss
+		ret
+
+WANetTakeOffScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+		push1
+		push1
+		callk	kernel_158, $2
+		bnot
+		lat	temp[$0]
+		bnt	code_3da2
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_3da2:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetTakeOffScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3dda
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$9a		; 154, yourself
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_3dec
+
+code_3dda:	dup
+		ldi	$1
+		eq?
+		bnt	code_3dec
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3dec:	toss
+		ret
+
+WATakeOffScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3e15
+		pushi	$394		; 916, takeOff
+		push1
+		pTos	pDirectObject
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$36a		; 874, updateDisplay
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_3e6a
+
+code_3e15:	dup
+		ldi	$1
+		eq?
+		bnt	code_3e58
+		pushi	$35c		; 860, getBase
+		push1
+		class	BWeapon
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		bnt	code_3e51
+		pushi	$381		; 897, pMode
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_3e51
+		pushi	$40f		; 1039, pWeapon
+		push1
+		pushi	$ff		; 255, asInteger
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$11		; 17, bitmap
+		pToa	pClient
+		send	$6
+		bnot
+code_3e51:	ldi	$1
+		aTop	cycles
+		jmp	code_3e6a
+
+code_3e58:	dup
+		ldi	$2
+		eq?
+		bnt	code_3e6a
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_3e6a:	toss
+		ret
+
+WAEnterScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_3f0e
+		lsp	param[$3]
+		dup
+		ldi	$271c		; 10012
+		eq?
+		bnt	code_3e9e
+		pushi	$7		; priority
+		pushi	$b		; 11, inRight
+		push2
+		lofsa	string_257d	; "Room Full"
+		push
+		lofsa	string_2587	; "The room you have tried to enter is filled to capacity. Please try again later."
+		push
+		lofsa	string_25d7	; "Ok"
+		push
+		push0
+		push0
+		callk	kernel_118, $e
+		bnot
+		jmp	code_3edc
+
+code_3e9e:	dup
+		ldi	$271d		; 10013
+		eq?
+		bnt	code_3eb6
+		pushi	$38c		; 908, setMessage
+		push1
+		lofsa	string_25da	; "That dungeon is occupied by another group, you must wait for it to reset before you can enter."
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		jmp	code_3edc
+
+code_3eb6:	dup
+		ldi	$2723		; 10019
+		eq?
+		bnt	code_3ec5
+		ldi	$0
+		sat	temp[$0]
+		jmp	code_3edc
+
+code_3ec5:	pushi	$7		; priority
+		pushi	$b		; 11, inRight
+		push2
+		lofsa	string_2639	; "No Entry"
+		push
+		lofsa	string_2642	; "That does not lead anywhere that you can go."
+		push
+		lofsa	string_25d7	; "Ok"
+		push
+		push0
+		push0
+		callk	kernel_118, $e
+		bnot
+code_3edc:	toss
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$75		; 117, 'u', show
+		push0
+		pushi	$36a		; 874, updateDisplay
+		push1
+		push1
+		lag	global[$1]
+		send	$a
+		bnot
+		pushi	$3d0		; 976, recordShow
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_3f1a
+
+code_3f0e:	pushi	$9c		; 156, handleError
+		push2
+		lsp	param[$1]
+		lsp	param[$2]
+		super	WANetScript, $8
+		bnot
+code_3f1a:	ret
+
+WAEnterScript::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_3f3c
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$6d		; 109, 'm', picture
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_40b8
+
+code_3f3c:	dup
+		ldi	$1
+		eq?
+		bnt	code_3f5f
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pHandsOff
+		pushi	$516		; 1302, getEntryInfo
+		push2
+		pTos	pDirectObject
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_40b8
+
+code_3f5f:	dup
+		ldi	$2
+		eq?
+		bnt	code_3fea
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$0]
+		pushi	$10f		; 271, setLong
+		push1
+		lsg	global[$de]
+		send	$6
+		bnot
+		pushi	$128		; 296, equalLong
+		push1
+		lsg	global[$de]
+		pushi	$2f5		; 757, pNumber
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_3fc6
+		pushi	$7		; priority
+		pushi	$b		; 11, inRight
+		push2
+		lofsa	string_2639	; "No Entry"
+		push
+		lofsa	string_2642	; "That does not lead anywhere that you can go."
+		push
+		lofsa	string_25d7	; "Ok"
+		push
+		push0
+		push0
+		callk	kernel_118, $e
+		bnot
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pHandsOff
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_3fc6:	pushi	$f		; 15, loop
+		push1
+		lsg	global[$da]
+		pushi	$36a		; 874, updateDisplay
+		push1
+		push1
+		lag	global[$1]
+		send	$c
+		bnot
+		pushi	$3cd		; 973, recordPosn
+		push0
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		lag	global[$1]
+		send	$a
+		bnot
+		ldi	$2
+		aTop	seconds
+		jmp	code_40b8
+
+code_3fea:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_4025
+		pushi	$3cf		; 975, recordHide
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		pushi	$69		; 105, 'i', hide
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$272		; 626, newRoom
+		push2
+		lsg	global[$de]
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		pushi	$31e		; 798, pDirectObject
+		push1
+		push0
+		lag	global[$1]
+		send	$6
+		bnot
+		jmp	code_40b8
+
+code_4025:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_4075
+		push1
+		push1
+		lsg	global[$d8]
+		push2
+		push1
+		lsg	global[$d9]
+		pushi	$f		; 15, loop
+		push1
+		lsg	global[$e1]
+		lag	global[$1]
+		send	$12
+		bnot
+		pushi	$3cd		; 973, recordPosn
+		push0
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		lag	global[$1]
+		send	$a
+		bnot
+		pushi	$75		; 117, 'u', show
+		push0
+		pushi	$36a		; 874, updateDisplay
+		push1
+		push1
+		lag	global[$1]
+		send	$a
+		bnot
+		pushi	$3d0		; 976, recordShow
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		lsg	global[$df]
+		lsg	global[$e0]
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_40b8
+
+code_4075:	dup
+		ldi	$5		; scaleY
+		eq?
+		bnt	code_40b8
+		pushi	$94		; 148, init
+		push2
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$f2		; 242, pCast
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		class	GPolyBitmap
+		send	$8
+		bnot
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pHandsOff
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_40b8:	toss
+		ret
+
+WAExitScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$3]
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_40e2
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_267d	; "A monster bars your way!"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_40e2:	lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_40f5
+		ldi	$1
+		aTop	scratch
+		pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+code_40f5:	ret
+
+WAExitScript::dispose:
+		ldi	$3		; z
+		sag	global[$24]
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WANetScript, $4
+		bnot
+		ret
+
+WAExitScript::changeState:
+		link	$d
+		pToa	pDirectObject
+		sat	temp[$0]
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_43b2
+		pushi	$95		; 149, dispose
+		push0
+		class	gDialogList
+		send	$4
+		bnot
+		lsg	global[$e5]
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_416e
+		pushi	$f		; 15, loop
+		push0
+		lag	global[$b]
+		send	$4
+		bnot
+		push
+		dup
+		ldi	$9		; inLeft
+		eq?
+		bnt	code_4142
+		ldi	$8		; fixPriority
+		jmp	code_4168
+
+code_4142:	dup
+		ldi	$a		; 10, inTop
+		eq?
+		bnt	code_414e
+		ldi	$4		; scaleX
+		jmp	code_4168
+
+code_414e:	dup
+		ldi	$b		; 11, inRight
+		eq?
+		bnt	code_415a
+		ldi	$1
+		jmp	code_4168
+
+code_415a:	dup
+		ldi	$c		; 12, inBottom
+		eq?
+		bnt	code_4166
+		ldi	$2
+		jmp	code_4168
+
+code_4166:	ldi	$ff		; 255, asInteger
+code_4168:	toss
+		aTop	pDirection
+		jmp	code_4176
+
+code_416e:	lag	global[$e5]
+		aTop	pDirection
+		ldi	$ff		; 255, asInteger
+		sag	global[$e5]
+code_4176:	push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		sat	temp[$6]
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		sat	temp[$7]
+		pTos	pDirection
+		dup
+		ldi	$1
+		eq?
+		bnt	code_419d
+		ldi	$1
+		sag	global[$24]
+		ldi	$fc18		; -1000
+		sat	temp[$7]
+		jmp	code_41d3
+
+code_419d:	dup
+		ldi	$2
+		eq?
+		bnt	code_41b0
+		ldi	$1
+		sag	global[$24]
+		ldi	$3e8		; 1000, pUpdateClient
+		sat	temp[$7]
+		jmp	code_41d3
+
+code_41b0:	dup
+		ldi	$8		; fixPriority
+		eq?
+		bnt	code_41c3
+		ldi	$2
+		sag	global[$24]
+		ldi	$fc18		; -1000
+		sat	temp[$6]
+		jmp	code_41d3
+
+code_41c3:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_41d3
+		ldi	$2
+		sag	global[$24]
+		ldi	$3e8		; 1000, pUpdateClient
+		sat	temp[$6]
+code_41d3:	toss
+		pushi	$45		; 69, 'E', doit
+		pushi	$5		; scaleY
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		lst	temp[$6]
+		lst	temp[$7]
+		lsg	global[$24]
+		push2
+		pushi	$eac4		; -5436
+		push1
+		callk	kernel_2, $4
+		bnot
+		send	$e
+		bnot
+		sat	temp[$1]
+		ldi	$0
+		sat	temp[$9]
+		pTos	pDirection
+		dup
+		ldi	$1
+		eq?
+		bnt	code_422d
+		push2
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pushi	$1ae		; 430, horizon
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		gt?
+		bnt	code_42a2
+		ldi	$1
+		sat	temp[$9]
+		jmp	code_42a2
+
+code_422d:	dup
+		ldi	$2
+		eq?
+		bnt	code_4255
+		push2
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pushi	$8a		; 138, bottom
+		push0
+		push0
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		lt?
+		bnt	code_42a2
+		ldi	$1
+		sat	temp[$9]
+		jmp	code_42a2
+
+code_4255:	dup
+		ldi	$8		; fixPriority
+		eq?
+		bnt	code_427d
+		push1
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pushi	$87		; 135, left
+		push0
+		push0
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		gt?
+		bnt	code_42a2
+		ldi	$1
+		sat	temp[$9]
+		jmp	code_42a2
+
+code_427d:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_42a2
+		push1
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pushi	$88		; 136, right
+		push0
+		push0
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		lt?
+		bnt	code_42a2
+		ldi	$1
+		sat	temp[$9]
+code_42a2:	toss
+		lat	temp[$9]
+		bnt	code_42d2
+		pushi	$39b		; 923, goto
+		push2
+		push1
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		lag	global[$1]
+		send	$8
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_42d2:	pushi	$d3		; 211, copy
+		push1
+		push0
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$89		; 137, top
+		push1
+		pushi	$1ae		; 430, horizon
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$a		; 10, inTop
+		sub
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	Rect
+		send	$4
+		bnot
+		sat	temp[$8]
+		send	$c
+		bnot
+		pushi	$45		; 69, 'E', doit
+		pushi	$7		; priority
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		lst	temp[$6]
+		lst	temp[$7]
+		lst	temp[$8]
+		lsg	global[$24]
+		lst	temp[$1]
+		push2
+		pushi	$eac4		; -5436
+		push2
+		callk	kernel_2, $4
+		bnot
+		send	$12
+		bnot
+		pushi	$a3		; 163, contains
+		push2
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		lat	temp[$8]
+		send	$8
+		bnot
+		not
+		bnt	code_4354
+		ldi	$1
+		aTop	cycles
+		jmp	code_439d
+
+code_4354:	push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push1
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		eq?
+		bnt	code_4381
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		eq?
+		bnt	code_4381
+		ldi	$1
+		aTop	cycles
+		jmp	code_439d
+
+code_4381:	pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+code_439d:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$8]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		jmp	code_484f
+
+code_43b2:	dup
+		ldi	$1
+		eq?
+		bnt	code_4476
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pTos	pDirection
+		dup
+		ldi	$2
+		eq?
+		bnt	code_43ee
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$32		; 50, '2', edit
+		add
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_4472
+
+code_43ee:	dup
+		ldi	$1
+		eq?
+		bnt	code_4421
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$1ae		; 430, horizon
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$a		; 10, inTop
+		sub
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_4472
+
+code_4421:	dup
+		ldi	$8		; fixPriority
+		eq?
+		bnt	code_444b
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$32		; 50, '2', edit
+		sub
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_4472
+
+code_444b:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_4472
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$32		; 50, '2', edit
+		add
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+code_4472:	toss
+		jmp	code_484f
+
+code_4476:	dup
+		ldi	$2
+		eq?
+		bnt	code_44a2
+		pushi	$3cf		; 975, recordHide
+		push0
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		lag	global[$1]
+		send	$a
+		bnot
+		pushi	$69		; 105, 'i', hide
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		pushi	$518		; 1304, shiftRoom
+		push2
+		pTos	pDirection
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_484f
+
+code_44a2:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_4838
+		pToa	scratch
+		bnt	code_4569
+		ldi	$0
+		aTop	scratch
+		pushi	$75		; 117, 'u', show
+		push0
+		pushi	$3d0		; 976, recordShow
+		push0
+		lag	global[$1]
+		send	$8
+		bnot
+		pTos	pDirection
+		dup
+		ldi	$2
+		eq?
+		bnt	code_44ea
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$32		; 50, '2', edit
+		sub
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_4565
+
+code_44ea:	dup
+		ldi	$1
+		eq?
+		bnt	code_4514
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$14		; 20, nsRight
+		add
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_4565
+
+code_4514:	dup
+		ldi	$8		; fixPriority
+		eq?
+		bnt	code_453e
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$32		; 50, '2', edit
+		add
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_4565
+
+code_453e:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_4565
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$32		; 50, '2', edit
+		sub
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+code_4565:	toss
+		jmp	code_484f
+
+code_4569:	pushi	$50a		; 1290, pEntryX
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_45be
+		push1
+		push1
+		pushi	$50a		; 1290, pEntryX
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push1
+		pushi	$50b		; 1291, pEntryY
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$3cd		; 973, recordPosn
+		push0
+		pushi	$3d0		; 976, recordShow
+		push0
+		pushi	$75		; 117, 'u', show
+		push0
+		pushi	$36a		; 874, updateDisplay
+		push1
+		push1
+		lag	global[$1]
+		send	$1e
+		bnot
+		pushi	$50a		; 1290, pEntryX
+		push1
+		pushi	$ff		; 255, asInteger
+		pushi	$50b		; 1291, pEntryY
+		push1
+		pushi	$ff		; 255, asInteger
+		lag	global[$1]
+		send	$c
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_484f
+
+code_45be:	pTos	pDirection
+		dup
+		ldi	$1
+		eq?
+		bnt	code_4608
+		push2
+		push1
+		pushi	$8a		; 138, bottom
+		push0
+		push0
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$2bb		; 699, pType
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$5		; scaleY
+		ge?
+		bnt	code_46a2
+		push1
+		push1
+		pushi	$140		; 320, pHandle
+		lag	global[$1]
+		send	$6
+		bnot
+		jmp	code_46a2
+
+code_4608:	dup
+		ldi	$2
+		eq?
+		bnt	code_463c
+		push2
+		push1
+		pushi	$ff		; 255, asInteger
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$2bb		; 699, pType
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$5		; scaleY
+		ge?
+		bnt	code_46a2
+		push1
+		push1
+		pushi	$140		; 320, pHandle
+		lag	global[$1]
+		send	$6
+		bnot
+		jmp	code_46a2
+
+code_463c:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_4670
+		push1
+		push1
+		pushi	$ff		; 255, asInteger
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$2bb		; 699, pType
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$5		; scaleY
+		ge?
+		bnt	code_46a2
+		push2
+		push1
+		pushi	$f0		; 240, drawSelected
+		lag	global[$1]
+		send	$6
+		bnot
+		jmp	code_46a2
+
+code_4670:	dup
+		ldi	$8		; fixPriority
+		eq?
+		bnt	code_46a2
+		push1
+		push1
+		pushi	$280		; 640, disposeWhenDone
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$2bb		; 699, pType
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$5		; scaleY
+		ge?
+		bnt	code_46a2
+		push2
+		push1
+		pushi	$f0		; 240, drawSelected
+		lag	global[$1]
+		send	$6
+		bnot
+code_46a2:	toss
+		pushi	$d3		; 211, copy
+		push1
+		push0
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$89		; 137, top
+		push1
+		pushi	$1ae		; 430, horizon
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$a		; 10, inTop
+		sub
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	Rect
+		send	$4
+		bnot
+		sat	temp[$8]
+		send	$c
+		bnot
+		pushi	$45		; 69, 'E', doit
+		pushi	$6		; maxScale
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$422		; 1058, pSafeX
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$423		; 1059, pSafeY
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		lst	temp[$8]
+		push0
+		push2
+		pushi	$eac4		; -5436
+		pushi	$3		; z
+		callk	kernel_2, $4
+		bnot
+		send	$10
+		bnot
+		sat	temp[$1]
+		ldi	$0
+		sat	temp[$b]
+		push1
+		push1
+		push1
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push1
+		push2
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		push
+		lag	global[$1]
+		send	$c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$8]
+		send	$4
+		bnot
+		pushi	$75		; 117, 'u', show
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		pushi	$144		; 324, scaler
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		pushi	$36a		; 874, updateDisplay
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		pushi	$3cd		; 973, recordPosn
+		push0
+		pushi	$3d0		; 976, recordShow
+		push0
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		lag	global[$1]
+		send	$e
+		bnot
+		lat	temp[$b]
+		not
+		bnt	code_4831
+		pTos	pDirection
+		dup
+		ldi	$1
+		eq?
+		bnt	code_47b2
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$32		; 50, '2', edit
+		sub
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_482d
+
+code_47b2:	dup
+		ldi	$2
+		eq?
+		bnt	code_47dc
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$32		; 50, '2', edit
+		add
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_482d
+
+code_47dc:	dup
+		ldi	$8		; fixPriority
+		eq?
+		bnt	code_4806
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$32		; 50, '2', edit
+		sub
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+		jmp	code_482d
+
+code_4806:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_482d
+		pushi	$39b		; 923, goto
+		pushi	$3		; z
+		push1
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$32		; 50, '2', edit
+		add
+		push
+		push2
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushSelf
+		lag	global[$1]
+		send	$a
+		bnot
+code_482d:	toss
+		jmp	code_484f
+
+code_4831:	ldi	$1
+		aTop	cycles
+		jmp	code_484f
+
+code_4838:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_484f
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_484f:	toss
+		ret
+
+WANetStartCombatScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_48c2
+		lsp	param[$3]
+		dup
+		ldi	$2711		; 10001
+		eq?
+		bnt	code_487b
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_26a3	; "Combat already initiated."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_48be
+
+code_487b:	dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_4895
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_26bd	; "That character has elected not to fight other players."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_48be
+
+code_4895:	dup
+		ldi	$271d		; 10013
+		eq?
+		bnt	code_48af
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_26f4	; "That character is temporarily protected from player combat."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_48be
+
+code_48af:	pushi	$d0		; 208, with
+		push1
+		lofsa	string_2730	; "Unable to begin combat. Opponent leaving..."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+code_48be:	toss
+		jmp	code_48d3
+
+code_48c2:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_48d3:	lat	temp[$0]
+		bnt	code_48e2
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_48e2:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetStartCombatScript::handleEvent:
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetStartCombatScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_495b
+		lsg	global[$e6]
+		ldi	$4		; scaleX
+		and
+		not
+		bnt	code_4954
+		pushi	$433		; 1075, pPeaceful
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bnt	code_4954
+		pushi	$35c		; 860, getBase
+		push1
+		class	BNPC
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		not
+		bnt	code_4954
+		pushi	$c		; 12, inBottom
+		pushi	$b		; 11, inRight
+		pushi	$4		; scaleX
+		lofsa	string_215f	; "Are you sure?"
+		push
+		lofsa	string_275c	; "Are you SURE you want to enter into combat? Once you do, your peaceful status will be removed!"
+		push
+		lofsa	string_216d	; "No"
+		push
+		pushSelf
+		pushi	$c8		; 200, handleEvent
+		lofsa	string_2170	; "Yes"
+		push
+		pushSelf
+		pushi	$c7		; 199, cue
+		push1
+		push0
+		callk	kernel_118, $18
+		bnot
+		jmp	code_49a3
+
+code_4954:	ldi	$1
+		aTop	cycles
+		jmp	code_49a3
+
+code_495b:	dup
+		ldi	$1
+		eq?
+		bnt	code_4991
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$519		; 1305, performXY
+		pushi	$6		; maxScale
+		pushi	$a0		; 160, firstTrue
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		push1
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushSelf
+		lag	global[$6a]
+		send	$10
+		bnot
+		jmp	code_49a3
+
+code_4991:	dup
+		ldi	$2
+		eq?
+		bnt	code_49a3
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_49a3:	toss
+		ret
+
+WAStartCombatScript::dispose:
+		pToa	pDone
+		not
+		bnt	code_49b4
+		push1
+		lofsa	string_27d2	; "WAStartCombat getting tossed before completion!"
+		push
+		callk	kernel_132, $2
+		bnot
+code_49b4:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WAScript, $4
+		bnot
+		ret
+
+WAStartCombatScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_4a5a
+		pushi	$a3		; 163, contains
+		push1
+		lsg	global[$1]
+		pushi	$450		; 1104, pCombatants
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_4a4c
+		pushi	$447		; 1095, pDamage
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		sag	global[$ec]
+		lsg	global[$1]
+		pToa	pClient
+		ne?
+		bnt	code_4a0a
+		pushi	$c3		; 195, script
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bt	code_4a36
+		pushi	$3f8		; 1016, pMovieCmd
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+code_4a0a:	bt	code_4a36
+		push1
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		calle	export60000_0, $2
+		bnot
+		not
+		bt	code_4a36
+		pushi	$97		; 151, isKindOf
+		push1
+		class	CombatRoom
+		push
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+code_4a36:	bnt	code_4a42
+		dpToa	state
+		ldi	$1
+		aTop	seconds
+		jmp	code_4af4
+
+code_4a42:	pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+		jmp	code_4af4
+
+code_4a4c:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_4af4
+
+code_4a5a:	dup
+		ldi	$1
+		eq?
+		bnt	code_4af4
+		pushi	$2f5		; 757, pNumber
+		push1
+		pushi	$111		; 273, sub
+		push1
+		push2
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		send	$a
+		bnot
+		push
+		pushi	$51a		; 1306, pMovieParams
+		push1
+		pTos	pMovieCmd
+		pushi	$2ca		; 714, pServID
+		push1
+		pushi	$10f		; 271, setLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		send	$a
+		bnot
+		push
+		pushi	$2bc		; 700, virtualize
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	CombatRoom
+		send	$4
+		bnot
+		sat	temp[$0]
+		send	$16
+		bnot
+		pushi	$9f		; 159, add
+		push1
+		lst	temp[$0]
+		lag	global[$30]
+		send	$6
+		bnot
+		pushi	$111		; 273, sub
+		push1
+		push2
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		sat	temp[$1]
+		send	$6
+		bnot
+		pushi	$272		; 626, newRoom
+		push2
+		lst	temp[$1]
+		push0
+		lag	global[$30]
+		send	$8
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_4af4:	toss
+		ret
+
+WAReady::dispose:
+		pushi	$45f		; 1119, pWhoToCue
+		push1
+		push0
+		class	RoundTimer
+		send	$6
+		bnot
+		pToa	scratch
+		bnt	code_4b11
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	scratch
+code_4b11:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Script, $4
+		bnot
+		ret
+
+WAReady::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_4be5
+		ldi	$0
+		aTop	scratch
+		pushi	$97		; 151, isKindOf
+		push1
+		class	CombatRoom
+		push
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_4bdb
+		pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$4		; scaleX
+		and
+		not
+		bnt	code_4bdb
+		pushi	$45f		; 1119, pWhoToCue
+		push1
+		pushSelf
+		class	RoundTimer
+		send	$6
+		bnot
+		pushi	$462		; 1122, pReady
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bnt	code_4ba8
+		pushi	$32c		; 812, pTimer
+		push0
+		class	RoundTimer
+		send	$4
+		bnot
+		bnt	code_4ba8
+		pushi	$36		; 54, '6', client
+		push1
+		push0
+		pushi	$95		; 149, dispose
+		push0
+		pushi	$32c		; 812, pTimer
+		push0
+		class	RoundTimer
+		send	$4
+		bnot
+		send	$a
+		bnot
+		pushi	$32c		; 812, pTimer
+		push1
+		push0
+		pushi	$460		; 1120, pForefit
+		push1
+		push0
+		class	RoundTimer
+		send	$c
+		bnot
+		pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+		jmp	code_4bfe
+
+code_4ba8:	pushi	$94		; 148, init
+		pushi	$4		; scaleX
+		lofsa	string_2816	; "Waiting for your turn..."
+		push
+		pushi	$1ea		; 490, dimColor
+		pushi	$89		; 137, top
+		push0
+		push0
+		push0
+		lag	global[$6]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$e		; 14, view
+		sub
+		push
+		pushi	$ff		; 255, asInteger
+		pushi	$8d		; 141, new
+		push0
+		class	ShadowText
+		send	$4
+		bnot
+		aTop	scratch
+		send	$c
+		bnot
+		jmp	code_4bfe
+
+code_4bdb:	pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_4bfe
+
+code_4be5:	dup
+		ldi	$1
+		eq?
+		bnt	code_4bfe
+		pushi	$45f		; 1119, pWhoToCue
+		push1
+		push0
+		class	RoundTimer
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_4bfe:	toss
+		ret
+
+WANetAttackScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_4c3f
+		lsp	param[$3]
+		dup
+		ldi	$2711		; 10001
+		eq?
+		bnt	code_4c2a
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2837	; "Attack already initiated."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_4c3b
+
+code_4c2a:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_4c3b:	toss
+		jmp	code_4c6d
+
+code_4c3f:	lsp	param[$3]
+		dup
+		ldi	$c350		; -15536
+		eq?
+		bnt	code_4c5b
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2851	; "You are too far away to attack."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_4c6c
+
+code_4c5b:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_4c6c:	toss
+code_4c6d:	lat	temp[$0]
+		bnt	code_4c7c
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_4c7c:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetAttackScript::dispose:
+		pToa	pDone
+		not
+		bnt	code_4c97
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_4c97:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WANetScript, $4
+		bnot
+		ret
+
+WANetAttackScript::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_4d08
+		lag	global[$db]
+		bnt	code_4cf9
+		pushi	$381		; 897, pMode
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		bnt	code_4cf9
+		pushi	$a3		; 163, contains
+		push1
+		push2
+		pushi	$a410		; -23536
+		push1
+		callk	kernel_2, $4
+		bnot
+		push
+		lag	global[$6]
+		send	$6
+		bnot
+		bnt	code_4cf9
+		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_4cf9:	pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_4d63
+
+code_4d08:	dup
+		ldi	$1
+		eq?
+		bnt	code_4d31
+		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_4d63
+
+code_4d31:	dup
+		ldi	$2
+		eq?
+		bnt	code_4d55
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$9f		; 159, add
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		ldi	$1
+		aTop	pDone
+		jmp	code_4d63
+
+code_4d55:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_4d63
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_4d63:	toss
+		ret
+
+WAStrike::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_4eff
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bnt	code_4da5
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		bnt	code_4da5
+		pushi	$128		; 296, equalLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		send	$6
+		bnot
+code_4da5:	not
+		bt	code_4dac
+		pToa	pDirectObject
+		not
+code_4dac:	bnt	code_4db7
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_4db7:	push1
+		pushi	$40f		; 1039, pWeapon
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		calle	export60000_0, $2
+		bnot
+		bnt	code_4df7
+		pushi	$97		; 151, isKindOf
+		push1
+		class	BWeapon
+		push
+		pushi	$40f		; 1039, pWeapon
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_4df7
+		pushi	$4e3		; 1251, pDamageType
+		push0
+		pushi	$40f		; 1039, pWeapon
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		send	$4
+		bnot
+		aTop	scratch
+		jmp	code_4dfb
+
+code_4df7:	ldi	$ff		; 255, asInteger
+		aTop	scratch
+code_4dfb:	pTos	scratch
+		ldi	$0
+		eq?
+		bnt	code_4e11
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$c		; 12, inBottom
+		pToa	pClient
+		send	$6
+		bnot
+		jmp	code_4e48
+
+code_4e11:	pTos	scratch
+		ldi	$2
+		eq?
+		bnt	code_4e27
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$13		; 19, nsTop
+		pToa	pClient
+		send	$6
+		bnot
+		jmp	code_4e48
+
+code_4e27:	pTos	scratch
+		ldi	$1
+		eq?
+		bnt	code_4e3d
+		pushi	$373		; 883, setAction
+		push1
+		pushi	$f		; 15, loop
+		pToa	pClient
+		send	$6
+		bnot
+		jmp	code_4e48
+
+code_4e3d:	pushi	$373		; 883, setAction
+		push1
+		pushi	$13		; 19, nsTop
+		pToa	pClient
+		send	$6
+		bnot
+code_4e48:	lag	global[$d5]
+		bnt	code_4e54
+		ldi	$1
+		aTop	cycles
+		jmp	code_4e61
+
+code_4e54:	pushi	$105		; 261, setCycle
+		push2
+		class	End
+		push
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+code_4e61:	pushi	$417		; 1047, pSoundGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		sat	temp[$1]
+		push
+		ldi	$10		; 16, cel
+		eq?
+		bt	code_4e78
+		lst	temp[$1]
+		ldi	$11		; 17, bitmap
+		eq?
+code_4e78:	bnt	code_4eb0
+		pushi	$446		; 1094, pResult
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		sat	temp[$0]
+		pushi	$33		; 51, '3', play
+		push2
+		pushi	$3		; z
+		pTos	scratch
+		ldi	$ff		; 255, asInteger
+		eq?
+		bnt	code_4e98
+		ldi	$0
+		jmp	code_4e9a
+
+code_4e98:	pToa	scratch
+code_4e9a:	mul
+		push
+		push2
+		push0
+		push2
+		callk	kernel_60, $4
+		bnot
+		add
+		lsli	local[$4]
+		pTos	pClient
+		class	SoundMgr
+		send	$8
+		bnot
+		jmp	code_4f2c
+
+code_4eb0:	lst	temp[$1]
+		ldi	$0
+		gt?
+		bnt	code_4f2c
+		lst	temp[$1]
+		ldi	$15		; 21, nsBottom
+		lt?
+		bnt	code_4f2c
+		lst	temp[$1]
+		ldi	$1
+		sub
+		sat	temp[$1]
+		push
+		ldi	$6		; maxScale
+		mul
+		sat	temp[$1]
+		push2
+		push0
+		push1
+		callk	kernel_60, $4
+		bnot
+		bnt	code_4eeb
+		pushi	$33		; 51, '3', play
+		push2
+		lst	temp[$1]
+		ldi	$0
+		add
+		lsli	local[$d]
+		pTos	pClient
+		class	SoundMgr
+		send	$8
+		bnot
+		jmp	code_4f2c
+
+code_4eeb:	pushi	$33		; 51, '3', play
+		push2
+		lst	temp[$1]
+		ldi	$1
+		add
+		lsli	local[$d]
+		pTos	pClient
+		class	SoundMgr
+		send	$8
+		bnot
+		jmp	code_4f2c
+
+code_4eff:	dup
+		ldi	$1
+		eq?
+		bnt	code_4f2c
+		pushi	$105		; 261, setCycle
+		push1
+		class	End
+		push
+		pushi	$373		; 883, setAction
+		push1
+		push1
+		pTos	pClient
+		calle	export40111_0, $2
+		bnot
+		push
+		pToa	pClient
+		send	$c
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_4f2c:	toss
+		ret
+
+WADefend::handleError:
+		ldi	$1
+		sag	global[$32]
+		ret
+
+WADefend::doit:
+		pToa	ticks
+		bnt	code_4f89
+		push1
+		push1
+		push1
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		ldi	$2
+		sub
+		push
+		push2
+		push1
+		push2
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		ldi	$2
+		sub
+		push
+		pushi	$36a		; 874, updateDisplay
+		push1
+		push1
+		pToa	pDirectObject
+		send	$12
+		bnot
+		push0
+		callk	kernel_33, $0
+		bnot
+		push1
+		push1
+		push1
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		ldi	$2
+		add
+		push
+		push2
+		push1
+		push2
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		ldi	$2
+		add
+		push
+		pushi	$36a		; 874, updateDisplay
+		push1
+		push1
+		pToa	pDirectObject
+		send	$12
+		bnot
+code_4f89:	pushi	$45		; 69, 'E', doit
+		push0
+		&rest	$1
+		super	WAScript, $4
+		bnot
+		ret
+
+WADefend::changeState:
+		link	$8
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_4fef
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bnt	code_4fd3
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		bnt	code_4fd3
+		pushi	$128		; 296, equalLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		send	$6
+		bnot
+code_4fd3:	not
+		bt	code_4fda
+		pToa	pDirectObject
+		not
+code_4fda:	bnt	code_4fe5
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_4fe5:	pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+		jmp	code_50ed
+
+code_4fef:	dup
+		ldi	$1
+		eq?
+		bnt	code_50db
+		pushi	$446		; 1094, pResult
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		sat	temp[$1]
+		push
+		ldi	$4		; scaleX
+		and
+		bnt	code_50a3
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		dup
+		ldi	$64		; 100, 'd', moveDone
+		eq?
+		bnt	code_502a
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_288c	; "hitm.wav"
+		push
+		pTos	pDirectObject
+		class	SoundMgr
+		send	$8
+		bnot
+		jmp	code_509f
+
+code_502a:	dup
+		ldi	$c8		; 200, handleEvent
+		eq?
+		bnt	code_5043
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_2895	; "hitw.wav"
+		push
+		pTos	pDirectObject
+		class	SoundMgr
+		send	$8
+		bnot
+		jmp	code_509f
+
+code_5043:	pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_289e	; "hit.wav"
+		push
+		pTos	pDirectObject
+		class	SoundMgr
+		send	$8
+		bnot
+		pushi	$417		; 1047, pSoundGroup
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		sat	temp[$0]
+		push
+		ldi	$0
+		gt?
+		bnt	code_509f
+		lst	temp[$0]
+		ldi	$1
+		sub
+		sat	temp[$0]
+		push
+		ldi	$6		; maxScale
+		mul
+		sat	temp[$0]
+		push2
+		push0
+		push1
+		callk	kernel_60, $4
+		bnot
+		bnt	code_508e
+		pushi	$33		; 51, '3', play
+		push2
+		lst	temp[$0]
+		ldi	$2
+		add
+		lsli	local[$d]
+		pTos	pDirectObject
+		class	SoundMgr
+		send	$8
+		bnot
+		jmp	code_509f
+
+code_508e:	pushi	$33		; 51, '3', play
+		push2
+		lst	temp[$0]
+		ldi	$3		; z
+		add
+		lsli	local[$d]
+		pTos	pDirectObject
+		class	SoundMgr
+		send	$8
+		bnot
+code_509f:	toss
+		jmp	code_50b9
+
+code_50a3:	lst	temp[$1]
+		ldi	$10		; 16, cel
+		and
+		bnt	code_50b9
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_289e	; "hit.wav"
+		push
+		pTos	pDirectObject
+		class	SoundMgr
+		send	$8
+		bnot
+code_50b9:	lst	temp[$1]
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_50c8
+		ldi	$c		; 12, inBottom
+		aTop	ticks
+		jmp	code_50d4
+
+code_50c8:	lst	temp[$1]
+		ldi	$10		; 16, cel
+		eq?
+		bnt	code_50d4
+		ldi	$c		; 12, inBottom
+		aTop	ticks
+code_50d4:	ldi	$1
+		aTop	cycles
+		jmp	code_50ed
+
+code_50db:	dup
+		ldi	$2
+		eq?
+		bnt	code_50ed
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_50ed:	toss
+		ret
+
+WAAttackScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5124
+		pToa	pDirectObject
+		not
+		bnt	code_5115
+		push1
+		lofsa	string_28af	; "Can not find pDirectObject of WAAttackScript"
+		push
+		calle	export60029_0, $2
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_5115:	pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_5170
+
+code_5124:	dup
+		ldi	$1
+		eq?
+		bnt	code_5141
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAStrike
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_5170
+
+code_5141:	dup
+		ldi	$2
+		eq?
+		bnt	code_515e
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WADefend
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_5170
+
+code_515e:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_5170
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_5170:	toss
+		ret
+
+WANetShopScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5191
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$3f		; 63, '?', xStep
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_51e9
+
+code_5191:	dup
+		ldi	$1
+		eq?
+		bnt	code_51a7
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_51e9
+
+code_51a7:	dup
+		ldi	$2
+		eq?
+		bnt	code_51ca
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pHandsOff
+		pushi	$51b		; 1307, getShopInfo
+		push2
+		pTos	pDirectObject
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_51e9
+
+code_51ca:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_51e9
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pHandsOff
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_51e9:	toss
+		ret
+
+WANetAuctionScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_520b
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$89		; 137, top
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_5263
+
+code_520b:	dup
+		ldi	$1
+		eq?
+		bnt	code_5221
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_5263
+
+code_5221:	dup
+		ldi	$2
+		eq?
+		bnt	code_5244
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pHandsOff
+		pushi	$64a		; 1610, getAuctionHallInfo
+		push2
+		pTos	pDirectObject
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_5263
+
+code_5244:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_5263
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pHandsOff
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_5263:	toss
+		ret
+
+WANetSellScript::dispose:
+		pToa	scratch
+		bnt	code_5275
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	scratch
+code_5275:	pToa	register
+		bnt	code_5285
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	register
+code_5285:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WANetScript, $4
+		bnot
+		ret
+
+WANetSellScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_52cf
+		lsp	param[$3]
+		dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_52ba
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_290e	; "The shopkeeper refuses the item."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_52cb
+
+code_52ba:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_52cb:	toss
+		jmp	code_52e0
+
+code_52cf:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_52e0:	lat	temp[$0]
+		bnt	code_52ef
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_52ef:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetSellScript::handleEvent:
+		lsp	param[$1]
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5312
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_5320
+
+code_5312:	dup
+		ldi	$1
+		eq?
+		bnt	code_5320
+		pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+code_5320:	toss
+		ret
+
+WANetSellScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5343
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$49		; 73, 'I', replay
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_55e2
+
+code_5343:	dup
+		ldi	$1
+		eq?
+		bnt	code_5359
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_55e2
+
+code_5359:	dup
+		ldi	$2
+		eq?
+		bnt	code_5392
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_538b
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	scratch
+		pushi	$4		; scaleX
+		pushi	$20		; 32, ' ', name
+		push0
+		pushSelf
+		pTos	scratch
+		callk	kernel_118, $8
+		bnot
+		jmp	code_55e2
+
+code_538b:	ldi	$1
+		aTop	cycles
+		jmp	code_55e2
+
+code_5392:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_542f
+		pToa	pDirectObject
+		not
+		bt	code_53a2
+		pToa	pIndirectObject
+		not
+code_53a2:	bnt	code_53ad
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_53ad:	pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_53d4
+		pushi	$127		; 295, equal
+		push2
+		push0
+		push0
+		pToa	scratch
+		send	$8
+		bnot
+		bnt	code_53d4
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_53d4:	ldi	$1
+		aTop	pHandsOff
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	register
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_541a
+		pushi	$10f		; 271, setLong
+		push1
+		pTos	scratch
+		pToa	register
+		send	$6
+		bnot
+		pushi	$113		; 275, mul
+		push1
+		pushi	$5		; scaleY
+		pToa	register
+		send	$6
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_55e2
+
+code_541a:	pushi	$51c		; 1308, getPrice
+		pushi	$4		; scaleX
+		pTos	pDirectObject
+		pTos	pIndirectObject
+		pTos	register
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_55e2
+
+code_542f:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_5532
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$131		; 305, asStr
+		push0
+		pToa	register
+		send	$4
+		bnot
+		sat	temp[$3]
+		pushi	$35c		; 860, getBase
+		push1
+		class	BContainer
+		push
+		pToa	pIndirectObject
+		send	$6
+		bnot
+		sat	temp[$1]
+		bnt	code_5499
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$420		; 1056, pContents
+		push0
+		send	$4
+		bnot
+		send	$4
+		bnot
+		bnt	code_5499
+		pushi	$f5		; 245, format
+		pushi	$4		; scaleX
+		lofsa	string_292f	; "%s will give you %s gold for the contents of your %s. Do you accept?"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		lst	temp[$3]
+		pushi	$315		; 789, pName
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$c
+		bnot
+		sat	temp[$0]
+		jmp	code_54fb
+
+code_5499:	pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_54d4
+		pushi	$f5		; 245, format
+		pushi	$4		; scaleX
+		lofsa	string_2974	; "%s will give you %s gold for the crystals. Do you accept?"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		lst	temp[$3]
+		pushi	$315		; 789, pName
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$c
+		bnot
+		sat	temp[$0]
+		jmp	code_54fb
+
+code_54d4:	pushi	$f5		; 245, format
+		pushi	$4		; scaleX
+		lofsa	string_29ae	; "%s will give you %s gold for the %s. Do you accept?"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		lst	temp[$3]
+		pushi	$315		; 789, pName
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$c
+		bnot
+		sat	temp[$0]
+code_54fb:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		pushi	$c		; 12, inBottom
+		pushi	$b		; 11, inRight
+		pushi	$4		; scaleX
+		lofsa	string_29e2	; "Offer"
+		push
+		lst	temp[$0]
+		lofsa	string_29e8	; "I Decline"
+		push
+		pushSelf
+		pushi	$95		; 149, dispose
+		lofsa	string_29f2	; "I Accept"
+		push
+		pushSelf
+		pushi	$c7		; 199, cue
+		push1
+		push0
+		callk	kernel_118, $18
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		jmp	code_55e2
+
+code_5532:	dup
+		ldi	$5		; scaleY
+		eq?
+		bnt	code_5589
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pHandsOff
+		pushi	$3e3		; 995, pIndirectObject
+		push1
+		push0
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		ldi	$c5a8		; -14936
+		eq?
+		bnt	code_5574
+		pushi	$51d		; 1309, sellCrystals
+		pushi	$3		; z
+		pTos	pIndirectObject
+		pTos	scratch
+		pushSelf
+		lag	global[$6a]
+		send	$a
+		bnot
+		jmp	code_55e2
+
+code_5574:	pushi	$51e		; 1310, sellObject
+		pushi	$4		; scaleX
+		pTos	pDirectObject
+		pTos	pIndirectObject
+		pTos	register
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_55e2
+
+code_5589:	dup
+		ldi	$6		; maxScale
+		eq?
+		bnt	code_55e2
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$131		; 305, asStr
+		push0
+		pToa	register
+		send	$4
+		bnot
+		sat	temp[$2]
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_29fb	; "You received %s gold from the shopkeeper."
+		push
+		lst	temp[$2]
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		pushi	$3d6		; 982, addValue
+		push1
+		pTos	register
+		pToa	pClient
+		send	$6
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_55e2:	toss
+		ret
+
+WANetGetSellScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5605
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$49		; 73, 'I', replay
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_5647
+
+code_5605:	dup
+		ldi	$1
+		eq?
+		bnt	code_561b
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_5647
+
+code_561b:	dup
+		ldi	$2
+		eq?
+		bnt	code_5647
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$4		; scaleX
+		pushi	$e		; 14, view
+		lofsa	string_2a35	; "tp"
+		push
+		pushi	$80		; 128, lastKey
+		pTos	pDirectObject
+		callk	kernel_128, $8
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_5647:	toss
+		ret
+
+WANetGetRepairScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_566a
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$49		; 73, 'I', replay
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_56ac
+
+code_566a:	dup
+		ldi	$1
+		eq?
+		bnt	code_5680
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_56ac
+
+code_5680:	dup
+		ldi	$2
+		eq?
+		bnt	code_56ac
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$4		; scaleX
+		pushi	$e		; 14, view
+		lofsa	string_2a35	; "tp"
+		push
+		pushi	$83		; 131, mirrored
+		pTos	pDirectObject
+		callk	kernel_128, $8
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_56ac:	toss
+		ret
+
+WANetRechargeScript::dispose:
+		pToa	register
+		bnt	code_56be
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	register
+code_56be:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WANetScript, $4
+		bnot
+		ret
+
+WANetRechargeScript::handleEvent:
+		lsp	param[$1]
+		dup
+		ldi	$0
+		eq?
+		bnt	code_56e0
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_56ee
+
+code_56e0:	dup
+		ldi	$1
+		eq?
+		bnt	code_56ee
+		pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+code_56ee:	toss
+		ret
+
+WANetRechargeScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5711
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$49		; 73, 'I', replay
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_58db
+
+code_5711:	dup
+		ldi	$1
+		eq?
+		bnt	code_5727
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_58db
+
+code_5727:	dup
+		ldi	$2
+		eq?
+		bnt	code_576f
+		pToa	pDirectObject
+		not
+		bt	code_5737
+		pToa	pIndirectObject
+		not
+code_5737:	bnt	code_5742
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_5742:	ldi	$1
+		aTop	pHandsOff
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	register
+		pushi	$51f		; 1311, getRechargePrice
+		pushi	$4		; scaleX
+		pTos	pDirectObject
+		pTos	pIndirectObject
+		pTos	register
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_58db
+
+code_576f:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_57e8
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$127		; 295, equal
+		push1
+		pushi	$ff		; 255, asInteger
+		pToa	register
+		send	$6
+		bnot
+		bnt	code_57b2
+		pushi	$7		; priority
+		pushi	$b		; 11, inRight
+		push2
+		lofsa	string_2a60	; "Info:"
+		push
+		lofsa	string_2a66	; "I haven't the knowledge required to recharge magical items."
+		push
+		lofsa	string_25d7	; "Ok"
+		push
+		push0
+		push0
+		callk	kernel_118, $e
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_58db
+
+code_57b2:	pushi	$127		; 295, equal
+		push1
+		pushi	$fe		; 254, strIndex
+		pToa	register
+		send	$6
+		bnot
+		bnt	code_57e1
+		pushi	$7		; priority
+		pushi	$b		; 11, inRight
+		push2
+		lofsa	string_2a60	; "Info:"
+		push
+		lofsa	string_2aa2	; "I can't recharge that which cannot be recharged."
+		push
+		lofsa	string_25d7	; "Ok"
+		push
+		push0
+		push0
+		callk	kernel_118, $e
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_58db
+
+code_57e1:	ldi	$1
+		aTop	cycles
+		jmp	code_58db
+
+code_57e8:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_585b
+		pushi	$131		; 305, asStr
+		push0
+		pToa	register
+		send	$4
+		bnot
+		sat	temp[$3]
+		pushi	$f5		; 245, format
+		pushi	$4		; scaleX
+		lofsa	string_2ad3	; "%s will recharge your %s for %s gold. Do you accept?"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		lst	temp[$3]
+		class	Str
+		send	$c
+		bnot
+		sat	temp[$0]
+		bnt	code_584f
+		pushi	$c		; 12, inBottom
+		pushi	$b		; 11, inRight
+		pushi	$4		; scaleX
+		lofsa	string_29e2	; "Offer"
+		push
+		lst	temp[$0]
+		lofsa	string_29e8	; "I Decline"
+		push
+		pushSelf
+		pushi	$95		; 149, dispose
+		lofsa	string_29f2	; "I Accept"
+		push
+		pushSelf
+		pushi	$c7		; 199, cue
+		push1
+		push0
+		callk	kernel_118, $18
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_584f:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		jmp	code_58db
+
+code_585b:	dup
+		ldi	$5		; scaleY
+		eq?
+		bnt	code_5884
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pHandsOff
+		pushi	$520		; 1312, recharge
+		pushi	$4		; scaleX
+		pTos	pDirectObject
+		pTos	pIndirectObject
+		pTos	register
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_58db
+
+code_5884:	dup
+		ldi	$6		; maxScale
+		eq?
+		bnt	code_58db
+		pushi	$3d7		; 983, subValue
+		push1
+		pTos	register
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$3e3		; 995, pIndirectObject
+		push1
+		push0
+		lag	global[$1]
+		send	$6
+		bnot
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_2b08	; "Your %s is now recharged."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_58db:	toss
+		ret
+
+WANetRepairScript::dispose:
+		pToa	register
+		bnt	code_58ed
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	register
+code_58ed:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WANetScript, $4
+		bnot
+		ret
+
+WANetRepairScript::handleEvent:
+		lsp	param[$1]
+		dup
+		ldi	$0
+		eq?
+		bnt	code_590f
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_591d
+
+code_590f:	dup
+		ldi	$1
+		eq?
+		bnt	code_591d
+		pushi	$c7		; 199, cue
+		push0
+		self	$4
+		bnot
+code_591d:	toss
+		ret
+
+WANetRepairScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5940
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$49		; 73, 'I', replay
+		pushSelf
+		pToa	pClient
+		send	$a
+		bnot
+		jmp	code_5b05
+
+code_5940:	dup
+		ldi	$1
+		eq?
+		bnt	code_5956
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_5b05
+
+code_5956:	dup
+		ldi	$2
+		eq?
+		bnt	code_599e
+		pToa	pDirectObject
+		not
+		bt	code_5966
+		pToa	pIndirectObject
+		not
+code_5966:	bnt	code_5971
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_5971:	ldi	$1
+		aTop	pHandsOff
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	register
+		pushi	$521		; 1313, getRepairPrice
+		pushi	$4		; scaleX
+		pTos	pDirectObject
+		pTos	pIndirectObject
+		pTos	register
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_5b05
+
+code_599e:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_5a12
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$127		; 295, equal
+		push1
+		pushi	$ff		; 255, asInteger
+		pToa	register
+		send	$6
+		bnot
+		bnt	code_59e2
+		pushi	$6		; maxScale
+		lofsa	string_2b36	; "I haven't the knowledge required to repair that."
+		push
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_2b67	; "Okay"
+		push
+		push0
+		pushi	$91		; 145, bitPutIndex
+		push2
+		calle	export60029_0, $c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_5b05
+
+code_59e2:	pushi	$127		; 295, equal
+		push1
+		pushi	$fe		; 254, strIndex
+		pToa	register
+		send	$6
+		bnot
+		bnt	code_5a0b
+		pushi	$6		; maxScale
+		lofsa	string_2b6c	; "I can't repair that."
+		push
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_2b67	; "Okay"
+		push
+		push0
+		pushi	$91		; 145, bitPutIndex
+		push2
+		calle	export60029_0, $c
+		bnot
+		jmp	code_5b05
+
+code_5a0b:	ldi	$1
+		aTop	cycles
+		jmp	code_5b05
+
+code_5a12:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_5a85
+		pushi	$131		; 305, asStr
+		push0
+		pToa	register
+		send	$4
+		bnot
+		sat	temp[$3]
+		pushi	$f5		; 245, format
+		pushi	$4		; scaleX
+		lofsa	string_2b81	; "%s will repair your %s for %s gold. Do you accept?"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		lst	temp[$3]
+		class	Str
+		send	$c
+		bnot
+		sat	temp[$0]
+		bnt	code_5a79
+		pushi	$c		; 12, inBottom
+		pushi	$b		; 11, inRight
+		pushi	$4		; scaleX
+		lofsa	string_29e2	; "Offer"
+		push
+		lst	temp[$0]
+		lofsa	string_29e8	; "I Decline"
+		push
+		pushSelf
+		pushi	$95		; 149, dispose
+		lofsa	string_29f2	; "I Accept"
+		push
+		pushSelf
+		pushi	$c7		; 199, cue
+		push1
+		push0
+		callk	kernel_118, $18
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_5a79:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		jmp	code_5b05
+
+code_5a85:	dup
+		ldi	$5		; scaleY
+		eq?
+		bnt	code_5aae
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pHandsOff
+		pushi	$522		; 1314, repair
+		pushi	$4		; scaleX
+		pTos	pDirectObject
+		pTos	pIndirectObject
+		pTos	register
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_5b05
+
+code_5aae:	dup
+		ldi	$6		; maxScale
+		eq?
+		bnt	code_5b05
+		pushi	$3d7		; 983, subValue
+		push1
+		pTos	register
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$3e3		; 995, pIndirectObject
+		push1
+		push0
+		lag	global[$1]
+		send	$6
+		bnot
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_2bb4	; "Repairs to %s now complete."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pIndirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_5b05:	toss
+		ret
+
+WANetConsumeScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_5b46
+		lsp	param[$3]
+		dup
+		ldi	$271c		; 10012
+		eq?
+		bnt	code_5b31
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2be2	; "You are too full."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5b42
+
+code_5b31:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_5b42:	toss
+		jmp	code_5b57
+
+code_5b46:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_5b57:	lat	temp[$0]
+		bnt	code_5b66
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_5b66:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetConsumeScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5ba2
+		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_5bd4
+
+code_5ba2:	dup
+		ldi	$1
+		eq?
+		bnt	code_5bc2
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$a1		; 161, firstEqual
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_5bd4
+
+code_5bc2:	dup
+		ldi	$2
+		eq?
+		bnt	code_5bd4
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_5bd4:	toss
+		ret
+
+WANetGroupScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_5cc1
+		lsp	param[$3]
+		dup
+		ldi	$2711		; 10001
+		eq?
+		bnt	code_5c00
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2c07	; "Already joining a group."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5cbd
+
+code_5c00:	dup
+		ldi	$2713		; 10003
+		eq?
+		bnt	code_5c1a
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2c20	; "You must leave your current group to join another."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5cbd
+
+code_5c1a:	dup
+		ldi	$271c		; 10012
+		eq?
+		bnt	code_5c34
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2c53	; "That group is full."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5cbd
+
+code_5c34:	dup
+		ldi	$271d		; 10013
+		eq?
+		bnt	code_5c70
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2c67	; "-3 |c43|The group leader does not want you in their group."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$9f		; 159, add
+		push1
+		push
+		lag	global[$9c]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2ca2	; "The group leader does not want you in their group."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5cbd
+
+code_5c70:	dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_5cac
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2cd5	; "-3 |c43|There is someone already waiting to join them."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		pushi	$9f		; 159, add
+		push1
+		push
+		lag	global[$9c]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2d0c	; "There is someone already waiting to join them."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5cbd
+
+code_5cac:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_5cbd:	toss
+		jmp	code_5cd2
+
+code_5cc1:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_5cd2:	lat	temp[$0]
+		bnt	code_5ce1
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_5ce1:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetGroupScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5d0a
+		pushi	$523		; 1315, joinGroup
+		push2
+		pTos	pDirectObject
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_5d1c
+
+code_5d0a:	dup
+		ldi	$1
+		eq?
+		bnt	code_5d1c
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_5d1c:	toss
+		ret
+
+WANetTradeScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_5dc5
+		lsp	param[$3]
+		dup
+		ldi	$2711		; 10001
+		eq?
+		bnt	code_5d48
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2d4c	; "You have declined the trade."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5dc1
+
+code_5d48:	dup
+		ldi	$2713		; 10003
+		eq?
+		bnt	code_5d62
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2d69	; "trade"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5dc1
+
+code_5d62:	dup
+		ldi	$271c		; 10012
+		eq?
+		bnt	code_5d7c
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2d69	; "trade"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5dc1
+
+code_5d7c:	dup
+		ldi	$271d		; 10013
+		eq?
+		bnt	code_5d96
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2d6f	; "The character has declined your trade request."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5dc1
+
+code_5d96:	dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_5db0
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2d69	; "trade"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5dc1
+
+code_5db0:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_5dc1:	toss
+		jmp	code_5dd6
+
+code_5dc5:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_5dd6:	lat	temp[$0]
+		bnt	code_5de5
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_5de5:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetTradeScript::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5e0e
+		pushi	$647		; 1607, trade
+		push2
+		pTos	pDirectObject
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_5e20
+
+code_5e0e:	dup
+		ldi	$1
+		eq?
+		bnt	code_5e20
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_5e20:	toss
+		ret
+
+myGetName::doit:
+		lap	param[$0]
+		bnt	code_5e4d
+		lap	param[$1]
+		bnt	code_5e38
+		pushi	$c7		; 199, cue
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		jmp	code_5e43
+
+code_5e38:	pushi	$9f		; 159, add
+		push1
+		pTos	pClient
+		class	DeadObjects
+		send	$6
+		bnot
+code_5e43:	pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_5e8e
+
+code_5e4d:	pushi	$9f		; 159, add
+		push1
+		pushi	$13		; 19, nsTop
+		pTos	pPrompt
+		pushi	$76		; 118, 'v', textLeft
+		pTos	pStr
+		pTos	pMax
+		pushi	$fdf5		; -523
+		lsg	global[$55]
+		pushi	$8b		; 139, numLines
+		push1
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_21c8	; " OK "
+		push
+		push1
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_21cd	; "Cancel"
+		push
+		push0
+		pushi	$91		; 145, bitPutIndex
+		push2
+		pushi	$93		; 147, pLine
+		pushSelf
+		pushi	$45		; 69, 'E', doit
+		&rest	$2
+		calle	export60029_0, $26
+		bnot
+		aTop	pPrint
+		push
+		class	gDialogList
+		send	$6
+		bnot
+code_5e8e:	ret
+
+WANetGoHomeScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_5ee8
+		lsp	param[$3]
+		dup
+		ldi	$2714		; 10004
+		eq?
+		bnt	code_5eb9
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2db9	; "No one by that name lives around here."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5ee4
+
+code_5eb9:	dup
+		ldi	$271d		; 10013
+		eq?
+		bnt	code_5ed3
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_2de0	; "Locating house, one moment..."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_5ee4
+
+code_5ed3:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_5ee4:	toss
+		jmp	code_5ef9
+
+code_5ee8:	pushi	$f5		; 245, format
+		push2
+		lofsa	string_2dfe	; "No one named '%s' lives here."
+		push
+		pTos	register
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+code_5ef9:	lsp	param[$3]
+		ldi	$271d		; 10013
+		eq?
+		bnt	code_5f10
+		pushi	$38c		; 908, setMessage
+		push1
+		lst	temp[$0]
+		lag	global[$1]
+		send	$6
+		bnot
+		jmp	code_5f2e
+
+code_5f10:	pushi	$7		; priority
+		pushi	$b		; 11, inRight
+		push2
+		lofsa	string_2a60	; "Info:"
+		push
+		lst	temp[$0]
+		lofsa	string_25d7	; "Ok"
+		push
+		push0
+		push0
+		callk	kernel_118, $e
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+code_5f2e:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetGoHomeScript::dispose:
+		pToa	register
+		bnt	code_5f4a
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	register
+code_5f4a:	pToa	scratch
+		bnt	code_5f5a
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	scratch
+code_5f5a:	push1
+		pushi	$c		; 12, inBottom
+		callk	kernel_118, $2
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WANetScript, $4
+		bnot
+		ret
+
+WANetGoHomeScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_5f98
+		pushi	$b		; 11, inRight
+		dup
+		push0
+		lofsa	string_2e1c	; "Go to house"
+		push
+		lofsa	string_2e28	; "Enter homeowner's name:"
+		push
+		pTos	register
+		pushi	$10		; 16, cel
+		pushSelf
+		pushi	$95		; 149, dispose
+		pushSelf
+		pushi	$c7		; 199, cue
+		push0
+		callk	kernel_118, $16
+		bnot
+		jmp	code_6013
+
+code_5f98:	dup
+		ldi	$1
+		eq?
+		bnt	code_5fb9
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pToa	register
+		send	$4
+		bnot
+		not
+		bnt	code_5fb2
+		pTos	state
+		ldi	$2
+		sub
+		aTop	state
+code_5fb2:	ldi	$1
+		aTop	cycles
+		jmp	code_6013
+
+code_5fb9:	dup
+		ldi	$2
+		eq?
+		bnt	code_5feb
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pHandsOff
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	scratch
+		pushi	$524		; 1316, queryHouse
+		pushi	$3		; z
+		pTos	register
+		pTos	scratch
+		pushSelf
+		lag	global[$6a]
+		send	$a
+		bnot
+		jmp	code_6013
+
+code_5feb:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_6001
+		pushi	$272		; 626, newRoom
+		push2
+		pTos	scratch
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_6013
+
+code_6001:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_6013
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_6013:	toss
+		ret
+
+WAMissleScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_6049
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_6032
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_6032:	pushi	$39d		; 925, face
+		push2
+		pushi	$31e		; 798, pDirectObject
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		push
+		pushSelf
+		pToa	pClient
+		send	$8
+		bnot
+		jmp	code_61a0
+
+code_6049:	dup
+		ldi	$1
+		eq?
+		bnt	code_6066
+		pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WAStrike
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_61a0
+
+code_6066:	dup
+		ldi	$2
+		eq?
+		bnt	code_6147
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		bnt	code_6083
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		not
+code_6083:	bt	code_60d2
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bnt	code_609c
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		not
+code_609c:	bt	code_60d2
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bnt	code_60e0
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		bnt	code_60e0
+		pushi	$128		; 296, equalLong
+		push1
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		pushi	$2fb		; 763, pCombatGroup
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		not
+code_60d2:	bnt	code_60e0
+		ldi	$0
+		aTop	register
+		ldi	$1
+		aTop	cycles
+		jmp	code_61a0
+
+code_60e0:	pushi	$8d		; 141, new
+		push0
+		class	MagicActor
+		send	$4
+		bnot
+		aTop	register
+		pushi	$e		; 14, view
+		push1
+		pushi	$3be1		; 15329
+		pushi	$f		; 15, loop
+		push1
+		push1
+		pushi	$94		; 148, init
+		push0
+		pushi	$105		; 261, setCycle
+		push1
+		class	Fwd
+		push
+		pushi	$1a9		; 425, setStep
+		push2
+		pushi	$3c		; 60, '<', b_di
+		pushi	$23		; 35, '#', text
+		pushi	$525		; 1317, linkToCaster
+		pushi	$4		; scaleX
+		pTos	pClient
+		pushi	$40		; 64, '@', yStep
+		pushi	$f		; 15, loop
+		pushi	$5f		; 95, '_', min
+		pToa	register
+		send	$2a
+		bnot
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_2e52	; "spell15.wav"
+		push
+		pTos	register
+		class	SoundMgr
+		send	$8
+		bnot
+		aTop	scratch
+		pushi	$15c		; 348, setMotion
+		pushi	$3		; z
+		class	Strike
+		push
+		pushi	$31e		; 798, pDirectObject
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		push
+		pushSelf
+		pToa	register
+		send	$a
+		bnot
+		jmp	code_61a0
+
+code_6147:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_6171
+		pToa	register
+		bnt	code_615b
+		push2
+		push1
+		pTos	scratch
+		callk	kernel_117, $4
+		bnot
+code_615b:	pushi	$c9		; 201, setScript
+		push2
+		pushi	$8d		; 141, new
+		push0
+		lofsa	WADefend
+		send	$4
+		bnot
+		push
+		pushSelf
+		self	$8
+		bnot
+		jmp	code_61a0
+
+code_6171:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_61a0
+		pToa	register
+		bnt	code_6184
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_6184:	pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_6195
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_6195:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_61a0:	toss
+		ret
+
+WATeleportScript::init:
+		ldi	$ff		; 255, asInteger
+		aTop	pMovieCmd
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	WAScript, $4
+		bnot
+		ret
+
+WATeleportScript::handleError:
+		ldi	$1
+		aTop	cycles
+		ret
+
+WATeleportScript::dispose:
+		pToa	pDone
+		not
+		bnt	code_61c5
+		push1
+		lofsa	string_2e6d	; "Teleport script tossed before completed."
+		push
+		callk	kernel_132, $2
+		bnot
+code_61c5:	pToa	scratch
+		bnt	code_61d1
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_61d1:	pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	WAScript, $4
+		bnot
+		ret
+
+WATeleportScript::changeState:
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_6213
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_61f9
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_61f9:	pushi	$94		; 148, init
+		push1
+		pTos	pClient
+		pushi	$c4		; 196, caller
+		push1
+		pushSelf
+		pushi	$8d		; 141, new
+		push0
+		class	SEPoof
+		send	$4
+		bnot
+		send	$c
+		bnot
+		jmp	code_62f2
+
+code_6213:	dup
+		ldi	$1
+		eq?
+		bnt	code_62ba
+		pushi	$69		; 105, 'i', hide
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_62ac
+		pushi	$3cf		; 975, recordHide
+		push0
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		lag	global[$1]
+		send	$a
+		bnot
+		pToa	scratch
+		bnt	code_626c
+		pushi	$127		; 295, equal
+		push1
+		pushi	$16b2		; 5810
+		send	$6
+		bnot
+		bnt	code_625d
+		push2
+		push1
+		pushi	$fa		; 250, lower
+		pushi	$3cd		; 973, recordPosn
+		push0
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		lag	global[$1]
+		send	$10
+		bnot
+code_625d:	pushi	$272		; 626, newRoom
+		push2
+		pTos	scratch
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_62f2
+
+code_626c:	pushi	$127		; 295, equal
+		push1
+		pushi	$16b2		; 5810
+		pushi	$2f5		; 757, pNumber
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_6295
+		push2
+		push1
+		pushi	$fa		; 250, lower
+		pushi	$3cd		; 973, recordPosn
+		push0
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		lag	global[$1]
+		send	$10
+		bnot
+code_6295:	pushi	$272		; 626, newRoom
+		push2
+		pushi	$2f5		; 757, pNumber
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		push
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_62f2
+
+code_62ac:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_62f2
+
+code_62ba:	dup
+		ldi	$2
+		eq?
+		bnt	code_62f2
+		pushi	$3d0		; 976, recordShow
+		push0
+		pushi	$3cc		; 972, sendMovie
+		push1
+		push1
+		pushi	$75		; 117, 'u', show
+		push0
+		lag	global[$1]
+		send	$e
+		bnot
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_62e7
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$0
+		sag	global[$f4]
+code_62e7:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_62f2:	toss
+		ret
+
+WACombatTeleportScript::handleError:
+		ldi	$1
+		aTop	cycles
+		ret
+
+WACombatTeleportScript::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_6327
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_6318
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_6318:	pushi	$69		; 105, 'i', hide
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_639a
+
+code_6327:	dup
+		ldi	$1
+		eq?
+		bnt	code_639a
+		pushi	$43d		; 1085, pDestX
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		sat	temp[$0]
+		pushi	$43e		; 1086, pDestY
+		push0
+		pToa	pMovieCmd
+		send	$4
+		bnot
+		sat	temp[$1]
+		pushi	$43b		; 1083, pCombatX
+		push1
+		lst	temp[$0]
+		pushi	$43c		; 1084, pCombatY
+		push1
+		push
+		pToa	pClient
+		send	$c
+		bnot
+		pushi	$1a		; 26, signal
+		lat	temp[$0]
+		mul
+		push
+		ldi	$12		; 18, nsLeft
+		add
+		sat	temp[$0]
+		pushi	$b		; 11, inRight
+		lat	temp[$1]
+		mul
+		push
+		ldi	$73		; 115, 's', center
+		add
+		sat	temp[$1]
+		push1
+		push1
+		lst	temp[$0]
+		push2
+		push1
+		push
+		pToa	pClient
+		send	$c
+		bnot
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_6387
+		pushi	$278		; 632, controlOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_6387:	pushi	$75		; 117, 'u', show
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_639a:	toss
+		ret
+
+WAConsumeScript::changeState:
+		link	$2
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_64b2
+		pushi	$448		; 1096, pState
+		push0
+		pushi	$35c		; 860, getBase
+		push1
+		class	BConsume
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$1
+		eq?
+		bnt	code_6444
+		pushi	$f5		; 245, format
+		pushi	$3		; z
+		lofsa	string_2ebe	; "%s ate the %s."
+		push
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_63dc
+		lofsa	string_2ecd	; "You"
+		jmp	code_63e5
+
+code_63dc:	pushi	$315		; 789, pName
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+code_63e5:	push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$a
+		bnot
+		sat	temp[$0]
+		pushi	$3ed		; 1005, pBaseView
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		dup
+		ldi	$64		; 100, 'd', moveDone
+		eq?
+		bnt	code_6419
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_2ed1	; "maleat.wav"
+		push
+		pTos	pClient
+		class	SoundMgr
+		send	$8
+		bnot
+		jmp	code_6440
+
+code_6419:	dup
+		ldi	$c8		; 200, handleEvent
+		eq?
+		bnt	code_6432
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_2edc	; "femeat.wav"
+		push
+		pTos	pClient
+		class	SoundMgr
+		send	$8
+		bnot
+		jmp	code_6440
+
+code_6432:	pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_2ee7	; "belch.wav"
+		push
+		pTos	pClient
+		class	SoundMgr
+		send	$8
+		bnot
+code_6440:	toss
+		jmp	code_6485
+
+code_6444:	pushi	$f5		; 245, format
+		pushi	$3		; z
+		lofsa	string_2ef1	; "%s drank the %s."
+		push
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_645c
+		lofsa	string_2ecd	; "You"
+		jmp	code_6465
+
+code_645c:	pushi	$315		; 789, pName
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+code_6465:	push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$a
+		bnot
+		sat	temp[$0]
+		pushi	$33		; 51, '3', play
+		push2
+		lofsa	string_2f02	; "drink1.wav"
+		push
+		pTos	pClient
+		class	SoundMgr
+		send	$8
+		bnot
+code_6485:	lat	temp[$0]
+		bnt	code_64ab
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_64a0
+		pushi	$38c		; 908, setMessage
+		push1
+		lst	temp[$0]
+		lag	global[$1]
+		send	$6
+		bnot
+		jmp	code_64ab
+
+code_64a0:	pushi	$38c		; 908, setMessage
+		push1
+		lst	temp[$0]
+		pToa	pClient
+		send	$6
+		bnot
+code_64ab:	ldi	$2
+		aTop	seconds
+		jmp	code_64e5
+
+code_64b2:	dup
+		ldi	$1
+		eq?
+		bnt	code_64d3
+		pushi	$31e		; 798, pDirectObject
+		push1
+		push0
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_64e5
+
+code_64d3:	dup
+		ldi	$2
+		eq?
+		bnt	code_64e5
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_64e5:	toss
+		ret
+
+WANetRobScript::dispose:
+		pushi	$3		; z
+		pushi	$b		; 11, inRight
+		pushi	$8		; fixPriority
+		pushSelf
+		callk	kernel_118, $6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		super	WANetScript, $4
+		bnot
+		ret
+
+WANetRobScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+		bnt	code_651f
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_651f:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetRobScript::handleEvent:
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetRobScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_658f
+		pushi	$433		; 1075, pPeaceful
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		bnt	code_6588
+		pushi	$35c		; 860, getBase
+		push1
+		class	BNPC
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		not
+		bnt	code_6588
+		pushi	$c		; 12, inBottom
+		pushi	$b		; 11, inRight
+		pushi	$4		; scaleX
+		lofsa	string_215f	; "Are you sure?"
+		push
+		lofsa	string_2f1d	; "Are you SURE you want to rob someone? Once you do, your peaceful status will be removed!"
+		push
+		lofsa	string_216d	; "No"
+		push
+		pushSelf
+		pushi	$c8		; 200, handleEvent
+		lofsa	string_2170	; "Yes"
+		push
+		pushSelf
+		pushi	$c7		; 199, cue
+		push1
+		push0
+		callk	kernel_118, $18
+		bnot
+		jmp	code_65e0
+
+code_6588:	ldi	$1
+		aTop	cycles
+		jmp	code_65e0
+
+code_658f:	dup
+		ldi	$1
+		eq?
+		bnt	code_65a9
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$1d		; 29, brTop
+		pushSelf
+		pToa	client
+		send	$a
+		bnot
+		jmp	code_65e0
+
+code_65a9:	dup
+		ldi	$2
+		eq?
+		bnt	code_65ce
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$a6		; 166, release
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_65e0
+
+code_65ce:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_65e0
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_65e0:	toss
+		ret
+
+WARobScript::changeState:
+		link	$9
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_696b
+		ldi	$0
+		sat	temp[$1]
+		pToa	pMovieCmd
+		sat	temp[$2]
+		pushi	$446		; 1094, pResult
+		push0
+		send	$4
+		bnot
+		sat	temp[$0]
+		pushi	$2f5		; 757, pNumber
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		sat	temp[$3]
+		pushi	$447		; 1095, pDamage
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		sat	temp[$7]
+		lst	temp[$0]
+		ldi	$1
+		eq?
+		bnt	code_66d9
+		lsg	global[$1]
+		pToa	pClient
+		eq?
+		bnt	code_690a
+		lat	temp[$3]
+		bnt	code_6671
+		lat	temp[$7]
+		bnt	code_6671
+		pushi	$131		; 305, asStr
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		sat	temp[$6]
+		pushi	$131		; 305, asStr
+		push0
+		lat	temp[$7]
+		send	$4
+		bnot
+		sat	temp[$8]
+		pushi	$f5		; 245, format
+		pushi	$3		; z
+		lofsa	string_2f85	; "|c43|Info> The perfect crime! You've stolen %s gold and %s mana!"
+		push
+		lst	temp[$6]
+		lst	temp[$8]
+		class	Str
+		send	$a
+		bnot
+		sat	temp[$1]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$8]
+		send	$4
+		bnot
+		jmp	code_690a
+
+code_6671:	lat	temp[$3]
+		bnt	code_669c
+		pushi	$131		; 305, asStr
+		push0
+		send	$4
+		bnot
+		sat	temp[$6]
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_2fc6	; "|c43|Info> The perfect crime! You've stolen %s gold!"
+		push
+		lst	temp[$6]
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$1]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		jmp	code_690a
+
+code_669c:	lat	temp[$7]
+		bnt	code_66c7
+		pushi	$131		; 305, asStr
+		push0
+		send	$4
+		bnot
+		sat	temp[$8]
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_2ffb	; "|c43|Info> The perfect crime! You've stolen %s mana!"
+		push
+		lst	temp[$8]
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$1]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$8]
+		send	$4
+		bnot
+		jmp	code_690a
+
+code_66c7:	pushi	$d0		; 208, with
+		push1
+		lofsa	string_3030	; "|c43|Info> Your intended victim didn't have anything worthwhile. Better try robbing someone else."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$1]
+		jmp	code_690a
+
+code_66d9:	lst	temp[$0]
+		ldi	$3		; z
+		eq?
+		bnt	code_6888
+		lsg	global[$1]
+		pToa	pClient
+		eq?
+		bnt	code_679b
+		lat	temp[$3]
+		bnt	code_6733
+		lat	temp[$7]
+		bnt	code_6733
+		pushi	$131		; 305, asStr
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		sat	temp[$6]
+		pushi	$131		; 305, asStr
+		push0
+		lat	temp[$7]
+		send	$4
+		bnot
+		sat	temp[$8]
+		pushi	$f5		; 245, format
+		pushi	$3		; z
+		lofsa	string_3092	; "|c43|Info> You were caught stealing %s gold and %s mana!"
+		push
+		lst	temp[$6]
+		lst	temp[$8]
+		class	Str
+		send	$a
+		bnot
+		sat	temp[$1]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$8]
+		send	$4
+		bnot
+		jmp	code_690a
+
+code_6733:	lat	temp[$3]
+		bnt	code_675e
+		pushi	$131		; 305, asStr
+		push0
+		send	$4
+		bnot
+		sat	temp[$6]
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_30cb	; "|c43|Info> You were caught stealing %s gold!"
+		push
+		lst	temp[$6]
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$1]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		jmp	code_690a
+
+code_675e:	lat	temp[$7]
+		bnt	code_6789
+		pushi	$131		; 305, asStr
+		push0
+		send	$4
+		bnot
+		sat	temp[$8]
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_30f8	; "|c43|Info> You were caught stealing %s mana!"
+		push
+		lst	temp[$8]
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$1]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$8]
+		send	$4
+		bnot
+		jmp	code_690a
+
+code_6789:	pushi	$d0		; 208, with
+		push1
+		lofsa	string_3125	; "|c43|Info> You were caught trying to steal!"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$1]
+		jmp	code_690a
+
+code_679b:	lsg	global[$1]
+		pushi	$142		; 322, pObject
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		eq?
+		bnt	code_690a
+		lat	temp[$3]
+		bnt	code_67fe
+		lat	temp[$7]
+		bnt	code_67fe
+		pushi	$131		; 305, asStr
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		sat	temp[$6]
+		pushi	$131		; 305, asStr
+		push0
+		lat	temp[$7]
+		send	$4
+		bnot
+		sat	temp[$8]
+		pushi	$f5		; 245, format
+		pushi	$4		; scaleX
+		lofsa	string_3151	; "|c43|Info> %s stole %s gold and %s mana from you!"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		lst	temp[$6]
+		lst	temp[$8]
+		class	Str
+		send	$c
+		bnot
+		sat	temp[$1]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$8]
+		send	$4
+		bnot
+		jmp	code_690a
+
+code_67fe:	lat	temp[$3]
+		bnt	code_6835
+		pushi	$131		; 305, asStr
+		push0
+		send	$4
+		bnot
+		sat	temp[$6]
+		pushi	$f5		; 245, format
+		pushi	$3		; z
+		lofsa	string_3183	; "|c43|Info> %s stole %s gold from you!"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		lst	temp[$6]
+		class	Str
+		send	$a
+		bnot
+		sat	temp[$1]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$6]
+		send	$4
+		bnot
+		jmp	code_690a
+
+code_6835:	lat	temp[$7]
+		bnt	code_686c
+		pushi	$131		; 305, asStr
+		push0
+		send	$4
+		bnot
+		sat	temp[$8]
+		pushi	$f5		; 245, format
+		pushi	$3		; z
+		lofsa	string_31a9	; "|c43|Info> %s stole %s mana from you!"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		lst	temp[$8]
+		class	Str
+		send	$a
+		bnot
+		sat	temp[$1]
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$8]
+		send	$4
+		bnot
+		jmp	code_690a
+
+code_686c:	pushi	$f5		; 245, format
+		push2
+		lofsa	string_31cf	; "|c43|Info> %s tried to steal from you!"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$1]
+		jmp	code_690a
+
+code_6888:	lst	temp[$0]
+		ldi	$2
+		eq?
+		bnt	code_68f3
+		lsg	global[$1]
+		pToa	pClient
+		eq?
+		bnt	code_68aa
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_3125	; "|c43|Info> You were caught trying to steal!"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$1]
+		jmp	code_690a
+
+code_68aa:	lsg	global[$1]
+		pushi	$142		; 322, pObject
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		eq?
+		bnt	code_690a
+		pushi	$315		; 789, pName
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		bnt	code_68e1
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_31f6	; "|c43|Info> %s just tried to steal from you!"
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pClient
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$1]
+		jmp	code_690a
+
+code_68e1:	pushi	$d0		; 208, with
+		push1
+		lofsa	string_3222	; "|c43|Info> Someone just tried to steal from you!"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$1]
+		jmp	code_690a
+
+code_68f3:	lsg	global[$1]
+		pToa	pClient
+		eq?
+		bnt	code_690a
+		pushi	$d0		; 208, with
+		push1
+		lofsa	string_3253	; "|c43|Info> Your theft failed, but luckily no one noticed!"
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$1]
+code_690a:	lat	temp[$1]
+		bnt	code_6922
+		pushi	$9f		; 159, add
+		push1
+		push
+		lag	global[$9c]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+code_6922:	lat	temp[$3]
+		bnt	code_6943
+		pushi	$3d6		; 982, addValue
+		push1
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$3d7		; 983, subValue
+		push1
+		lst	temp[$3]
+		pushi	$142		; 322, pObject
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		send	$6
+		bnot
+code_6943:	lat	temp[$7]
+		bnt	code_6964
+		pushi	$3d9		; 985, addManaValue
+		push1
+		push
+		pToa	pClient
+		send	$6
+		bnot
+		pushi	$3da		; 986, subManaValue
+		push1
+		lst	temp[$7]
+		pushi	$142		; 322, pObject
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		send	$6
+		bnot
+code_6964:	ldi	$1
+		aTop	cycles
+		jmp	code_6a7a
+
+code_696b:	dup
+		ldi	$1
+		eq?
+		bnt	code_6980
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_6a7a
+
+code_6980:	dup
+		ldi	$2
+		eq?
+		bnt	code_6a68
+		pToa	pMovieCmd
+		sat	temp[$2]
+		pushi	$446		; 1094, pResult
+		push0
+		send	$4
+		bnot
+		sat	temp[$0]
+		pTos	pClient
+		lag	global[$1]
+		eq?
+		bnt	code_6a61
+		push2
+		lat	temp[$0]
+		and
+		bnt	code_6a61
+		pushi	$526		; 1318, pExits
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		sat	temp[$5]
+		push
+		ldi	$8		; fixPriority
+		and
+		bnt	code_69e0
+		ldi	$8		; fixPriority
+		sag	global[$e5]
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		pushi	$316		; 790, handleVerb
+		push2
+		pushi	$33		; 51, '3', play
+		pushi	$279		; 633, pFocusedRoom
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		push
+		lag	global[$1]
+		send	$8
+		bnot
+		ret
+
+		jmp	code_6a61
+
+code_69e0:	lst	temp[$5]
+		ldi	$4		; scaleX
+		and
+		bnt	code_6a0c
+		ldi	$4		; scaleX
+		sag	global[$e5]
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		pushi	$316		; 790, handleVerb
+		push2
+		pushi	$33		; 51, '3', play
+		pushi	$279		; 633, pFocusedRoom
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		push
+		lag	global[$1]
+		send	$8
+		bnot
+		ret
+
+		jmp	code_6a61
+
+code_6a0c:	lst	temp[$5]
+		ldi	$1
+		and
+		bnt	code_6a38
+		ldi	$1
+		sag	global[$e5]
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		pushi	$316		; 790, handleVerb
+		push2
+		pushi	$33		; 51, '3', play
+		pushi	$279		; 633, pFocusedRoom
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		push
+		lag	global[$1]
+		send	$8
+		bnot
+		ret
+
+		jmp	code_6a61
+
+code_6a38:	lst	temp[$5]
+		ldi	$2
+		and
+		bnt	code_6a61
+		ldi	$2
+		sag	global[$e5]
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		pushi	$316		; 790, handleVerb
+		push2
+		pushi	$33		; 51, '3', play
+		pushi	$279		; 633, pFocusedRoom
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		push
+		lag	global[$1]
+		send	$8
+		bnot
+		ret
+
+code_6a61:	ldi	$1
+		aTop	cycles
+		jmp	code_6a7a
+
+code_6a68:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_6a7a
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_6a7a:	toss
+		ret
+
+WANetUseScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_6ade
+		lsp	param[$3]
+		dup
+		ldi	$271e		; 10014
+		eq?
+		bnt	code_6ab0
+		pushi	$f5		; 245, format
+		push2
+		lofsa	string_3299	; "The magical power has been drained from the %s and it is now useless until recharged."
+		push
+		pushi	$315		; 789, pName
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		push
+		class	Str
+		send	$8
+		bnot
+		sat	temp[$0]
+		jmp	code_6ada
+
+code_6ab0:	dup
+		ldi	$2
+		eq?
+		bnt	code_6ac9
+		pushi	$f5		; 245, format
+		push1
+		lofsa	string_32ef	; "You can't use that item right now."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_6ada
+
+code_6ac9:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_6ada:	toss
+		jmp	code_6aef
+
+code_6ade:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_6aef:	lat	temp[$0]
+		bnt	code_6afe
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_6afe:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetUseScript::changeState:
+		link	$7
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_6b2b
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$7		; priority
+		pushSelf
+		pToa	client
+		send	$a
+		bnot
+		jmp	code_6c46
+
+code_6b2b:	dup
+		ldi	$1
+		eq?
+		bnt	code_6b41
+		pushi	$39d		; 925, face
+		push2
+		pTos	pDirectObject
+		pushSelf
+		pToa	client
+		send	$8
+		bnot
+		jmp	code_6c46
+
+code_6b41:	dup
+		ldi	$2
+		eq?
+		bnt	code_6bee
+		pushi	$35c		; 860, getBase
+		push1
+		class	BUse
+		push
+		pToa	pDirectObject
+		send	$6
+		bnot
+		sat	temp[$4]
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCharacter
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		sat	temp[$6]
+		lat	temp[$4]
+		bnt	code_6be7
+		pushi	$454		; 1108, pSpell
+		push0
+		send	$4
+		bnot
+		push
+		ldi	$ff		; 255, asInteger
+		ne?
+		bnt	code_6be7
+		pushi	$4b		; 75, 'K', at
+		push1
+		pushi	$454		; 1108, pSpell
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		push2
+		pushi	$9cac		; -25428
+		pushi	$6		; maxScale
+		callk	kernel_2, $4
+		bnot
+		send	$6
+		bnot
+		sat	temp[$5]
+		pushi	$2bb		; 699, pType
+		push0
+		send	$4
+		bnot
+		push
+		ldi	$8		; fixPriority
+		and
+		bt	code_6baf
+		pushi	$2bb		; 699, pType
+		push0
+		lat	temp[$5]
+		send	$4
+		bnot
+		push
+		ldi	$2
+		and
+		not
+code_6baf:	bnt	code_6bc7
+		pushi	$38c		; 908, setMessage
+		push1
+		lofsa	string_3312	; "You can not use that out of combat!"
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+code_6bc7:	pushi	$527		; 1319, pCaster
+		push1
+		pTos	pDirectObject
+		pushi	$528		; 1320, cast
+		push1
+		pushSelf
+		pushi	$8d		; 141, new
+		push0
+		lat	temp[$5]
+		send	$4
+		bnot
+		sat	temp[$5]
+		send	$c
+		bnot
+		ldi	$1
+		aTop	pDone
+		jmp	code_6c46
+
+code_6be7:	ldi	$1
+		aTop	cycles
+		jmp	code_6c46
+
+code_6bee:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_6c0b
+		pToa	pDone
+		bnt	code_6c04
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		jmp	code_6c46
+
+code_6c04:	ldi	$1
+		aTop	cycles
+		jmp	code_6c46
+
+code_6c0b:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_6c34
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$0
+		aTop	pHandsOff
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$a7		; 167, isDuplicate
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_6c46
+
+code_6c34:	dup
+		ldi	$5		; scaleY
+		eq?
+		bnt	code_6c46
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_6c46:	toss
+		ret
+
+WANetMixScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_6c87
+		lsp	param[$3]
+		dup
+		ldi	$2714		; 10004
+		eq?
+		bnt	code_6c72
+		pushi	$f5		; 245, format
+		push1
+		lofsa	string_3345	; "Something is just not right..."
+		push
+		class	Str
+		send	$6
+		bnot
+		sat	temp[$0]
+		jmp	code_6c83
+
+code_6c72:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_6c83:	toss
+		jmp	code_6c98
+
+code_6c87:	pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+code_6c98:	lat	temp[$0]
+		bnt	code_6ca7
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_6ca7:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetPushScript::handleError:
+		link	$1
+		ldi	$0
+		sat	temp[$0]
+		pushi	$31f		; 799, defaultError
+		pushi	$3		; z
+		lsp	param[$1]
+		lsp	param[$2]
+		lsp	param[$3]
+		self	$a
+		bnot
+		sat	temp[$0]
+		bnt	code_6cd7
+		pushi	$38c		; 908, setMessage
+		push1
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+code_6cd7:	ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+		ret
+
+WANetPushScript::changeState:
+		link	$4
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_6d17
+		pushi	$4ff		; 1279, pApproach
+		push0
+		pToa	pDirectObject
+		send	$4
+		bnot
+		bnt	code_6d10
+		pushi	$39c		; 924, approach
+		pushi	$3		; z
+		pTos	pDirectObject
+		pushi	$1d		; 29, brTop
+		pushSelf
+		pToa	client
+		send	$a
+		bnot
+		jmp	code_6d4e
+
+code_6d10:	ldi	$1
+		aTop	cycles
+		jmp	code_6d4e
+
+code_6d17:	dup
+		ldi	$1
+		eq?
+		bnt	code_6d3c
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$63		; 99, 'c', perform
+		pushi	$4		; scaleX
+		pushi	$a8		; 168, last
+		pTos	pDirectObject
+		pushi	$ff		; 255, asInteger
+		pushSelf
+		lag	global[$6a]
+		send	$c
+		bnot
+		jmp	code_6d4e
+
+code_6d3c:	dup
+		ldi	$2
+		eq?
+		bnt	code_6d4e
+		ldi	$1
+		aTop	pDone
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_6d4e:	toss
+		ret
+
+NetDeadDemon::init:
+		pushi	$b5		; 181, set
+		push2
+		pushi	$ff		; 255, asInteger
+		dup
+		pushi	$380		; 896, pWhoToFollow
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$8
+		bnot
+		class	GlobalDemons
+		aTop	client
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		pToa	client
+		send	$6
+		bnot
+		ldi	$0
+		aTop	pRoom
+		pushi	$94		; 148, init
+		push0
+		&rest	$1
+		super	Script, $4
+		bnot
+		ret
+
+NetDeadDemon::dispose:
+		link	$1
+		pToa	scratch
+		bnt	code_6d92
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	scratch
+code_6d92:	pushi	$3ec		; 1004, pAction
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		ldi	$1
+		ne?
+		bnt	code_6db6
+		pushi	$3ec		; 1004, pAction
+		push1
+		push1
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$373		; 883, setAction
+		push1
+		push1
+		lag	global[$1]
+		send	$6
+		bnot
+code_6db6:	pushi	$276		; 630, handsOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		lal	local[$0]
+		bnt	code_6dd6
+		pushi	$4		; scaleX
+		pushi	$b		; 11, inRight
+		pushi	$3		; z
+		lofsa	string_3383	; "Info"
+		push
+		lofsa	string_3388	; "Your body has been found by a group of wandering druids who transported you to the nearest resurrection center. Once your fatal wounds were treated, you were dragged to your house and left to revive."
+		push
+		callk	kernel_118, $8
+		bnot
+code_6dd6:	pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		pToa	client
+		send	$6
+		bnot
+		ldi	$0
+		aTop	client
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Script, $4
+		bnot
+		ret
+
+NetDeadDemon::handleError:
+		link	$2
+		lsp	param[$1]
+		lag	global[$6a]
+		eq?
+		bnt	code_6dff
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_6dff:	ret
+
+NetDeadDemon::changeState:
+		link	$1
+		lap	param[$1]
+		aTop	state
+		push
+		dup
+		ldi	$0
+		eq?
+		bnt	code_6e22
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ldi	$0
+		sal	local[$0]
+		ldi	$5		; scaleY
+		aTop	seconds
+		jmp	code_6fbb
+
+code_6e22:	dup
+		ldi	$1
+		eq?
+		bnt	code_6e3f
+		pushi	$45		; 69, 'E', doit
+		push0
+		push2
+		pushi	$9c45		; -25531
+		push0
+		callk	kernel_2, $4
+		bnot
+		send	$4
+		bnot
+		ldi	$1
+		aTop	cycles
+		jmp	code_6fbb
+
+code_6e3f:	dup
+		ldi	$2
+		eq?
+		bnt	code_6e8f
+		pushi	$4b		; 75, 'K', at
+		push1
+		push0
+		pushi	$2c1		; 705, pRoomList
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		aTop	pRoom
+		pToa	pRoom
+		sag	global[$3]
+		pushi	$97		; 151, isKindOf
+		push1
+		class	CombatRoom
+		push
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		bnt	code_6e88
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$497		; 1175, exitCombat
+		push1
+		pushSelf
+		lag	global[$6a]
+		send	$6
+		bnot
+		jmp	code_6fbb
+
+code_6e88:	ldi	$1
+		aTop	cycles
+		jmp	code_6fbb
+
+code_6e8f:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_6eda
+		pushi	$276		; 630, handsOn
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		pushi	$8d		; 141, new
+		push0
+		class	LongInt
+		send	$4
+		bnot
+		aTop	scratch
+		pushi	$4b		; 75, 'K', at
+		push1
+		push0
+		pushi	$2c1		; 705, pRoomList
+		push0
+		lag	global[$30]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		aTop	pRoom
+		pToa	pRoom
+		sag	global[$3]
+		ldi	$1
+		sal	local[$0]
+		push2
+		push2
+		pushi	$4		; scaleX
+		callk	kernel_118, $4
+		bnot
+		pushi	$3		; z
+		pushi	$b		; 11, inRight
+		pushi	$5		; scaleY
+		pushSelf
+		callk	kernel_118, $6
+		bnot
+		jmp	code_6fbb
+
+code_6eda:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_6ee8
+		ldi	$1
+		aTop	cycles
+		jmp	code_6fbb
+
+code_6ee8:	dup
+		ldi	$5		; scaleY
+		eq?
+		bnt	code_6f1c
+		push2
+		push2
+		pushi	$3		; z
+		callk	kernel_118, $4
+		bnot
+		pushi	$524		; 1316, queryHouse
+		pushi	$3		; z
+		pushi	$35d		; 861, pProperName
+		push0
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCharacter
+		push
+		lag	global[$1]
+		send	$6
+		bnot
+		send	$4
+		bnot
+		push
+		pTos	scratch
+		pushSelf
+		lag	global[$6a]
+		send	$a
+		bnot
+		jmp	code_6fbb
+
+code_6f1c:	dup
+		ldi	$6		; maxScale
+		eq?
+		bnt	code_6fa0
+		pushi	$406		; 1030, pHealth
+		push1
+		push0
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$632		; 1586, pHealthHi
+		push1
+		push0
+		lag	global[$1]
+		send	$6
+		bnot
+		pushi	$6		; maxScale
+		dup
+		pushi	$5		; scaleY
+		push0
+		push0
+		pushi	$407		; 1031, pHealthMax
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		pushi	$633		; 1587, pHealthMaxHi
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		push
+		callk	kernel_118, $c
+		bnot
+		pushi	$128		; 296, equalLong
+		push1
+		pTos	scratch
+		pushi	$2f5		; 757, pNumber
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		send	$6
+		bnot
+		not
+		bnt	code_6f82
+		pushi	$272		; 626, newRoom
+		push2
+		pTos	scratch
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_6fbb
+
+code_6f82:	pushi	$272		; 626, newRoom
+		push2
+		pushi	$2f5		; 757, pNumber
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushSelf
+		lag	global[$6a]
+		send	$8
+		bnot
+		jmp	code_6fbb
+
+code_6fa0:	dup
+		ldi	$7		; priority
+		eq?
+		bnt	code_6fbb
+		pushi	$9f		; 159, add
+		push1
+		lofsa	string_3450	; "|43|Info> Resurrection complete, continue play."
+		push
+		lag	global[$9c]
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		self	$4
+		bnot
+code_6fbb:	toss
+		ret
+
+NetDeadDemon::perform:
+		push2
+		push2
+		pushi	$3		; z
+		callk	kernel_118, $4
+		bnot
+		ldi	$0
+		sal	local[$0]
+		pushi	$10f		; 271, setLong
+		push1
+		pushi	$2f5		; 757, pNumber
+		push0
+		pushi	$c5		; 197, pRoom
+		push0
+		lag	global[$1]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pToa	scratch
+		send	$6
+		bnot
+		ipToa	state
+		ipToa	state
+		pushi	$9f		; 159, add
+		push1
+		lofsa	string_3480	; "|43|Info> Resurrecting, please wait 15 seconds..."
+		push
+		lag	global[$9c]
+		send	$6
+		bnot
+		ldi	$f		; 15, loop
+		aTop	seconds
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		ret
+
+MakeItemDialog::perform:
+		link	$1
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		class	DeadObjects
+		send	$6
+		bnot
+		lap	param[$1]
+		bnt	code_7060
+		pushi	$133		; 307, pIsBigEndian
+		push1
+		push1
+		pushi	$13f		; 319, putString
+		push1
+		pTos	scratch
+		pushi	$8d		; 141, new
+		push0
+		class	PackedData
+		send	$4
+		bnot
+		sat	temp[$0]
+		send	$c
+		bnot
+		pushi	$6		; maxScale
+		pushi	$e		; 14, view
+		lofsa	string_34ca	; "tpa"
+		push
+		pushi	$71		; 113, 'q', data
+		pTos	pObject
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		callk	kernel_128, $c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_7060:	ret
+
+MakeItemDialog::init:
+		link	$6
+		pushi	$94		; 148, init
+		push1
+		lofsa	string_34ce	; "CREATEITEM"
+		push
+		super	WinDialogHandler, $6
+		bnot
+		pushi	$35c		; 860, getBase
+		push1
+		class	BMix
+		push
+		pToa	pObject
+		send	$6
+		bnot
+		sat	temp[$5]
+		bnt	code_70a4
+		pushi	$4		; scaleX
+		pushi	$12		; 18, nsLeft
+		push0
+		pushi	$502		; 1282, pSkill
+		push0
+		send	$4
+		bnot
+		push
+		pTos	pObject
+		callk	kernel_118, $8
+		bnot
+		pToa	scratch
+		not
+		bnt	code_70a4
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		aTop	scratch
+code_70a4:	ret
+
+MakeItemDialog::handleEvent:
+		link	$5
+		pushi	$48		; 72, 'H', modifiers
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		pToa	pWindow
+		eq?
+		bnt	code_71ba
+		pushi	$31		; 49, '1', message
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		dup
+		ldi	$1
+		eq?
+		bnt	code_71a8
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		class	DeadObjects
+		send	$6
+		bnot
+		pushi	$3		; z
+		pushi	$2d		; 45, '-', cursor
+		pTos	pWindow
+		pushi	$67		; 103, 'g', quitGame
+		callk	kernel_118, $6
+		bnot
+		sat	temp[$0]
+		push2
+		pushi	$30		; 48, '0', who
+		push
+		callk	kernel_118, $4
+		bnot
+		sat	temp[$1]
+		push1
+		pTos	pObject
+		calle	export60000_0, $2
+		bnot
+		bnt	code_7116
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldObject
+		push
+		pToa	pObject
+		send	$6
+		bnot
+		bnt	code_7116
+		pushi	$35c		; 860, getBase
+		push1
+		class	BMix
+		push
+		pToa	pObject
+		send	$6
+		bnot
+		sat	temp[$4]
+		not
+		bnt	code_7116
+		ret
+
+code_7116:	lst	temp[$1]
+		pushi	$502		; 1282, pSkill
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		ldi	$11		; 17, bitmap
+		sub
+		sali	local[$1]
+		pushi	$8d		; 141, new
+		push0
+		class	Str
+		send	$4
+		bnot
+		sat	temp[$3]
+		pushi	$4		; scaleX
+		pushi	$7		; priority
+		pushi	$502		; 1282, pSkill
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		lst	temp[$1]
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		push
+		callk	kernel_126, $8
+		bnot
+		pushi	$133		; 307, pIsBigEndian
+		push1
+		push1
+		pushi	$13f		; 319, putString
+		push1
+		lst	temp[$3]
+		pushi	$8d		; 141, new
+		push0
+		class	PackedData
+		send	$4
+		bnot
+		sat	temp[$2]
+		send	$c
+		bnot
+		pushi	$6		; maxScale
+		pushi	$e		; 14, view
+		lofsa	string_34ca	; "tpa"
+		push
+		pushi	$71		; 113, 'q', data
+		pTos	pObject
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		push
+		callk	kernel_128, $c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$3]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$2]
+		send	$4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		jmp	code_71b9
+
+code_71a8:	dup
+		ldi	$2
+		eq?
+		bnt	code_71b9
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		class	DeadObjects
+		send	$6
+		bnot
+code_71b9:	toss
+code_71ba:	ret
+
+MakeItemCode::doit:
+		pushi	$71		; 113, 'q', data
+		push0
+		lofsa	itemString
+		send	$4
+		bnot
+		not
+		bnt	code_71dc
+		pushi	$71		; 113, 'q', data
+		push1
+		push2
+		push2
+		lofsa	string_34e8	; ""
+		push
+		callk	kernel_92, $4
+		bnot
+		push
+		lofsa	itemString
+		send	$6
+		bnot
+code_71dc:	pushi	$9f		; 159, add
+		push1
+		pushi	$16		; 22, lsLeft
+		lofsa	string_34e8	; ""
+		push
+		pushi	$74		; 116, 't', all
+		lofsa	string_34e9	; "Make An Item"
+		push
+		pushi	$6e		; 110, 'n', resX
+		lofsa	string_34f6	; "Enter the name of the object that you want to make (i.e. 'iron axe' or 'leather tunic'):"
+		push
+		pushi	$fdea		; -534
+		pushi	$fb		; 251, subStr
+		pushi	$14		; 20, nsRight
+		pushi	$76		; 118, 'v', textLeft
+		lofsa	itemString
+		push
+		pushi	$20		; 32, ' ', name
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_2b67	; "Okay"
+		push
+		push1
+		pushi	$77		; 119, 'w', textTop
+		lofsa	string_21cd	; "Cancel"
+		push
+		push0
+		pushi	$91		; 145, bitPutIndex
+		push2
+		pushi	$93		; 147, pLine
+		pushSelf
+		pushi	$63		; 99, 'c', perform
+		calle	export60029_0, $2c
+		bnot
+		push
+		lag	global[$68]
+		send	$6
+		bnot
+		ret
+
+MakeItemCode::perform:
+		link	$1
+		lsp	param[$1]
+		ldi	$1
+		eq?
+		bnt	code_7280
+		pushi	$133		; 307, pIsBigEndian
+		push1
+		push1
+		pushi	$13f		; 319, putString
+		push1
+		lofsa	itemString
+		push
+		pushi	$8d		; 141, new
+		push0
+		class	PackedData
+		send	$4
+		bnot
+		sat	temp[$0]
+		send	$c
+		bnot
+		pushi	$6		; maxScale
+		pushi	$e		; 14, view
+		lofsa	string_34ca	; "tpa"
+		push
+		pushi	$71		; 113, 'q', data
+		pTos	scratch
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		pushi	$71		; 113, 'q', data
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		push
+		callk	kernel_128, $c
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		pushi	$277		; 631, controlOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+code_7280:	ret
+
+GotoVisibleLocation::doit:
+		link	$f
+		ret
+
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$d]
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$e]
+		push0
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$4]
+		pushi	$f2		; 242, pCast
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+		sat	temp[$c]
+		pushi	$89		; 137, top
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		ldi	$1e		; 30, brRight
+		add
+		sat	temp[$0]
+		pushi	$87		; 135, left
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		ldi	$1e		; 30, brRight
+		add
+		sat	temp[$1]
+		pushi	$8a		; 138, bottom
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		ldi	$1e		; 30, brRight
+		sub
+		sat	temp[$2]
+		pushi	$88		; 136, right
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		ldi	$1e		; 30, brRight
+		sub
+		sat	temp[$3]
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		lst	temp[$d]
+		lst	temp[$e]
+		lat	temp[$c]
+		send	$a
+		bnot
+		sat	temp[$7]
+		push
+		ldi	$0
+		eq?
+		bt	code_7306
+		lst	temp[$7]
+		lap	param[$1]
+		eq?
+code_7306:	bnt	code_730a
+		ret
+
+code_730a:	lat	temp[$e]
+		sat	temp[$6]
+code_730e:	lst	temp[$6]
+		lat	temp[$2]
+		lt?
+		bnt	code_73d2
+		lat	temp[$d]
+		sat	temp[$5]
+code_731a:	lst	temp[$5]
+		lat	temp[$1]
+		gt?
+		bnt	code_736f
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		lst	temp[$5]
+		lst	temp[$6]
+		lat	temp[$c]
+		send	$a
+		bnot
+		sat	temp[$7]
+		bnt	code_7343
+		lst	temp[$e]
+		push0
+		send	$4
+		bnot
+		push
+		lat	temp[$6]
+		gt?
+code_7343:	not
+		bnt	code_7366
+		lst	temp[$5]
+		lat	temp[$d]
+		eq?
+		bnt	code_7354
+		lst	temp[$6]
+		lat	temp[$e]
+		eq?
+code_7354:	not
+		bnt	code_7365
+		pushi	$39b		; 923, goto
+		push2
+		lst	temp[$5]
+		lst	temp[$6]
+		lap	param[$1]
+		send	$8
+		bnot
+code_7365:	ret
+
+code_7366:	lst	temp[$5]
+		ldi	$a		; 10, inTop
+		sub
+		sat	temp[$5]
+		jmp	code_731a
+
+code_736f:	lat	temp[$d]
+		sat	temp[$5]
+code_7373:	lst	temp[$5]
+		lat	temp[$3]
+		lt?
+		bnt	code_73c8
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		lst	temp[$5]
+		lst	temp[$6]
+		lat	temp[$c]
+		send	$a
+		bnot
+		sat	temp[$7]
+		bnt	code_739c
+		lst	temp[$e]
+		push0
+		send	$4
+		bnot
+		push
+		lat	temp[$6]
+		gt?
+code_739c:	not
+		bnt	code_73bf
+		lst	temp[$5]
+		lat	temp[$d]
+		eq?
+		bnt	code_73ad
+		lst	temp[$6]
+		lat	temp[$e]
+		eq?
+code_73ad:	not
+		bnt	code_73be
+		pushi	$39b		; 923, goto
+		push2
+		lst	temp[$5]
+		lst	temp[$6]
+		lap	param[$1]
+		send	$8
+		bnot
+code_73be:	ret
+
+code_73bf:	lst	temp[$5]
+		ldi	$a		; 10, inTop
+		add
+		sat	temp[$5]
+		jmp	code_7373
+
+code_73c8:	lst	temp[$6]
+		ldi	$a		; 10, inTop
+		add
+		sat	temp[$6]
+		jmp	code_730e
+
+code_73d2:	lat	temp[$e]
+		sat	temp[$6]
+code_73d6:	lst	temp[$6]
+		lat	temp[$0]
+		gt?
+		bnt	code_749a
+		lat	temp[$d]
+		sat	temp[$5]
+code_73e2:	lst	temp[$5]
+		lat	temp[$1]
+		gt?
+		bnt	code_7437
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		lst	temp[$5]
+		lst	temp[$6]
+		lat	temp[$c]
+		send	$a
+		bnot
+		sat	temp[$7]
+		bnt	code_740b
+		lst	temp[$e]
+		push0
+		send	$4
+		bnot
+		push
+		lat	temp[$6]
+		gt?
+code_740b:	not
+		bnt	code_742e
+		lst	temp[$5]
+		lat	temp[$d]
+		eq?
+		bnt	code_741c
+		lst	temp[$6]
+		lat	temp[$e]
+		eq?
+code_741c:	not
+		bnt	code_742d
+		pushi	$39b		; 923, goto
+		push2
+		lst	temp[$5]
+		lst	temp[$6]
+		lap	param[$1]
+		send	$8
+		bnot
+code_742d:	ret
+
+code_742e:	lst	temp[$5]
+		ldi	$a		; 10, inTop
+		sub
+		sat	temp[$5]
+		jmp	code_73e2
+
+code_7437:	lat	temp[$d]
+		sat	temp[$5]
+code_743b:	lst	temp[$5]
+		lat	temp[$3]
+		lt?
+		bnt	code_7490
+		pushi	$a0		; 160, firstTrue
+		pushi	$3		; z
+		pushi	$eb		; 235, onMe
+		lst	temp[$5]
+		lst	temp[$6]
+		lat	temp[$c]
+		send	$a
+		bnot
+		sat	temp[$7]
+		bnt	code_7464
+		lst	temp[$e]
+		push0
+		send	$4
+		bnot
+		push
+		lat	temp[$6]
+		gt?
+code_7464:	not
+		bnt	code_7487
+		lst	temp[$5]
+		lat	temp[$d]
+		eq?
+		bnt	code_7475
+		lst	temp[$6]
+		lat	temp[$e]
+		eq?
+code_7475:	not
+		bnt	code_7486
+		pushi	$39b		; 923, goto
+		push2
+		lst	temp[$5]
+		lst	temp[$6]
+		lap	param[$1]
+		send	$8
+		bnot
+code_7486:	ret
+
+code_7487:	lst	temp[$5]
+		ldi	$a		; 10, inTop
+		add
+		sat	temp[$5]
+		jmp	code_743b
+
+code_7490:	lst	temp[$6]
+		ldi	$a		; 10, inTop
+		sub
+		sat	temp[$6]
+		jmp	code_73d6
+
+code_749a:	ret
+
diff --git a/Script/Script777.txt b/Script/Script777.txt
new file mode 100644
index 0000000..06d7405
Binary files /dev/null and b/Script/Script777.txt differ