export40005_0	= catchUpOnMessages
export40005_1	= code_086a
export40005_2	= code_08b8

GPolyBitmap::init:
		link	$e
		ret

		pToa	bitmap
		bnt	code_047f
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$66]
		send	$6
		bnot
		ldi	$0
		aTop	bitmap
code_047f:	pushi	$5		; scaleY
		push0
		pushi	$280		; 640, disposeWhenDone
		pushi	$1e0		; 480, isControl
		push0
		push0
		callk	kernel_35, $a
		bnot
		aTop	bitmap
		lap	param[$0]
		bnt	code_04a1
		pushi	$16d		; 365, obstacles
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$1]
		jmp	code_04b3

code_04a1:	pushi	$16d		; 365, obstacles
		push0
		pushi	$c5		; 197, pRoom
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$1]
code_04b3:	lat	temp[$1]
		not
		bnt	code_04b9
		ret

code_04b9:	pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$1]
		send	$4
		bnot
		sat	temp[$2]
		ldi	$0
		sat	temp[$0]
code_04c7:	lst	temp[$0]
		lat	temp[$2]
		lt?
		bnt	code_0651
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		lat	temp[$1]
		send	$6
		bnot
		sat	temp[$3]
		pushi	$5b		; 91, '[', points
		push0
		send	$4
		bnot
		sat	temp[$4]
		pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$3]
		send	$4
		bnot
		sat	temp[$5]
		pushi	$4b		; 75, 'K', at
		push1
		push0
		lat	temp[$4]
		send	$6
		bnot
		sat	temp[$7]
		pushi	$4b		; 75, 'K', at
		push1
		push1
		lat	temp[$4]
		send	$6
		bnot
		sat	temp[$8]
		lat	temp[$7]
		sat	temp[$a]
		lat	temp[$8]
		sat	temp[$b]
		pushi	$2b		; 43, '+', type
		push0
		lat	temp[$3]
		send	$4
		bnot
		push
		ldi	$4		; scaleX
		gt?
		bnt	code_051f
		ldi	$3f		; 63, '?', xStep
		sat	temp[$c]
		jmp	code_0523

code_051f:	ldi	$2b		; 43, '+', type
		sat	temp[$c]
code_0523:	ldi	$1
		sat	temp[$6]
code_0527:	lst	temp[$6]
		lat	temp[$5]
		lt?
		bnt	code_05e1
		pushi	$94		; 148, init
		pushi	$4		; scaleX
		lst	temp[$7]
		lst	temp[$8]
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$6]
		ldi	$2
		mul
		push
		lat	temp[$4]
		send	$6
		bnot
		push
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$6]
		ldi	$2
		mul
		push
		ldi	$1
		add
		push
		lat	temp[$4]
		send	$6
		bnot
		push
		pushi	$8d		; 141, new
		push0
		class	Line
		send	$4
		bnot
		sat	temp[$d]
		send	$c
		bnot
		pushi	$16b		; 363, clip
		push1
		push0
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lat	temp[$d]
		send	$6
		bnot
		bnt	code_05af
		pushi	$7		; priority
		push2
		pTos	bitmap
		pushi	$167		; 359, pX1
		push0
		lat	temp[$d]
		send	$4
		bnot
		push
		pushi	$168		; 360, pY1
		push0
		lat	temp[$d]
		send	$4
		bnot
		push
		pushi	$169		; 361, pX2
		push0
		lat	temp[$d]
		send	$4
		bnot
		push
		pushi	$16a		; 362, pY2
		push0
		lat	temp[$d]
		send	$4
		bnot
		push
		lst	temp[$c]
		callk	kernel_35, $e
		bnot
code_05af:	pushi	$95		; 149, dispose
		push0
		lat	temp[$d]
		send	$4
		bnot
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$6]
		ldi	$2
		mul
		push
		lat	temp[$4]
		send	$6
		bnot
		sat	temp[$7]
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$6]
		ldi	$2
		mul
		push
		ldi	$1
		add
		push
		lat	temp[$4]
		send	$6
		bnot
		sat	temp[$8]
		+at	temp[$6]
		jmp	code_0527

code_05e1:	pushi	$94		; 148, init
		pushi	$4		; scaleX
		lst	temp[$7]
		lst	temp[$8]
		lst	temp[$a]
		lst	temp[$b]
		pushi	$8d		; 141, new
		push0
		class	Line
		send	$4
		bnot
		sat	temp[$d]
		send	$c
		bnot
		pushi	$16b		; 363, clip
		push1
		push0
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lat	temp[$d]
		send	$6
		bnot
		bnt	code_0643
		pushi	$7		; priority
		push2
		pTos	bitmap
		pushi	$167		; 359, pX1
		push0
		lat	temp[$d]
		send	$4
		bnot
		push
		pushi	$168		; 360, pY1
		push0
		lat	temp[$d]
		send	$4
		bnot
		push
		pushi	$169		; 361, pX2
		push0
		lat	temp[$d]
		send	$4
		bnot
		push
		pushi	$16a		; 362, pY2
		push0
		lat	temp[$d]
		send	$4
		bnot
		push
		lst	temp[$c]
		callk	kernel_35, $e
		bnot
code_0643:	pushi	$95		; 149, dispose
		push0
		lat	temp[$d]
		send	$4
		bnot
		+at	temp[$0]
		jmp	code_04c7

code_0651:	ldi	$1e0		; 480, isControl
		aTop	y
		aTop	z
		pushi	$94		; 148, init
		push0
		&rest	$2
		super	View, $4
		bnot
		push1
		pushSelf
		callk	kernel_32, $2
		bnot
		ret

VerbArray::setBit:
		link	$4
		pToa	data
		not
		bnt	code_067e
		pushi	$3		; z
		push0
		pushi	$c8		; 200, handleEvent
		pTos	type
		callk	kernel_91, $6
		bnot
		aTop	data
code_067e:	lsp	param[$1]
		ldi	$8		; fixPriority
		div
		sat	temp[$0]
		push2
		lsp	param[$1]
		pushi	$8		; fixPriority
		calle	export60025_1, $4
		bnot
		sat	temp[$1]
		push1
		shl
		sat	temp[$2]
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		self	$6
		bnot
		sat	temp[$3]
		push
		lat	temp[$2]
		or
		sat	temp[$3]
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$0]
		push
		self	$8
		bnot
		ret

VerbArray::getBit:
		link	$4
		pToa	data
		not
		bnt	code_06c6
		pushi	$3		; z
		push0
		pushi	$c8		; 200, handleEvent
		pTos	type
		callk	kernel_91, $6
		bnot
		aTop	data
code_06c6:	lsp	param[$1]
		ldi	$8		; fixPriority
		div
		sat	temp[$0]
		push2
		lsp	param[$1]
		pushi	$8		; fixPriority
		calle	export60025_1, $4
		bnot
		sat	temp[$1]
		push1
		shl
		sat	temp[$2]
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		self	$6
		bnot
		sat	temp[$3]
		push
		lat	temp[$2]
		and
		ret

VerbArray::clearBit:
		link	$4
		pToa	data
		not
		bnt	code_0703
		pushi	$3		; z
		push0
		pushi	$c8		; 200, handleEvent
		pTos	type
		callk	kernel_91, $6
		bnot
		aTop	data
code_0703:	lsp	param[$1]
		ldi	$8		; fixPriority
		div
		sat	temp[$0]
		push2
		lsp	param[$1]
		pushi	$8		; fixPriority
		calle	export60025_1, $4
		bnot
		sat	temp[$1]
		push1
		shl
		sat	temp[$2]
		push
		ldi	$ff		; 255, asInteger
		xor
		sat	temp[$2]
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		self	$6
		bnot
		sat	temp[$3]
		push
		lat	temp[$2]
		and
		sat	temp[$3]
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$0]
		push
		self	$8
		bnot
		ret

VerbArray::fill:
		link	$1
		pToa	data
		sat	temp[$0]
		pushi	$3		; z
		push0
		pushi	$c8		; 200, handleEvent
		pTos	type
		callk	kernel_91, $6
		bnot
		aTop	data
		lat	temp[$0]
		bnt	code_075c
		push2
		pushi	$4		; scaleX
		push
		callk	kernel_91, $4
		bnot
code_075c:	pushi	$d6		; 214, fill
		push0
		&rest	$1
		super	ByteArray, $4
		bnot
		ret

VerbList::add:
		link	$1
		ldi	$0
		sat	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		self	$4
		bnot
		not
		bnt	code_077e
		pToa	elements
		sat	temp[$0]
		ldi	$0
		aTop	elements
code_077e:	pushi	$120		; 288, setBit
		push1
		lsp	param[$1]
		class	VerbArray
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		lsp	param[$1]
		super	Set, $6
		bnot
		lat	temp[$0]
		bnt	code_079f
		push2
		push1
		push
		callk	kernel_90, $4
		bnot
code_079f:	ret

VerbList::release:
		pushi	$94		; 148, init
		push1
		push0
		class	VerbArray
		send	$6
		bnot
		pushi	$a6		; 166, release
		push0
		super	Set, $4
		bnot
		ret

catchUpOnMessages::doit:
		link	$a
		lag	global[$d5]
		sat	temp[$0]
		ldi	$0
		sag	global[$4f]
		push0
		callk	kernel_121, $0
		bnot
		sat	temp[$5]
		ldi	$1
		sat	temp[$9]
code_07c9:	lag	global[$32]
		not
		bnt	code_0861
		pushi	$5a		; 90, 'Z', size
		push0
		class	MovieCmdList
		send	$4
		bnot
		sat	temp[$2]
		bnt	code_0861
		lat	temp[$9]
		bnt	code_0861
		ldi	$0
		sat	temp[$1]
code_07e5:	lst	temp[$1]
		lat	temp[$2]
		lt?
		bnt	code_084f
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$1]
		class	MovieCmdList
		send	$6
		bnot
		sat	temp[$3]
		pushi	$33f		; 831, pClient
		push0
		send	$4
		bnot
		sat	temp[$4]
		ldi	$0
		sat	temp[$9]
		lat	temp[$4]
		bnt	code_084b
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_084b
		pushi	$97		; 151, isKindOf
		push1
		class	WorldObject
		push
		lat	temp[$4]
		send	$6
		bnot
		bnt	code_0827
		lst	temp[$4]
		lag	global[$1]
		ne?
code_0827:	bt	code_0843
		pushi	$97		; 151, isKindOf
		push1
		class	LongInt
		push
		lat	temp[$4]
		send	$6
		bnot
		bnt	code_084b
		pushi	$37d		; 893, servIDEquals
		push1
		lst	temp[$4]
		lag	global[$1]
		send	$6
		bnot
		not
code_0843:	bnt	code_084b
		ldi	$1
		sat	temp[$9]
		jmp	code_084f

code_084b:	+at	temp[$1]
		jmp	code_07e5

code_084f:	lat	temp[$9]
		not
		bnt	code_0856
		jmp	code_0861

code_0856:	pushi	$45		; 69, 'E', doit
		push0
		lag	global[$2]
		send	$4
		bnot
		jmp	code_07c9

code_0861:	ldi	$1
		sag	global[$4f]
		lat	temp[$0]
		sag	global[$d5]
code_0869:	ret

; export40005_1
code_086a:	lal	local[$0]
		not
		bnt	code_08b5
		pushi	$9f		; 159, add
		push2
		pushi	$fe		; 254, strIndex
		pushi	$4b		; 75, 'K', at
		class	Remaps
		send	$8
		bnot
		pushi	$9f		; 159, add
		push2
		pushi	$f0		; 240, drawSelected
		pushi	$32		; 50, '2', edit
		class	Remaps
		send	$8
		bnot
		pushi	$9f		; 159, add
		push2
		pushi	$f1		; 241, scale
		pushi	$41		; 65, 'A', moveSpeed
		class	Remaps
		send	$8
		bnot
		pushi	$9f		; 159, add
		push2
		pushi	$f2		; 242, pCast
		pushi	$50		; 80, 'P', claimed
		class	Remaps
		send	$8
		bnot
		pushi	$9f		; 159, add
		push2
		pushi	$f3		; 243, nextEvent
		pushi	$5f		; 95, '_', min
		class	Remaps
		send	$8
		bnot
code_08b5:	+al	local[$0]
code_08b7:	ret

; export40005_2
code_08b8:	-al	local[$0]
		not
		bnt	code_08f4
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$fe		; 254, strIndex
		class	Remaps
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$f0		; 240, drawSelected
		class	Remaps
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$f1		; 241, scale
		class	Remaps
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$f2		; 242, pCast
		class	Remaps
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$f3		; 243, nextEvent
		class	Remaps
		send	$6
		bnot
code_08f4:	ret

WorldObject::init:
		ldi	$0
		aTop	pAffectedLo
		aTop	pAffectedHi
		pTos	pBaseView
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0906
		pToa	view
		aTop	pBaseView
code_0906:	pTos	pBaseView
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0914
		pTos	pBaseView
		pToa	pAction
		add
		aTop	view
code_0914:	ldi	$5		; scaleY
		aTop	approachX
		aTop	approachY
		pToa	pMover
		not
		bnt	code_0923
		class	MoveTo
		aTop	pMover
code_0923:	pushi	$373		; 883, setAction
		push1
		pTos	pAction
		pushi	$3c8		; 968, matchScaler
		push1
		lsg	global[$3]
		self	$c
		bnot
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	Act, $4
		bnot
		pushi	$389		; 905, buildBaseList
		push0
		pushi	$19d		; 413, setSignal
		push1
		pushi	$1000		; 4096, -objID-
		pushi	$3ae		; 942, setColor
		push1
		pTos	pColor
		pushi	$3c2		; 962, generatePolygon
		push0
		pushi	$3c3		; 963, submitPolygon
		push0
		self	$18
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
		bt	code_0972
		pushi	$97		; 151, isKindOf
		push1
		class	WorldActor
		push
		self	$6
		bnot
		bt	code_0972
		pToa	pClutStart
code_0972:	aTop	pBitmapBased
		lag	global[$f3]
		not
		bnt	code_0996
		pToa	pName
		bnt	code_0996
		push1
		push
		calle	export60000_0, $2
		bnot
		not
		bnt	code_0996
		pushi	$d0		; 208, with
		push1
		pTos	pName
		class	Str
		send	$6
		bnot
		aTop	pName
code_0996:	ret

WorldObject::dispose:
		link	$7
		push2
		push2
		pushSelf
		callk	kernel_158, $4
		bnot
		pushi	$3		; z
		pushi	$12		; 18, nsLeft
		push1
		pushSelf
		callk	kernel_118, $6
		bnot
		push1
		pTos	pMovieCmd
		calle	export60000_0, $2
		bnot
		bnt	code_09fb
		pushi	$97		; 151, isKindOf
		push1
		class	MovieCmd
		push
		pToa	pMovieCmd
		send	$6
		bnot
		bnt	code_09fb
		pushi	$418		; 1048, pCmd
		push0
		pToa	pMovieCmd
		send	$4
		bnot
		push
		ldi	$2710		; 10000
		ne?
		bnt	code_09fb
		pushi	$418		; 1048, pCmd
		push0
		pToa	pMovieCmd
		send	$4
		bnot
		push
		ldi	$3e		; 62, '>', b_incr
		ne?
		bnt	code_09fb
		pushi	$5		; scaleY
		lofsa	string_02a2	; "%s(0x%x) is being disposed while a movie command is active on it.\n"
		push
		pTos	pName
		pushSelf
		pushi	$20		; 32, ' ', name
		push0
		pToa	pMovieCmd
		send	$4
		bnot
		push
		pTos	pMovieCmd
		callk	kernel_132, $a
		bnot
code_09fb:	pushi	$9d		; 157, eachElementDo
		pushi	$3		; z
		pushi	$9c		; 156, handleError
		class	DisposeNotifyList
		push
		pushSelf
		class	DisposeNotifyList
		send	$a
		bnot
		lag	global[$1]
		bnt	code_0a54
		pushi	$c3		; 195, script
		push0
		send	$4
		bnot
		bnt	code_0a54
		pushi	$97		; 151, isKindOf
		push1
		class	WANetScript
		push
		pushi	$c3		; 195, script
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0a54
		pushi	$31e		; 798, pDirectObject
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		selfID
		eq?
		bt	code_0a49
		pushi	$3e3		; 995, pIndirectObject
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		selfID
		eq?
code_0a49:	bnt	code_0a54
		pushi	$3a6		; 934, stopAction
		push0
		lag	global[$1]
		send	$4
		bnot
code_0a54:	push1
		pTos	pInvisibleClut
		calle	export60000_0, $2
		bnot
		bnt	code_0a85
		pushi	$97		; 151, isKindOf
		push1
		class	Clut
		push
		pToa	pInvisibleClut
		send	$6
		bnot
		bnt	code_0a85
		pushi	$95		; 149, dispose
		push0
		pToa	pInvisibleClut
		send	$4
		bnot
		ldi	$0
		aTop	pInvisibleClut
		push0
		call	code_08b7, $0
		bnot
code_0a85:	push1
		pTos	pFrozenClut
		calle	export60000_0, $2
		bnot
		bnt	code_0ab0
		pushi	$97		; 151, isKindOf
		push1
		class	Clut
		push
		pToa	pFrozenClut
		send	$6
		bnot
		bnt	code_0ab0
		pushi	$95		; 149, dispose
		push0
		pToa	pFrozenClut
		send	$4
		bnot
		ldi	$0
		aTop	pFrozenClut
