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:28:39 +00:00
parent 8f834d20b3
commit 3b7d07d5f8
5 changed files with 7547 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1382
Script/Script40012.txt Normal file
View File

File diff suppressed because it is too large Load Diff

491
Script/Script40013.txt Normal file
View File

@ -0,0 +1,491 @@
BCarryable::preDispose:
link $1
pToa pOwner
bnt code_0076
pushi $35c ; 860, getBase
push1
class BContainer
push
pToa pOwner
send $6
bnot
sat temp[$0]
bnt code_0076
pushi $58 ; 88, 'X', delete
push1
pTos pSelf
lat temp[$0]
send $6
bnot
code_0076: ret
BCarryable::dispose:
pToa pContainerButton
bnt code_008a
pushi $4b8 ; 1208, deleteObj
push1
pTos pSelf
pushi $36 ; 54, '6', client
push0
send $4
bnot
send $6
bnot
code_008a: pushi $95 ; 149, dispose
push0
super WorldObjectBase, $4
bnot
ret
BCarryable::fromPacket:
link $2
pushi $134 ; 308, getByte
push0
lap param[$1]
send $4
bnot
aTop pShow
ret
BCarryable::generatePolygon:
ldi $2
ret
BCarryable::buildVerbList:
link $3
pushi $97 ; 151, isKindOf
push1
class WorldObject
push
lap param[$1]
send $6
bnot
bnt code_0141
pushi $381 ; 897, pMode
push0
lap param[$1]
send $4
bnot
push
ldi $1
and
bnt code_0141
pushi $381 ; 897, pMode
push0
lap param[$1]
send $4
bnot
push
ldi $8 ; fixPriority
and
not
bnt code_0141
class VerbList
sat temp[$1]
pushi $35c ; 860, getBase
push1
class BWearable
push
pToa pSelf
send $6
bnot
sat temp[$2]
bnt code_00f0
pushi $41e ; 1054, pIsWorn
push0
send $4
bnot
code_00f0: not
bnt code_0141
pushi $35c ; 860, getBase
push1
class BSit
push
pToa pSelf
send $6
bnot
sat temp[$2]
bnt code_010a
pushi $343 ; 835, pOwner
push0
send $4
bnot
code_010a: not
bnt code_0141
pushi $97 ; 151, isKindOf
push1
class WorldActor
push
lap param[$1]
send $6
bnot
bnt code_0141
pushi $3a9 ; 937, isOwnedBy
push2
lsp param[$1]
push1
pToa pSelf
send $8
bnot
bnt code_0136
pushi $9f ; 159, add
push1
pushi $a ; 10, inTop
lat temp[$1]
send $6
bnot
jmp code_0141
code_0136: pushi $9f ; 159, add
push1
pushi $8 ; fixPriority
lat temp[$1]
send $6
bnot
code_0141: pushi $97 ; 151, isKindOf
push1
class ContainerDisplay
push
lap param[$1]
send $6
bnot
bnt code_019e
class VerbList
sat temp[$1]
pushi $35b ; 859, getOwner
push0
pToa pSelf
send $4
bnot
push
pushi $365 ; 869, pSelf
push0
pushi $4b4 ; 1204, pContainer
push0
lap param[$1]
send $4
bnot
send $4
bnot
ne?
bnt code_019e
pushi $365 ; 869, pSelf
push0
pushi $4b4 ; 1204, pContainer
push0
lap param[$1]
send $4
bnot
send $4
bnot
push
lag global[$1]
eq?
bnt code_0193
pushi $9f ; 159, add
push1
pushi $8 ; fixPriority
lat temp[$1]
send $6
bnot
jmp code_019e
code_0193: pushi $9f ; 159, add
push1
pushi $b ; 11, inRight
lat temp[$1]
send $6
bnot
code_019e: ret
BCarryable::setOwner:
link $4
ldi $0
sat temp[$3]
code_01a5: lst temp[$3]
pushi $5a ; 90, 'Z', size
push0
class gDialogList
send $4
bnot
lt?
bnt code_0201
pushi $4b ; 75, 'K', at
push1
lst temp[$3]
class gDialogList
send $6
bnot
sat temp[$2]
push1
push
calle export60000_0, $2
bnot
bnt code_01fd
pushi $97 ; 151, isKindOf
push1
class VerbDialog
push
lat temp[$2]
send $6
bnot
bnt code_01fd
pushi $142 ; 322, pObject
push0
lat temp[$2]
send $4
bnot
push
selfID
eq?
bnt code_01fd
pushi $58 ; 88, 'X', delete
push1
lst temp[$2]
class gDialogList
send $6
bnot
pushi $95 ; 149, dispose
push0
lat temp[$2]
send $4
bnot
jmp code_0201
code_01fd: +at temp[$3]
jmp code_01a5
code_0201: pushi $32d ; 813, pObj
push0
class WDragger
send $4
bnot
push
pToa pSelf
eq?
bnt code_0219
pushi $359 ; 857, stopDragging
push0
class WDragger
send $4
bnot
code_0219: lap param[$1]
bnt code_0251
pToa pOwner
not
bnt code_024a
pushi $3c6 ; 966, deleteFromRoom
push0
pToa pSelf
send $4
bnot
pToa pShow
bnt code_023a
pushi $373 ; 883, setAction
push1
pushi $21 ; 33, '!', key
pToa pSelf
send $6
bnot
code_023a: lsp param[$1]
lag global[$1]
ne?
bnt code_024a
pushi $3a5 ; 933, hideContents
push0
pToa pSelf
send $4
bnot
code_024a: lap param[$1]
aTop pOwner
jmp code_0327
code_0251: pToa pOwner
bnt code_0323
pushi $f ; 15, loop
push0
send $4
bnot
push
dup
ldi $0
eq?
bnt code_0287
push1
push1
push1
push0
pToa pOwner
send $4
bnot
push
ldi $8 ; fixPriority
add
push
push2
push1
push2
push0
pToa pOwner
send $4
bnot
push
ldi $3 ; z
sub
push
pToa pSelf
send $c
bnot
jmp code_02f0
code_0287: dup
ldi $1
eq?
bnt code_02b0
push1
push1
push1
push0
pToa pOwner
send $4
bnot
push
ldi $8 ; fixPriority
sub
push
push2
push1
push2
push0
pToa pOwner
send $4
bnot
push
ldi $3 ; z
sub
push
pToa pSelf
send $c
bnot
jmp code_02f0
code_02b0: dup
ldi $2
eq?
bnt code_02d1
push1
push1
push1
push0
pToa pOwner
send $4
bnot
push
push2
push1
push2
push0
pToa pOwner
send $4
bnot
push
pToa pSelf
send $c
bnot
jmp code_02f0
code_02d1: dup
ldi $3 ; z
eq?
bnt code_02f0
push1
push1
push1
push0
pToa pOwner
send $4
bnot
push
push2
push1
push2
push0
pToa pOwner
send $4
bnot
push
pToa pSelf
send $c
bnot
code_02f0: toss
lap param[$1]
aTop pOwner
pushi $373 ; 883, setAction
push1
pushi $1d ; 29, brTop
pushi $3c5 ; 965, addToRoom
push1
lsg global[$3]
pushi $3c8 ; 968, matchScaler
push1
lsg global[$3]
pushi $36a ; 874, updateDisplay
push1
push1
pToa pSelf
send $18
bnot
pTos pOwner
lag global[$1]
ne?
bnt code_0327
pushi $3a5 ; 933, hideContents
push0
pToa pSelf
send $4
bnot
jmp code_0327
code_0323: lap param[$1]
aTop pOwner
code_0327: ret
BCarryable::canApproach:
link $1
ldi $1
sat temp[$0]
lsp param[$1]
pToa pOwner
eq?
bnt code_0339
ldi $2
sat temp[$0]
code_0339: lat temp[$0]
ret
BCarryable::canFace:
link $1
ldi $1
sat temp[$0]
lsp param[$1]
pToa pOwner
eq?
bnt code_034d
ldi $2
sat temp[$0]
code_034d: lat temp[$0]
ret
BCarryable::updateContainerButton:
link $1
pToa pOwner
bnt code_0363
pushi $4 ; scaleX
pushi $15 ; 21, nsBottom
pushi $4 ; scaleX
push
pTos pSelf
callk kernel_118, $8
bnot
code_0363: ret

