threememories
/
RealmFiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Upload files to "Script"

This commit is contained in:
threememories 2026-04-27 01:29:00 +00:00
parent 5490b15814
commit 26b4817ea6
5 changed files with 536 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
Script/Script40022.txt Normal file
View File

@ -0,0 +1,47 @@
BConsume::buildVerbList:
lsp param[$1]
lag global[$1]
eq?
bnt code_007c
pushi $3a9 ; 937, isOwnedBy
push2
lsg global[$1]
push1
pToa pSelf
send $8
bnot
bnt code_007c
pTos pState
dup
ldi $1
eq?
bnt code_005a
pushi $9f ; 159, add
push1
pushi $11 ; 17, bitmap
class VerbList
send $6
bnot
jmp code_007b
code_005a: dup
ldi $0
eq?
bnt code_006d
pushi $9f ; 159, add
push1
pushi $12 ; 18, nsLeft
class VerbList
send $6
bnot
jmp code_007b
code_006d: push2
lofsa string_0028 ; "Unknown consumable state of %d"
push
pTos pState
calle export60029_1, $4
bnot
code_007b: toss
code_007c: ret

401
Script/Script40025.txt Normal file
View File

@ -0,0 +1,401 @@
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

20
Script/Script40026.txt Normal file
View File

@ -0,0 +1,20 @@
BGatekeeper::buildVerbList:
link $2
class VerbList
sat temp[$0]
pushi $97 ; 151, isKindOf
push1
class WorldEgo
push
lap param[$1]
send $6
bnot
bnt code_004b
pushi $9f ; 159, add
push1
pushi $76 ; 118, 'v', textLeft
lat temp[$0]
send $6
bnot
code_004b: ret

41
Script/Script40027.txt Normal file
View File

@ -0,0 +1,41 @@
BSit::buildVerbList:
link $2
class VerbList
sat temp[$0]
pushi $35b ; 859, getOwner
push0
pToa pSelf
send $4
bnot
push
pToa pSelf
eq?
bnt code_0070
pToa pOwner
not
bnt code_0070
pushi $97 ; 151, isKindOf
push1
class WorldEgo
push
lap param[$1]
send $6
bnot
bnt code_0070
pushi $3ec ; 1004, pAction
push0
lap param[$1]
send $4
bnot
push
ldi $3 ; z
ne?
bnt code_0070
pushi $9f ; 159, add
push1
pushi $1a ; 26, signal
lat temp[$0]
send $6
bnot
code_0070: ret

27
Script/Script40028.txt Normal file
View File

@ -0,0 +1,27 @@
BScroll::buildVerbList:
link $2
class VerbList
sat temp[$0]
pushi $97 ; 151, isKindOf
push1
class WorldEgo
push
lap param[$1]
send $6
bnot
bnt code_0058
pushi $3a8 ; 936, owns
push1
pTos pSelf
lap param[$1]
send $6
bnot
bnt code_0058
pushi $9f ; 159, add
push1
pushi $77 ; 119, 'w', textTop
lat temp[$0]
send $6
bnot
code_0058: ret