code_0ab0:	push1
		pTos	clut
		calle	export60000_0, $2
		bnot
		bnt	code_0ad7
		pushi	$97		; 151, isKindOf
		push1
		class	Clut
		push
		pToa	clut
		send	$6
		bnot
		bnt	code_0ad7
		pushi	$95		; 149, dispose
		push0
		pToa	clut
		send	$4
		bnot
		ldi	$0
		aTop	clut
code_0ad7:	pushi	$3c6		; 966, deleteFromRoom
		push0
		self	$4
		bnot
		ldi	$0
		sat	temp[$3]
code_0ae2:	lst	temp[$3]
		pushi	$5a		; 90, 'Z', size
		push0
		class	gDialogList
		send	$4
		bnot
		lt?
		bnt	code_0b3f
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$3]
		class	gDialogList
		send	$6
		bnot
		sat	temp[$6]
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0b3b
		pushi	$97		; 151, isKindOf
		push1
		class	VerbDialog
		push
		lat	temp[$6]
		send	$6
		bnot
		bnt	code_0b3b
		pushi	$142		; 322, pObject
		push0
		lat	temp[$6]
		send	$4
		bnot
		push
		selfID
		eq?
		bnt	code_0b3b
		pushi	$58		; 88, 'X', delete
		push1
		lst	temp[$6]
		class	gDialogList
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$6]
		send	$4
		bnot
		jmp	code_0b3f

code_0b3b:	+at	temp[$3]
		jmp	code_0ae2

code_0b3f:	pushi	$32d		; 813, pObj
		push0
		class	WDragger
		send	$4
		bnot
		push
		selfID
		eq?
		bnt	code_0b56
		pushi	$359		; 857, stopDragging
		push0
		class	WDragger
		send	$4
		bnot
code_0b56:	pToa	pBaseList
		bnt	code_0b66
		pushi	$3		; z
		pushi	$13		; 19, nsTop
		push
		pushi	$36e		; 878, preDispose
		callk	kernel_90, $6
		bnot
code_0b66:	pushi	$3dc		; 988, deleteFromServer
		push0
		self	$4
		bnot
		pToa	pBaseList
		bnt	code_0bd8
		push1
		push0
		callk	kernel_90, $2
		bnot
		sat	temp[$1]
		ldi	$0
		sat	temp[$3]
code_0b7e:	lst	temp[$3]
		push2
		pushi	$17		; 23, lsTop
		pTos	pBaseList
		callk	kernel_90, $4
		bnot
		lt?
		bnt	code_0ba7
		pushi	$3		; z
		pushi	$b		; 11, inRight
		lst	temp[$1]
		pushi	$3		; z
		pushi	$11		; 17, bitmap
		pTos	pBaseList
		lst	temp[$3]
		callk	kernel_90, $6
		bnot
		push
		callk	kernel_90, $6
		bnot
		+at	temp[$3]
		jmp	code_0b7e

code_0ba7:	push2
		push1
		pTos	pBaseList
		callk	kernel_90, $4
		bnot
		push1
		push0
		callk	kernel_90, $2
		bnot
		aTop	pBaseList
		pushi	$3		; z
		pushi	$13		; 19, nsTop
		lst	temp[$1]
		pushi	$95		; 149, dispose
		callk	kernel_90, $6
		bnot
		push2
		push1
		lst	temp[$1]
		callk	kernel_90, $4
		bnot
		push2
		push1
		pTos	pBaseList
		callk	kernel_90, $4
		bnot
		ldi	$0
		aTop	pBaseList
code_0bd8:	pToa	pUpdatorList
		bnt	code_0beb
		pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		send	$8
		bnot
		ldi	$0
		aTop	pUpdatorList
code_0beb:	pToa	pOutgoingMovie
		bnt	code_0bfa
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pOutgoingMovie
code_0bfa:	pushi	$3b0		; 944, disposeBitmap
		push0
		self	$4
		bnot
		pushi	$3c4		; 964, removePolygon
		push0
		self	$4
		bnot
		pToa	pPolygon
		bnt	code_0c24
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0c24
		pushi	$16f		; 367, pDispose
		push1
		push1
		pushi	$95		; 149, dispose
		push0
		pToa	pPolygon
		send	$a
		bnot
		ldi	$0
		aTop	pPolygon
code_0c24:	pToa	pValue
		bnt	code_0c33
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pValue
code_0c33:	pToa	pManaValue
		bnt	code_0c42
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pManaValue
code_0c42:	pushi	$3df		; 991, setServID
		push2
		pushi	$ff		; 255, asInteger
		dup
		self	$8
		bnot
		pToa	pCombatGroup
		bnt	code_0c5d
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pCombatGroup
code_0c5d:	pushi	$38c		; 908, setMessage
		push1
		push0
		self	$6
		bnot
		pushi	$3db		; 987, setName
		push1
		push0
		self	$6
		bnot
		pToa	pAffectedHi
		bnt	code_0c7c
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pAffectedHi
code_0c7c:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	Act, $4
		bnot
		ret

WorldObject::handleEvent:
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$4000		; 16384
		and
		bnt	code_0ca3
		pushi	$c8		; 200, handleEvent
		push2
		lsp	param[$1]
		pushSelf
		lag	global[$1]
		send	$8
		bnot
		ret

code_0ca3:	ldi	$0
		ret

WorldObject::onMe:
		pTos	pServIDLo
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0cb7
		pTos	pServIDHi
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0cb7
		ldi	$0
		ret

code_0cb7:	pushi	$eb		; 235, onMe
		push0
		&rest	$1
		super	Act, $4
		bnot
		ret

WorldObject::doit:
		link	$1
		pToa	pDispose
		bnt	code_0cea
		pToa	pMovieCmd
		sat	temp[$0]
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		push1
		lst	temp[$0]
		calle	export60000_0, $2
		bnot
		bnt	code_0cf8
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		jmp	code_0cf8

code_0cea:	pToa	pPaused
		not
		bnt	code_0cf8
		pushi	$45		; 69, 'E', doit
		push0
		&rest	$1
		super	Act, $4
		bnot
code_0cf8:	ret

WorldObject::update:
		pToa	pMsgStr
		bnt	code_0d05
		pushi	$32e		; 814, follow
		push1
		pushSelf
		send	$6
		bnot
code_0d05:	lag	global[$64]
		not
		bnt	code_0d12
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
code_0d12:	pushi	$1ad		; 429, update
		push0
		super	Act, $4
		bnot
		ret

WorldObject::getBitmap:
		link	$1
		pToa	pBitmapBased
		bnt	code_0d2e
		pushi	$3aa		; 938, createDisplay
		push1
		pushi	$1d		; 29, brTop
		self	$6
		bnot
		sat	temp[$0]
		jmp	code_0d42

code_0d2e:	pushi	$7		; priority
		pushi	$9		; inLeft
		pTos	view
		pTos	loop
		pTos	cel
		pushi	$ff		; 255, asInteger
		dup
		push1
		callk	kernel_35, $e
		bnot
		sat	temp[$0]
code_0d42:	pushi	$9f		; 159, add
		push1
		lst	temp[$0]
		lag	global[$66]
		send	$6
		bnot
		lat	temp[$0]
		ret

WorldObject::buildVerbList:
		link	$1
		pushi	$a6		; 166, release
		push0
		class	VerbList
		send	$4
		bnot
		pTos	pServIDLo
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0d86
		pTos	pServIDHi
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0d86
		pushi	$97		; 151, isKindOf
		push1
		class	Money
		push
		self	$6
		bnot
		not
		bnt	code_0d86
		pushi	$97		; 151, isKindOf
		push1
		class	Mana
		push
		self	$6
		bnot
		not
		bnt	code_0d86
		ldi	$0
		ret

code_0d86:	pToa	pBaseList
		bnt	code_0e10
		pushi	$3		; z
		pushi	$13		; 19, nsTop
		push
		pushi	$366		; 870, buildVerbList
		&rest	$1
		callk	kernel_90, $6
		bnot
		pushi	$35b		; 859, getOwner
		push0
		self	$4
		bnot
		push
		selfID
		ne?
		bnt	code_0e10
		pushi	$54f		; 1359, pFlags
		push0
		pushi	$c5		; 197, pRoom
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$4
		bnot
		push
		ldi	$400		; 1024, pEndurance
		and
		bnt	code_0de5
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$11		; 17, bitmap
		class	VerbList
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$12		; 18, nsLeft
		class	VerbList
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$7		; priority
		class	VerbList
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$1d		; 29, brTop
		class	VerbList
		send	$6
		bnot
code_0de5:	pushi	$54f		; 1359, pFlags
		push0
		pushi	$c5		; 197, pRoom
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$4
		bnot
		push
		ldi	$200		; 512, bottomValue
		and
		bnt	code_0e10
		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
code_0e10:	pushi	$97		; 151, isKindOf
		push1
		class	WorldEgo
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_0e8a
		pushi	$9f		; 159, add
		push1
		pushi	$3		; z
		class	VerbList
		send	$6
		bnot
		pushSelf
		lag	global[$1]
		ne?
		bnt	code_0e54
		pushSelf
		pushi	$3a7		; 935, getBaseOwner
		push0
		self	$4
		bnot
		eq?
		bnt	code_0e54
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$3		; z
		ne?
		bnt	code_0e54
		pushi	$9f		; 159, add
		push1
		push2
		class	VerbList
		send	$6
		bnot
code_0e54:	pushi	$35c		; 860, getBase
		push1
		class	BDye
		push
		self	$6
		bnot
		sat	temp[$0]
		bnt	code_0e8a
		pushi	$631		; 1585, pHairDye
		push0
		send	$4
		bnot
		bnt	code_0e8a
		pushi	$3a9		; 937, isOwnedBy
		push1
		lsg	global[$1]
		self	$6
		bnot
		bnt	code_0e8a
		lsg	global[$1]
		lap	param[$1]
		eq?
		bnt	code_0e8a
		pushi	$9f		; 159, add
		push1
		pushi	$2b8e		; 11150
		class	VerbList
		send	$6
		bnot
code_0e8a:	ret

WorldObject::handleVerb:
		ldi	$0
		ret

WorldObject::getVerb:
		pushi	$366		; 870, buildVerbList
		push1
		lsp	param[$1]
		self	$6
		bnot
		pushi	$5a		; 90, 'Z', size
		push0
		class	VerbList
		send	$4
		bnot
		not
		bnt	code_0ea3
		ret

code_0ea3:	pushi	$8d		; 141, new
		push2
		class	VerbList
		push
		pushSelf
		class	VerbDialog
		send	$8
		bnot
		ret

WorldObject::cue:
		pToa	pMsgStr
		bnt	code_0eb9
		ldi	$0
		aTop	pMsgStr
code_0eb9:	ret

WorldObject::setMessage:
		link	$1
		lag	global[$1]
		not
		bt	code_0ed9
		pushi	$17c		; 380, isNotHidden
		push0
		self	$4
		bnot
		not
		bt	code_0ed9
		push0
		push0
		self	$4
		bnot
		push
		push0
		push0
		lag	global[$1]
		send	$4
		bnot
		ne?
code_0ed9:	bnt	code_0ef1
		push1
		lsp	param[$1]
		calle	export60000_0, $2
		bnot
		bnt	code_0ef0
		pushi	$95		; 149, dispose
		push0
		lap	param[$1]
		send	$4
		bnot
code_0ef0:	ret

code_0ef1:	pToa	pMsgStr
		bnt	code_0f18
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0f18
		pushi	$97		; 151, isKindOf
		push1
		class	ShadowText
		push
		pToa	pMsgStr
		send	$6
		bnot
		bnt	code_0f18
		pushi	$95		; 149, dispose
		push0
		pToa	pMsgStr
		send	$4
		bnot
code_0f18:	ldi	$0
		aTop	pMsgStr
		lap	param[$1]
		bnt	code_0f9d
		push2
		push1
		push2
		pushi	$9		; inLeft
		push
		callk	kernel_91, $4
		bnot
		push
		callk	kernel_92, $4
		bnot
		push
		ldi	$2
		div
		sat	temp[$0]
		push
		ldi	$3		; z
		lt?
		bnt	code_0f40
		ldi	$3		; z
		sat	temp[$0]
code_0f40:	lst	temp[$0]
		ldi	$8		; fixPriority
		gt?
		bnt	code_0f4b
		ldi	$8		; fixPriority
		sat	temp[$0]
code_0f4b:	pushi	$8d		; 141, new
		push0
		class	ShadowText
		send	$4
		bnot
		aTop	pMsgStr
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0f67
		pushi	$25		; 37, '%', fore
		push1
		lsp	param[$2]
		pToa	pMsgStr
		send	$6
		bnot
code_0f67:	pushi	$94		; 148, init
		pushi	$4		; scaleX
		lsp	param[$1]
		push0
		push0
		lst	temp[$0]
		pushi	$df		; 223, centerOn
		push1
		pushi	$3a7		; 935, getBaseOwner
		push0
		self	$4
		bnot
		push
		pToa	pMsgStr
		send	$12
		bnot
		push1
		lsp	param[$1]
		calle	export60000_0, $2
		bnot
		bnt	code_0f9d
		pushi	$95		; 149, dispose
		push0
		lap	param[$1]
		send	$4
		bnot
		ldi	$0
		sap	param[$1]
code_0f9d:	ret

WorldObject::perform:
		link	$6
		ldi	$1
		sat	temp[$1]
		pToa	pBaseList
		bnt	code_1030
		pushi	$4		; scaleX
		pushi	$14		; 20, nsRight
		push
		pushi	$367		; 871, handlesAction
		lsp	param[$1]
		callk	kernel_90, $8
		bnot
		sat	temp[$0]
		push2
		pushi	$17		; 23, lsTop
		pTos	pBaseList
		callk	kernel_90, $4
		bnot
		sat	temp[$4]
		ldi	$0
		sat	temp[$5]
code_0fc8:	lst	temp[$5]
		lat	temp[$4]
		lt?
		bnt	code_1019
		pushi	$3		; z
		pushi	$11		; 17, bitmap
		pTos	pBaseList
		lst	temp[$5]
		callk	kernel_90, $6
		bnot
		sat	temp[$3]
		push
		lat	temp[$0]
		ne?
		bnt	code_1015
		pushi	$99		; 153, respondsTo
		push1
		lsp	param[$1]
		lat	temp[$3]
		send	$6
		bnot
		bnt	code_1015
		pushi	$367		; 871, handlesAction
		push1
		lsp	param[$1]
		lat	temp[$3]
		send	$6
		bnot
		not
		bnt	code_1015
		lsp	param[$1]
		push0
		&rest	$2
		lat	temp[$3]
		send	$4
		bnot
		sat	temp[$1]
		push
		ldi	$1
		ne?
		bnt	code_1015
		jmp	code_1019

code_1015:	+at	temp[$5]
		jmp	code_0fc8

code_1019:	lst	temp[$1]
		dup
		ldi	$1
		eq?
		bnt	code_102f
		lat	temp[$0]
		bnt	code_102f
		lsp	param[$1]
		push0
		&rest	$2
		send	$4
		bnot
		sat	temp[$1]
code_102f:	toss
code_1030:	lat	temp[$1]
		ret

WorldObject::getBase:
		pToa	pBaseList
		bnt	code_1046
		pushi	$4		; scaleX
		pushi	$14		; 20, nsRight
		push
		pushi	$97		; 151, isKindOf
		lsp	param[$1]
		callk	kernel_90, $8
		bnot
		ret

code_1046:	ldi	$0
		ret

WorldObject::getBaseCharacter:
		pToa	pBaseList
		bnt	code_105d
		pushi	$4		; scaleX
		pushi	$14		; 20, nsRight
		push
		pushi	$97		; 151, isKindOf
		class	BCharacter
		push
		callk	kernel_90, $8
		bnot
		ret

code_105d:	ldi	$0
		ret

WorldObject::hasBase:
		link	$1
		pushi	$2bb		; 699, pType
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
		push
		ldi	$10		; 16, cel
		ge?
		bnt	code_1083
		lst	temp[$0]
		ldi	$10		; 16, cel
		sub
		sat	temp[$0]
		pTos	pBaseBitsHi
		push1
		shl
		and
		ret

		jmp	code_108c

code_1083:	pTos	pBaseBitsLo
		push1
		lat	temp[$0]
		shl
		and
		ret

code_108c:	ret

WorldObject::addBase:
		link	$2
		pushi	$365		; 869, pSelf
		push1
		pushSelf
		pushi	$315		; 789, pName
		push1
		pushi	$315		; 789, pName
		push0
		self	$4
		bnot
		push
		pushi	$94		; 148, init
		push0
		&rest	$2
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$14
		bnot
		sat	temp[$0]
		pToa	pBaseList
		not
		bnt	code_10c5
		push1
		push0
		callk	kernel_90, $2
		bnot
		aTop	pBaseList
code_10c5:	pushi	$3		; z
		pushi	$b		; 11, inRight
		pTos	pBaseList
		lst	temp[$0]
		callk	kernel_90, $6
		bnot
		lat	temp[$0]
		ret

WorldObject::deleteBase:
		link	$1
		pushi	$35c		; 860, getBase
		push1
		lsp	param[$1]
		self	$6
		bnot
		sat	temp[$0]
		bnt	code_10f8
		pushi	$3		; z
		pushi	$10		; 16, cel
		pTos	pBaseList
		push
		callk	kernel_90, $6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_10f8:	lat	temp[$0]
		ret

