diff --git a/Script/Script40017.txt b/Script/Script40017.txt new file mode 100644 index 0000000..b1b26e7 --- /dev/null +++ b/Script/Script40017.txt @@ -0,0 +1,62 @@ +BCycle::doit: + pushi $14a ; 330, cycleSpeed + push1 + pTos pCycleSpeed + pToa pSelf + send $6 + bnot + pTos pCycleType + dup + ldi $0 + eq? + bnt code_0051 + pushi $105 ; 261, setCycle + push1 + class Fwd + push + pToa pSelf + send $6 + bnot + jmp code_008d + +code_0051: dup + ldi $1 + eq? + bnt code_0065 + pushi $105 ; 261, setCycle + push1 + class Rev + push + pToa pSelf + send $6 + bnot + jmp code_008d + +code_0065: dup + ldi $2 + eq? + bnt code_007b + pushi $105 ; 261, setCycle + push2 + class Osc + push + pushi $a ; 10, inTop + pToa pSelf + send $8 + bnot + jmp code_008d + +code_007b: dup + ldi $3 ; z + eq? + bnt code_008d + pushi $105 ; 261, setCycle + push1 + class RandCycle + push + pToa pSelf + send $6 + bnot +code_008d: toss + ret + diff --git a/Script/Script40018.txt b/Script/Script40018.txt new file mode 100644 index 0000000..ec4f7c8 --- /dev/null +++ b/Script/Script40018.txt @@ -0,0 +1,62 @@ +BEntry::dispose: + push1 + pTos pDest + calle export60000_0, $2 + bnot + bnt code_004b + pushi $95 ; 149, dispose + push0 + pToa pDest + send $4 + bnot +code_004b: pushi $95 ; 149, dispose + push0 + &rest $1 + super WorldObjectBase, $4 + bnot + ret + +BEntry::buildVerbList: + link $2 + pushi $97 ; 151, isKindOf + push1 + class WorldEgo + push + lap param[$1] + send $6 + bnot + bnt code_008e + pushi $384 ; 900, pSittingOn + push0 + lap param[$1] + send $4 + bnot + not + bnt code_008e + pushi $381 ; 897, pMode + push0 + lap param[$1] + send $4 + bnot + push + ldi $1 + and + bnt code_008e + pushi $9f ; 159, add + push1 + pushi $6d ; 109, 'm', picture + class VerbList + sat temp[$0] + send $6 + bnot +code_008e: ret + +BEntry::fromPacket: + pushi $136 ; 310, getLong + push0 + lap param[$1] + send $4 + bnot + aTop pDest + ret + diff --git a/Script/Script40019.txt b/Script/Script40019.txt new file mode 100644 index 0000000..e3ab3c5 --- /dev/null +++ b/Script/Script40019.txt @@ -0,0 +1,648 @@ +BCharacter::init: + pushi $94 ; 148, init + push0 + &rest $1 + super WorldObjectBase, $4 + bnot + pushi $42a ; 1066, setTitle + push1 + lofsa string_0044 ; "" + push + self $6 + bnot + pushi $4c9 ; 1225, setProperName + push1 + lofsa string_0044 ; "" + push + self $6 + bnot + pushi $8d ; 141, new + push0 + class ByteArray + send $4 + bnot + aTop pSpellArray + pushi $8d ; 141, new + push0 + class ByteArray + send $4 + bnot + aTop pSkillArray + ret + +BCharacter::dispose: + pushi $4c9 ; 1225, setProperName + push1 + push0 + self $6 + bnot + pushi $42a ; 1066, setTitle + push1 + push0 + self $6 + bnot + pushi $4ca ; 1226, setBiography + push1 + push0 + self $6 + bnot + pToa pSpellArray + bnt code_00c6 + pushi $95 ; 149, dispose + push0 + send $4 + bnot + ldi $0 + aTop pSpellArray +code_00c6: pToa pSkillArray + bnt code_00d5 + pushi $95 ; 149, dispose + push0 + send $4 + bnot + ldi $0 + aTop pSkillArray +code_00d5: pToa pExperience + bnt code_00e4 + pushi $95 ; 149, dispose + push0 + send $4 + bnot + ldi $0 + aTop pExperience +code_00e4: pToa pStealingCount + bnt code_00f3 + pushi $95 ; 149, dispose + push0 + send $4 + bnot + ldi $0 + aTop pStealingCount +code_00f3: pToa pStealingUnserved + bnt code_0102 + pushi $95 ; 149, dispose + push0 + send $4 + bnot + ldi $0 + aTop pStealingUnserved +code_0102: pToa pKillingUnserved + bnt code_0111 + pushi $95 ; 149, dispose + push0 + send $4 + bnot + ldi $0 + aTop pKillingUnserved +code_0111: pToa pKillingCount + bnt code_0120 + pushi $95 ; 149, dispose + push0 + send $4 + bnot + ldi $0 + aTop pKillingCount +code_0120: pushi $95 ; 149, dispose + push0 + &rest $1 + super WorldObjectBase, $4 + bnot + ret + +BCharacter::setProperName: + pToa pProperName + bnt code_013a + pushi $95 ; 149, dispose + push0 + send $4 + bnot + ldi $0 + aTop pProperName +code_013a: lap param[$1] + bnt code_014a + pushi $d0 ; 208, with + push1 + push + class Str + send $6 + bnot + aTop pProperName +code_014a: ret + +BCharacter::setTitle: + pToa pTitle + bnt code_015a + pushi $95 ; 149, dispose + push0 + send $4 + bnot + ldi $0 + aTop pTitle +code_015a: lap param[$1] + bnt code_016a + pushi $d0 ; 208, with + push1 + push + class Str + send $6 + bnot + aTop pTitle +code_016a: ret + +BCharacter::setBiography: + pToa pBiography + bnt code_017a + pushi $95 ; 149, dispose + push0 + send $4 + bnot + ldi $0 + aTop pBiography +code_017a: lap param[$1] + bnt code_018a + pushi $d0 ; 208, with + push1 + push + class Str + send $6 + bnot + aTop pBiography +code_018a: ret + +BCharacter::fromPacket: + link $2 + pushi $134 ; 308, getByte + push0 + lap param[$1] + send $4 + bnot + aTop pProfession + pushi $134 ; 308, getByte + push0 + lap param[$1] + send $4 + bnot + aTop pRace + pushi $134 ; 308, getByte + push0 + lap param[$1] + send $4 + bnot + aTop pSex + pushi $3ed ; 1005, pBaseView + push0 + pToa pSelf + send $4 + bnot + push + ldi $64 ; 100, 'd', moveDone + eq? + bt code_01cb + pushi $3ed ; 1005, pBaseView + push0 + pToa pSelf + send $4 + bnot + push + ldi $c8 ; 200, handleEvent + eq? +code_01cb: bnt code_01eb + pToa pSex + not + bnt code_01df + pushi $3ed ; 1005, pBaseView + push1 + pushi $64 ; 100, 'd', moveDone + pToa pSelf + send $6 + bnot + jmp code_01eb + +code_01df: pushi $3ed ; 1005, pBaseView + push1 + pushi $c8 ; 200, handleEvent + pToa pSelf + send $6 + bnot +code_01eb: pushi $139 ; 313, getString + push0 + lap param[$1] + send $4 + bnot + sat temp[$0] + pushi $4c9 ; 1225, setProperName + push1 + push + self $6 + bnot + pushi $134 ; 308, getByte + push0 + lap param[$1] + send $4 + bnot + aTop pPeaceful + pushi $99 ; 153, respondsTo + push1 + pushi $433 ; 1075, pPeaceful + pToa pSelf + send $6 + bnot + bnt code_0222 + pushi $433 ; 1075, pPeaceful + push1 + pTos pPeaceful + pToa pSelf + send $6 + bnot +code_0222: pushi $406 ; 1030, pHealth + push1 + pushi $135 ; 309, getWord + push0 + lap param[$1] + send $4 + bnot + push + pToa pSelf + send $6 + bnot + pushi $632 ; 1586, pHealthHi + push1 + pushi $135 ; 309, getWord + push0 + lap param[$1] + send $4 + bnot + push + pToa pSelf + send $6 + bnot + pushi $407 ; 1031, pHealthMax + push1 + pushi $135 ; 309, getWord + push0 + lap param[$1] + send $4 + bnot + push + pToa pSelf + send $6 + bnot + pushi $633 ; 1587, pHealthMaxHi + push1 + pushi $135 ; 309, getWord + push0 + lap param[$1] + send $4 + bnot + push + pToa pSelf + send $6 + bnot + pushi $95 ; 149, dispose + push0 + lat temp[$0] + send $4 + bnot + ret + +BCharacter::fromFullPacket: + link $2 + pushi $134 ; 308, getByte + push0 + lap param[$1] + send $4 + bnot + aTop pProfession + pushi $136 ; 310, getLong + push0 + lap param[$1] + send $4 + bnot + aTop pExperience + pushi $134 ; 308, getByte + push0 + lap param[$1] + send $4 + bnot + aTop pRace + pushi $134 ; 308, getByte + push0 + lap param[$1] + send $4 + bnot + aTop pSex + pushi $139 ; 313, getString + push0 + lap param[$1] + send $4 + bnot + sat temp[$0] + pushi $4c9 ; 1225, setProperName + push1 + push + self $6 + bnot + pushi $95 ; 149, dispose + push0 + lat temp[$0] + send $4 + bnot + pushi $139 ; 313, getString + push0 + lap param[$1] + send $4 + bnot + sat temp[$1] + pushi $42a ; 1066, setTitle + push1 + push + self $6 + bnot + pushi $95 ; 149, dispose + push0 + lat temp[$1] + send $4 + bnot + ret + +BCharacter::buildVerbList: + link $3 + pushi $97 ; 151, isKindOf + push1 + class WorldActor + push + lap param[$1] + send $6 + bnot + bnt code_04c8 + pTos pSelf + lag global[$1] + ne? + bnt code_04c8 + pushi $35c ; 860, getBase + push1 + class BCharacter + push + lap param[$1] + send $6 + bnot + sat temp[$2] + bnt code_04c8 + class VerbList + sat temp[$0] + pushi $381 ; 897, pMode + push0 + lap param[$1] + send $4 + bnot + push + ldi $2 + and + bnt code_036f + pushi $4 ; scaleX + pushi $43b ; 1083, pCombatX + push0 + pToa pSelf + send $4 + bnot + push + pushi $43c ; 1084, pCombatY + push0 + pToa pSelf + send $4 + bnot + push + pushi $43b ; 1083, pCombatX + push0 + lap param[$1] + send $4 + bnot + push + pushi $43c ; 1084, pCombatY + push0 + lap param[$1] + send $4 + bnot + push + callk kernel_64, $8 + bnot + push + ldi $1 + eq? + bnt code_04c8 + pushi $4cc ; 1228, pFriend + push0 + pToa pSelf + send $4 + bnot + push + ldi $0 + eq? + bnt code_04c8 + pushi $9f ; 159, add + push1 + pushi $1b ; 27, illegalBits + lat temp[$0] + send $6 + bnot + jmp code_04c8 + +code_036f: lsg global[$e6] + ldi $1 + and + bnt code_03b8 + pushi $35c ; 860, getBase + push1 + class BNPC + push + pToa pSelf + send $6 + bnot + not + bnt code_03b8 + pushi $35c ; 860, getBase + push1 + class BGatekeeper + push + pToa pSelf + send $6 + bnot + not + bnt code_03b8 + pushi $35f ; 863, getAffectedState + push1 + pushi $2f ; 47, '/', mark + lag global[$1] + send $6 + bnot + not + bnt code_03b8 + pushi $4b ; 75, 'K', at + push1 + pushi $19 ; 25, lsBottom + pushi $430 ; 1072, pSkillArray + push0 + lat temp[$2] + send $4 + bnot + send $6 + bnot + push + ldi $0 + gt? +code_03b8: bt code_0406 + pushi $35c ; 860, getBase + push1 + class BNPC + push + pToa pSelf + send $6 + bnot + bnt code_0413 + pushi $35c ; 860, getBase + push1 + class BGatekeeper + push + pToa pSelf + send $6 + bnot + not + bnt code_0413 + pushi $319 ; 793, pHead + push0 + pToa pSelf + send $4 + bnot + bnt code_0413 + pushi $35f ; 863, getAffectedState + push1 + pushi $2f ; 47, '/', mark + lag global[$1] + send $6 + bnot + not + bnt code_0413 + pushi $4b ; 75, 'K', at + push1 + pushi $19 ; 25, lsBottom + pushi $430 ; 1072, pSkillArray + push0 + lat temp[$2] + send $4 + bnot + send $6 + bnot + push + ldi $0 + gt? +code_0406: bnt code_0413 + pushi $9f ; 159, add + push1 + pushi $78 ; 120, 'x', textRight + lat temp[$0] + send $6 + bnot +code_0413: pushi $8d ; 141, new + push0 + class LongInt + send $4 + bnot + sat temp[$1] + pushi $b5 ; 181, set + push2 + pushi $2cb ; 715, pServIDLo + push0 + pToa pSelf + send $4 + bnot + push + pushi $2cc ; 716, pServIDHi + push0 + pToa pSelf + send $4 + bnot + push + lat temp[$1] + send $8 + bnot + pushi $35c ; 860, getBase + push1 + class BShop + push + pToa pSelf + send $6 + bnot + not + bnt code_04bf + lsg global[$e6] + ldi $4 ; scaleX + and + bt code_04b2 + lsg global[$e6] + ldi $1 + and + bnt code_0482 + pushi $35c ; 860, getBase + push1 + class BNPC + push + pToa pSelf + send $6 + bnot + not + bnt code_0482 + pushi $37f ; 895, findByServID + push1 + lst temp[$1] + class GroupList + send $6 + bnot + not + bnt code_0482 + pushi $433 ; 1075, pPeaceful + push0 + pToa pSelf + send $4 + bnot + not +code_0482: bt code_04b2 + lsg global[$e6] + ldi $2 + and + bnt code_04bf + pushi $35c ; 860, getBase + push1 + class BNPC + push + pToa pSelf + send $6 + bnot + bnt code_04bf + pushi $37f ; 895, findByServID + push1 + lst temp[$1] + class GroupList + send $6 + bnot + not + bnt code_04bf + pushi $433 ; 1075, pPeaceful + push0 + pToa pSelf + send $4 + bnot + not +code_04b2: bnt code_04bf + pushi $9f ; 159, add + push1 + pushi $70 ; 112, 'p', coordType + lat temp[$0] + send $6 + bnot +code_04bf: pushi $95 ; 149, dispose + push0 + lat temp[$1] + send $4 + bnot +code_04c8: ret + diff --git a/Script/Script40020.txt b/Script/Script40020.txt new file mode 100644 index 0000000..8e14bf7 --- /dev/null +++ b/Script/Script40020.txt @@ -0,0 +1,136 @@ +BShop::buildVerbList: + link $2 + class VerbList + sat temp[$0] + pushi $97 ; 151, isKindOf + push1 + class WorldEgo + push + lap param[$1] + send $6 + bnot + bnt code_0068 + pushi $9f ; 159, add + push1 + pushi $3f ; 63, '?', xStep + lat temp[$0] + send $6 + bnot + pushi $9f ; 159, add + push1 + pushi $2b5c ; 11100 + lat temp[$0] + send $6 + bnot + pushi $9f ; 159, add + push1 + pushi $2b75 ; 11125 + lat temp[$0] + send $6 + bnot + jmp code_011e + +code_0068: pushi $97 ; 151, isKindOf + push1 + class WorldObject + push + lap param[$1] + send $6 + bnot + bnt code_011e + pushi $3a8 ; 936, owns + push2 + lsp param[$1] + push1 + lag global[$1] + send $8 + bnot + bnt code_011e + pushi $40d ; 1037, pMoney + push0 + lap param[$1] + send $4 + bnot + bnt code_009f + pushi $3ed ; 1005, pBaseView + push0 + lap param[$1] + send $4 + bnot + push + ldi $c5a8 ; -14936 + eq? +code_009f: bt code_00ab + pushi $40d ; 1037, pMoney + push0 + lap param[$1] + send $4 + bnot + not +code_00ab: bnt code_011e + pushi $35c ; 860, getBase + push1 + class BWearable + push + lap param[$1] + send $6 + bnot + sat temp[$1] + bnt code_00c4 + pushi $41e ; 1054, pIsWorn + push0 + send $4 + bnot +code_00c4: not + bnt code_00d2 + pushi $9f ; 159, add + push1 + pushi $49 ; 73, 'I', replay + lat temp[$0] + send $6 + bnot +code_00d2: pushi $35c ; 860, getBase + push1 + class BUse + push + lap param[$1] + send $6 + bnot + bnt code_00eb + pushi $9f ; 159, add + push1 + pushi $7c ; 124, '|', titleBack + lat temp[$0] + send $6 + bnot +code_00eb: pushi $35c ; 860, getBase + push1 + class BWearable + push + lap param[$1] + send $6 + bnot + sat temp[$1] + bnt code_0103 + pushi $41e ; 1054, pIsWorn + push0 + send $4 + bnot + not +code_0103: bt code_0111 + pushi $386 ; 902, hasBase + push1 + class BMix + push + lap param[$1] + send $6 + bnot +code_0111: bnt code_011e + pushi $9f ; 159, add + push1 + pushi $25 ; 37, '%', fore + lat temp[$0] + send $6 + bnot +code_011e: ret + diff --git a/Script/Script40021.txt b/Script/Script40021.txt new file mode 100644 index 0000000..bdf510d --- /dev/null +++ b/Script/Script40021.txt @@ -0,0 +1,15 @@ +BNPC::init: + pushi $94 ; 148, init + push0 + &rest $1 + super WorldObjectBase, $4 + bnot + pushi $3e4 ; 996, pMover + push1 + class PolyPath + push + pToa pSelf + send $6 + bnot + ret +