export45011_0	= code_0430

; export45011_0
code_0430:	pushi	$db		; 219, moveTo
		push2
		pushi	$13f		; 319, putString
		pushi	$3		; z
		pushi	$e		; 14, view
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$f		; 15, loop
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		callk	kernel_28, $6
		bnot
		push
		ldi	$2
		div
		sub
		push
		lsp	param[$2]
		lap	param[$1]
		send	$8
		bnot
		ret

fNShirt::buildBaseList:
		link	$1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		pushi	$387		; 903, addBase
		push1
		class	BWearable
		push
		self	$c
		bnot
		pushi	$4d1		; 1233, setAreaWorn
		push1
		push1
		pushi	$4d0		; 1232, pMask
		push1
		pushi	$ff		; 255, asInteger
		pushi	$2fe		; 766, pLayer
		push1
		pushi	$3		; z
		pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		self	$6
		bnot
		sat	temp[$0]
		send	$12
		bnot
		ret

fNPants::buildBaseList:
		link	$1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		pushi	$387		; 903, addBase
		push1
		class	BWearable
		push
		self	$c
		bnot
		pushi	$4d1		; 1233, setAreaWorn
		push1
		pushi	$6		; maxScale
		pushi	$4d0		; 1232, pMask
		push1
		pushi	$ff		; 255, asInteger
		pushi	$2fe		; 766, pLayer
		push1
		push1
		pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		self	$6
		bnot
		sat	temp[$0]
		send	$12
		bnot
		ret

fNShoes::buildBaseList:
		link	$1
		pushi	$387		; 903, addBase
		push1
		class	BCarryable
		push
		pushi	$387		; 903, addBase
		push1
		class	BWearable
		push
		self	$c
		bnot
		pushi	$4d1		; 1233, setAreaWorn
		push1
		pushi	$7		; priority
		pushi	$4d0		; 1232, pMask
		push1
		pushi	$ff		; 255, asInteger
		pushi	$2fe		; 766, pLayer
		push1
		push2
		pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		self	$6
		bnot
		sat	temp[$0]
		send	$12
		bnot
		ret

fNFace::buildBaseList:
		link	$1
		pushi	$387		; 903, addBase
		push1
		class	BHead
		push
		self	$6
		bnot
		pushi	$46e		; 1134, pShow
		push1
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BCarryable
		push
		self	$6
		bnot
		send	$6
		bnot
		ret

fNFace::new:
		link	$1
		pushi	$8d		; 141, new
		push0
		&rest	$1
		super	WorldObject, $4
		bnot
		sat	temp[$0]
		pushi	$94		; 148, init
		push0
		send	$4
		bnot
		lat	temp[$0]
		ret

fNBody::buildBaseList:
		link	$1
		pushi	$387		; 903, addBase
		push1
		class	BCharacter
		push
		pushi	$387		; 903, addBase
		push1
		class	BDescribed
		push
		self	$c
		bnot
		pushi	$46d		; 1133, pBulkCap
		push1
		pushi	$12c		; 300, lessEqualLong
		pushi	$46c		; 1132, pWeightCap
		push1
		pushi	$5dc		; 1500, pDelta
		pushi	$387		; 903, addBase
		push1
		class	BContainer
		push
		self	$6
		bnot
		send	$c
		bnot
		ret

fNBody::getHeadBitmap:
		link	$2
		pushi	$35c		; 860, getBase
		push1
		class	BHead
		push
		pToa	pHead
		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
		pToa	pHead
		send	$4
		bnot
		push
		callk	kernel_35, $6
		bnot
		pushi	$9f		; 159, add
		push1
		lst	temp[$1]
		lag	global[$66]
		send	$6
		bnot
		lat	temp[$1]
		ret

fNBody::getStanceBitmap:
		link	$2
		pushi	$3aa		; 938, createDisplay
		push1
		push1
		self	$6
		bnot
		sat	temp[$1]
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$66]
		send	$6
		bnot
		lat	temp[$1]
		ret