WorldObject::buildBaseList:
		ret

WorldObject::open:
		pushi	$63		; 99, 'c', perform
		push1
		pushi	$248		; 584, open
		self	$6
		bnot
		ret

WorldObject::close:
		pushi	$63		; 99, 'c', perform
		push1
		pushi	$253		; 595, close
		self	$6
		bnot
		ret

WorldObject::lock:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$34a		; 842, lock
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::unlock:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$38d		; 909, unlock
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::take:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$38e		; 910, take
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::give:
		pushi	$63		; 99, 'c', perform
		pushi	$3		; z
		pushi	$38f		; 911, give
		lsp	param[$1]
		lsp	param[$2]
		self	$a
		bnot
		ret

WorldObject::drop:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$390		; 912, drop
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::see:
		link	$4
		pushi	$63		; 99, 'c', perform
		push1
		pushi	$2fd		; 765, see
		self	$6
		bnot
		sat	temp[$0]
		ret

WorldObject::look:
		link	$1
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$391		; 913, look
		lsp	param[$1]
		self	$8
		bnot
		sat	temp[$0]
		push
		ldi	$1
		eq?
		bnt	code_1180
		pushi	$2fd		; 765, see
		push0
		lap	param[$1]
		send	$4
		bnot
		ldi	$0
		sat	temp[$0]
code_1180:	lat	temp[$0]
		ret

WorldObject::putOn:
		link	$1
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$392		; 914, putOn
		lsp	param[$1]
		self	$8
		bnot
		sat	temp[$0]
		push
		ldi	$1
		eq?
		bnt	code_11ba
		pushi	$3a8		; 936, owns
		push1
		lsp	param[$1]
		self	$6
		bnot
		not
		bnt	code_11ae
		pushi	$38e		; 910, take
		push1
		lsp	param[$1]
		self	$6
		bnot
code_11ae:	pushi	$393		; 915, bePutOn
		push1
		pushSelf
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$0]
code_11ba:	lat	temp[$0]
		ret

WorldObject::bePutOn:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$393		; 915, bePutOn
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::takeOff:
		link	$1
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$394		; 916, takeOff
		lsp	param[$1]
		self	$8
		bnot
		sat	temp[$0]
		push
		ldi	$1
		eq?
		bnt	code_1205
		push1
		lsp	param[$1]
		calle	export60000_0, $2
		bnot
		bnt	code_1205
		pushi	$97		; 151, isKindOf
		push1
		class	WorldObject
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_1205
		pushi	$395		; 917, beTakenOff
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
code_1205:	lat	temp[$0]
		ret

WorldObject::beTakenOff:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$395		; 917, beTakenOff
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::eat:
		link	$1
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$396		; 918, eat
		lsp	param[$1]
		self	$8
		bnot
		sat	temp[$0]
		push
		ldi	$1
		eq?
		bnt	code_1235
		pushi	$397		; 919, beEaten
		push1
		pushSelf
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$0]
code_1235:	lat	temp[$0]
		ret

WorldObject::beEaten:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$397		; 919, beEaten
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::drink:
		link	$1
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$398		; 920, drink
		lsp	param[$1]
		self	$8
		bnot
		sat	temp[$0]
		push
		ldi	$1
		eq?
		bnt	code_1265
		pushi	$399		; 921, beDrunk
		push1
		pushSelf
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$0]
code_1265:	lat	temp[$0]
		ret

WorldObject::beDrunk:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$399		; 921, beDrunk
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::trigger:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$39a		; 922, trigger
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::goto:
		lap	param[$1]
		aTop	x
		lap	param[$2]
		aTop	y
		ldi	$0
		ret

WorldObject::approach:
		link	$a
		ldi	$2
		sat	temp[$0]
		push1
		lsp	param[$1]
		calle	export60000_0, $2
		bnot
		not
		bt	code_12ab
		pushi	$97		; 151, isKindOf
		push1
		class	WorldObject
		push
		lap	param[$1]
		send	$6
		bnot
		not
code_12ab:	bnt	code_12b0
		lat	temp[$0]
		ret

code_12b0:	pushi	$3a7		; 935, getBaseOwner
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$1]
		bnt	code_12bf
		sap	param[$1]
code_12bf:	pushi	$4		; scaleX
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pTos	x
		pTos	y
		callk	kernel_63, $8
		bnot
		sat	temp[$4]
		pushi	$4		; scaleX
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pTos	x
		pTos	y
		callk	kernel_64, $8
		bnot
		sat	temp[$5]
		pushi	$4		; scaleX
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$4e		; 78, 'N', width
		mul
		push
		ldi	$64		; 100, 'd', moveDone
		div
		sat	temp[$7]
		push
		pToa	approachDist
		mul
		push
		ldi	$64		; 100, 'd', moveDone
		div
		sat	temp[$6]
		push
		ldi	$64		; 100, 'd', moveDone
		mul
		push
		ldi	$85		; 133, roll
		div
		sat	temp[$8]
		push1
		push2
		lst	temp[$4]
		pushi	$64		; 100, 'd', moveDone
		callk	kernel_67, $4
		bnot
		push
		callk	kernel_61, $2
		bnot
		sat	temp[$7]
		lst	temp[$6]
		push
		lst	temp[$6]
		lat	temp[$8]
		sub
		mul
		push
		ldi	$64		; 100, 'd', moveDone
		div
		sub
		sat	temp[$6]
		lsp	param[$2]
		dup
		ldi	$3		; z
		eq?
		bnt	code_1351
		lst	temp[$6]
		ldi	$a		; 10, inTop
		mul
		sat	temp[$6]
		jmp	code_13d5

code_1351:	dup
		ldi	$3f		; 63, '?', xStep
		eq?
		bnt	code_1362
		lst	temp[$6]
		ldi	$4		; scaleX
		mul
		sat	temp[$6]
		jmp	code_13d5

code_1362:	dup
		ldi	$49		; 73, 'I', replay
		eq?
		bnt	code_1373
		lst	temp[$6]
		ldi	$4		; scaleX
		mul
		sat	temp[$6]
		jmp	code_13d5

code_1373:	dup
		ldi	$7c		; 124, '|', titleBack
		eq?
		bnt	code_1384
		lst	temp[$6]
		ldi	$4		; scaleX
		mul
		sat	temp[$6]
		jmp	code_13d5

code_1384:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_1395
		lst	temp[$6]
		ldi	$4		; scaleX
		mul
		sat	temp[$6]
		jmp	code_13d5

code_1395:	dup
		ldi	$c		; 12, inBottom
		eq?
		bnt	code_13a6
		lst	temp[$6]
		ldi	$2
		mul
		sat	temp[$6]
		jmp	code_13d5

code_13a6:	dup
		ldi	$d		; 13, seenRect
		eq?
		bnt	code_13b7
		lst	temp[$6]
		ldi	$2
		mul
		sat	temp[$6]
		jmp	code_13d5

code_13b7:	dup
		ldi	$7		; priority
		eq?
		bnt	code_13c8
		lst	temp[$6]
		ldi	$4		; scaleX
		mul
		sat	temp[$6]
		jmp	code_13d5

code_13c8:	dup
		ldi	$1d		; 29, brTop
		eq?
		bnt	code_13d5
		lst	temp[$6]
		ldi	$2
		mul
		sat	temp[$6]
code_13d5:	toss
		lsp	param[$2]
		dup
		ldi	$6d		; 109, 'm', picture
		eq?
		bnt	code_13f8
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$2]
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$7		; priority
		add
		sat	temp[$3]
		jmp	code_1428

code_13f8:	push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		lst	temp[$4]
		lst	temp[$6]
		ldi	$2
		sub
		push
		callk	kernel_66, $4
		bnot
		add
		sat	temp[$2]
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		lst	temp[$4]
		lst	temp[$6]
		ldi	$2
		sub
		push
		callk	kernel_67, $4
		bnot
		sub
		sat	temp[$3]
code_1428:	toss
		lsp	param[$1]
		selfID
		ne?
		bnt	code_148d
		lst	temp[$5]
		lat	temp[$6]
		gt?
		bnt	code_148d
		pushi	$3ec		; 1004, pAction
		push0
		self	$4
		bnot
		push
		ldi	$3		; z
		ne?
		bnt	code_148d
		pushi	$41b		; 1051, pApproachX
		push1
		lst	temp[$2]
		pushi	$41c		; 1052, pApproachY
		push1
		lst	temp[$3]
		pushi	$41d		; 1053, pDistance
		push1
		lst	temp[$6]
		pushi	$142		; 322, pObject
		push1
		lsp	param[$1]
		pushi	$33f		; 831, pClient
		push1
		pushSelf
		pushi	$c4		; 196, caller
		push1
		lsp	param[$0]
		ldi	$2
		gt?
		bnt	code_1472
		lap	param[$3]
		jmp	code_1474

code_1472:	ldi	$0
code_1474:	push
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		lofsa	ApproachScript
		send	$4
		bnot
		send	$28
		bnot
		ldi	$0
		sat	temp[$0]
		jmp	code_14c8

code_148d:	lsp	param[$0]
		ldi	$2
		gt?
		bnt	code_14c8
		lap	param[$3]
		bnt	code_14c8
		lsp	param[$1]
		selfID
		ne?
		bnt	code_14bf
		lst	temp[$5]
		lat	temp[$6]
		gt?
		bnt	code_14bf
		pushi	$9c		; 156, handleError
		pushi	$3		; z
		lsp	param[$1]
		pushi	$c350		; -15536
		pushi	$c351		; -15535
		lap	param[$3]
		send	$a
		bnot
		jmp	code_14c8

code_14bf:	pushi	$c7		; 199, cue
		push0
		lap	param[$3]
		send	$4
		bnot
code_14c8:	lat	temp[$0]
		ret

WorldObject::face:
		link	$4
		ldi	$0
		sat	temp[$1]
		lap	param[$1]
		bnt	code_14e5
		pushi	$3a7		; 935, getBaseOwner
		push0
		send	$4
		bnot
		sat	temp[$1]
		bnt	code_14e5
		lat	temp[$1]
		sap	param[$1]
code_14e5:	lap	param[$1]
		not
		bt	code_14fd
		lsp	param[$1]
		selfID
		eq?
		bt	code_14fd
		pushi	$3ec		; 1004, pAction
		push0
		self	$4
		bnot
		push
		ldi	$3		; z
		eq?
code_14fd:	bnt	code_1519
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_153f
		lap	param[$2]
		bnt	code_153f
		pushi	$c7		; 199, cue
		push0
		lap	param[$2]
		send	$4
		bnot
		jmp	code_153f

code_1519:	pushi	$4		; scaleX
		pTos	x
		pTos	y
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		callk	kernel_63, $8
		bnot
		sat	temp[$2]
		pushi	$15a		; 346, setHeading
		push1
		push
		&rest	$2
		self	$6
		bnot
code_153f:	ldi	$0
		sat	temp[$0]
		ret

WorldObject::saveMover:
		pToa	pMover
		aTop	pLastMover
		ret

WorldObject::restoreMover:
		pToa	pLastMover
		aTop	pMover
		ret

WorldObject::showContents:
		link	$1
		pushi	$63		; 99, 'c', perform
		push1
		pushi	$3a4		; 932, showContents
		&rest	$1
		self	$6
		bnot
		sat	temp[$0]
		ret

WorldObject::hideContents:
		pushi	$63		; 99, 'c', perform
		push1
		pushi	$3a5		; 933, hideContents
		self	$6
		bnot
		ret

WorldObject::modifyProp:
		pushi	$63		; 99, 'c', perform
		pushi	$3		; z
		pushi	$368		; 872, modifyProp
		lsp	param[$1]
		lsp	param[$2]
		self	$a
		bnot
		ret

WorldObject::getProp:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$369		; 873, getProp
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::buy:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$3a0		; 928, buy
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::sell:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$3a1		; 929, sell
		lsp	param[$1]
		self	$8
		bnot
		ret

WorldObject::examine:
		link	$1
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$39e		; 926, examine
		lsp	param[$1]
		&rest	$2
		self	$8
		bnot
		sat	temp[$0]
		push
		ldi	$1
		eq?
		bnt	code_15c2
		pushi	$39f		; 927, beExamined
		push1
		pushSelf
		lap	param[$1]
		send	$6
		bnot
		ldi	$0
		sat	temp[$0]
code_15c2:	lat	temp[$0]
		ret

WorldObject::beExamined:
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$39f		; 927, beExamined
		lsp	param[$1]
		&rest	$2
		self	$8
		bnot
		ret

WorldObject::stopAction:
		pToa	pMovieCmd
		bnt	code_1674
		pToa	mover
		bt	code_15f7
		push1
		pTos	script
		calle	export60000_0, $2
		bnot
		bnt	code_1674
		pushi	$97		; 151, isKindOf
		push1
		class	WANetScript
		push
		pToa	script
		send	$6
		bnot
		not
code_15f7:	bnt	code_1674
		pushi	$7		; priority
		lofsa	string_02f9	; "Object(%s, %s[$%x], %s[%d], %s) stopped at bad place. The programmers have been made aware of this and it will be fixed very soon."
		push
		pTos	name
		push1
		pTos	pMovieCmd
		calle	export60000_0, $2
		bnot
		bnt	code_1619
		pushi	$20		; 32, ' ', name
		push0
		pToa	pMovieCmd
		send	$4
		bnot
		jmp	code_161c

code_1619:	lofsa	string_037c	; "<bad movie>"
code_161c:	push
		pTos	pMovieCmd
		push1
		pTos	script
		calle	export60000_0, $2
		bnot
		bnt	code_1636
		pushi	$20		; 32, ' ', name
		push0
		pToa	script
		send	$4
		bnot
		jmp	code_1639

code_1636:	lofsa	string_0388	; "<no script>"
code_1639:	push
		push1
		pTos	script
		calle	export60000_0, $2
		bnot
		bnt	code_1651
		pushi	$29		; 41, ')', state
		push0
		pToa	script
		send	$4
		bnot
		jmp	code_1653

code_1651:	ldi	$ff		; 255, asInteger
code_1653:	push
		push1
		pTos	mover
		calle	export60000_0, $2
		bnot
		bnt	code_166c
		pushi	$20		; 32, ' ', name
		push0
		pToa	mover
		send	$4
		bnot
		jmp	code_166f

code_166c:	lofsa	string_0394	; "<no mover>"
code_166f:	push
		callk	kernel_132, $e
		bnot
code_1674:	pushi	$15c		; 348, setMotion
		push1
		push0
		pushi	$c9		; 201, setScript
		push1
		push0
		self	$c
		bnot
		pToa	pApproachScript
		bnt	code_168e
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
code_168e:	ldi	$1
		ret

WorldObject::getOwner:
		link	$2
		selfID
		sat	temp[$1]
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
		sat	temp[$0]
		bnt	code_16ae
		pushi	$343		; 835, pOwner
		push0
		send	$4
		bnot
		sat	temp[$1]
code_16ae:	lst	temp[$1]
		ldi	$0
		eq?
		bnt	code_16b9
		selfID
		sat	temp[$1]
code_16b9:	lat	temp[$1]
		ret

WorldObject::getBaseOwner:
		link	$2
		selfID
		sat	temp[$0]
		selfID
		sat	temp[$1]
code_16c4:	lst	temp[$1]
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_16e3
		lst	temp[$0]
		pushi	$35b		; 859, getOwner
		push0
		lat	temp[$1]
		send	$4
		bnot
		sat	temp[$1]
		ne?
		bnt	code_16e3
		lat	temp[$1]
		sat	temp[$0]
		jmp	code_16c4

code_16e3:	lat	temp[$0]
		ret

WorldObject::owns:
		push1
		lsp	param[$1]
		calle	export60000_0, $2
		bnot
		bnt	code_170f
		pushi	$97		; 151, isKindOf
		push1
		class	WorldObject
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_170f
		pushi	$3a9		; 937, isOwnedBy
		push1
		pushSelf
		&rest	$2
		lap	param[$1]
		send	$6
		bnot
		ret

code_170f:	ldi	$0
		ret

WorldObject::isOwnedBy:
		link	$3
		push1
		lsp	param[$1]
		calle	export60000_0, $2
		bnot
		bnt	code_172d
		pushi	$97		; 151, isKindOf
		push1
		class	WorldObject
		push
		lap	param[$1]
		send	$6
		bnot
code_172d:	not
		bnt	code_1734
		ldi	$0
		ret

code_1734:	selfID
		sat	temp[$0]
		selfID
		sat	temp[$1]
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_1749
		lap	param[$2]
		sat	temp[$2]
		jmp	code_174e

code_1749:	ldi	$2710		; 10000
		sat	temp[$2]
code_174e:	lat	temp[$2]
		bnt	code_1777
		lst	temp[$1]
		pushi	$35b		; 859, getOwner
		push0
		lat	temp[$0]
		send	$4
		bnot
		sat	temp[$0]
		ne?
		bnt	code_1777
		lst	temp[$0]
		lap	param[$1]
		eq?
		bnt	code_176f
		ldi	$1
		ret

code_176f:	lat	temp[$0]
		sat	temp[$1]
		-at	temp[$2]
		jmp	code_174e

code_1777:	ldi	$0
		ret

