HandsOnCode::cue:
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		ret

<NIL>::getNextVerb:
		push2
		push0
		pushSelf
		callk	kernel_158, $4
		bnot
		ret

<NIL>::clearQueue:
		push1
		push1
		callk	kernel_158, $2
		bnot
		ret

NullMover::doit:
		pushi	$64		; 100, 'd', moveDone
		push0
		self	$4
		bnot
		ret

Money::buildBaseList:
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		self	$c
		bnot
		ret

Money::buildVerbList:
		link	$1
		pushi	$366		; 870, buildVerbList
		push1
		lsp	param[$1]
		&rest	$2
		super	WorldObject, $6
		bnot
		pushi	$337		; 823, pValue
		push0
		pToa	pOwner
		send	$4
		bnot
		sat	temp[$0]
		not
		bt	code_04e3
		pushi	$12b		; 299, lessEqual
		push1
		push0
		lat	temp[$0]
		send	$6
		bnot
code_04e3:	bnt	code_0503
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$a		; 10, inTop
		class	VerbList
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$1d		; 29, brTop
		class	VerbList
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$b		; 11, inRight
		class	VerbList
		send	$6
		bnot
code_0503:	ret

Money::see:
		link	$2
		pushi	$337		; 823, pValue
		push0
		pToa	pOwner
		send	$4
		bnot
		sat	temp[$1]
		bnt	code_0531
		pushi	$12d		; 301, greater
		push1
		push0
		send	$6
		bnot
		bnt	code_0531
		pushi	$f5		; 245, format
		push2
		lofsa	string_048d	; "You see %s in your money bag."
		push
		pTos	pName
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		jmp	code_0540

code_0531:	pushi	$d0		; 208, with
		push1
		lofsa	string_04ab	; "You see your empty money bag!"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
code_0540:	pushi	$4		; scaleX
		pushi	$7		; priority
		push2
		pushSelf
		lst	temp[$0]
		callk	kernel_118, $8
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

Mana::buildBaseList:
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		self	$c
		bnot
		ret

Mana::buildVerbList:
		link	$1
		pushi	$366		; 870, buildVerbList
		push1
		lsp	param[$1]
		&rest	$2
		super	WorldObject, $6
		bnot
		pushi	$338		; 824, pManaValue
		push0
		pToa	pOwner
		send	$4
		bnot
		sat	temp[$0]
		not
		bt	code_058f
		pushi	$12b		; 299, lessEqual
		push1
		push0
		lat	temp[$0]
		send	$6
		bnot
code_058f:	bnt	code_05af
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$a		; 10, inTop
		class	VerbList
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$1d		; 29, brTop
		class	VerbList
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$b		; 11, inRight
		class	VerbList
		send	$6
		bnot
code_05af:	ret

Mana::see:
		link	$2
		pushi	$338		; 824, pManaValue
		push0
		pToa	pOwner
		send	$4
		bnot
		sat	temp[$1]
		bnt	code_05dd
		pushi	$12d		; 301, greater
		push1
		push0
		send	$6
		bnot
		bnt	code_05dd
		pushi	$f5		; 245, format
		push2
		lofsa	string_04ce	; "You see %s in your crystal sack."
		push
		pTos	pName
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		jmp	code_05ec

code_05dd:	pushi	$d0		; 208, with
		push1
		lofsa	string_04ef	; "You see your empty crystal sack!"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
code_05ec:	pushi	$4		; scaleX
		pushi	$7		; priority
		push2
		pushSelf
		lst	temp[$0]
		callk	kernel_118, $8
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

WorldEgo::init:
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	WorldActor, $4
		bnot
		class	PolyPath
		aTop	pMover
		pushi	$8c		; 140, scratch
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		class	MovieSet
		send	$4
		bnot
		aTop	pOutgoingMovie
		send	$6
		bnot
		pushi	$1ac		; 428, setLooper
		push1
		class	Grooper
		push
		self	$6
		bnot
		ret