fNBody::getAttackBitmap:
		link	$5
		pToa	loop
		sat	temp[$2]
		pToa	cel
		sat	temp[$3]
		pToa	pAction
		sat	temp[$4]
		pToa	pCombatGroup
		sat	temp[$1]
		ldi	$1
		aTop	pCombatGroup
		pushi	$373		; 883, setAction
		push1
		push1
		pushSelf
		calle	export40111_0, $2
		bnot
		push
		self	$6
		bnot
		lat	temp[$1]
		aTop	pCombatGroup
		pushi	$f		; 15, loop
		push1
		push2
		pushi	$10		; 16, cel
		push1
		push0
		pushi	$36a		; 874, updateDisplay
		push0
		self	$10
		bnot
		push2
		pushi	$b		; 11, inRight
		pTos	bitmap
		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
		self	$16
		bnot
		pushi	$9f		; 159, add
		push1
		lst	temp[$0]
		lag	global[$66]
		send	$6
		bnot
		lat	temp[$0]
		ret

fNBody::new:
		link	$1
		pushi	$8d		; 141, new
		push0
		&rest	$1
		super	WorldEgo, $4
		bnot
		sat	temp[$0]
		pushi	$94		; 148, init
		push0
		send	$4
		bnot
		pushi	$3ae		; 942, setColor
		push1
		pushi	$6a		; 106, 'j', scaleSignal
		pushi	$8d		; 141, new
		push0
		class	fNFace
		send	$4
		bnot
		sag	global[$9f]
		send	$6
		bnot
		pushi	$94		; 148, init
		push0
		pushi	$3ae		; 942, setColor
		push1
		pushi	$64		; 100, 'd', moveDone
		pushi	$8d		; 141, new
		push0
		lofsa	fNPants
		send	$4
		bnot
		sag	global[$a1]
		send	$a
		bnot
		pushi	$94		; 148, init
		push0
		pushi	$3ae		; 942, setColor
		push1
		pushi	$64		; 100, 'd', moveDone
		pushi	$8d		; 141, new
		push0
		lofsa	fNShirt
		send	$4
		bnot
		sag	global[$a2]
		send	$a
		bnot
		pushi	$94		; 148, init
		push0
		pushi	$3ae		; 942, setColor
		push1
		pushi	$64		; 100, 'd', moveDone
		pushi	$8d		; 141, new
		push0
		lofsa	fNShoes
		send	$4
		bnot
		sag	global[$a3]
		send	$a
		bnot
		pushi	$4f0		; 1264, setSex
		push1
		push0
		pushi	$4f1		; 1265, setRace
		push1
		push0
		pushi	$4f9		; 1273, setHead
		push1
		lsg	global[$9f]
		pushi	$1a9		; 425, setStep
		push2
		pushi	$b		; 11, inRight
		pushi	$6		; maxScale
		pushi	$3ae		; 942, setColor
		push1
		pushi	$6a		; 106, 'j', scaleSignal
		pushi	$38e		; 910, take
		push1
		lsg	global[$a2]
		pushi	$38e		; 910, take
		push1
		lsg	global[$a1]
		pushi	$38e		; 910, take
		push1
		lsg	global[$a3]
		pushi	$392		; 914, putOn
		push1
		lsg	global[$a2]
		pushi	$392		; 914, putOn
		push1
		lsg	global[$a1]
		pushi	$392		; 914, putOn
		push1
		lsg	global[$a3]
		lat	temp[$0]
		send	$44
		bnot
		lat	temp[$0]
		ret

fNBody::showContents:
		pushi	$554		; 1364, pShowGameBar
		push0
		lag	global[$3]
		send	$4
		bnot
		bnt	code_0700
		pushi	$3a4		; 932, showContents
		push0
		&rest	$1
		super	WorldEgo, $4
		bnot
code_0700:	ret

Heraldry::setInfo:
		lsp	param[$0]
		ldi	$0
		gt?
		bnt	code_070e
		ldi	$0
		lapi	param[$1]
		aTop	loop
code_070e:	lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_071b
		ldi	$1
		lapi	param[$1]
		aTop	x
code_071b:	lsp	param[$0]
		ldi	$2
		gt?
		bnt	code_0728
		ldi	$2
		lapi	param[$1]
		aTop	y
code_0728:	lsp	param[$0]
		ldi	$3		; z
		gt?
		bnt	code_0739
		pushi	$245f		; 9311
		ldi	$3		; z
		lapi	param[$1]
		add
		aTop	pCrest
code_0739:	lsp	param[$0]
		ldi	$4		; scaleX
		gt?
		bnt	code_074a
		pushi	$2469		; 9321
		ldi	$4		; scaleX
		lapi	param[$1]
		add
		aTop	pAffiliation