WorldObject::updateDisplay:
		link	$1
		pTos	pBaseView
		ldi	$ff		; 255, asInteger
		eq?
		bt	code_179d
		pTos	view
		ldi	$ff		; 255, asInteger
		eq?
		bt	code_179d
		pToa	pBitmapBased
		not
		bt	code_179d
		push2
		pushi	$80		; 128, lastKey
		pTos	view
		callk	kernel_5, $4
		bnot
		not
code_179d:	bnt	code_17a0
		ret

code_17a0:	pToa	bitmap
		sat	temp[$0]
		pushi	$7		; priority
		pushi	$9		; inLeft
		pTos	view
		pTos	loop
		pTos	cel
		pushi	$ff		; 255, asInteger
		dup
		push1
		callk	kernel_35, $e
		bnot
		aTop	bitmap
		pushi	$4		; scaleX
		pushi	$8		; fixPriority
		pTos	bitmap
		pushi	$4		; scaleX
		push0
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_34, $8
		bnot
		push
		pushi	$4		; scaleX
		push1
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_34, $8
		bnot
		push
		callk	kernel_35, $8
		bnot
		pToa	clut
		bnt	code_17ee
		pushi	$3		; z
		pushi	$a		; 10, inTop
		pTos	bitmap
		push
		callk	kernel_35, $6
		bnot
code_17ee:	lat	temp[$0]
		bnt	code_17fd
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$66]
		send	$6
		bnot
code_17fd:	push1
		pushSelf
		callk	kernel_32, $2
		bnot
		ret

WorldObject::createDisplay:
		link	$6
		pToa	-info-
		sat	temp[$3]
		pToa	pUpdateClient
		bnt	code_1818
		pushi	$1007		; 4103, -info-
		push0
		send	$4
		bnot
		sat	temp[$4]
code_1818:	pToa	pAction
		sat	temp[$0]
		pushi	$373		; 883, setAction
		push1
		lsp	param[$1]
		self	$6
		bnot
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_1831
		lap	param[$2]
		aTop	cel
code_1831:	pToa	bitmap
		sat	temp[$1]
		ldi	$0
		aTop	bitmap
		pushi	$36a		; 874, updateDisplay
		push1
		pushi	$ff		; 255, asInteger
		self	$6
		bnot
		lsp	param[$1]
		ldi	$21		; 33, '!', key
		eq?
		bnt	code_1871
		pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		self	$6
		bnot
		sat	temp[$5]
		bnt	code_1871
		pushi	$41e		; 1054, pIsWorn
		push0
		send	$4
		bnot
		bnt	code_1871
		pushi	$3b3		; 947, addCel
		pushi	$3		; z
		pushi	$233c		; 9020
		push0
		push0
		self	$a
		bnot
code_1871:	pToa	pUpdateClient
		bnt	code_187d
		pushi	$3b1		; 945, remapBitmap
		push0
		self	$4
		bnot
code_187d:	pToa	bitmap
		sat	temp[$2]
		not
		bnt	code_1898
		push0
		callk	kernel_129, $0
		bnot
		push2
		lofsa	string_039f	; "createDisplay generated a NULL bitmap (view == %d)"
		push
		pTos	view
		calle	export60029_1, $4
		bnot
code_1898:	pushi	$373		; 883, setAction
		push1
		lst	temp[$0]
		self	$6
		bnot
		lat	temp[$1]
		aTop	bitmap
		push1
		pushSelf
		callk	kernel_32, $2
		bnot
		lat	temp[$3]
		aTop	-info-
		pToa	pUpdateClient
		bnt	code_18bd
		pushi	$1007		; 4103, -info-
		push1
		lst	temp[$4]
		send	$6
		bnot
code_18bd:	lat	temp[$2]
		ret

WorldObject::createBitmap:
		link	$1
		pToa	bitmap
		sat	temp[$0]
		pToa	plane
		bnt	code_1939
		pTos	pBaseView
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_1939
		push2
		pushi	$80		; 128, lastKey
		pTos	view
		callk	kernel_5, $4
		bnot
		bnt	code_1939
		pushi	$7		; priority
		pushi	$9		; inLeft
		pTos	view
		pTos	loop
		pTos	cel
		pushi	$ff		; 255, asInteger
		dup
		push1
		callk	kernel_35, $e
		bnot
		aTop	bitmap
		pushi	$4		; scaleX
		pushi	$8		; fixPriority
		pTos	bitmap
		pushi	$4		; scaleX
		push0
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_34, $8
		bnot
		push
		pushi	$4		; scaleX
		push1
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_34, $8
		bnot
		push
		callk	kernel_35, $8
		bnot
		pushi	$17c		; 380, isNotHidden
		push0
		self	$4
		bnot
		bnt	code_192a
		push1
		pushSelf
		callk	kernel_32, $2
		bnot
code_192a:	lat	temp[$0]
		bnt	code_1939
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$66]
		send	$6
		bnot
code_1939:	ret

WorldObject::disposeBitmap:
		pToa	bitmap
		bnt	code_194d
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$66]
		send	$6
		bnot
		ldi	$0
		aTop	bitmap
code_194d:	ret

WorldObject::addBitmap:
		pToa	bitmap
		bnt	code_1967
		lap	param[$1]
		bnt	code_1967
		pushi	$5		; scaleY
		pushi	$6		; maxScale
		pTos	bitmap
		lsp	param[$1]
		pushi	$ff		; 255, asInteger
		dup
		callk	kernel_35, $a
		bnot
code_1967:	ret

WorldObject::addCel:
		pToa	bitmap
		bnt	code_199e
		lsp	param[$2]
		ldi	$ff		; 255, asInteger
		gt?
		bnt	code_199e
		lsp	param[$3]
		ldi	$ff		; 255, asInteger
		gt?
		bnt	code_199e
		push2
		pushi	$80		; 128, lastKey
		lsp	param[$1]
		callk	kernel_5, $4
		bnot
		bnt	code_199e
		pushi	$8		; fixPriority
		pushi	$3		; z
		pTos	bitmap
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		pushi	$ff		; 255, asInteger
		dup
		push1
		callk	kernel_35, $10
		bnot
code_199e:	ret

WorldObject::addLinkedCel:
		pToa	bitmap
		bnt	code_19e2
		push2
		pushi	$80		; 128, lastKey
		lsp	param[$1]
		callk	kernel_5, $4
		bnot
		bnt	code_19e2
		pushi	$7		; priority
		pushi	$3		; z
		pTos	bitmap
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		pushi	$5		; scaleY
		push2
		pTos	view
		pTos	loop
		pTos	cel
		lsp	param[$4]
		callk	kernel_36, $a
		bnot
		push
		pushi	$5		; scaleY
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		lsp	param[$4]
		callk	kernel_36, $a
		bnot
		push
		callk	kernel_35, $e
		bnot
code_19e2:	ret

WorldObject::addLinkedBitmap:
		link	$2
		pToa	bitmap
		bnt	code_1aa0
		lap	param[$1]
		bnt	code_1aa0
		lsp	param[$0]
		ldi	$3		; z
		gt?
		bnt	code_1a25
		pushi	$5		; scaleY
		push2
		pTos	view
		pTos	loop
		pTos	cel
		lsp	param[$2]
		callk	kernel_36, $a
		bnot
		push
		lap	param[$3]
		sub
		sat	temp[$0]
		pushi	$5		; scaleY
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		lsp	param[$2]
		callk	kernel_36, $a
		bnot
		push
		lap	param[$4]
		sub
		sat	temp[$1]
		jmp	code_1a90

code_1a25:	pushi	$5		; scaleY
		push2
		pTos	view
		pTos	loop
		pTos	cel
		lsp	param[$2]
		callk	kernel_36, $a
		bnot
		push
		pushi	$4		; scaleX
		push0
		pushi	$e		; 14, view
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		pushi	$f		; 15, loop
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		callk	kernel_34, $8
		bnot
		sub
		sat	temp[$0]
		pushi	$5		; scaleY
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		lsp	param[$2]
		callk	kernel_36, $a
		bnot
		push
		pushi	$4		; scaleX
		push1
		pushi	$e		; 14, view
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		pushi	$f		; 15, loop
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		callk	kernel_34, $8
		bnot
		sub
		sat	temp[$1]
code_1a90:	pushi	$6		; maxScale
		dup
		pTos	bitmap
		lsp	param[$1]
		lst	temp[$0]
		lst	temp[$1]
		push1
		callk	kernel_35, $c
		bnot
code_1aa0:	ret

WorldObject::insertLinkedBitmap:
		link	$1
		pToa	bitmap
		bnt	code_1b41
		push2
		pushi	$b		; 11, inRight
		push
		callk	kernel_35, $4
		bnot
		sat	temp[$0]
		pushi	$6		; maxScale
		dup
		pTos	bitmap
		lsp	param[$1]
		pushi	$5		; scaleY
		push2
		pTos	view
		pTos	loop
		pTos	cel
		lsp	param[$2]
		callk	kernel_36, $a
		bnot
		push
		pushi	$4		; scaleX
		push0
		pushi	$e		; 14, view
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		pushi	$f		; 15, loop
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		callk	kernel_34, $8
		bnot
		sub
		push
		pushi	$5		; scaleY
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		lsp	param[$2]
		callk	kernel_36, $a
		bnot
		push
		pushi	$4		; scaleX
		push1
		pushi	$e		; 14, view
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		pushi	$f		; 15, loop
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		lap	param[$3]
		send	$4
		bnot
		push
		callk	kernel_34, $8
		bnot
		sub
		push
		push1
		callk	kernel_35, $c
		bnot
		pushi	$5		; scaleY
		pushi	$6		; maxScale
		pTos	bitmap
		lst	temp[$0]
		pushi	$ff		; 255, asInteger
		dup
		callk	kernel_35, $a
		bnot
		pushi	$9f		; 159, add
		push1
		lst	temp[$0]
		lag	global[$66]
		send	$6
		bnot
code_1b41:	ret

WorldObject::insertLinkedCel:
		link	$1
		pToa	bitmap
		bnt	code_1bac
		push2
		pushi	$80		; 128, lastKey
		lsp	param[$1]
		callk	kernel_5, $4
		bnot
		bnt	code_1bac
		push2
		pushi	$b		; 11, inRight
		pTos	bitmap
		callk	kernel_35, $4
		bnot
		sat	temp[$0]
		pushi	$7		; priority
		pushi	$3		; z
		pTos	bitmap
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		pushi	$5		; scaleY
		push2
		pTos	view
		pTos	loop
		pTos	cel
		lsp	param[$4]
		callk	kernel_36, $a
		bnot
		push
		pushi	$5		; scaleY
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		lsp	param[$4]
		callk	kernel_36, $a
		bnot
		push
		callk	kernel_35, $e
		bnot
		pushi	$5		; scaleY
		pushi	$6		; maxScale
		pTos	bitmap
		lst	temp[$0]
		pushi	$ff		; 255, asInteger
		dup
		callk	kernel_35, $a
		bnot
		pushi	$9f		; 159, add
		push1
		lst	temp[$0]
		lag	global[$66]
		send	$6
		bnot
code_1bac:	ret

WorldObject::remapBitmap:
		pToa	bitmap
		bnt	code_1bef
		pToa	clut
		bnt	code_1bef
		pToa	pFrozenClut
		bnt	code_1bcb
		pushi	$3		; z
		pushi	$a		; 10, inTop
		pTos	bitmap
		push
		callk	kernel_35, $6
		bnot
		jmp	code_1bef

code_1bcb:	pToa	pInvisibleClut
		bnt	code_1bdf
		pushi	$3		; z
		pushi	$a		; 10, inTop
		pTos	bitmap
		push
		callk	kernel_35, $6
		bnot
		jmp	code_1bef

code_1bdf:	pToa	clut
		bnt	code_1bef
		pushi	$3		; z
		pushi	$a		; 10, inTop
		pTos	bitmap
		push
		callk	kernel_35, $6
		bnot
code_1bef:	ret

WorldObject::addUpdator:
		link	$2
		pTos	pUpdatorList
		ldi	$0
		eq?
		bnt	code_1c10
		pushi	$340		; 832, pSortSelector
		push1
		pushi	$2fe		; 766, pLayer
		pushi	$8d		; 141, new
		push0
		class	SortedList
		send	$4
		bnot
		aTop	pUpdatorList
		send	$6
		bnot
code_1c10:	pushi	$9f		; 159, add
		push1
		lsp	param[$1]
		pToa	pUpdatorList
		send	$6
		bnot
		pushi	$365		; 869, pSelf
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
		pushi	$3e9		; 1001, pUpdateObj
		push1
		pushSelf
		send	$6
		bnot
		selfID
		sat	temp[$1]
code_1c31:	pushi	$3e8		; 1000, pUpdateClient
		push0
		lat	temp[$1]
		send	$4
		bnot
		bnt	code_1c4a
		pushi	$3e8		; 1000, pUpdateClient
		push0
		lat	temp[$1]
		send	$4
		bnot
		sat	temp[$1]
		jmp	code_1c31

code_1c4a:	pushi	$3e8		; 1000, pUpdateClient
		push1
		lst	temp[$1]
		lat	temp[$0]
		send	$6
		bnot
		pushi	$3ac		; 940, inheritClut
		push1
		lst	temp[$0]
		self	$6
		bnot
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
		ret

WorldObject::deleteUpdator:
		link	$1
		pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		pToa	pUpdatorList
		send	$6
		bnot
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	pUpdatorList
		send	$4
		bnot
		push
		ldi	$0
		eq?
		bnt	code_1c8f
		pushi	$95		; 149, dispose
		push0
		pToa	pUpdatorList
		send	$4
		bnot
		ldi	$0
		aTop	pUpdatorList
code_1c8f:	pushi	$365		; 869, pSelf
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
		pushi	$3e8		; 1000, pUpdateClient
		push1
		push0
		pushi	$3e9		; 1001, pUpdateObj
		push1
		push0
		send	$c
		bnot
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
		ret

WorldObject::createClut:
		pToa	pClutStart
		bnt	code_1cc6
		pToa	clut
		not
		bnt	code_1cc6
		pushi	$8d		; 141, new
		push0
		class	Clut
		send	$4
		bnot
		aTop	clut
code_1cc6:	ret

WorldObject::inheritClut:
		link	$b
		pushi	$3ab		; 939, createClut
		push0
		self	$4
		bnot
		pushi	$17a		; 378, clut
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$1]
		bnt	code_1dac
		pushi	$3ea		; 1002, pClutStart
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$4]
		pushi	$330		; 816, pColor
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		and
		sat	temp[$2]
		pushi	$330		; 816, pColor
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$8		; fixPriority
		shr
		sat	temp[$3]
		bnt	code_1d17
		pushi	$45		; 69, 'E', doit
		push2
		lsp	param[$1]
		push
		class	SetScale
		send	$8
		bnot
code_1d17:	lst	temp[$4]
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_1d2e
		push2
		pTos	clut
		lst	temp[$2]
		calle	export40206_0, $4
		bnot
		jmp	code_1dac

code_1d2e:	lst	temp[$4]
		ldi	$4		; scaleX
		add
		sat	temp[$5]
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$1]
		send	$4
		bnot
		sat	temp[$8]
		pToa	clut
		sat	temp[$a]
code_1d43:	pushi	$97		; 151, isKindOf
		push1
		class	ClutOverride
		push
		lat	temp[$a]
		send	$6
		bnot
		bnt	code_1d5f
		pushi	$41f		; 1055, pClut
		push0
		lat	temp[$a]
		send	$4
		bnot
		sat	temp[$a]
		jmp	code_1d43

code_1d5f:	pushi	$71		; 113, 'q', data
		push0
		lat	temp[$a]
		send	$4
		bnot
		sat	temp[$9]
		ldi	$0
		sat	temp[$0]
code_1d6d:	lst	temp[$0]
		ldi	$ff		; 255, asInteger
		lt?
		bnt	code_1dac
		pushi	$3		; z
		push2
		lst	temp[$8]
		lst	temp[$0]
		callk	kernel_91, $6
		bnot
		sat	temp[$2]
		push
		lat	temp[$0]
		ne?
		bt	code_1d97
		lst	temp[$0]
		lat	temp[$4]
		ge?
		bnt	code_1da8
		lst	temp[$0]
		lat	temp[$5]
		lt?
code_1d97:	bnt	code_1da8
		pushi	$4		; scaleX
		pushi	$3		; z
		lst	temp[$9]
		lst	temp[$0]
		lst	temp[$2]
		callk	kernel_91, $8
		bnot
code_1da8:	+at	temp[$0]
		jmp	code_1d6d

code_1dac:	pToa	pUpdateObj
		bnt	code_1dba
		pushi	$3ac		; 940, inheritClut
		push1
		lsp	param[$1]
		send	$6
		bnot
code_1dba:	pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
		ret

WorldObject::removeClut:
		pToa	clut
		bnt	code_1dd3
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	clut
code_1dd3:	ret

WorldObject::setColor:
		link	$5
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_1de3
		lap	param[$2]
		jmp	code_1de5

code_1de3:	pToa	pClutStart
code_1de5:	sat	temp[$2]
		pTos	pColor
		ldi	$ff		; 255, asInteger
		and
		sat	temp[$0]
		pTos	pColor
		ldi	$8		; fixPriority
		shr
		sat	temp[$1]
		bnt	code_1e04
		pushi	$45		; 69, 'E', doit
		push2
		pushSelf
		push
		class	SetScale
		send	$8
		bnot
code_1e04:	pushi	$3ab		; 939, createClut
		push0
		self	$4
		bnot
		lst	temp[$2]
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_1e22
		push2
		pTos	clut
		lst	temp[$0]
		calle	export40206_0, $4
		bnot
		jmp	code_1e78

