16149 lines
237 KiB
Plaintext
16149 lines
237 KiB
Plaintext
export40002_0 = WAExamineScript
|
|
export40002_1 = WAOpenScript
|
|
export40002_2 = WACloseScript
|
|
export40002_3 = WALockScript
|
|
export40002_4 = WAUnlockScript
|
|
export40002_5 = WATakeScript
|
|
export40002_6 = WAPutScript
|
|
export40002_7 = WADropScript
|
|
export40002_8 = WAPutOnScript
|
|
export40002_9 = WATakeOffScript
|
|
export40002_10 = WAAttackScript
|
|
export40002_11 = WAStartCombatScript
|
|
export40002_12 = WAMoneyTakeScript
|
|
export40002_13 = WAMoneyPutScript
|
|
export40002_14 = WAMoneyDropScript
|
|
export40002_15 = WAConsumeScript
|
|
export40002_16 = WATeleportScript
|
|
export40002_17 = WAMissleScript
|
|
export40002_18 = $0
|
|
export40002_19 = WAStandScript
|
|
export40002_20 = WACombatTeleportScript
|
|
export40002_21 = WASitScript
|
|
export40002_22 = $0
|
|
export40002_23 = WAMemorizeScript
|
|
export40002_24 = WAGiveScript
|
|
export40002_25 = WAMoneyGiveScript
|
|
export40002_26 = WARobScript
|
|
export40002_27 = $0
|
|
export40002_28 = $0
|
|
export40002_29 = WAForceDropScript
|
|
|
|
QuitGameHandler::doit:
|
|
pushi $24e ; 590, handsOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
push2
|
|
pushi $9c45 ; -25531
|
|
push0
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
lap param[$0]
|
|
bnt code_0709
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_06eb
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_06eb: pushi $3c6 ; 966, deleteFromRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
pushi $3dc ; 988, deleteFromServer
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
pushi $2c4 ; 708, pRestart
|
|
push1
|
|
pushi $afd4 ; -20524
|
|
lag global[$30]
|
|
send $6
|
|
bnot
|
|
code_0709: ret
|
|
|
|
WAScript::init:
|
|
lap param[$1]
|
|
aTop pClient
|
|
pTos pMovieCmd
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_071b
|
|
ldi $0
|
|
aTop pMovieCmd
|
|
jmp code_071f
|
|
|
|
code_071b: lag global[$f0]
|
|
aTop pMovieCmd
|
|
code_071f: pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WAScript
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
bnt code_0738
|
|
pushi $3f8 ; 1016, pMovieCmd
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
aTop pMovieCmd
|
|
code_0738: pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Script
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
bnt code_0752
|
|
pushi $36 ; 54, '6', client
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
aTop pClient
|
|
jmp code_0738
|
|
|
|
code_0752: pushi $97 ; 151, isKindOf
|
|
push1
|
|
class ManagedRoom
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
bnt code_0766
|
|
pToa pClient
|
|
aTop pRoom
|
|
jmp code_0771
|
|
|
|
code_0766: pushi $c5 ; 197, pRoom
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
aTop pRoom
|
|
code_0771: pToa pDirectObject
|
|
not
|
|
bnt code_0781
|
|
pushi $31e ; 798, pDirectObject
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
aTop pDirectObject
|
|
code_0781: pToa pIndirectObject
|
|
not
|
|
bnt code_0791
|
|
pushi $3e3 ; 995, pIndirectObject
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
aTop pIndirectObject
|
|
code_0791: pTos client
|
|
pToa pClient
|
|
eq?
|
|
bnt code_07b6
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_07b6
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WANetScript
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_07b6
|
|
pushi $40e ; 1038, pRecordMotion
|
|
push1
|
|
push0
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
code_07b6: pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
WAScript::dispose:
|
|
link $2
|
|
pToa pHandsOff
|
|
bnt code_07d4
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pHandsOff
|
|
code_07d4: pToa pClient
|
|
bnt code_080b
|
|
push
|
|
pToa client
|
|
eq?
|
|
bnt code_080b
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_07fc
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WANetScript
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_07fc
|
|
pushi $40e ; 1038, pRecordMotion
|
|
push1
|
|
push1
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
code_07fc: pushi $31e ; 798, pDirectObject
|
|
push1
|
|
push0
|
|
pushi $3e3 ; 995, pIndirectObject
|
|
push1
|
|
push0
|
|
pToa pClient
|
|
send $c
|
|
bnot
|
|
code_080b: ldi $0
|
|
aTop pClient
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetScript::defaultError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_0a93
|
|
lsp param[$3]
|
|
dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_0842
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1bb0 ; "You can't do that now."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0842: dup
|
|
ldi $2710 ; 10000
|
|
eq?
|
|
bnt code_085b
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1bc7 ; "You can't do that right now."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_085b: dup
|
|
ldi $2711 ; 10001
|
|
eq?
|
|
bnt code_0874
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1be4 ; "That's already been done."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0874: dup
|
|
ldi $2712 ; 10002
|
|
eq?
|
|
bnt code_088d
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1bfe ; "There is no space for that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_088d: dup
|
|
ldi $2713 ; 10003
|
|
eq?
|
|
bnt code_08a6
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1c1a ; "You have to remove something first."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_08a6: dup
|
|
ldi $2714 ; 10004
|
|
eq?
|
|
bnt code_08bf
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1c3e ; "You can't do that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_08bf: dup
|
|
ldi $2715 ; 10005
|
|
eq?
|
|
bnt code_08d8
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1c51 ; "You can't go there."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_08d8: dup
|
|
ldi $2716 ; 10006
|
|
eq?
|
|
bnt code_08f1
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1c65 ; "That didn't work."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_08f1: dup
|
|
ldi $2717 ; 10007
|
|
eq?
|
|
bnt code_090a
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1c77 ; "You have to unlock that first."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_090a: dup
|
|
ldi $2718 ; 10008
|
|
eq?
|
|
bnt code_0923
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1c96 ; "That key will not work in this lock."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0923: dup
|
|
ldi $271a ; 10010
|
|
eq?
|
|
bnt code_093c
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1cbb ; "This is a redundant define."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_093c: dup
|
|
ldi $271b ; 10011
|
|
eq?
|
|
bnt code_0955
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1cd7 ; "Your character type cannot wear that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0955: dup
|
|
ldi $271c ; 10012
|
|
eq?
|
|
bnt code_096e
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1cfd ; "It's too bulky."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_096e: dup
|
|
ldi $271d ; 10013
|
|
eq?
|
|
bnt code_0987
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1d0d ; "It's too heavy."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0987: dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_09a0
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1d1d ; "You cannot afford it."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_09a0: dup
|
|
ldi $271f ; 10015
|
|
eq?
|
|
bnt code_09b9
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1c3e ; "You can't do that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_09b9: dup
|
|
ldi $2720 ; 10016
|
|
eq?
|
|
bnt code_09d2
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1d33 ; "Somebody else is busy with that right now."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_09d2: dup
|
|
ldi $2721 ; 10017
|
|
eq?
|
|
bnt code_09eb
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1d5e ; "That's the wrong password."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_09eb: dup
|
|
ldi $2722 ; 10018
|
|
eq?
|
|
bnt code_0a04
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1d79 ; "You can't do anything to it."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0a04: dup
|
|
ldi $2723 ; 10019
|
|
eq?
|
|
bnt code_0a1d
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1d96 ; "That wouldn't make much sense."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0a1d: dup
|
|
ldi $2724 ; 10020
|
|
eq?
|
|
bnt code_0a36
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1db5 ; "You've wasted your effort.\n"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0a36: dup
|
|
ldi $2725 ; 10021
|
|
eq?
|
|
bnt code_0a4e
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1de2 ; "You need to be closer for that to be effective."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0a4e: dup
|
|
ldi $2726 ; 10022
|
|
eq?
|
|
bnt code_0a66
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1e12 ; "You can not wield that while using a shield."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0a66: dup
|
|
ldi $2727 ; 10023
|
|
eq?
|
|
bnt code_0a7e
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1e3f ; "You can not wield that while using a two-handed weapon."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0a8f
|
|
|
|
code_0a7e: pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_1e77 ; "NAK received (%d)"
|
|
push
|
|
lsp param[$3]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
code_0a8f: toss
|
|
jmp code_0b08
|
|
|
|
code_0a93: lsp param[$3]
|
|
dup
|
|
ldi $c350 ; -15536
|
|
eq?
|
|
bnt code_0ae0
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_0ac5
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_1e89 ; "You can't get close enough to %s."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0b07
|
|
|
|
code_0ac5: pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_1eab ; "You can't get close enough to the %s."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0b07
|
|
|
|
code_0ae0: dup
|
|
ldi $c351 ; -15535
|
|
eq?
|
|
bnt code_0af8
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1ed1 ; "You have to stand up first."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0b07
|
|
|
|
code_0af8: pushi $f5 ; 245, format
|
|
push1
|
|
lofsa string_1eed ; "You can not do that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_0b07: toss
|
|
code_0b08: lat temp[$0]
|
|
ret
|
|
|
|
WANetScript::init:
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super WAScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetScript::dispose:
|
|
lag global[$6a]
|
|
bnt code_0b49
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_0b49
|
|
pushi $c4 ; 196, caller
|
|
push0
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
lag global[$6a]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
selfID
|
|
eq?
|
|
bnt code_0b49
|
|
pushi $c4 ; 196, caller
|
|
push1
|
|
push0
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
lag global[$6a]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_0b49: pToa pMutex
|
|
bnt code_0b58
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pMutex
|
|
code_0b58: pushi $31e ; 798, pDirectObject
|
|
push1
|
|
push0
|
|
pushi $3e3 ; 995, pIndirectObject
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super WAScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WorldActor::doit:
|
|
link $2
|
|
pToa mover
|
|
bnt code_0bfa
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pToa pCombatGroup
|
|
sat temp[$1]
|
|
push
|
|
lat temp[$0]
|
|
eq?
|
|
bt code_0bde
|
|
lat temp[$0]
|
|
bnt code_0bfa
|
|
lat temp[$1]
|
|
bnt code_0bfa
|
|
pushi $4 ; scaleX
|
|
pushi $8 ; fixPriority
|
|
lst temp[$0]
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
code_0bde: bnt code_0bfa
|
|
pushi $6 ; maxScale
|
|
pushi $7 ; priority
|
|
pTos pBaseView
|
|
pTos cel
|
|
pTos x
|
|
pTos scaleY
|
|
pushi $145 ; 325, frontSize
|
|
push0
|
|
pToa scaler
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_117, $c
|
|
bnot
|
|
code_0bfa: pushi $45 ; 69, 'E', doit
|
|
push0
|
|
&rest $1
|
|
super WorldObject, $4
|
|
bnot
|
|
ret
|
|
|
|
WorldActor::getBitmap:
|
|
link $2
|
|
ldi $0
|
|
sat temp[$0]
|
|
pToa pHead
|
|
bnt code_0c41
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BHead
|
|
push
|
|
pToa pHead
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $466 ; 1126, generateBitmap
|
|
push2
|
|
push0
|
|
push0
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $3 ; z
|
|
pushi $a ; 10, inTop
|
|
push
|
|
pTos clut
|
|
callk kernel_35, $6
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$0]
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
jmp code_0c4b
|
|
|
|
code_0c41: pushi $621 ; 1569, getBitmap
|
|
push0
|
|
super WorldObject, $4
|
|
bnot
|
|
sat temp[$0]
|
|
code_0c4b: lat temp[$0]
|
|
ret
|
|
|
|
WorldActor::buildVerbList:
|
|
link $3
|
|
pushi $366 ; 870, buildVerbList
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super WorldObject, $6
|
|
bnot
|
|
pushSelf
|
|
lag global[$1]
|
|
ne?
|
|
bnt code_0ca7
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0ca7
|
|
pushi $3a9 ; 937, isOwnedBy
|
|
push2
|
|
lsg global[$1]
|
|
push1
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
bnt code_0ca7
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
not
|
|
bt code_0c9a
|
|
pushi $41e ; 1054, pIsWorn
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
not
|
|
code_0c9a: bnt code_0ca7
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $1d ; 29, brTop
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
code_0ca7: lsp param[$1]
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_0ccd
|
|
pushSelf
|
|
lag global[$1]
|
|
ne?
|
|
bnt code_0ccd
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BNPC
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_0ccd
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $2af8 ; 11000
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
code_0ccd: pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0ded
|
|
lsp param[$1]
|
|
selfID
|
|
ne?
|
|
bnt code_0ded
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
not
|
|
bnt code_0ded
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
and
|
|
not
|
|
bnt code_0ded
|
|
class VerbList
|
|
sat temp[$0]
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BNPC
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_0d2e
|
|
pushi $37e ; 894, pLeader
|
|
push0
|
|
class GroupList
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0d2e
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $74 ; 116, 't', all
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0d2e: pushi $37d ; 893, servIDEquals
|
|
push1
|
|
pushi $380 ; 896, pWhoToFollow
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
bnt code_0d4f
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $72 ; 114, 'r', skip
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_0ded
|
|
|
|
code_0d4f: pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
pushi $2cb ; 715, pServIDLo
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $2cc ; 716, pServIDHi
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $8
|
|
bnot
|
|
pushi $37f ; 895, findByServID
|
|
push1
|
|
lst temp[$1]
|
|
class GroupList
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_0d9e
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BNPC
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_0de4
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $2d ; 45, '-', cursor
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_0de4
|
|
|
|
code_0d9e: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class GroupList
|
|
send $4
|
|
bnot
|
|
bnt code_0de4
|
|
pushi $37d ; 893, servIDEquals
|
|
push1
|
|
pushi $2ca ; 714, pServID
|
|
push0
|
|
pushi $37e ; 894, pLeader
|
|
push0
|
|
class GroupList
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
bnt code_0de4
|
|
pushi $37d ; 893, servIDEquals
|
|
push1
|
|
pushi $380 ; 896, pWhoToFollow
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_0de4
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $2d ; 45, '-', cursor
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0de4: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
code_0ded: ret
|
|
|
|
WorldActor::dispose:
|
|
link $1
|
|
pToa pWhoToFollow
|
|
bnt code_0e01
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pWhoToFollow
|
|
code_0e01: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
class CombatWaitingList
|
|
send $6
|
|
bnot
|
|
pushi $a0 ; 160, firstTrue
|
|
push2
|
|
pushi $97 ; 151, isKindOf
|
|
class CombatRoom
|
|
push
|
|
pushi $2c1 ; 705, pRoomList
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_0e2d
|
|
pushi $31c ; 796, delCombatant
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_0e2d: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WorldObject, $4
|
|
bnot
|
|
ret
|
|
|
|
WorldActor::updateDisplay:
|
|
link $9
|
|
pTos pBaseView
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_0e52
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_0e52
|
|
pToa pBitmapBased
|
|
not
|
|
bt code_0e52
|
|
pTos signal
|
|
ldi $8 ; fixPriority
|
|
and
|
|
code_0e52: bnt code_0e55
|
|
ret
|
|
|
|
code_0e55: pToa pAction
|
|
sat temp[$8]
|
|
pToa bitmap
|
|
sat temp[$0]
|
|
pushi $15 ; 21, nsBottom
|
|
pushi $c ; 12, inBottom
|
|
pTos pBaseView
|
|
pTos loop
|
|
pTos cel
|
|
lst temp[$8]
|
|
pTos pShirtView
|
|
pTos pPantsView
|
|
pTos pShoesView
|
|
pTos pBeltView
|
|
pTos pWristView
|
|
pTos pBaldricView
|
|
pTos pRobeView
|
|
pTos pCowlView
|
|
pTos pSkirtView
|
|
pTos pWeaponView
|
|
pTos pShieldView
|
|
pTos pHeadOrigin
|
|
pTos pHeadBitmaps
|
|
pTos pFrozenClut
|
|
pTos pInvisibleClut
|
|
pTos clut
|
|
callk kernel_35, $2a
|
|
bnot
|
|
aTop bitmap
|
|
push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
lat temp[$0]
|
|
bnt code_0eb2
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_0eb2: ret
|
|
|
|
WorldActor::setHead:
|
|
link $1
|
|
lap param[$1]
|
|
aTop pHead
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BHead
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
pushi $4eb ; 1259, pOriginPoints
|
|
push0
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
aTop pHeadOrigin
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
pushi $4ea ; 1258, pBitmapArray
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
aTop pHeadBitmaps
|
|
pushi $38e ; 910, take
|
|
push1
|
|
pTos pHead
|
|
self $6
|
|
bnot
|
|
pushi $392 ; 914, putOn
|
|
push1
|
|
pTos pHead
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldActor::setColor:
|
|
pushi $3ae ; 942, setColor
|
|
push1
|
|
lsp param[$1]
|
|
super WorldObject, $6
|
|
bnot
|
|
pToa pHead
|
|
bnt code_0f17
|
|
pushi $3ae ; 942, setColor
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
code_0f17: ret
|
|
|
|
WorldActor::setSex:
|
|
link $1
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $30c ; 780, pSex
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $3cb ; 971, changed
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WorldActor::setRace:
|
|
link $1
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $30b ; 779, pRace
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $3cb ; 971, changed
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WorldActor::getSex:
|
|
pushi $30c ; 780, pSex
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
self $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
WorldActor::getRace:
|
|
pushi $30b ; 779, pRace
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
self $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
WorldActor::saveStep:
|
|
pToa origStep
|
|
aTop pStep
|
|
ret
|
|
|
|
WorldActor::restoreStep:
|
|
pToa pStep
|
|
aTop origStep
|
|
ret
|
|
|
|
WorldActor::generatePolygon:
|
|
ldi $2
|
|
ret
|
|
|
|
WorldActor::init:
|
|
pToa pMover
|
|
not
|
|
bnt code_0f92
|
|
class PolyPath
|
|
aTop pMover
|
|
code_0f92: pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super WorldObject, $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop pWhoToFollow
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
pToa pWhoToFollow
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
WorldActor::goto:
|
|
link $3
|
|
pushi $37d ; 893, servIDEquals
|
|
push1
|
|
pushi $380 ; 896, pWhoToFollow
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
bnt code_1072
|
|
pushi $261 ; 609, controls
|
|
push0
|
|
lag global[$e]
|
|
send $4
|
|
bnot
|
|
bnt code_1072
|
|
pushi $384 ; 900, pSittingOn
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_1072
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
self $4
|
|
bnot
|
|
not
|
|
bnt code_1072
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_1072
|
|
pushi $3f8 ; 1016, pMovieCmd
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_1072
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
not
|
|
bnt code_1072
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
and
|
|
not
|
|
bnt code_1072
|
|
pushi $37e ; 894, pLeader
|
|
push0
|
|
class GroupList
|
|
send $4
|
|
bnot
|
|
bnt code_1072
|
|
pushi $37d ; 893, servIDEquals
|
|
push1
|
|
pushi $2ca ; 714, pServID
|
|
push0
|
|
pushi $37e ; 894, pLeader
|
|
push0
|
|
class GroupList
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_1072
|
|
ldi $f6 ; 246, newCopies
|
|
sat temp[$2]
|
|
ldi $f6 ; 246, newCopies
|
|
sat temp[$1]
|
|
pushi $39b ; 923, goto
|
|
push2
|
|
lsp param[$1]
|
|
add
|
|
push
|
|
lsp param[$2]
|
|
lat temp[$2]
|
|
add
|
|
push
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
code_1072: pushi $373 ; 883, setAction
|
|
push1
|
|
push2
|
|
self $6
|
|
bnot
|
|
pushi $1a9 ; 425, setStep
|
|
push2
|
|
pTos origStep
|
|
ldi $8 ; fixPriority
|
|
shr
|
|
push
|
|
pTos origStep
|
|
ldi $ff ; 255, asInteger
|
|
and
|
|
push
|
|
self $8
|
|
bnot
|
|
pToa pMover
|
|
bnt code_109e
|
|
pushi $15c ; 348, setMotion
|
|
push1
|
|
push
|
|
&rest $1
|
|
self $6
|
|
bnot
|
|
jmp code_10a9
|
|
|
|
code_109e: push2
|
|
lofsa string_1f0e ; "WActor goto called on '%s' with null mover."
|
|
push
|
|
pTos pName
|
|
callk kernel_132, $4
|
|
bnot
|
|
code_10a9: ldi $0
|
|
ret
|
|
|
|
WorldActor::handleVerb:
|
|
link $a
|
|
ldi $1
|
|
sat temp[$0]
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_10bf
|
|
lap param[$2]
|
|
sat temp[$1]
|
|
jmp code_10c3
|
|
|
|
code_10bf: ldi $0
|
|
sat temp[$1]
|
|
code_10c3: push1
|
|
pTos pIndirectObject
|
|
calle export60000_0, $2
|
|
bnot
|
|
not
|
|
bt code_10dd
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
not
|
|
code_10dd: bnt code_10e3
|
|
ldi $0
|
|
aTop pIndirectObject
|
|
code_10e3: push1
|
|
pTos pDirectObject
|
|
calle export60000_0, $2
|
|
bnot
|
|
not
|
|
bt code_10fd
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
not
|
|
code_10fd: bnt code_1103
|
|
ldi $0
|
|
aTop pDirectObject
|
|
code_1103: pToa pIndirectObject
|
|
bnt code_110b
|
|
sat temp[$2]
|
|
jmp code_110f
|
|
|
|
code_110b: pToa pDirectObject
|
|
sat temp[$2]
|
|
code_110f: push1
|
|
lst temp[$2]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_11af
|
|
pushi $4 ; scaleX
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4e ; 78, 'N', width
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
sat temp[$8]
|
|
pushi $4 ; scaleX
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $4e ; 78, 'N', width
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
sat temp[$9]
|
|
lst temp[$8]
|
|
add
|
|
push
|
|
ldi $2
|
|
div
|
|
sat temp[$7]
|
|
push
|
|
pushi $186 ; 390, approachDist
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
sat temp[$6]
|
|
lsp param[$1]
|
|
ldi $3 ; z
|
|
ne?
|
|
bnt code_11af
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
bnt code_11af
|
|
pushi $3a8 ; 936, owns
|
|
push1
|
|
lst temp[$2]
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_11af
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
lat temp[$2]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_11af
|
|
pushi $165 ; 357, distanceTo
|
|
push1
|
|
lst temp[$2]
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
gt?
|
|
bnt code_11af
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
lofsa string_1f3a ; "You are not close enough!"
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
code_11af: lsp param[$1]
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_11e0
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $1c ; 28, brLeft
|
|
ne?
|
|
bnt code_196d
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
ne?
|
|
bnt code_196d
|
|
pushi $39b ; 923, goto
|
|
push0
|
|
&rest $2
|
|
self $4
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_11e0: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_11fd
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class WALookScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_11fd: dup
|
|
ldi $32 ; 50, '2', edit
|
|
eq?
|
|
bnt code_121a
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAExamineScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_121a: dup
|
|
ldi $c ; 12, inBottom
|
|
eq?
|
|
bnt code_1237
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetOpenScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1237: dup
|
|
ldi $1a ; 26, signal
|
|
eq?
|
|
bnt code_1254
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetSitScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1254: dup
|
|
ldi $50 ; 80, 'P', claimed
|
|
eq?
|
|
bnt code_1271
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetStandUpScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1271: dup
|
|
ldi $d ; 13, seenRect
|
|
eq?
|
|
bnt code_128e
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetCloseScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_128e: dup
|
|
ldi $29 ; 41, ')', state
|
|
eq?
|
|
bnt code_12ab
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetLockScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_12ab: dup
|
|
ldi $28 ; 40, '(', style
|
|
eq?
|
|
bnt code_12c8
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetUnlockScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_12c8: dup
|
|
ldi $8 ; fixPriority
|
|
eq?
|
|
bnt code_1315
|
|
pToa pIndirectObject
|
|
bnt code_12d5
|
|
aTop pDirectObject
|
|
code_12d5: ldi $0
|
|
aTop pIndirectObject
|
|
pToa pDirectObject
|
|
bnt code_196d
|
|
pushi $40d ; 1037, pMoney
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_12fe
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetMoneyTakeScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_12fe: pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetTakeScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1315: dup
|
|
ldi $b ; 11, inRight
|
|
eq?
|
|
bnt code_13aa
|
|
pToa pDirectObject
|
|
bnt code_196d
|
|
pToa pIndirectObject
|
|
bnt code_196d
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Money
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
bt code_1340
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Mana
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
code_1340: bnt code_135a
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetMoneyPutScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_135a: pushi $35c ; 860, getBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
bnt code_1393
|
|
pushi $41e ; 1054, pIsWorn
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_1393
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $2f ; 47, '/', mark
|
|
pTos pIndirectObject
|
|
push0
|
|
callk kernel_158, $8
|
|
bnot
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $b ; 11, inRight
|
|
pTos pDirectObject
|
|
pTos pIndirectObject
|
|
callk kernel_158, $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1393: pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetPutScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_13aa: dup
|
|
ldi $a ; 10, inTop
|
|
eq?
|
|
bnt code_1401
|
|
pToa pDirectObject
|
|
bnt code_196d
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Money
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
bt code_13d0
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Mana
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
code_13d0: bnt code_13ea
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetMoneyDropScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_13ea: pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetDropScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1401: dup
|
|
ldi $3d ; 61, '=', b_xAxis
|
|
eq?
|
|
bnt code_141f
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetPutOnScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_141f: dup
|
|
ldi $16 ; 22, lsLeft
|
|
eq?
|
|
bnt code_143d
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetPutOnScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_143d: dup
|
|
ldi $2f ; 47, '/', mark
|
|
eq?
|
|
bnt code_145b
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetTakeOffScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_145b: dup
|
|
ldi $3a ; 58, ':', b_i1
|
|
eq?
|
|
bnt code_147d
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $1c ; 28, brLeft
|
|
ne?
|
|
bnt code_196d
|
|
pushi $3 ; z
|
|
pushi $e ; 14, view
|
|
push0
|
|
push0
|
|
callk kernel_118, $6
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_147d: dup
|
|
ldi $33 ; 51, '3', play
|
|
eq?
|
|
bnt code_14a2
|
|
pTos pAction
|
|
ldi $3 ; z
|
|
ne?
|
|
bnt code_196d
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class WAExitScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_14a2: dup
|
|
ldi $6d ; 109, 'm', picture
|
|
eq?
|
|
bnt code_14fe
|
|
pToa pDirectObject
|
|
bnt code_196d
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BOpenable
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
bnt code_14e7
|
|
pushi $425 ; 1061, pOpen
|
|
push0
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_14e7
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $c ; 12, inBottom
|
|
pTos pDirectObject
|
|
push0
|
|
callk kernel_158, $8
|
|
bnot
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $6d ; 109, 'm', picture
|
|
pTos pDirectObject
|
|
push0
|
|
callk kernel_158, $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_14e7: pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAEnterScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_14fe: dup
|
|
ldi $1b ; 27, illegalBits
|
|
eq?
|
|
bnt code_151c
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetAttackScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_151c: dup
|
|
ldi $70 ; 112, 'p', coordType
|
|
eq?
|
|
bnt code_153a
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetStartCombatScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_153a: dup
|
|
ldi $3f ; 63, '?', xStep
|
|
eq?
|
|
bnt code_1558
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetShopScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1558: dup
|
|
ldi $49 ; 73, 'I', replay
|
|
eq?
|
|
bnt code_1576
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetSellScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1576: dup
|
|
ldi $89 ; 137, top
|
|
eq?
|
|
bnt code_1595
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetAuctionScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1595: dup
|
|
ldi $7c ; 124, '|', titleBack
|
|
eq?
|
|
bnt code_15b3
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetRechargeScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_15b3: dup
|
|
ldi $25 ; 37, '%', fore
|
|
eq?
|
|
bnt code_15d1
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetRepairScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_15d1: dup
|
|
ldi $2b5c ; 11100
|
|
eq?
|
|
bnt code_15f0
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetGetSellScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_15f0: dup
|
|
ldi $2b75 ; 11125
|
|
eq?
|
|
bnt code_160f
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetGetRepairScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_160f: dup
|
|
ldi $11 ; 17, bitmap
|
|
eq?
|
|
bnt code_162d
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetConsumeScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_162d: dup
|
|
ldi $12 ; 18, nsLeft
|
|
eq?
|
|
bnt code_164b
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetConsumeScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_164b: dup
|
|
ldi $77 ; 119, 'w', textTop
|
|
eq?
|
|
bnt code_1669
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetMemorizeScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1669: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_1687
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetTalkScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1687: dup
|
|
ldi $1d ; 29, brTop
|
|
eq?
|
|
bnt code_16e3
|
|
pToa pDirectObject
|
|
bnt code_196d
|
|
pToa pIndirectObject
|
|
bnt code_196d
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Money
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
bt code_16b2
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Mana
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
code_16b2: bnt code_16cc
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetMoneyGiveScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_16cc: pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetGiveScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_16e3: dup
|
|
ldi $2d ; 45, '-', cursor
|
|
eq?
|
|
bnt code_1725
|
|
pToa pDirectObject
|
|
bnt code_196d
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
pushi $2cb ; 715, pServIDLo
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2cc ; 716, pServIDHi
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pWhoToFollow
|
|
send $8
|
|
bnot
|
|
pushi $382 ; 898, updatePanel
|
|
push1
|
|
pushi $383 ; 899, curPanel
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$6]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop pDirectObject
|
|
jmp code_196d
|
|
|
|
code_1725: dup
|
|
ldi $72 ; 114, 'r', skip
|
|
eq?
|
|
bnt code_1753
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
pToa pWhoToFollow
|
|
send $8
|
|
bnot
|
|
pushi $382 ; 898, updatePanel
|
|
push1
|
|
pushi $383 ; 899, curPanel
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$6]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop pDirectObject
|
|
jmp code_196d
|
|
|
|
code_1753: dup
|
|
ldi $74 ; 116, 't', all
|
|
eq?
|
|
bnt code_1771
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetGroupScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1771: dup
|
|
ldi $1c ; 28, brLeft
|
|
eq?
|
|
bnt code_178f
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetTradeScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_178f: dup
|
|
ldi $75 ; 117, 'u', show
|
|
eq?
|
|
bnt code_17ac
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class WANetNewPassScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_17ac: dup
|
|
ldi $76 ; 118, 'v', textLeft
|
|
eq?
|
|
bnt code_17ed
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
pushi $35d ; 861, pProperName
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $c9 ; 201, setScript
|
|
pushi $3 ; z
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetGoHomeScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
lst temp[$4]
|
|
self $a
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_17ed: dup
|
|
ldi $78 ; 120, 'x', textRight
|
|
eq?
|
|
bnt code_180b
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetRobScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_180b: dup
|
|
ldi $7d ; 125, '}', titleFont
|
|
eq?
|
|
bnt code_1829
|
|
pToa pDirectObject
|
|
bnt code_196d
|
|
pushi $142 ; 322, pObject
|
|
push1
|
|
push
|
|
pushi $94 ; 148, init
|
|
push0
|
|
class MakeItemDialog
|
|
send $a
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1829: dup
|
|
ldi $7 ; priority
|
|
eq?
|
|
bnt code_1847
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetUseScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1847: dup
|
|
ldi $79 ; 121, 'y', textBottom
|
|
eq?
|
|
bnt code_1865
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetUseScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1865: dup
|
|
ldi $7a ; 122, 'z', borderColor
|
|
eq?
|
|
bnt code_1883
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetUseScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1883: dup
|
|
ldi $7b ; 123, '{', titleFore
|
|
eq?
|
|
bnt code_18a1
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetUseScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_18a1: dup
|
|
ldi $81 ; 129, magnifier
|
|
eq?
|
|
bnt code_18c0
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetUseScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_18c0: dup
|
|
ldi $e ; 14, view
|
|
eq?
|
|
bnt code_18de
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetPushScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_18de: dup
|
|
ldi $7e ; 126, '~', dimmed
|
|
eq?
|
|
bnt code_18fc
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetOpenScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_18fc: dup
|
|
ldi $7f ; 127, frameOut
|
|
eq?
|
|
bnt code_191a
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetCloseScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_191a: dup
|
|
ldi $80 ; 128, lastKey
|
|
eq?
|
|
bnt code_1939
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetDyeScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1939: dup
|
|
ldi $2b8e ; 11150
|
|
eq?
|
|
bnt code_1958
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WANetDyeScript
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
self $8
|
|
bnot
|
|
jmp code_196d
|
|
|
|
code_1958: ldi $0
|
|
sat temp[$0]
|
|
ldi $0
|
|
aTop pDirectObject
|
|
aTop pIndirectObject
|
|
lat temp[$1]
|
|
bnt code_196d
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_196d: toss
|
|
lat temp[$0]
|
|
ret
|
|
|
|
WorldActor::setMotion:
|
|
link $1
|
|
pToa mover
|
|
sat temp[$0]
|
|
pushi $15c ; 348, setMotion
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super WorldObject, $6
|
|
bnot
|
|
lat temp[$0]
|
|
bnt code_199c
|
|
pToa mover
|
|
not
|
|
bnt code_199c
|
|
pTos pAction
|
|
ldi $2
|
|
eq?
|
|
bnt code_199c
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
code_199c: ret
|
|
|
|
WorldActor::setAction:
|
|
pTos pAction
|
|
ldi $1c ; 28, brLeft
|
|
eq?
|
|
bnt code_19a5
|
|
ret
|
|
|
|
code_19a5: push2
|
|
pushi $80 ; 128, lastKey
|
|
pTos pBaseView
|
|
lap param[$1]
|
|
add
|
|
push
|
|
callk kernel_5, $4
|
|
bnot
|
|
not
|
|
bnt code_1a40
|
|
lsp param[$1]
|
|
dup
|
|
ldi $b ; 11, inRight
|
|
eq?
|
|
bnt code_19c6
|
|
ldi $2
|
|
sap param[$1]
|
|
jmp code_1a3f
|
|
|
|
code_19c6: dup
|
|
ldi $e ; 14, view
|
|
eq?
|
|
bnt code_19d3
|
|
ldi $2
|
|
sap param[$1]
|
|
jmp code_1a3f
|
|
|
|
code_19d3: dup
|
|
ldi $1a ; 26, signal
|
|
eq?
|
|
bnt code_19e0
|
|
ldi $2
|
|
sap param[$1]
|
|
jmp code_1a3f
|
|
|
|
code_19e0: dup
|
|
ldi $12 ; 18, nsLeft
|
|
eq?
|
|
bnt code_19ed
|
|
ldi $2
|
|
sap param[$1]
|
|
jmp code_1a3f
|
|
|
|
code_19ed: dup
|
|
ldi $16 ; 22, lsLeft
|
|
eq?
|
|
bnt code_19fa
|
|
ldi $2
|
|
sap param[$1]
|
|
jmp code_1a3f
|
|
|
|
code_19fa: dup
|
|
ldi $a ; 10, inTop
|
|
eq?
|
|
bnt code_1a07
|
|
ldi $1
|
|
sap param[$1]
|
|
jmp code_1a3f
|
|
|
|
code_1a07: dup
|
|
ldi $d ; 13, seenRect
|
|
eq?
|
|
bnt code_1a14
|
|
ldi $1
|
|
sap param[$1]
|
|
jmp code_1a3f
|
|
|
|
code_1a14: dup
|
|
ldi $19 ; 25, lsBottom
|
|
eq?
|
|
bnt code_1a21
|
|
ldi $1
|
|
sap param[$1]
|
|
jmp code_1a3f
|
|
|
|
code_1a21: dup
|
|
ldi $11 ; 17, bitmap
|
|
eq?
|
|
bnt code_1a2e
|
|
ldi $1
|
|
sap param[$1]
|
|
jmp code_1a3f
|
|
|
|
code_1a2e: dup
|
|
ldi $15 ; 21, nsBottom
|
|
eq?
|
|
bnt code_1a3b
|
|
ldi $1
|
|
sap param[$1]
|
|
jmp code_1a3f
|
|
|
|
code_1a3b: ldi $1
|
|
sap param[$1]
|
|
code_1a3f: toss
|
|
code_1a40: pushi $373 ; 883, setAction
|
|
push1
|
|
lsp param[$1]
|
|
super WorldObject, $6
|
|
bnot
|
|
lsp param[$1]
|
|
dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_1a60
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
class Walk
|
|
push
|
|
self $6
|
|
bnot
|
|
jmp code_1a91
|
|
|
|
code_1a60: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_1a91
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_1a91
|
|
push1
|
|
pushSelf
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
gt?
|
|
bnt code_1a89
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
class Fwd
|
|
push
|
|
self $6
|
|
bnot
|
|
jmp code_1a91
|
|
|
|
code_1a89: pushi $105 ; 261, setCycle
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
code_1a91: toss
|
|
ret
|
|
|
|
WorldActor::gotoVisibleLocation:
|
|
link $c
|
|
pTos pAction
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_1ab1
|
|
lap param[$0]
|
|
bnt code_1ab0
|
|
lap param[$1]
|
|
bnt code_1ab0
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
code_1ab0: ret
|
|
|
|
code_1ab1: pToa plane
|
|
sat temp[$4]
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1e ; 30, brRight
|
|
add
|
|
sat temp[$0]
|
|
pushi $87 ; 135, left
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1e ; 30, brRight
|
|
add
|
|
sat temp[$1]
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1e ; 30, brRight
|
|
sub
|
|
sat temp[$2]
|
|
pushi $88 ; 136, right
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1e ; 30, brRight
|
|
sub
|
|
sat temp[$3]
|
|
pToa y
|
|
sat temp[$6]
|
|
code_1af5: lst temp[$6]
|
|
lat temp[$2]
|
|
lt?
|
|
bnt code_1bed
|
|
pToa x
|
|
sat temp[$5]
|
|
code_1b01: lst temp[$5]
|
|
lat temp[$1]
|
|
gt?
|
|
bnt code_1b70
|
|
pushi $a0 ; 160, firstTrue
|
|
pushi $3 ; z
|
|
pushi $eb ; 235, onMe
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
sat temp[$7]
|
|
bnt code_1b30
|
|
push2
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
gt?
|
|
code_1b30: not
|
|
bnt code_1b67
|
|
lst temp[$5]
|
|
pToa x
|
|
eq?
|
|
bnt code_1b55
|
|
lst temp[$6]
|
|
pToa y
|
|
eq?
|
|
bnt code_1b55
|
|
lap param[$0]
|
|
bnt code_1b66
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_1b66
|
|
|
|
code_1b55: pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
&rest $2
|
|
lsp param[$1]
|
|
self $a
|
|
bnot
|
|
code_1b66: ret
|
|
|
|
code_1b67: lst temp[$5]
|
|
ldi $a ; 10, inTop
|
|
sub
|
|
sat temp[$5]
|
|
jmp code_1b01
|
|
|
|
code_1b70: pToa x
|
|
sat temp[$5]
|
|
code_1b74: lst temp[$5]
|
|
lat temp[$3]
|
|
lt?
|
|
bnt code_1be3
|
|
pushi $a0 ; 160, firstTrue
|
|
pushi $3 ; z
|
|
pushi $eb ; 235, onMe
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
sat temp[$7]
|
|
bnt code_1ba3
|
|
push2
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
gt?
|
|
code_1ba3: not
|
|
bnt code_1bda
|
|
lst temp[$5]
|
|
pToa x
|
|
eq?
|
|
bnt code_1bc8
|
|
lst temp[$6]
|
|
pToa y
|
|
eq?
|
|
bnt code_1bc8
|
|
lap param[$0]
|
|
bnt code_1bd9
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_1bd9
|
|
|
|
code_1bc8: pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
&rest $2
|
|
lsp param[$1]
|
|
self $a
|
|
bnot
|
|
code_1bd9: ret
|
|
|
|
code_1bda: lst temp[$5]
|
|
ldi $a ; 10, inTop
|
|
add
|
|
sat temp[$5]
|
|
jmp code_1b74
|
|
|
|
code_1be3: lst temp[$6]
|
|
ldi $a ; 10, inTop
|
|
add
|
|
sat temp[$6]
|
|
jmp code_1af5
|
|
|
|
code_1bed: pToa y
|
|
sat temp[$6]
|
|
code_1bf1: lst temp[$6]
|
|
lat temp[$0]
|
|
gt?
|
|
bnt code_1ce9
|
|
pToa x
|
|
sat temp[$5]
|
|
code_1bfd: lst temp[$5]
|
|
lat temp[$1]
|
|
gt?
|
|
bnt code_1c6c
|
|
pushi $a0 ; 160, firstTrue
|
|
pushi $3 ; z
|
|
pushi $eb ; 235, onMe
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
sat temp[$7]
|
|
bnt code_1c2c
|
|
push2
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
gt?
|
|
code_1c2c: not
|
|
bnt code_1c63
|
|
lst temp[$5]
|
|
pToa x
|
|
eq?
|
|
bnt code_1c51
|
|
lst temp[$6]
|
|
pToa y
|
|
eq?
|
|
bnt code_1c51
|
|
lap param[$0]
|
|
bnt code_1c62
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_1c62
|
|
|
|
code_1c51: pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
&rest $2
|
|
lsp param[$1]
|
|
self $a
|
|
bnot
|
|
code_1c62: ret
|
|
|
|
code_1c63: lst temp[$5]
|
|
ldi $a ; 10, inTop
|
|
sub
|
|
sat temp[$5]
|
|
jmp code_1bfd
|
|
|
|
code_1c6c: pToa x
|
|
sat temp[$5]
|
|
code_1c70: lst temp[$5]
|
|
lat temp[$3]
|
|
lt?
|
|
bnt code_1cdf
|
|
pushi $a0 ; 160, firstTrue
|
|
pushi $3 ; z
|
|
pushi $eb ; 235, onMe
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
sat temp[$7]
|
|
bnt code_1c9f
|
|
push2
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
gt?
|
|
code_1c9f: not
|
|
bnt code_1cd6
|
|
lst temp[$5]
|
|
pToa x
|
|
eq?
|
|
bnt code_1cc4
|
|
lst temp[$6]
|
|
pToa y
|
|
eq?
|
|
bnt code_1cc4
|
|
lap param[$0]
|
|
bnt code_1cd5
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_1cd5
|
|
|
|
code_1cc4: pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
&rest $2
|
|
lsp param[$1]
|
|
self $a
|
|
bnot
|
|
code_1cd5: ret
|
|
|
|
code_1cd6: lst temp[$5]
|
|
ldi $a ; 10, inTop
|
|
add
|
|
sat temp[$5]
|
|
jmp code_1c70
|
|
|
|
code_1cdf: lst temp[$6]
|
|
ldi $a ; 10, inTop
|
|
sub
|
|
sat temp[$6]
|
|
jmp code_1bf1
|
|
|
|
code_1ce9: ret
|
|
|
|
WALookScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_1d0c
|
|
pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_1d3a
|
|
|
|
code_1d0c: lsp param[$2]
|
|
dup
|
|
ldi $c350 ; -15536
|
|
eq?
|
|
bnt code_1d28
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1f5f ; "You can't quite make it out from here."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_1d39
|
|
|
|
code_1d28: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_1d39: toss
|
|
code_1d3a: lat temp[$0]
|
|
bnt code_1d49
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_1d49: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WALookScript::changeState:
|
|
link $2
|
|
pToa pDirectObject
|
|
sat temp[$0]
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_1db5
|
|
push1
|
|
lst temp[$0]
|
|
calle export60000_0, $2
|
|
bnot
|
|
not
|
|
bnt code_1d7d
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_1d7d: pushi $37d ; 893, servIDEquals
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
lat temp[$0]
|
|
send $8
|
|
bnot
|
|
bt code_1d98
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_1d98: bnt code_1da2
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_1faa
|
|
|
|
code_1da2: pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
lst temp[$0]
|
|
pushi $3 ; z
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_1faa
|
|
|
|
code_1db5: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_1dcb
|
|
pushi $39d ; 925, face
|
|
push2
|
|
lst temp[$0]
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_1faa
|
|
|
|
code_1dcb: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_1ea7
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $3e6 ; 998, pUser
|
|
push1
|
|
pTos pClient
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
push1
|
|
lst temp[$0]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1e18
|
|
pushi $37d ; 893, servIDEquals
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
lat temp[$0]
|
|
send $8
|
|
bnot
|
|
bnt code_1e18
|
|
pushi $391 ; 913, look
|
|
push1
|
|
lst temp[$0]
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_1faa
|
|
|
|
code_1e18: push1
|
|
lst temp[$0]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1e6e
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
bnt code_1e6e
|
|
pushi $386 ; 902, hasBase
|
|
push1
|
|
class BNPC
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_1e6e
|
|
pushi $319 ; 793, pHead
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
bnt code_1e6e
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
aTop register
|
|
pushi $50e ; 1294, getBiography
|
|
pushi $3 ; z
|
|
lst temp[$0]
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $a
|
|
bnot
|
|
jmp code_1faa
|
|
|
|
code_1e6e: push1
|
|
lst temp[$0]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1e99
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
aTop register
|
|
pushi $4fa ; 1274, getDescription
|
|
pushi $3 ; z
|
|
lst temp[$0]
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $a
|
|
bnot
|
|
jmp code_1faa
|
|
|
|
code_1e99: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_1faa
|
|
|
|
code_1ea7: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_1faa
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pHandsOff
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $37d ; 893, servIDEquals
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
lat temp[$0]
|
|
send $8
|
|
bnot
|
|
bnt code_1ed8
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_1faa
|
|
|
|
code_1ed8: push1
|
|
lst temp[$0]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1f24
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
bnt code_1f24
|
|
pushi $386 ; 902, hasBase
|
|
push1
|
|
class BNPC
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_1f24
|
|
pushi $319 ; 793, pHead
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
bnt code_1f24
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
lst temp[$0]
|
|
class CreateLookDialog
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_1faa
|
|
|
|
code_1f24: push1
|
|
lst temp[$0]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1f85
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BDescribed
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_1f85
|
|
pushi $386 ; 902, hasBase
|
|
push1
|
|
class BNPC
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_1f85
|
|
pushi $645 ; 1605, pIsBook
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_1f85
|
|
pushi $3 ; z
|
|
pushi $13 ; 19, nsTop
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1f86 ; "Book"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
push
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos register
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_118, $6
|
|
bnot
|
|
jmp code_1f9a
|
|
|
|
code_1f85: pushi $4 ; scaleX
|
|
pushi $7 ; priority
|
|
push2
|
|
lst temp[$0]
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos register
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_118, $8
|
|
bnot
|
|
code_1f9a: pushi $95 ; 149, dispose
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_1faa: toss
|
|
ret
|
|
|
|
WANetSitScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2070
|
|
push1
|
|
pTos pDirectObject
|
|
callk kernel_20, $2
|
|
bnot
|
|
pushi $4e ; 78, 'N', width
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
sat temp[$2]
|
|
pushi $4e ; 78, 'N', width
|
|
pushi $5 ; scaleY
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
sat temp[$3]
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $5 ; scaleY
|
|
push2
|
|
pushi $e ; 14, view
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $9 ; inLeft
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
lat temp[$2]
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
add
|
|
sat temp[$0]
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $5 ; scaleY
|
|
pushi $3 ; z
|
|
pushi $e ; 14, view
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $9 ; inLeft
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
lat temp[$3]
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
add
|
|
sat temp[$1]
|
|
lat temp[$0]
|
|
aTop x
|
|
lat temp[$1]
|
|
aTop y
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
lst temp[$0]
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_20dd
|
|
|
|
code_2070: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_20aa
|
|
push1
|
|
push1
|
|
pTos x
|
|
push2
|
|
push1
|
|
pTos y
|
|
pToa pClient
|
|
send $c
|
|
bnot
|
|
pushi $f ; 15, loop
|
|
push1
|
|
pushi $f ; 15, loop
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $3cd ; 973, recordPosn
|
|
push0
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_20dd
|
|
|
|
code_20aa: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_20cf
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $a2 ; 162, allTrue
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_20dd
|
|
|
|
code_20cf: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_20dd
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_20dd: toss
|
|
ret
|
|
|
|
WASitScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_212a
|
|
pushi $343 ; 835, pOwner
|
|
push1
|
|
pTos pClient
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BSit
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $384 ; 900, pSittingOn
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $3 ; z
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_2138
|
|
|
|
code_212a: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2138
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2138: toss
|
|
ret
|
|
|
|
WANetStandUpScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2164
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $a3 ; 163, contains
|
|
lsg global[$1]
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_2172
|
|
|
|
code_2164: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2172
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2172: toss
|
|
ret
|
|
|
|
WAStandScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2212
|
|
pushi $632 ; 1586, pHealthHi
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
lt?
|
|
bt code_21e0
|
|
pushi $632 ; 1586, pHealthHi
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_21a9
|
|
pushi $406 ; 1030, pHealth
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
not
|
|
code_21a9: bt code_21e0
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1c ; 28, brLeft
|
|
eq?
|
|
bt code_21e0
|
|
pToa register
|
|
not
|
|
bnt code_21f1
|
|
push1
|
|
pushi $384 ; 900, pSittingOn
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_21f1
|
|
pushi $384 ; 900, pSittingOn
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
code_21e0: bnt code_21f1
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_22c8
|
|
|
|
code_21f1: pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_2202
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_2202: pushi $105 ; 261, setCycle
|
|
push2
|
|
class Beg
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_22c8
|
|
|
|
code_2212: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_22a5
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
bnt code_2253
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
bnt code_2253
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
class End
|
|
push
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
push1
|
|
pTos pClient
|
|
calle export40111_0, $2
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $c
|
|
bnot
|
|
jmp code_229e
|
|
|
|
code_2253: push1
|
|
pushi $384 ; 900, pSittingOn
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_2294
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BSit
|
|
push
|
|
pushi $384 ; 900, pSittingOn
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_2294
|
|
pushi $343 ; 835, pOwner
|
|
push1
|
|
push0
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $384 ; 900, pSittingOn
|
|
push1
|
|
push0
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
code_2294: pushi $373 ; 883, setAction
|
|
push1
|
|
push1
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
code_229e: ldi $1
|
|
aTop cycles
|
|
jmp code_22c8
|
|
|
|
code_22a5: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_22c8
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_22bd
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_22bd: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_22c8: toss
|
|
ret
|
|
|
|
WANetMemorizeScript::handleError:
|
|
link $2
|
|
ldi $0
|
|
sat temp[$0]
|
|
ldi $0
|
|
sat temp[$1]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_2375
|
|
lsp param[$3]
|
|
dup
|
|
ldi $2711 ; 10001
|
|
eq?
|
|
bnt code_22f8
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1fd4 ; "You know all there is to know about that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_2371
|
|
|
|
code_22f8: dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_2312
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1ffe ; "You do not have enough build points to learn that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_2371
|
|
|
|
code_2312: dup
|
|
ldi $2730 ; 10032
|
|
eq?
|
|
bnt code_232c
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2031 ; "You do not have enough skill to learn that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_2371
|
|
|
|
code_232c: dup
|
|
ldi $272f ; 10031
|
|
eq?
|
|
bnt code_2346
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_205d ; "You failed to learn that skill and spent one build point due to the effort."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_2371
|
|
|
|
code_2346: dup
|
|
ldi $272c ; 10028
|
|
eq?
|
|
bnt code_2360
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_20a9 ; "Your intelligence is too limited to learn that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_2371
|
|
|
|
code_2360: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_2371: toss
|
|
jmp code_2386
|
|
|
|
code_2375: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_2386: lat temp[$0]
|
|
bnt code_23ba
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_20d9 ; "Learn> %s"
|
|
push
|
|
lst temp[$0]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $3 ; z
|
|
pushi $6 ; maxScale
|
|
push2
|
|
push
|
|
callk kernel_118, $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
lst temp[$0]
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_23ba: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetMemorizeScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_23f0
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $a5 ; 165, first
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_23fe
|
|
|
|
code_23f0: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_23fe
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_23fe: toss
|
|
ret
|
|
|
|
WAMemorizeScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2428
|
|
pushi $31e ; 798, pDirectObject
|
|
push1
|
|
push0
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_2436
|
|
|
|
code_2428: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2436
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2436: toss
|
|
ret
|
|
|
|
WANetTalkScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2457
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $4 ; scaleX
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_249a
|
|
|
|
code_2457: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_246d
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_249a
|
|
|
|
code_246d: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_248c
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $50f ; 1295, talkTo
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_249a
|
|
|
|
code_248c: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_249a
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_249a: toss
|
|
ret
|
|
|
|
approveGive::doit:
|
|
lap param[$0]
|
|
bnt code_24d3
|
|
lap param[$1]
|
|
not
|
|
bnt code_24c9
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $97 ; 151, isKindOf
|
|
pTos pClient
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_24c9: pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_2502
|
|
|
|
code_24d3: pushi $10 ; 16, cel
|
|
pTos pPrompt
|
|
pushi $fdf5 ; -523
|
|
lsg global[$55]
|
|
pushi $8b ; 139, numLines
|
|
push1
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_2118 ; "Accept"
|
|
push
|
|
push1
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_211f ; "Refuse"
|
|
push
|
|
push0
|
|
pushi $91 ; 145, bitPutIndex
|
|
push2
|
|
pushi $93 ; 147, pLine
|
|
pushSelf
|
|
pushi $45 ; 69, 'E', doit
|
|
&rest $3 ; z
|
|
calle export60029_0, $20
|
|
bnot
|
|
ret
|
|
|
|
code_2502: ret
|
|
|
|
WANetGiveScript::handleEvent:
|
|
lsp param[$1]
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_251a
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_2528
|
|
|
|
code_251a: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2528
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2528: toss
|
|
ret
|
|
|
|
WANetGiveScript::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_254b
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $1d ; 29, brTop
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_2604
|
|
|
|
code_254b: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2561
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_2604
|
|
|
|
code_2561: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_25d1
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BShop
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_25ca
|
|
pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_2132 ; "Are you sure you want to give your\n"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $a
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $c ; 12, inBottom
|
|
pushi $b ; 11, inRight
|
|
pushi $4 ; scaleX
|
|
lofsa string_215f ; "Are you sure?"
|
|
push
|
|
lst temp[$1]
|
|
lofsa string_216d ; "No"
|
|
push
|
|
pushSelf
|
|
pushi $95 ; 149, dispose
|
|
lofsa string_2170 ; "Yes"
|
|
push
|
|
pushSelf
|
|
pushi $c7 ; 199, cue
|
|
push1
|
|
push0
|
|
callk kernel_118, $18
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_2604
|
|
|
|
code_25ca: ldi $1
|
|
aTop cycles
|
|
jmp code_2604
|
|
|
|
code_25d1: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_25f6
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $a4 ; 164, isEmpty
|
|
pTos pDirectObject
|
|
pTos pIndirectObject
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_2604
|
|
|
|
code_25f6: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_2604
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2604: toss
|
|
ret
|
|
|
|
WAGiveScript::changeState:
|
|
link $3
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_263e
|
|
pushi $384 ; 900, pSittingOn
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_2637
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $4 ; scaleX
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $e
|
|
bnot
|
|
jmp code_2686
|
|
|
|
code_2637: ldi $1
|
|
aTop cycles
|
|
jmp code_2686
|
|
|
|
code_263e: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_265b
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAStandScript
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_2686
|
|
|
|
code_265b: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_2674
|
|
pushi $38e ; 910, take
|
|
push1
|
|
pTos pIndirectObject
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_2686
|
|
|
|
code_2674: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_2686
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2686: toss
|
|
ret
|
|
|
|
WANetMoneyGiveScript::dispose:
|
|
pToa scratch
|
|
bnt code_2698
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scratch
|
|
code_2698: push1
|
|
pushi $c ; 12, inBottom
|
|
callk kernel_118, $2
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetMoneyGiveScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_26f2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_26e3
|
|
pushi $4 ; scaleX
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
pushSelf
|
|
pTos scratch
|
|
callk kernel_118, $8
|
|
bnot
|
|
jmp code_277f
|
|
|
|
code_26e3: pushi $4 ; scaleX
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
pushSelf
|
|
pTos scratch
|
|
callk kernel_118, $8
|
|
bnot
|
|
jmp code_277f
|
|
|
|
code_26f2: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2727
|
|
pushi $12d ; 301, greater
|
|
push1
|
|
push0
|
|
pToa scratch
|
|
send $6
|
|
bnot
|
|
bnt code_2719
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $1d ; 29, brTop
|
|
pushSelf
|
|
pToa client
|
|
send $a
|
|
bnot
|
|
jmp code_277f
|
|
|
|
code_2719: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_277f
|
|
|
|
code_2727: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_273d
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa client
|
|
send $8
|
|
bnot
|
|
jmp code_277f
|
|
|
|
code_273d: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_276d
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $510 ; 1296, giveMoney
|
|
pushi $4 ; scaleX
|
|
pTos scratch
|
|
pTos pDirectObject
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Mana
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_277f
|
|
|
|
code_276d: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_277f
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_277f: toss
|
|
ret
|
|
|
|
WAMoneyGiveScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_27b9
|
|
pushi $384 ; 900, pSittingOn
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_27b2
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $4 ; scaleX
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $e
|
|
bnot
|
|
jmp code_283f
|
|
|
|
code_27b2: ldi $1
|
|
aTop cycles
|
|
jmp code_283f
|
|
|
|
code_27b9: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2831
|
|
pushi $3e3 ; 995, pIndirectObject
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
bnt code_27f5
|
|
pushi $3da ; 986, subManaValue
|
|
push1
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $3d9 ; 985, addManaValue
|
|
push1
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
jmp code_281b
|
|
|
|
code_27f5: pushi $3d7 ; 983, subValue
|
|
push1
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $3d6 ; 982, addValue
|
|
push1
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
code_281b: pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAStandScript
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_283f
|
|
|
|
code_2831: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_283f
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_283f: toss
|
|
ret
|
|
|
|
WAExamineScript::changeState:
|
|
link $1
|
|
pToa pDirectObject
|
|
sat temp[$0]
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2866
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
lst temp[$0]
|
|
pushi $32 ; 50, '2', edit
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_28bf
|
|
|
|
code_2866: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_287c
|
|
pushi $39d ; 925, face
|
|
push2
|
|
lst temp[$0]
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_28bf
|
|
|
|
code_287c: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_28ad
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $3e6 ; 998, pUser
|
|
push1
|
|
pTos pClient
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $39e ; 926, examine
|
|
push1
|
|
lst temp[$0]
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_28bf
|
|
|
|
code_28ad: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_28bf
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_28bf: toss
|
|
ret
|
|
|
|
myGetPass::doit:
|
|
lap param[$0]
|
|
bnt code_28ec
|
|
lap param[$1]
|
|
bnt code_28d7
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
jmp code_28e2
|
|
|
|
code_28d7: pushi $9f ; 159, add
|
|
push1
|
|
pTos pClient
|
|
class DeadObjects
|
|
send $6
|
|
bnot
|
|
code_28e2: pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_2932
|
|
|
|
code_28ec: 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_21c8 ; " OK "
|
|
push
|
|
push1
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_21cd ; "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_2932: ret
|
|
|
|
WANetOpenScript::dispose:
|
|
pToa pDone
|
|
not
|
|
bnt code_293f
|
|
push1
|
|
push1
|
|
callk kernel_158, $2
|
|
bnot
|
|
code_293f: pToa scratch
|
|
bnt code_294b
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_294b: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetOpenScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_2a0b
|
|
lsp param[$3]
|
|
dup
|
|
ldi $2717 ; 10007
|
|
eq?
|
|
bnt code_298a
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_21de ; "You can't open the %s because it is locked."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_2a07
|
|
|
|
code_298a: dup
|
|
ldi $2714 ; 10004
|
|
eq?
|
|
bnt code_29ae
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_21de ; "You can't open the %s because it is locked."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_2a07
|
|
|
|
code_29ae: dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_29d2
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_220a ; "The %s is strangely sealed and will not open."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_2a07
|
|
|
|
code_29d2: dup
|
|
ldi $271d ; 10013
|
|
eq?
|
|
bnt code_29f6
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_2238 ; "You can not open that. The %s will open when the last person in it's dungeon has left."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_2a07
|
|
|
|
code_29f6: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_2a07: toss
|
|
jmp code_2a1c
|
|
|
|
code_2a0b: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_2a1c: push1
|
|
push1
|
|
callk kernel_158, $2
|
|
bnot
|
|
lat temp[$0]
|
|
bnt code_2a31
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_2a31: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetOpenScript::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2a5e
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $c ; 12, inBottom
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_2b54
|
|
|
|
code_2a5e: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2a74
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_2b54
|
|
|
|
code_2a74: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_2ac0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BPassword
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_2ab7
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
pushi $a ; 10, inTop
|
|
pushi $b ; 11, inRight
|
|
push1
|
|
lofsa string_228f ; "Password"
|
|
push
|
|
lofsa string_2298 ; "Enter the password:"
|
|
push
|
|
pTos scratch
|
|
pushi $10 ; 16, cel
|
|
pushSelf
|
|
pushi $95 ; 149, dispose
|
|
pushSelf
|
|
pushi $c7 ; 199, cue
|
|
callk kernel_118, $14
|
|
bnot
|
|
jmp code_2b54
|
|
|
|
code_2ab7: ipToa state
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_2b54
|
|
|
|
code_2ac0: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_2ae1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa scratch
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_2ada
|
|
pTos state
|
|
ldi $2
|
|
sub
|
|
aTop state
|
|
code_2ada: ldi $1
|
|
aTop cycles
|
|
jmp code_2b54
|
|
|
|
code_2ae1: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_2b42
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BPassword
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_2b2d
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BEntry
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_2b15
|
|
push1
|
|
push1
|
|
callk kernel_158, $2
|
|
bnot
|
|
code_2b15: pushi $511 ; 1297, performPass
|
|
pushi $5 ; scaleY
|
|
pushi $9b ; 155, handleMsg
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pTos scratch
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $e
|
|
bnot
|
|
jmp code_2b54
|
|
|
|
code_2b2d: pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $9b ; 155, handleMsg
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_2b54
|
|
|
|
code_2b42: dup
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_2b54
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2b54: toss
|
|
ret
|
|
|
|
WAOpenScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2be2
|
|
pushi $3e6 ; 998, pUser
|
|
push1
|
|
pTos pClient
|
|
pushi $248 ; 584, open
|
|
push0
|
|
pToa pDirectObject
|
|
send $a
|
|
bnot
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_22bc ; "dopen.wav"
|
|
push
|
|
pTos pDirectObject
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BOpenable
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_2bc9
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $1e ; 30, brRight
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
lag global[$d5]
|
|
bnt code_2bb9
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
push1
|
|
pTos pDirectObject
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_2c05
|
|
|
|
code_2bb9: pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pDirectObject
|
|
send $8
|
|
bnot
|
|
jmp code_2c05
|
|
|
|
code_2bc9: pushi $10 ; 16, cel
|
|
push1
|
|
push1
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
pushi $1ad ; 429, update
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_2c05
|
|
|
|
code_2be2: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2c05
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_2bfa
|
|
pushi $3a4 ; 932, showContents
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
code_2bfa: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2c05: toss
|
|
ret
|
|
|
|
WANetCloseScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_2c50
|
|
lsp param[$3]
|
|
dup
|
|
ldi $271d ; 10013
|
|
eq?
|
|
bnt code_2c3b
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_22d3 ; "You can not close that. The %s will close once someone has entered it's dungeon."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_2c4c
|
|
|
|
code_2c3b: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_2c4c: toss
|
|
jmp code_2c61
|
|
|
|
code_2c50: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_2c61: lat temp[$0]
|
|
bnt code_2c70
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_2c70: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetCloseScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2c9b
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $d ; 13, seenRect
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_2ce8
|
|
|
|
code_2c9b: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2cb1
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_2ce8
|
|
|
|
code_2cb1: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_2cd6
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $9c ; 156, handleError
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_2ce8
|
|
|
|
code_2cd6: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_2ce8
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2ce8: toss
|
|
ret
|
|
|
|
WACloseScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2d7f
|
|
pushi $3e6 ; 998, pUser
|
|
push1
|
|
pTos pClient
|
|
pushi $253 ; 595, close
|
|
push0
|
|
pToa pDirectObject
|
|
send $a
|
|
bnot
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_2335 ; "dclose.wav"
|
|
push
|
|
pTos pDirectObject
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BOpenable
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_2d66
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $1e ; 30, brRight
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
lag global[$d5]
|
|
bnt code_2d42
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
push0
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_2d9a
|
|
|
|
code_2d42: pushi $10 ; 16, cel
|
|
push1
|
|
push1
|
|
pTos pDirectObject
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class Beg
|
|
push
|
|
pushSelf
|
|
pToa pDirectObject
|
|
send $8
|
|
bnot
|
|
jmp code_2d9a
|
|
|
|
code_2d66: pushi $10 ; 16, cel
|
|
push1
|
|
push0
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
pushi $1ad ; 429, update
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_2d9a
|
|
|
|
code_2d7f: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2d9a
|
|
pushi $3a5 ; 933, hideContents
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2d9a: toss
|
|
ret
|
|
|
|
WANetDyeScript::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2dbe
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $80 ; 128, lastKey
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_2e0b
|
|
|
|
code_2dbe: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2dd4
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_2e0b
|
|
|
|
code_2dd4: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_2df9
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $a9 ; 169, prev
|
|
pTos pDirectObject
|
|
pTos pIndirectObject
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_2e0b
|
|
|
|
code_2df9: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_2e0b
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2e0b: toss
|
|
ret
|
|
|
|
WANetLockScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_2e31
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_2e31: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetLockScript::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2e5e
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $29 ; 41, ')', state
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_2eb2
|
|
|
|
code_2e5e: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2e74
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_2eb2
|
|
|
|
code_2e74: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_2ea0
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $9d ; 157, eachElementDo
|
|
pTos pDirectObject
|
|
pToa pIndirectObject
|
|
bnt code_2e94
|
|
jmp code_2e96
|
|
|
|
code_2e94: ldi $ff ; 255, asInteger
|
|
code_2e96: push
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_2eb2
|
|
|
|
code_2ea0: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_2eb2
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2eb2: toss
|
|
ret
|
|
|
|
WALockScript::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2ee6
|
|
pushi $3e6 ; 998, pUser
|
|
push1
|
|
pTos pClient
|
|
pushi $34a ; 842, lock
|
|
push0
|
|
pToa pDirectObject
|
|
send $a
|
|
bnot
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_236d ; "dlock.wav"
|
|
push
|
|
pTos pDirectObject
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_2ef8
|
|
|
|
code_2ee6: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2ef8
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2ef8: toss
|
|
ret
|
|
|
|
WANetUnlockScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_2f1e
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_2f1e: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetUnlockScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2f49
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $28 ; 40, '(', style
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_2f9d
|
|
|
|
code_2f49: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2f5f
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_2f9d
|
|
|
|
code_2f5f: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_2f8b
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $9e ; 158, nextNode
|
|
pTos pDirectObject
|
|
pToa pIndirectObject
|
|
bnt code_2f7f
|
|
jmp code_2f81
|
|
|
|
code_2f7f: ldi $ff ; 255, asInteger
|
|
code_2f81: push
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_2f9d
|
|
|
|
code_2f8b: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_2f9d
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2f9d: toss
|
|
ret
|
|
|
|
WAUnlockScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_2fcf
|
|
pushi $3e6 ; 998, pUser
|
|
push1
|
|
pTos pClient
|
|
pushi $38d ; 909, unlock
|
|
push0
|
|
pToa pDirectObject
|
|
send $a
|
|
bnot
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_2396 ; "dunlock.wav"
|
|
push
|
|
pTos pDirectObject
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_2fe1
|
|
|
|
code_2fcf: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2fe1
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2fe1: toss
|
|
ret
|
|
|
|
WANetTakeScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_3022
|
|
lsp param[$3]
|
|
dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_300d
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_23b1 ; "You weren't fast enough."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_301e
|
|
|
|
code_300d: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_301e: toss
|
|
jmp code_3033
|
|
|
|
code_3022: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_3033: lat temp[$0]
|
|
bnt code_3042
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_3042: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetTakeScript::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_306f
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $8 ; fixPriority
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_30bc
|
|
|
|
code_306f: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3085
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_30bc
|
|
|
|
code_3085: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_30aa
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $96 ; 150, isClass
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_30bc
|
|
|
|
code_30aa: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_30bc
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_30bc: toss
|
|
ret
|
|
|
|
WATakeScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3113
|
|
pushi $3a8 ; 936, owns
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_30e6
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
ne?
|
|
code_30e6: aTop pDoAnimation
|
|
pToa pDoAnimation
|
|
bnt code_3109
|
|
lag global[$d5]
|
|
not
|
|
bnt code_3109
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $5 ; scaleY
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $e
|
|
bnot
|
|
jmp code_3172
|
|
|
|
code_3109: pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_3172
|
|
|
|
code_3113: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3137
|
|
pushi $3e6 ; 998, pUser
|
|
push1
|
|
pTos pClient
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
pushi $38e ; 910, take
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_3172
|
|
|
|
code_3137: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_3154
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAStandScript
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_3172
|
|
|
|
code_3154: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_3172
|
|
pushi $3 ; z
|
|
pushi $d ; 13, seenRect
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
callk kernel_118, $6
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3172: toss
|
|
ret
|
|
|
|
WANetMoneyTakeScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_31b3
|
|
lsp param[$3]
|
|
dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_319e
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_23b1 ; "You weren't fast enough."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_31af
|
|
|
|
code_319e: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_31af: toss
|
|
jmp code_31c4
|
|
|
|
code_31b3: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_31c4: lat temp[$0]
|
|
bnt code_31d3
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_31d3: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetMoneyTakeScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3200
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $8 ; fixPriority
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_3247
|
|
|
|
code_3200: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3216
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_3247
|
|
|
|
code_3216: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_3235
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $512 ; 1298, takeMoney
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_3247
|
|
|
|
code_3235: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_3247
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3247: toss
|
|
ret
|
|
|
|
WAMoneyTakeScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_32a0
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
ne?
|
|
bnt code_3273
|
|
pushi $3a8 ; 936, owns
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
not
|
|
code_3273: aTop pDoAnimation
|
|
pToa pDoAnimation
|
|
bnt code_3296
|
|
lag global[$d5]
|
|
not
|
|
bnt code_3296
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $5 ; scaleY
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $e
|
|
bnot
|
|
jmp code_3340
|
|
|
|
code_3296: pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_3340
|
|
|
|
code_32a0: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_32fe
|
|
pushi $38e ; 910, take
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_32d9
|
|
pushi $3d9 ; 985, addManaValue
|
|
push1
|
|
pushi $338 ; 824, pManaValue
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
jmp code_32ec
|
|
|
|
code_32d9: pushi $3d6 ; 982, addValue
|
|
push1
|
|
pushi $337 ; 823, pValue
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
code_32ec: pToa pDirectObject
|
|
bnt code_32f7
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_32f7: ldi $1
|
|
aTop cycles
|
|
jmp code_3340
|
|
|
|
code_32fe: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_331b
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAStandScript
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_3340
|
|
|
|
code_331b: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_3340
|
|
pushi $31e ; 798, pDirectObject
|
|
push1
|
|
push0
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3340: toss
|
|
ret
|
|
|
|
WANetPutScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_339b
|
|
lsp param[$3]
|
|
dup
|
|
ldi $271c ; 10012
|
|
eq?
|
|
bnt code_336c
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_240e ; "It's too bulky to fit in that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_3397
|
|
|
|
code_336c: dup
|
|
ldi $271d ; 10013
|
|
eq?
|
|
bnt code_3386
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_242d ; "It's too heavy to fit in that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_3397
|
|
|
|
code_3386: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_3397: toss
|
|
jmp code_33ac
|
|
|
|
code_339b: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_33ac: lat temp[$0]
|
|
bnt code_33bb
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_33bb: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetPutScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_33e6
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $b ; 11, inRight
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_3433
|
|
|
|
code_33e6: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_33fc
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_3433
|
|
|
|
code_33fc: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_3421
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $98 ; 152, isMemberOf
|
|
pTos pDirectObject
|
|
pTos pIndirectObject
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_3433
|
|
|
|
code_3421: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_3433
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3433: toss
|
|
ret
|
|
|
|
WAPutScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_348e
|
|
pushi $384 ; 900, pSittingOn
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_3487
|
|
pushi $3a8 ; 936, owns
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
not
|
|
aTop pDoAnimation
|
|
pToa pDoAnimation
|
|
bnt code_347d
|
|
lag global[$d5]
|
|
not
|
|
bnt code_347d
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $5 ; scaleY
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $e
|
|
bnot
|
|
jmp code_34dc
|
|
|
|
code_347d: pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_34dc
|
|
|
|
code_3487: ldi $1
|
|
aTop cycles
|
|
jmp code_34dc
|
|
|
|
code_348e: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_34ad
|
|
pushi $3e6 ; 998, pUser
|
|
push1
|
|
pTos pClient
|
|
pushi $38e ; 910, take
|
|
push1
|
|
pTos pIndirectObject
|
|
pToa pDirectObject
|
|
send $c
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_34dc
|
|
|
|
code_34ad: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_34ca
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAStandScript
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_34dc
|
|
|
|
code_34ca: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_34dc
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_34dc: toss
|
|
ret
|
|
|
|
WANetMoneyPutScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_3502
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_3502: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetMoneyPutScript::dispose:
|
|
pToa scratch
|
|
bnt code_351e
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scratch
|
|
code_351e: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetMoneyPutScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3548
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $b ; 11, inRight
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_35f7
|
|
|
|
code_3548: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_355e
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_35f7
|
|
|
|
code_355e: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_359f
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_3590
|
|
pushi $4 ; scaleX
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
pushSelf
|
|
pTos scratch
|
|
callk kernel_118, $8
|
|
bnot
|
|
jmp code_35f7
|
|
|
|
code_3590: pushi $4 ; scaleX
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
pushSelf
|
|
pTos scratch
|
|
callk kernel_118, $8
|
|
bnot
|
|
jmp code_35f7
|
|
|
|
code_359f: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_35e5
|
|
pushi $12d ; 301, greater
|
|
push1
|
|
push0
|
|
pToa scratch
|
|
send $6
|
|
bnot
|
|
bnt code_35de
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $513 ; 1299, putMoney
|
|
pushi $4 ; scaleX
|
|
pTos scratch
|
|
pTos pDirectObject
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
push
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_35f7
|
|
|
|
code_35de: ldi $1
|
|
aTop cycles
|
|
jmp code_35f7
|
|
|
|
code_35e5: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_35f7
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_35f7: toss
|
|
ret
|
|
|
|
WAMoneyPutScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3654
|
|
pushi $384 ; 900, pSittingOn
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_364d
|
|
pushi $3a8 ; 936, owns
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
not
|
|
aTop pDoAnimation
|
|
pToa pDoAnimation
|
|
bnt code_3643
|
|
lag global[$d5]
|
|
not
|
|
bnt code_3643
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $5 ; scaleY
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $e
|
|
bnot
|
|
jmp code_3703
|
|
|
|
code_3643: pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_3703
|
|
|
|
code_364d: ldi $1
|
|
aTop cycles
|
|
jmp code_3703
|
|
|
|
code_3654: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_36d4
|
|
pToa pIndirectObject
|
|
bnt code_36cd
|
|
pToa pDirectObject
|
|
bnt code_36cd
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_36cd
|
|
pushi $46e ; 1134, pShow
|
|
push1
|
|
push1
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $38e ; 910, take
|
|
push1
|
|
pTos pIndirectObject
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_36ba
|
|
pushi $3da ; 986, subManaValue
|
|
push1
|
|
pushi $338 ; 824, pManaValue
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
jmp code_36cd
|
|
|
|
code_36ba: pushi $3d7 ; 983, subValue
|
|
push1
|
|
pushi $337 ; 823, pValue
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
code_36cd: ldi $1
|
|
aTop cycles
|
|
jmp code_3703
|
|
|
|
code_36d4: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_36f1
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAStandScript
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_3703
|
|
|
|
code_36f1: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_3703
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3703: toss
|
|
ret
|
|
|
|
WANetDropScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_3729
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_3729: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetDropScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3750
|
|
pushi $506 ; 1286, gotoVisibleLocation
|
|
push1
|
|
pushSelf
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
jmp code_3787
|
|
|
|
code_3750: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3775
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $97 ; 151, isKindOf
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_3787
|
|
|
|
code_3775: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_3787
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3787: toss
|
|
ret
|
|
|
|
WADropScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3801
|
|
lag global[$d5]
|
|
bt code_37e1
|
|
pushi $632 ; 1586, pHealthHi
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
lt?
|
|
bt code_37e1
|
|
pushi $406 ; 1030, pHealth
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_37c1
|
|
pushi $632 ; 1586, pHealthHi
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
not
|
|
code_37c1: bt code_37e1
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1c ; 28, brLeft
|
|
eq?
|
|
bt code_37e1
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
eq?
|
|
code_37e1: bnt code_37eb
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_3906
|
|
|
|
code_37eb: pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $5 ; scaleY
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $e
|
|
bnot
|
|
jmp code_3906
|
|
|
|
code_3801: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_38cd
|
|
pushi $390 ; 912, drop
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pTos pDirectObject
|
|
class GotoVisibleLocation
|
|
send $6
|
|
bnot
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
bnt code_38c6
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
not
|
|
bt code_3852
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
not
|
|
code_3852: bnt code_38c6
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_3878
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
code_3878: pushi $10f ; 271, setLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bt code_38ba
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
not
|
|
code_38ba: bnt code_38c6
|
|
pushi $3e0 ; 992, setVisible
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
code_38c6: ldi $1
|
|
aTop cycles
|
|
jmp code_3906
|
|
|
|
code_38cd: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_38f4
|
|
pushi $514 ; 1300, pMakePile
|
|
push1
|
|
push1
|
|
lag global[$3]
|
|
send $6
|
|
bnot
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAStandScript
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_3906
|
|
|
|
code_38f4: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_3906
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3906: toss
|
|
ret
|
|
|
|
WAForceDropScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_39d9
|
|
pushi $394 ; 916, takeOff
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $390 ; 912, drop
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
bnt code_39d2
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
not
|
|
bt code_395e
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
not
|
|
code_395e: bnt code_39d2
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_3984
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
code_3984: pushi $10f ; 271, setLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bt code_39c6
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
not
|
|
code_39c6: bnt code_39d2
|
|
pushi $3e0 ; 992, setVisible
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
code_39d2: ldi $1
|
|
aTop cycles
|
|
jmp code_39f5
|
|
|
|
code_39d9: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_39f5
|
|
pushi $514 ; 1300, pMakePile
|
|
push1
|
|
push1
|
|
lag global[$3]
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_39f5: toss
|
|
ret
|
|
|
|
WANetMoneyDropScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_3a1b
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_3a1b: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetMoneyDropScript::dispose:
|
|
pToa scratch
|
|
bnt code_3a37
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scratch
|
|
code_3a37: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetMoneyDropScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3a8a
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_3a7b
|
|
pushi $4 ; scaleX
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
pushSelf
|
|
pTos scratch
|
|
callk kernel_118, $8
|
|
bnot
|
|
jmp code_3af9
|
|
|
|
code_3a7b: pushi $4 ; scaleX
|
|
pushi $20 ; 32, ' ', name
|
|
push1
|
|
pushSelf
|
|
pTos scratch
|
|
callk kernel_118, $8
|
|
bnot
|
|
jmp code_3af9
|
|
|
|
code_3a8a: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3ab9
|
|
pushi $12d ; 301, greater
|
|
push1
|
|
push0
|
|
pToa scratch
|
|
send $6
|
|
bnot
|
|
bnt code_3aab
|
|
pushi $506 ; 1286, gotoVisibleLocation
|
|
push1
|
|
pushSelf
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
jmp code_3af9
|
|
|
|
code_3aab: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_3af9
|
|
|
|
code_3ab9: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_3ae7
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $515 ; 1301, dropMoney
|
|
pushi $3 ; z
|
|
pTos scratch
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Mana
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $a
|
|
bnot
|
|
jmp code_3af9
|
|
|
|
code_3ae7: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_3af9
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3af9: toss
|
|
ret
|
|
|
|
WAMoneyDropScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3b59
|
|
lag global[$d5]
|
|
bt code_3b39
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1c ; 28, brLeft
|
|
eq?
|
|
bt code_3b39
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
eq?
|
|
bt code_3b39
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
code_3b39: bnt code_3b43
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_3bf8
|
|
|
|
code_3b43: pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $5 ; scaleY
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $e
|
|
bnot
|
|
jmp code_3bf8
|
|
|
|
code_3b59: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3bbf
|
|
pushi $390 ; 912, drop
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_3b92
|
|
pushi $3da ; 986, subManaValue
|
|
push1
|
|
pushi $338 ; 824, pManaValue
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
jmp code_3ba5
|
|
|
|
code_3b92: pushi $3d7 ; 983, subValue
|
|
push1
|
|
pushi $337 ; 823, pValue
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
code_3ba5: pushi $3fb ; 1019, pHidden
|
|
push1
|
|
push0
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
pushi $3e0 ; 992, setVisible
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_3bf8
|
|
|
|
code_3bbf: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_3be6
|
|
pushi $514 ; 1300, pMakePile
|
|
push1
|
|
push1
|
|
lag global[$3]
|
|
send $6
|
|
bnot
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAStandScript
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_3bf8
|
|
|
|
code_3be6: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_3bf8
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3bf8: toss
|
|
ret
|
|
|
|
WANetPutOnScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_3c53
|
|
lsp param[$3]
|
|
dup
|
|
ldi $2712 ; 10002
|
|
eq?
|
|
bnt code_3c24
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_24e2 ; "You are already wearing something there."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_3c4f
|
|
|
|
code_3c24: dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_3c3e
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_250b ; "You are unable to use it\n"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_3c4f
|
|
|
|
code_3c3e: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_3c4f: toss
|
|
jmp code_3ca3
|
|
|
|
code_3c53: lsp param[$3]
|
|
dup
|
|
ldi $c350 ; -15536
|
|
eq?
|
|
bnt code_3c79
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_1eab ; "You can't get close enough to the %s."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_3ca2
|
|
|
|
code_3c79: dup
|
|
ldi $c351 ; -15535
|
|
eq?
|
|
bnt code_3c93
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_1ed1 ; "You have to stand up first."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_3ca2
|
|
|
|
code_3c93: pushi $f5 ; 245, format
|
|
push1
|
|
lofsa string_1eed ; "You can not do that."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_3ca2: toss
|
|
code_3ca3: lat temp[$0]
|
|
bnt code_3cb2
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_3cb2: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetPutOnScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3ce8
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $99 ; 153, respondsTo
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_3cfa
|
|
|
|
code_3ce8: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3cfa
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3cfa: toss
|
|
ret
|
|
|
|
WAPutOnScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3d1a
|
|
pushi $392 ; 914, putOn
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_3d74
|
|
|
|
code_3d1a: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3d62
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BWeapon
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_3d5b
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
bnt code_3d5b
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
push1
|
|
pTos pClient
|
|
calle export40111_0, $2
|
|
bnot
|
|
push
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
class End
|
|
push
|
|
pToa pClient
|
|
send $c
|
|
bnot
|
|
code_3d5b: ldi $1
|
|
aTop cycles
|
|
jmp code_3d74
|
|
|
|
code_3d62: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_3d74
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3d74: toss
|
|
ret
|
|
|
|
WANetTakeOffScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
push1
|
|
push1
|
|
callk kernel_158, $2
|
|
bnot
|
|
lat temp[$0]
|
|
bnt code_3da2
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_3da2: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetTakeOffScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3dda
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $9a ; 154, yourself
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_3dec
|
|
|
|
code_3dda: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3dec
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3dec: toss
|
|
ret
|
|
|
|
WATakeOffScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3e15
|
|
pushi $394 ; 916, takeOff
|
|
push1
|
|
pTos pDirectObject
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_3e6a
|
|
|
|
code_3e15: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3e58
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BWeapon
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_3e51
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
bnt code_3e51
|
|
pushi $40f ; 1039, pWeapon
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $11 ; 17, bitmap
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
code_3e51: ldi $1
|
|
aTop cycles
|
|
jmp code_3e6a
|
|
|
|
code_3e58: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_3e6a
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3e6a: toss
|
|
ret
|
|
|
|
WAEnterScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_3f0e
|
|
lsp param[$3]
|
|
dup
|
|
ldi $271c ; 10012
|
|
eq?
|
|
bnt code_3e9e
|
|
pushi $7 ; priority
|
|
pushi $b ; 11, inRight
|
|
push2
|
|
lofsa string_257d ; "Room Full"
|
|
push
|
|
lofsa string_2587 ; "The room you have tried to enter is filled to capacity. Please try again later."
|
|
push
|
|
lofsa string_25d7 ; "Ok"
|
|
push
|
|
push0
|
|
push0
|
|
callk kernel_118, $e
|
|
bnot
|
|
jmp code_3edc
|
|
|
|
code_3e9e: dup
|
|
ldi $271d ; 10013
|
|
eq?
|
|
bnt code_3eb6
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
lofsa string_25da ; "That dungeon is occupied by another group, you must wait for it to reset before you can enter."
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_3edc
|
|
|
|
code_3eb6: dup
|
|
ldi $2723 ; 10019
|
|
eq?
|
|
bnt code_3ec5
|
|
ldi $0
|
|
sat temp[$0]
|
|
jmp code_3edc
|
|
|
|
code_3ec5: pushi $7 ; priority
|
|
pushi $b ; 11, inRight
|
|
push2
|
|
lofsa string_2639 ; "No Entry"
|
|
push
|
|
lofsa string_2642 ; "That does not lead anywhere that you can go."
|
|
push
|
|
lofsa string_25d7 ; "Ok"
|
|
push
|
|
push0
|
|
push0
|
|
callk kernel_118, $e
|
|
bnot
|
|
code_3edc: toss
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pHandsOff
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
pushi $3d0 ; 976, recordShow
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_3f1a
|
|
|
|
code_3f0e: pushi $9c ; 156, handleError
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
super WANetScript, $8
|
|
bnot
|
|
code_3f1a: ret
|
|
|
|
WAEnterScript::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3f3c
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $6d ; 109, 'm', picture
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_40b8
|
|
|
|
code_3f3c: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3f5f
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $516 ; 1302, getEntryInfo
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_40b8
|
|
|
|
code_3f5f: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_3fea
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $10f ; 271, setLong
|
|
push1
|
|
lsg global[$de]
|
|
send $6
|
|
bnot
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
lsg global[$de]
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_3fc6
|
|
pushi $7 ; priority
|
|
pushi $b ; 11, inRight
|
|
push2
|
|
lofsa string_2639 ; "No Entry"
|
|
push
|
|
lofsa string_2642 ; "That does not lead anywhere that you can go."
|
|
push
|
|
lofsa string_25d7 ; "Ok"
|
|
push
|
|
push0
|
|
push0
|
|
callk kernel_118, $e
|
|
bnot
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pHandsOff
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_3fc6: pushi $f ; 15, loop
|
|
push1
|
|
lsg global[$da]
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $c
|
|
bnot
|
|
pushi $3cd ; 973, recordPosn
|
|
push0
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
ldi $2
|
|
aTop seconds
|
|
jmp code_40b8
|
|
|
|
code_3fea: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_4025
|
|
pushi $3cf ; 975, recordHide
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $272 ; 626, newRoom
|
|
push2
|
|
lsg global[$de]
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
pushi $31e ; 798, pDirectObject
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_40b8
|
|
|
|
code_4025: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_4075
|
|
push1
|
|
push1
|
|
lsg global[$d8]
|
|
push2
|
|
push1
|
|
lsg global[$d9]
|
|
pushi $f ; 15, loop
|
|
push1
|
|
lsg global[$e1]
|
|
lag global[$1]
|
|
send $12
|
|
bnot
|
|
pushi $3cd ; 973, recordPosn
|
|
push0
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
pushi $3d0 ; 976, recordShow
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
lsg global[$df]
|
|
lsg global[$e0]
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_40b8
|
|
|
|
code_4075: dup
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_40b8
|
|
pushi $94 ; 148, init
|
|
push2
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
class GPolyBitmap
|
|
send $8
|
|
bnot
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pHandsOff
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_40b8: toss
|
|
ret
|
|
|
|
WAExitScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$3]
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_40e2
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_267d ; "A monster bars your way!"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_40e2: lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_40f5
|
|
ldi $1
|
|
aTop scratch
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_40f5: ret
|
|
|
|
WAExitScript::dispose:
|
|
ldi $3 ; z
|
|
sag global[$24]
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WAExitScript::changeState:
|
|
link $d
|
|
pToa pDirectObject
|
|
sat temp[$0]
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_43b2
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
class gDialogList
|
|
send $4
|
|
bnot
|
|
lsg global[$e5]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_416e
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lag global[$b]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $9 ; inLeft
|
|
eq?
|
|
bnt code_4142
|
|
ldi $8 ; fixPriority
|
|
jmp code_4168
|
|
|
|
code_4142: dup
|
|
ldi $a ; 10, inTop
|
|
eq?
|
|
bnt code_414e
|
|
ldi $4 ; scaleX
|
|
jmp code_4168
|
|
|
|
code_414e: dup
|
|
ldi $b ; 11, inRight
|
|
eq?
|
|
bnt code_415a
|
|
ldi $1
|
|
jmp code_4168
|
|
|
|
code_415a: dup
|
|
ldi $c ; 12, inBottom
|
|
eq?
|
|
bnt code_4166
|
|
ldi $2
|
|
jmp code_4168
|
|
|
|
code_4166: ldi $ff ; 255, asInteger
|
|
code_4168: toss
|
|
aTop pDirection
|
|
jmp code_4176
|
|
|
|
code_416e: lag global[$e5]
|
|
aTop pDirection
|
|
ldi $ff ; 255, asInteger
|
|
sag global[$e5]
|
|
code_4176: push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$7]
|
|
pTos pDirection
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_419d
|
|
ldi $1
|
|
sag global[$24]
|
|
ldi $fc18 ; -1000
|
|
sat temp[$7]
|
|
jmp code_41d3
|
|
|
|
code_419d: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_41b0
|
|
ldi $1
|
|
sag global[$24]
|
|
ldi $3e8 ; 1000, pUpdateClient
|
|
sat temp[$7]
|
|
jmp code_41d3
|
|
|
|
code_41b0: dup
|
|
ldi $8 ; fixPriority
|
|
eq?
|
|
bnt code_41c3
|
|
ldi $2
|
|
sag global[$24]
|
|
ldi $fc18 ; -1000
|
|
sat temp[$6]
|
|
jmp code_41d3
|
|
|
|
code_41c3: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_41d3
|
|
ldi $2
|
|
sag global[$24]
|
|
ldi $3e8 ; 1000, pUpdateClient
|
|
sat temp[$6]
|
|
code_41d3: toss
|
|
pushi $45 ; 69, 'E', doit
|
|
pushi $5 ; scaleY
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$6]
|
|
lst temp[$7]
|
|
lsg global[$24]
|
|
push2
|
|
pushi $eac4 ; -5436
|
|
push1
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $e
|
|
bnot
|
|
sat temp[$1]
|
|
ldi $0
|
|
sat temp[$9]
|
|
pTos pDirection
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_422d
|
|
push2
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $1ae ; 430, horizon
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
gt?
|
|
bnt code_42a2
|
|
ldi $1
|
|
sat temp[$9]
|
|
jmp code_42a2
|
|
|
|
code_422d: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_4255
|
|
push2
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
push0
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_42a2
|
|
ldi $1
|
|
sat temp[$9]
|
|
jmp code_42a2
|
|
|
|
code_4255: dup
|
|
ldi $8 ; fixPriority
|
|
eq?
|
|
bnt code_427d
|
|
push1
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $87 ; 135, left
|
|
push0
|
|
push0
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
gt?
|
|
bnt code_42a2
|
|
ldi $1
|
|
sat temp[$9]
|
|
jmp code_42a2
|
|
|
|
code_427d: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_42a2
|
|
push1
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $88 ; 136, right
|
|
push0
|
|
push0
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_42a2
|
|
ldi $1
|
|
sat temp[$9]
|
|
code_42a2: toss
|
|
lat temp[$9]
|
|
bnt code_42d2
|
|
pushi $39b ; 923, goto
|
|
push2
|
|
push1
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_42d2: pushi $d3 ; 211, copy
|
|
push1
|
|
push0
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push1
|
|
pushi $1ae ; 430, horizon
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $a ; 10, inTop
|
|
sub
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
send $c
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
pushi $7 ; priority
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$6]
|
|
lst temp[$7]
|
|
lst temp[$8]
|
|
lsg global[$24]
|
|
lst temp[$1]
|
|
push2
|
|
pushi $eac4 ; -5436
|
|
push2
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $12
|
|
bnot
|
|
pushi $a3 ; 163, contains
|
|
push2
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$8]
|
|
send $8
|
|
bnot
|
|
not
|
|
bnt code_4354
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_439d
|
|
|
|
code_4354: push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push1
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_4381
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_4381
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_439d
|
|
|
|
code_4381: pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
code_439d: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$8]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_484f
|
|
|
|
code_43b2: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_4476
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pTos pDirection
|
|
dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_43ee
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $32 ; 50, '2', edit
|
|
add
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_4472
|
|
|
|
code_43ee: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_4421
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $1ae ; 430, horizon
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $a ; 10, inTop
|
|
sub
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_4472
|
|
|
|
code_4421: dup
|
|
ldi $8 ; fixPriority
|
|
eq?
|
|
bnt code_444b
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $32 ; 50, '2', edit
|
|
sub
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_4472
|
|
|
|
code_444b: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_4472
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $32 ; 50, '2', edit
|
|
add
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
code_4472: toss
|
|
jmp code_484f
|
|
|
|
code_4476: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_44a2
|
|
pushi $3cf ; 975, recordHide
|
|
push0
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
pushi $518 ; 1304, shiftRoom
|
|
push2
|
|
pTos pDirection
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_484f
|
|
|
|
code_44a2: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_4838
|
|
pToa scratch
|
|
bnt code_4569
|
|
ldi $0
|
|
aTop scratch
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
pushi $3d0 ; 976, recordShow
|
|
push0
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
pTos pDirection
|
|
dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_44ea
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $32 ; 50, '2', edit
|
|
sub
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_4565
|
|
|
|
code_44ea: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_4514
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $14 ; 20, nsRight
|
|
add
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_4565
|
|
|
|
code_4514: dup
|
|
ldi $8 ; fixPriority
|
|
eq?
|
|
bnt code_453e
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $32 ; 50, '2', edit
|
|
add
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_4565
|
|
|
|
code_453e: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_4565
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $32 ; 50, '2', edit
|
|
sub
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
code_4565: toss
|
|
jmp code_484f
|
|
|
|
code_4569: pushi $50a ; 1290, pEntryX
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_45be
|
|
push1
|
|
push1
|
|
pushi $50a ; 1290, pEntryX
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push1
|
|
pushi $50b ; 1291, pEntryY
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $3cd ; 973, recordPosn
|
|
push0
|
|
pushi $3d0 ; 976, recordShow
|
|
push0
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $1e
|
|
bnot
|
|
pushi $50a ; 1290, pEntryX
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pushi $50b ; 1291, pEntryY
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
lag global[$1]
|
|
send $c
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_484f
|
|
|
|
code_45be: pTos pDirection
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_4608
|
|
push2
|
|
push1
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
push0
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $2bb ; 699, pType
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $5 ; scaleY
|
|
ge?
|
|
bnt code_46a2
|
|
push1
|
|
push1
|
|
pushi $140 ; 320, pHandle
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_46a2
|
|
|
|
code_4608: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_463c
|
|
push2
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $2bb ; 699, pType
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $5 ; scaleY
|
|
ge?
|
|
bnt code_46a2
|
|
push1
|
|
push1
|
|
pushi $140 ; 320, pHandle
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_46a2
|
|
|
|
code_463c: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_4670
|
|
push1
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $2bb ; 699, pType
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $5 ; scaleY
|
|
ge?
|
|
bnt code_46a2
|
|
push2
|
|
push1
|
|
pushi $f0 ; 240, drawSelected
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_46a2
|
|
|
|
code_4670: dup
|
|
ldi $8 ; fixPriority
|
|
eq?
|
|
bnt code_46a2
|
|
push1
|
|
push1
|
|
pushi $280 ; 640, disposeWhenDone
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $2bb ; 699, pType
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $5 ; scaleY
|
|
ge?
|
|
bnt code_46a2
|
|
push2
|
|
push1
|
|
pushi $f0 ; 240, drawSelected
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_46a2: toss
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
push0
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push1
|
|
pushi $1ae ; 430, horizon
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $a ; 10, inTop
|
|
sub
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
send $c
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
pushi $6 ; maxScale
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $422 ; 1058, pSafeX
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $423 ; 1059, pSafeY
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$8]
|
|
push0
|
|
push2
|
|
pushi $eac4 ; -5436
|
|
pushi $3 ; z
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $10
|
|
bnot
|
|
sat temp[$1]
|
|
ldi $0
|
|
sat temp[$b]
|
|
push1
|
|
push1
|
|
push1
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push1
|
|
push2
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$8]
|
|
send $4
|
|
bnot
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
pushi $144 ; 324, scaler
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
pushi $3cd ; 973, recordPosn
|
|
push0
|
|
pushi $3d0 ; 976, recordShow
|
|
push0
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $e
|
|
bnot
|
|
lat temp[$b]
|
|
not
|
|
bnt code_4831
|
|
pTos pDirection
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_47b2
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $32 ; 50, '2', edit
|
|
sub
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_482d
|
|
|
|
code_47b2: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_47dc
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $32 ; 50, '2', edit
|
|
add
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_482d
|
|
|
|
code_47dc: dup
|
|
ldi $8 ; fixPriority
|
|
eq?
|
|
bnt code_4806
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $32 ; 50, '2', edit
|
|
sub
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_482d
|
|
|
|
code_4806: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_482d
|
|
pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $32 ; 50, '2', edit
|
|
add
|
|
push
|
|
push2
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
code_482d: toss
|
|
jmp code_484f
|
|
|
|
code_4831: ldi $1
|
|
aTop cycles
|
|
jmp code_484f
|
|
|
|
code_4838: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_484f
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_484f: toss
|
|
ret
|
|
|
|
WANetStartCombatScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_48c2
|
|
lsp param[$3]
|
|
dup
|
|
ldi $2711 ; 10001
|
|
eq?
|
|
bnt code_487b
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_26a3 ; "Combat already initiated."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_48be
|
|
|
|
code_487b: dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_4895
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_26bd ; "That character has elected not to fight other players."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_48be
|
|
|
|
code_4895: dup
|
|
ldi $271d ; 10013
|
|
eq?
|
|
bnt code_48af
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_26f4 ; "That character is temporarily protected from player combat."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_48be
|
|
|
|
code_48af: pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2730 ; "Unable to begin combat. Opponent leaving..."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_48be: toss
|
|
jmp code_48d3
|
|
|
|
code_48c2: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_48d3: lat temp[$0]
|
|
bnt code_48e2
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_48e2: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetStartCombatScript::handleEvent:
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetStartCombatScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_495b
|
|
lsg global[$e6]
|
|
ldi $4 ; scaleX
|
|
and
|
|
not
|
|
bnt code_4954
|
|
pushi $433 ; 1075, pPeaceful
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_4954
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BNPC
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_4954
|
|
pushi $c ; 12, inBottom
|
|
pushi $b ; 11, inRight
|
|
pushi $4 ; scaleX
|
|
lofsa string_215f ; "Are you sure?"
|
|
push
|
|
lofsa string_275c ; "Are you SURE you want to enter into combat? Once you do, your peaceful status will be removed!"
|
|
push
|
|
lofsa string_216d ; "No"
|
|
push
|
|
pushSelf
|
|
pushi $c8 ; 200, handleEvent
|
|
lofsa string_2170 ; "Yes"
|
|
push
|
|
pushSelf
|
|
pushi $c7 ; 199, cue
|
|
push1
|
|
push0
|
|
callk kernel_118, $18
|
|
bnot
|
|
jmp code_49a3
|
|
|
|
code_4954: ldi $1
|
|
aTop cycles
|
|
jmp code_49a3
|
|
|
|
code_495b: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_4991
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $519 ; 1305, performXY
|
|
pushi $6 ; maxScale
|
|
pushi $a0 ; 160, firstTrue
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
push1
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $10
|
|
bnot
|
|
jmp code_49a3
|
|
|
|
code_4991: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_49a3
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_49a3: toss
|
|
ret
|
|
|
|
WAStartCombatScript::dispose:
|
|
pToa pDone
|
|
not
|
|
bnt code_49b4
|
|
push1
|
|
lofsa string_27d2 ; "WAStartCombat getting tossed before completion!"
|
|
push
|
|
callk kernel_132, $2
|
|
bnot
|
|
code_49b4: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WAScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WAStartCombatScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_4a5a
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
lsg global[$1]
|
|
pushi $450 ; 1104, pCombatants
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_4a4c
|
|
pushi $447 ; 1095, pDamage
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
sag global[$ec]
|
|
lsg global[$1]
|
|
pToa pClient
|
|
ne?
|
|
bnt code_4a0a
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
bt code_4a36
|
|
pushi $3f8 ; 1016, pMovieCmd
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
code_4a0a: bt code_4a36
|
|
push1
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
not
|
|
bt code_4a36
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class CombatRoom
|
|
push
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_4a36: bnt code_4a42
|
|
dpToa state
|
|
ldi $1
|
|
aTop seconds
|
|
jmp code_4af4
|
|
|
|
code_4a42: pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_4af4
|
|
|
|
code_4a4c: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_4af4
|
|
|
|
code_4a5a: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_4af4
|
|
pushi $2f5 ; 757, pNumber
|
|
push1
|
|
pushi $111 ; 273, sub
|
|
push1
|
|
push2
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
push
|
|
pushi $51a ; 1306, pMovieParams
|
|
push1
|
|
pTos pMovieCmd
|
|
pushi $2ca ; 714, pServID
|
|
push1
|
|
pushi $10f ; 271, setLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
push
|
|
pushi $2bc ; 700, virtualize
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class CombatRoom
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $16
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$0]
|
|
lag global[$30]
|
|
send $6
|
|
bnot
|
|
pushi $111 ; 273, sub
|
|
push1
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $272 ; 626, newRoom
|
|
push2
|
|
lst temp[$1]
|
|
push0
|
|
lag global[$30]
|
|
send $8
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_4af4: toss
|
|
ret
|
|
|
|
WAReady::dispose:
|
|
pushi $45f ; 1119, pWhoToCue
|
|
push1
|
|
push0
|
|
class RoundTimer
|
|
send $6
|
|
bnot
|
|
pToa scratch
|
|
bnt code_4b11
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scratch
|
|
code_4b11: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
WAReady::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_4be5
|
|
ldi $0
|
|
aTop scratch
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class CombatRoom
|
|
push
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_4bdb
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
and
|
|
not
|
|
bnt code_4bdb
|
|
pushi $45f ; 1119, pWhoToCue
|
|
push1
|
|
pushSelf
|
|
class RoundTimer
|
|
send $6
|
|
bnot
|
|
pushi $462 ; 1122, pReady
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_4ba8
|
|
pushi $32c ; 812, pTimer
|
|
push0
|
|
class RoundTimer
|
|
send $4
|
|
bnot
|
|
bnt code_4ba8
|
|
pushi $36 ; 54, '6', client
|
|
push1
|
|
push0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pushi $32c ; 812, pTimer
|
|
push0
|
|
class RoundTimer
|
|
send $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
pushi $32c ; 812, pTimer
|
|
push1
|
|
push0
|
|
pushi $460 ; 1120, pForefit
|
|
push1
|
|
push0
|
|
class RoundTimer
|
|
send $c
|
|
bnot
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_4bfe
|
|
|
|
code_4ba8: pushi $94 ; 148, init
|
|
pushi $4 ; scaleX
|
|
lofsa string_2816 ; "Waiting for your turn..."
|
|
push
|
|
pushi $1ea ; 490, dimColor
|
|
pushi $89 ; 137, top
|
|
push0
|
|
push0
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $e ; 14, view
|
|
sub
|
|
push
|
|
pushi $ff ; 255, asInteger
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class ShadowText
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
send $c
|
|
bnot
|
|
jmp code_4bfe
|
|
|
|
code_4bdb: pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_4bfe
|
|
|
|
code_4be5: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_4bfe
|
|
pushi $45f ; 1119, pWhoToCue
|
|
push1
|
|
push0
|
|
class RoundTimer
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_4bfe: toss
|
|
ret
|
|
|
|
WANetAttackScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_4c3f
|
|
lsp param[$3]
|
|
dup
|
|
ldi $2711 ; 10001
|
|
eq?
|
|
bnt code_4c2a
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2837 ; "Attack already initiated."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_4c3b
|
|
|
|
code_4c2a: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_4c3b: toss
|
|
jmp code_4c6d
|
|
|
|
code_4c3f: lsp param[$3]
|
|
dup
|
|
ldi $c350 ; -15536
|
|
eq?
|
|
bnt code_4c5b
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2851 ; "You are too far away to attack."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_4c6c
|
|
|
|
code_4c5b: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_4c6c: toss
|
|
code_4c6d: lat temp[$0]
|
|
bnt code_4c7c
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_4c7c: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetAttackScript::dispose:
|
|
pToa pDone
|
|
not
|
|
bnt code_4c97
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_4c97: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetAttackScript::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_4d08
|
|
lag global[$db]
|
|
bnt code_4cf9
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
bnt code_4cf9
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
push2
|
|
pushi $a410 ; -23536
|
|
push1
|
|
callk kernel_2, $4
|
|
bnot
|
|
push
|
|
lag global[$6]
|
|
send $6
|
|
bnot
|
|
bnt code_4cf9
|
|
pushi $486 ; 1158, swapIcons
|
|
push2
|
|
push2
|
|
pushi $a410 ; -23536
|
|
push1
|
|
callk kernel_2, $4
|
|
bnot
|
|
push
|
|
push2
|
|
pushi $a410 ; -23536
|
|
pushi $3 ; z
|
|
callk kernel_2, $4
|
|
bnot
|
|
push
|
|
lag global[$6]
|
|
send $8
|
|
bnot
|
|
code_4cf9: pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_4d63
|
|
|
|
code_4d08: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_4d31
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class WAReady
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_4d63
|
|
|
|
code_4d31: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_4d55
|
|
ldi $0
|
|
aTop pHandsOff
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $9f ; 159, add
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
jmp code_4d63
|
|
|
|
code_4d55: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_4d63
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_4d63: toss
|
|
ret
|
|
|
|
WAStrike::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_4eff
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_4da5
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
bnt code_4da5
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_4da5: not
|
|
bt code_4dac
|
|
pToa pDirectObject
|
|
not
|
|
code_4dac: bnt code_4db7
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_4db7: push1
|
|
pushi $40f ; 1039, pWeapon
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_4df7
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class BWeapon
|
|
push
|
|
pushi $40f ; 1039, pWeapon
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_4df7
|
|
pushi $4e3 ; 1251, pDamageType
|
|
push0
|
|
pushi $40f ; 1039, pWeapon
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
jmp code_4dfb
|
|
|
|
code_4df7: ldi $ff ; 255, asInteger
|
|
aTop scratch
|
|
code_4dfb: pTos scratch
|
|
ldi $0
|
|
eq?
|
|
bnt code_4e11
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $c ; 12, inBottom
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
jmp code_4e48
|
|
|
|
code_4e11: pTos scratch
|
|
ldi $2
|
|
eq?
|
|
bnt code_4e27
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $13 ; 19, nsTop
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
jmp code_4e48
|
|
|
|
code_4e27: pTos scratch
|
|
ldi $1
|
|
eq?
|
|
bnt code_4e3d
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $f ; 15, loop
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
jmp code_4e48
|
|
|
|
code_4e3d: pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $13 ; 19, nsTop
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
code_4e48: lag global[$d5]
|
|
bnt code_4e54
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_4e61
|
|
|
|
code_4e54: pushi $105 ; 261, setCycle
|
|
push2
|
|
class End
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
code_4e61: pushi $417 ; 1047, pSoundGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
ldi $10 ; 16, cel
|
|
eq?
|
|
bt code_4e78
|
|
lst temp[$1]
|
|
ldi $11 ; 17, bitmap
|
|
eq?
|
|
code_4e78: bnt code_4eb0
|
|
pushi $446 ; 1094, pResult
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
pushi $3 ; z
|
|
pTos scratch
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_4e98
|
|
ldi $0
|
|
jmp code_4e9a
|
|
|
|
code_4e98: pToa scratch
|
|
code_4e9a: mul
|
|
push
|
|
push2
|
|
push0
|
|
push2
|
|
callk kernel_60, $4
|
|
bnot
|
|
add
|
|
lsli local[$4]
|
|
pTos pClient
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
jmp code_4f2c
|
|
|
|
code_4eb0: lst temp[$1]
|
|
ldi $0
|
|
gt?
|
|
bnt code_4f2c
|
|
lst temp[$1]
|
|
ldi $15 ; 21, nsBottom
|
|
lt?
|
|
bnt code_4f2c
|
|
lst temp[$1]
|
|
ldi $1
|
|
sub
|
|
sat temp[$1]
|
|
push
|
|
ldi $6 ; maxScale
|
|
mul
|
|
sat temp[$1]
|
|
push2
|
|
push0
|
|
push1
|
|
callk kernel_60, $4
|
|
bnot
|
|
bnt code_4eeb
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lst temp[$1]
|
|
ldi $0
|
|
add
|
|
lsli local[$d]
|
|
pTos pClient
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
jmp code_4f2c
|
|
|
|
code_4eeb: pushi $33 ; 51, '3', play
|
|
push2
|
|
lst temp[$1]
|
|
ldi $1
|
|
add
|
|
lsli local[$d]
|
|
pTos pClient
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
jmp code_4f2c
|
|
|
|
code_4eff: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_4f2c
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
class End
|
|
push
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
push1
|
|
pTos pClient
|
|
calle export40111_0, $2
|
|
bnot
|
|
push
|
|
pToa pClient
|
|
send $c
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_4f2c: toss
|
|
ret
|
|
|
|
WADefend::handleError:
|
|
ldi $1
|
|
sag global[$32]
|
|
ret
|
|
|
|
WADefend::doit:
|
|
pToa ticks
|
|
bnt code_4f89
|
|
push1
|
|
push1
|
|
push1
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
sub
|
|
push
|
|
push2
|
|
push1
|
|
push2
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
sub
|
|
push
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
pToa pDirectObject
|
|
send $12
|
|
bnot
|
|
push0
|
|
callk kernel_33, $0
|
|
bnot
|
|
push1
|
|
push1
|
|
push1
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
add
|
|
push
|
|
push2
|
|
push1
|
|
push2
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
add
|
|
push
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
pToa pDirectObject
|
|
send $12
|
|
bnot
|
|
code_4f89: pushi $45 ; 69, 'E', doit
|
|
push0
|
|
&rest $1
|
|
super WAScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WADefend::changeState:
|
|
link $8
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_4fef
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_4fd3
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
bnt code_4fd3
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_4fd3: not
|
|
bt code_4fda
|
|
pToa pDirectObject
|
|
not
|
|
code_4fda: bnt code_4fe5
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_4fe5: pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_50ed
|
|
|
|
code_4fef: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_50db
|
|
pushi $446 ; 1094, pResult
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
ldi $4 ; scaleX
|
|
and
|
|
bnt code_50a3
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $64 ; 100, 'd', moveDone
|
|
eq?
|
|
bnt code_502a
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_288c ; "hitm.wav"
|
|
push
|
|
pTos pDirectObject
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
jmp code_509f
|
|
|
|
code_502a: dup
|
|
ldi $c8 ; 200, handleEvent
|
|
eq?
|
|
bnt code_5043
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_2895 ; "hitw.wav"
|
|
push
|
|
pTos pDirectObject
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
jmp code_509f
|
|
|
|
code_5043: pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_289e ; "hit.wav"
|
|
push
|
|
pTos pDirectObject
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
pushi $417 ; 1047, pSoundGroup
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $0
|
|
gt?
|
|
bnt code_509f
|
|
lst temp[$0]
|
|
ldi $1
|
|
sub
|
|
sat temp[$0]
|
|
push
|
|
ldi $6 ; maxScale
|
|
mul
|
|
sat temp[$0]
|
|
push2
|
|
push0
|
|
push1
|
|
callk kernel_60, $4
|
|
bnot
|
|
bnt code_508e
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lst temp[$0]
|
|
ldi $2
|
|
add
|
|
lsli local[$d]
|
|
pTos pDirectObject
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
jmp code_509f
|
|
|
|
code_508e: pushi $33 ; 51, '3', play
|
|
push2
|
|
lst temp[$0]
|
|
ldi $3 ; z
|
|
add
|
|
lsli local[$d]
|
|
pTos pDirectObject
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
code_509f: toss
|
|
jmp code_50b9
|
|
|
|
code_50a3: lst temp[$1]
|
|
ldi $10 ; 16, cel
|
|
and
|
|
bnt code_50b9
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_289e ; "hit.wav"
|
|
push
|
|
pTos pDirectObject
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
code_50b9: lst temp[$1]
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_50c8
|
|
ldi $c ; 12, inBottom
|
|
aTop ticks
|
|
jmp code_50d4
|
|
|
|
code_50c8: lst temp[$1]
|
|
ldi $10 ; 16, cel
|
|
eq?
|
|
bnt code_50d4
|
|
ldi $c ; 12, inBottom
|
|
aTop ticks
|
|
code_50d4: ldi $1
|
|
aTop cycles
|
|
jmp code_50ed
|
|
|
|
code_50db: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_50ed
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_50ed: toss
|
|
ret
|
|
|
|
WAAttackScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5124
|
|
pToa pDirectObject
|
|
not
|
|
bnt code_5115
|
|
push1
|
|
lofsa string_28af ; "Can not find pDirectObject of WAAttackScript"
|
|
push
|
|
calle export60029_0, $2
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_5115: pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_5170
|
|
|
|
code_5124: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5141
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAStrike
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_5170
|
|
|
|
code_5141: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_515e
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WADefend
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_5170
|
|
|
|
code_515e: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_5170
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_5170: toss
|
|
ret
|
|
|
|
WANetShopScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5191
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $3f ; 63, '?', xStep
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_51e9
|
|
|
|
code_5191: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_51a7
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_51e9
|
|
|
|
code_51a7: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_51ca
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $51b ; 1307, getShopInfo
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_51e9
|
|
|
|
code_51ca: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_51e9
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pHandsOff
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_51e9: toss
|
|
ret
|
|
|
|
WANetAuctionScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_520b
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $89 ; 137, top
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_5263
|
|
|
|
code_520b: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5221
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_5263
|
|
|
|
code_5221: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_5244
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $64a ; 1610, getAuctionHallInfo
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_5263
|
|
|
|
code_5244: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_5263
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pHandsOff
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_5263: toss
|
|
ret
|
|
|
|
WANetSellScript::dispose:
|
|
pToa scratch
|
|
bnt code_5275
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scratch
|
|
code_5275: pToa register
|
|
bnt code_5285
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop register
|
|
code_5285: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetSellScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_52cf
|
|
lsp param[$3]
|
|
dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_52ba
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_290e ; "The shopkeeper refuses the item."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_52cb
|
|
|
|
code_52ba: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_52cb: toss
|
|
jmp code_52e0
|
|
|
|
code_52cf: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_52e0: lat temp[$0]
|
|
bnt code_52ef
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_52ef: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetSellScript::handleEvent:
|
|
lsp param[$1]
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5312
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_5320
|
|
|
|
code_5312: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5320
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_5320: toss
|
|
ret
|
|
|
|
WANetSellScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5343
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $49 ; 73, 'I', replay
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_55e2
|
|
|
|
code_5343: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5359
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_55e2
|
|
|
|
code_5359: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_5392
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_538b
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
pushi $4 ; scaleX
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
pushSelf
|
|
pTos scratch
|
|
callk kernel_118, $8
|
|
bnot
|
|
jmp code_55e2
|
|
|
|
code_538b: ldi $1
|
|
aTop cycles
|
|
jmp code_55e2
|
|
|
|
code_5392: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_542f
|
|
pToa pDirectObject
|
|
not
|
|
bt code_53a2
|
|
pToa pIndirectObject
|
|
not
|
|
code_53a2: bnt code_53ad
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_53ad: pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_53d4
|
|
pushi $127 ; 295, equal
|
|
push2
|
|
push0
|
|
push0
|
|
pToa scratch
|
|
send $8
|
|
bnot
|
|
bnt code_53d4
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_53d4: ldi $1
|
|
aTop pHandsOff
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop register
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_541a
|
|
pushi $10f ; 271, setLong
|
|
push1
|
|
pTos scratch
|
|
pToa register
|
|
send $6
|
|
bnot
|
|
pushi $113 ; 275, mul
|
|
push1
|
|
pushi $5 ; scaleY
|
|
pToa register
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_55e2
|
|
|
|
code_541a: pushi $51c ; 1308, getPrice
|
|
pushi $4 ; scaleX
|
|
pTos pDirectObject
|
|
pTos pIndirectObject
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_55e2
|
|
|
|
code_542f: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_5532
|
|
ldi $0
|
|
aTop pHandsOff
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_5499
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
bnt code_5499
|
|
pushi $f5 ; 245, format
|
|
pushi $4 ; scaleX
|
|
lofsa string_292f ; "%s will give you %s gold for the contents of your %s. Do you accept?"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$3]
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $c
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_54fb
|
|
|
|
code_5499: pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_54d4
|
|
pushi $f5 ; 245, format
|
|
pushi $4 ; scaleX
|
|
lofsa string_2974 ; "%s will give you %s gold for the crystals. Do you accept?"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$3]
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $c
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_54fb
|
|
|
|
code_54d4: pushi $f5 ; 245, format
|
|
pushi $4 ; scaleX
|
|
lofsa string_29ae ; "%s will give you %s gold for the %s. Do you accept?"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$3]
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $c
|
|
bnot
|
|
sat temp[$0]
|
|
code_54fb: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
pushi $c ; 12, inBottom
|
|
pushi $b ; 11, inRight
|
|
pushi $4 ; scaleX
|
|
lofsa string_29e2 ; "Offer"
|
|
push
|
|
lst temp[$0]
|
|
lofsa string_29e8 ; "I Decline"
|
|
push
|
|
pushSelf
|
|
pushi $95 ; 149, dispose
|
|
lofsa string_29f2 ; "I Accept"
|
|
push
|
|
pushSelf
|
|
pushi $c7 ; 199, cue
|
|
push1
|
|
push0
|
|
callk kernel_118, $18
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
jmp code_55e2
|
|
|
|
code_5532: dup
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_5589
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $3e3 ; 995, pIndirectObject
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_5574
|
|
pushi $51d ; 1309, sellCrystals
|
|
pushi $3 ; z
|
|
pTos pIndirectObject
|
|
pTos scratch
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $a
|
|
bnot
|
|
jmp code_55e2
|
|
|
|
code_5574: pushi $51e ; 1310, sellObject
|
|
pushi $4 ; scaleX
|
|
pTos pDirectObject
|
|
pTos pIndirectObject
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_55e2
|
|
|
|
code_5589: dup
|
|
ldi $6 ; maxScale
|
|
eq?
|
|
bnt code_55e2
|
|
ldi $0
|
|
aTop pHandsOff
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_29fb ; "You received %s gold from the shopkeeper."
|
|
push
|
|
lst temp[$2]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
pushi $3d6 ; 982, addValue
|
|
push1
|
|
pTos register
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_55e2: toss
|
|
ret
|
|
|
|
WANetGetSellScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5605
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $49 ; 73, 'I', replay
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_5647
|
|
|
|
code_5605: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_561b
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_5647
|
|
|
|
code_561b: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_5647
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $4 ; scaleX
|
|
pushi $e ; 14, view
|
|
lofsa string_2a35 ; "tp"
|
|
push
|
|
pushi $80 ; 128, lastKey
|
|
pTos pDirectObject
|
|
callk kernel_128, $8
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_5647: toss
|
|
ret
|
|
|
|
WANetGetRepairScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_566a
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $49 ; 73, 'I', replay
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_56ac
|
|
|
|
code_566a: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5680
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_56ac
|
|
|
|
code_5680: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_56ac
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $4 ; scaleX
|
|
pushi $e ; 14, view
|
|
lofsa string_2a35 ; "tp"
|
|
push
|
|
pushi $83 ; 131, mirrored
|
|
pTos pDirectObject
|
|
callk kernel_128, $8
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_56ac: toss
|
|
ret
|
|
|
|
WANetRechargeScript::dispose:
|
|
pToa register
|
|
bnt code_56be
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop register
|
|
code_56be: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetRechargeScript::handleEvent:
|
|
lsp param[$1]
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_56e0
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_56ee
|
|
|
|
code_56e0: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_56ee
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_56ee: toss
|
|
ret
|
|
|
|
WANetRechargeScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5711
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $49 ; 73, 'I', replay
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_58db
|
|
|
|
code_5711: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5727
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_58db
|
|
|
|
code_5727: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_576f
|
|
pToa pDirectObject
|
|
not
|
|
bt code_5737
|
|
pToa pIndirectObject
|
|
not
|
|
code_5737: bnt code_5742
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_5742: ldi $1
|
|
aTop pHandsOff
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop register
|
|
pushi $51f ; 1311, getRechargePrice
|
|
pushi $4 ; scaleX
|
|
pTos pDirectObject
|
|
pTos pIndirectObject
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_58db
|
|
|
|
code_576f: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_57e8
|
|
ldi $0
|
|
aTop pHandsOff
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $127 ; 295, equal
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa register
|
|
send $6
|
|
bnot
|
|
bnt code_57b2
|
|
pushi $7 ; priority
|
|
pushi $b ; 11, inRight
|
|
push2
|
|
lofsa string_2a60 ; "Info:"
|
|
push
|
|
lofsa string_2a66 ; "I haven't the knowledge required to recharge magical items."
|
|
push
|
|
lofsa string_25d7 ; "Ok"
|
|
push
|
|
push0
|
|
push0
|
|
callk kernel_118, $e
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_58db
|
|
|
|
code_57b2: pushi $127 ; 295, equal
|
|
push1
|
|
pushi $fe ; 254, strIndex
|
|
pToa register
|
|
send $6
|
|
bnot
|
|
bnt code_57e1
|
|
pushi $7 ; priority
|
|
pushi $b ; 11, inRight
|
|
push2
|
|
lofsa string_2a60 ; "Info:"
|
|
push
|
|
lofsa string_2aa2 ; "I can't recharge that which cannot be recharged."
|
|
push
|
|
lofsa string_25d7 ; "Ok"
|
|
push
|
|
push0
|
|
push0
|
|
callk kernel_118, $e
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_58db
|
|
|
|
code_57e1: ldi $1
|
|
aTop cycles
|
|
jmp code_58db
|
|
|
|
code_57e8: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_585b
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $f5 ; 245, format
|
|
pushi $4 ; scaleX
|
|
lofsa string_2ad3 ; "%s will recharge your %s for %s gold. Do you accept?"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$3]
|
|
class Str
|
|
send $c
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_584f
|
|
pushi $c ; 12, inBottom
|
|
pushi $b ; 11, inRight
|
|
pushi $4 ; scaleX
|
|
lofsa string_29e2 ; "Offer"
|
|
push
|
|
lst temp[$0]
|
|
lofsa string_29e8 ; "I Decline"
|
|
push
|
|
pushSelf
|
|
pushi $95 ; 149, dispose
|
|
lofsa string_29f2 ; "I Accept"
|
|
push
|
|
pushSelf
|
|
pushi $c7 ; 199, cue
|
|
push1
|
|
push0
|
|
callk kernel_118, $18
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_584f: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
jmp code_58db
|
|
|
|
code_585b: dup
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_5884
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $520 ; 1312, recharge
|
|
pushi $4 ; scaleX
|
|
pTos pDirectObject
|
|
pTos pIndirectObject
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_58db
|
|
|
|
code_5884: dup
|
|
ldi $6 ; maxScale
|
|
eq?
|
|
bnt code_58db
|
|
pushi $3d7 ; 983, subValue
|
|
push1
|
|
pTos register
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $3e3 ; 995, pIndirectObject
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop pHandsOff
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_2b08 ; "Your %s is now recharged."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_58db: toss
|
|
ret
|
|
|
|
WANetRepairScript::dispose:
|
|
pToa register
|
|
bnt code_58ed
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop register
|
|
code_58ed: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetRepairScript::handleEvent:
|
|
lsp param[$1]
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_590f
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_591d
|
|
|
|
code_590f: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_591d
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_591d: toss
|
|
ret
|
|
|
|
WANetRepairScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5940
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $49 ; 73, 'I', replay
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_5b05
|
|
|
|
code_5940: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5956
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_5b05
|
|
|
|
code_5956: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_599e
|
|
pToa pDirectObject
|
|
not
|
|
bt code_5966
|
|
pToa pIndirectObject
|
|
not
|
|
code_5966: bnt code_5971
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_5971: ldi $1
|
|
aTop pHandsOff
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop register
|
|
pushi $521 ; 1313, getRepairPrice
|
|
pushi $4 ; scaleX
|
|
pTos pDirectObject
|
|
pTos pIndirectObject
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_5b05
|
|
|
|
code_599e: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_5a12
|
|
ldi $0
|
|
aTop pHandsOff
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $127 ; 295, equal
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa register
|
|
send $6
|
|
bnot
|
|
bnt code_59e2
|
|
pushi $6 ; maxScale
|
|
lofsa string_2b36 ; "I haven't the knowledge required to repair that."
|
|
push
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_2b67 ; "Okay"
|
|
push
|
|
push0
|
|
pushi $91 ; 145, bitPutIndex
|
|
push2
|
|
calle export60029_0, $c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_5b05
|
|
|
|
code_59e2: pushi $127 ; 295, equal
|
|
push1
|
|
pushi $fe ; 254, strIndex
|
|
pToa register
|
|
send $6
|
|
bnot
|
|
bnt code_5a0b
|
|
pushi $6 ; maxScale
|
|
lofsa string_2b6c ; "I can't repair that."
|
|
push
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_2b67 ; "Okay"
|
|
push
|
|
push0
|
|
pushi $91 ; 145, bitPutIndex
|
|
push2
|
|
calle export60029_0, $c
|
|
bnot
|
|
jmp code_5b05
|
|
|
|
code_5a0b: ldi $1
|
|
aTop cycles
|
|
jmp code_5b05
|
|
|
|
code_5a12: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_5a85
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $f5 ; 245, format
|
|
pushi $4 ; scaleX
|
|
lofsa string_2b81 ; "%s will repair your %s for %s gold. Do you accept?"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$3]
|
|
class Str
|
|
send $c
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_5a79
|
|
pushi $c ; 12, inBottom
|
|
pushi $b ; 11, inRight
|
|
pushi $4 ; scaleX
|
|
lofsa string_29e2 ; "Offer"
|
|
push
|
|
lst temp[$0]
|
|
lofsa string_29e8 ; "I Decline"
|
|
push
|
|
pushSelf
|
|
pushi $95 ; 149, dispose
|
|
lofsa string_29f2 ; "I Accept"
|
|
push
|
|
pushSelf
|
|
pushi $c7 ; 199, cue
|
|
push1
|
|
push0
|
|
callk kernel_118, $18
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_5a79: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
jmp code_5b05
|
|
|
|
code_5a85: dup
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_5aae
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $522 ; 1314, repair
|
|
pushi $4 ; scaleX
|
|
pTos pDirectObject
|
|
pTos pIndirectObject
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_5b05
|
|
|
|
code_5aae: dup
|
|
ldi $6 ; maxScale
|
|
eq?
|
|
bnt code_5b05
|
|
pushi $3d7 ; 983, subValue
|
|
push1
|
|
pTos register
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $3e3 ; 995, pIndirectObject
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop pHandsOff
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_2bb4 ; "Repairs to %s now complete."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_5b05: toss
|
|
ret
|
|
|
|
WANetConsumeScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_5b46
|
|
lsp param[$3]
|
|
dup
|
|
ldi $271c ; 10012
|
|
eq?
|
|
bnt code_5b31
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2be2 ; "You are too full."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5b42
|
|
|
|
code_5b31: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_5b42: toss
|
|
jmp code_5b57
|
|
|
|
code_5b46: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_5b57: lat temp[$0]
|
|
bnt code_5b66
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_5b66: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetConsumeScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5ba2
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class WAReady
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_5bd4
|
|
|
|
code_5ba2: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5bc2
|
|
ldi $0
|
|
aTop pHandsOff
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $a1 ; 161, firstEqual
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_5bd4
|
|
|
|
code_5bc2: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_5bd4
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_5bd4: toss
|
|
ret
|
|
|
|
WANetGroupScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_5cc1
|
|
lsp param[$3]
|
|
dup
|
|
ldi $2711 ; 10001
|
|
eq?
|
|
bnt code_5c00
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2c07 ; "Already joining a group."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5cbd
|
|
|
|
code_5c00: dup
|
|
ldi $2713 ; 10003
|
|
eq?
|
|
bnt code_5c1a
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2c20 ; "You must leave your current group to join another."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5cbd
|
|
|
|
code_5c1a: dup
|
|
ldi $271c ; 10012
|
|
eq?
|
|
bnt code_5c34
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2c53 ; "That group is full."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5cbd
|
|
|
|
code_5c34: dup
|
|
ldi $271d ; 10013
|
|
eq?
|
|
bnt code_5c70
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2c67 ; "-3 |c43|The group leader does not want you in their group."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$9c]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2ca2 ; "The group leader does not want you in their group."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5cbd
|
|
|
|
code_5c70: dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_5cac
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2cd5 ; "-3 |c43|There is someone already waiting to join them."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$9c]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2d0c ; "There is someone already waiting to join them."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5cbd
|
|
|
|
code_5cac: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_5cbd: toss
|
|
jmp code_5cd2
|
|
|
|
code_5cc1: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_5cd2: lat temp[$0]
|
|
bnt code_5ce1
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_5ce1: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetGroupScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5d0a
|
|
pushi $523 ; 1315, joinGroup
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_5d1c
|
|
|
|
code_5d0a: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5d1c
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_5d1c: toss
|
|
ret
|
|
|
|
WANetTradeScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_5dc5
|
|
lsp param[$3]
|
|
dup
|
|
ldi $2711 ; 10001
|
|
eq?
|
|
bnt code_5d48
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2d4c ; "You have declined the trade."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5dc1
|
|
|
|
code_5d48: dup
|
|
ldi $2713 ; 10003
|
|
eq?
|
|
bnt code_5d62
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2d69 ; "trade"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5dc1
|
|
|
|
code_5d62: dup
|
|
ldi $271c ; 10012
|
|
eq?
|
|
bnt code_5d7c
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2d69 ; "trade"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5dc1
|
|
|
|
code_5d7c: dup
|
|
ldi $271d ; 10013
|
|
eq?
|
|
bnt code_5d96
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2d6f ; "The character has declined your trade request."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5dc1
|
|
|
|
code_5d96: dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_5db0
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2d69 ; "trade"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5dc1
|
|
|
|
code_5db0: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_5dc1: toss
|
|
jmp code_5dd6
|
|
|
|
code_5dc5: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_5dd6: lat temp[$0]
|
|
bnt code_5de5
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_5de5: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetTradeScript::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5e0e
|
|
pushi $647 ; 1607, trade
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_5e20
|
|
|
|
code_5e0e: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5e20
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_5e20: toss
|
|
ret
|
|
|
|
myGetName::doit:
|
|
lap param[$0]
|
|
bnt code_5e4d
|
|
lap param[$1]
|
|
bnt code_5e38
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
jmp code_5e43
|
|
|
|
code_5e38: pushi $9f ; 159, add
|
|
push1
|
|
pTos pClient
|
|
class DeadObjects
|
|
send $6
|
|
bnot
|
|
code_5e43: pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_5e8e
|
|
|
|
code_5e4d: pushi $9f ; 159, add
|
|
push1
|
|
pushi $13 ; 19, nsTop
|
|
pTos pPrompt
|
|
pushi $76 ; 118, 'v', textLeft
|
|
pTos pStr
|
|
pTos pMax
|
|
pushi $fdf5 ; -523
|
|
lsg global[$55]
|
|
pushi $8b ; 139, numLines
|
|
push1
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_21c8 ; " OK "
|
|
push
|
|
push1
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_21cd ; "Cancel"
|
|
push
|
|
push0
|
|
pushi $91 ; 145, bitPutIndex
|
|
push2
|
|
pushi $93 ; 147, pLine
|
|
pushSelf
|
|
pushi $45 ; 69, 'E', doit
|
|
&rest $2
|
|
calle export60029_0, $26
|
|
bnot
|
|
aTop pPrint
|
|
push
|
|
class gDialogList
|
|
send $6
|
|
bnot
|
|
code_5e8e: ret
|
|
|
|
WANetGoHomeScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_5ee8
|
|
lsp param[$3]
|
|
dup
|
|
ldi $2714 ; 10004
|
|
eq?
|
|
bnt code_5eb9
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2db9 ; "No one by that name lives around here."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5ee4
|
|
|
|
code_5eb9: dup
|
|
ldi $271d ; 10013
|
|
eq?
|
|
bnt code_5ed3
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_2de0 ; "Locating house, one moment..."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_5ee4
|
|
|
|
code_5ed3: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_5ee4: toss
|
|
jmp code_5ef9
|
|
|
|
code_5ee8: pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_2dfe ; "No one named '%s' lives here."
|
|
push
|
|
pTos register
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
code_5ef9: lsp param[$3]
|
|
ldi $271d ; 10013
|
|
eq?
|
|
bnt code_5f10
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
lst temp[$0]
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_5f2e
|
|
|
|
code_5f10: pushi $7 ; priority
|
|
pushi $b ; 11, inRight
|
|
push2
|
|
lofsa string_2a60 ; "Info:"
|
|
push
|
|
lst temp[$0]
|
|
lofsa string_25d7 ; "Ok"
|
|
push
|
|
push0
|
|
push0
|
|
callk kernel_118, $e
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_5f2e: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetGoHomeScript::dispose:
|
|
pToa register
|
|
bnt code_5f4a
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop register
|
|
code_5f4a: pToa scratch
|
|
bnt code_5f5a
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scratch
|
|
code_5f5a: push1
|
|
pushi $c ; 12, inBottom
|
|
callk kernel_118, $2
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetGoHomeScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_5f98
|
|
pushi $b ; 11, inRight
|
|
dup
|
|
push0
|
|
lofsa string_2e1c ; "Go to house"
|
|
push
|
|
lofsa string_2e28 ; "Enter homeowner's name:"
|
|
push
|
|
pTos register
|
|
pushi $10 ; 16, cel
|
|
pushSelf
|
|
pushi $95 ; 149, dispose
|
|
pushSelf
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
callk kernel_118, $16
|
|
bnot
|
|
jmp code_6013
|
|
|
|
code_5f98: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_5fb9
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_5fb2
|
|
pTos state
|
|
ldi $2
|
|
sub
|
|
aTop state
|
|
code_5fb2: ldi $1
|
|
aTop cycles
|
|
jmp code_6013
|
|
|
|
code_5fb9: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_5feb
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pHandsOff
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
pushi $524 ; 1316, queryHouse
|
|
pushi $3 ; z
|
|
pTos register
|
|
pTos scratch
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $a
|
|
bnot
|
|
jmp code_6013
|
|
|
|
code_5feb: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_6001
|
|
pushi $272 ; 626, newRoom
|
|
push2
|
|
pTos scratch
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_6013
|
|
|
|
code_6001: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_6013
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_6013: toss
|
|
ret
|
|
|
|
WAMissleScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_6049
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_6032
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_6032: pushi $39d ; 925, face
|
|
push2
|
|
pushi $31e ; 798, pDirectObject
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
pToa pClient
|
|
send $8
|
|
bnot
|
|
jmp code_61a0
|
|
|
|
code_6049: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_6066
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WAStrike
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_61a0
|
|
|
|
code_6066: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_6147
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
bnt code_6083
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
code_6083: bt code_60d2
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_609c
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
not
|
|
code_609c: bt code_60d2
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_60e0
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
bnt code_60e0
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
not
|
|
code_60d2: bnt code_60e0
|
|
ldi $0
|
|
aTop register
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_61a0
|
|
|
|
code_60e0: pushi $8d ; 141, new
|
|
push0
|
|
class MagicActor
|
|
send $4
|
|
bnot
|
|
aTop register
|
|
pushi $e ; 14, view
|
|
push1
|
|
pushi $3be1 ; 15329
|
|
pushi $f ; 15, loop
|
|
push1
|
|
push1
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
class Fwd
|
|
push
|
|
pushi $1a9 ; 425, setStep
|
|
push2
|
|
pushi $3c ; 60, '<', b_di
|
|
pushi $23 ; 35, '#', text
|
|
pushi $525 ; 1317, linkToCaster
|
|
pushi $4 ; scaleX
|
|
pTos pClient
|
|
pushi $40 ; 64, '@', yStep
|
|
pushi $f ; 15, loop
|
|
pushi $5f ; 95, '_', min
|
|
pToa register
|
|
send $2a
|
|
bnot
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_2e52 ; "spell15.wav"
|
|
push
|
|
pTos register
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
aTop scratch
|
|
pushi $15c ; 348, setMotion
|
|
pushi $3 ; z
|
|
class Strike
|
|
push
|
|
pushi $31e ; 798, pDirectObject
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
pToa register
|
|
send $a
|
|
bnot
|
|
jmp code_61a0
|
|
|
|
code_6147: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_6171
|
|
pToa register
|
|
bnt code_615b
|
|
push2
|
|
push1
|
|
pTos scratch
|
|
callk kernel_117, $4
|
|
bnot
|
|
code_615b: pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa WADefend
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
self $8
|
|
bnot
|
|
jmp code_61a0
|
|
|
|
code_6171: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_61a0
|
|
pToa register
|
|
bnt code_6184
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_6184: pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_6195
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_6195: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_61a0: toss
|
|
ret
|
|
|
|
WATeleportScript::init:
|
|
ldi $ff ; 255, asInteger
|
|
aTop pMovieCmd
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super WAScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WATeleportScript::handleError:
|
|
ldi $1
|
|
aTop cycles
|
|
ret
|
|
|
|
WATeleportScript::dispose:
|
|
pToa pDone
|
|
not
|
|
bnt code_61c5
|
|
push1
|
|
lofsa string_2e6d ; "Teleport script tossed before completed."
|
|
push
|
|
callk kernel_132, $2
|
|
bnot
|
|
code_61c5: pToa scratch
|
|
bnt code_61d1
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_61d1: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WAScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WATeleportScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_6213
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_61f9
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_61f9: pushi $94 ; 148, init
|
|
push1
|
|
pTos pClient
|
|
pushi $c4 ; 196, caller
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class SEPoof
|
|
send $4
|
|
bnot
|
|
send $c
|
|
bnot
|
|
jmp code_62f2
|
|
|
|
code_6213: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_62ba
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_62ac
|
|
pushi $3cf ; 975, recordHide
|
|
push0
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $a
|
|
bnot
|
|
pToa scratch
|
|
bnt code_626c
|
|
pushi $127 ; 295, equal
|
|
push1
|
|
pushi $16b2 ; 5810
|
|
send $6
|
|
bnot
|
|
bnt code_625d
|
|
push2
|
|
push1
|
|
pushi $fa ; 250, lower
|
|
pushi $3cd ; 973, recordPosn
|
|
push0
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $10
|
|
bnot
|
|
code_625d: pushi $272 ; 626, newRoom
|
|
push2
|
|
pTos scratch
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_62f2
|
|
|
|
code_626c: pushi $127 ; 295, equal
|
|
push1
|
|
pushi $16b2 ; 5810
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_6295
|
|
push2
|
|
push1
|
|
pushi $fa ; 250, lower
|
|
pushi $3cd ; 973, recordPosn
|
|
push0
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $10
|
|
bnot
|
|
code_6295: pushi $272 ; 626, newRoom
|
|
push2
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_62f2
|
|
|
|
code_62ac: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_62f2
|
|
|
|
code_62ba: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_62f2
|
|
pushi $3d0 ; 976, recordShow
|
|
push0
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
pushi $75 ; 117, 'u', show
|
|
push0
|
|
lag global[$1]
|
|
send $e
|
|
bnot
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_62e7
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sag global[$f4]
|
|
code_62e7: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_62f2: toss
|
|
ret
|
|
|
|
WACombatTeleportScript::handleError:
|
|
ldi $1
|
|
aTop cycles
|
|
ret
|
|
|
|
WACombatTeleportScript::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_6327
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_6318
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_6318: pushi $69 ; 105, 'i', hide
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_639a
|
|
|
|
code_6327: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_639a
|
|
pushi $43d ; 1085, pDestX
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $43e ; 1086, pDestY
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $43b ; 1083, pCombatX
|
|
push1
|
|
lst temp[$0]
|
|
pushi $43c ; 1084, pCombatY
|
|
push1
|
|
push
|
|
pToa pClient
|
|
send $c
|
|
bnot
|
|
pushi $1a ; 26, signal
|
|
lat temp[$0]
|
|
mul
|
|
push
|
|
ldi $12 ; 18, nsLeft
|
|
add
|
|
sat temp[$0]
|
|
pushi $b ; 11, inRight
|
|
lat temp[$1]
|
|
mul
|
|
push
|
|
ldi $73 ; 115, 's', center
|
|
add
|
|
sat temp[$1]
|
|
push1
|
|
push1
|
|
lst temp[$0]
|
|
push2
|
|
push1
|
|
push
|
|
pToa pClient
|
|
send $c
|
|
bnot
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_6387
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_6387: pushi $75 ; 117, 'u', show
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_639a: toss
|
|
ret
|
|
|
|
WAConsumeScript::changeState:
|
|
link $2
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_64b2
|
|
pushi $448 ; 1096, pState
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BConsume
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_6444
|
|
pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_2ebe ; "%s ate the %s."
|
|
push
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_63dc
|
|
lofsa string_2ecd ; "You"
|
|
jmp code_63e5
|
|
|
|
code_63dc: pushi $315 ; 789, pName
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
code_63e5: push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $a
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $64 ; 100, 'd', moveDone
|
|
eq?
|
|
bnt code_6419
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_2ed1 ; "maleat.wav"
|
|
push
|
|
pTos pClient
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
jmp code_6440
|
|
|
|
code_6419: dup
|
|
ldi $c8 ; 200, handleEvent
|
|
eq?
|
|
bnt code_6432
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_2edc ; "femeat.wav"
|
|
push
|
|
pTos pClient
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
jmp code_6440
|
|
|
|
code_6432: pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_2ee7 ; "belch.wav"
|
|
push
|
|
pTos pClient
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
code_6440: toss
|
|
jmp code_6485
|
|
|
|
code_6444: pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_2ef1 ; "%s drank the %s."
|
|
push
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_645c
|
|
lofsa string_2ecd ; "You"
|
|
jmp code_6465
|
|
|
|
code_645c: pushi $315 ; 789, pName
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
code_6465: push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $a
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $33 ; 51, '3', play
|
|
push2
|
|
lofsa string_2f02 ; "drink1.wav"
|
|
push
|
|
pTos pClient
|
|
class SoundMgr
|
|
send $8
|
|
bnot
|
|
code_6485: lat temp[$0]
|
|
bnt code_64ab
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_64a0
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
lst temp[$0]
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_64ab
|
|
|
|
code_64a0: pushi $38c ; 908, setMessage
|
|
push1
|
|
lst temp[$0]
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
code_64ab: ldi $2
|
|
aTop seconds
|
|
jmp code_64e5
|
|
|
|
code_64b2: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_64d3
|
|
pushi $31e ; 798, pDirectObject
|
|
push1
|
|
push0
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_64e5
|
|
|
|
code_64d3: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_64e5
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_64e5: toss
|
|
ret
|
|
|
|
WANetRobScript::dispose:
|
|
pushi $3 ; z
|
|
pushi $b ; 11, inRight
|
|
pushi $8 ; fixPriority
|
|
pushSelf
|
|
callk kernel_118, $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super WANetScript, $4
|
|
bnot
|
|
ret
|
|
|
|
WANetRobScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_651f
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_651f: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetRobScript::handleEvent:
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetRobScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_658f
|
|
pushi $433 ; 1075, pPeaceful
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_6588
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BNPC
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_6588
|
|
pushi $c ; 12, inBottom
|
|
pushi $b ; 11, inRight
|
|
pushi $4 ; scaleX
|
|
lofsa string_215f ; "Are you sure?"
|
|
push
|
|
lofsa string_2f1d ; "Are you SURE you want to rob someone? Once you do, your peaceful status will be removed!"
|
|
push
|
|
lofsa string_216d ; "No"
|
|
push
|
|
pushSelf
|
|
pushi $c8 ; 200, handleEvent
|
|
lofsa string_2170 ; "Yes"
|
|
push
|
|
pushSelf
|
|
pushi $c7 ; 199, cue
|
|
push1
|
|
push0
|
|
callk kernel_118, $18
|
|
bnot
|
|
jmp code_65e0
|
|
|
|
code_6588: ldi $1
|
|
aTop cycles
|
|
jmp code_65e0
|
|
|
|
code_658f: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_65a9
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $1d ; 29, brTop
|
|
pushSelf
|
|
pToa client
|
|
send $a
|
|
bnot
|
|
jmp code_65e0
|
|
|
|
code_65a9: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_65ce
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $a6 ; 166, release
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_65e0
|
|
|
|
code_65ce: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_65e0
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_65e0: toss
|
|
ret
|
|
|
|
WARobScript::changeState:
|
|
link $9
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_696b
|
|
ldi $0
|
|
sat temp[$1]
|
|
pToa pMovieCmd
|
|
sat temp[$2]
|
|
pushi $446 ; 1094, pResult
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $447 ; 1095, pDamage
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
sat temp[$7]
|
|
lst temp[$0]
|
|
ldi $1
|
|
eq?
|
|
bnt code_66d9
|
|
lsg global[$1]
|
|
pToa pClient
|
|
eq?
|
|
bnt code_690a
|
|
lat temp[$3]
|
|
bnt code_6671
|
|
lat temp[$7]
|
|
bnt code_6671
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
lat temp[$7]
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_2f85 ; "|c43|Info> The perfect crime! You've stolen %s gold and %s mana!"
|
|
push
|
|
lst temp[$6]
|
|
lst temp[$8]
|
|
class Str
|
|
send $a
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$8]
|
|
send $4
|
|
bnot
|
|
jmp code_690a
|
|
|
|
code_6671: lat temp[$3]
|
|
bnt code_669c
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_2fc6 ; "|c43|Info> The perfect crime! You've stolen %s gold!"
|
|
push
|
|
lst temp[$6]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_690a
|
|
|
|
code_669c: lat temp[$7]
|
|
bnt code_66c7
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_2ffb ; "|c43|Info> The perfect crime! You've stolen %s mana!"
|
|
push
|
|
lst temp[$8]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$8]
|
|
send $4
|
|
bnot
|
|
jmp code_690a
|
|
|
|
code_66c7: pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_3030 ; "|c43|Info> Your intended victim didn't have anything worthwhile. Better try robbing someone else."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_690a
|
|
|
|
code_66d9: lst temp[$0]
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_6888
|
|
lsg global[$1]
|
|
pToa pClient
|
|
eq?
|
|
bnt code_679b
|
|
lat temp[$3]
|
|
bnt code_6733
|
|
lat temp[$7]
|
|
bnt code_6733
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
lat temp[$7]
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_3092 ; "|c43|Info> You were caught stealing %s gold and %s mana!"
|
|
push
|
|
lst temp[$6]
|
|
lst temp[$8]
|
|
class Str
|
|
send $a
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$8]
|
|
send $4
|
|
bnot
|
|
jmp code_690a
|
|
|
|
code_6733: lat temp[$3]
|
|
bnt code_675e
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_30cb ; "|c43|Info> You were caught stealing %s gold!"
|
|
push
|
|
lst temp[$6]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_690a
|
|
|
|
code_675e: lat temp[$7]
|
|
bnt code_6789
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_30f8 ; "|c43|Info> You were caught stealing %s mana!"
|
|
push
|
|
lst temp[$8]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$8]
|
|
send $4
|
|
bnot
|
|
jmp code_690a
|
|
|
|
code_6789: pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_3125 ; "|c43|Info> You were caught trying to steal!"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_690a
|
|
|
|
code_679b: lsg global[$1]
|
|
pushi $142 ; 322, pObject
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_690a
|
|
lat temp[$3]
|
|
bnt code_67fe
|
|
lat temp[$7]
|
|
bnt code_67fe
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
lat temp[$7]
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
pushi $f5 ; 245, format
|
|
pushi $4 ; scaleX
|
|
lofsa string_3151 ; "|c43|Info> %s stole %s gold and %s mana from you!"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$6]
|
|
lst temp[$8]
|
|
class Str
|
|
send $c
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$8]
|
|
send $4
|
|
bnot
|
|
jmp code_690a
|
|
|
|
code_67fe: lat temp[$3]
|
|
bnt code_6835
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_3183 ; "|c43|Info> %s stole %s gold from you!"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$6]
|
|
class Str
|
|
send $a
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_690a
|
|
|
|
code_6835: lat temp[$7]
|
|
bnt code_686c
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_31a9 ; "|c43|Info> %s stole %s mana from you!"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$8]
|
|
class Str
|
|
send $a
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$8]
|
|
send $4
|
|
bnot
|
|
jmp code_690a
|
|
|
|
code_686c: pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_31cf ; "|c43|Info> %s tried to steal from you!"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_690a
|
|
|
|
code_6888: lst temp[$0]
|
|
ldi $2
|
|
eq?
|
|
bnt code_68f3
|
|
lsg global[$1]
|
|
pToa pClient
|
|
eq?
|
|
bnt code_68aa
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_3125 ; "|c43|Info> You were caught trying to steal!"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_690a
|
|
|
|
code_68aa: lsg global[$1]
|
|
pushi $142 ; 322, pObject
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_690a
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
bnt code_68e1
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_31f6 ; "|c43|Info> %s just tried to steal from you!"
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_690a
|
|
|
|
code_68e1: pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_3222 ; "|c43|Info> Someone just tried to steal from you!"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_690a
|
|
|
|
code_68f3: lsg global[$1]
|
|
pToa pClient
|
|
eq?
|
|
bnt code_690a
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_3253 ; "|c43|Info> Your theft failed, but luckily no one noticed!"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
code_690a: lat temp[$1]
|
|
bnt code_6922
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$9c]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
code_6922: lat temp[$3]
|
|
bnt code_6943
|
|
pushi $3d6 ; 982, addValue
|
|
push1
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $3d7 ; 983, subValue
|
|
push1
|
|
lst temp[$3]
|
|
pushi $142 ; 322, pObject
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_6943: lat temp[$7]
|
|
bnt code_6964
|
|
pushi $3d9 ; 985, addManaValue
|
|
push1
|
|
push
|
|
pToa pClient
|
|
send $6
|
|
bnot
|
|
pushi $3da ; 986, subManaValue
|
|
push1
|
|
lst temp[$7]
|
|
pushi $142 ; 322, pObject
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_6964: ldi $1
|
|
aTop cycles
|
|
jmp code_6a7a
|
|
|
|
code_696b: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_6980
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_6a7a
|
|
|
|
code_6980: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_6a68
|
|
pToa pMovieCmd
|
|
sat temp[$2]
|
|
pushi $446 ; 1094, pResult
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pTos pClient
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_6a61
|
|
push2
|
|
lat temp[$0]
|
|
and
|
|
bnt code_6a61
|
|
pushi $526 ; 1318, pExits
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
sat temp[$5]
|
|
push
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bnt code_69e0
|
|
ldi $8 ; fixPriority
|
|
sag global[$e5]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $316 ; 790, handleVerb
|
|
push2
|
|
pushi $33 ; 51, '3', play
|
|
pushi $279 ; 633, pFocusedRoom
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
jmp code_6a61
|
|
|
|
code_69e0: lst temp[$5]
|
|
ldi $4 ; scaleX
|
|
and
|
|
bnt code_6a0c
|
|
ldi $4 ; scaleX
|
|
sag global[$e5]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $316 ; 790, handleVerb
|
|
push2
|
|
pushi $33 ; 51, '3', play
|
|
pushi $279 ; 633, pFocusedRoom
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
jmp code_6a61
|
|
|
|
code_6a0c: lst temp[$5]
|
|
ldi $1
|
|
and
|
|
bnt code_6a38
|
|
ldi $1
|
|
sag global[$e5]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $316 ; 790, handleVerb
|
|
push2
|
|
pushi $33 ; 51, '3', play
|
|
pushi $279 ; 633, pFocusedRoom
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
jmp code_6a61
|
|
|
|
code_6a38: lst temp[$5]
|
|
ldi $2
|
|
and
|
|
bnt code_6a61
|
|
ldi $2
|
|
sag global[$e5]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $316 ; 790, handleVerb
|
|
push2
|
|
pushi $33 ; 51, '3', play
|
|
pushi $279 ; 633, pFocusedRoom
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
code_6a61: ldi $1
|
|
aTop cycles
|
|
jmp code_6a7a
|
|
|
|
code_6a68: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_6a7a
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_6a7a: toss
|
|
ret
|
|
|
|
WANetUseScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_6ade
|
|
lsp param[$3]
|
|
dup
|
|
ldi $271e ; 10014
|
|
eq?
|
|
bnt code_6ab0
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_3299 ; "The magical power has been drained from the %s and it is now useless until recharged."
|
|
push
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_6ada
|
|
|
|
code_6ab0: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_6ac9
|
|
pushi $f5 ; 245, format
|
|
push1
|
|
lofsa string_32ef ; "You can't use that item right now."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_6ada
|
|
|
|
code_6ac9: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_6ada: toss
|
|
jmp code_6aef
|
|
|
|
code_6ade: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_6aef: lat temp[$0]
|
|
bnt code_6afe
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_6afe: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetUseScript::changeState:
|
|
link $7
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_6b2b
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $7 ; priority
|
|
pushSelf
|
|
pToa client
|
|
send $a
|
|
bnot
|
|
jmp code_6c46
|
|
|
|
code_6b2b: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_6b41
|
|
pushi $39d ; 925, face
|
|
push2
|
|
pTos pDirectObject
|
|
pushSelf
|
|
pToa client
|
|
send $8
|
|
bnot
|
|
jmp code_6c46
|
|
|
|
code_6b41: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_6bee
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BUse
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$6]
|
|
lat temp[$4]
|
|
bnt code_6be7
|
|
pushi $454 ; 1108, pSpell
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_6be7
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
pushi $454 ; 1108, pSpell
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
pushi $9cac ; -25428
|
|
pushi $6 ; maxScale
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
sat temp[$5]
|
|
pushi $2bb ; 699, pType
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bt code_6baf
|
|
pushi $2bb ; 699, pType
|
|
push0
|
|
lat temp[$5]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
not
|
|
code_6baf: bnt code_6bc7
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
lofsa string_3312 ; "You can not use that out of combat!"
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
code_6bc7: pushi $527 ; 1319, pCaster
|
|
push1
|
|
pTos pDirectObject
|
|
pushi $528 ; 1320, cast
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lat temp[$5]
|
|
send $4
|
|
bnot
|
|
sat temp[$5]
|
|
send $c
|
|
bnot
|
|
ldi $1
|
|
aTop pDone
|
|
jmp code_6c46
|
|
|
|
code_6be7: ldi $1
|
|
aTop cycles
|
|
jmp code_6c46
|
|
|
|
code_6bee: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_6c0b
|
|
pToa pDone
|
|
bnt code_6c04
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_6c46
|
|
|
|
code_6c04: ldi $1
|
|
aTop cycles
|
|
jmp code_6c46
|
|
|
|
code_6c0b: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_6c34
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pHandsOff
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $a7 ; 167, isDuplicate
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_6c46
|
|
|
|
code_6c34: dup
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_6c46
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_6c46: toss
|
|
ret
|
|
|
|
WANetMixScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_6c87
|
|
lsp param[$3]
|
|
dup
|
|
ldi $2714 ; 10004
|
|
eq?
|
|
bnt code_6c72
|
|
pushi $f5 ; 245, format
|
|
push1
|
|
lofsa string_3345 ; "Something is just not right..."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_6c83
|
|
|
|
code_6c72: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_6c83: toss
|
|
jmp code_6c98
|
|
|
|
code_6c87: pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
code_6c98: lat temp[$0]
|
|
bnt code_6ca7
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_6ca7: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetPushScript::handleError:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $31f ; 799, defaultError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
self $a
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_6cd7
|
|
pushi $38c ; 908, setMessage
|
|
push1
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_6cd7: ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WANetPushScript::changeState:
|
|
link $4
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_6d17
|
|
pushi $4ff ; 1279, pApproach
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
bnt code_6d10
|
|
pushi $39c ; 924, approach
|
|
pushi $3 ; z
|
|
pTos pDirectObject
|
|
pushi $1d ; 29, brTop
|
|
pushSelf
|
|
pToa client
|
|
send $a
|
|
bnot
|
|
jmp code_6d4e
|
|
|
|
code_6d10: ldi $1
|
|
aTop cycles
|
|
jmp code_6d4e
|
|
|
|
code_6d17: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_6d3c
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $4 ; scaleX
|
|
pushi $a8 ; 168, last
|
|
pTos pDirectObject
|
|
pushi $ff ; 255, asInteger
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $c
|
|
bnot
|
|
jmp code_6d4e
|
|
|
|
code_6d3c: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_6d4e
|
|
ldi $1
|
|
aTop pDone
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_6d4e: toss
|
|
ret
|
|
|
|
NetDeadDemon::init:
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
pushi $380 ; 896, pWhoToFollow
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
class GlobalDemons
|
|
aTop client
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop pRoom
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
NetDeadDemon::dispose:
|
|
link $1
|
|
pToa scratch
|
|
bnt code_6d92
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scratch
|
|
code_6d92: pushi $3ec ; 1004, pAction
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
ne?
|
|
bnt code_6db6
|
|
pushi $3ec ; 1004, pAction
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
code_6db6: pushi $276 ; 630, handsOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
lal local[$0]
|
|
bnt code_6dd6
|
|
pushi $4 ; scaleX
|
|
pushi $b ; 11, inRight
|
|
pushi $3 ; z
|
|
lofsa string_3383 ; "Info"
|
|
push
|
|
lofsa string_3388 ; "Your body has been found by a group of wandering druids who transported you to the nearest resurrection center. Once your fatal wounds were treated, you were dragged to your house and left to revive."
|
|
push
|
|
callk kernel_118, $8
|
|
bnot
|
|
code_6dd6: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop client
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
NetDeadDemon::handleError:
|
|
link $2
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_6dff
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_6dff: ret
|
|
|
|
NetDeadDemon::changeState:
|
|
link $1
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_6e22
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sal local[$0]
|
|
ldi $5 ; scaleY
|
|
aTop seconds
|
|
jmp code_6fbb
|
|
|
|
code_6e22: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_6e3f
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
push2
|
|
pushi $9c45 ; -25531
|
|
push0
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_6fbb
|
|
|
|
code_6e3f: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_6e8f
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
pushi $2c1 ; 705, pRoomList
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
aTop pRoom
|
|
pToa pRoom
|
|
sag global[$3]
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class CombatRoom
|
|
push
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_6e88
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $497 ; 1175, exitCombat
|
|
push1
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $6
|
|
bnot
|
|
jmp code_6fbb
|
|
|
|
code_6e88: ldi $1
|
|
aTop cycles
|
|
jmp code_6fbb
|
|
|
|
code_6e8f: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_6eda
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
pushi $2c1 ; 705, pRoomList
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
aTop pRoom
|
|
pToa pRoom
|
|
sag global[$3]
|
|
ldi $1
|
|
sal local[$0]
|
|
push2
|
|
push2
|
|
pushi $4 ; scaleX
|
|
callk kernel_118, $4
|
|
bnot
|
|
pushi $3 ; z
|
|
pushi $b ; 11, inRight
|
|
pushi $5 ; scaleY
|
|
pushSelf
|
|
callk kernel_118, $6
|
|
bnot
|
|
jmp code_6fbb
|
|
|
|
code_6eda: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_6ee8
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_6fbb
|
|
|
|
code_6ee8: dup
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_6f1c
|
|
push2
|
|
push2
|
|
pushi $3 ; z
|
|
callk kernel_118, $4
|
|
bnot
|
|
pushi $524 ; 1316, queryHouse
|
|
pushi $3 ; z
|
|
pushi $35d ; 861, pProperName
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos scratch
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $a
|
|
bnot
|
|
jmp code_6fbb
|
|
|
|
code_6f1c: dup
|
|
ldi $6 ; maxScale
|
|
eq?
|
|
bnt code_6fa0
|
|
pushi $406 ; 1030, pHealth
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $632 ; 1586, pHealthHi
|
|
push1
|
|
push0
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $6 ; maxScale
|
|
dup
|
|
pushi $5 ; scaleY
|
|
push0
|
|
push0
|
|
pushi $407 ; 1031, pHealthMax
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $633 ; 1587, pHealthMaxHi
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_118, $c
|
|
bnot
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pTos scratch
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_6f82
|
|
pushi $272 ; 626, newRoom
|
|
push2
|
|
pTos scratch
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_6fbb
|
|
|
|
code_6f82: pushi $272 ; 626, newRoom
|
|
push2
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_6fbb
|
|
|
|
code_6fa0: dup
|
|
ldi $7 ; priority
|
|
eq?
|
|
bnt code_6fbb
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lofsa string_3450 ; "|43|Info> Resurrection complete, continue play."
|
|
push
|
|
lag global[$9c]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_6fbb: toss
|
|
ret
|
|
|
|
NetDeadDemon::perform:
|
|
push2
|
|
push2
|
|
pushi $3 ; z
|
|
callk kernel_118, $4
|
|
bnot
|
|
ldi $0
|
|
sal local[$0]
|
|
pushi $10f ; 271, setLong
|
|
push1
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa scratch
|
|
send $6
|
|
bnot
|
|
ipToa state
|
|
ipToa state
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lofsa string_3480 ; "|43|Info> Resurrecting, please wait 15 seconds..."
|
|
push
|
|
lag global[$9c]
|
|
send $6
|
|
bnot
|
|
ldi $f ; 15, loop
|
|
aTop seconds
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
MakeItemDialog::perform:
|
|
link $1
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
class DeadObjects
|
|
send $6
|
|
bnot
|
|
lap param[$1]
|
|
bnt code_7060
|
|
pushi $133 ; 307, pIsBigEndian
|
|
push1
|
|
push1
|
|
pushi $13f ; 319, putString
|
|
push1
|
|
pTos scratch
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class PackedData
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $c
|
|
bnot
|
|
pushi $6 ; maxScale
|
|
pushi $e ; 14, view
|
|
lofsa string_34ca ; "tpa"
|
|
push
|
|
pushi $71 ; 113, 'q', data
|
|
pTos pObject
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_128, $c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_7060: ret
|
|
|
|
MakeItemDialog::init:
|
|
link $6
|
|
pushi $94 ; 148, init
|
|
push1
|
|
lofsa string_34ce ; "CREATEITEM"
|
|
push
|
|
super WinDialogHandler, $6
|
|
bnot
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BMix
|
|
push
|
|
pToa pObject
|
|
send $6
|
|
bnot
|
|
sat temp[$5]
|
|
bnt code_70a4
|
|
pushi $4 ; scaleX
|
|
pushi $12 ; 18, nsLeft
|
|
push0
|
|
pushi $502 ; 1282, pSkill
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos pObject
|
|
callk kernel_118, $8
|
|
bnot
|
|
pToa scratch
|
|
not
|
|
bnt code_70a4
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
code_70a4: ret
|
|
|
|
MakeItemDialog::handleEvent:
|
|
link $5
|
|
pushi $48 ; 72, 'H', modifiers
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pWindow
|
|
eq?
|
|
bnt code_71ba
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_71a8
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
class DeadObjects
|
|
send $6
|
|
bnot
|
|
pushi $3 ; z
|
|
pushi $2d ; 45, '-', cursor
|
|
pTos pWindow
|
|
pushi $67 ; 103, 'g', quitGame
|
|
callk kernel_118, $6
|
|
bnot
|
|
sat temp[$0]
|
|
push2
|
|
pushi $30 ; 48, '0', who
|
|
push
|
|
callk kernel_118, $4
|
|
bnot
|
|
sat temp[$1]
|
|
push1
|
|
pTos pObject
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_7116
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
pToa pObject
|
|
send $6
|
|
bnot
|
|
bnt code_7116
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BMix
|
|
push
|
|
pToa pObject
|
|
send $6
|
|
bnot
|
|
sat temp[$4]
|
|
not
|
|
bnt code_7116
|
|
ret
|
|
|
|
code_7116: lst temp[$1]
|
|
pushi $502 ; 1282, pSkill
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $11 ; 17, bitmap
|
|
sub
|
|
sali local[$1]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $4 ; scaleX
|
|
pushi $7 ; priority
|
|
pushi $502 ; 1282, pSkill
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_126, $8
|
|
bnot
|
|
pushi $133 ; 307, pIsBigEndian
|
|
push1
|
|
push1
|
|
pushi $13f ; 319, putString
|
|
push1
|
|
lst temp[$3]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class PackedData
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
send $c
|
|
bnot
|
|
pushi $6 ; maxScale
|
|
pushi $e ; 14, view
|
|
lofsa string_34ca ; "tpa"
|
|
push
|
|
pushi $71 ; 113, 'q', data
|
|
pTos pObject
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_128, $c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
jmp code_71b9
|
|
|
|
code_71a8: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_71b9
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
class DeadObjects
|
|
send $6
|
|
bnot
|
|
code_71b9: toss
|
|
code_71ba: ret
|
|
|
|
MakeItemCode::doit:
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lofsa itemString
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_71dc
|
|
pushi $71 ; 113, 'q', data
|
|
push1
|
|
push2
|
|
push2
|
|
lofsa string_34e8 ; ""
|
|
push
|
|
callk kernel_92, $4
|
|
bnot
|
|
push
|
|
lofsa itemString
|
|
send $6
|
|
bnot
|
|
code_71dc: pushi $9f ; 159, add
|
|
push1
|
|
pushi $16 ; 22, lsLeft
|
|
lofsa string_34e8 ; ""
|
|
push
|
|
pushi $74 ; 116, 't', all
|
|
lofsa string_34e9 ; "Make An Item"
|
|
push
|
|
pushi $6e ; 110, 'n', resX
|
|
lofsa string_34f6 ; "Enter the name of the object that you want to make (i.e. 'iron axe' or 'leather tunic'):"
|
|
push
|
|
pushi $fdea ; -534
|
|
pushi $fb ; 251, subStr
|
|
pushi $14 ; 20, nsRight
|
|
pushi $76 ; 118, 'v', textLeft
|
|
lofsa itemString
|
|
push
|
|
pushi $20 ; 32, ' ', name
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_2b67 ; "Okay"
|
|
push
|
|
push1
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_21cd ; "Cancel"
|
|
push
|
|
push0
|
|
pushi $91 ; 145, bitPutIndex
|
|
push2
|
|
pushi $93 ; 147, pLine
|
|
pushSelf
|
|
pushi $63 ; 99, 'c', perform
|
|
calle export60029_0, $2c
|
|
bnot
|
|
push
|
|
lag global[$68]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
MakeItemCode::perform:
|
|
link $1
|
|
lsp param[$1]
|
|
ldi $1
|
|
eq?
|
|
bnt code_7280
|
|
pushi $133 ; 307, pIsBigEndian
|
|
push1
|
|
push1
|
|
pushi $13f ; 319, putString
|
|
push1
|
|
lofsa itemString
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class PackedData
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $c
|
|
bnot
|
|
pushi $6 ; maxScale
|
|
pushi $e ; 14, view
|
|
lofsa string_34ca ; "tpa"
|
|
push
|
|
pushi $71 ; 113, 'q', data
|
|
pTos scratch
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_128, $c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_7280: ret
|
|
|
|
GotoVisibleLocation::doit:
|
|
link $f
|
|
ret
|
|
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$d]
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$e]
|
|
push0
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$c]
|
|
pushi $89 ; 137, top
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1e ; 30, brRight
|
|
add
|
|
sat temp[$0]
|
|
pushi $87 ; 135, left
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1e ; 30, brRight
|
|
add
|
|
sat temp[$1]
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1e ; 30, brRight
|
|
sub
|
|
sat temp[$2]
|
|
pushi $88 ; 136, right
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1e ; 30, brRight
|
|
sub
|
|
sat temp[$3]
|
|
pushi $a0 ; 160, firstTrue
|
|
pushi $3 ; z
|
|
pushi $eb ; 235, onMe
|
|
lst temp[$d]
|
|
lst temp[$e]
|
|
lat temp[$c]
|
|
send $a
|
|
bnot
|
|
sat temp[$7]
|
|
push
|
|
ldi $0
|
|
eq?
|
|
bt code_7306
|
|
lst temp[$7]
|
|
lap param[$1]
|
|
eq?
|
|
code_7306: bnt code_730a
|
|
ret
|
|
|
|
code_730a: lat temp[$e]
|
|
sat temp[$6]
|
|
code_730e: lst temp[$6]
|
|
lat temp[$2]
|
|
lt?
|
|
bnt code_73d2
|
|
lat temp[$d]
|
|
sat temp[$5]
|
|
code_731a: lst temp[$5]
|
|
lat temp[$1]
|
|
gt?
|
|
bnt code_736f
|
|
pushi $a0 ; 160, firstTrue
|
|
pushi $3 ; z
|
|
pushi $eb ; 235, onMe
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
lat temp[$c]
|
|
send $a
|
|
bnot
|
|
sat temp[$7]
|
|
bnt code_7343
|
|
lst temp[$e]
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
gt?
|
|
code_7343: not
|
|
bnt code_7366
|
|
lst temp[$5]
|
|
lat temp[$d]
|
|
eq?
|
|
bnt code_7354
|
|
lst temp[$6]
|
|
lat temp[$e]
|
|
eq?
|
|
code_7354: not
|
|
bnt code_7365
|
|
pushi $39b ; 923, goto
|
|
push2
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
code_7365: ret
|
|
|
|
code_7366: lst temp[$5]
|
|
ldi $a ; 10, inTop
|
|
sub
|
|
sat temp[$5]
|
|
jmp code_731a
|
|
|
|
code_736f: lat temp[$d]
|
|
sat temp[$5]
|
|
code_7373: lst temp[$5]
|
|
lat temp[$3]
|
|
lt?
|
|
bnt code_73c8
|
|
pushi $a0 ; 160, firstTrue
|
|
pushi $3 ; z
|
|
pushi $eb ; 235, onMe
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
lat temp[$c]
|
|
send $a
|
|
bnot
|
|
sat temp[$7]
|
|
bnt code_739c
|
|
lst temp[$e]
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
gt?
|
|
code_739c: not
|
|
bnt code_73bf
|
|
lst temp[$5]
|
|
lat temp[$d]
|
|
eq?
|
|
bnt code_73ad
|
|
lst temp[$6]
|
|
lat temp[$e]
|
|
eq?
|
|
code_73ad: not
|
|
bnt code_73be
|
|
pushi $39b ; 923, goto
|
|
push2
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
code_73be: ret
|
|
|
|
code_73bf: lst temp[$5]
|
|
ldi $a ; 10, inTop
|
|
add
|
|
sat temp[$5]
|
|
jmp code_7373
|
|
|
|
code_73c8: lst temp[$6]
|
|
ldi $a ; 10, inTop
|
|
add
|
|
sat temp[$6]
|
|
jmp code_730e
|
|
|
|
code_73d2: lat temp[$e]
|
|
sat temp[$6]
|
|
code_73d6: lst temp[$6]
|
|
lat temp[$0]
|
|
gt?
|
|
bnt code_749a
|
|
lat temp[$d]
|
|
sat temp[$5]
|
|
code_73e2: lst temp[$5]
|
|
lat temp[$1]
|
|
gt?
|
|
bnt code_7437
|
|
pushi $a0 ; 160, firstTrue
|
|
pushi $3 ; z
|
|
pushi $eb ; 235, onMe
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
lat temp[$c]
|
|
send $a
|
|
bnot
|
|
sat temp[$7]
|
|
bnt code_740b
|
|
lst temp[$e]
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
gt?
|
|
code_740b: not
|
|
bnt code_742e
|
|
lst temp[$5]
|
|
lat temp[$d]
|
|
eq?
|
|
bnt code_741c
|
|
lst temp[$6]
|
|
lat temp[$e]
|
|
eq?
|
|
code_741c: not
|
|
bnt code_742d
|
|
pushi $39b ; 923, goto
|
|
push2
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
code_742d: ret
|
|
|
|
code_742e: lst temp[$5]
|
|
ldi $a ; 10, inTop
|
|
sub
|
|
sat temp[$5]
|
|
jmp code_73e2
|
|
|
|
code_7437: lat temp[$d]
|
|
sat temp[$5]
|
|
code_743b: lst temp[$5]
|
|
lat temp[$3]
|
|
lt?
|
|
bnt code_7490
|
|
pushi $a0 ; 160, firstTrue
|
|
pushi $3 ; z
|
|
pushi $eb ; 235, onMe
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
lat temp[$c]
|
|
send $a
|
|
bnot
|
|
sat temp[$7]
|
|
bnt code_7464
|
|
lst temp[$e]
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
gt?
|
|
code_7464: not
|
|
bnt code_7487
|
|
lst temp[$5]
|
|
lat temp[$d]
|
|
eq?
|
|
bnt code_7475
|
|
lst temp[$6]
|
|
lat temp[$e]
|
|
eq?
|
|
code_7475: not
|
|
bnt code_7486
|
|
pushi $39b ; 923, goto
|
|
push2
|
|
lst temp[$5]
|
|
lst temp[$6]
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
code_7486: ret
|
|
|
|
code_7487: lst temp[$5]
|
|
ldi $a ; 10, inTop
|
|
add
|
|
sat temp[$5]
|
|
jmp code_743b
|
|
|
|
code_7490: lst temp[$6]
|
|
ldi $a ; 10, inTop
|
|
sub
|
|
sat temp[$6]
|
|
jmp code_73d6
|
|
|
|
code_749a: ret
|
|
|