WorldEgo::buildVerbList:
		pushi	$366		; 870, buildVerbList
		push0
		&rest	$1
		super	WorldActor, $4
		bnot
		pushi	$5a		; 90, 'Z', size
		push0
		class	SpellList
		send	$4
		bnot
		bnt	code_0666
		pushi	$54f		; 1359, pFlags
		push0
		pushi	$c5		; 197, pRoom
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$4
		bnot
		push
		ldi	$100		; 256, strMax
		and
		not
		bnt	code_0666
		pushi	$9f		; 159, add
		push1
		pushi	$3a		; 58, ':', b_i1
		class	VerbList
		send	$6
		bnot
code_0666:	pTos	pAction
		ldi	$3		; z
		eq?
		bnt	code_067a
		pushi	$9f		; 159, add
		push1
		pushi	$50		; 80, 'P', claimed
		class	VerbList
		send	$6
		bnot
		jmp	code_069a

code_067a:	pushi	$2c8		; 712, lookup
		push1
		pushi	$380		; 896, pWhoToFollow
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		lag	global[$6a]
		send	$6
		bnot
		bnt	code_069a
		pushi	$9f		; 159, add
		push1
		pushi	$72		; 114, 'r', skip
		class	VerbList
		send	$6
		bnot
code_069a:	ret

WorldEgo::fromPacket:
		pushi	$36c		; 876, fromPacket
		push0
		&rest	$1
		super	WorldActor, $4
		bnot
		pushi	$343		; 835, pOwner
		push1
		pushSelf
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	Money
		send	$4
		bnot
		aTop	pMoneyObj
		send	$a
		bnot
		pushi	$343		; 835, pOwner
		push1
		pushSelf
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	Mana
		send	$4
		bnot
		aTop	pManaObj
		send	$a
		bnot
		pushi	$38e		; 910, take
		push1
		pTos	pMoneyObj
		self	$6
		bnot
		pushi	$38e		; 910, take
		push1
		pTos	pManaObj
		self	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pTos	pManaObj
		pushi	$420		; 1056, pContents
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		self	$6
		bnot
		send	$4
		bnot
		send	$6
		bnot
		pushi	$aa		; 170, addToFront
		push1
		pTos	pManaObj
		pushi	$420		; 1056, pContents
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		self	$6
		bnot
		send	$4
		bnot
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pTos	pMoneyObj
		pushi	$420		; 1056, pContents
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		self	$6
		bnot
		send	$4
		bnot
		send	$6
		bnot
		pushi	$aa		; 170, addToFront
		push1
		pTos	pMoneyObj
		pushi	$420		; 1056, pContents
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		self	$6
		bnot
		send	$4
		bnot
		send	$6
		bnot
		ret

WorldEgo::setValue:
		pushi	$3d5		; 981, setValue
		push0
		&rest	$1
		super	WorldActor, $4
		bnot
		pushi	$3d5		; 981, setValue
		push0
		&rest	$1
		pToa	pMoneyObj
		send	$4
		bnot
		ret

WorldEgo::setManaValue:
		pushi	$3d8		; 984, setManaValue
		push0
		&rest	$1
		super	WorldActor, $4
		bnot
		pushi	$3d8		; 984, setManaValue
		push0
		&rest	$1
		pToa	pManaObj
		send	$4
		bnot
		pushi	$3		; z
		pushi	$6		; maxScale
		pushi	$4		; scaleX
		pushi	$338		; 824, pManaValue
		push0
		self	$4
		bnot
		push
		callk	kernel_118, $6
		bnot
		ret

WorldEgo::hide:
		pushi	$383		; 899, curPanel
		push0
		lag	global[$6]
		send	$4
		bnot
		push
		push2
		pushi	$a410		; -23536
		push0
		callk	kernel_2, $4
		bnot
		eq?
		bnt	code_07c2
		pushi	$17c		; 380, isNotHidden
		push0
		self	$4
		bnot
		bnt	code_07cb
		pTos	signal
		ldi	$8		; fixPriority
		or
		aTop	signal
		push1
		pushSelf
		callk	kernel_31, $2
		bnot
		jmp	code_07cb