code_1e22:	lap	param[$1]
		aTop	pColor
		sat	temp[$0]
		lst	temp[$2]
		lsp	param[$0]
		ldi	$2
		gt?
		bnt	code_1e37
		lap	param[$3]
		jmp	code_1e39

code_1e37:	ldi	$4		; scaleX
code_1e39:	add
		sat	temp[$3]
		push1
		pTos	clut
		calle	export60000_0, $2
		bnot
		not
		bt	code_1e57
		pushi	$97		; 151, isKindOf
		push1
		class	Clut
		push
		pToa	clut
		send	$6
		bnot
		not
code_1e57:	bnt	code_1e5a
		ret

code_1e5a:	lat	temp[$2]
		sat	temp[$4]
code_1e5e:	lst	temp[$4]
		lat	temp[$3]
		lt?
		bnt	code_1e78
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$4]
		lst	temp[$0]
		pToa	clut
		send	$8
		bnot
		+at	temp[$0]
		+at	temp[$4]
		jmp	code_1e5e

code_1e78:	lat	temp[$2]
		bnt	code_1e8a
		pToa	pUpdateObj
		bnt	code_1e8a
		pushi	$3ac		; 940, inheritClut
		push1
		pushSelf
		send	$6
		bnot
code_1e8a:	ret

WorldObject::setMode:
		pTos	pMode
		lap	param[$1]
		or
		aTop	pMode
		ret

WorldObject::clearMode:
		lap	param[$0]
		bnt	code_1ea3
		pTos	pMode
		lap	param[$1]
		bnot
		and
		aTop	pMode
		jmp	code_1ea7

code_1ea3:	ldi	$0
		aTop	pMode
code_1ea7:	ret

WorldObject::saveMode:
		pToa	pMode
		aTop	pLastMode
		ret

WorldObject::restoreMode:
		pToa	pLastMode
		aTop	pMode
		ret

WorldObject::pause:
		ipToa	pPaused
		ret

WorldObject::unpause:
		pToa	pPaused
		bnt	code_1ebc
		dpToa	pPaused
code_1ebc:	ret

WorldObject::setAction:
		link	$1
		pushi	$63		; 99, 'c', perform
		push2
		pushi	$373		; 883, setAction
		lsp	param[$1]
		self	$8
		bnot
		sat	temp[$0]
		push
		ldi	$1
		eq?
		bnt	code_1f65
		lsp	param[$1]
		ldi	$1c		; 28, brLeft
		eq?
		bnt	code_1ef1
		push2
		pushi	$80		; 128, lastKey
		pTos	pBaseView
		lap	param[$1]
		add
		push
		callk	kernel_5, $4
		bnot
		not
		bnt	code_1ef1
		ldi	$1d		; 29, brTop
		sap	param[$1]
code_1ef1:	push2
		pushi	$80		; 128, lastKey
		pTos	pBaseView
		lap	param[$1]
		add
		push
		callk	kernel_5, $4
		bnot
		not
		bnt	code_1f14
		push2
		pushi	$80		; 128, lastKey
		pTos	pBaseView
		callk	kernel_5, $4
		bnot
		bnt	code_1f14
		ldi	$0
		sap	param[$1]
code_1f14:	lap	param[$1]
		aTop	pAction
		pTos	pBaseView
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_1f32
		pTos	pBaseView
		pToa	pAction
		add
		aTop	view
		pToa	pMoney
		not
		bnt	code_1f32
		ldi	$0
		aTop	cel
code_1f32:	pToa	pUpdatorList
		bnt	code_1f61
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_1f61
		pushi	$97		; 151, isKindOf
		push1
		class	SortedList
		push
		pToa	pUpdatorList
		send	$6
		bnot
		bnt	code_1f61
		pushi	$9d		; 157, eachElementDo
		push2
		pushi	$36b		; 875, updateAction
		lsp	param[$1]
		pToa	pUpdatorList
		send	$8
		bnot
code_1f61:	ldi	$0
		sat	temp[$0]
code_1f65:	lat	temp[$0]
		ret

WorldObject::hide:
		pushSelf
		lag	global[$1]
		ne?
		bnt	code_1f83
		pushi	$3a9		; 937, isOwnedBy
		push1
		lsg	global[$1]
		self	$6
		bnot
		not
		bnt	code_1f83
		pushi	$3a5		; 933, hideContents
		push0
		self	$4
		bnot
code_1f83:	pushi	$17c		; 380, isNotHidden
		push0
		self	$4
		bnot
		bnt	code_1f9a
		pTos	signal
		ldi	$8		; fixPriority
		or
		aTop	signal
		push1
		pushSelf
		callk	kernel_31, $2
		bnot
code_1f9a:	ret

WorldObject::show:
		pushi	$3e0		; 992, setVisible
		push0
		self	$4
		bnot
		ret

WorldObject::lastCel:
		link	$2
		pToa	view
		sat	temp[$0]
		pTos	pBaseView
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_1fb8
		pTos	pBaseView
		pToa	pAction
		add
		aTop	view
code_1fb8:	push2
		pushi	$80		; 128, lastKey
		pTos	view
		callk	kernel_5, $4
		bnot
		bnt	code_1fd2
		pushi	$161		; 353, lastCel
		push0
		super	Act, $4
		bnot
		sat	temp[$1]
		jmp	code_1fd6

code_1fd2:	ldi	$0
		sat	temp[$1]
code_1fd6:	lat	temp[$0]
		aTop	view
		lat	temp[$1]
		ret

WorldObject::generatePolygon:
		link	$10
		ldi	$2
		sat	temp[$0]
		pTos	view
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_1fee
		lat	temp[$0]
		ret

code_1fee:	pToa	pPolygon
		not
		bnt	code_1fff
		pushi	$63		; 99, 'c', perform
		push1
		pushi	$3c2		; 962, generatePolygon
		self	$6
		bnot
		sat	temp[$0]
code_1fff:	lag	global[$1]
		not
		bt	code_2025
		pTos	cel
		ldi	$ff		; 255, asInteger
		eq?
		bt	code_2025
		pTos	view
		ldi	$ff		; 255, asInteger
		eq?
		bt	code_2025
		pToa	pPolygon
		bt	code_2025
		push2
		pushi	$80		; 128, lastKey
		pTos	view
		callk	kernel_5, $4
		bnot
		not
code_2025:	bnt	code_202e
		lat	temp[$0]
		ret

		jmp	code_220f

code_202e:	lst	temp[$0]
		ldi	$2
		ne?
		bnt	code_220f
		pushi	$8d		; 141, new
		push0
		class	Polygon
		send	$4
		bnot
		aTop	pPolygon
		ldi	$0
		sat	temp[$2]
		ldi	$0
		sat	temp[$3]
code_2049:	lst	temp[$2]
		ldi	$9		; inLeft
		lt?
		bnt	code_20a5
		pushi	$5		; scaleY
		push2
		pTos	view
		pTos	loop
		pTos	cel
		lst	temp[$2]
		callk	kernel_36, $a
		bnot
		sat	temp[$4]
		pushi	$5		; scaleY
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		lst	temp[$2]
		callk	kernel_36, $a
		bnot
		sat	temp[$5]
		lst	temp[$4]
		ldi	$ff		; 255, asInteger
		ne?
		bt	code_2081
		lst	temp[$5]
		ldi	$ff		; 255, asInteger
		ne?
code_2081:	bnt	code_20a1
		pushi	$4b		; 75, 'K', at
		pushi	$3		; z
		lst	temp[$3]
		lst	temp[$4]
		lst	temp[$5]
		pushi	$5b		; 91, '[', points
		push0
		pToa	pPolygon
		send	$4
		bnot
		send	$a
		bnot
		lst	temp[$3]
		ldi	$2
		add
		sat	temp[$3]
code_20a1:	+at	temp[$2]
		jmp	code_2049

code_20a5:	lst	temp[$3]
		ldi	$2
		div
		push
		ldi	$3		; z
		ge?
		bnt	code_20bf
		pushi	$5a		; 90, 'Z', size
		push1
		lst	temp[$3]
		ldi	$2
		div
		push
		pToa	pPolygon
		send	$6
		bnot
code_20bf:	pushi	$5a		; 90, 'Z', size
		push0
		pToa	pPolygon
		send	$4
		bnot
		not
		bnt	code_21c5
		pushi	$3		; z
		pushi	$e		; 14, view
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pushi	$f		; 15, loop
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		callk	kernel_29, $6
		bnot
		push
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_29, $6
		bnot
		lt?
		bnt	code_2143
		pushi	$d1		; 209, newWith
		pushi	$6		; maxScale
		pushi	$4		; scaleX
		push0
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_29, $6
		bnot
		push
		pushi	$3		; z
		pushi	$e		; 14, view
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pushi	$f		; 15, loop
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		callk	kernel_29, $6
		bnot
		sub
		push
		push0
		push0
		push0
		class	IntArray
		send	$10
		bnot
		sat	temp[$1]
		jmp	code_2156

code_2143:	pushi	$d1		; 209, newWith
		pushi	$5		; scaleY
		pushi	$4		; scaleX
		push0
		push0
		push0
		push0
		class	IntArray
		send	$e
		bnot
		sat	temp[$1]
code_2156:	pushi	$6		; maxScale
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pTos	view
		pTos	loop
		pTos	cel
		push0
		push0
		callk	kernel_27, $c
		bnot
		pushi	$b5		; 181, set
		pushi	$4		; scaleX
		pushi	$4b		; 75, 'K', at
		push1
		push0
		lat	temp[$1]
		send	$6
		bnot
		push
		ldi	$14		; 20, nsRight
		sub
		push
		pushi	$fa		; 250, lower
		pushi	$4b		; 75, 'K', at
		push1
		push2
		lat	temp[$1]
		send	$6
		bnot
		push
		ldi	$14		; 20, nsRight
		add
		push
		pushi	$6		; maxScale
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		send	$10
		bnot
		sat	temp[$6]
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		pushi	$172		; 370, fromRect
		push1
		lst	temp[$6]
		pToa	pPolygon
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$6]
		send	$4
		bnot
		jmp	code_220f

code_21c5:	pushi	$dd		; 221, moveBy
		push2
		push0
		pushi	$4		; scaleX
		push0
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_34, $8
		bnot
		sub
		push
		push0
		pushi	$4		; scaleX
		push1
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_34, $8
		bnot
		sub
		push
		pToa	pPolygon
		send	$8
		bnot
		push1
		pTos	pPolygon
		callk	kernel_137, $2
		bnot
		sat	temp[$d]
		push
		ldi	$1
		eq?
		bnt	code_2206
		push2
		pTos	pPolygon
		push1
		callk	kernel_137, $4
		bnot
code_2206:	push1
		pTos	pPolygon
		callk	kernel_137, $2
		bnot
		sat	temp[$d]
code_220f:	lat	temp[$0]
		ret

WorldObject::submitPolygon:
		link	$3
		pToa	pRoom
		not
		bt	code_2232
		pToa	pPolygon
		not
		bt	code_2232
		pTos	pPolygon
		ldi	$ff		; 255, asInteger
		eq?
		bt	code_2232
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
code_2232:	bnt	code_2239
		ret

		jmp	code_227b

code_2239:	pushi	$2b		; 43, '+', type
		push1
		push2
		pushi	$d3		; 211, copy
		push1
		pTos	pPolygon
		pushi	$8d		; 141, new
		push0
		class	Polygon
		send	$4
		bnot
		sat	temp[$0]
		send	$c
		bnot
		pushi	$f1		; 241, scale
		push1
		pTos	scaleX
		lat	temp[$0]
		send	$6
		bnot
		pushi	$dd		; 221, moveBy
		push2
		pTos	x
		pTos	y
		pToa	z
		sub
		push
		lat	temp[$0]
		send	$8
		bnot
		lat	temp[$0]
		aTop	pAddedPolygon
		pushi	$2bd		; 701, addPolygon
		push1
		push
		pToa	pRoom
		send	$6
		bnot
code_227b:	ret

WorldObject::removePolygon:
		pToa	pAddedPolygon
		bnt	code_229d
		pushi	$2be		; 702, deletePolygon
		push1
		push
		pToa	pRoom
		send	$6
		bnot
		pushi	$16f		; 367, pDispose
		push1
		push1
		pushi	$95		; 149, dispose
		push0
		pToa	pAddedPolygon
		send	$a
		bnot
		ldi	$0
		aTop	pAddedPolygon
code_229d:	ret

WorldObject::addToCast:
		link	$2
		ldi	$0
		sat	temp[$0]
		lap	param[$0]
		bnt	code_22ad
		lap	param[$1]
		sat	temp[$0]
code_22ad:	lat	temp[$0]
		not
		bnt	code_22c1
		lag	global[$3]
		bnt	code_22c1
		pushi	$f2		; 242, pCast
		push0
		send	$4
		bnot
		sat	temp[$0]
code_22c1:	lat	temp[$0]
		not
		bnt	code_22c8
		ret

code_22c8:	pushi	$17b		; 379, addToCast
		push1
		lsp	param[$1]
		super	Act, $6
		bnot
		ret

WorldObject::deleteFromCast:
		link	$1
		pToa	client
		bnt	code_2355
		pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		self	$6
		bnot
		sat	temp[$0]
		bnt	code_22f9
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$69		; 105, 'i', hide
		pushi	$420		; 1056, pContents
		push0
		send	$4
		bnot
		send	$6
		bnot
code_22f9:	pToa	pRoom
		bnt	code_230e
		pushi	$3c4		; 964, removePolygon
		push0
		self	$4
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		pToa	pRoom
		send	$6
		bnot
code_230e:	push1
		pTos	client
		calle	export60000_0, $2
		bnot
		bnt	code_2332
		pushi	$99		; 153, respondsTo
		push1
		pushi	$58		; 88, 'X', delete
		pToa	client
		send	$6
		bnot
		bnt	code_2332
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		pToa	client
		send	$6
		bnot
code_2332:	pushi	$69		; 105, 'i', hide
		push0
		self	$4
		bnot
		pToa	scaler
		bnt	code_234f
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	scaler
		ldi	$80		; 128, lastKey
		aTop	scaleY
		aTop	scaleX
code_234f:	ldi	$0
		aTop	client
		aTop	pRoom
code_2355:	ret

WorldObject::addToRoom:
		link	$1
		lsp	param[$1]
		pToa	pRoom
		eq?
		bnt	code_236e
		pushi	$99		; 153, respondsTo
		push1
		pushi	$319		; 793, pHead
		self	$6
		bnot
		bnt	code_236e
		ret

code_236e:	push1
		pushSelf
		callk	kernel_31, $2
		bnot
		lap	param[$1]
		bnt	code_23dd
		pushi	$3c7		; 967, deleteFromCast
		push0
		self	$4
		bnot
		lap	param[$1]
		aTop	pRoom
		pushi	$9f		; 159, add
		push1
		pushSelf
		pushi	$421		; 1057, pWObjectList
		push0
		send	$4
		bnot
		send	$6
		bnot
		pushi	$17b		; 379, addToCast
		push1
		pushi	$f2		; 242, pCast
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$3c8		; 968, matchScaler
		push1
		lsp	param[$1]
		pushi	$3c2		; 962, generatePolygon
		push0
		pushi	$3c3		; 963, submitPolygon
		push0
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$1a
		bnot
		pushi	$3e0		; 992, setVisible
		push0
		self	$4
		bnot
		pToa	script
		sat	temp[$0]
code_23c2:	lat	temp[$0]
		bnt	code_23dd
		pushi	$c5		; 197, pRoom
		push1
		lsp	param[$1]
		send	$6
		bnot
		pushi	$c3		; 195, script
		push0
		lat	temp[$0]
		send	$4
		bnot
		sat	temp[$0]
		jmp	code_23c2

code_23dd:	ret

WorldObject::deleteFromRoom:
		pushSelf
		lag	global[$1]
		ne?
		bnt	code_23ec
		pushi	$3a5		; 933, hideContents
		push0
		self	$4
		bnot
code_23ec:	pushi	$3c7		; 967, deleteFromCast
		push0
		self	$4
		bnot
		ret

WorldObject::matchScaler:
		pToa	pDoScaler
		bnt	code_243f
		lap	param[$1]
		bnt	code_243f
		pushi	$144		; 324, scaler
		push0
		send	$4
		bnot
		bnt	code_243f
		pTos	scaleSignal
		ldi	$1
		or
		aTop	scaleSignal
		pTos	scaleSignal
		ldi	$fd		; 253, strip
		and
		aTop	scaleSignal
		pToa	scaler
		bnt	code_2422
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
code_2422:	pushi	$36		; 54, '6', client
		push1
		pushSelf
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		pushi	$144		; 324, scaler
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$4
		bnot
		aTop	scaler
		send	$a
		bnot
code_243f:	ret

WorldObject::validatePosn:
		link	$1
		pushi	$97		; 151, isKindOf
		push1
		class	WorldActor
		push
		self	$6
		bnot
		bnt	code_249b
		pTos	pAction
		ldi	$3		; z
		lt?
		bnt	code_249b
		pushi	$45		; 69, 'E', doit
		pushi	$4		; scaleX
		pushi	$422		; 1058, pSafeX
		push0
		pToa	pRoom
		send	$4
		bnot
		push
		pushi	$423		; 1059, pSafeY
		push0
		pToa	pRoom
		send	$4
		bnot
		push
		pTos	x
		pTos	y
		push2
		pushi	$eac4		; -5436
		push1
		callk	kernel_2, $4
		bnot
		send	$c
		bnot
		sat	temp[$0]
		push1
		push0
		send	$4
		bnot
		aTop	x
		push2
		push0
		lat	temp[$0]
		send	$4
		bnot
		aTop	y
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_249b:	ret

