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