export40025_0	= $0

BPassword::buildVerbList:
		link	$1
		pushi	$97		; 151, isKindOf
		push1
		class	WorldObject
		push
		lap	param[$1]
		send	$6
		bnot
		bnt	code_00d1
		pushi	$381		; 897, pMode
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		and
		bnt	code_00d1
		class	VerbList
		sat	temp[$0]
		lsp	param[$1]
		lag	global[$1]
		eq?
		bnt	code_00d1
		pushi	$9f		; 159, add
		push1
		pushi	$75		; 117, 'u', show
		lat	temp[$0]
		send	$6
		bnot
code_00d1:	ret

myGetPassword::doit:
		link	$2
		lap	param[$0]
		bnt	code_00fb
		lap	param[$1]
		bnt	code_00e7
		pushi	$c7		; 199, cue
		push0
		pToa	pClient
		send	$4
		bnot
		jmp	code_00f2

code_00e7:	pushi	$9f		; 159, add
		push1
		pTos	pClient
		class	DeadObjects
		send	$6
		bnot
code_00f2:	pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		jmp	code_0141

code_00fb:	pushi	$9f		; 159, add
		push1
		pushi	$15		; 21, nsBottom
		pTos	pPrompt
		pushi	$76		; 118, 'v', textLeft
		pTos	pStr
		pTos	pMax
		pushi	$fdf5		; -523
		lsg	global[$55]
		pushi	$fdf4		; -524
		pushi	$2a		; 42, '*', font
		pushi	$8b		; 139, numLines
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_00e4	; " OK "
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_00e9	; "Cancel"
		push
		push0
		pushi	$91		; 145, bitPutIndex
		push2
		pushi	$93		; 147, pLine
		pushSelf
		pushi	$45		; 69, 'E', doit
		&rest	$2
		calle	export60029_0, $2a
		bnot
		aTop	pPrint
		push
		class	gDialogList
		send	$6
		bnot
code_0141:	ret

rePrompt::doit:
		lap	param[$0]
		bnt	code_0169
		lap	param[$1]
		bnt	code_0155
		pushi	$c7		; 199, cue
		push0
		pToa	pClient
		send	$4
		bnot
		jmp	code_0160

code_0155:	pushi	$9f		; 159, add
		push1
		pTos	pClient
		class	DeadObjects
		send	$6
		bnot
code_0160:	pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		jmp	code_01a4

code_0169:	pushi	$9f		; 159, add
		push1
		pushi	$10		; 16, cel
		pTos	pPrompt
		pushi	$fdf5		; -523
		lsg	global[$55]
		pushi	$8b		; 139, numLines
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_00e4	; " OK "
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_00e9	; "Cancel"
		push
		push0
		pushi	$91		; 145, bitPutIndex
		push2
		pushi	$93		; 147, pLine
		pushSelf
		pushi	$45		; 69, 'E', doit
		&rest	$2
		calle	export60029_0, $20
		bnot
		aTop	pPrint
		push
		class	gDialogList
		send	$6
		bnot
code_01a4:	ret

confirmPrompt::doit:
		lap	param[$0]
		bnt	code_01bb
		pushi	$c7		; 199, cue
		push0
		pToa	pClient
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		jmp	code_01ef

code_01bb:	pushi	$9f		; 159, add
		push1
		pushi	$d		; 13, seenRect
		pTos	pPrompt
		pushi	$fdf5		; -523
		lsg	global[$55]
		pushi	$8b		; 139, numLines
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_00e4	; " OK "
		push
		push1
		pushi	$91		; 145, bitPutIndex
		push2
		pushi	$93		; 147, pLine
		pushSelf
		pushi	$45		; 69, 'E', doit
		&rest	$2
		calle	export60029_0, $1a
		bnot
		aTop	pPrint
		push
		class	gDialogList
		send	$6
		bnot
code_01ef:	ret

WANetNewPassScript::init:
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sal	local[$0]
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sal	local[$1]
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	WANetScript, $4
		bnot
		ret

WANetNewPassScript::handleError:
		link	$1
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		lsp	param[$3]
		ldi	$271f		; 10015
		ne?
		bnt	code_025b
		lsp	param[$3]
		ldi	$2714		; 10004
		ne?
		bnt	code_025b
		pushi	$31f		; 799, defaultError
		pushi	$3		; z
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		self	$a
		bnot
		sat	temp[$0]
		pushi	$7		; priority
		pushi	$b		; 11, inRight
		push2
		lofsa	string_0115	; "Error"
		push
		lst	temp[$0]
		lofsa	string_011b	; "Ok"
		push
		push0
		push0
		callk	kernel_118, $e
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_025b:	pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		ret

WANetNewPassScript::dispose:
		push1
		lsl	local[$0]
		calle	export60000_0, $2
		bnot
		bnt	code_0278
		pushi	$95		; 149, dispose
		push0
		lal	local[$0]
		send	$4
		bnot
code_0278:	push1
		lsl	local[$1]
		calle	export60000_0, $2
		bnot
		bnt	code_028d
		pushi	$95		; 149, dispose
		push0
		lal	local[$1]
		send	$4
		bnot
code_028d:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	WANetScript, $4
		bnot
		ret

WANetNewPassScript::changeState:
		link	$2
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_02d1
		pushi	$f5		; 245, format
		push1
		lofsa	string_011e	; ""
		push
		lal	local[$0]
		send	$6
		bnot
		pushi	$f5		; 245, format
		push1
		lofsa	string_011e	; ""
		push
		lal	local[$1]
		send	$6
		bnot
		pushi	$5		; scaleY
		pushi	$b		; 11, inRight
		pushi	$7		; priority
		pushSelf
		lsl	local[$0]
		lsl	local[$1]
		callk	kernel_118, $a
		bnot
		jmp	code_035a

code_02d1:	dup
		ldi	$1
		eq?
		bnt	code_02f4
		pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$4fe		; 1278, changePassword
		pushi	$4		; scaleX
		pTos	pDirectObject
		lsl	local[$0]
		lsl	local[$1]
		pushSelf
		lag	global[$6a]
		send	$c
		bnot
		jmp	code_035a

code_02f4:	dup
		ldi	$2
		eq?
		bnt	code_034d
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pTos	pDirectObject
		lag	global[$1]
		eq?
		bnt	code_031b
		pushi	$f5		; 245, format
		push1
		lofsa	string_011f	; "Your login password has been changed! Please remember to write down your new password so that you don't forget it. Also be aware that your Strong Box and House Door passwords are not being changed. You must go to them and change them to keep them the same as your login password."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$1]
		jmp	code_0334

code_031b:	pushi	$f5		; 245, format
		push2
		lofsa	string_0237	; "The password for the %s has been changed! Please remember to write down the new password so that you don't forget it."
		push
		pushi	$315		; 789, pName
		push0
		pToa	pDirectObject
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$1]
code_0334:	pushi	$7		; priority
		pushi	$b		; 11, inRight
		push2
		lofsa	string_02ad	; "Password change."
		push
		lst	temp[$1]
		lofsa	string_011b	; "Ok"
		push
		pushSelf
		pushi	$c7		; 199, cue
		callk	kernel_118, $e
		bnot
		jmp	code_035a

code_034d:	dup
		ldi	$3		; z
		eq?
		bnt	code_035a
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_035a:	toss
		ret