WorldObject::setVisible:
		pushi	$144		; 324, scaler
		push0
		self	$4
		bnot
		bnt	code_24b3
		pushi	$45		; 69, 'E', doit
		push0
		pushi	$144		; 324, scaler
		push0
		self	$4
		bnot
		send	$4
		bnot
code_24b3:	pToa	pHidden
		bnt	code_24c1
		pushi	$69		; 105, 'i', hide
		push0
		self	$4
		bnot
		jmp	code_2592

code_24c1:	pushi	$3a7		; 935, getBaseOwner
		push0
		self	$4
		bnot
		push
		selfID
		ne?
		bnt	code_24d7
		pushi	$69		; 105, 'i', hide
		push0
		self	$4
		bnot
		jmp	code_2592

code_24d7:	lag	global[$1]
		bnt	code_2508
		pToa	pCombatGroup
		bnt	code_2508
		pushi	$97		; 151, isKindOf
		push1
		class	CombatRoom
		push
		lag	global[$3]
		send	$6
		bnot
		not
		bt	code_24fc
		pushi	$2fb		; 763, pCombatGroup
		push0
		lag	global[$1]
		send	$4
		bnot
		not
code_24fc:	bnt	code_2508
		pushi	$69		; 105, 'i', hide
		push0
		self	$4
		bnot
		jmp	code_2592

code_2508:	lag	global[$1]
		bnt	code_2548
		pToa	pCombatGroup
		bnt	code_2548
		pushi	$97		; 151, isKindOf
		push1
		class	CombatRoom
		push
		lag	global[$3]
		send	$6
		bnot
		not
		bt	code_253c
		pushi	$128		; 296, equalLong
		push1
		pushi	$2fb		; 763, pCombatGroup
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pushi	$2fb		; 763, pCombatGroup
		push0
		self	$4
		bnot
		send	$6
		bnot
		not
code_253c:	bnt	code_2548
		pushi	$69		; 105, 'i', hide
		push0
		self	$4
		bnot
		jmp	code_2592

code_2548:	lag	global[$1]
		bnt	code_2582
		pushSelf
		ne?
		bnt	code_2582
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$12		; 18, nsLeft
		self	$6
		bnot
		bt	code_2567
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$15		; 21, nsBottom
		self	$6
		bnot
code_2567:	bnt	code_2582
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$11		; 17, bitmap
		lag	global[$1]
		send	$6
		bnot
		not
		bnt	code_2582
		pushi	$69		; 105, 'i', hide
		push0
		self	$4
		bnot
		jmp	code_2592

code_2582:	pushi	$75		; 117, 'u', show
		push0
		&rest	$1
		super	Act, $4
		bnot
		pushi	$36a		; 874, updateDisplay
		push0
		self	$4
		bnot
code_2592:	ret

WorldObject::fromPacket:
		link	$14
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		not
		bnt	code_25a4
		ldi	$0
		ret

code_25a4:	ldi	$0
		sat	temp[$d]
		sat	temp[$0]
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_25ca
		lap	param[$2]
		sat	temp[$0]
		push1
		push
		calle	export60000_0, $2
		bnot
		not
		bnt	code_25ce
		ldi	$0
		sat	temp[$0]
		jmp	code_25ce

code_25ca:	ldi	$0
		sat	temp[$0]
code_25ce:	ldi	$ff		; 255, asInteger
		aTop	pPolygon
		ldi	$0
		sat	temp[$8]
		pushi	$94		; 148, init
		push0
		pushi	$3c6		; 966, deleteFromRoom
		push0
		self	$8
		bnot
		ldi	$0
		aTop	pPolygon
		push2
		pushi	$4		; scaleX
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		sat	temp[$9]
		pushi	$4b		; 75, 'K', at
		push1
		push
		push2
		pushi	$9cb6		; -25418
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		sat	temp[$a]
		bnt	code_260c
		pushi	$45		; 69, 'E', doit
		push1
		pushSelf
		send	$6
		bnot
code_260c:	pushi	$373		; 883, setAction
		push1
		pTos	pAction
		self	$6
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
		bt	code_2624
		pToa	pClutStart
code_2624:	aTop	pBitmapBased
		push2
		pushi	$4		; scaleX
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		aTop	pServIDLo
		push2
		pushi	$4		; scaleX
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		aTop	pServIDHi
		pushi	$386		; 902, hasBase
		push1
		class	BCharacter
		push
		self	$6
		bnot
		not
		bnt	code_2655
		push2
		pushi	$4		; scaleX
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		aTop	pColor
code_2655:	pushi	$2c8		; 712, lookup
		push2
		pTos	pServIDLo
		pTos	pServIDHi
		lag	global[$6a]
		send	$8
		bnot
		sat	temp[$1]
		bnt	code_2671
		pushi	$3df		; 991, setServID
		push2
		pushi	$ff		; 255, asInteger
		dup
		self	$8
		bnot
code_2671:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_26b2
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sat	temp[$12]
		push2
		pushi	$4		; scaleX
		pushi	$71		; 113, 'q', data
		push0
		send	$4
		bnot
		push
		callk	kernel_91, $4
		bnot
		pushi	$71		; 113, 'q', data
		push1
		pushi	$3		; z
		pushi	$8		; fixPriority
		lsp	param[$1]
		push0
		callk	kernel_156, $6
		bnot
		push
		lat	temp[$12]
		send	$6
		bnot
		pushi	$3db		; 987, setName
		push1
		lst	temp[$12]
		self	$6
		bnot
code_26b2:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		sat	temp[$b]
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_26cf
		pushi	$3d3		; 979, setAffectedState
		push1
		lst	temp[$b]
		self	$6
		bnot
		jmp	code_26b2

code_26cf:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		push
		dup
		ldi	$1
		eq?
		bnt	code_2706
		ldi	$1
		aTop	pMoney
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$b]
		pushi	$b5		; 181, set
		push2
		push2
		pushi	$4		; scaleX
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		push
		push0
		lat	temp[$b]
		send	$8
		bnot
		jmp	code_2728

code_2706:	dup
		ldi	$2
		eq?
		bnt	code_2728
		ldi	$1
		aTop	pMoney
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$b]
		pushi	$3		; z
		pushi	$6		; maxScale
		lsp	param[$1]
		push
		callk	kernel_156, $6
		bnot
code_2728:	toss
		pushi	$3dd		; 989, addToServer
		push0
		self	$4
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		self	$6
		bnot
		sat	temp[$4]
		bnt	code_277c
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		sag	global[$e3]
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		sag	global[$e4]
		pushi	$1a9		; 425, setStep
		push2
		lsg	global[$e3]
		push
		self	$8
		bnot
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		aTop	xScaleAdj
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		aTop	yScaleAdj
		pushi	$36c		; 876, fromPacket
		push1
		lsp	param[$1]
		lat	temp[$4]
		send	$6
		bnot
code_277c:	pToa	pClutStart
		bnt	code_278a
		pushi	$3ae		; 942, setColor
		push1
		pTos	pColor
		self	$6
		bnot
code_278a:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		sat	temp[$13]
		push
		ldi	$10		; 16, cel
		and
		bnt	code_27a6
		ldi	$0
		aTop	pDoScaler
		lst	temp[$13]
		ldi	$ef		; 239, dragDoit
		and
		sat	temp[$13]
code_27a6:	lat	temp[$13]
		bnt	code_2831
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$c]
		lst	temp[$13]
		dup
		ldi	$1
		eq?
		bnt	code_27d6
		pushi	$b5		; 181, set
		push2
		push2
		pushi	$4		; scaleX
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		push
		push0
		lat	temp[$c]
		send	$8
		bnot
		jmp	code_27e9

code_27d6:	dup
		ldi	$2
		eq?
		bnt	code_27e9
		pushi	$3		; z
		pushi	$6		; maxScale
		lsp	param[$1]
		lst	temp[$c]
		callk	kernel_156, $6
		bnot
code_27e9:	toss
		pushi	$2c6		; 710, findRoom
		push2
		lst	temp[$c]
		push0
		lag	global[$30]
		send	$8
		bnot
		sat	temp[$8]
		push2
		pushi	$4		; scaleX
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		aTop	x
		push2
		pushi	$4		; scaleX
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		aTop	y
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		aTop	loop
		pTos	loop
		push1
		pushSelf
		callk	kernel_21, $2
		bnot
		ge?
		bnt	code_2828
		ldi	$0
		aTop	loop
code_2828:	pushi	$95		; 149, dispose
		push0
		lat	temp[$c]
		send	$4
		bnot
code_2831:	pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
		sat	temp[$4]
		bnt	code_2856
		pushi	$36c		; 876, fromPacket
		push1
		lsp	param[$1]
		send	$6
		bnot
		lat	temp[$0]
		bnt	code_2856
		pushi	$38e		; 910, take
		push1
		pushSelf
		send	$6
		bnot
code_2856:	pushi	$35c		; 860, getBase
		push1
		class	BWeapon
		push
		self	$6
		bnot
		sat	temp[$4]
		bnt	code_288c
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_28da
		lat	temp[$0]
		bnt	code_28da
		pushi	$424		; 1060, pWearer
		push1
		lst	temp[$0]
		lat	temp[$4]
		send	$6
		bnot
		pushi	$393		; 915, bePutOn
		push1
		lst	temp[$0]
		self	$6
		bnot
		jmp	code_28da

code_288c:	pushi	$35c		; 860, getBase
		push1
		class	BHead
		push
		self	$6
		bnot
		sat	temp[$4]
		bnt	code_28a7
		pushi	$36c		; 876, fromPacket
		push1
		lsp	param[$1]
		send	$6
		bnot
		jmp	code_28da

code_28a7:	pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		self	$6
		bnot
		sat	temp[$4]
		bnt	code_28da
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_28da
		lat	temp[$0]
		bnt	code_28da
		pushi	$424		; 1060, pWearer
		push1
		lst	temp[$0]
		lat	temp[$4]
		send	$6
		bnot
		pushi	$393		; 915, bePutOn
		push1
		lst	temp[$0]
		self	$6
		bnot
code_28da:	pushi	$35c		; 860, getBase
		push1
		class	BDescribed
		push
		self	$6
		bnot
		sat	temp[$4]
		bnt	code_290e
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_2901
		pushi	$645		; 1605, pIsBook
		push1
		push1
		lat	temp[$4]
		send	$6
		bnot
		jmp	code_2916

code_2901:	pushi	$645		; 1605, pIsBook
		push1
		push0
		lat	temp[$4]
		send	$6
		bnot
		jmp	code_2916

code_290e:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
code_2916:	pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		self	$6
		bnot
		sat	temp[$4]
		bnt	code_292e
		pushi	$36c		; 876, fromPacket
		push1
		lsp	param[$1]
		send	$6
		bnot
code_292e:	pushi	$35c		; 860, getBase
		push1
		class	BOpenable
		push
		self	$6
		bnot
		sat	temp[$4]
		bnt	code_296c
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_296c
		pushi	$425		; 1061, pOpen
		push1
		push1
		lat	temp[$4]
		send	$6
		bnot
		pushi	$373		; 883, setAction
		push1
		pushi	$1e		; 30, brRight
		self	$6
		bnot
		pushi	$10		; 16, cel
		push1
		push1
		pushSelf
		callk	kernel_22, $2
		bnot
		push
		ldi	$1
		sub
		push
		self	$6
		bnot
code_296c:	pushi	$35c		; 860, getBase
		push1
		class	BSwitch
		push
		self	$6
		bnot
		sat	temp[$4]
		bnt	code_2997
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_2997
		pushi	$425		; 1061, pOpen
		push1
		push1
		lat	temp[$4]
		send	$6
		bnot
		pushi	$10		; 16, cel
		push1
		push1
		self	$6
		bnot
code_2997:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		sat	temp[$11]
		bnt	code_29f2
		pushi	$35c		; 860, getBase
		push1
		class	BLockable
		push
		self	$6
		bnot
		sat	temp[$4]
		not
		bnt	code_29c0
		pushi	$387		; 903, addBase
		push1
		class	BLockable
		push
		self	$6
		bnot
		sat	temp[$4]
code_29c0:	pushi	$426		; 1062, pLocked
		push1
		lst	temp[$11]
		ldi	$2
		and
		bnt	code_29d1
		ldi	$1
		jmp	code_29d3

code_29d1:	ldi	$0
code_29d3:	push
		lat	temp[$4]
		send	$6
		bnot
		pushi	$427		; 1063, pAutoLock
		push1
		lst	temp[$11]
		ldi	$4		; scaleX
		and
		bnt	code_29ea
		ldi	$1
		jmp	code_29ec

code_29ea:	ldi	$0
code_29ec:	push
		lat	temp[$4]
		send	$6
		bnot
code_29f2:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_2a50
		pushi	$373		; 883, setAction
		push1
		pushi	$3		; z
		self	$6
		bnot
		pushi	$10		; 16, cel
		push1
		push1
		pushSelf
		callk	kernel_22, $2
		bnot
		push
		ldi	$1
		sub
		push
		self	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$c]
		pushi	$3		; z
		pushi	$6		; maxScale
		lsp	param[$1]
		push
		callk	kernel_156, $6
		bnot
		pushi	$384		; 900, pSittingOn
		push1
		pushi	$2c8		; 712, lookup
		push1
		lst	temp[$c]
		lag	global[$6a]
		send	$6
		bnot
		push
		pushi	$9a		; 154, yourself
		push0
		self	$4
		bnot
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$c]
		send	$4
		bnot
code_2a50:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_2a73
		pushi	$35c		; 860, getBase
		push1
		class	BTalk
		push
		self	$6
		bnot
		not
		bnt	code_2a73
		pushi	$387		; 903, addBase
		push1
		class	BTalk
		push
		self	$6
		bnot
code_2a73:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_2a86
		pushi	$3fb		; 1019, pHidden
		push1
		push1
		self	$6
		bnot
code_2a86:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_2b67
		pToa	pCombatGroup
		not
		bnt	code_2aa7
		pushi	$8d		; 141, new
		push2
		pushi	$ff		; 255, asInteger
		dup
		class	LongInt
		send	$8
		bnot
		aTop	pCombatGroup
code_2aa7:	pushi	$3		; z
		pushi	$6		; maxScale
		lsp	param[$1]
		pTos	pCombatGroup
		callk	kernel_156, $6
		bnot
		pushi	$97		; 151, isKindOf
		push1
		class	CombatRoom
		push
		lag	global[$3]
		send	$6
		bnot
		not
		bt	code_2ad8
		pushi	$128		; 296, equalLong
		push1
		pTos	pCombatGroup
		pushi	$2ca		; 714, pServID
		push0
		lag	global[$3]
		send	$4
		bnot
		send	$6
		bnot
		not
code_2ad8:	not
		bnt	code_2ae0
		lag	global[$3]
		sat	temp[$8]
code_2ae0:	lag	global[$1]
		bnt	code_2b5f
		pushi	$c5		; 197, pRoom
		push0
		send	$4
		bnot
		bnt	code_2b5f
		pushi	$2fb		; 763, pCombatGroup
		push0
		lag	global[$1]
		send	$4
		bnot
		bnt	code_2b5f
		pushi	$128		; 296, equalLong
		push1
		pushi	$2fb		; 763, pCombatGroup
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pToa	pCombatGroup
		send	$6
		bnot
		bnt	code_2b5f
		pushi	$99		; 153, respondsTo
		push1
		pushi	$319		; 793, pHead
		self	$6
		bnot
		bnt	code_2b54
		push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		bnt	code_2b3f
		pushi	$31b		; 795, addCombatant
		push2
		pushSelf
		push0
		pushi	$c5		; 197, pRoom
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$8
		bnot
		jmp	code_2b67

code_2b3f:	pushi	$31b		; 795, addCombatant
		push2
		pushSelf
		push1
		pushi	$c5		; 197, pRoom
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$8
		bnot
		jmp	code_2b67

code_2b54:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
		jmp	code_2b67

code_2b5f:	push2
		push2
		lsp	param[$1]
		callk	kernel_156, $4
		bnot
code_2b67:	pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		self	$6
		bnot
		sat	temp[$1]
		bnt	code_2bc0
		push2
		push1
		push2
		pushi	$9		; inLeft
		pushi	$35d		; 861, pProperName
		push0
		send	$4
		bnot
		push
		callk	kernel_91, $4
		bnot
		push
		callk	kernel_92, $4
		bnot
		bnt	code_2bad
		pushi	$3db		; 987, setName
		push1
		pushi	$d0		; 208, with
		push1
		pushi	$35d		; 861, pProperName
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		class	Str
		send	$6
		bnot
		push
		self	$6
		bnot
		jmp	code_2bc0

code_2bad:	pushi	$3db		; 987, setName
		push1
		pushi	$d0		; 208, with
		push1
		pTos	pName
		class	Str
		send	$6
		bnot
		push
		self	$6
		bnot
code_2bc0:	pToa	pMoney
		bnt	code_2bed
		pTos	pBaseView
		ldi	$c5a8		; -14936
		eq?
		bnt	code_2bdb
		pushi	$3d8		; 984, setManaValue
		push1
		lst	temp[$b]
		self	$6
		bnot
		jmp	code_2be4