code_074a:	lsp	param[$0]
		ldi	$5		; scaleY
		gt?
		bnt	code_075b
		pushi	$247d		; 9341
		ldi	$5		; scaleY
		lapi	param[$1]
		add
		aTop	pSupporter
code_075b:	lsp	param[$0]
		ldi	$6		; maxScale
		gt?
		bnt	code_076c
		pushi	$2487		; 9351
		ldi	$6		; maxScale
		lapi	param[$1]
		add
		aTop	pPlaces
code_076c:	lsp	param[$0]
		ldi	$7		; priority
		gt?
		bnt	code_077d
		pushi	$24af		; 9391
		ldi	$7		; priority
		lapi	param[$1]
		add
		aTop	pAbility
code_077d:	lsp	param[$0]
		ldi	$8		; fixPriority
		gt?
		bnt	code_0793
		pushi	$d0		; 208, with
		push1
		ldi	$8		; fixPriority
		lspi	param[$1]
		class	Str
		send	$6
		bnot
		aTop	pMotto1
code_0793:	lsp	param[$0]
		ldi	$9		; inLeft
		gt?
		bnt	code_07a9
		pushi	$d0		; 208, with
		push1
		ldi	$9		; inLeft
		lspi	param[$1]
		class	Str
		send	$6
		bnot
		aTop	pMotto2
code_07a9:	lsp	param[$0]
		ldi	$a		; 10, inTop
		ge?
		bnt	code_07bf
		pushi	$d0		; 208, with
		push1
		ldi	$a		; 10, inTop
		lspi	param[$1]
		class	Str
		send	$6
		bnot
		aTop	pMotto3
code_07bf:	ret

Heraldry::setColor:
		link	$4
		pToa	clut
		not
		bnt	code_07d2
		pushi	$8d		; 141, new
		push0
		class	Clut
		send	$4
		bnot
		aTop	clut
code_07d2:	pToa	pClutStart
		bnt	code_0803
		lap	param[$1]
		aTop	pColor
		sat	temp[$0]
		pToa	pClutStart
		sat	temp[$1]
		push
		ldi	$4		; scaleX
		add
		sat	temp[$2]
		lat	temp[$1]
		sat	temp[$3]
code_07ea:	lst	temp[$3]
		lat	temp[$2]
		lt?
		bnt	code_0803
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$3]
		lst	temp[$0]
		pToa	clut
		send	$8
		bnot
		+at	temp[$0]
		+at	temp[$3]
		jmp	code_07ea

code_0803:	pushi	$3		; z
		pushi	$a		; 10, inTop
		pushi	$11		; 17, bitmap
		push0
		self	$4
		bnot
		push
		pTos	clut
		callk	kernel_35, $6
		bnot
		ret

Heraldry::hide:
		pushi	$69		; 105, 'i', hide
		push0
		pToa	pSupporterR
		send	$4
		bnot
		pushi	$69		; 105, 'i', hide
		push0
		pToa	pSupporterL
		send	$4
		bnot
		pushi	$69		; 105, 'i', hide
		push0
		pToa	pCrestView
		send	$4
		bnot
		pushi	$69		; 105, 'i', hide
		push1
		push0
		pToa	pBannerView
		send	$6
		bnot
		pushi	$69		; 105, 'i', hide
		push1
		push0
		super	View, $6
		bnot
		ret

Heraldry::show:
		pushi	$75		; 117, 'u', show
		push0
		pToa	pSupporterR
		send	$4
		bnot
		pushi	$75		; 117, 'u', show
		push0
		pToa	pSupporterL
		send	$4
		bnot
		pushi	$75		; 117, 'u', show
		push0
		pToa	pCrestView
		send	$4
		bnot
		pushi	$75		; 117, 'u', show
		push0
		pToa	pBannerView
		send	$4
		bnot
		pushi	$75		; 117, 'u', show
		push0
		&rest	$1
		super	View, $4
		bnot
		ret

