export40207_0	= $0

CreateAttackStanceBitmap::doit:
		link	$5
		pushi	$f		; 15, loop
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$2]
		pushi	$10		; 16, cel
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$3]
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$4]
		pushi	$2fb		; 763, pCombatGroup
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$1]
		pushi	$2fb		; 763, pCombatGroup
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		pushi	$373		; 883, setAction
		push1
		push1
		lsp	param[$1]
		calle	export40111_0, $2
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		pushi	$2fb		; 763, pCombatGroup
		push1
		lst	temp[$1]
		lap	param[$1]
		send	$6
		bnot
		pushi	$f		; 15, loop
		push1
		push2
		pushi	$10		; 16, cel
		push1
		push0
		pushi	$36a		; 874, updateDisplay
		push0
		lap	param[$1]
		send	$10
		bnot
		push2
		pushi	$b		; 11, inRight
		pushi	$11		; 17, bitmap
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		callk	kernel_35, $4
		bnot
		sat	temp[$0]
		pushi	$373		; 883, setAction
		push1
		lst	temp[$4]
		pushi	$f		; 15, loop
		push1
		lst	temp[$2]
		pushi	$10		; 16, cel
		push1
		lst	temp[$3]
		pushi	$36a		; 874, updateDisplay
		push0
		lap	param[$1]
		send	$16
		bnot
		lat	temp[$0]
		ret

CreateHeadBitmap::doit:
		link	$3
		pushi	$35c		; 860, getBase
		push1
		class	BHead
		push
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$0]
		pushi	$466		; 1126, generateBitmap
		push2
		push0
		push0
		send	$8
		bnot
		sat	temp[$1]
		pushi	$3		; z
		pushi	$a		; 10, inTop
		push
		pushi	$17a		; 378, clut
		push0
		pushi	$3a7		; 935, getBaseOwner
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$4
		bnot
		push
		callk	kernel_35, $6
		bnot
		lat	temp[$1]
		ret

CreateStandBitmap::doit:
		link	$3
		pushi	$f		; 15, loop
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$1]
		pushi	$10		; 16, cel
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$2]
		pushi	$f		; 15, loop
		push1
		push2
		pushi	$10		; 16, cel
		push1
		push0
		pushi	$36a		; 874, updateDisplay
		push0
		lap	param[$1]
		send	$10
		bnot
		pushi	$3aa		; 938, createDisplay
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$0]
		pushi	$f		; 15, loop
		push1
		lst	temp[$1]
		pushi	$10		; 16, cel
		push1
		lst	temp[$2]
		pushi	$36a		; 874, updateDisplay
		push0
		lap	param[$1]
		send	$10
		bnot
		lat	temp[$0]
		ret

ArmorInfo::dispose:
		pToa	pType
		bnt	code_023e
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pType
code_023e:	pushi	$95		; 149, dispose
		push0
		super	Obj, $4
		bnot
		ret

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

code_0254:	ldi	$0
		ret

CharInfo::show:
		pToa	pIsSelf
		bnt	code_0269
		pushi	$3		; z
		pushi	$7		; priority
		push0
		class	CharInfo
		push
		callk	kernel_118, $6
		bnot
		jmp	code_0275

code_0269:	pushi	$3		; z
		pushi	$7		; priority
		push1
		class	CharInfo
		push
		callk	kernel_118, $6
		bnot
code_0275:	ret

CharInfo::init:
		link	$2
		pushi	$94		; 148, init
		push0
		&rest	$2
		super	Obj, $4
		bnot
		lag	global[$1]
		not
		bt	code_028c
		lsl	local[$0]
		lag	global[$1]
		eq?
code_028c:	bnt	code_0294
		ldi	$1
		aTop	pIsSelf
		jmp	code_0298

code_0294:	ldi	$0
		aTop	pIsSelf