code_2bdb:	pushi	$3d5		; 981, setValue
		push1
		lst	temp[$b]
		self	$6
		bnot
code_2be4:	pushi	$95		; 149, dispose
		push0
		lat	temp[$b]
		send	$4
		bnot
code_2bed:	lat	temp[$8]
		bnt	code_2bfa
		pushi	$3c5		; 965, addToRoom
		push1
		push
		self	$6
		bnot
code_2bfa:	pushi	$3e0		; 992, setVisible
		push0
		self	$4
		bnot
		pushi	$3c2		; 962, generatePolygon
		push0
		pushi	$3c3		; 963, submitPolygon
		push0
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$e
		bnot
		pTos	pServIDLo
		pToa	pServIDHi
		eq?
		bnt	code_2c1d
		pprev
		ldi	$ff		; 255, asInteger
		eq?
code_2c1d:	bt	code_2c30
		lat	temp[$0]
		not
		bnt	code_2c36
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_2c36
		lap	param[$2]
code_2c30:	bnt	code_2c36
		ldi	$0
		ret

code_2c36:	ldi	$1
		ret

WorldObject::fromExtendedPacket:
		link	$5
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$4]
		push
		ldi	$2
		and
		bnt	code_2ccb
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pStrength
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pDexterity
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pIntelligence
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pEndurance
		pushi	$3d5		; 981, setValue
		push1
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
		push
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$3d8		; 984, setManaValue
		push1
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
		push
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pLevel
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pAlignment
		jmp	code_2cfb

code_2ccb:	pushi	$8d		; 141, new
		push2
		push0
		push0
		class	LongInt
		send	$8
		bnot
		sat	temp[$0]
		ldi	$0
		aTop	pStrength
		aTop	pDexterity
		aTop	pIntelligence
		aTop	pEndurance
		pushi	$3d5		; 981, setValue
		push1
		lst	temp[$0]
		self	$6
		bnot
		pushi	$3d8		; 984, setManaValue
		push1
		lst	temp[$0]
		self	$6
		bnot
		ldi	$0
		aTop	pLevel
		aTop	pAlignment
code_2cfb:	pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHealth
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHealthHi
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHealthMax
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHealthMaxHi
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		self	$6
		bnot
		sat	temp[$1]
		bnt	code_2f9a
		pushi	$139		; 313, getString
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$3]
		pushi	$42a		; 1066, setTitle
		push1
		push
		lat	temp[$1]
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$3]
		send	$4
		bnot
		lst	temp[$4]
		ldi	$2
		and
		bnt	code_2e8d
		pushi	$42b		; 1067, pExperience
		push0
		lat	temp[$1]
		send	$4
		bnot
		bnt	code_2d7e
		pushi	$136		; 310, getLong
		push1
		pushi	$42b		; 1067, pExperience
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		jmp	code_2d91

code_2d7e:	pushi	$42b		; 1067, pExperience
		push1
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
code_2d91:	pushi	$42c		; 1068, pStealingCount
		push1
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		pushi	$42d		; 1069, pStealingUnserved
		push1
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		pushi	$42e		; 1070, pKillingCount
		push1
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		pushi	$42f		; 1071, pKillingUnserved
		push1
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		ldi	$0
		sat	temp[$2]
code_2de1:	lst	temp[$2]
		ldi	$1f		; 31, brBottom
		lt?
		bnt	code_2e08
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$2]
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$430		; 1072, pSkillArray
		push0
		lat	temp[$1]
		send	$4
		bnot
		send	$8
		bnot
		+at	temp[$2]
		jmp	code_2de1

code_2e08:	ldi	$0
		sat	temp[$2]
code_2e0c:	lst	temp[$2]
		ldi	$94		; 148, init
		lt?
		bnt	code_2e34
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$2]
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$431		; 1073, pSpellArray
		push0
		lat	temp[$1]
		send	$4
		bnot
		send	$8
		bnot
		+at	temp[$2]
		jmp	code_2e0c

code_2e34:	ldi	$0
		sat	temp[$2]
code_2e38:	lst	temp[$2]
		ldi	$64		; 100, 'd', moveDone
		lt?
		bnt	code_2e77
		pushi	$322		; 802, pStatusArray
		push0
		class	CharInfo
		send	$4
		bnot
		bnt	code_2e6a
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$2]
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$322		; 802, pStatusArray
		push0
		class	CharInfo
		send	$4
		bnot
		send	$8
		bnot
		jmp	code_2e73

code_2e6a:	pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
code_2e73:	+at	temp[$2]
		jmp	code_2e38

code_2e77:	pushi	$432		; 1074, pBuildPoints
		push1
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		jmp	code_2f78

code_2e8d:	pushi	$42b		; 1067, pExperience
		push1
		pushi	$8d		; 141, new
		push2
		push0
		push0
		class	LongInt
		send	$8
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		pushi	$42c		; 1068, pStealingCount
		push1
		pushi	$8d		; 141, new
		push2
		push0
		push0
		class	LongInt
		send	$8
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		pushi	$42d		; 1069, pStealingUnserved
		push1
		pushi	$8d		; 141, new
		push2
		push0
		push0
		class	LongInt
		send	$8
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		pushi	$42e		; 1070, pKillingCount
		push1
		pushi	$8d		; 141, new
		push2
		push0
		push0
		class	LongInt
		send	$8
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		pushi	$42f		; 1071, pKillingUnserved
		push1
		pushi	$8d		; 141, new
		push2
		push0
		push0
		class	LongInt
		send	$8
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		ldi	$0
		sat	temp[$2]
code_2efa:	lst	temp[$2]
		ldi	$1f		; 31, brBottom
		lt?
		bnt	code_2f18
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$2]
		push0
		pushi	$430		; 1072, pSkillArray
		push0
		lat	temp[$1]
		send	$4
		bnot
		send	$8
		bnot
		+at	temp[$2]
		jmp	code_2efa

code_2f18:	ldi	$0
		sat	temp[$2]
code_2f1c:	lst	temp[$2]
		ldi	$94		; 148, init
		lt?
		bnt	code_2f3b
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$2]
		push0
		pushi	$431		; 1073, pSpellArray
		push0
		lat	temp[$1]
		send	$4
		bnot
		send	$8
		bnot
		+at	temp[$2]
		jmp	code_2f1c

code_2f3b:	ldi	$0
		sat	temp[$2]
code_2f3f:	lst	temp[$2]
		ldi	$64		; 100, 'd', moveDone
		lt?
		bnt	code_2f6e
		pushi	$322		; 802, pStatusArray
		push0
		class	CharInfo
		send	$4
		bnot
		bnt	code_2f68
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$2]
		push0
		pushi	$322		; 802, pStatusArray
		push0
		class	CharInfo
		send	$4
		bnot
		send	$8
		bnot
		jmp	code_2f6a

code_2f68:	ldi	$0
code_2f6a:	+at	temp[$2]
		jmp	code_2f3f

code_2f6e:	pushi	$432		; 1074, pBuildPoints
		push1
		push0
		lat	temp[$1]
		send	$6
		bnot
code_2f78:	pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pArmorClass
		selfID
		sat	temp[$1]
		pushi	$433		; 1075, pPeaceful
		push1
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
code_2f9a:	ret

WorldObject::buildExtendedPacket:
		link	$1
		pushi	$13a		; 314, putByte
		push1
		pTos	pStrength
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pDexterity
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pIntelligence
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pEndurance
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	pAlignment
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	xScaleAdj
		lap	param[$1]
		send	$6
		bnot
		pushi	$13a		; 314, putByte
		push1
		pTos	yScaleAdj
		lap	param[$1]
		send	$6
		bnot
		ret

WorldObject::getServIDs:
		push1
		lofsa	string_03d2	; "getServIDs called"
		push
		calle	export60029_0, $2
		bnot
		ret

WorldObject::nextFeature:
		pushi	$63		; 99, 'c', perform
		push1
		pushi	$3a2		; 930, nextFeature
		&rest	$1
		self	$6
		bnot
		ret

WorldObject::prevFeature:
		pushi	$63		; 99, 'c', perform
		push1
		pushi	$3a3		; 931, prevFeature
		&rest	$1
		self	$6
		bnot
		ret

WorldObject::setView:
		lap	param[$1]
		aTop	pBaseView
		pTos	pBaseView
		pToa	pAction
		add
		aTop	view
		ret

WorldObject::changed:
		link	$1
		pToa	pMovieCmd
		bnt	code_3042
		pushi	$434		; 1076, pDone
		push0
		send	$4
		bnot
		bnt	code_303a
		pushi	$95		; 149, dispose
		push0
		pToa	pMovieCmd
		send	$4
		bnot
		jmp	code_3042

code_303a:	pushi	$45		; 69, 'E', doit
		push0
		pToa	pMovieCmd
		send	$4
		bnot
code_3042:	pToa	pBaseList
		bnt	code_3078
		pushi	$4		; scaleX
		pushi	$14		; 20, nsRight
		push
		pushi	$97		; 151, isKindOf
		class	BContainer
		push
		callk	kernel_90, $8
		bnot
		sat	temp[$0]
		bnt	code_3078
		pushi	$420		; 1056, pContents
		push0
		send	$4
		bnot
		bnt	code_3078
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$3cb		; 971, changed
		pushi	$420		; 1056, pContents
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
code_3078:	ret

WorldObject::sendMovie:
		link	$3
		pToa	pSendMovie
		bt	code_308a
		lsp	param[$0]
		ldi	$0
		gt?
		bnt	code_3131
		lap	param[$1]
code_308a:	bnt	code_3131
		pToa	mover
		bnt	code_309d
		pushi	$3ce		; 974, recordMotion
		push2
		pTos	x
		pTos	y
		self	$8
		bnot
code_309d:	pToa	pOutgoingMovie
		bnt	code_3131
		pushi	$5a		; 90, 'Z', size
		push0
		send	$4
		bnot
		bnt	code_3131
		pushi	$2f8		; 760, buildPacket
		push0
		pToa	pOutgoingMovie
		send	$4
		bnot
		sat	temp[$1]
		pToa	pRoom
		bnt	code_30f4
		pushi	$97		; 151, isKindOf
		push1
		class	CombatRoom
		push
		pToa	pRoom
		send	$6
		bnot
		bnt	code_30e6
		pushi	$2f5		; 757, pNumber
		push0
		pushi	$4b		; 75, 'K', at
		push1
		push0
		pushi	$2c1		; 705, pRoomList
		push0
		lag	global[$30]
		send	$4
		bnot
		send	$6
		bnot
		send	$4
		bnot
		sat	temp[$2]
		jmp	code_30f8

code_30e6:	pushi	$2f5		; 757, pNumber
		push0
		pToa	pRoom
		send	$4
		bnot
		sat	temp[$2]
		jmp	code_30f8

code_30f4:	ldi	$0
		sat	temp[$2]
code_30f8:	pushi	$7		; priority
		pushi	$e		; 14, view
		lofsa	string_03e4	; "tpla"
		push
		pushi	$29		; 41, ')', state
		pushSelf
		lst	temp[$2]
		pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		callk	kernel_128, $e
		bnot
		ldi	$0
		aTop	pSendMovie
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		pushi	$435		; 1077, toss
		push0
		pToa	pOutgoingMovie
		send	$4
		bnot
code_3131:	ret

WorldObject::moveDone:
		pToa	pPlayMovie
		not
		bnt	code_3143
		pushi	$3ce		; 974, recordMotion
		push2
		pTos	x
		pTos	y
		self	$8
		bnot
code_3143:	ret

WorldObject::recordPosn:
		pToa	pOutgoingMovie
		bnt	code_317d
		pToa	pPlayMovie
		not
		bnt	code_317d
		pushi	$9f		; 159, add
		push1
		pushi	$94		; 148, init
		pushi	$3		; z
		pTos	x
		pTos	y
		pTos	loop
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push1
		push1
		push2
		pushi	$9ca5		; -25435
		push0
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		send	$e
		bnot
		push
		pToa	pOutgoingMovie
		send	$6
		bnot
code_317d:	ret

WorldObject::recordMotion:
		pToa	pOutgoingMovie
		bnt	code_31b9
		pToa	pPlayMovie
		not
		bnt	code_31b9
		pToa	pRecordMotion
		bnt	code_31b9
		pushi	$9f		; 159, add
		push1
		pushi	$94		; 148, init
		push2
		lsp	param[$1]
		lsp	param[$2]
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push1
		push1
		push2
		pushi	$9ca5		; -25435
		push1
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		send	$c
		bnot
		push
		pToa	pOutgoingMovie
		send	$6
		bnot
code_31b9:	ret

WorldObject::recordHide:
		pToa	pOutgoingMovie
		bnt	code_31ec
		pToa	pPlayMovie
		not
		bnt	code_31ec
		pushi	$9f		; 159, add
		push1
		pushi	$94		; 148, init
		push0
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push1
		push1
		push2
		pushi	$9ca5		; -25435
		pushi	$3		; z
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		send	$8
		bnot
		push
		pToa	pOutgoingMovie
		send	$6
		bnot
code_31ec:	ret

WorldObject::recordShow:
		pToa	pOutgoingMovie
		bnt	code_321e
		pToa	pPlayMovie
		not
		bnt	code_321e
		pushi	$9f		; 159, add
		push1
		pushi	$94		; 148, init
		push0
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push1
		push1
		push2
		pushi	$9ca5		; -25435
		push2
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		send	$8
		bnot
		push
		pToa	pOutgoingMovie
		send	$6
		bnot
code_321e:	ret

WorldObject::recordHeading:
		pToa	pOutgoingMovie
		bnt	code_3259
		pToa	pPlayMovie
		not
		bnt	code_3259
		pToa	pRecordMotion
		bnt	code_3259
		pushi	$9f		; 159, add
		push1
		pushi	$94		; 148, init
		push1
		lsp	param[$1]
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push1
		push1
		push2
		pushi	$9ca5		; -25435
		pushi	$4		; scaleX
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		send	$a
		bnot
		push
		pToa	pOutgoingMovie
		send	$6
		bnot
code_3259:	ret

WorldObject::setHeading:
		link	$1
		pToa	loop
		sat	temp[$0]
		push2
		pushSelf
		lsp	param[$1]
		callk	kernel_95, $4
		bnot
		lst	temp[$0]
		pToa	loop
		ne?
		bnt	code_3292
		pToa	pPlayMovie
		not
		bnt	code_327f
		pushi	$3d1		; 977, recordHeading
		push1
		lsp	param[$1]
		self	$6
		bnot
code_327f:	lat	temp[$0]
		aTop	loop
		pushi	$15a		; 346, setHeading
		push1
		lsp	param[$1]
		&rest	$2
		super	Act, $6
		bnot
		jmp	code_32a5

code_3292:	lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_32a5
		pushi	$c7		; 199, cue
		push0
		ldi	$1
		lapi	param[$1]
		send	$4
		bnot
code_32a5:	ret

WorldObject::getAffectedState:
		pToa	pAffectedHi
		bnt	code_32b4
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		send	$6
		bnot
		ret

code_32b4:	ldi	$0
		ret

WorldObject::setAffectedState:
		link	$3
		pToa	pAffectedHi
		not
		bnt	code_32cc
		pushi	$8d		; 141, new
		push1
		pushi	$64		; 100, 'd', moveDone
		class	ByteArray
		send	$6
		bnot
		aTop	pAffectedHi
code_32cc:	pushi	$4b		; 75, 'K', at
		push2
		lsp	param[$1]
		push1
		pToa	pAffectedHi
		send	$8
		bnot
		lsp	param[$1]
		ldi	$12		; 18, nsLeft
		eq?
		bt	code_32e4
		lsp	param[$1]
		ldi	$15		; 21, nsBottom
		eq?
code_32e4:	bnt	code_332d
		pushi	$97		; 151, isKindOf
		push1
		class	WorldEgo
		push
		self	$6
		bnot
		bt	code_3302
		lag	global[$1]
		bnt	code_3345
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$11		; 17, bitmap
		send	$6
		bnot
code_3302:	bnt	code_3345
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	InvisibleClut
		send	$4
		bnot
		sat	temp[$0]
		send	$4
		bnot
		lat	temp[$0]
		aTop	pInvisibleClut
		push0
		call	code_0869, $0
		bnot
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
		jmp	code_3345

code_332d:	lsp	param[$1]
		ldi	$58		; 88, 'X', delete
		ge?
		bnt	code_3345
		lsp	param[$1]
		ldi	$62		; 98, 'b', vol
		le?
		bnt	code_3345
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
code_3345:	pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
		sat	temp[$1]
		bnt	code_335b
		pushi	$436		; 1078, updateContainerButton
		push0
		send	$4
		bnot
code_335b:	pushi	$3e0		; 992, setVisible
		push0
		self	$4
		bnot
		ret

WorldObject::clearAffectedState:
		link	$2
		pToa	pAffectedHi
		not
		bnt	code_336c
		ret

code_336c:	pushi	$4b		; 75, 'K', at
		push2
		lsp	param[$1]
		push0
		pToa	pAffectedHi
		send	$8
		bnot
		lsp	param[$1]
		ldi	$12		; 18, nsLeft
		eq?
		bt	code_3384
		lsp	param[$1]
		ldi	$15		; 21, nsBottom
		eq?
