BCharacter::init:
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	WorldObjectBase, $4
		bnot
		pushi	$42a		; 1066, setTitle
		push1
		lofsa	string_0044	; ""
		push
		self	$6
		bnot
		pushi	$4c9		; 1225, setProperName
		push1
		lofsa	string_0044	; ""
		push
		self	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	ByteArray
		send	$4
		bnot
		aTop	pSpellArray
		pushi	$8d		; 141, new
		push0
		class	ByteArray
		send	$4
		bnot
		aTop	pSkillArray
		ret

BCharacter::dispose:
		pushi	$4c9		; 1225, setProperName
		push1
		push0
		self	$6
		bnot
		pushi	$42a		; 1066, setTitle
		push1
		push0
		self	$6
		bnot
		pushi	$4ca		; 1226, setBiography
		push1
		push0
		self	$6
		bnot
		pToa	pSpellArray
		bnt	code_00c6
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pSpellArray
code_00c6:	pToa	pSkillArray
		bnt	code_00d5
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pSkillArray
code_00d5:	pToa	pExperience
		bnt	code_00e4
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pExperience
code_00e4:	pToa	pStealingCount
		bnt	code_00f3
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pStealingCount
code_00f3:	pToa	pStealingUnserved
		bnt	code_0102
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pStealingUnserved
code_0102:	pToa	pKillingUnserved
		bnt	code_0111
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pKillingUnserved
code_0111:	pToa	pKillingCount
		bnt	code_0120
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pKillingCount
code_0120:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	WorldObjectBase, $4
		bnot
		ret

BCharacter::setProperName:
		pToa	pProperName
		bnt	code_013a
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pProperName
code_013a:	lap	param[$1]
		bnt	code_014a
		pushi	$d0		; 208, with
		push1
		push
		class	Str
		send	$6
		bnot
		aTop	pProperName
code_014a:	ret

BCharacter::setTitle:
		pToa	pTitle
		bnt	code_015a
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pTitle
code_015a:	lap	param[$1]
		bnt	code_016a
		pushi	$d0		; 208, with
		push1
		push
		class	Str
		send	$6
		bnot
		aTop	pTitle
code_016a:	ret

BCharacter::setBiography:
		pToa	pBiography
		bnt	code_017a
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pBiography
code_017a:	lap	param[$1]
		bnt	code_018a
		pushi	$d0		; 208, with
		push1
		push
		class	Str
		send	$6
		bnot
		aTop	pBiography
code_018a:	ret

BCharacter::fromPacket:
		link	$2
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pProfession
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pRace
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pSex
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		ldi	$64		; 100, 'd', moveDone
		eq?
		bt	code_01cb
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		ldi	$c8		; 200, handleEvent
		eq?
code_01cb:	bnt	code_01eb
		pToa	pSex
		not
		bnt	code_01df
		pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$64		; 100, 'd', moveDone
		pToa	pSelf
		send	$6
		bnot
		jmp	code_01eb

code_01df:	pushi	$3ed		; 1005, pBaseView
		push1
		pushi	$c8		; 200, handleEvent
		pToa	pSelf
		send	$6
		bnot
code_01eb:	pushi	$139		; 313, getString
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
		pushi	$4c9		; 1225, setProperName
		push1
		push
		self	$6
		bnot
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pPeaceful
		pushi	$99		; 153, respondsTo
		push1
		pushi	$433		; 1075, pPeaceful
		pToa	pSelf
		send	$6
		bnot
		bnt	code_0222
		pushi	$433		; 1075, pPeaceful
		push1
		pTos	pPeaceful
		pToa	pSelf
		send	$6
		bnot
code_0222:	pushi	$406		; 1030, pHealth
		push1
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pSelf
		send	$6
		bnot
		pushi	$632		; 1586, pHealthHi
		push1
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pSelf
		send	$6
		bnot
		pushi	$407		; 1031, pHealthMax
		push1
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pSelf
		send	$6
		bnot
		pushi	$633		; 1587, pHealthMaxHi
		push1
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pSelf
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

BCharacter::fromFullPacket:
		link	$2
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pProfession
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pExperience
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pRace
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pSex
		pushi	$139		; 313, getString
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
		pushi	$4c9		; 1225, setProperName
		push1
		push
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$139		; 313, getString
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$1]
		pushi	$42a		; 1066, setTitle
		push1
		push
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		ret

