BDescribed::init:
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	WorldObjectBase, $4
		bnot
		lofsa	blankText
		aTop	pText
		ret

BDescribed::dispose:
		pToa	pText
		bnt	code_0074
		push
		lofsa	blankText
		ne?
		bnt	code_0070
		pushi	$95		; 149, dispose
		push0
		pToa	pText
		send	$4
		bnot
code_0070:	ldi	$0
		aTop	pText
code_0074:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	WorldObjectBase, $4
		bnot
		ret

BDescribed::handlesAction:
		push2
		lsp	param[$1]
		pushi	$2fd		; 765, see
		calle	export60025_4, $4
		bnot
		ret

BDescribed::see:
		pushi	$c3		; 195, script
		push0
		pToa	pSelf
		send	$4
		bnot
		bnt	code_00a6
		push1
		lofsa	string_0085	; "Trying to see a BDescribed with script attached to pSelf."
		push
		calle	export60029_0, $2
		bnot
		jmp	code_00ba

code_00a6:	pushi	$c9		; 201, setScript
		push1
		pushi	$8d		; 141, new
		push0
		lofsa	GetDescriptionScript
		send	$4
		bnot
		push
		pToa	pSelf
		send	$6
		bnot
code_00ba:	ldi	$0
		ret

BDescribed::setText:
		pToa	pText
		bnt	code_00d5
		push
		lofsa	blankText
		ne?
		bnt	code_00d1
		pushi	$95		; 149, dispose
		push0
		pToa	pText
		send	$4
		bnot
code_00d1:	ldi	$0
		aTop	pText
code_00d5:	lap	param[$1]
		bnt	code_00ed
		pushi	$d0		; 208, with
		push1
		push2
		pushi	$9		; inLeft
		push
		callk	kernel_91, $4
		bnot
		push
		class	Str
		send	$6
		bnot
		aTop	pText
code_00ed:	ret

BDescribed::fromPacket:
		ret

GetDescriptionScript::changeState:
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_0120
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		aTop	register
		pushi	$4fa		; 1274, getDescription
		pushi	$3		; z
		pTos	client
		pTos	register
		pushSelf
		lag	global[$6a]
		send	$a
		bnot
		jmp	code_015d

code_0120:	dup
		ldi	$1
		eq?
		bnt	code_015d
		pushi	$278		; 632, controlOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$6		; maxScale
		push2
		pushi	$9		; inLeft
		pTos	register
		callk	kernel_91, $4
		bnot
		push
		pushi	$77		; 119, 'w', textTop
		lofsa	string_00ca	; "Okay"
		push
		push0
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $c
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	register
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_015d:	toss
		ret

