RealmFiles/Script/Script40207.txt

1039 lines
15 KiB
Plaintext

export40207_0 = $0
CreateAttackStanceBitmap::doit:
link $5
pushi $f ; 15, loop
push0
lap param[$1]
send $4
bnot
sat temp[$2]
pushi $10 ; 16, cel
push0
lap param[$1]
send $4
bnot
sat temp[$3]
pushi $3ec ; 1004, pAction
push0
lap param[$1]
send $4
bnot
sat temp[$4]
pushi $2fb ; 763, pCombatGroup
push0
lap param[$1]
send $4
bnot
sat temp[$1]
pushi $2fb ; 763, pCombatGroup
push1
push1
lap param[$1]
send $6
bnot
pushi $373 ; 883, setAction
push1
push1
lsp param[$1]
calle export40111_0, $2
bnot
push
lap param[$1]
send $6
bnot
pushi $2fb ; 763, pCombatGroup
push1
lst temp[$1]
lap param[$1]
send $6
bnot
pushi $f ; 15, loop
push1
push2
pushi $10 ; 16, cel
push1
push0
pushi $36a ; 874, updateDisplay
push0
lap param[$1]
send $10
bnot
push2
pushi $b ; 11, inRight
pushi $11 ; 17, bitmap
push0
lap param[$1]
send $4
bnot
push
callk kernel_35, $4
bnot
sat temp[$0]
pushi $373 ; 883, setAction
push1
lst temp[$4]
pushi $f ; 15, loop
push1
lst temp[$2]
pushi $10 ; 16, cel
push1
lst temp[$3]
pushi $36a ; 874, updateDisplay
push0
lap param[$1]
send $16
bnot
lat temp[$0]
ret
CreateHeadBitmap::doit:
link $3
pushi $35c ; 860, getBase
push1
class BHead
push
lap param[$1]
send $6
bnot
sat temp[$0]
pushi $466 ; 1126, generateBitmap
push2
push0
push0
send $8
bnot
sat temp[$1]
pushi $3 ; z
pushi $a ; 10, inTop
push
pushi $17a ; 378, clut
push0
pushi $3a7 ; 935, getBaseOwner
push0
lap param[$1]
send $4
bnot
send $4
bnot
push
callk kernel_35, $6
bnot
lat temp[$1]
ret
CreateStandBitmap::doit:
link $3
pushi $f ; 15, loop
push0
lap param[$1]
send $4
bnot
sat temp[$1]
pushi $10 ; 16, cel
push0
lap param[$1]
send $4
bnot
sat temp[$2]
pushi $f ; 15, loop
push1
push2
pushi $10 ; 16, cel
push1
push0
pushi $36a ; 874, updateDisplay
push0
lap param[$1]
send $10
bnot
pushi $3aa ; 938, createDisplay
push1
push1
lap param[$1]
send $6
bnot
sat temp[$0]
pushi $f ; 15, loop
push1
lst temp[$1]
pushi $10 ; 16, cel
push1
lst temp[$2]
pushi $36a ; 874, updateDisplay
push0
lap param[$1]
send $10
bnot
lat temp[$0]
ret
ArmorInfo::dispose:
pToa pType
bnt code_023e
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop pType
code_023e: pushi $95 ; 149, dispose
push0
super Obj, $4
bnot
ret
CharInfo::getAffectedState:
pToa pStatusArray
bnt code_0254
pushi $4b ; 75, 'K', at
push1
lsp param[$1]
send $6
bnot
ret
code_0254: ldi $0
ret
CharInfo::show:
pToa pIsSelf
bnt code_0269
pushi $3 ; z
pushi $7 ; priority
push0
class CharInfo
push
callk kernel_118, $6
bnot
jmp code_0275
code_0269: pushi $3 ; z
pushi $7 ; priority
push1
class CharInfo
push
callk kernel_118, $6
bnot
code_0275: ret
CharInfo::init:
link $2
pushi $94 ; 148, init
push0
&rest $2
super Obj, $4
bnot
lag global[$1]
not
bt code_028c
lsl local[$0]
lag global[$1]
eq?
code_028c: bnt code_0294
ldi $1
aTop pIsSelf
jmp code_0298
code_0294: ldi $0
aTop pIsSelf
code_0298: pushi $35c ; 860, getBase
push1
class BCharacter
push
lal local[$0]
send $6
bnot
sat temp[$0]
pushi $d0 ; 208, with
push1
pushi $315 ; 789, pName
push0
lap param[$1]
send $4
bnot
push
class Str
send $6
bnot
aTop pName
pushi $d0 ; 208, with
push1
pushi $4c7 ; 1223, pTitle
push0
lat temp[$0]
send $4
bnot
push
class Str
send $6
bnot
aTop pTitle
pushi $d0 ; 208, with
push1
pushi $4c5 ; 1221, pProfession
push0
lat temp[$0]
send $4
bnot
lsli local[$2]
class Str
send $6
bnot
aTop pProfession
pushi $403 ; 1027, pLevel
push0
lap param[$1]
send $4
bnot
aTop pLevel
pushi $3fc ; 1020, pStrength
push0
lap param[$1]
send $4
bnot
aTop pStrength
pushi $3fe ; 1022, pIntelligence
push0
lap param[$1]
send $4
bnot
aTop pIntelligence
pushi $3fd ; 1021, pDexterity
push0
lap param[$1]
send $4
bnot
aTop pDexterity
pushi $400 ; 1024, pEndurance
push0
lap param[$1]
send $4
bnot
aTop pEndurance
pushi $406 ; 1030, pHealth
push0
lap param[$1]
send $4
bnot
aTop pHealth
pushi $632 ; 1586, pHealthHi
push0
lap param[$1]
send $4
bnot
aTop pHealthHi
pushi $407 ; 1031, pHealthMax
push0
lap param[$1]
send $4
bnot
aTop pHealthMax
pushi $633 ; 1587, pHealthMaxHi
push0
lap param[$1]
send $4
bnot
aTop pHealthMaxHi
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pExperience
pushi $10f ; 271, setLong
push1
pushi $42b ; 1067, pExperience
push0
lat temp[$0]
send $4
bnot
push
pToa pExperience
send $6
bnot
pushi $432 ; 1074, pBuildPoints
push0
lat temp[$0]
send $4
bnot
aTop pBuildPoints
pushi $40b ; 1035, pArmorClass
push0
lap param[$1]
send $4
bnot
aTop pArmorRating
pushi $433 ; 1075, pPeaceful
push0
lap param[$1]
send $4
bnot
not
aTop pPvp
pushi $40a ; 1034, pAlignment
push0
lap param[$1]
send $4
bnot
aTop pAlignment
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pBounty
pushi $b5 ; 181, set
push1
push0
pToa pBounty
send $6
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pManaDrain
pushi $b5 ; 181, set
push1
push0
pToa pManaDrain
send $6
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pMeleeArmorPierce
pushi $b5 ; 181, set
push1
push0
pToa pMeleeArmorPierce
send $6
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pEvilMDM
pushi $b5 ; 181, set
push1
push0
pToa pEvilMDM
send $6
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pGoodMDM
pushi $b5 ; 181, set
push1
push0
pToa pGoodMDM
send $6
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pBillingDate
pushi $b5 ; 181, set
push1
push0
pToa pBillingDate
send $6
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pCredits
pushi $b5 ; 181, set
push1
push0
pToa pCredits
send $6
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pCoppers
pushi $b5 ; 181, set
push1
push0
pToa pCoppers
send $6
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pNPCKills
pushi $b5 ; 181, set
push1
push0
pToa pNPCKills
send $6
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pPKills
pushi $b5 ; 181, set
push1
push0
pToa pPKills
send $6
bnot
pushi $319 ; 793, pHead
push0
lap param[$1]
send $4
bnot
bnt code_0488
pushi $45 ; 69, 'E', doit
push1
pushi $319 ; 793, pHead
push0
lap param[$1]
send $4
bnot
push
lofsa CreateHeadBitmap
send $6
bnot
aTop pFace
jmp code_0495
code_0488: pushi $45 ; 69, 'E', doit
push1
lsp param[$1]
lofsa CreateStandBitmap
send $6
bnot
aTop pFace
code_0495: pushi $152 ; 338, xScaleAdj
push0
lap param[$1]
send $4
bnot
aTop pAttackWidth
pushi $153 ; 339, yScaleAdj
push0
lap param[$1]
send $4
bnot
aTop pAttackHeight
pushi $45 ; 69, 'E', doit
push1
lsp param[$1]
lofsa CreateAttackStanceBitmap
send $6
bnot
aTop pAttackStance
pushi $45 ; 69, 'E', doit
push1
lsp param[$1]
lofsa CreateStandBitmap
send $6
bnot
aTop pStand
pushi $d0 ; 208, with
push1
pushi $4c8 ; 1224, pBiography
push0
lat temp[$0]
send $4
bnot
push
class Str
send $6
bnot
aTop pBiography
pushi $8d ; 141, new
push0
class List
send $4
bnot
aTop pArmorInfoList
pushi $d3 ; 211, copy
push1
pushi $430 ; 1072, pSkillArray
push0
lat temp[$0]
send $4
bnot
push
class ByteArray
send $6
bnot
aTop pSkillArray
ret
CharInfo::dispose:
pushi $95 ; 149, dispose
push0
pToa pName
send $4
bnot
ldi $0
aTop pName
pToa pIsSelf
bnt code_051d
pToa pUpdateTitle
bnt code_051d
pushi $42a ; 1066, setTitle
push2
lsl local[$0]
pTos pTitle
lag global[$6a]
send $8
bnot
code_051d: pushi $95 ; 149, dispose
push0
pToa pTitle
send $4
bnot
ldi $0
aTop pTitle
pushi $95 ; 149, dispose
push0
pToa pProfession
send $4
bnot
ldi $0
aTop pProfession
pToa pIsSelf
bnt code_054c
pToa pUpdateBio
bnt code_054c
pushi $4ca ; 1226, setBiography
push2
lsl local[$0]
pTos pBiography
lag global[$6a]
send $8
bnot
code_054c: ldi $0
aTop pIsSelf
pushi $95 ; 149, dispose
push0
pToa pBiography
send $4
bnot
ldi $0
aTop pBiography
aTop pLevel
aTop pStrength
aTop pDexterity
aTop pIntelligence
aTop pEndurance
aTop pHealth
aTop pHealthHi
aTop pHealthMax
aTop pHealthMaxHi
aTop pKnowledge
aTop pKnowledgeMax
aTop pCarry
aTop pCarryMax
pushi $95 ; 149, dispose
push0
pToa pExperience
send $4
bnot
ldi $0
aTop pExperience
aTop pBuildPoints
aTop pArmorRating
aTop pPvp
aTop pAlignment
aTop pWanted
pushi $95 ; 149, dispose
push0
pToa pBounty
send $4
bnot
ldi $0
aTop pBounty
pushi $95 ; 149, dispose
push0
pToa pManaDrain
send $4
bnot
ldi $0
aTop pManaDrain
pushi $95 ; 149, dispose
push0
pToa pMeleeArmorPierce
send $4
bnot
ldi $0
aTop pMeleeArmorPierce
pushi $95 ; 149, dispose
push0
pToa pEvilMDM
send $4
bnot
ldi $0
aTop pEvilMDM
pushi $95 ; 149, dispose
push0
pToa pGoodMDM
send $4
bnot
ldi $0
aTop pGoodMDM
pushi $95 ; 149, dispose
push0
pToa pAccountType
send $4
bnot
ldi $0
aTop pAccountType
pushi $95 ; 149, dispose
push0
pToa pBillingDate
send $4
bnot
ldi $0
aTop pBillingDate
pushi $95 ; 149, dispose
push0
pToa pAccountID
send $4
bnot
pushi $95 ; 149, dispose
push0
pToa pCredits
send $4
bnot
pushi $95 ; 149, dispose
push0
pToa pCoppers
send $4
bnot
pushi $95 ; 149, dispose
push0
pToa pCastResist
send $4
bnot
pushi $95 ; 149, dispose
push0
pToa pSpellResist
send $4
bnot
pToa pFace
bnt code_0621
push2
push1
push
callk kernel_35, $4
bnot
code_0621: ldi $0
aTop pFace
push2
push1
pTos pAttackStance
callk kernel_35, $4
bnot
ldi $0
aTop pAttackStance
push2
push1
pTos pStand
callk kernel_35, $4
bnot
ldi $0
aTop pStand
pushi $95 ; 149, dispose
push0
pToa pArmorInfoList
send $4
bnot
ldi $0
aTop pArmorInfoList
pushi $95 ; 149, dispose
push0
pToa pWeaponName
send $4
bnot
ldi $0
aTop pWeaponName
aTop pWeaponDamageMin
aTop pWeaponDamageMax
aTop pWeaponCondition
aTop pAttacksPerRound
aTop pDodgesPerRound
aTop pBlocksPerRound
aTop pAttackDamageMin
aTop pAttackDamageMax
aTop pMovementRate
pushi $95 ; 149, dispose
push0
pToa pSkillArray
send $4
bnot
ldi $0
aTop pSkillArray
pToa pStatusArray
bnt code_0685
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop pStatusArray
code_0685: pushi $95 ; 149, dispose
push0
pToa pNPCKills
send $4
bnot
ldi $0
aTop pNPCKills
pushi $95 ; 149, dispose
push0
pToa pPKills
send $4
bnot
ldi $0
aTop pPKills
pushi $95 ; 149, dispose
push0
&rest $1
super Obj, $4
bnot
ret
GetCharacterInfo::init:
pushi $277 ; 631, controlOff
push0
lag global[$2]
send $4
bnot
pushi $9f ; 159, add
push1
pushSelf
class DisposeNotifyList
send $6
bnot
pushi $94 ; 148, init
push0
&rest $1
super DemonsScript, $4
bnot
ret
GetCharacterInfo::dispose:
pushi $278 ; 632, controlOn
push0
lag global[$2]
send $4
bnot
pushi $58 ; 88, 'X', delete
push1
pushSelf
class DisposeNotifyList
send $6
bnot
pToa scratch
bnt code_06e9
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop scratch
code_06e9: pushi $95 ; 149, dispose
push0
&rest $1
super DemonsScript, $4
bnot
ret
GetCharacterInfo::handleError:
lsp param[$1]
class DisposeNotifyList
eq?
bnt code_070b
lsp param[$2]
lal local[$0]
eq?
bnt code_070b
pushi $95 ; 149, dispose
push0
self $4
bnot
jmp code_0717
code_070b: pushi $9c ; 156, handleError
push1
&rest $4 ; scaleX
lsp param[$1]
super DemonsScript, $6
bnot
code_0717: ret
GetCharacterInfo::changeState:
link $2
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_0747
pushi $322 ; 802, pStatusArray
push1
pushi $8d ; 141, new
push0
class ByteArray
send $4
bnot
push
class CharInfo
send $6
bnot
pushi $549 ; 1353, getExtendedProps
push2
lsl local[$0]
pushSelf
lag global[$6a]
send $8
bnot
jmp code_07fb
code_0747: dup
ldi $1
eq?
bnt code_076b
pushi $8d ; 141, new
push0
class Str
send $4
bnot
aTop scratch
pushi $50e ; 1294, getBiography
pushi $3 ; z
lsl local[$0]
pTos scratch
pushSelf
lag global[$6a]
send $a
bnot
jmp code_07fb
code_076b: dup
ldi $2
eq?
bnt code_07e6
pushi $35c ; 860, getBase
push1
class BCharacter
push
lal local[$0]
send $6
bnot
sat temp[$0]
pushi $5a ; 90, 'Z', size
push0
pToa scratch
send $4
bnot
bnt code_0797
pushi $4ca ; 1226, setBiography
push1
pTos scratch
lat temp[$0]
send $6
bnot
jmp code_07a4
code_0797: pushi $4ca ; 1226, setBiography
push1
lofsa string_01cd ; ""
push
lat temp[$0]
send $6
bnot
code_07a4: pushi $95 ; 149, dispose
push0
pToa scratch
send $4
bnot
ldi $0
aTop scratch
pushi $1a ; 26, signal
push0
lal local[$0]
send $4
bnot
push
ldi $8 ; fixPriority
and
bnt code_07c8
pushi $95 ; 149, dispose
push0
self $4
bnot
jmp code_07fb
code_07c8: pushi $94 ; 148, init
push1
lsl local[$0]
class CharInfo
send $6
bnot
pushi $5b9 ; 1465, getLookInfo
pushi $3 ; z
lsl local[$0]
class CharInfo
push
pushSelf
lag global[$6a]
send $a
bnot
jmp code_07fb
code_07e6: dup
ldi $3 ; z
eq?
bnt code_07fb
pushi $75 ; 117, 'u', show
push0
class CharInfo
send $4
bnot
pushi $95 ; 149, dispose
push0
self $4
bnot
code_07fb: toss
ret
CreateLookDialog::doit:
lap param[$1]
sal local[$0]
pushi $94 ; 148, init
push0
pushi $8d ; 141, new
push0
lofsa GetCharacterInfo
send $4
bnot
send $4
bnot
ret