Heraldry::init:
		link	$8
		push1
		push0
		self	$4
		bnot
		sat	temp[$2]
		push2
		push0
		self	$4
		bnot
		sat	temp[$3]
		pushi	$11		; 17, bitmap
		push1
		pushi	$4		; scaleX
		pushi	$9		; inLeft
		pTos	view
		pTos	loop
		push0
		callk	kernel_35, $8
		bnot
		push
		self	$6
		bnot
		pushi	$4		; scaleX
		push0
		pTos	view
		pTos	loop
		push0
		callk	kernel_34, $8
		bnot
		sat	temp[$0]
		pushi	$4		; scaleX
		push1
		pTos	view
		pTos	loop
		push0
		callk	kernel_34, $8
		bnot
		sat	temp[$1]
		pushi	$4		; scaleX
		pushi	$8		; fixPriority
		pushi	$11		; 17, bitmap
		push0
		self	$4
		bnot
		push
		lst	temp[$0]
		lst	temp[$1]
		callk	kernel_35, $8
		bnot
		pushi	$7		; priority
		pushi	$3		; z
		pushi	$11		; 17, bitmap
		push0
		self	$4
		bnot
		push
		pTos	pBend
		pTos	loop
		push0
		lst	temp[$0]
		lst	temp[$1]
		callk	kernel_35, $e
		bnot
		pushi	$3ae		; 942, setColor
		push1
		pushi	$35		; 53, '5', nodePtr
		self	$6
		bnot
		pushi	$7		; priority
		pushi	$3		; z
		pushi	$11		; 17, bitmap
		push0
		self	$4
		bnot
		push
		pTos	pAffiliation
		pTos	loop
		push0
		lst	temp[$0]
		lst	temp[$1]
		callk	kernel_35, $e
		bnot
		pushi	$7		; priority
		pushi	$3		; z
		pushi	$11		; 17, bitmap
		push0
		self	$4
		bnot
		push
		pTos	pPlaces
		pTos	loop
		push0
		lst	temp[$0]
		lst	temp[$1]
		callk	kernel_35, $e
		bnot
		pushi	$7		; priority
		pushi	$3		; z
		pushi	$11		; 17, bitmap
		push0
		self	$4
		bnot
		push
		pTos	pAbility
		pTos	loop
		push0
		lst	temp[$0]
		lst	temp[$1]
		callk	kernel_35, $e
		bnot
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	View, $4
		bnot
		push1
		push1
		lst	temp[$2]
		push2
		push1
		lst	temp[$3]
		pushi	$e		; 14, view
		push1
		pTos	pSupporter
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		aTop	pSupporterR
		send	$12
		bnot
		pushi	$94		; 148, init
		push0
		&rest	$1
		pToa	pSupporterR
		send	$4
		bnot
		push1
		push1
		lst	temp[$2]
		lst	temp[$0]
		ldi	$2
		mul
		sub
		push
		ldi	$2
		add
		push
		push2
		push1
		lst	temp[$3]
		pushi	$e		; 14, view
		push1
		pTos	pSupporter
		pushi	$f		; 15, loop
		push1
		push1
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		aTop	pSupporterL
		send	$18
		bnot
		pushi	$94		; 148, init
		push0
		&rest	$1
		pToa	pSupporterL
		send	$4
		bnot
		push1
		push1
		lst	temp[$2]
		push2
		push1
		lst	temp[$3]
		pushi	$e		; 14, view
		push1
		pTos	pCrest
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		aTop	pCrestView
		send	$12
		bnot
		pushi	$94		; 148, init
		push0
		&rest	$1
		pToa	pCrestView
		send	$4
		bnot
		push1
		push1
		lst	temp[$2]
		pushi	$3		; z
		pTos	pBanner
		push0
		push0
		callk	kernel_28, $6
		bnot
		push
		ldi	$2
		div
		sub
		push
		push2
		push1
		lst	temp[$3]
		ldi	$4		; scaleX
		sub
		push
		pushi	$11		; 17, bitmap
		push1
		pushi	$4		; scaleX
		pushi	$9		; inLeft
		pTos	pBanner
		push0
		push0
		callk	kernel_35, $8
		bnot
		push
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		aTop	pBannerView
		send	$12
		bnot
		ldi	$d		; 13, seenRect
		sat	temp[$5]
		ldi	$4a		; 74, 'J', setPri
		sat	temp[$6]
		pushi	$3		; z
		push1
		push2
		pushi	$9		; inLeft
		pTos	pMotto1
		callk	kernel_91, $4
		bnot
		push
		pushi	$3e7		; 999, pUpdatorList
		callk	kernel_70, $6
		bnot
		sat	temp[$7]
		push
		lst	temp[$6]
		lat	temp[$5]
		sub
		gt?
		bnt	code_0a1f
		push1
		lofsa	string_078b	; "Bitmap::Motto[1]::String too long for bitmap!"
		push
		calle	export60029_1, $2
		bnot
		jmp	code_0a50

