export45014_0	= CharMenu

CharMenu::init:
		link	$c
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	StaticRealmRoom, $4
		bnot
		ldi	$0
		sag	global[$f7]
		ldi	$1
		sag	global[$d3]
		pushi	$8d		; 141, new
		push2
		pushi	$ff		; 255, asInteger
		dup
		class	LongInt
		send	$8
		bnot
		sal	local[$0]
		pushi	$33		; 51, '3', play
		push1
		lofsa	string_00fe	; "charmenu.mid"
		push
		class	MusicMgr
		send	$6
		bnot
		pushi	$9d		; 157, eachElementDo
		push2
		pushi	$f		; 15, loop
		push2
		class	StockCharacters
		send	$8
		bnot
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$36a		; 874, updateDisplay
		class	StockCharacters
		send	$6
		bnot
		push2
		push2
		push1
		callk	kernel_118, $4
		bnot
		pushi	$3		; z
		push1
		push0
		pushi	$24		; 36, '$', elements
		push0
		class	StockCharacters
		send	$4
		bnot
		push
		callk	kernel_118, $6
		bnot
		pushi	$9f		; 159, add
		push1
		pushSelf
		class	WinDialogSet
		send	$6
		bnot
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		ret

CharMenu::dispose:
		lag	global[$9e]
		bnt	code_00b4
		pushi	$3c6		; 966, deleteFromRoom
		push0
		send	$4
		bnot
code_00b4:	pushi	$5a		; 90, 'Z', size
		push0
		class	StockCharacters
		send	$4
		bnot
		bnt	code_00ca
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$3c6		; 966, deleteFromRoom
		class	StockCharacters
		send	$6
		bnot
code_00ca:	pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		class	WinDialogSet
		send	$6
		bnot
		push2
		push1
		push1
		callk	kernel_118, $4
		bnot
		push2
		push2
		push0
		callk	kernel_118, $4
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	StaticRealmRoom, $4
		bnot
		ret

CharMenu::handleEvent:
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		dup
		ldi	$100		; 256, strMax
		eq?
		bnt	code_01ce
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		dup
		ldi	$0
		eq?
		bnt	code_014d
		pushi	$48		; 72, 'H', modifiers
		push0
		lap	param[$1]
		send	$4
		bnot
		sag	global[$1]
		pushi	$58		; 88, 'X', delete
		push1
		push
		class	StockCharacters
		send	$6
		bnot
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$95		; 149, dispose
		class	StockCharacters
		send	$6
		bnot
		pushi	$a6		; 166, release
		push0
		class	StockCharacters
		send	$4
		bnot
		ldi	$0
		sag	global[$9e]
		ldi	$1
		sag	global[$fe]
		pushi	$c9		; 201, setScript
		push1
		lofsa	loginScript
		push
		lag	global[$3]
		send	$6
		bnot
		jmp	code_01cd

code_014d:	dup
		ldi	$1
		eq?
		bnt	code_0173
		pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		ldi	$0
		sag	global[$9e]
		pushi	$8d		; 141, new
		push0
		class	fNBody
		send	$4
		bnot
		sag	global[$9e]
		ldi	$afd7		; -20521
		sag	global[$36]
		jmp	code_01cd

code_0173:	dup
		ldi	$f		; 15, loop
		eq?
		bnt	code_01b6
		pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$48		; 72, 'H', modifiers
		push0
		lap	param[$1]
		send	$4
		bnot
		sag	global[$9e]
		pushi	$b5		; 181, set
		push2
		pushi	$2cb		; 715, pServIDLo
		push0
		send	$4
		bnot
		push
		pushi	$2cc		; 716, pServIDHi
		push0
		lag	global[$9e]
		send	$4
		bnot
		push
		lal	local[$0]
		send	$8
		bnot
		pushi	$c9		; 201, setScript
		push1
		lofsa	eraseScript
		push
		lag	global[$3]
		send	$6
		bnot
		jmp	code_01cd

code_01b6:	dup
		ldi	$e		; 14, view
		eq?
		bnt	code_01cd
		pushi	$45		; 69, 'E', doit
		push1
		pushi	$48		; 72, 'H', modifiers
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		class	CreateLookDialog
		send	$6
		bnot
