Upload files to "Script"
This commit is contained in:
parent
8f834d20b3
commit
3b7d07d5f8
File diff suppressed because it is too large
Load Diff
|
|
@ -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
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -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
|
||||
|
||||
Loading…
Reference in New Issue