code_07c2:	pushi	$69		; 105, 'i', hide
		push0
		&rest	$1
		super	WorldActor, $4
		bnot
code_07cb:	ret

WorldEgo::startTargetting:
		link	$2
		ldi	$0
		sat	temp[$0]
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_07e0
		lap	param[$2]
		aTop	pClient
		jmp	code_07e5

code_07e0:	ldi	$0
		aTop	pClient
code_07e5:	lap	param[$1]
		aTop	pTargetting
		pTos	pTargetting
		dup
		ldi	$1
		eq?
		bnt	code_0804
		pushi	$d0		; 208, with
		push1
		lofsa	string_0510	; "Choose target..."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		jmp	code_0830

code_0804:	dup
		ldi	$2
		eq?
		bnt	code_081b
		pushi	$d0		; 208, with
		push1
		lofsa	string_0521	; "Choose grid location..."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		jmp	code_0830

code_081b:	dup
		ldi	$3		; z
		eq?
		bnt	code_0830
		pushi	$d0		; 208, with
		push1
		lofsa	string_0539	; "Choose location..."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
code_0830:	toss
		ldi	$0
		sat	temp[$1]
		lag	global[$d3]
		bnt	code_083d
		ldi	$e		; 14, view
		sat	temp[$1]
code_083d:	lat	temp[$0]
		bnt	code_0860
		pushi	$94		; 148, init
		pushi	$4		; scaleX
		push
		pushi	$5		; scaleY
		pushi	$1e		; 30, brRight
		lat	temp[$1]
		add
		push
		pushi	$ff		; 255, asInteger
		pushi	$8d		; 141, new
		push0
		class	ShadowText
		send	$4
		bnot
		sal	local[$0]
		send	$c
		bnot
code_0860:	ret

WorldEgo::stopTargetting:
		lap	param[$0]
		not
		bt	code_0868
		lap	param[$1]
code_0868:	bnt	code_0879
		pToa	pClient
		bnt	code_0879
		pushi	$c7		; 199, cue
		push0
		pToa	pClient
		send	$4
		bnot
code_0879:	push1
		lsl	local[$0]
		calle	export60000_0, $2
		bnot
		bnt	code_0892
		pushi	$95		; 149, dispose
		push0
		lal	local[$0]
		send	$4
		bnot
		ldi	$0
		sal	local[$0]
code_0892:	pToa	pTargetting
		bnt	code_08b6
		pushi	$271		; 625, handsLevel
		push0
		lag	global[$2]
		send	$4
		bnot
		not
		bnt	code_08b6
		pushi	$1f5		; 501, setIcon
		push1
		pushi	$483		; 1155, pLastIcon
		push0
		lag	global[$6]
		send	$4
		bnot
		push
		lag	global[$6]
		send	$6
		bnot
code_08b6:	ldi	$0
		aTop	pTargetting
		aTop	pClient
		ret

WorldEgo::stopAction:
		pushi	$3a6		; 934, stopAction
		push0
		&rest	$1
		super	WorldActor, $4
		bnot
		pushi	$45c		; 1116, stopTargetting
		push1
		push0
		self	$6
		bnot
		ret

WorldEgo::handleEvent:
		link	$6
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
		pTos	pMode
		ldi	$2
		and
		bnt	code_08e8
		ldi	$0
		ret

code_08e8:	pToa	pMovieCmd
		bt	code_08f2
		pTos	pAffectedLo
		ldi	$0
		and
code_08f2:	bnt	code_0900
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		ldi	$1
		ret

code_0900:	lsp	param[$0]
		ldi	$2
		lt?
		bt	code_0918
		lap	param[$2]
		not
		bt	code_0918
		pushi	$37d		; 893, servIDEquals
		push2
		pushi	$ff		; 255, asInteger
		dup
		lap	param[$2]
		send	$8
		bnot