code_01cd:	toss
code_01ce:	toss
		ret

loginScript::dispose:
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	Script, $4
		bnot
		ret

loginScript::handleError:
		link	$1
		lsp	param[$1]
		lag	global[$6a]
		eq?
		bnt	code_0220
		pushi	$f5		; 245, format
		push1
		lofsa	string_0114	; "Server Error: Unable to login."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		pushi	$6		; maxScale
		push
		pushi	$65		; 101, 'e', topString
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0133	; "Okay"
		push
		push0
		calle	export60029_0, $c
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_0220:	ret

loginScript::changeState:
		link	$6
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_0246
		pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$549		; 1353, getExtendedProps
		push2
		lsg	global[$1]
		pushSelf
		lag	global[$6a]
		send	$8
		bnot
		jmp	code_03d5

code_0246:	dup
		ldi	$1
		eq?
		bnt	code_02b6
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$1]
		send	$6
		bnot
		sat	temp[$3]
		ldi	$0
		sat	temp[$2]
code_025e:	lst	temp[$2]
		ldi	$94		; 148, init
		lt?
		bnt	code_0299
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$2]
		pushi	$431		; 1073, pSpellArray
		push0
		lat	temp[$3]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0295
		pushi	$9f		; 159, add
		push1
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$2]
		push2
		pushi	$9cac		; -25428
		pushi	$6		; maxScale
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		push
		class	SpellList
		send	$6
		bnot
code_0295:	+at	temp[$2]
		jmp	code_025e

code_0299:	pushi	$5a5		; 1445, loginCharacter
		push2
		lsg	global[$1]
		pushSelf
		lag	global[$6a]
		send	$8
		bnot
		push1
		pushi	$16		; 22, lsLeft
		callk	kernel_118, $2
		bnot
		push1
		pushi	$3		; z
		callk	kernel_118, $2
		bnot
		jmp	code_03d5

code_02b6:	dup
		ldi	$2
		eq?
		bnt	code_02fc
		pushi	$6		; maxScale
		dup
		pushi	$5		; scaleY
		pushi	$406		; 1030, pHealth
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pushi	$632		; 1586, pHealthHi
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pushi	$407		; 1031, pHealthMax
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pushi	$633		; 1587, pHealthMaxHi
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		callk	kernel_118, $c
		bnot
		pushi	$5b6		; 1462, getStartingPosn
		push2
		lsg	global[$1]
		pushSelf
		lag	global[$6a]
		send	$8
		bnot
		jmp	code_03d5

code_02fc:	dup
		ldi	$3		; z
		eq?
		bnt	code_03d5
		pushi	$127		; 295, equal
		push2
		pushi	$ff		; 255, asInteger
		dup
		lag	global[$d7]
		send	$8
		bnot
		not
		bnt	code_0324
		push1
		push1
		lsg	global[$d8]
		push2
		push1
		lsg	global[$d9]
		pushi	$f		; 15, loop
		push1
		lsg	global[$da]
		lag	global[$1]
		send	$12
		bnot
code_0324:	pushi	$3bb		; 955, clearMode
		push1
		push2
		pushi	$3bb		; 955, clearMode
		push1
		pushi	$4		; scaleX
		pushi	$3ba		; 954, setMode
		push1
		push1
		pushi	$3cd		; 973, recordPosn
		push0
		pushi	$3cc		; 972, sendMovie
		push1
		push1
		lag	global[$1]
		send	$1c
		bnot
		ldi	$0
		sat	temp[$0]
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sat	temp[$1]
		push2
		lofsa	string_0138	; "firstRoom"
		push
		lst	temp[$1]
		callk	kernel_125, $4
		bnot
		bnt	code_036b
		pushi	$ff		; 255, asInteger
		push0
		lat	temp[$1]
		send	$4
		bnot
		sat	temp[$0]
		jmp	code_0378

code_036b:	push2
		pushi	$13b		; 315, putWord
		pushi	$140		; 320, pHandle
		callk	kernel_60, $4
		bnot
		sat	temp[$0]
