402 lines
6.6 KiB
Plaintext
402 lines
6.6 KiB
Plaintext
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
|
|
|