code_0918:	bnt	code_09d4
		pushi	$b9		; 185, localize
		push1
		push0
		push0
		lag	global[$3]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		self	$6
		bnot
		bnt	code_093d
		selfID
		sap	param[$2]
		jmp	code_09d4

code_093d:	ldi	$0
		aTop	pDirectObject
		aTop	pIndirectObject
		pushi	$3a6		; 934, stopAction
		push0
		self	$4
		bnot
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$33		; 51, '3', play
		eq?
		bnt	code_097a
		pushi	$120		; 288, setBit
		push1
		pushi	$33		; 51, '3', play
		class	VerbArray
		send	$6
		bnot
		pushi	$316		; 790, handleVerb
		push2
		pushi	$33		; 51, '3', play
		pushi	$279		; 633, pFocusedRoom
		push0
		lag	global[$30]
		send	$4
		bnot
		push
		self	$8
		bnot
		jmp	code_09d4

code_097a:	lag	global[$3]
		bnt	code_09a3
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$1ae		; 430, horizon
		push0
		lag	global[$3]
		send	$4
		bnot
		lt?
		bnt	code_09a3
		push2
		push1
		pushi	$1ae		; 430, horizon
		push0
		lag	global[$3]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
code_09a3:	pushi	$120		; 288, setBit
		push1
		push1
		class	VerbArray
		send	$6
		bnot
		pushi	$316		; 790, handleVerb
		pushi	$3		; z
		push1
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$a
		bnot
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		ldi	$1
		ret

code_09d4:	lsp	param[$0]
		ldi	$2
		lt?
		bnt	code_09f6
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		self	$6
		bnot
		bnt	code_09eb
		selfID
		sap	param[$2]
		jmp	code_09f6

code_09eb:	pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		super	WorldActor, $6
		bnot
		ret

code_09f6:	lst	temp[$0]
		ldi	$4000		; 16384
		and
		bnt	code_0e56
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pLastVerb
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		dup
		ldi	$3a		; 58, ':', b_i1
		eq?
		bnt	code_0a66
		pushi	$3a6		; 934, stopAction
		push0
		self	$4
		bnot
		pushi	$a3		; 163, contains
		push1
		lsp	param[$1]
		push0
		push0
		lag	global[$3]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0e53
		pushi	$120		; 288, setBit
		push1
		pushi	$3a		; 58, ':', b_i1
		class	VerbArray
		send	$6
		bnot
		pushi	$316		; 790, handleVerb
		pushi	$3		; z
		pushi	$3a		; 58, ':', b_i1
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$a
		bnot
		jmp	code_0e53

code_0a66:	dup
		ldi	$1b		; 27, illegalBits
		eq?
		bnt	code_0b79
		pushi	$3a6		; 934, stopAction
		push0
		self	$4
		bnot
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0e53
		pushi	$97		; 151, isKindOf
		push1
		class	WorldActor
		push
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0e53
		pTos	pMode
		ldi	$2
		and
		bnt	code_0e53
		pushi	$2fb		; 763, pCombatGroup
		push0
		self	$4
		bnot
		bnt	code_0e53
		pushi	$2fb		; 763, pCombatGroup
		push0
		lap	param[$2]
		send	$4
		bnot
		bnt	code_0e53
		pushi	$4cc		; 1228, pFriend
		push0
		lap	param[$2]
		send	$4
		bnot
		not
		bnt	code_0e53
		lap	param[$2]
		aTop	pDirectObject
		ldi	$0
		aTop	pIndirectObject
		push1
		pushi	$40f		; 1039, pWeapon
		push0
		self	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0b15
		pushi	$97		; 151, isKindOf
		push1
		class	BWeapon
		push
		pushi	$40f		; 1039, pWeapon
		push0
		self	$4
		bnot
		send	$6
		bnot
		bnt	code_0b15
		pushi	$4e3		; 1251, pDamageType
		push0
		pushi	$40f		; 1039, pWeapon
		push0
		self	$4
		bnot
		send	$4
		bnot
		push
		ldi	$3		; z
		eq?
		bnt	code_0b15
		pushi	$120		; 288, setBit
		push1
		pushi	$1b		; 27, illegalBits
		class	VerbArray
		send	$6
		bnot
		pushi	$316		; 790, handleVerb
		push1
		pushi	$1b		; 27, illegalBits
		self	$6
		bnot
		jmp	code_0e53