code_0378:	pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		pushi	$141		; 321, stop
		push0
		class	MusicMgr
		send	$4
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$4]
		pushi	$10f		; 271, setLong
		push1
		lsg	global[$d7]
		send	$6
		bnot
		pushi	$127		; 295, equal
		push2
		pushi	$ff		; 255, asInteger
		dup
		lat	temp[$4]
		send	$8
		bnot
		bnt	code_03c3
		pushi	$5a6		; 1446, firstRoom
		push1
		pushi	$8d		; 141, new
		push1
		lst	temp[$0]
		class	LongInt
		send	$6
		bnot
		push
		lag	global[$6a]
		send	$6
		bnot
		jmp	code_03ce

code_03c3:	pushi	$5a6		; 1446, firstRoom
		push1
		lst	temp[$4]
		lag	global[$6a]
		send	$6
		bnot
code_03ce:	pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_03d5:	toss
		ret

eraseScript::handleError:
		link	$1
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		ret

eraseScript::changeState:
		link	$6
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_0409
		lag	global[$9e]
		aTop	register
		pushi	$5a3		; 1443, destroyCharacter
		push2
		pTos	register
		pushSelf
		lag	global[$6a]
		send	$8
		bnot
		jmp	code_043c

code_0409:	dup
		ldi	$1
		eq?
		bnt	code_043c
		pushi	$69		; 105, 'i', hide
		push0
		pToa	register
		send	$4
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		pTos	register
		class	StockCharacters
		send	$6
		bnot
		pushi	$3		; z
		push1
		pushi	$3		; z
		pushi	$24		; 36, '$', elements
		push0
		class	StockCharacters
		send	$4
		bnot
		push
		callk	kernel_118, $6
		bnot
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
code_043c:	toss
		ret

LookAtCharacter::changeState:
		link	$3
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_0490
		pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		aTop	scratch
		pushi	$319		; 793, pHead
		push0
		pToa	register
		send	$4
		bnot
		bnt	code_047d
		pushi	$50e		; 1294, getBiography
		pushi	$3		; z
		pTos	register
		pTos	scratch
		pushSelf
		lag	global[$6a]
		send	$a
		bnot
		jmp	code_0535

code_047d:	pushi	$4fa		; 1274, getDescription
		pushi	$3		; z
		pTos	register
		pTos	scratch
		pushSelf
		lag	global[$6a]
		send	$a
		bnot
		jmp	code_0535

code_0490:	dup
		ldi	$1
		eq?
		bnt	code_04e9
		pushi	$319		; 793, pHead
		push0
		pToa	register
		send	$4
		bnot
		bnt	code_04c5
		pushi	$4ca		; 1226, setBiography
		push1
		pTos	scratch
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		pToa	register
		send	$6
		bnot
		send	$6
		bnot
		pushi	$549		; 1353, getExtendedProps
		push2
		pTos	register
		pushSelf
		lag	global[$6a]
		send	$8
		bnot
		jmp	code_0535

code_04c5:	pushi	$6		; maxScale
		push2
		pushi	$9		; inLeft
		pTos	scratch
		callk	kernel_91, $4
		bnot
		push
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0133	; "Okay"
		push
		push0
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $c
		bnot
		ldi	$1
		aTop	cycles
		jmp	code_0535

code_04e9:	dup
		ldi	$2
		eq?
		bnt	code_051f
		push1
		pTos	scratch
		calle	export60000_0, $2
		bnot
		bnt	code_0504
		pushi	$95		; 149, dispose
		push0
		pToa	scratch
		send	$4
		bnot
code_0504:	pushi	$319		; 793, pHead
		push0
		pToa	register
		send	$4
		bnot
		bnt	code_0519
		pushi	$45		; 69, 'E', doit
		push1
		pTos	register
		class	CreateLookDialog
		send	$6
		bnot
code_0519:	ldi	$1
		aTop	cycles
		jmp	code_0535

code_051f:	dup
		ldi	$3		; z
		eq?
		bnt	code_0535
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_0535:	toss
		ret