code_0298:	pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lal	local[$0]
		send	$6
		bnot
		sat	temp[$0]
		pushi	$d0		; 208, with
		push1
		pushi	$315		; 789, pName
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		class	Str
		send	$6
		bnot
		aTop	pName
		pushi	$d0		; 208, with
		push1
		pushi	$4c7		; 1223, pTitle
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		class	Str
		send	$6
		bnot
		aTop	pTitle
		pushi	$d0		; 208, with
		push1
		pushi	$4c5		; 1221, pProfession
		push0
		lat	temp[$0]
		send	$4
		bnot
		lsli	local[$2]
		class	Str
		send	$6
		bnot
		aTop	pProfession
		pushi	$403		; 1027, pLevel
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pLevel
		pushi	$3fc		; 1020, pStrength
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pStrength
		pushi	$3fe		; 1022, pIntelligence
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pIntelligence
		pushi	$3fd		; 1021, pDexterity
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pDexterity
		pushi	$400		; 1024, pEndurance
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pEndurance
		pushi	$406		; 1030, pHealth
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHealth
		pushi	$632		; 1586, pHealthHi
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHealthHi
		pushi	$407		; 1031, pHealthMax
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHealthMax
		pushi	$633		; 1587, pHealthMaxHi
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pHealthMaxHi
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pExperience
		pushi	$10f		; 271, setLong
		push1
		pushi	$42b		; 1067, pExperience
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pToa	pExperience
		send	$6
		bnot
		pushi	$432		; 1074, pBuildPoints
		push0
		lat	temp[$0]
		send	$4
		bnot
		aTop	pBuildPoints
		pushi	$40b		; 1035, pArmorClass
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pArmorRating
		pushi	$433		; 1075, pPeaceful
		push0
		lap	param[$1]
		send	$4
		bnot
		not
		aTop	pPvp
		pushi	$40a		; 1034, pAlignment
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pAlignment
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pBounty
		pushi	$b5		; 181, set
		push1
		push0
		pToa	pBounty
		send	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pManaDrain
		pushi	$b5		; 181, set
		push1
		push0
		pToa	pManaDrain
		send	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pMeleeArmorPierce
		pushi	$b5		; 181, set
		push1
		push0
		pToa	pMeleeArmorPierce
		send	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pEvilMDM
		pushi	$b5		; 181, set
		push1
		push0
		pToa	pEvilMDM
		send	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pGoodMDM
		pushi	$b5		; 181, set
		push1
		push0
		pToa	pGoodMDM
		send	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pBillingDate
		pushi	$b5		; 181, set
		push1
		push0
		pToa	pBillingDate
		send	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pCredits
		pushi	$b5		; 181, set
		push1
		push0
		pToa	pCredits
		send	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pCoppers
		pushi	$b5		; 181, set
		push1
		push0
		pToa	pCoppers
		send	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pNPCKills
		pushi	$b5		; 181, set
		push1
		push0
		pToa	pNPCKills
		send	$6
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pPKills
		pushi	$b5		; 181, set
		push1
		push0
		pToa	pPKills
		send	$6
		bnot
		pushi	$319		; 793, pHead
		push0
		lap	param[$1]
		send	$4
		bnot
		bnt	code_0488
		pushi	$45		; 69, 'E', doit
		push1
		pushi	$319		; 793, pHead
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lofsa	CreateHeadBitmap
		send	$6
		bnot
		aTop	pFace
		jmp	code_0495

code_0488:	pushi	$45		; 69, 'E', doit
		push1
		lsp	param[$1]
		lofsa	CreateStandBitmap
		send	$6
		bnot
		aTop	pFace
code_0495:	pushi	$152		; 338, xScaleAdj
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pAttackWidth
		pushi	$153		; 339, yScaleAdj
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pAttackHeight
		pushi	$45		; 69, 'E', doit
		push1
		lsp	param[$1]
		lofsa	CreateAttackStanceBitmap
		send	$6
		bnot
		aTop	pAttackStance
		pushi	$45		; 69, 'E', doit
		push1
		lsp	param[$1]
		lofsa	CreateStandBitmap
		send	$6
		bnot
		aTop	pStand
		pushi	$d0		; 208, with
		push1
		pushi	$4c8		; 1224, pBiography
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		class	Str
		send	$6
		bnot
		aTop	pBiography
		pushi	$8d		; 141, new
		push0
		class	List
		send	$4
		bnot
		aTop	pArmorInfoList
		pushi	$d3		; 211, copy
		push1
		pushi	$430		; 1072, pSkillArray
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		class	ByteArray
		send	$6
		bnot
		aTop	pSkillArray
		ret