code_0b15:	pushi	$4		; scaleX
		pushi	$43b		; 1083, pCombatX
		push0
		lap	param[$2]
		send	$4
		bnot
		push
		pushi	$43c		; 1084, pCombatY
		push0
		lap	param[$2]
		send	$4
		bnot
		push
		pushi	$43b		; 1083, pCombatX
		push0
		self	$4
		bnot
		push
		pushi	$43c		; 1084, pCombatY
		push0
		self	$4
		bnot
		push
		callk	kernel_64, $8
		bnot
		push
		ldi	$1
		eq?
		bnt	code_0b5d
		pushi	$120		; 288, setBit
		push1
		pushi	$1b		; 27, illegalBits
		class	VerbArray
		send	$6
		bnot
		pushi	$316		; 790, handleVerb
		push1
		pushi	$1b		; 27, illegalBits
		self	$6
		bnot
		jmp	code_0e53

code_0b5d:	pushi	$d0		; 208, with
		push1
		lofsa	string_054c	; "You are too far away to attack.\n"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$4]
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$9c]
		send	$6
		bnot
		jmp	code_0e53

code_0b79:	dup
		ldi	$2
		eq?
		bnt	code_0db4
		pTos	pTargetting
		ldi	$1
		eq?
		bnt	code_0bd6
		push1
		lsp	param[$2]
		calle	export60000_0, $2
		bnot
		not
		bt	code_0bb1
		pushi	$99		; 153, respondsTo
		push1
		pushi	$37d		; 893, servIDEquals
		lap	param[$2]
		send	$6
		bnot
		not
		bt	code_0bb1
		pushi	$37d		; 893, servIDEquals
		push2
		pushi	$ff		; 255, asInteger
		dup
		lap	param[$2]
		send	$8
		bnot
code_0bb1:	bnt	code_0bd6
		pushi	$3a6		; 934, stopAction
		push0
		self	$4
		bnot
		pushi	$d0		; 208, with
		push1
		lofsa	string_056d	; "That is not a valid target.\n"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$4]
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$9c]
		send	$6
		bnot
		jmp	code_0e53

code_0bd6:	pTos	pTargetting
		ldi	$2
		eq?
		bnt	code_0c5f
		push1
		lsp	param[$2]
		calle	export60000_0, $2
		bnot
		bnt	code_0c5f
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0c5f
		pushi	$97		; 151, isKindOf
		push1
		class	WorldActor
		push
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0c5f
		pTos	pMode
		ldi	$2
		and
		bnt	code_0c5f
		pushi	$2fb		; 763, pCombatGroup
		push0
		self	$4
		bnot
		bnt	code_0c5f
		pushi	$2fb		; 763, pCombatGroup
		push0
		lap	param[$2]
		send	$4
		bnot
		bnt	code_0c5f
		pushi	$43c		; 1084, pCombatY
		push0
		lap	param[$2]
		send	$4
		bnot
		push
		ldi	$18		; 24, lsRight
		mul
		push
		pushi	$43b		; 1083, pCombatX
		push0
		lap	param[$2]
		send	$4
		bnot
		add
		sat	temp[$5]
		push
		ldi	$1b0		; 432, prevDir
		lt?
		bnt	code_0e53
		lst	temp[$5]
		ldi	$0
		ge?
		bnt	code_0e53
		lat	temp[$5]
		sag	global[$dd]
		aTop	pDirectObject
		pushi	$45c		; 1116, stopTargetting
		push0
		self	$4
		bnot
		jmp	code_0e53