BCharacter::buildVerbList:
		link	$3
		pushi	$97		; 151, isKindOf
		push1
		class	WorldActor
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_04c8
		pTos	pSelf
		lag	global[$1]
		ne?
		bnt	code_04c8
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$2]
		bnt	code_04c8
		class	VerbList
		sat	temp[$0]
		pushi	$381		; 897, pMode
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$2
		and
		bnt	code_036f
		pushi	$4		; scaleX
		pushi	$43b		; 1083, pCombatX
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pushi	$43c		; 1084, pCombatY
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pushi	$43b		; 1083, pCombatX
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$43c		; 1084, pCombatY
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		callk	kernel_64, $8
		bnot
		push
		ldi	$1
		eq?
		bnt	code_04c8
		pushi	$4cc		; 1228, pFriend
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		ldi	$0
		eq?
		bnt	code_04c8
		pushi	$9f		; 159, add
		push1
		pushi	$1b		; 27, illegalBits
		lat	temp[$0]
		send	$6
		bnot
		jmp	code_04c8

code_036f:	lsg	global[$e6]
		ldi	$1
		and
		bnt	code_03b8
		pushi	$35c		; 860, getBase
		push1
		class	BNPC
		push
		pToa	pSelf
		send	$6
		bnot
		not
		bnt	code_03b8
		pushi	$35c		; 860, getBase
		push1
		class	BGatekeeper
		push
		pToa	pSelf
		send	$6
		bnot
		not
		bnt	code_03b8
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$2f		; 47, '/', mark
		lag	global[$1]
		send	$6
		bnot
		not
		bnt	code_03b8
		pushi	$4b		; 75, 'K', at
		push1
		pushi	$19		; 25, lsBottom
		pushi	$430		; 1072, pSkillArray
		push0
		lat	temp[$2]
		send	$4
		bnot
		send	$6
		bnot
		push
		ldi	$0
		gt?
code_03b8:	bt	code_0406
		pushi	$35c		; 860, getBase
		push1
		class	BNPC
		push
		pToa	pSelf
		send	$6
		bnot
		bnt	code_0413
		pushi	$35c		; 860, getBase
		push1
		class	BGatekeeper
		push
		pToa	pSelf
		send	$6
		bnot
		not
		bnt	code_0413
		pushi	$319		; 793, pHead
		push0
		pToa	pSelf
		send	$4
		bnot
		bnt	code_0413
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$2f		; 47, '/', mark
		lag	global[$1]
		send	$6
		bnot
		not
		bnt	code_0413
		pushi	$4b		; 75, 'K', at
		push1
		pushi	$19		; 25, lsBottom
		pushi	$430		; 1072, pSkillArray
		push0
		lat	temp[$2]
		send	$4
		bnot
		send	$6
		bnot
		push
		ldi	$0
		gt?
code_0406:	bnt	code_0413
		pushi	$9f		; 159, add
		push1
		pushi	$78		; 120, 'x', textRight
		lat	temp[$0]
		send	$6
		bnot
code_0413:	pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$1]
		pushi	$b5		; 181, set
		push2
		pushi	$2cb		; 715, pServIDLo
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		pushi	$2cc		; 716, pServIDHi
		push0
		pToa	pSelf
		send	$4
		bnot
		push
		lat	temp[$1]
		send	$8
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BShop
		push
		pToa	pSelf
		send	$6
		bnot
		not
		bnt	code_04bf
		lsg	global[$e6]
		ldi	$4		; scaleX
		and
		bt	code_04b2
		lsg	global[$e6]
		ldi	$1
		and
		bnt	code_0482
		pushi	$35c		; 860, getBase
		push1
		class	BNPC
		push
		pToa	pSelf
		send	$6
		bnot
		not
		bnt	code_0482
		pushi	$37f		; 895, findByServID
		push1
		lst	temp[$1]
		class	GroupList
		send	$6
		bnot
		not
		bnt	code_0482
		pushi	$433		; 1075, pPeaceful
		push0
		pToa	pSelf
		send	$4
		bnot
		not
code_0482:	bt	code_04b2
		lsg	global[$e6]
		ldi	$2
		and
		bnt	code_04bf
		pushi	$35c		; 860, getBase
		push1
		class	BNPC
		push
		pToa	pSelf
		send	$6
		bnot
		bnt	code_04bf
		pushi	$37f		; 895, findByServID
		push1
		lst	temp[$1]
		class	GroupList
		send	$6
		bnot
		not
		bnt	code_04bf
		pushi	$433		; 1075, pPeaceful
		push0
		pToa	pSelf
		send	$4
		bnot
		not
code_04b2:	bnt	code_04bf
		pushi	$9f		; 159, add
		push1
		pushi	$70		; 112, 'p', coordType
		lat	temp[$0]
		send	$6
		bnot
code_04bf:	pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
code_04c8:	ret