CharInfo::dispose:
		pushi	$95		; 149, dispose
		push0
		pToa	pName
		send	$4
		bnot
		ldi	$0
		aTop	pName
		pToa	pIsSelf
		bnt	code_051d
		pToa	pUpdateTitle
		bnt	code_051d
		pushi	$42a		; 1066, setTitle
		push2
		lsl	local[$0]
		pTos	pTitle
		lag	global[$6a]
		send	$8
		bnot
code_051d:	pushi	$95		; 149, dispose
		push0
		pToa	pTitle
		send	$4
		bnot
		ldi	$0
		aTop	pTitle
		pushi	$95		; 149, dispose
		push0
		pToa	pProfession
		send	$4
		bnot
		ldi	$0
		aTop	pProfession
		pToa	pIsSelf
		bnt	code_054c
		pToa	pUpdateBio
		bnt	code_054c
		pushi	$4ca		; 1226, setBiography
		push2
		lsl	local[$0]
		pTos	pBiography
		lag	global[$6a]
		send	$8
		bnot
code_054c:	ldi	$0
		aTop	pIsSelf
		pushi	$95		; 149, dispose
		push0
		pToa	pBiography
		send	$4
		bnot
		ldi	$0
		aTop	pBiography
		aTop	pLevel
		aTop	pStrength
		aTop	pDexterity
		aTop	pIntelligence
		aTop	pEndurance
		aTop	pHealth
		aTop	pHealthHi
		aTop	pHealthMax
		aTop	pHealthMaxHi
		aTop	pKnowledge
		aTop	pKnowledgeMax
		aTop	pCarry
		aTop	pCarryMax
		pushi	$95		; 149, dispose
		push0
		pToa	pExperience
		send	$4
		bnot
		ldi	$0
		aTop	pExperience
		aTop	pBuildPoints
		aTop	pArmorRating
		aTop	pPvp
		aTop	pAlignment
		aTop	pWanted
		pushi	$95		; 149, dispose
		push0
		pToa	pBounty
		send	$4
		bnot
		ldi	$0
		aTop	pBounty
		pushi	$95		; 149, dispose
		push0
		pToa	pManaDrain
		send	$4
		bnot
		ldi	$0
		aTop	pManaDrain
		pushi	$95		; 149, dispose
		push0
		pToa	pMeleeArmorPierce
		send	$4
		bnot
		ldi	$0
		aTop	pMeleeArmorPierce
		pushi	$95		; 149, dispose
		push0
		pToa	pEvilMDM
		send	$4
		bnot
		ldi	$0
		aTop	pEvilMDM
		pushi	$95		; 149, dispose
		push0
		pToa	pGoodMDM
		send	$4
		bnot
		ldi	$0
		aTop	pGoodMDM
		pushi	$95		; 149, dispose
		push0
		pToa	pAccountType
		send	$4
		bnot
		ldi	$0
		aTop	pAccountType
		pushi	$95		; 149, dispose
		push0
		pToa	pBillingDate
		send	$4
		bnot
		ldi	$0
		aTop	pBillingDate
		pushi	$95		; 149, dispose
		push0
		pToa	pAccountID
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	pCredits
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	pCoppers
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	pCastResist
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	pSpellResist
		send	$4
		bnot
		pToa	pFace
		bnt	code_0621
		push2
		push1
		push
		callk	kernel_35, $4
		bnot
code_0621:	ldi	$0
		aTop	pFace
		push2
		push1
		pTos	pAttackStance
		callk	kernel_35, $4
		bnot
		ldi	$0
		aTop	pAttackStance
		push2
		push1
		pTos	pStand
		callk	kernel_35, $4
		bnot
		ldi	$0
		aTop	pStand
		pushi	$95		; 149, dispose
		push0
		pToa	pArmorInfoList
		send	$4
		bnot
		ldi	$0
		aTop	pArmorInfoList
		pushi	$95		; 149, dispose
		push0
		pToa	pWeaponName
		send	$4
		bnot
		ldi	$0
		aTop	pWeaponName
		aTop	pWeaponDamageMin
		aTop	pWeaponDamageMax
		aTop	pWeaponCondition
		aTop	pAttacksPerRound
		aTop	pDodgesPerRound
		aTop	pBlocksPerRound
		aTop	pAttackDamageMin
		aTop	pAttackDamageMax
		aTop	pMovementRate
		pushi	$95		; 149, dispose
		push0
		pToa	pSkillArray
		send	$4
		bnot
		ldi	$0
		aTop	pSkillArray
		pToa	pStatusArray
		bnt	code_0685
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pStatusArray
code_0685:	pushi	$95		; 149, dispose
		push0
		pToa	pNPCKills
		send	$4
		bnot
		ldi	$0
		aTop	pNPCKills
		pushi	$95		; 149, dispose
		push0
		pToa	pPKills
		send	$4
		bnot
		ldi	$0
		aTop	pPKills
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	Obj, $4
		bnot
		ret