code_0c5f:	pTos	pTargetting
		ldi	$1
		eq?
		bnt	code_0cce
		push1
		lsp	param[$2]
		calle	export60000_0, $2
		bnot
		bnt	code_0cce
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		lap	param[$2]
		send	$6
		bnot
		bt	code_0cb0
		pushi	$97		; 151, isKindOf
		push1
		class	WorldObject
		push
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0cce
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		lap	param[$2]
		send	$6
		bnot
		sat	temp[$2]
		bnt	code_0cce
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		pushi	$4b0		; 1200, pContainerButton
		push0
		send	$4
		bnot
		send	$6
		bnot
code_0cb0:	bnt	code_0cce
		pushi	$99		; 153, respondsTo
		push1
		pushi	$37d		; 893, servIDEquals
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0cce
		lap	param[$2]
		aTop	pDirectObject
		pushi	$45c		; 1116, stopTargetting
		push0
		self	$4
		bnot
		jmp	code_0e53

code_0cce:	pushi	$32d		; 813, pObj
		push0
		class	WDragger
		send	$4
		bnot
		bnt	code_0d3e
		pushi	$3a6		; 934, stopAction
		push0
		self	$4
		bnot
		lap	param[$2]
		aTop	pDirectObject
		push
		pushi	$32d		; 813, pObj
		push0
		class	WDragger
		send	$4
		bnot
		eq?
		bnt	code_0d03
		ldi	$0
		aTop	pIndirectObject
		pushi	$38a		; 906, getVerb
		push1
		pushSelf
		lap	param[$2]
		send	$6
		bnot
		jmp	code_0e53

code_0d03:	lsp	param[$2]
		selfID
		eq?
		bnt	code_0d25
		pushi	$32d		; 813, pObj
		push0
		class	WDragger
		send	$4
		bnot
		aTop	pDirectObject
		ldi	$0
		aTop	pIndirectObject
		pushi	$38a		; 906, getVerb
		push1
		pushSelf
		pToa	pDirectObject
		send	$6
		bnot
		jmp	code_0e53

code_0d25:	pushi	$32d		; 813, pObj
		push0
		class	WDragger
		send	$4
		bnot
		aTop	pIndirectObject
		pushi	$38a		; 906, getVerb
		push1
		pTos	pIndirectObject
		lap	param[$2]
		send	$6
		bnot
		jmp	code_0e53

code_0d3e:	pushi	$381		; 897, pMode
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$2
		and
		not
		bnt	code_0d8a
		pushi	$48		; 72, 'H', modifiers
		push0
		lap	param[$1]
		send	$4
		bnot
		not
		bnt	code_0d8a
		pushi	$97		; 151, isKindOf
		push1
		class	WorldObject
		push
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0d8a
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0d8a
		pushi	$3a6		; 934, stopAction
		push0
		self	$4
		bnot
		pushi	$358		; 856, startDragging
		push1
		lsp	param[$2]
		class	WDragger
		send	$6
		bnot
		jmp	code_0e53

code_0d8a:	pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0e53
		pushi	$3a6		; 934, stopAction
		push0
		self	$4
		bnot
		lap	param[$2]
		aTop	pDirectObject
		ldi	$0
		aTop	pIndirectObject
		pushi	$38a		; 906, getVerb
		push1
		pushSelf
		lap	param[$2]
		send	$6
		bnot
		jmp	code_0e53

code_0db4:	dup
		ldi	$4b		; 75, 'K', at
		eq?
		bnt	code_0de5
		pushi	$99		; 153, respondsTo
		push1
		pushi	$2f6		; 758, zoom
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0e53
		pushi	$2f6		; 758, zoom
		push2
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lap	param[$2]
		send	$8
		bnot
		jmp	code_0e53

code_0de5:	dup
		ldi	$4c		; 76, 'L', next
		eq?
		bnt	code_0e06
		pushi	$99		; 153, respondsTo
		push1
		pushi	$2f7		; 759, unzoom
		lap	param[$2]
		send	$6
		bnot
		bnt	code_0e53
		pushi	$2f7		; 759, unzoom
		push0
		lap	param[$2]
		send	$4
		bnot
		jmp	code_0e53