code_3384:	bnt	code_33aa
		pToa	pInvisibleClut
		bnt	code_33dd
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pInvisibleClut
		push0
		call	code_08b7, $0
		bnot
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
		jmp	code_33dd

code_33aa:	lsp	param[$1]
		ldi	$58		; 88, 'X', delete
		ge?
		bnt	code_33c5
		lsp	param[$1]
		ldi	$62		; 98, 'b', vol
		le?
		bnt	code_33c5
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
		jmp	code_33dd

code_33c5:	lsp	param[$1]
		ldi	$58		; 88, 'X', delete
		ge?
		bnt	code_33dd
		lsp	param[$1]
		ldi	$62		; 98, 'b', vol
		le?
		bnt	code_33dd
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
code_33dd:	pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
		sat	temp[$0]
		bnt	code_33f3
		pushi	$436		; 1078, updateContainerButton
		push0
		send	$4
		bnot
code_33f3:	pushi	$3e0		; 992, setVisible
		push0
		self	$4
		bnot
		ret

WorldObject::setValue:
		link	$4
		pToa	pValue
		not
		bnt	code_340e
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pValue
code_340e:	pushi	$b5		; 181, set
		push2
		pushi	$10d		; 269, lowWord
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$10e		; 270, hiWord
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pValue
		send	$8
		bnot
		pushi	$129		; 297, less
		push1
		push0
		pToa	pValue
		send	$6
		bnot
		bnt	code_3443
		pushi	$b5		; 181, set
		push2
		push0
		push0
		pToa	pValue
		send	$8
		bnot
code_3443:	pToa	pMoney
		bnt	code_354f
		pushi	$131		; 305, asStr
		push0
		pToa	pValue
		send	$4
		bnot
		sat	temp[$2]
		pushi	$3db		; 987, setName
		push1
		pushi	$f5		; 245, format
		pushi	$3		; z
		lofsa	string_03e9	; "%s gold coin%s"
		push
		lst	temp[$2]
		pushi	$127		; 295, equal
		push1
		push1
		pToa	pValue
		send	$6
		bnot
		bnt	code_3477
		lofsa	string_03f8	; ""
		jmp	code_347a

code_3477:	lofsa	string_03f9	; "s"
code_347a:	push
		class	Str
		send	$a
		bnot
		push
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		pushi	$110		; 272, addLong
		push1
		pTos	pValue
		send	$6
		bnot
		pushi	$127		; 295, equal
		push2
		push0
		push0
		lat	temp[$0]
		send	$8
		bnot
		not
		bnt	code_3524
		pushi	$113		; 275, mul
		push1
		pushi	$a		; 10, inTop
		lat	temp[$0]
		send	$6
		bnot
		pushi	$115		; 277, div
		push1
		pushi	$32		; 50, '2', edit
		lat	temp[$0]
		send	$6
		bnot
		pushi	$129		; 297, less
		push1
		push0
		lat	temp[$0]
		send	$6
		bnot
		bnt	code_34de
		pushi	$b5		; 181, set
		push1
		pushi	$64		; 100, 'd', moveDone
		lat	temp[$0]
		send	$6
		bnot
code_34de:	pushi	$12d		; 301, greater
		push1
		pushi	$64		; 100, 'd', moveDone
		lat	temp[$0]
		send	$6
		bnot
		bnt	code_34f7
		pushi	$b5		; 181, set
		push1
		pushi	$64		; 100, 'd', moveDone
		lat	temp[$0]
		send	$6
		bnot
code_34f7:	pushi	$113		; 275, mul
		push1
		push1
		pushSelf
		callk	kernel_22, $2
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		pushi	$115		; 277, div
		push1
		pushi	$64		; 100, 'd', moveDone
		lat	temp[$0]
		send	$6
		bnot
		pushi	$10d		; 269, lowWord
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		ldi	$1
		add
		aTop	cel
		jmp	code_3528

code_3524:	ldi	$0
		aTop	cel
code_3528:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
		sat	temp[$1]
		bnt	code_354f
		pushi	$436		; 1078, updateContainerButton
		push0
		send	$4
		bnot
code_354f:	pushSelf
		lag	global[$1]
		eq?
		bnt	code_3593
		push1
		pushi	$437		; 1079, pMoneyObj
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_3593
		pushi	$97		; 151, isKindOf
		push1
		class	Money
		push
		pushi	$437		; 1079, pMoneyObj
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_3593
		pushi	$3d5		; 981, setValue
		push1
		pTos	pValue
		pushi	$437		; 1079, pMoneyObj
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$6
		bnot
code_3593:	ret

WorldObject::setManaValue:
		link	$4
		pToa	pManaValue
		not
		bnt	code_35a7
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pManaValue
code_35a7:	pushi	$b5		; 181, set
		push2
		pushi	$10d		; 269, lowWord
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$10e		; 270, hiWord
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pManaValue
		send	$8
		bnot
		pushi	$129		; 297, less
		push1
		push0
		pToa	pManaValue
		send	$6
		bnot
		bnt	code_35dc
		pushi	$b5		; 181, set
		push2
		push0
		push0
		pToa	pManaValue
		send	$8
		bnot
code_35dc:	pToa	pMoney
		bnt	code_36e8
		pushi	$131		; 305, asStr
		push0
		pToa	pManaValue
		send	$4
		bnot
		sat	temp[$2]
		pushi	$3db		; 987, setName
		push1
		pushi	$f5		; 245, format
		pushi	$3		; z
		lofsa	string_03fb	; "%s mana crystal%s"
		push
		lst	temp[$2]
		pushi	$127		; 295, equal
		push1
		push1
		pToa	pManaValue
		send	$6
		bnot
		bnt	code_3610
		lofsa	string_03f8	; ""
		jmp	code_3613

code_3610:	lofsa	string_03f9	; "s"
code_3613:	push
		class	Str
		send	$a
		bnot
		push
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		pushi	$110		; 272, addLong
		push1
		pTos	pManaValue
		send	$6
		bnot
		pushi	$127		; 295, equal
		push2
		push0
		push0
		lat	temp[$0]
		send	$8
		bnot
		not
		bnt	code_36bd
		pushi	$113		; 275, mul
		push1
		pushi	$a		; 10, inTop
		lat	temp[$0]
		send	$6
		bnot
		pushi	$115		; 277, div
		push1
		pushi	$32		; 50, '2', edit
		lat	temp[$0]
		send	$6
		bnot
		pushi	$129		; 297, less
		push1
		push0
		lat	temp[$0]
		send	$6
		bnot
		bnt	code_3677
		pushi	$b5		; 181, set
		push1
		pushi	$64		; 100, 'd', moveDone
		lat	temp[$0]
		send	$6
		bnot
code_3677:	pushi	$12d		; 301, greater
		push1
		pushi	$64		; 100, 'd', moveDone
		lat	temp[$0]
		send	$6
		bnot
		bnt	code_3690
		pushi	$b5		; 181, set
		push1
		pushi	$64		; 100, 'd', moveDone
		lat	temp[$0]
		send	$6
		bnot
code_3690:	pushi	$113		; 275, mul
		push1
		push1
		pushSelf
		callk	kernel_22, $2
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		pushi	$115		; 277, div
		push1
		pushi	$64		; 100, 'd', moveDone
		lat	temp[$0]
		send	$6
		bnot
		pushi	$10d		; 269, lowWord
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		ldi	$1
		add
		aTop	cel
		jmp	code_36c1

code_36bd:	ldi	$0
		aTop	cel
code_36c1:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		self	$6
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
		sat	temp[$1]
		bnt	code_36e8
		pushi	$436		; 1078, updateContainerButton
		push0
		send	$4
		bnot
code_36e8:	pushSelf
		lag	global[$1]
		eq?
		bnt	code_372c
		push1
		pushi	$438		; 1080, pManaObj
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_372c
		pushi	$97		; 151, isKindOf
		push1
		class	Mana
		push
		pushi	$438		; 1080, pManaObj
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_372c
		pushi	$3d8		; 984, setManaValue
		push1
		pTos	pValue
		pushi	$438		; 1080, pManaObj
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$6
		bnot
code_372c:	ret

WorldObject::addValue:
		link	$1
		pToa	pValue
		bnt	code_3765
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		pushi	$110		; 272, addLong
		push1
		pTos	pValue
		send	$6
		bnot
		pushi	$110		; 272, addLong
		push1
		lsp	param[$1]
		lat	temp[$0]
		send	$6
		bnot
		pushi	$3d5		; 981, setValue
		push1
		lst	temp[$0]
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_3765:	ret

WorldObject::subValue:
		link	$1
		pToa	pValue
		bnt	code_379e
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		pushi	$110		; 272, addLong
		push1
		pTos	pValue
		send	$6
		bnot
		pushi	$112		; 274, subLong
		push1
		lsp	param[$1]
		lat	temp[$0]
		send	$6
		bnot
		pushi	$3d5		; 981, setValue
		push1
		lst	temp[$0]
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_379e:	ret

WorldObject::addManaValue:
		link	$1
		pToa	pManaValue
		bnt	code_37d7
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		pushi	$110		; 272, addLong
		push1
		pTos	pManaValue
		send	$6
		bnot
		pushi	$110		; 272, addLong
		push1
		lsp	param[$1]
		lat	temp[$0]
		send	$6
		bnot
		pushi	$3d8		; 984, setManaValue
		push1
		lst	temp[$0]
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_37d7:	ret

WorldObject::subManaValue:
		link	$1
		pToa	pManaValue
		bnt	code_3810
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		pushi	$110		; 272, addLong
		push1
		pTos	pManaValue
		send	$6
		bnot
		pushi	$112		; 274, subLong
		push1
		lsp	param[$1]
		lat	temp[$0]
		send	$6
		bnot
		pushi	$3d8		; 984, setManaValue
		push1
		lst	temp[$0]
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_3810:	ret

WorldObject::setName:
		link	$1
		push1
		pTos	pName
		calle	export60000_0, $2
		bnot
		bnt	code_382d
		pushi	$95		; 149, dispose
		push0
		pToa	pName
		send	$4
		bnot
		ldi	$0
		aTop	pName
code_382d:	lap	param[$1]
		bnt	code_3852
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_3845
		lap	param[$1]
		aTop	pName
		jmp	code_3852

code_3845:	pushi	$d0		; 208, with
		push1
		lsp	param[$1]
		class	Str
		send	$6
		bnot
		aTop	pName
code_3852:	pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
		sat	temp[$0]
		bnt	code_3868
		pushi	$436		; 1078, updateContainerButton
		push0
		send	$4
		bnot
code_3868:	pToa	pName
		ret

WorldObject::setServID:
		lap	param[$1]
		aTop	pServIDLo
		lap	param[$2]
		aTop	pServIDHi
		ret

WorldObject::servIDEquals:
		lsp	param[$0]
		ldi	$1
		eq?
		bnt	code_388d
		pushi	$127		; 295, equal
		push2
		pTos	pServIDLo
		pTos	pServIDHi
		lap	param[$1]
		send	$8
		bnot
		ret

		jmp	code_389d

code_388d:	pTos	pServIDLo
		lap	param[$1]
		eq?
		bnt	code_389c
		pTos	pServIDHi
		ldi	$1
		lapi	param[$1]
		eq?
code_389c:	ret

code_389d:	ret

WorldObject::matchServID:
		pushi	$127		; 295, equal
		push2
		pTos	pServIDLo
		pTos	pServIDHi
		lap	param[$1]
		send	$8
		bnot
		ret

WorldObject::setCombatGroup:
		pToa	pCombatGroup
		not
		bnt	code_38c2
		pushi	$8d		; 141, new
		push2
		pushi	$ff		; 255, asInteger
		dup
		class	LongInt
		send	$8
		bnot
		aTop	pCombatGroup
code_38c2:	pushi	$10f		; 271, setLong
		push1
		lsp	param[$1]
		pToa	pCombatGroup
		send	$6
		bnot
		ret

WorldObject::deleteFromServer:
		link	$1
		lag	global[$6a]
		bnt	code_38ef
		pTos	pServIDLo
		pToa	pServIDHi
		eq?
		bnt	code_38e2
		pprev
		ldi	$ff		; 255, asInteger
		eq?
code_38e2:	not
		bnt	code_38ef
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		lag	global[$6a]
		send	$6
		bnot
code_38ef:	pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		self	$6
		bnot
		sat	temp[$0]
		bnt	code_391b
		pushi	$420		; 1056, pContents
		push0
		send	$4
		bnot
		bnt	code_391b
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$3dc		; 988, deleteFromServer
		pushi	$420		; 1056, pContents
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
code_391b:	pushi	$3df		; 991, setServID
		push2
		pushi	$ff		; 255, asInteger
		dup
		self	$8
		bnot
		ret

WorldObject::addToServer:
		link	$2
		lag	global[$6a]
		bnt	code_3947
		pTos	pServIDLo
		pToa	pServIDHi
		eq?
		bnt	code_3939
		pprev
		ldi	$ff		; 255, asInteger
		eq?
code_3939:	not
		bnt	code_3947
		pushi	$9f		; 159, add
		push1
		pushSelf
		lag	global[$6a]
		send	$6
		bnot
code_3947:	pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		self	$6
		bnot
		sat	temp[$0]
		bnt	code_3973
		pushi	$420		; 1056, pContents
		push0
		send	$4
		bnot
		bnt	code_3973
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$3dd		; 989, addToServer
		pushi	$420		; 1056, pContents
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
code_3973:	ret

WorldObject::getName:
		pToa	pIDName
		bnt	code_39a4
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$20		; 32, ' ', name
		self	$6
		bnot
		bt	code_398e
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$57		; 87, 'W', draw
		self	$6
		bnot
code_398e:	bnt	code_39a4
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$4a		; 74, 'J', setPri
		self	$6
		bnot
		not
		bnt	code_39a4
		pToa	pIDName
		ret

		jmp	code_39a7

code_39a4:	pToa	pName
		ret

code_39a7:	ret

		link	$1
		lsp	param[$1]
		ldi	$30		; 48, '0', who
		sub
		sap	param[$1]
		push
		ldi	$4		; scaleX
		div
		push
		ldi	$3		; z
		mul
		push
		ldi	$b		; 11, inRight
		add
		sat	temp[$0]
		ret

		link	$2
		push2
		pushi	$9		; inLeft
		lsp	param[$1]
		callk	kernel_91, $4
		bnot
		sat	temp[$1]
		pushi	$b		; 11, inRight
		pushi	$3		; z
		push2
		push
		push0
		callk	kernel_91, $6
		bnot
		push
		pushi	$61		; 97, 'a', frame
		pushi	$65		; 101, 'e', topString
		pushi	$69		; 105, 'i', hide
		pushi	$6f		; 111, 'o', resY
		pushi	$75		; 117, 'u', show
		pushi	$41		; 65, 'A', moveSpeed
		pushi	$45		; 69, 'E', doit
		pushi	$49		; 73, 'I', replay
		pushi	$4f		; 79, 'O', pragmaFail
		pushi	$55		; 85, 'U', button
		calle	export60025_4, $16
		bnot
		bnt	code_3a0b
		pushi	$f5		; 245, format
		push2
		lofsa	string_0419	; "n %s"
		push
		lst	temp[$1]
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		jmp	code_3a1c

code_3a0b:	pushi	$f5		; 245, format
		push2
		lofsa	string_041e	; " %s"
		push
		lst	temp[$1]
		class	Str
		send	$8
		bnot
		sat	temp[$0]
code_3a1c:	lat	temp[$0]
		ret

ApproachScript::init:
		pToa	pClient
		bnt	code_3a2c
		pushi	$40c		; 1036, pApproachScript
		push1
		pushSelf
		send	$6
		bnot
code_3a2c:	pushi	$94		; 148, init
		push0
		&rest	$1
		super	DemonsScript, $4
		bnot
		ret

ApproachScript::dispose:
		pToa	pClient
		bnt	code_3a44
		pushi	$40c		; 1036, pApproachScript
		push1
		push0
		send	$6
		bnot
code_3a44:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	DemonsScript, $4
		bnot
		ret

ApproachScript::changeState:
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_3a88
		pushi	$381		; 897, pMode
		push0
		pToa	pClient
		send	$4
		bnot
		push
		ldi	$2
		and
		bnt	code_3a75
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		jmp	code_3ae2

code_3a75:	pushi	$39b		; 923, goto
		pushi	$3		; z
		pTos	pApproachX
		pTos	pApproachY
		pushSelf
		pToa	pClient
		send	$a
		bnot
		jmp	code_3ae2

code_3a88:	dup
		ldi	$1
		eq?
		bnt	code_3ae2
		lsg	global[$ff]
		ldi	$1f		; 31, brBottom
		and
		not
		bnt	code_3adb
		pToa	caller
		bnt	code_3adb
		pushi	$4		; scaleX
		push1
		push0
		pToa	pClient
		send	$4
		bnot
		push
		push2
		push0
		pToa	pClient
		send	$4
		bnot
		push
		push1
		push0
		pToa	pObject
		send	$4
		bnot
		push
		push2
		push0
		pToa	pObject
		send	$4
		bnot
		push
		callk	kernel_64, $8
		bnot
		push
		pToa	pDistance
		gt?
		bnt	code_3adb
		pushi	$9c		; 156, handleError
		pushi	$3		; z
		pTos	pClient
		pushi	$c350		; -15536
		dup
		pToa	caller
		send	$a
		bnot
code_3adb:	pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_3ae2:	toss
		ret

