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