code_0e06:	dup
		ldi	$33		; 51, '3', play
		eq?
		bnt	code_0e3a
		pushi	$3a6		; 934, stopAction
		push0
		self	$4
		bnot
		ldi	$0
		aTop	pDirectObject
		aTop	pIndirectObject
		pushi	$120		; 288, setBit
		push1
		pushi	$33		; 51, '3', play
		class	VerbArray
		send	$6
		bnot
		pushi	$316		; 790, handleVerb
		push2
		pushi	$33		; 51, '3', play
		pushi	$279		; 633, pFocusedRoom
		push0
		lag	global[$30]
		send	$4
		bnot
		push
		self	$8
		bnot
		jmp	code_0e53

code_0e3a:	pushi	$50		; 80, 'P', claimed
		push1
		pushi	$316		; 790, handleVerb
		push1
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
code_0e53:	toss
		jmp	code_0e60

code_0e56:	pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		super	WorldActor, $6
		bnot
code_0e60:	pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		ret

WorldEgo::handleVerb:
		link	$1
		push1
		pTos	pDirectObject
		calle	export60000_0, $2
		bnot
		bnt	code_0e97
		pushi	$97		; 151, isKindOf
		push1
		class	ContainerDisplay
		push
		pToa	pDirectObject
		send	$6
		bnot
		bnt	code_0e97
		pushi	$365		; 869, pSelf
		push0
		pushi	$4b4		; 1204, pContainer
		push0
		pToa	pDirectObject
		send	$4
		bnot
		send	$4
		bnot
		aTop	pDirectObject
code_0e97:	push1
		pTos	pIndirectObject
		calle	export60000_0, $2
		bnot
		bnt	code_0ec3
		pushi	$97		; 151, isKindOf
		push1
		class	ContainerDisplay
		push
		pToa	pIndirectObject
		send	$6
		bnot
		bnt	code_0ec3
		pushi	$365		; 869, pSelf
		push0
		pushi	$4b4		; 1204, pContainer
		push0
		pToa	pIndirectObject
		send	$4
		bnot
		send	$4
		bnot
		aTop	pIndirectObject
code_0ec3:	lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0ed0
		lap	param[$2]
		sat	temp[$0]
		jmp	code_0ed4

code_0ed0:	ldi	$0
		sat	temp[$0]
code_0ed4:	pToa	pDirectObject
		bnt	code_0ef9
		lsp	param[$1]
		ldi	$2
		eq?
		bnt	code_0ef9
		pushi	$39b		; 923, goto
		push2
		push1
		push0
		pToa	pDirectObject
		send	$4
		bnot
		push
		push2
		push0
		pToa	pDirectObject
		send	$4
		bnot
		push
		self	$8
		bnot
		ldi	$1
		ret

code_0ef9:	lsp	param[$1]
		ldi	$0
		ne?
		bnt	code_0f12
		pushi	$123		; 291, getBit
		push1
		lsp	param[$1]
		class	VerbArray
		send	$6
		bnot
		not
		bnt	code_0f12
		ldi	$0
		ret

code_0f12:	pushi	$316		; 790, handleVerb
		push1
		lsp	param[$1]
		&rest	$2
		super	WorldActor, $6
		bnot
		ret

WorldEgo::showContents:
		pushi	$488		; 1160, showInventoryPanel
		push0
		lag	global[$6]
		send	$4
		bnot
		pushi	$3a4		; 932, showContents
		push2
		pushi	$16e		; 366, dynamic
		pushi	$16b		; 363, clip
		super	WorldActor, $8
		bnot
		ret

WorldEgo::setMode:
		pushi	$3ba		; 954, setMode
		push1
		lsp	param[$1]
		&rest	$2
		super	WorldActor, $6
		bnot
		pushi	$487		; 1159, replaceIcons
		push2
		lsp	param[$1]
		push0
		lag	global[$6]
		send	$8
		bnot
		ret

WorldEgo::clearMode:
		pushi	$3bb		; 955, clearMode
		push1
		lsp	param[$1]
		&rest	$2
		super	WorldActor, $6
		bnot
		pushi	$487		; 1159, replaceIcons
		push2
		pTos	pMode
		push0
		lag	global[$6]
		send	$8
		bnot
		ret