3149
Script/Script40014.txt Normal file
View File

File diff suppressed because it is too large Load Diff

2360
Script/Script40015.txt Normal file
View File

File diff suppressed because it is too large Load Diff

165
Script/Script40016.txt Normal file
View File

@ -0,0 +1,165 @@
BDescribed::init:
pushi $94 ; 148, init
push0
&rest $1
super WorldObjectBase, $4
bnot
lofsa blankText
aTop pText
ret
BDescribed::dispose:
pToa pText
bnt code_0074
push
lofsa blankText
ne?
bnt code_0070
pushi $95 ; 149, dispose
push0
pToa pText
send $4
bnot
code_0070: ldi $0
aTop pText
code_0074: pushi $95 ; 149, dispose
push0
&rest $1
super WorldObjectBase, $4
bnot
ret
BDescribed::handlesAction:
push2
lsp param[$1]
pushi $2fd ; 765, see
calle export60025_4, $4
bnot
ret
BDescribed::see:
pushi $c3 ; 195, script
push0
pToa pSelf
send $4
bnot
bnt code_00a6
push1
lofsa string_0085 ; "Trying to see a BDescribed with script attached to pSelf."
push
calle export60029_0, $2
bnot
jmp code_00ba
code_00a6: pushi $c9 ; 201, setScript
push1
pushi $8d ; 141, new
push0
lofsa GetDescriptionScript
send $4
bnot
push
pToa pSelf
send $6
bnot
code_00ba: ldi $0
ret
BDescribed::setText:
pToa pText
bnt code_00d5
push
lofsa blankText
ne?
bnt code_00d1
pushi $95 ; 149, dispose
push0
pToa pText
send $4
bnot
code_00d1: ldi $0
aTop pText
code_00d5: lap param[$1]
bnt code_00ed
pushi $d0 ; 208, with
push1
push2
pushi $9 ; inLeft
push
callk kernel_91, $4
bnot
push
class Str
send $6
bnot
aTop pText
code_00ed: ret
BDescribed::fromPacket:
ret
GetDescriptionScript::changeState:
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_0120
pushi $277 ; 631, controlOff
push0
lag global[$2]
send $4
bnot
pushi $8d ; 141, new
push0
class Str
send $4
bnot
aTop register
pushi $4fa ; 1274, getDescription
pushi $3 ; z
pTos client
pTos register
pushSelf
lag global[$6a]
send $a
bnot
jmp code_015d
code_0120: dup
ldi $1
eq?
bnt code_015d
pushi $278 ; 632, controlOn
push0
lag global[$2]
send $4
bnot
pushi $6 ; maxScale
push2
pushi $9 ; inLeft
pTos register
callk kernel_91, $4
bnot
push
pushi $77 ; 119, 'w', textTop
lofsa string_00ca ; "Okay"
push
push0
pushi $91 ; 145, bitPutIndex
push2
calle export60029_0, $c
bnot
pushi $95 ; 149, dispose
push0
pToa register
send $4
bnot
pushi $95 ; 149, dispose
push0
self $4
bnot
code_015d: toss
ret