GetCharacterInfo::init:
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$9f		; 159, add
		push1
		pushSelf
		class	DisposeNotifyList
		send	$6
		bnot
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	DemonsScript, $4
		bnot
		ret

GetCharacterInfo::dispose:
		pushi	$278		; 632, controlOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		class	DisposeNotifyList
		send	$6
		bnot
		pToa	scratch
		bnt	code_06e9
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	scratch
code_06e9:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	DemonsScript, $4
		bnot
		ret

GetCharacterInfo::handleError:
		lsp	param[$1]
		class	DisposeNotifyList
		eq?
		bnt	code_070b
		lsp	param[$2]
		lal	local[$0]
		eq?
		bnt	code_070b
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		jmp	code_0717

code_070b:	pushi	$9c		; 156, handleError
		push1
		&rest	$4		; scaleX
		lsp	param[$1]
		super	DemonsScript, $6
		bnot
code_0717:	ret

GetCharacterInfo::changeState:
		link	$2
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_0747
		pushi	$322		; 802, pStatusArray
		push1
		pushi	$8d		; 141, new
		push0
		class	ByteArray
		send	$4
		bnot
		push
		class	CharInfo
		send	$6
		bnot
		pushi	$549		; 1353, getExtendedProps
		push2
		lsl	local[$0]
		pushSelf
		lag	global[$6a]
		send	$8
		bnot
		jmp	code_07fb

code_0747:	dup
		ldi	$1
		eq?
		bnt	code_076b
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		aTop	scratch
		pushi	$50e		; 1294, getBiography
		pushi	$3		; z
		lsl	local[$0]
		pTos	scratch
		pushSelf
		lag	global[$6a]
		send	$a
		bnot
		jmp	code_07fb

code_076b:	dup
		ldi	$2
		eq?
		bnt	code_07e6
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lal	local[$0]
		send	$6
		bnot
		sat	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	scratch
		send	$4
		bnot
		bnt	code_0797
		pushi	$4ca		; 1226, setBiography
		push1
		pTos	scratch
		lat	temp[$0]
		send	$6
		bnot
		jmp	code_07a4

code_0797:	pushi	$4ca		; 1226, setBiography
		push1
		lofsa	string_01cd	; ""
		push
		lat	temp[$0]
		send	$6
		bnot
code_07a4:	pushi	$95		; 149, dispose
		push0
		pToa	scratch
		send	$4
		bnot
		ldi	$0
		aTop	scratch
		pushi	$1a		; 26, signal
		push0
		lal	local[$0]
		send	$4
		bnot
		push
		ldi	$8		; fixPriority
		and
		bnt	code_07c8
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		jmp	code_07fb

code_07c8:	pushi	$94		; 148, init
		push1
		lsl	local[$0]
		class	CharInfo
		send	$6
		bnot
		pushi	$5b9		; 1465, getLookInfo
		pushi	$3		; z
		lsl	local[$0]
		class	CharInfo
		push
		pushSelf
		lag	global[$6a]
		send	$a
		bnot
		jmp	code_07fb

code_07e6:	dup
		ldi	$3		; z
		eq?
		bnt	code_07fb
		pushi	$75		; 117, 'u', show
		push0
		class	CharInfo
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_07fb:	toss
		ret

CreateLookDialog::doit:
		lap	param[$1]
		sal	local[$0]
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		lofsa	GetCharacterInfo
		send	$4
		bnot
		send	$4
		bnot
		ret