WorldEgo::restoreMode:
		pushi	$3bd		; 957, restoreMode
		push0
		super	WorldActor, $4
		bnot
		pushi	$487		; 1159, replaceIcons
		push2
		pTos	pMode
		push0
		lag	global[$6]
		send	$8
		bnot
		ret

WorldEgo::isWizard:
		lsg	global[$d1]
		ldi	$64		; 100, 'd', moveDone
		eq?
		ret

WorldEgo::see:
		pushi	$c2		; 194, register
		push1
		pushSelf
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		lofsa	LookAtCharacter
		send	$4
		bnot
		send	$a
		bnot
		ret

WorldEgo::doit:
		link	$1
		pushi	$45		; 69, 'E', doit
		push0
		&rest	$1
		super	WorldActor, $4
		bnot
		pushi	$271		; 625, handsLevel
		push0
		lag	global[$2]
		send	$4
		bnot
		bt	code_0fb7
		pToa	script
		bt	code_0fb7
		pToa	pMovieCmd
code_0fb7:	bnt	code_0fba
		ret

code_0fba:	pushi	$625		; 1573, getNextVerb
		push0
		class	<NIL>
		send	$4
		bnot
		bnt	code_1003
		pushi	$624		; 1572, pVerbID
		push0
		class	<NIL>
		send	$4
		bnot
		sat	temp[$0]
		pushi	$120		; 288, setBit
		push1
		push
		class	VerbArray
		send	$6
		bnot
		pushi	$31e		; 798, pDirectObject
		push0
		class	<NIL>
		send	$4
		bnot
		aTop	pDirectObject
		pushi	$3e3		; 995, pIndirectObject
		push0
		class	<NIL>
		send	$4
		bnot
		aTop	pIndirectObject
		pushi	$316		; 790, handleVerb
		push2
		lst	temp[$0]
		lofsa	HandsOnCode
		push
		self	$8
		bnot
code_1003:	ret

WorldEgo::setPassword:
		pushi	$3a6		; 934, stopAction
		push0
		lag	global[$1]
		send	$4
		bnot
		pushi	$31e		; 798, pDirectObject
		push1
		lsg	global[$1]
		lag	global[$1]
		send	$6
		bnot
		pushi	$c9		; 201, setScript
		push2
		pushi	$8d		; 141, new
		push0
		class	WANetNewPassScript
		send	$4
		bnot
		push
		pushSelf
		lag	global[$1]
		send	$8
		bnot
		ret

LookAtCharacter::changeState:
		link	$3
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_1061
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		aTop	scratch
		pushi	$50e		; 1294, getBiography
		pushi	$3		; z
		pTos	register
		pTos	scratch
		pushSelf
		lag	global[$6a]
		send	$a
		bnot
		jmp	code_10cc

code_1061:	dup
		ldi	$1
		eq?
		bnt	code_108b
		pushi	$4ca		; 1226, setBiography
		push1
		pTos	scratch
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		pToa	register
		send	$6
		bnot
		send	$6
		bnot
		pushi	$549		; 1353, getExtendedProps
		push2
		pTos	register
		pushSelf
		lag	global[$6a]
		send	$8
		bnot
		jmp	code_10cc

code_108b:	dup
		ldi	$2
		eq?
		bnt	code_10b6
		push1
		pTos	scratch
		calle	export60000_0, $2
		bnot
		bnt	code_10a6
		pushi	$95		; 149, dispose
		push0
		pToa	scratch
		send	$4
		bnot
code_10a6:	pushi	$45		; 69, 'E', doit
		push1
		pTos	register
		class	CreateLookDialog
		send	$6
		bnot
		ldi	$1
		aTop	cycles
		jmp	code_10cc

code_10b6:	dup
		ldi	$3		; z
		eq?
		bnt	code_10cc
		pushi	$278		; 632, controlOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_10cc:	toss
		ret