code_0a1f:	pushi	$f		; 15, loop
		pushi	$4		; scaleX
		pushi	$11		; 17, bitmap
		push0
		pToa	pBannerView
		send	$4
		bnot
		push
		pushi	$71		; 113, 'q', data
		push0
		pToa	pMotto1
		send	$4
		bnot
		push
		lst	temp[$5]
		pushi	$8		; fixPriority
		lst	temp[$6]
		pushi	$f		; 15, loop
		pushi	$a		; 10, inTop
		pushi	$ff		; 255, asInteger
		dup
		pushi	$3e7		; 999, pUpdatorList
		push1
		pushi	$ff		; 255, asInteger
		push0
		push0
		callk	kernel_35, $1e
		bnot
code_0a50:	ldi	$51		; 81, 'Q', value
		sat	temp[$5]
		ldi	$8c		; 140, scratch
		sat	temp[$6]
		pushi	$3		; z
		push1
		push2
		pushi	$9		; inLeft
		pTos	pMotto2
		callk	kernel_91, $4
		bnot
		push
		pushi	$3e7		; 999, pUpdatorList
		callk	kernel_70, $6
		bnot
		sat	temp[$7]
		push
		lst	temp[$6]
		lat	temp[$5]
		sub
		gt?
		bnt	code_0a86
		push1
		lofsa	string_07b9	; "Bitmap::Motto[2]::String too long for bitmap!"
		push
		calle	export60029_1, $2
		bnot
		jmp	code_0ab7

code_0a86:	pushi	$f		; 15, loop
		pushi	$4		; scaleX
		pushi	$11		; 17, bitmap
		push0
		pToa	pBannerView
		send	$4
		bnot
		push
		pushi	$71		; 113, 'q', data
		push0
		pToa	pMotto2
		send	$4
		bnot
		push
		lst	temp[$5]
		pushi	$d		; 13, seenRect
		lst	temp[$6]
		pushi	$14		; 20, nsRight
		pushi	$a		; 10, inTop
		pushi	$ff		; 255, asInteger
		dup
		pushi	$3e7		; 999, pUpdatorList
		push1
		pushi	$ff		; 255, asInteger
		push0
		push0
		callk	kernel_35, $1e
		bnot
code_0ab7:	ldi	$93		; 147, pLine
		sat	temp[$5]
		ldi	$ce		; 206, pList
		sat	temp[$6]
		pushi	$3		; z
		push1
		push2
		pushi	$9		; inLeft
		pTos	pMotto3
		callk	kernel_91, $4
		bnot
		push
		pushi	$3e7		; 999, pUpdatorList
		callk	kernel_70, $6
		bnot
		sat	temp[$7]
		push
		lst	temp[$6]
		lat	temp[$5]
		sub
		gt?
		bnt	code_0aee
		push1
		lofsa	string_07e7	; "Bitmap::Motto[3]::String too long for bitmap!"
		push
		calle	export60029_1, $2
		bnot
		jmp	code_0b1f

code_0aee:	pushi	$f		; 15, loop
		pushi	$4		; scaleX
		pushi	$11		; 17, bitmap
		push0
		pToa	pBannerView
		send	$4
		bnot
		push
		pushi	$71		; 113, 'q', data
		push0
		pToa	pMotto3
		send	$4
		bnot
		push
		lst	temp[$5]
		pushi	$8		; fixPriority
		lst	temp[$6]
		pushi	$f		; 15, loop
		pushi	$a		; 10, inTop
		pushi	$ff		; 255, asInteger
		dup
		pushi	$3e7		; 999, pUpdatorList
		push1
		pushi	$ff		; 255, asInteger
		push0
		push0
		callk	kernel_35, $1e
		bnot
code_0b1f:	pushi	$94		; 148, init
		push0
		&rest	$1
		pToa	pBannerView
		send	$4
		bnot
		ret

Heraldry::dispose:
		pushi	$95		; 149, dispose
		push0
		pToa	pMotto1
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	pMotto2
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	pMotto3
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	View, $4
		bnot
		ret

