export40005_0 = catchUpOnMessages export40005_1 = code_086a export40005_2 = code_08b8 GPolyBitmap::init: link $e ret pToa bitmap bnt code_047f pushi $9f ; 159, add push1 push lag global[$66] send $6 bnot ldi $0 aTop bitmap code_047f: pushi $5 ; scaleY push0 pushi $280 ; 640, disposeWhenDone pushi $1e0 ; 480, isControl push0 push0 callk kernel_35, $a bnot aTop bitmap lap param[$0] bnt code_04a1 pushi $16d ; 365, obstacles push0 lap param[$1] send $4 bnot sat temp[$1] jmp code_04b3 code_04a1: pushi $16d ; 365, obstacles push0 pushi $c5 ; 197, pRoom push0 lag global[$1] send $4 bnot send $4 bnot sat temp[$1] code_04b3: lat temp[$1] not bnt code_04b9 ret code_04b9: pushi $5a ; 90, 'Z', size push0 lat temp[$1] send $4 bnot sat temp[$2] ldi $0 sat temp[$0] code_04c7: lst temp[$0] lat temp[$2] lt? bnt code_0651 pushi $4b ; 75, 'K', at push1 lst temp[$0] lat temp[$1] send $6 bnot sat temp[$3] pushi $5b ; 91, '[', points push0 send $4 bnot sat temp[$4] pushi $5a ; 90, 'Z', size push0 lat temp[$3] send $4 bnot sat temp[$5] pushi $4b ; 75, 'K', at push1 push0 lat temp[$4] send $6 bnot sat temp[$7] pushi $4b ; 75, 'K', at push1 push1 lat temp[$4] send $6 bnot sat temp[$8] lat temp[$7] sat temp[$a] lat temp[$8] sat temp[$b] pushi $2b ; 43, '+', type push0 lat temp[$3] send $4 bnot push ldi $4 ; scaleX gt? bnt code_051f ldi $3f ; 63, '?', xStep sat temp[$c] jmp code_0523 code_051f: ldi $2b ; 43, '+', type sat temp[$c] code_0523: ldi $1 sat temp[$6] code_0527: lst temp[$6] lat temp[$5] lt? bnt code_05e1 pushi $94 ; 148, init pushi $4 ; scaleX lst temp[$7] lst temp[$8] pushi $4b ; 75, 'K', at push1 lst temp[$6] ldi $2 mul push lat temp[$4] send $6 bnot push pushi $4b ; 75, 'K', at push1 lst temp[$6] ldi $2 mul push ldi $1 add push lat temp[$4] send $6 bnot push pushi $8d ; 141, new push0 class Line send $4 bnot sat temp[$d] send $c bnot pushi $16b ; 363, clip push1 push0 push0 lap param[$1] send $4 bnot push lat temp[$d] send $6 bnot bnt code_05af pushi $7 ; priority push2 pTos bitmap pushi $167 ; 359, pX1 push0 lat temp[$d] send $4 bnot push pushi $168 ; 360, pY1 push0 lat temp[$d] send $4 bnot push pushi $169 ; 361, pX2 push0 lat temp[$d] send $4 bnot push pushi $16a ; 362, pY2 push0 lat temp[$d] send $4 bnot push lst temp[$c] callk kernel_35, $e bnot code_05af: pushi $95 ; 149, dispose push0 lat temp[$d] send $4 bnot pushi $4b ; 75, 'K', at push1 lst temp[$6] ldi $2 mul push lat temp[$4] send $6 bnot sat temp[$7] pushi $4b ; 75, 'K', at push1 lst temp[$6] ldi $2 mul push ldi $1 add push lat temp[$4] send $6 bnot sat temp[$8] +at temp[$6] jmp code_0527 code_05e1: pushi $94 ; 148, init pushi $4 ; scaleX lst temp[$7] lst temp[$8] lst temp[$a] lst temp[$b] pushi $8d ; 141, new push0 class Line send $4 bnot sat temp[$d] send $c bnot pushi $16b ; 363, clip push1 push0 push0 lap param[$1] send $4 bnot push lat temp[$d] send $6 bnot bnt code_0643 pushi $7 ; priority push2 pTos bitmap pushi $167 ; 359, pX1 push0 lat temp[$d] send $4 bnot push pushi $168 ; 360, pY1 push0 lat temp[$d] send $4 bnot push pushi $169 ; 361, pX2 push0 lat temp[$d] send $4 bnot push pushi $16a ; 362, pY2 push0 lat temp[$d] send $4 bnot push lst temp[$c] callk kernel_35, $e bnot code_0643: pushi $95 ; 149, dispose push0 lat temp[$d] send $4 bnot +at temp[$0] jmp code_04c7 code_0651: ldi $1e0 ; 480, isControl aTop y aTop z pushi $94 ; 148, init push0 &rest $2 super View, $4 bnot push1 pushSelf callk kernel_32, $2 bnot ret VerbArray::setBit: link $4 pToa data not bnt code_067e pushi $3 ; z push0 pushi $c8 ; 200, handleEvent pTos type callk kernel_91, $6 bnot aTop data code_067e: lsp param[$1] ldi $8 ; fixPriority div sat temp[$0] push2 lsp param[$1] pushi $8 ; fixPriority calle export60025_1, $4 bnot sat temp[$1] push1 shl sat temp[$2] pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot sat temp[$3] push lat temp[$2] or sat temp[$3] pushi $4b ; 75, 'K', at push2 lst temp[$0] push self $8 bnot ret VerbArray::getBit: link $4 pToa data not bnt code_06c6 pushi $3 ; z push0 pushi $c8 ; 200, handleEvent pTos type callk kernel_91, $6 bnot aTop data code_06c6: lsp param[$1] ldi $8 ; fixPriority div sat temp[$0] push2 lsp param[$1] pushi $8 ; fixPriority calle export60025_1, $4 bnot sat temp[$1] push1 shl sat temp[$2] pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot sat temp[$3] push lat temp[$2] and ret VerbArray::clearBit: link $4 pToa data not bnt code_0703 pushi $3 ; z push0 pushi $c8 ; 200, handleEvent pTos type callk kernel_91, $6 bnot aTop data code_0703: lsp param[$1] ldi $8 ; fixPriority div sat temp[$0] push2 lsp param[$1] pushi $8 ; fixPriority calle export60025_1, $4 bnot sat temp[$1] push1 shl sat temp[$2] push ldi $ff ; 255, asInteger xor sat temp[$2] pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot sat temp[$3] push lat temp[$2] and sat temp[$3] pushi $4b ; 75, 'K', at push2 lst temp[$0] push self $8 bnot ret VerbArray::fill: link $1 pToa data sat temp[$0] pushi $3 ; z push0 pushi $c8 ; 200, handleEvent pTos type callk kernel_91, $6 bnot aTop data lat temp[$0] bnt code_075c push2 pushi $4 ; scaleX push callk kernel_91, $4 bnot code_075c: pushi $d6 ; 214, fill push0 &rest $1 super ByteArray, $4 bnot ret VerbList::add: link $1 ldi $0 sat temp[$0] pushi $5a ; 90, 'Z', size push0 self $4 bnot not bnt code_077e pToa elements sat temp[$0] ldi $0 aTop elements code_077e: pushi $120 ; 288, setBit push1 lsp param[$1] class VerbArray send $6 bnot pushi $9f ; 159, add push1 lsp param[$1] super Set, $6 bnot lat temp[$0] bnt code_079f push2 push1 push callk kernel_90, $4 bnot code_079f: ret VerbList::release: pushi $94 ; 148, init push1 push0 class VerbArray send $6 bnot pushi $a6 ; 166, release push0 super Set, $4 bnot ret catchUpOnMessages::doit: link $a lag global[$d5] sat temp[$0] ldi $0 sag global[$4f] push0 callk kernel_121, $0 bnot sat temp[$5] ldi $1 sat temp[$9] code_07c9: lag global[$32] not bnt code_0861 pushi $5a ; 90, 'Z', size push0 class MovieCmdList send $4 bnot sat temp[$2] bnt code_0861 lat temp[$9] bnt code_0861 ldi $0 sat temp[$1] code_07e5: lst temp[$1] lat temp[$2] lt? bnt code_084f pushi $4b ; 75, 'K', at push1 lst temp[$1] class MovieCmdList send $6 bnot sat temp[$3] pushi $33f ; 831, pClient push0 send $4 bnot sat temp[$4] ldi $0 sat temp[$9] lat temp[$4] bnt code_084b push1 push calle export60000_0, $2 bnot bnt code_084b pushi $97 ; 151, isKindOf push1 class WorldObject push lat temp[$4] send $6 bnot bnt code_0827 lst temp[$4] lag global[$1] ne? code_0827: bt code_0843 pushi $97 ; 151, isKindOf push1 class LongInt push lat temp[$4] send $6 bnot bnt code_084b pushi $37d ; 893, servIDEquals push1 lst temp[$4] lag global[$1] send $6 bnot not code_0843: bnt code_084b ldi $1 sat temp[$9] jmp code_084f code_084b: +at temp[$1] jmp code_07e5 code_084f: lat temp[$9] not bnt code_0856 jmp code_0861 code_0856: pushi $45 ; 69, 'E', doit push0 lag global[$2] send $4 bnot jmp code_07c9 code_0861: ldi $1 sag global[$4f] lat temp[$0] sag global[$d5] code_0869: ret ; export40005_1 code_086a: lal local[$0] not bnt code_08b5 pushi $9f ; 159, add push2 pushi $fe ; 254, strIndex pushi $4b ; 75, 'K', at class Remaps send $8 bnot pushi $9f ; 159, add push2 pushi $f0 ; 240, drawSelected pushi $32 ; 50, '2', edit class Remaps send $8 bnot pushi $9f ; 159, add push2 pushi $f1 ; 241, scale pushi $41 ; 65, 'A', moveSpeed class Remaps send $8 bnot pushi $9f ; 159, add push2 pushi $f2 ; 242, pCast pushi $50 ; 80, 'P', claimed class Remaps send $8 bnot pushi $9f ; 159, add push2 pushi $f3 ; 243, nextEvent pushi $5f ; 95, '_', min class Remaps send $8 bnot code_08b5: +al local[$0] code_08b7: ret ; export40005_2 code_08b8: -al local[$0] not bnt code_08f4 pushi $58 ; 88, 'X', delete push1 pushi $fe ; 254, strIndex class Remaps send $6 bnot pushi $58 ; 88, 'X', delete push1 pushi $f0 ; 240, drawSelected class Remaps send $6 bnot pushi $58 ; 88, 'X', delete push1 pushi $f1 ; 241, scale class Remaps send $6 bnot pushi $58 ; 88, 'X', delete push1 pushi $f2 ; 242, pCast class Remaps send $6 bnot pushi $58 ; 88, 'X', delete push1 pushi $f3 ; 243, nextEvent class Remaps send $6 bnot code_08f4: ret WorldObject::init: ldi $0 aTop pAffectedLo aTop pAffectedHi pTos pBaseView ldi $ff ; 255, asInteger eq? bnt code_0906 pToa view aTop pBaseView code_0906: pTos pBaseView ldi $ff ; 255, asInteger ne? bnt code_0914 pTos pBaseView pToa pAction add aTop view code_0914: ldi $5 ; scaleY aTop approachX aTop approachY pToa pMover not bnt code_0923 class MoveTo aTop pMover code_0923: pushi $373 ; 883, setAction push1 pTos pAction pushi $3c8 ; 968, matchScaler push1 lsg global[$3] self $c bnot pushi $94 ; 148, init push0 &rest $1 super Act, $4 bnot pushi $389 ; 905, buildBaseList push0 pushi $19d ; 413, setSignal push1 pushi $1000 ; 4096, -objID- pushi $3ae ; 942, setColor push1 pTos pColor pushi $3c2 ; 962, generatePolygon push0 pushi $3c3 ; 963, submitPolygon push0 self $18 bnot pushi $35c ; 860, getBase push1 class BCarryable push self $6 bnot bt code_0972 pushi $97 ; 151, isKindOf push1 class WorldActor push self $6 bnot bt code_0972 pToa pClutStart code_0972: aTop pBitmapBased lag global[$f3] not bnt code_0996 pToa pName bnt code_0996 push1 push calle export60000_0, $2 bnot not bnt code_0996 pushi $d0 ; 208, with push1 pTos pName class Str send $6 bnot aTop pName code_0996: ret WorldObject::dispose: link $7 push2 push2 pushSelf callk kernel_158, $4 bnot pushi $3 ; z pushi $12 ; 18, nsLeft push1 pushSelf callk kernel_118, $6 bnot push1 pTos pMovieCmd calle export60000_0, $2 bnot bnt code_09fb pushi $97 ; 151, isKindOf push1 class MovieCmd push pToa pMovieCmd send $6 bnot bnt code_09fb pushi $418 ; 1048, pCmd push0 pToa pMovieCmd send $4 bnot push ldi $2710 ; 10000 ne? bnt code_09fb pushi $418 ; 1048, pCmd push0 pToa pMovieCmd send $4 bnot push ldi $3e ; 62, '>', b_incr ne? bnt code_09fb pushi $5 ; scaleY lofsa string_02a2 ; "%s(0x%x) is being disposed while a movie command is active on it.\n" push pTos pName pushSelf pushi $20 ; 32, ' ', name push0 pToa pMovieCmd send $4 bnot push pTos pMovieCmd callk kernel_132, $a bnot code_09fb: pushi $9d ; 157, eachElementDo pushi $3 ; z pushi $9c ; 156, handleError class DisposeNotifyList push pushSelf class DisposeNotifyList send $a bnot lag global[$1] bnt code_0a54 pushi $c3 ; 195, script push0 send $4 bnot bnt code_0a54 pushi $97 ; 151, isKindOf push1 class WANetScript push pushi $c3 ; 195, script push0 lag global[$1] send $4 bnot send $6 bnot bnt code_0a54 pushi $31e ; 798, pDirectObject push0 lag global[$1] send $4 bnot push selfID eq? bt code_0a49 pushi $3e3 ; 995, pIndirectObject push0 lag global[$1] send $4 bnot push selfID eq? code_0a49: bnt code_0a54 pushi $3a6 ; 934, stopAction push0 lag global[$1] send $4 bnot code_0a54: push1 pTos pInvisibleClut calle export60000_0, $2 bnot bnt code_0a85 pushi $97 ; 151, isKindOf push1 class Clut push pToa pInvisibleClut send $6 bnot bnt code_0a85 pushi $95 ; 149, dispose push0 pToa pInvisibleClut send $4 bnot ldi $0 aTop pInvisibleClut push0 call code_08b7, $0 bnot code_0a85: push1 pTos pFrozenClut calle export60000_0, $2 bnot bnt code_0ab0 pushi $97 ; 151, isKindOf push1 class Clut push pToa pFrozenClut send $6 bnot bnt code_0ab0 pushi $95 ; 149, dispose push0 pToa pFrozenClut send $4 bnot ldi $0 aTop pFrozenClut code_0ab0: push1 pTos clut calle export60000_0, $2 bnot bnt code_0ad7 pushi $97 ; 151, isKindOf push1 class Clut push pToa clut send $6 bnot bnt code_0ad7 pushi $95 ; 149, dispose push0 pToa clut send $4 bnot ldi $0 aTop clut code_0ad7: pushi $3c6 ; 966, deleteFromRoom push0 self $4 bnot ldi $0 sat temp[$3] code_0ae2: lst temp[$3] pushi $5a ; 90, 'Z', size push0 class gDialogList send $4 bnot lt? bnt code_0b3f pushi $4b ; 75, 'K', at push1 lst temp[$3] class gDialogList send $6 bnot sat temp[$6] push1 push calle export60000_0, $2 bnot bnt code_0b3b pushi $97 ; 151, isKindOf push1 class VerbDialog push lat temp[$6] send $6 bnot bnt code_0b3b pushi $142 ; 322, pObject push0 lat temp[$6] send $4 bnot push selfID eq? bnt code_0b3b pushi $58 ; 88, 'X', delete push1 lst temp[$6] class gDialogList send $6 bnot pushi $95 ; 149, dispose push0 lat temp[$6] send $4 bnot jmp code_0b3f code_0b3b: +at temp[$3] jmp code_0ae2 code_0b3f: pushi $32d ; 813, pObj push0 class WDragger send $4 bnot push selfID eq? bnt code_0b56 pushi $359 ; 857, stopDragging push0 class WDragger send $4 bnot code_0b56: pToa pBaseList bnt code_0b66 pushi $3 ; z pushi $13 ; 19, nsTop push pushi $36e ; 878, preDispose callk kernel_90, $6 bnot code_0b66: pushi $3dc ; 988, deleteFromServer push0 self $4 bnot pToa pBaseList bnt code_0bd8 push1 push0 callk kernel_90, $2 bnot sat temp[$1] ldi $0 sat temp[$3] code_0b7e: lst temp[$3] push2 pushi $17 ; 23, lsTop pTos pBaseList callk kernel_90, $4 bnot lt? bnt code_0ba7 pushi $3 ; z pushi $b ; 11, inRight lst temp[$1] pushi $3 ; z pushi $11 ; 17, bitmap pTos pBaseList lst temp[$3] callk kernel_90, $6 bnot push callk kernel_90, $6 bnot +at temp[$3] jmp code_0b7e code_0ba7: push2 push1 pTos pBaseList callk kernel_90, $4 bnot push1 push0 callk kernel_90, $2 bnot aTop pBaseList pushi $3 ; z pushi $13 ; 19, nsTop lst temp[$1] pushi $95 ; 149, dispose callk kernel_90, $6 bnot push2 push1 lst temp[$1] callk kernel_90, $4 bnot push2 push1 pTos pBaseList callk kernel_90, $4 bnot ldi $0 aTop pBaseList code_0bd8: pToa pUpdatorList bnt code_0beb pushi $a6 ; 166, release push0 pushi $95 ; 149, dispose push0 send $8 bnot ldi $0 aTop pUpdatorList code_0beb: pToa pOutgoingMovie bnt code_0bfa pushi $95 ; 149, dispose push0 send $4 bnot ldi $0 aTop pOutgoingMovie code_0bfa: pushi $3b0 ; 944, disposeBitmap push0 self $4 bnot pushi $3c4 ; 964, removePolygon push0 self $4 bnot pToa pPolygon bnt code_0c24 push ldi $ff ; 255, asInteger ne? bnt code_0c24 pushi $16f ; 367, pDispose push1 push1 pushi $95 ; 149, dispose push0 pToa pPolygon send $a bnot ldi $0 aTop pPolygon code_0c24: pToa pValue bnt code_0c33 pushi $95 ; 149, dispose push0 send $4 bnot ldi $0 aTop pValue code_0c33: pToa pManaValue bnt code_0c42 pushi $95 ; 149, dispose push0 send $4 bnot ldi $0 aTop pManaValue code_0c42: pushi $3df ; 991, setServID push2 pushi $ff ; 255, asInteger dup self $8 bnot pToa pCombatGroup bnt code_0c5d pushi $95 ; 149, dispose push0 send $4 bnot ldi $0 aTop pCombatGroup code_0c5d: pushi $38c ; 908, setMessage push1 push0 self $6 bnot pushi $3db ; 987, setName push1 push0 self $6 bnot pToa pAffectedHi bnt code_0c7c pushi $95 ; 149, dispose push0 send $4 bnot ldi $0 aTop pAffectedHi code_0c7c: pushi $95 ; 149, dispose push0 &rest $1 super Act, $4 bnot ret WorldObject::handleEvent: pushi $2b ; 43, '+', type push0 lap param[$1] send $4 bnot push ldi $4000 ; 16384 and bnt code_0ca3 pushi $c8 ; 200, handleEvent push2 lsp param[$1] pushSelf lag global[$1] send $8 bnot ret code_0ca3: ldi $0 ret WorldObject::onMe: pTos pServIDLo ldi $ff ; 255, asInteger eq? bnt code_0cb7 pTos pServIDHi ldi $ff ; 255, asInteger eq? bnt code_0cb7 ldi $0 ret code_0cb7: pushi $eb ; 235, onMe push0 &rest $1 super Act, $4 bnot ret WorldObject::doit: link $1 pToa pDispose bnt code_0cea pToa pMovieCmd sat temp[$0] pushi $95 ; 149, dispose push0 self $4 bnot push1 lst temp[$0] calle export60000_0, $2 bnot bnt code_0cf8 pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot jmp code_0cf8 code_0cea: pToa pPaused not bnt code_0cf8 pushi $45 ; 69, 'E', doit push0 &rest $1 super Act, $4 bnot code_0cf8: ret WorldObject::update: pToa pMsgStr bnt code_0d05 pushi $32e ; 814, follow push1 pushSelf send $6 bnot code_0d05: lag global[$64] not bnt code_0d12 pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot code_0d12: pushi $1ad ; 429, update push0 super Act, $4 bnot ret WorldObject::getBitmap: link $1 pToa pBitmapBased bnt code_0d2e pushi $3aa ; 938, createDisplay push1 pushi $1d ; 29, brTop self $6 bnot sat temp[$0] jmp code_0d42 code_0d2e: pushi $7 ; priority pushi $9 ; inLeft pTos view pTos loop pTos cel pushi $ff ; 255, asInteger dup push1 callk kernel_35, $e bnot sat temp[$0] code_0d42: pushi $9f ; 159, add push1 lst temp[$0] lag global[$66] send $6 bnot lat temp[$0] ret WorldObject::buildVerbList: link $1 pushi $a6 ; 166, release push0 class VerbList send $4 bnot pTos pServIDLo ldi $ff ; 255, asInteger eq? bnt code_0d86 pTos pServIDHi ldi $ff ; 255, asInteger eq? bnt code_0d86 pushi $97 ; 151, isKindOf push1 class Money push self $6 bnot not bnt code_0d86 pushi $97 ; 151, isKindOf push1 class Mana push self $6 bnot not bnt code_0d86 ldi $0 ret code_0d86: pToa pBaseList bnt code_0e10 pushi $3 ; z pushi $13 ; 19, nsTop push pushi $366 ; 870, buildVerbList &rest $1 callk kernel_90, $6 bnot pushi $35b ; 859, getOwner push0 self $4 bnot push selfID ne? bnt code_0e10 pushi $54f ; 1359, pFlags push0 pushi $c5 ; 197, pRoom push0 lag global[$1] send $4 bnot send $4 bnot push ldi $400 ; 1024, pEndurance and bnt code_0de5 pushi $58 ; 88, 'X', delete push1 pushi $11 ; 17, bitmap class VerbList send $6 bnot pushi $58 ; 88, 'X', delete push1 pushi $12 ; 18, nsLeft class VerbList send $6 bnot pushi $58 ; 88, 'X', delete push1 pushi $7 ; priority class VerbList send $6 bnot pushi $58 ; 88, 'X', delete push1 pushi $1d ; 29, brTop class VerbList send $6 bnot code_0de5: pushi $54f ; 1359, pFlags push0 pushi $c5 ; 197, pRoom push0 lag global[$1] send $4 bnot send $4 bnot push ldi $200 ; 512, bottomValue and bnt code_0e10 pushi $58 ; 88, 'X', delete push1 pushi $a ; 10, inTop class VerbList send $6 bnot pushi $58 ; 88, 'X', delete push1 pushi $1d ; 29, brTop class VerbList send $6 bnot code_0e10: pushi $97 ; 151, isKindOf push1 class WorldEgo push lap param[$1] send $6 bnot bnt code_0e8a pushi $9f ; 159, add push1 pushi $3 ; z class VerbList send $6 bnot pushSelf lag global[$1] ne? bnt code_0e54 pushSelf pushi $3a7 ; 935, getBaseOwner push0 self $4 bnot eq? bnt code_0e54 pushi $3ec ; 1004, pAction push0 lap param[$1] send $4 bnot push ldi $3 ; z ne? bnt code_0e54 pushi $9f ; 159, add push1 push2 class VerbList send $6 bnot code_0e54: pushi $35c ; 860, getBase push1 class BDye push self $6 bnot sat temp[$0] bnt code_0e8a pushi $631 ; 1585, pHairDye push0 send $4 bnot bnt code_0e8a pushi $3a9 ; 937, isOwnedBy push1 lsg global[$1] self $6 bnot bnt code_0e8a lsg global[$1] lap param[$1] eq? bnt code_0e8a pushi $9f ; 159, add push1 pushi $2b8e ; 11150 class VerbList send $6 bnot code_0e8a: ret WorldObject::handleVerb: ldi $0 ret WorldObject::getVerb: pushi $366 ; 870, buildVerbList push1 lsp param[$1] self $6 bnot pushi $5a ; 90, 'Z', size push0 class VerbList send $4 bnot not bnt code_0ea3 ret code_0ea3: pushi $8d ; 141, new push2 class VerbList push pushSelf class VerbDialog send $8 bnot ret WorldObject::cue: pToa pMsgStr bnt code_0eb9 ldi $0 aTop pMsgStr code_0eb9: ret WorldObject::setMessage: link $1 lag global[$1] not bt code_0ed9 pushi $17c ; 380, isNotHidden push0 self $4 bnot not bt code_0ed9 push0 push0 self $4 bnot push push0 push0 lag global[$1] send $4 bnot ne? code_0ed9: bnt code_0ef1 push1 lsp param[$1] calle export60000_0, $2 bnot bnt code_0ef0 pushi $95 ; 149, dispose push0 lap param[$1] send $4 bnot code_0ef0: ret code_0ef1: pToa pMsgStr bnt code_0f18 push1 push calle export60000_0, $2 bnot bnt code_0f18 pushi $97 ; 151, isKindOf push1 class ShadowText push pToa pMsgStr send $6 bnot bnt code_0f18 pushi $95 ; 149, dispose push0 pToa pMsgStr send $4 bnot code_0f18: ldi $0 aTop pMsgStr lap param[$1] bnt code_0f9d push2 push1 push2 pushi $9 ; inLeft push callk kernel_91, $4 bnot push callk kernel_92, $4 bnot push ldi $2 div sat temp[$0] push ldi $3 ; z lt? bnt code_0f40 ldi $3 ; z sat temp[$0] code_0f40: lst temp[$0] ldi $8 ; fixPriority gt? bnt code_0f4b ldi $8 ; fixPriority sat temp[$0] code_0f4b: pushi $8d ; 141, new push0 class ShadowText send $4 bnot aTop pMsgStr lsp param[$0] ldi $1 gt? bnt code_0f67 pushi $25 ; 37, '%', fore push1 lsp param[$2] pToa pMsgStr send $6 bnot code_0f67: pushi $94 ; 148, init pushi $4 ; scaleX lsp param[$1] push0 push0 lst temp[$0] pushi $df ; 223, centerOn push1 pushi $3a7 ; 935, getBaseOwner push0 self $4 bnot push pToa pMsgStr send $12 bnot push1 lsp param[$1] calle export60000_0, $2 bnot bnt code_0f9d pushi $95 ; 149, dispose push0 lap param[$1] send $4 bnot ldi $0 sap param[$1] code_0f9d: ret WorldObject::perform: link $6 ldi $1 sat temp[$1] pToa pBaseList bnt code_1030 pushi $4 ; scaleX pushi $14 ; 20, nsRight push pushi $367 ; 871, handlesAction lsp param[$1] callk kernel_90, $8 bnot sat temp[$0] push2 pushi $17 ; 23, lsTop pTos pBaseList callk kernel_90, $4 bnot sat temp[$4] ldi $0 sat temp[$5] code_0fc8: lst temp[$5] lat temp[$4] lt? bnt code_1019 pushi $3 ; z pushi $11 ; 17, bitmap pTos pBaseList lst temp[$5] callk kernel_90, $6 bnot sat temp[$3] push lat temp[$0] ne? bnt code_1015 pushi $99 ; 153, respondsTo push1 lsp param[$1] lat temp[$3] send $6 bnot bnt code_1015 pushi $367 ; 871, handlesAction push1 lsp param[$1] lat temp[$3] send $6 bnot not bnt code_1015 lsp param[$1] push0 &rest $2 lat temp[$3] send $4 bnot sat temp[$1] push ldi $1 ne? bnt code_1015 jmp code_1019 code_1015: +at temp[$5] jmp code_0fc8 code_1019: lst temp[$1] dup ldi $1 eq? bnt code_102f lat temp[$0] bnt code_102f lsp param[$1] push0 &rest $2 send $4 bnot sat temp[$1] code_102f: toss code_1030: lat temp[$1] ret WorldObject::getBase: pToa pBaseList bnt code_1046 pushi $4 ; scaleX pushi $14 ; 20, nsRight push pushi $97 ; 151, isKindOf lsp param[$1] callk kernel_90, $8 bnot ret code_1046: ldi $0 ret WorldObject::getBaseCharacter: pToa pBaseList bnt code_105d pushi $4 ; scaleX pushi $14 ; 20, nsRight push pushi $97 ; 151, isKindOf class BCharacter push callk kernel_90, $8 bnot ret code_105d: ldi $0 ret WorldObject::hasBase: link $1 pushi $2bb ; 699, pType push0 lap param[$1] send $4 bnot sat temp[$0] push ldi $10 ; 16, cel ge? bnt code_1083 lst temp[$0] ldi $10 ; 16, cel sub sat temp[$0] pTos pBaseBitsHi push1 shl and ret jmp code_108c code_1083: pTos pBaseBitsLo push1 lat temp[$0] shl and ret code_108c: ret WorldObject::addBase: link $2 pushi $365 ; 869, pSelf push1 pushSelf pushi $315 ; 789, pName push1 pushi $315 ; 789, pName push0 self $4 bnot push pushi $94 ; 148, init push0 &rest $2 pushi $9a ; 154, yourself push0 pushi $8d ; 141, new push0 lap param[$1] send $4 bnot send $14 bnot sat temp[$0] pToa pBaseList not bnt code_10c5 push1 push0 callk kernel_90, $2 bnot aTop pBaseList code_10c5: pushi $3 ; z pushi $b ; 11, inRight pTos pBaseList lst temp[$0] callk kernel_90, $6 bnot lat temp[$0] ret WorldObject::deleteBase: link $1 pushi $35c ; 860, getBase push1 lsp param[$1] self $6 bnot sat temp[$0] bnt code_10f8 pushi $3 ; z pushi $10 ; 16, cel pTos pBaseList push callk kernel_90, $6 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot code_10f8: lat temp[$0] ret WorldObject::buildBaseList: ret WorldObject::open: pushi $63 ; 99, 'c', perform push1 pushi $248 ; 584, open self $6 bnot ret WorldObject::close: pushi $63 ; 99, 'c', perform push1 pushi $253 ; 595, close self $6 bnot ret WorldObject::lock: pushi $63 ; 99, 'c', perform push2 pushi $34a ; 842, lock lsp param[$1] self $8 bnot ret WorldObject::unlock: pushi $63 ; 99, 'c', perform push2 pushi $38d ; 909, unlock lsp param[$1] self $8 bnot ret WorldObject::take: pushi $63 ; 99, 'c', perform push2 pushi $38e ; 910, take lsp param[$1] self $8 bnot ret WorldObject::give: pushi $63 ; 99, 'c', perform pushi $3 ; z pushi $38f ; 911, give lsp param[$1] lsp param[$2] self $a bnot ret WorldObject::drop: pushi $63 ; 99, 'c', perform push2 pushi $390 ; 912, drop lsp param[$1] self $8 bnot ret WorldObject::see: link $4 pushi $63 ; 99, 'c', perform push1 pushi $2fd ; 765, see self $6 bnot sat temp[$0] ret WorldObject::look: link $1 pushi $63 ; 99, 'c', perform push2 pushi $391 ; 913, look lsp param[$1] self $8 bnot sat temp[$0] push ldi $1 eq? bnt code_1180 pushi $2fd ; 765, see push0 lap param[$1] send $4 bnot ldi $0 sat temp[$0] code_1180: lat temp[$0] ret WorldObject::putOn: link $1 pushi $63 ; 99, 'c', perform push2 pushi $392 ; 914, putOn lsp param[$1] self $8 bnot sat temp[$0] push ldi $1 eq? bnt code_11ba pushi $3a8 ; 936, owns push1 lsp param[$1] self $6 bnot not bnt code_11ae pushi $38e ; 910, take push1 lsp param[$1] self $6 bnot code_11ae: pushi $393 ; 915, bePutOn push1 pushSelf lap param[$1] send $6 bnot sat temp[$0] code_11ba: lat temp[$0] ret WorldObject::bePutOn: pushi $63 ; 99, 'c', perform push2 pushi $393 ; 915, bePutOn lsp param[$1] self $8 bnot ret WorldObject::takeOff: link $1 pushi $63 ; 99, 'c', perform push2 pushi $394 ; 916, takeOff lsp param[$1] self $8 bnot sat temp[$0] push ldi $1 eq? bnt code_1205 push1 lsp param[$1] calle export60000_0, $2 bnot bnt code_1205 pushi $97 ; 151, isKindOf push1 class WorldObject push lap param[$1] send $6 bnot bnt code_1205 pushi $395 ; 917, beTakenOff push0 lap param[$1] send $4 bnot sat temp[$0] code_1205: lat temp[$0] ret WorldObject::beTakenOff: pushi $63 ; 99, 'c', perform push2 pushi $395 ; 917, beTakenOff lsp param[$1] self $8 bnot ret WorldObject::eat: link $1 pushi $63 ; 99, 'c', perform push2 pushi $396 ; 918, eat lsp param[$1] self $8 bnot sat temp[$0] push ldi $1 eq? bnt code_1235 pushi $397 ; 919, beEaten push1 pushSelf lap param[$1] send $6 bnot sat temp[$0] code_1235: lat temp[$0] ret WorldObject::beEaten: pushi $63 ; 99, 'c', perform push2 pushi $397 ; 919, beEaten lsp param[$1] self $8 bnot ret WorldObject::drink: link $1 pushi $63 ; 99, 'c', perform push2 pushi $398 ; 920, drink lsp param[$1] self $8 bnot sat temp[$0] push ldi $1 eq? bnt code_1265 pushi $399 ; 921, beDrunk push1 pushSelf lap param[$1] send $6 bnot sat temp[$0] code_1265: lat temp[$0] ret WorldObject::beDrunk: pushi $63 ; 99, 'c', perform push2 pushi $399 ; 921, beDrunk lsp param[$1] self $8 bnot ret WorldObject::trigger: pushi $63 ; 99, 'c', perform push2 pushi $39a ; 922, trigger lsp param[$1] self $8 bnot ret WorldObject::goto: lap param[$1] aTop x lap param[$2] aTop y ldi $0 ret WorldObject::approach: link $a ldi $2 sat temp[$0] push1 lsp param[$1] calle export60000_0, $2 bnot not bt code_12ab pushi $97 ; 151, isKindOf push1 class WorldObject push lap param[$1] send $6 bnot not code_12ab: bnt code_12b0 lat temp[$0] ret code_12b0: pushi $3a7 ; 935, getBaseOwner push0 lap param[$1] send $4 bnot sat temp[$1] bnt code_12bf sap param[$1] code_12bf: pushi $4 ; scaleX push1 push0 lap param[$1] send $4 bnot push push2 push0 lap param[$1] send $4 bnot push pTos x pTos y callk kernel_63, $8 bnot sat temp[$4] pushi $4 ; scaleX push1 push0 lap param[$1] send $4 bnot push push2 push0 lap param[$1] send $4 bnot push pTos x pTos y callk kernel_64, $8 bnot sat temp[$5] pushi $4 ; scaleX push0 lap param[$1] send $4 bnot push ldi $4e ; 78, 'N', width mul push ldi $64 ; 100, 'd', moveDone div sat temp[$7] push pToa approachDist mul push ldi $64 ; 100, 'd', moveDone div sat temp[$6] push ldi $64 ; 100, 'd', moveDone mul push ldi $85 ; 133, roll div sat temp[$8] push1 push2 lst temp[$4] pushi $64 ; 100, 'd', moveDone callk kernel_67, $4 bnot push callk kernel_61, $2 bnot sat temp[$7] lst temp[$6] push lst temp[$6] lat temp[$8] sub mul push ldi $64 ; 100, 'd', moveDone div sub sat temp[$6] lsp param[$2] dup ldi $3 ; z eq? bnt code_1351 lst temp[$6] ldi $a ; 10, inTop mul sat temp[$6] jmp code_13d5 code_1351: dup ldi $3f ; 63, '?', xStep eq? bnt code_1362 lst temp[$6] ldi $4 ; scaleX mul sat temp[$6] jmp code_13d5 code_1362: dup ldi $49 ; 73, 'I', replay eq? bnt code_1373 lst temp[$6] ldi $4 ; scaleX mul sat temp[$6] jmp code_13d5 code_1373: dup ldi $7c ; 124, '|', titleBack eq? bnt code_1384 lst temp[$6] ldi $4 ; scaleX mul sat temp[$6] jmp code_13d5 code_1384: dup ldi $4 ; scaleX eq? bnt code_1395 lst temp[$6] ldi $4 ; scaleX mul sat temp[$6] jmp code_13d5 code_1395: dup ldi $c ; 12, inBottom eq? bnt code_13a6 lst temp[$6] ldi $2 mul sat temp[$6] jmp code_13d5 code_13a6: dup ldi $d ; 13, seenRect eq? bnt code_13b7 lst temp[$6] ldi $2 mul sat temp[$6] jmp code_13d5 code_13b7: dup ldi $7 ; priority eq? bnt code_13c8 lst temp[$6] ldi $4 ; scaleX mul sat temp[$6] jmp code_13d5 code_13c8: dup ldi $1d ; 29, brTop eq? bnt code_13d5 lst temp[$6] ldi $2 mul sat temp[$6] code_13d5: toss lsp param[$2] dup ldi $6d ; 109, 'm', picture eq? bnt code_13f8 push1 push0 lap param[$1] send $4 bnot sat temp[$2] push2 push0 lap param[$1] send $4 bnot push ldi $7 ; priority add sat temp[$3] jmp code_1428 code_13f8: push1 push0 lap param[$1] send $4 bnot push push2 lst temp[$4] lst temp[$6] ldi $2 sub push callk kernel_66, $4 bnot add sat temp[$2] push2 push0 lap param[$1] send $4 bnot push push2 lst temp[$4] lst temp[$6] ldi $2 sub push callk kernel_67, $4 bnot sub sat temp[$3] code_1428: toss lsp param[$1] selfID ne? bnt code_148d lst temp[$5] lat temp[$6] gt? bnt code_148d pushi $3ec ; 1004, pAction push0 self $4 bnot push ldi $3 ; z ne? bnt code_148d pushi $41b ; 1051, pApproachX push1 lst temp[$2] pushi $41c ; 1052, pApproachY push1 lst temp[$3] pushi $41d ; 1053, pDistance push1 lst temp[$6] pushi $142 ; 322, pObject push1 lsp param[$1] pushi $33f ; 831, pClient push1 pushSelf pushi $c4 ; 196, caller push1 lsp param[$0] ldi $2 gt? bnt code_1472 lap param[$3] jmp code_1474 code_1472: ldi $0 code_1474: push pushi $94 ; 148, init push0 pushi $8d ; 141, new push0 lofsa ApproachScript send $4 bnot send $28 bnot ldi $0 sat temp[$0] jmp code_14c8 code_148d: lsp param[$0] ldi $2 gt? bnt code_14c8 lap param[$3] bnt code_14c8 lsp param[$1] selfID ne? bnt code_14bf lst temp[$5] lat temp[$6] gt? bnt code_14bf pushi $9c ; 156, handleError pushi $3 ; z lsp param[$1] pushi $c350 ; -15536 pushi $c351 ; -15535 lap param[$3] send $a bnot jmp code_14c8 code_14bf: pushi $c7 ; 199, cue push0 lap param[$3] send $4 bnot code_14c8: lat temp[$0] ret WorldObject::face: link $4 ldi $0 sat temp[$1] lap param[$1] bnt code_14e5 pushi $3a7 ; 935, getBaseOwner push0 send $4 bnot sat temp[$1] bnt code_14e5 lat temp[$1] sap param[$1] code_14e5: lap param[$1] not bt code_14fd lsp param[$1] selfID eq? bt code_14fd pushi $3ec ; 1004, pAction push0 self $4 bnot push ldi $3 ; z eq? code_14fd: bnt code_1519 lsp param[$0] ldi $1 gt? bnt code_153f lap param[$2] bnt code_153f pushi $c7 ; 199, cue push0 lap param[$2] send $4 bnot jmp code_153f code_1519: pushi $4 ; scaleX pTos x pTos y push1 push0 lap param[$1] send $4 bnot push push2 push0 lap param[$1] send $4 bnot push callk kernel_63, $8 bnot sat temp[$2] pushi $15a ; 346, setHeading push1 push &rest $2 self $6 bnot code_153f: ldi $0 sat temp[$0] ret WorldObject::saveMover: pToa pMover aTop pLastMover ret WorldObject::restoreMover: pToa pLastMover aTop pMover ret WorldObject::showContents: link $1 pushi $63 ; 99, 'c', perform push1 pushi $3a4 ; 932, showContents &rest $1 self $6 bnot sat temp[$0] ret WorldObject::hideContents: pushi $63 ; 99, 'c', perform push1 pushi $3a5 ; 933, hideContents self $6 bnot ret WorldObject::modifyProp: pushi $63 ; 99, 'c', perform pushi $3 ; z pushi $368 ; 872, modifyProp lsp param[$1] lsp param[$2] self $a bnot ret WorldObject::getProp: pushi $63 ; 99, 'c', perform push2 pushi $369 ; 873, getProp lsp param[$1] self $8 bnot ret WorldObject::buy: pushi $63 ; 99, 'c', perform push2 pushi $3a0 ; 928, buy lsp param[$1] self $8 bnot ret WorldObject::sell: pushi $63 ; 99, 'c', perform push2 pushi $3a1 ; 929, sell lsp param[$1] self $8 bnot ret WorldObject::examine: link $1 pushi $63 ; 99, 'c', perform push2 pushi $39e ; 926, examine lsp param[$1] &rest $2 self $8 bnot sat temp[$0] push ldi $1 eq? bnt code_15c2 pushi $39f ; 927, beExamined push1 pushSelf lap param[$1] send $6 bnot ldi $0 sat temp[$0] code_15c2: lat temp[$0] ret WorldObject::beExamined: pushi $63 ; 99, 'c', perform push2 pushi $39f ; 927, beExamined lsp param[$1] &rest $2 self $8 bnot ret WorldObject::stopAction: pToa pMovieCmd bnt code_1674 pToa mover bt code_15f7 push1 pTos script calle export60000_0, $2 bnot bnt code_1674 pushi $97 ; 151, isKindOf push1 class WANetScript push pToa script send $6 bnot not code_15f7: bnt code_1674 pushi $7 ; priority lofsa string_02f9 ; "Object(%s, %s[$%x], %s[%d], %s) stopped at bad place. The programmers have been made aware of this and it will be fixed very soon." push pTos name push1 pTos pMovieCmd calle export60000_0, $2 bnot bnt code_1619 pushi $20 ; 32, ' ', name push0 pToa pMovieCmd send $4 bnot jmp code_161c code_1619: lofsa string_037c ; "" code_161c: push pTos pMovieCmd push1 pTos script calle export60000_0, $2 bnot bnt code_1636 pushi $20 ; 32, ' ', name push0 pToa script send $4 bnot jmp code_1639 code_1636: lofsa string_0388 ; "" code_1639: push push1 pTos script calle export60000_0, $2 bnot bnt code_1651 pushi $29 ; 41, ')', state push0 pToa script send $4 bnot jmp code_1653 code_1651: ldi $ff ; 255, asInteger code_1653: push push1 pTos mover calle export60000_0, $2 bnot bnt code_166c pushi $20 ; 32, ' ', name push0 pToa mover send $4 bnot jmp code_166f code_166c: lofsa string_0394 ; "" code_166f: push callk kernel_132, $e bnot code_1674: pushi $15c ; 348, setMotion push1 push0 pushi $c9 ; 201, setScript push1 push0 self $c bnot pToa pApproachScript bnt code_168e pushi $95 ; 149, dispose push0 send $4 bnot code_168e: ldi $1 ret WorldObject::getOwner: link $2 selfID sat temp[$1] pushi $35c ; 860, getBase push1 class BCarryable push self $6 bnot sat temp[$0] bnt code_16ae pushi $343 ; 835, pOwner push0 send $4 bnot sat temp[$1] code_16ae: lst temp[$1] ldi $0 eq? bnt code_16b9 selfID sat temp[$1] code_16b9: lat temp[$1] ret WorldObject::getBaseOwner: link $2 selfID sat temp[$0] selfID sat temp[$1] code_16c4: lst temp[$1] ldi $ff ; 255, asInteger ne? bnt code_16e3 lst temp[$0] pushi $35b ; 859, getOwner push0 lat temp[$1] send $4 bnot sat temp[$1] ne? bnt code_16e3 lat temp[$1] sat temp[$0] jmp code_16c4 code_16e3: lat temp[$0] ret WorldObject::owns: push1 lsp param[$1] calle export60000_0, $2 bnot bnt code_170f pushi $97 ; 151, isKindOf push1 class WorldObject push lap param[$1] send $6 bnot bnt code_170f pushi $3a9 ; 937, isOwnedBy push1 pushSelf &rest $2 lap param[$1] send $6 bnot ret code_170f: ldi $0 ret WorldObject::isOwnedBy: link $3 push1 lsp param[$1] calle export60000_0, $2 bnot bnt code_172d pushi $97 ; 151, isKindOf push1 class WorldObject push lap param[$1] send $6 bnot code_172d: not bnt code_1734 ldi $0 ret code_1734: selfID sat temp[$0] selfID sat temp[$1] lsp param[$0] ldi $1 gt? bnt code_1749 lap param[$2] sat temp[$2] jmp code_174e code_1749: ldi $2710 ; 10000 sat temp[$2] code_174e: lat temp[$2] bnt code_1777 lst temp[$1] pushi $35b ; 859, getOwner push0 lat temp[$0] send $4 bnot sat temp[$0] ne? bnt code_1777 lst temp[$0] lap param[$1] eq? bnt code_176f ldi $1 ret code_176f: lat temp[$0] sat temp[$1] -at temp[$2] jmp code_174e code_1777: ldi $0 ret WorldObject::updateDisplay: link $1 pTos pBaseView ldi $ff ; 255, asInteger eq? bt code_179d pTos view ldi $ff ; 255, asInteger eq? bt code_179d pToa pBitmapBased not bt code_179d push2 pushi $80 ; 128, lastKey pTos view callk kernel_5, $4 bnot not code_179d: bnt code_17a0 ret code_17a0: pToa bitmap sat temp[$0] pushi $7 ; priority pushi $9 ; inLeft pTos view pTos loop pTos cel pushi $ff ; 255, asInteger dup push1 callk kernel_35, $e bnot aTop bitmap pushi $4 ; scaleX pushi $8 ; fixPriority pTos bitmap pushi $4 ; scaleX push0 pTos view pTos loop pTos cel callk kernel_34, $8 bnot push pushi $4 ; scaleX push1 pTos view pTos loop pTos cel callk kernel_34, $8 bnot push callk kernel_35, $8 bnot pToa clut bnt code_17ee pushi $3 ; z pushi $a ; 10, inTop pTos bitmap push callk kernel_35, $6 bnot code_17ee: lat temp[$0] bnt code_17fd pushi $9f ; 159, add push1 push lag global[$66] send $6 bnot code_17fd: push1 pushSelf callk kernel_32, $2 bnot ret WorldObject::createDisplay: link $6 pToa -info- sat temp[$3] pToa pUpdateClient bnt code_1818 pushi $1007 ; 4103, -info- push0 send $4 bnot sat temp[$4] code_1818: pToa pAction sat temp[$0] pushi $373 ; 883, setAction push1 lsp param[$1] self $6 bnot lsp param[$0] ldi $1 gt? bnt code_1831 lap param[$2] aTop cel code_1831: pToa bitmap sat temp[$1] ldi $0 aTop bitmap pushi $36a ; 874, updateDisplay push1 pushi $ff ; 255, asInteger self $6 bnot lsp param[$1] ldi $21 ; 33, '!', key eq? bnt code_1871 pushi $35c ; 860, getBase push1 class BWearable push self $6 bnot sat temp[$5] bnt code_1871 pushi $41e ; 1054, pIsWorn push0 send $4 bnot bnt code_1871 pushi $3b3 ; 947, addCel pushi $3 ; z pushi $233c ; 9020 push0 push0 self $a bnot code_1871: pToa pUpdateClient bnt code_187d pushi $3b1 ; 945, remapBitmap push0 self $4 bnot code_187d: pToa bitmap sat temp[$2] not bnt code_1898 push0 callk kernel_129, $0 bnot push2 lofsa string_039f ; "createDisplay generated a NULL bitmap (view == %d)" push pTos view calle export60029_1, $4 bnot code_1898: pushi $373 ; 883, setAction push1 lst temp[$0] self $6 bnot lat temp[$1] aTop bitmap push1 pushSelf callk kernel_32, $2 bnot lat temp[$3] aTop -info- pToa pUpdateClient bnt code_18bd pushi $1007 ; 4103, -info- push1 lst temp[$4] send $6 bnot code_18bd: lat temp[$2] ret WorldObject::createBitmap: link $1 pToa bitmap sat temp[$0] pToa plane bnt code_1939 pTos pBaseView ldi $ff ; 255, asInteger ne? bnt code_1939 push2 pushi $80 ; 128, lastKey pTos view callk kernel_5, $4 bnot bnt code_1939 pushi $7 ; priority pushi $9 ; inLeft pTos view pTos loop pTos cel pushi $ff ; 255, asInteger dup push1 callk kernel_35, $e bnot aTop bitmap pushi $4 ; scaleX pushi $8 ; fixPriority pTos bitmap pushi $4 ; scaleX push0 pTos view pTos loop pTos cel callk kernel_34, $8 bnot push pushi $4 ; scaleX push1 pTos view pTos loop pTos cel callk kernel_34, $8 bnot push callk kernel_35, $8 bnot pushi $17c ; 380, isNotHidden push0 self $4 bnot bnt code_192a push1 pushSelf callk kernel_32, $2 bnot code_192a: lat temp[$0] bnt code_1939 pushi $9f ; 159, add push1 push lag global[$66] send $6 bnot code_1939: ret WorldObject::disposeBitmap: pToa bitmap bnt code_194d pushi $9f ; 159, add push1 push lag global[$66] send $6 bnot ldi $0 aTop bitmap code_194d: ret WorldObject::addBitmap: pToa bitmap bnt code_1967 lap param[$1] bnt code_1967 pushi $5 ; scaleY pushi $6 ; maxScale pTos bitmap lsp param[$1] pushi $ff ; 255, asInteger dup callk kernel_35, $a bnot code_1967: ret WorldObject::addCel: pToa bitmap bnt code_199e lsp param[$2] ldi $ff ; 255, asInteger gt? bnt code_199e lsp param[$3] ldi $ff ; 255, asInteger gt? bnt code_199e push2 pushi $80 ; 128, lastKey lsp param[$1] callk kernel_5, $4 bnot bnt code_199e pushi $8 ; fixPriority pushi $3 ; z pTos bitmap lsp param[$1] lsp param[$2] lsp param[$3] pushi $ff ; 255, asInteger dup push1 callk kernel_35, $10 bnot code_199e: ret WorldObject::addLinkedCel: pToa bitmap bnt code_19e2 push2 pushi $80 ; 128, lastKey lsp param[$1] callk kernel_5, $4 bnot bnt code_19e2 pushi $7 ; priority pushi $3 ; z pTos bitmap lsp param[$1] lsp param[$2] lsp param[$3] pushi $5 ; scaleY push2 pTos view pTos loop pTos cel lsp param[$4] callk kernel_36, $a bnot push pushi $5 ; scaleY pushi $3 ; z pTos view pTos loop pTos cel lsp param[$4] callk kernel_36, $a bnot push callk kernel_35, $e bnot code_19e2: ret WorldObject::addLinkedBitmap: link $2 pToa bitmap bnt code_1aa0 lap param[$1] bnt code_1aa0 lsp param[$0] ldi $3 ; z gt? bnt code_1a25 pushi $5 ; scaleY push2 pTos view pTos loop pTos cel lsp param[$2] callk kernel_36, $a bnot push lap param[$3] sub sat temp[$0] pushi $5 ; scaleY pushi $3 ; z pTos view pTos loop pTos cel lsp param[$2] callk kernel_36, $a bnot push lap param[$4] sub sat temp[$1] jmp code_1a90 code_1a25: pushi $5 ; scaleY push2 pTos view pTos loop pTos cel lsp param[$2] callk kernel_36, $a bnot push pushi $4 ; scaleX push0 pushi $e ; 14, view push0 lap param[$3] send $4 bnot push pushi $f ; 15, loop push0 lap param[$3] send $4 bnot push pushi $10 ; 16, cel push0 lap param[$3] send $4 bnot push callk kernel_34, $8 bnot sub sat temp[$0] pushi $5 ; scaleY pushi $3 ; z pTos view pTos loop pTos cel lsp param[$2] callk kernel_36, $a bnot push pushi $4 ; scaleX push1 pushi $e ; 14, view push0 lap param[$3] send $4 bnot push pushi $f ; 15, loop push0 lap param[$3] send $4 bnot push pushi $10 ; 16, cel push0 lap param[$3] send $4 bnot push callk kernel_34, $8 bnot sub sat temp[$1] code_1a90: pushi $6 ; maxScale dup pTos bitmap lsp param[$1] lst temp[$0] lst temp[$1] push1 callk kernel_35, $c bnot code_1aa0: ret WorldObject::insertLinkedBitmap: link $1 pToa bitmap bnt code_1b41 push2 pushi $b ; 11, inRight push callk kernel_35, $4 bnot sat temp[$0] pushi $6 ; maxScale dup pTos bitmap lsp param[$1] pushi $5 ; scaleY push2 pTos view pTos loop pTos cel lsp param[$2] callk kernel_36, $a bnot push pushi $4 ; scaleX push0 pushi $e ; 14, view push0 lap param[$3] send $4 bnot push pushi $f ; 15, loop push0 lap param[$3] send $4 bnot push pushi $10 ; 16, cel push0 lap param[$3] send $4 bnot push callk kernel_34, $8 bnot sub push pushi $5 ; scaleY pushi $3 ; z pTos view pTos loop pTos cel lsp param[$2] callk kernel_36, $a bnot push pushi $4 ; scaleX push1 pushi $e ; 14, view push0 lap param[$3] send $4 bnot push pushi $f ; 15, loop push0 lap param[$3] send $4 bnot push pushi $10 ; 16, cel push0 lap param[$3] send $4 bnot push callk kernel_34, $8 bnot sub push push1 callk kernel_35, $c bnot pushi $5 ; scaleY pushi $6 ; maxScale pTos bitmap lst temp[$0] pushi $ff ; 255, asInteger dup callk kernel_35, $a bnot pushi $9f ; 159, add push1 lst temp[$0] lag global[$66] send $6 bnot code_1b41: ret WorldObject::insertLinkedCel: link $1 pToa bitmap bnt code_1bac push2 pushi $80 ; 128, lastKey lsp param[$1] callk kernel_5, $4 bnot bnt code_1bac push2 pushi $b ; 11, inRight pTos bitmap callk kernel_35, $4 bnot sat temp[$0] pushi $7 ; priority pushi $3 ; z pTos bitmap lsp param[$1] lsp param[$2] lsp param[$3] pushi $5 ; scaleY push2 pTos view pTos loop pTos cel lsp param[$4] callk kernel_36, $a bnot push pushi $5 ; scaleY pushi $3 ; z pTos view pTos loop pTos cel lsp param[$4] callk kernel_36, $a bnot push callk kernel_35, $e bnot pushi $5 ; scaleY pushi $6 ; maxScale pTos bitmap lst temp[$0] pushi $ff ; 255, asInteger dup callk kernel_35, $a bnot pushi $9f ; 159, add push1 lst temp[$0] lag global[$66] send $6 bnot code_1bac: ret WorldObject::remapBitmap: pToa bitmap bnt code_1bef pToa clut bnt code_1bef pToa pFrozenClut bnt code_1bcb pushi $3 ; z pushi $a ; 10, inTop pTos bitmap push callk kernel_35, $6 bnot jmp code_1bef code_1bcb: pToa pInvisibleClut bnt code_1bdf pushi $3 ; z pushi $a ; 10, inTop pTos bitmap push callk kernel_35, $6 bnot jmp code_1bef code_1bdf: pToa clut bnt code_1bef pushi $3 ; z pushi $a ; 10, inTop pTos bitmap push callk kernel_35, $6 bnot code_1bef: ret WorldObject::addUpdator: link $2 pTos pUpdatorList ldi $0 eq? bnt code_1c10 pushi $340 ; 832, pSortSelector push1 pushi $2fe ; 766, pLayer pushi $8d ; 141, new push0 class SortedList send $4 bnot aTop pUpdatorList send $6 bnot code_1c10: pushi $9f ; 159, add push1 lsp param[$1] pToa pUpdatorList send $6 bnot pushi $365 ; 869, pSelf push0 lap param[$1] send $4 bnot sat temp[$0] pushi $3e9 ; 1001, pUpdateObj push1 pushSelf send $6 bnot selfID sat temp[$1] code_1c31: pushi $3e8 ; 1000, pUpdateClient push0 lat temp[$1] send $4 bnot bnt code_1c4a pushi $3e8 ; 1000, pUpdateClient push0 lat temp[$1] send $4 bnot sat temp[$1] jmp code_1c31 code_1c4a: pushi $3e8 ; 1000, pUpdateClient push1 lst temp[$1] lat temp[$0] send $6 bnot pushi $3ac ; 940, inheritClut push1 lst temp[$0] self $6 bnot pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot ret WorldObject::deleteUpdator: link $1 pushi $58 ; 88, 'X', delete push1 lsp param[$1] pToa pUpdatorList send $6 bnot pushi $5a ; 90, 'Z', size push0 pToa pUpdatorList send $4 bnot push ldi $0 eq? bnt code_1c8f pushi $95 ; 149, dispose push0 pToa pUpdatorList send $4 bnot ldi $0 aTop pUpdatorList code_1c8f: pushi $365 ; 869, pSelf push0 lap param[$1] send $4 bnot sat temp[$0] pushi $3e8 ; 1000, pUpdateClient push1 push0 pushi $3e9 ; 1001, pUpdateObj push1 push0 send $c bnot pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot ret WorldObject::createClut: pToa pClutStart bnt code_1cc6 pToa clut not bnt code_1cc6 pushi $8d ; 141, new push0 class Clut send $4 bnot aTop clut code_1cc6: ret WorldObject::inheritClut: link $b pushi $3ab ; 939, createClut push0 self $4 bnot pushi $17a ; 378, clut push0 lap param[$1] send $4 bnot sat temp[$1] bnt code_1dac pushi $3ea ; 1002, pClutStart push0 lap param[$1] send $4 bnot sat temp[$4] pushi $330 ; 816, pColor push0 lap param[$1] send $4 bnot push ldi $ff ; 255, asInteger and sat temp[$2] pushi $330 ; 816, pColor push0 lap param[$1] send $4 bnot push ldi $8 ; fixPriority shr sat temp[$3] bnt code_1d17 pushi $45 ; 69, 'E', doit push2 lsp param[$1] push class SetScale send $8 bnot code_1d17: lst temp[$4] ldi $ff ; 255, asInteger eq? bnt code_1d2e push2 pTos clut lst temp[$2] calle export40206_0, $4 bnot jmp code_1dac code_1d2e: lst temp[$4] ldi $4 ; scaleX add sat temp[$5] pushi $71 ; 113, 'q', data push0 lat temp[$1] send $4 bnot sat temp[$8] pToa clut sat temp[$a] code_1d43: pushi $97 ; 151, isKindOf push1 class ClutOverride push lat temp[$a] send $6 bnot bnt code_1d5f pushi $41f ; 1055, pClut push0 lat temp[$a] send $4 bnot sat temp[$a] jmp code_1d43 code_1d5f: pushi $71 ; 113, 'q', data push0 lat temp[$a] send $4 bnot sat temp[$9] ldi $0 sat temp[$0] code_1d6d: lst temp[$0] ldi $ff ; 255, asInteger lt? bnt code_1dac pushi $3 ; z push2 lst temp[$8] lst temp[$0] callk kernel_91, $6 bnot sat temp[$2] push lat temp[$0] ne? bt code_1d97 lst temp[$0] lat temp[$4] ge? bnt code_1da8 lst temp[$0] lat temp[$5] lt? code_1d97: bnt code_1da8 pushi $4 ; scaleX pushi $3 ; z lst temp[$9] lst temp[$0] lst temp[$2] callk kernel_91, $8 bnot code_1da8: +at temp[$0] jmp code_1d6d code_1dac: pToa pUpdateObj bnt code_1dba pushi $3ac ; 940, inheritClut push1 lsp param[$1] send $6 bnot code_1dba: pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot ret WorldObject::removeClut: pToa clut bnt code_1dd3 pushi $95 ; 149, dispose push0 send $4 bnot ldi $0 aTop clut code_1dd3: ret WorldObject::setColor: link $5 lsp param[$0] ldi $1 gt? bnt code_1de3 lap param[$2] jmp code_1de5 code_1de3: pToa pClutStart code_1de5: sat temp[$2] pTos pColor ldi $ff ; 255, asInteger and sat temp[$0] pTos pColor ldi $8 ; fixPriority shr sat temp[$1] bnt code_1e04 pushi $45 ; 69, 'E', doit push2 pushSelf push class SetScale send $8 bnot code_1e04: pushi $3ab ; 939, createClut push0 self $4 bnot lst temp[$2] ldi $ff ; 255, asInteger eq? bnt code_1e22 push2 pTos clut lst temp[$0] calle export40206_0, $4 bnot jmp code_1e78 code_1e22: lap param[$1] aTop pColor sat temp[$0] lst temp[$2] lsp param[$0] ldi $2 gt? bnt code_1e37 lap param[$3] jmp code_1e39 code_1e37: ldi $4 ; scaleX code_1e39: add sat temp[$3] push1 pTos clut calle export60000_0, $2 bnot not bt code_1e57 pushi $97 ; 151, isKindOf push1 class Clut push pToa clut send $6 bnot not code_1e57: bnt code_1e5a ret code_1e5a: lat temp[$2] sat temp[$4] code_1e5e: lst temp[$4] lat temp[$3] lt? bnt code_1e78 pushi $4b ; 75, 'K', at push2 lst temp[$4] lst temp[$0] pToa clut send $8 bnot +at temp[$0] +at temp[$4] jmp code_1e5e code_1e78: lat temp[$2] bnt code_1e8a pToa pUpdateObj bnt code_1e8a pushi $3ac ; 940, inheritClut push1 pushSelf send $6 bnot code_1e8a: ret WorldObject::setMode: pTos pMode lap param[$1] or aTop pMode ret WorldObject::clearMode: lap param[$0] bnt code_1ea3 pTos pMode lap param[$1] bnot and aTop pMode jmp code_1ea7 code_1ea3: ldi $0 aTop pMode code_1ea7: ret WorldObject::saveMode: pToa pMode aTop pLastMode ret WorldObject::restoreMode: pToa pLastMode aTop pMode ret WorldObject::pause: ipToa pPaused ret WorldObject::unpause: pToa pPaused bnt code_1ebc dpToa pPaused code_1ebc: ret WorldObject::setAction: link $1 pushi $63 ; 99, 'c', perform push2 pushi $373 ; 883, setAction lsp param[$1] self $8 bnot sat temp[$0] push ldi $1 eq? bnt code_1f65 lsp param[$1] ldi $1c ; 28, brLeft eq? bnt code_1ef1 push2 pushi $80 ; 128, lastKey pTos pBaseView lap param[$1] add push callk kernel_5, $4 bnot not bnt code_1ef1 ldi $1d ; 29, brTop sap param[$1] code_1ef1: push2 pushi $80 ; 128, lastKey pTos pBaseView lap param[$1] add push callk kernel_5, $4 bnot not bnt code_1f14 push2 pushi $80 ; 128, lastKey pTos pBaseView callk kernel_5, $4 bnot bnt code_1f14 ldi $0 sap param[$1] code_1f14: lap param[$1] aTop pAction pTos pBaseView ldi $ff ; 255, asInteger ne? bnt code_1f32 pTos pBaseView pToa pAction add aTop view pToa pMoney not bnt code_1f32 ldi $0 aTop cel code_1f32: pToa pUpdatorList bnt code_1f61 push1 push calle export60000_0, $2 bnot bnt code_1f61 pushi $97 ; 151, isKindOf push1 class SortedList push pToa pUpdatorList send $6 bnot bnt code_1f61 pushi $9d ; 157, eachElementDo push2 pushi $36b ; 875, updateAction lsp param[$1] pToa pUpdatorList send $8 bnot code_1f61: ldi $0 sat temp[$0] code_1f65: lat temp[$0] ret WorldObject::hide: pushSelf lag global[$1] ne? bnt code_1f83 pushi $3a9 ; 937, isOwnedBy push1 lsg global[$1] self $6 bnot not bnt code_1f83 pushi $3a5 ; 933, hideContents push0 self $4 bnot code_1f83: pushi $17c ; 380, isNotHidden push0 self $4 bnot bnt code_1f9a pTos signal ldi $8 ; fixPriority or aTop signal push1 pushSelf callk kernel_31, $2 bnot code_1f9a: ret WorldObject::show: pushi $3e0 ; 992, setVisible push0 self $4 bnot ret WorldObject::lastCel: link $2 pToa view sat temp[$0] pTos pBaseView ldi $ff ; 255, asInteger ne? bnt code_1fb8 pTos pBaseView pToa pAction add aTop view code_1fb8: push2 pushi $80 ; 128, lastKey pTos view callk kernel_5, $4 bnot bnt code_1fd2 pushi $161 ; 353, lastCel push0 super Act, $4 bnot sat temp[$1] jmp code_1fd6 code_1fd2: ldi $0 sat temp[$1] code_1fd6: lat temp[$0] aTop view lat temp[$1] ret WorldObject::generatePolygon: link $10 ldi $2 sat temp[$0] pTos view ldi $ff ; 255, asInteger eq? bnt code_1fee lat temp[$0] ret code_1fee: pToa pPolygon not bnt code_1fff pushi $63 ; 99, 'c', perform push1 pushi $3c2 ; 962, generatePolygon self $6 bnot sat temp[$0] code_1fff: lag global[$1] not bt code_2025 pTos cel ldi $ff ; 255, asInteger eq? bt code_2025 pTos view ldi $ff ; 255, asInteger eq? bt code_2025 pToa pPolygon bt code_2025 push2 pushi $80 ; 128, lastKey pTos view callk kernel_5, $4 bnot not code_2025: bnt code_202e lat temp[$0] ret jmp code_220f code_202e: lst temp[$0] ldi $2 ne? bnt code_220f pushi $8d ; 141, new push0 class Polygon send $4 bnot aTop pPolygon ldi $0 sat temp[$2] ldi $0 sat temp[$3] code_2049: lst temp[$2] ldi $9 ; inLeft lt? bnt code_20a5 pushi $5 ; scaleY push2 pTos view pTos loop pTos cel lst temp[$2] callk kernel_36, $a bnot sat temp[$4] pushi $5 ; scaleY pushi $3 ; z pTos view pTos loop pTos cel lst temp[$2] callk kernel_36, $a bnot sat temp[$5] lst temp[$4] ldi $ff ; 255, asInteger ne? bt code_2081 lst temp[$5] ldi $ff ; 255, asInteger ne? code_2081: bnt code_20a1 pushi $4b ; 75, 'K', at pushi $3 ; z lst temp[$3] lst temp[$4] lst temp[$5] pushi $5b ; 91, '[', points push0 pToa pPolygon send $4 bnot send $a bnot lst temp[$3] ldi $2 add sat temp[$3] code_20a1: +at temp[$2] jmp code_2049 code_20a5: lst temp[$3] ldi $2 div push ldi $3 ; z ge? bnt code_20bf pushi $5a ; 90, 'Z', size push1 lst temp[$3] ldi $2 div push pToa pPolygon send $6 bnot code_20bf: pushi $5a ; 90, 'Z', size push0 pToa pPolygon send $4 bnot not bnt code_21c5 pushi $3 ; z pushi $e ; 14, view push0 lag global[$1] send $4 bnot push pushi $f ; 15, loop push0 lag global[$1] send $4 bnot push pushi $10 ; 16, cel push0 lag global[$1] send $4 bnot push callk kernel_29, $6 bnot push pushi $3 ; z pTos view pTos loop pTos cel callk kernel_29, $6 bnot lt? bnt code_2143 pushi $d1 ; 209, newWith pushi $6 ; maxScale pushi $4 ; scaleX push0 pushi $3 ; z pTos view pTos loop pTos cel callk kernel_29, $6 bnot push pushi $3 ; z pushi $e ; 14, view push0 lag global[$1] send $4 bnot push pushi $f ; 15, loop push0 lag global[$1] send $4 bnot push pushi $10 ; 16, cel push0 lag global[$1] send $4 bnot push callk kernel_29, $6 bnot sub push push0 push0 push0 class IntArray send $10 bnot sat temp[$1] jmp code_2156 code_2143: pushi $d1 ; 209, newWith pushi $5 ; scaleY pushi $4 ; scaleX push0 push0 push0 push0 class IntArray send $e bnot sat temp[$1] code_2156: pushi $6 ; maxScale pushi $71 ; 113, 'q', data push0 lat temp[$1] send $4 bnot push pTos view pTos loop pTos cel push0 push0 callk kernel_27, $c bnot pushi $b5 ; 181, set pushi $4 ; scaleX pushi $4b ; 75, 'K', at push1 push0 lat temp[$1] send $6 bnot push ldi $14 ; 20, nsRight sub push pushi $fa ; 250, lower pushi $4b ; 75, 'K', at push1 push2 lat temp[$1] send $6 bnot push ldi $14 ; 20, nsRight add push pushi $6 ; maxScale pushi $9a ; 154, yourself push0 pushi $8d ; 141, new push0 class Rect send $4 bnot send $10 bnot sat temp[$6] pushi $95 ; 149, dispose push0 lat temp[$1] send $4 bnot pushi $172 ; 370, fromRect push1 lst temp[$6] pToa pPolygon send $6 bnot pushi $95 ; 149, dispose push0 lat temp[$6] send $4 bnot jmp code_220f code_21c5: pushi $dd ; 221, moveBy push2 push0 pushi $4 ; scaleX push0 pTos view pTos loop pTos cel callk kernel_34, $8 bnot sub push push0 pushi $4 ; scaleX push1 pTos view pTos loop pTos cel callk kernel_34, $8 bnot sub push pToa pPolygon send $8 bnot push1 pTos pPolygon callk kernel_137, $2 bnot sat temp[$d] push ldi $1 eq? bnt code_2206 push2 pTos pPolygon push1 callk kernel_137, $4 bnot code_2206: push1 pTos pPolygon callk kernel_137, $2 bnot sat temp[$d] code_220f: lat temp[$0] ret WorldObject::submitPolygon: link $3 pToa pRoom not bt code_2232 pToa pPolygon not bt code_2232 pTos pPolygon ldi $ff ; 255, asInteger eq? bt code_2232 pushi $35c ; 860, getBase push1 class BCarryable push self $6 bnot code_2232: bnt code_2239 ret jmp code_227b code_2239: pushi $2b ; 43, '+', type push1 push2 pushi $d3 ; 211, copy push1 pTos pPolygon pushi $8d ; 141, new push0 class Polygon send $4 bnot sat temp[$0] send $c bnot pushi $f1 ; 241, scale push1 pTos scaleX lat temp[$0] send $6 bnot pushi $dd ; 221, moveBy push2 pTos x pTos y pToa z sub push lat temp[$0] send $8 bnot lat temp[$0] aTop pAddedPolygon pushi $2bd ; 701, addPolygon push1 push pToa pRoom send $6 bnot code_227b: ret WorldObject::removePolygon: pToa pAddedPolygon bnt code_229d pushi $2be ; 702, deletePolygon push1 push pToa pRoom send $6 bnot pushi $16f ; 367, pDispose push1 push1 pushi $95 ; 149, dispose push0 pToa pAddedPolygon send $a bnot ldi $0 aTop pAddedPolygon code_229d: ret WorldObject::addToCast: link $2 ldi $0 sat temp[$0] lap param[$0] bnt code_22ad lap param[$1] sat temp[$0] code_22ad: lat temp[$0] not bnt code_22c1 lag global[$3] bnt code_22c1 pushi $f2 ; 242, pCast push0 send $4 bnot sat temp[$0] code_22c1: lat temp[$0] not bnt code_22c8 ret code_22c8: pushi $17b ; 379, addToCast push1 lsp param[$1] super Act, $6 bnot ret WorldObject::deleteFromCast: link $1 pToa client bnt code_2355 pushi $35c ; 860, getBase push1 class BContainer push self $6 bnot sat temp[$0] bnt code_22f9 pushi $9d ; 157, eachElementDo push1 pushi $69 ; 105, 'i', hide pushi $420 ; 1056, pContents push0 send $4 bnot send $6 bnot code_22f9: pToa pRoom bnt code_230e pushi $3c4 ; 964, removePolygon push0 self $4 bnot pushi $58 ; 88, 'X', delete push1 pushSelf pToa pRoom send $6 bnot code_230e: push1 pTos client calle export60000_0, $2 bnot bnt code_2332 pushi $99 ; 153, respondsTo push1 pushi $58 ; 88, 'X', delete pToa client send $6 bnot bnt code_2332 pushi $58 ; 88, 'X', delete push1 pushSelf pToa client send $6 bnot code_2332: pushi $69 ; 105, 'i', hide push0 self $4 bnot pToa scaler bnt code_234f pushi $95 ; 149, dispose push0 send $4 bnot ldi $0 aTop scaler ldi $80 ; 128, lastKey aTop scaleY aTop scaleX code_234f: ldi $0 aTop client aTop pRoom code_2355: ret WorldObject::addToRoom: link $1 lsp param[$1] pToa pRoom eq? bnt code_236e pushi $99 ; 153, respondsTo push1 pushi $319 ; 793, pHead self $6 bnot bnt code_236e ret code_236e: push1 pushSelf callk kernel_31, $2 bnot lap param[$1] bnt code_23dd pushi $3c7 ; 967, deleteFromCast push0 self $4 bnot lap param[$1] aTop pRoom pushi $9f ; 159, add push1 pushSelf pushi $421 ; 1057, pWObjectList push0 send $4 bnot send $6 bnot pushi $17b ; 379, addToCast push1 pushi $f2 ; 242, pCast push0 lap param[$1] send $4 bnot push pushi $3c8 ; 968, matchScaler push1 lsp param[$1] pushi $3c2 ; 962, generatePolygon push0 pushi $3c3 ; 963, submitPolygon push0 pushi $36a ; 874, updateDisplay push1 push1 self $1a bnot pushi $3e0 ; 992, setVisible push0 self $4 bnot pToa script sat temp[$0] code_23c2: lat temp[$0] bnt code_23dd pushi $c5 ; 197, pRoom push1 lsp param[$1] send $6 bnot pushi $c3 ; 195, script push0 lat temp[$0] send $4 bnot sat temp[$0] jmp code_23c2 code_23dd: ret WorldObject::deleteFromRoom: pushSelf lag global[$1] ne? bnt code_23ec pushi $3a5 ; 933, hideContents push0 self $4 bnot code_23ec: pushi $3c7 ; 967, deleteFromCast push0 self $4 bnot ret WorldObject::matchScaler: pToa pDoScaler bnt code_243f lap param[$1] bnt code_243f pushi $144 ; 324, scaler push0 send $4 bnot bnt code_243f pTos scaleSignal ldi $1 or aTop scaleSignal pTos scaleSignal ldi $fd ; 253, strip and aTop scaleSignal pToa scaler bnt code_2422 pushi $95 ; 149, dispose push0 send $4 bnot code_2422: pushi $36 ; 54, '6', client push1 pushSelf pushi $94 ; 148, init push0 pushi $8d ; 141, new push0 pushi $144 ; 324, scaler push0 lap param[$1] send $4 bnot send $4 bnot aTop scaler send $a bnot code_243f: ret WorldObject::validatePosn: link $1 pushi $97 ; 151, isKindOf push1 class WorldActor push self $6 bnot bnt code_249b pTos pAction ldi $3 ; z lt? bnt code_249b pushi $45 ; 69, 'E', doit pushi $4 ; scaleX pushi $422 ; 1058, pSafeX push0 pToa pRoom send $4 bnot push pushi $423 ; 1059, pSafeY push0 pToa pRoom send $4 bnot push pTos x pTos y push2 pushi $eac4 ; -5436 push1 callk kernel_2, $4 bnot send $c bnot sat temp[$0] push1 push0 send $4 bnot aTop x push2 push0 lat temp[$0] send $4 bnot aTop y pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot code_249b: ret WorldObject::setVisible: pushi $144 ; 324, scaler push0 self $4 bnot bnt code_24b3 pushi $45 ; 69, 'E', doit push0 pushi $144 ; 324, scaler push0 self $4 bnot send $4 bnot code_24b3: pToa pHidden bnt code_24c1 pushi $69 ; 105, 'i', hide push0 self $4 bnot jmp code_2592 code_24c1: pushi $3a7 ; 935, getBaseOwner push0 self $4 bnot push selfID ne? bnt code_24d7 pushi $69 ; 105, 'i', hide push0 self $4 bnot jmp code_2592 code_24d7: lag global[$1] bnt code_2508 pToa pCombatGroup bnt code_2508 pushi $97 ; 151, isKindOf push1 class CombatRoom push lag global[$3] send $6 bnot not bt code_24fc pushi $2fb ; 763, pCombatGroup push0 lag global[$1] send $4 bnot not code_24fc: bnt code_2508 pushi $69 ; 105, 'i', hide push0 self $4 bnot jmp code_2592 code_2508: lag global[$1] bnt code_2548 pToa pCombatGroup bnt code_2548 pushi $97 ; 151, isKindOf push1 class CombatRoom push lag global[$3] send $6 bnot not bt code_253c pushi $128 ; 296, equalLong push1 pushi $2fb ; 763, pCombatGroup push0 lag global[$1] send $4 bnot push pushi $2fb ; 763, pCombatGroup push0 self $4 bnot send $6 bnot not code_253c: bnt code_2548 pushi $69 ; 105, 'i', hide push0 self $4 bnot jmp code_2592 code_2548: lag global[$1] bnt code_2582 pushSelf ne? bnt code_2582 pushi $35f ; 863, getAffectedState push1 pushi $12 ; 18, nsLeft self $6 bnot bt code_2567 pushi $35f ; 863, getAffectedState push1 pushi $15 ; 21, nsBottom self $6 bnot code_2567: bnt code_2582 pushi $35f ; 863, getAffectedState push1 pushi $11 ; 17, bitmap lag global[$1] send $6 bnot not bnt code_2582 pushi $69 ; 105, 'i', hide push0 self $4 bnot jmp code_2592 code_2582: pushi $75 ; 117, 'u', show push0 &rest $1 super Act, $4 bnot pushi $36a ; 874, updateDisplay push0 self $4 bnot code_2592: ret WorldObject::fromPacket: link $14 push2 push2 lsp param[$1] callk kernel_156, $4 bnot not bnt code_25a4 ldi $0 ret code_25a4: ldi $0 sat temp[$d] sat temp[$0] lsp param[$0] ldi $1 gt? bnt code_25ca lap param[$2] sat temp[$0] push1 push calle export60000_0, $2 bnot not bnt code_25ce ldi $0 sat temp[$0] jmp code_25ce code_25ca: ldi $0 sat temp[$0] code_25ce: ldi $ff ; 255, asInteger aTop pPolygon ldi $0 sat temp[$8] pushi $94 ; 148, init push0 pushi $3c6 ; 966, deleteFromRoom push0 self $8 bnot ldi $0 aTop pPolygon push2 pushi $4 ; scaleX lsp param[$1] callk kernel_156, $4 bnot sat temp[$9] pushi $4b ; 75, 'K', at push1 push push2 pushi $9cb6 ; -25418 push0 callk kernel_2, $4 bnot send $6 bnot sat temp[$a] bnt code_260c pushi $45 ; 69, 'E', doit push1 pushSelf send $6 bnot code_260c: pushi $373 ; 883, setAction push1 pTos pAction self $6 bnot pushi $35c ; 860, getBase push1 class BCarryable push self $6 bnot bt code_2624 pToa pClutStart code_2624: aTop pBitmapBased push2 pushi $4 ; scaleX lsp param[$1] callk kernel_156, $4 bnot aTop pServIDLo push2 pushi $4 ; scaleX lsp param[$1] callk kernel_156, $4 bnot aTop pServIDHi pushi $386 ; 902, hasBase push1 class BCharacter push self $6 bnot not bnt code_2655 push2 pushi $4 ; scaleX lsp param[$1] callk kernel_156, $4 bnot aTop pColor code_2655: pushi $2c8 ; 712, lookup push2 pTos pServIDLo pTos pServIDHi lag global[$6a] send $8 bnot sat temp[$1] bnt code_2671 pushi $3df ; 991, setServID push2 pushi $ff ; 255, asInteger dup self $8 bnot code_2671: push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_26b2 pushi $8d ; 141, new push0 class Str send $4 bnot sat temp[$12] push2 pushi $4 ; scaleX pushi $71 ; 113, 'q', data push0 send $4 bnot push callk kernel_91, $4 bnot pushi $71 ; 113, 'q', data push1 pushi $3 ; z pushi $8 ; fixPriority lsp param[$1] push0 callk kernel_156, $6 bnot push lat temp[$12] send $6 bnot pushi $3db ; 987, setName push1 lst temp[$12] self $6 bnot code_26b2: push2 push2 lsp param[$1] callk kernel_156, $4 bnot sat temp[$b] push ldi $ff ; 255, asInteger ne? bnt code_26cf pushi $3d3 ; 979, setAffectedState push1 lst temp[$b] self $6 bnot jmp code_26b2 code_26cf: push2 push2 lsp param[$1] callk kernel_156, $4 bnot push dup ldi $1 eq? bnt code_2706 ldi $1 aTop pMoney pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$b] pushi $b5 ; 181, set push2 push2 pushi $4 ; scaleX lsp param[$1] callk kernel_156, $4 bnot push push0 lat temp[$b] send $8 bnot jmp code_2728 code_2706: dup ldi $2 eq? bnt code_2728 ldi $1 aTop pMoney pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$b] pushi $3 ; z pushi $6 ; maxScale lsp param[$1] push callk kernel_156, $6 bnot code_2728: toss pushi $3dd ; 989, addToServer push0 self $4 bnot pushi $35c ; 860, getBase push1 class BCharacter push self $6 bnot sat temp[$4] bnt code_277c push2 push2 lsp param[$1] callk kernel_156, $4 bnot sag global[$e3] push2 push2 lsp param[$1] callk kernel_156, $4 bnot sag global[$e4] pushi $1a9 ; 425, setStep push2 lsg global[$e3] push self $8 bnot push2 push2 lsp param[$1] callk kernel_156, $4 bnot aTop xScaleAdj push2 push2 lsp param[$1] callk kernel_156, $4 bnot aTop yScaleAdj pushi $36c ; 876, fromPacket push1 lsp param[$1] lat temp[$4] send $6 bnot code_277c: pToa pClutStart bnt code_278a pushi $3ae ; 942, setColor push1 pTos pColor self $6 bnot code_278a: push2 push2 lsp param[$1] callk kernel_156, $4 bnot sat temp[$13] push ldi $10 ; 16, cel and bnt code_27a6 ldi $0 aTop pDoScaler lst temp[$13] ldi $ef ; 239, dragDoit and sat temp[$13] code_27a6: lat temp[$13] bnt code_2831 pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$c] lst temp[$13] dup ldi $1 eq? bnt code_27d6 pushi $b5 ; 181, set push2 push2 pushi $4 ; scaleX lsp param[$1] callk kernel_156, $4 bnot push push0 lat temp[$c] send $8 bnot jmp code_27e9 code_27d6: dup ldi $2 eq? bnt code_27e9 pushi $3 ; z pushi $6 ; maxScale lsp param[$1] lst temp[$c] callk kernel_156, $6 bnot code_27e9: toss pushi $2c6 ; 710, findRoom push2 lst temp[$c] push0 lag global[$30] send $8 bnot sat temp[$8] push2 pushi $4 ; scaleX lsp param[$1] callk kernel_156, $4 bnot aTop x push2 pushi $4 ; scaleX lsp param[$1] callk kernel_156, $4 bnot aTop y push2 push2 lsp param[$1] callk kernel_156, $4 bnot aTop loop pTos loop push1 pushSelf callk kernel_21, $2 bnot ge? bnt code_2828 ldi $0 aTop loop code_2828: pushi $95 ; 149, dispose push0 lat temp[$c] send $4 bnot code_2831: pushi $35c ; 860, getBase push1 class BCarryable push self $6 bnot sat temp[$4] bnt code_2856 pushi $36c ; 876, fromPacket push1 lsp param[$1] send $6 bnot lat temp[$0] bnt code_2856 pushi $38e ; 910, take push1 pushSelf send $6 bnot code_2856: pushi $35c ; 860, getBase push1 class BWeapon push self $6 bnot sat temp[$4] bnt code_288c push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_28da lat temp[$0] bnt code_28da pushi $424 ; 1060, pWearer push1 lst temp[$0] lat temp[$4] send $6 bnot pushi $393 ; 915, bePutOn push1 lst temp[$0] self $6 bnot jmp code_28da code_288c: pushi $35c ; 860, getBase push1 class BHead push self $6 bnot sat temp[$4] bnt code_28a7 pushi $36c ; 876, fromPacket push1 lsp param[$1] send $6 bnot jmp code_28da code_28a7: pushi $35c ; 860, getBase push1 class BWearable push self $6 bnot sat temp[$4] bnt code_28da push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_28da lat temp[$0] bnt code_28da pushi $424 ; 1060, pWearer push1 lst temp[$0] lat temp[$4] send $6 bnot pushi $393 ; 915, bePutOn push1 lst temp[$0] self $6 bnot code_28da: pushi $35c ; 860, getBase push1 class BDescribed push self $6 bnot sat temp[$4] bnt code_290e push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_2901 pushi $645 ; 1605, pIsBook push1 push1 lat temp[$4] send $6 bnot jmp code_2916 code_2901: pushi $645 ; 1605, pIsBook push1 push0 lat temp[$4] send $6 bnot jmp code_2916 code_290e: push2 push2 lsp param[$1] callk kernel_156, $4 bnot code_2916: pushi $35c ; 860, getBase push1 class BContainer push self $6 bnot sat temp[$4] bnt code_292e pushi $36c ; 876, fromPacket push1 lsp param[$1] send $6 bnot code_292e: pushi $35c ; 860, getBase push1 class BOpenable push self $6 bnot sat temp[$4] bnt code_296c push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_296c pushi $425 ; 1061, pOpen push1 push1 lat temp[$4] send $6 bnot pushi $373 ; 883, setAction push1 pushi $1e ; 30, brRight self $6 bnot pushi $10 ; 16, cel push1 push1 pushSelf callk kernel_22, $2 bnot push ldi $1 sub push self $6 bnot code_296c: pushi $35c ; 860, getBase push1 class BSwitch push self $6 bnot sat temp[$4] bnt code_2997 push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_2997 pushi $425 ; 1061, pOpen push1 push1 lat temp[$4] send $6 bnot pushi $10 ; 16, cel push1 push1 self $6 bnot code_2997: push2 push2 lsp param[$1] callk kernel_156, $4 bnot sat temp[$11] bnt code_29f2 pushi $35c ; 860, getBase push1 class BLockable push self $6 bnot sat temp[$4] not bnt code_29c0 pushi $387 ; 903, addBase push1 class BLockable push self $6 bnot sat temp[$4] code_29c0: pushi $426 ; 1062, pLocked push1 lst temp[$11] ldi $2 and bnt code_29d1 ldi $1 jmp code_29d3 code_29d1: ldi $0 code_29d3: push lat temp[$4] send $6 bnot pushi $427 ; 1063, pAutoLock push1 lst temp[$11] ldi $4 ; scaleX and bnt code_29ea ldi $1 jmp code_29ec code_29ea: ldi $0 code_29ec: push lat temp[$4] send $6 bnot code_29f2: push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_2a50 pushi $373 ; 883, setAction push1 pushi $3 ; z self $6 bnot pushi $10 ; 16, cel push1 push1 pushSelf callk kernel_22, $2 bnot push ldi $1 sub push self $6 bnot pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$c] pushi $3 ; z pushi $6 ; maxScale lsp param[$1] push callk kernel_156, $6 bnot pushi $384 ; 900, pSittingOn push1 pushi $2c8 ; 712, lookup push1 lst temp[$c] lag global[$6a] send $6 bnot push pushi $9a ; 154, yourself push0 self $4 bnot send $6 bnot pushi $95 ; 149, dispose push0 lat temp[$c] send $4 bnot code_2a50: push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_2a73 pushi $35c ; 860, getBase push1 class BTalk push self $6 bnot not bnt code_2a73 pushi $387 ; 903, addBase push1 class BTalk push self $6 bnot code_2a73: push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_2a86 pushi $3fb ; 1019, pHidden push1 push1 self $6 bnot code_2a86: push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_2b67 pToa pCombatGroup not bnt code_2aa7 pushi $8d ; 141, new push2 pushi $ff ; 255, asInteger dup class LongInt send $8 bnot aTop pCombatGroup code_2aa7: pushi $3 ; z pushi $6 ; maxScale lsp param[$1] pTos pCombatGroup callk kernel_156, $6 bnot pushi $97 ; 151, isKindOf push1 class CombatRoom push lag global[$3] send $6 bnot not bt code_2ad8 pushi $128 ; 296, equalLong push1 pTos pCombatGroup pushi $2ca ; 714, pServID push0 lag global[$3] send $4 bnot send $6 bnot not code_2ad8: not bnt code_2ae0 lag global[$3] sat temp[$8] code_2ae0: lag global[$1] bnt code_2b5f pushi $c5 ; 197, pRoom push0 send $4 bnot bnt code_2b5f pushi $2fb ; 763, pCombatGroup push0 lag global[$1] send $4 bnot bnt code_2b5f pushi $128 ; 296, equalLong push1 pushi $2fb ; 763, pCombatGroup push0 lag global[$1] send $4 bnot push pToa pCombatGroup send $6 bnot bnt code_2b5f pushi $99 ; 153, respondsTo push1 pushi $319 ; 793, pHead self $6 bnot bnt code_2b54 push2 push2 lsp param[$1] callk kernel_156, $4 bnot bnt code_2b3f pushi $31b ; 795, addCombatant push2 pushSelf push0 pushi $c5 ; 197, pRoom push0 lag global[$1] send $4 bnot send $8 bnot jmp code_2b67 code_2b3f: pushi $31b ; 795, addCombatant push2 pushSelf push1 pushi $c5 ; 197, pRoom push0 lag global[$1] send $4 bnot send $8 bnot jmp code_2b67 code_2b54: push2 push2 lsp param[$1] callk kernel_156, $4 bnot jmp code_2b67 code_2b5f: push2 push2 lsp param[$1] callk kernel_156, $4 bnot code_2b67: pushi $35c ; 860, getBase push1 class BCharacter push self $6 bnot sat temp[$1] bnt code_2bc0 push2 push1 push2 pushi $9 ; inLeft pushi $35d ; 861, pProperName push0 send $4 bnot push callk kernel_91, $4 bnot push callk kernel_92, $4 bnot bnt code_2bad pushi $3db ; 987, setName push1 pushi $d0 ; 208, with push1 pushi $35d ; 861, pProperName push0 lat temp[$1] send $4 bnot push class Str send $6 bnot push self $6 bnot jmp code_2bc0 code_2bad: pushi $3db ; 987, setName push1 pushi $d0 ; 208, with push1 pTos pName class Str send $6 bnot push self $6 bnot code_2bc0: pToa pMoney bnt code_2bed pTos pBaseView ldi $c5a8 ; -14936 eq? bnt code_2bdb pushi $3d8 ; 984, setManaValue push1 lst temp[$b] self $6 bnot jmp code_2be4 code_2bdb: pushi $3d5 ; 981, setValue push1 lst temp[$b] self $6 bnot code_2be4: pushi $95 ; 149, dispose push0 lat temp[$b] send $4 bnot code_2bed: lat temp[$8] bnt code_2bfa pushi $3c5 ; 965, addToRoom push1 push self $6 bnot code_2bfa: pushi $3e0 ; 992, setVisible push0 self $4 bnot pushi $3c2 ; 962, generatePolygon push0 pushi $3c3 ; 963, submitPolygon push0 pushi $36a ; 874, updateDisplay push1 push1 self $e bnot pTos pServIDLo pToa pServIDHi eq? bnt code_2c1d pprev ldi $ff ; 255, asInteger eq? code_2c1d: bt code_2c30 lat temp[$0] not bnt code_2c36 lsp param[$0] ldi $1 gt? bnt code_2c36 lap param[$2] code_2c30: bnt code_2c36 ldi $0 ret code_2c36: ldi $1 ret WorldObject::fromExtendedPacket: link $5 pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot sat temp[$4] push ldi $2 and bnt code_2ccb pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot aTop pStrength pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot aTop pDexterity pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot aTop pIntelligence pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot aTop pEndurance pushi $3d5 ; 981, setValue push1 pushi $136 ; 310, getLong push0 lap param[$1] send $4 bnot sat temp[$0] push self $6 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot pushi $3d8 ; 984, setManaValue push1 pushi $136 ; 310, getLong push0 lap param[$1] send $4 bnot sat temp[$0] push self $6 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot pushi $135 ; 309, getWord push0 lap param[$1] send $4 bnot aTop pLevel pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot aTop pAlignment jmp code_2cfb code_2ccb: pushi $8d ; 141, new push2 push0 push0 class LongInt send $8 bnot sat temp[$0] ldi $0 aTop pStrength aTop pDexterity aTop pIntelligence aTop pEndurance pushi $3d5 ; 981, setValue push1 lst temp[$0] self $6 bnot pushi $3d8 ; 984, setManaValue push1 lst temp[$0] self $6 bnot ldi $0 aTop pLevel aTop pAlignment code_2cfb: pushi $135 ; 309, getWord push0 lap param[$1] send $4 bnot aTop pHealth pushi $135 ; 309, getWord push0 lap param[$1] send $4 bnot aTop pHealthHi pushi $135 ; 309, getWord push0 lap param[$1] send $4 bnot aTop pHealthMax pushi $135 ; 309, getWord push0 lap param[$1] send $4 bnot aTop pHealthMaxHi pushi $35c ; 860, getBase push1 class BCharacter push self $6 bnot sat temp[$1] bnt code_2f9a pushi $139 ; 313, getString push0 lap param[$1] send $4 bnot sat temp[$3] pushi $42a ; 1066, setTitle push1 push lat temp[$1] send $6 bnot pushi $95 ; 149, dispose push0 lat temp[$3] send $4 bnot lst temp[$4] ldi $2 and bnt code_2e8d pushi $42b ; 1067, pExperience push0 lat temp[$1] send $4 bnot bnt code_2d7e pushi $136 ; 310, getLong push1 pushi $42b ; 1067, pExperience push0 lat temp[$1] send $4 bnot push lap param[$1] send $6 bnot jmp code_2d91 code_2d7e: pushi $42b ; 1067, pExperience push1 pushi $136 ; 310, getLong push0 lap param[$1] send $4 bnot push lat temp[$1] send $6 bnot code_2d91: pushi $42c ; 1068, pStealingCount push1 pushi $136 ; 310, getLong push0 lap param[$1] send $4 bnot push lat temp[$1] send $6 bnot pushi $42d ; 1069, pStealingUnserved push1 pushi $136 ; 310, getLong push0 lap param[$1] send $4 bnot push lat temp[$1] send $6 bnot pushi $42e ; 1070, pKillingCount push1 pushi $136 ; 310, getLong push0 lap param[$1] send $4 bnot push lat temp[$1] send $6 bnot pushi $42f ; 1071, pKillingUnserved push1 pushi $136 ; 310, getLong push0 lap param[$1] send $4 bnot push lat temp[$1] send $6 bnot ldi $0 sat temp[$2] code_2de1: lst temp[$2] ldi $1f ; 31, brBottom lt? bnt code_2e08 pushi $4b ; 75, 'K', at push2 lst temp[$2] pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot push pushi $430 ; 1072, pSkillArray push0 lat temp[$1] send $4 bnot send $8 bnot +at temp[$2] jmp code_2de1 code_2e08: ldi $0 sat temp[$2] code_2e0c: lst temp[$2] ldi $94 ; 148, init lt? bnt code_2e34 pushi $4b ; 75, 'K', at push2 lst temp[$2] pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot push pushi $431 ; 1073, pSpellArray push0 lat temp[$1] send $4 bnot send $8 bnot +at temp[$2] jmp code_2e0c code_2e34: ldi $0 sat temp[$2] code_2e38: lst temp[$2] ldi $64 ; 100, 'd', moveDone lt? bnt code_2e77 pushi $322 ; 802, pStatusArray push0 class CharInfo send $4 bnot bnt code_2e6a pushi $4b ; 75, 'K', at push2 lst temp[$2] pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot push pushi $322 ; 802, pStatusArray push0 class CharInfo send $4 bnot send $8 bnot jmp code_2e73 code_2e6a: pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot code_2e73: +at temp[$2] jmp code_2e38 code_2e77: pushi $432 ; 1074, pBuildPoints push1 pushi $135 ; 309, getWord push0 lap param[$1] send $4 bnot push lat temp[$1] send $6 bnot jmp code_2f78 code_2e8d: pushi $42b ; 1067, pExperience push1 pushi $8d ; 141, new push2 push0 push0 class LongInt send $8 bnot push lat temp[$1] send $6 bnot pushi $42c ; 1068, pStealingCount push1 pushi $8d ; 141, new push2 push0 push0 class LongInt send $8 bnot push lat temp[$1] send $6 bnot pushi $42d ; 1069, pStealingUnserved push1 pushi $8d ; 141, new push2 push0 push0 class LongInt send $8 bnot push lat temp[$1] send $6 bnot pushi $42e ; 1070, pKillingCount push1 pushi $8d ; 141, new push2 push0 push0 class LongInt send $8 bnot push lat temp[$1] send $6 bnot pushi $42f ; 1071, pKillingUnserved push1 pushi $8d ; 141, new push2 push0 push0 class LongInt send $8 bnot push lat temp[$1] send $6 bnot ldi $0 sat temp[$2] code_2efa: lst temp[$2] ldi $1f ; 31, brBottom lt? bnt code_2f18 pushi $4b ; 75, 'K', at push2 lst temp[$2] push0 pushi $430 ; 1072, pSkillArray push0 lat temp[$1] send $4 bnot send $8 bnot +at temp[$2] jmp code_2efa code_2f18: ldi $0 sat temp[$2] code_2f1c: lst temp[$2] ldi $94 ; 148, init lt? bnt code_2f3b pushi $4b ; 75, 'K', at push2 lst temp[$2] push0 pushi $431 ; 1073, pSpellArray push0 lat temp[$1] send $4 bnot send $8 bnot +at temp[$2] jmp code_2f1c code_2f3b: ldi $0 sat temp[$2] code_2f3f: lst temp[$2] ldi $64 ; 100, 'd', moveDone lt? bnt code_2f6e pushi $322 ; 802, pStatusArray push0 class CharInfo send $4 bnot bnt code_2f68 pushi $4b ; 75, 'K', at push2 lst temp[$2] push0 pushi $322 ; 802, pStatusArray push0 class CharInfo send $4 bnot send $8 bnot jmp code_2f6a code_2f68: ldi $0 code_2f6a: +at temp[$2] jmp code_2f3f code_2f6e: pushi $432 ; 1074, pBuildPoints push1 push0 lat temp[$1] send $6 bnot code_2f78: pushi $135 ; 309, getWord push0 lap param[$1] send $4 bnot aTop pArmorClass selfID sat temp[$1] pushi $433 ; 1075, pPeaceful push1 pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot push lat temp[$1] send $6 bnot code_2f9a: ret WorldObject::buildExtendedPacket: link $1 pushi $13a ; 314, putByte push1 pTos pStrength lap param[$1] send $6 bnot pushi $13a ; 314, putByte push1 pTos pDexterity lap param[$1] send $6 bnot pushi $13a ; 314, putByte push1 pTos pIntelligence lap param[$1] send $6 bnot pushi $13a ; 314, putByte push1 pTos pEndurance lap param[$1] send $6 bnot pushi $13a ; 314, putByte push1 pTos pAlignment lap param[$1] send $6 bnot pushi $13a ; 314, putByte push1 pTos xScaleAdj lap param[$1] send $6 bnot pushi $13a ; 314, putByte push1 pTos yScaleAdj lap param[$1] send $6 bnot ret WorldObject::getServIDs: push1 lofsa string_03d2 ; "getServIDs called" push calle export60029_0, $2 bnot ret WorldObject::nextFeature: pushi $63 ; 99, 'c', perform push1 pushi $3a2 ; 930, nextFeature &rest $1 self $6 bnot ret WorldObject::prevFeature: pushi $63 ; 99, 'c', perform push1 pushi $3a3 ; 931, prevFeature &rest $1 self $6 bnot ret WorldObject::setView: lap param[$1] aTop pBaseView pTos pBaseView pToa pAction add aTop view ret WorldObject::changed: link $1 pToa pMovieCmd bnt code_3042 pushi $434 ; 1076, pDone push0 send $4 bnot bnt code_303a pushi $95 ; 149, dispose push0 pToa pMovieCmd send $4 bnot jmp code_3042 code_303a: pushi $45 ; 69, 'E', doit push0 pToa pMovieCmd send $4 bnot code_3042: pToa pBaseList bnt code_3078 pushi $4 ; scaleX pushi $14 ; 20, nsRight push pushi $97 ; 151, isKindOf class BContainer push callk kernel_90, $8 bnot sat temp[$0] bnt code_3078 pushi $420 ; 1056, pContents push0 send $4 bnot bnt code_3078 pushi $9d ; 157, eachElementDo push1 pushi $3cb ; 971, changed pushi $420 ; 1056, pContents push0 lat temp[$0] send $4 bnot send $6 bnot code_3078: ret WorldObject::sendMovie: link $3 pToa pSendMovie bt code_308a lsp param[$0] ldi $0 gt? bnt code_3131 lap param[$1] code_308a: bnt code_3131 pToa mover bnt code_309d pushi $3ce ; 974, recordMotion push2 pTos x pTos y self $8 bnot code_309d: pToa pOutgoingMovie bnt code_3131 pushi $5a ; 90, 'Z', size push0 send $4 bnot bnt code_3131 pushi $2f8 ; 760, buildPacket push0 pToa pOutgoingMovie send $4 bnot sat temp[$1] pToa pRoom bnt code_30f4 pushi $97 ; 151, isKindOf push1 class CombatRoom push pToa pRoom send $6 bnot bnt code_30e6 pushi $2f5 ; 757, pNumber push0 pushi $4b ; 75, 'K', at push1 push0 pushi $2c1 ; 705, pRoomList push0 lag global[$30] send $4 bnot send $6 bnot send $4 bnot sat temp[$2] jmp code_30f8 code_30e6: pushi $2f5 ; 757, pNumber push0 pToa pRoom send $4 bnot sat temp[$2] jmp code_30f8 code_30f4: ldi $0 sat temp[$2] code_30f8: pushi $7 ; priority pushi $e ; 14, view lofsa string_03e4 ; "tpla" push pushi $29 ; 41, ')', state pushSelf lst temp[$2] pushi $5a ; 90, 'Z', size push0 lat temp[$1] send $4 bnot push pushi $71 ; 113, 'q', data push0 lat temp[$1] send $4 bnot push callk kernel_128, $e bnot ldi $0 aTop pSendMovie pushi $95 ; 149, dispose push0 lat temp[$1] send $4 bnot pushi $435 ; 1077, toss push0 pToa pOutgoingMovie send $4 bnot code_3131: ret WorldObject::moveDone: pToa pPlayMovie not bnt code_3143 pushi $3ce ; 974, recordMotion push2 pTos x pTos y self $8 bnot code_3143: ret WorldObject::recordPosn: pToa pOutgoingMovie bnt code_317d pToa pPlayMovie not bnt code_317d pushi $9f ; 159, add push1 pushi $94 ; 148, init pushi $3 ; z pTos x pTos y pTos loop pushi $9a ; 154, yourself push0 pushi $8d ; 141, new push1 push1 push2 pushi $9ca5 ; -25435 push0 callk kernel_2, $4 bnot send $6 bnot send $e bnot push pToa pOutgoingMovie send $6 bnot code_317d: ret WorldObject::recordMotion: pToa pOutgoingMovie bnt code_31b9 pToa pPlayMovie not bnt code_31b9 pToa pRecordMotion bnt code_31b9 pushi $9f ; 159, add push1 pushi $94 ; 148, init push2 lsp param[$1] lsp param[$2] pushi $9a ; 154, yourself push0 pushi $8d ; 141, new push1 push1 push2 pushi $9ca5 ; -25435 push1 callk kernel_2, $4 bnot send $6 bnot send $c bnot push pToa pOutgoingMovie send $6 bnot code_31b9: ret WorldObject::recordHide: pToa pOutgoingMovie bnt code_31ec pToa pPlayMovie not bnt code_31ec pushi $9f ; 159, add push1 pushi $94 ; 148, init push0 pushi $9a ; 154, yourself push0 pushi $8d ; 141, new push1 push1 push2 pushi $9ca5 ; -25435 pushi $3 ; z callk kernel_2, $4 bnot send $6 bnot send $8 bnot push pToa pOutgoingMovie send $6 bnot code_31ec: ret WorldObject::recordShow: pToa pOutgoingMovie bnt code_321e pToa pPlayMovie not bnt code_321e pushi $9f ; 159, add push1 pushi $94 ; 148, init push0 pushi $9a ; 154, yourself push0 pushi $8d ; 141, new push1 push1 push2 pushi $9ca5 ; -25435 push2 callk kernel_2, $4 bnot send $6 bnot send $8 bnot push pToa pOutgoingMovie send $6 bnot code_321e: ret WorldObject::recordHeading: pToa pOutgoingMovie bnt code_3259 pToa pPlayMovie not bnt code_3259 pToa pRecordMotion bnt code_3259 pushi $9f ; 159, add push1 pushi $94 ; 148, init push1 lsp param[$1] pushi $9a ; 154, yourself push0 pushi $8d ; 141, new push1 push1 push2 pushi $9ca5 ; -25435 pushi $4 ; scaleX callk kernel_2, $4 bnot send $6 bnot send $a bnot push pToa pOutgoingMovie send $6 bnot code_3259: ret WorldObject::setHeading: link $1 pToa loop sat temp[$0] push2 pushSelf lsp param[$1] callk kernel_95, $4 bnot lst temp[$0] pToa loop ne? bnt code_3292 pToa pPlayMovie not bnt code_327f pushi $3d1 ; 977, recordHeading push1 lsp param[$1] self $6 bnot code_327f: lat temp[$0] aTop loop pushi $15a ; 346, setHeading push1 lsp param[$1] &rest $2 super Act, $6 bnot jmp code_32a5 code_3292: lsp param[$0] ldi $1 gt? bnt code_32a5 pushi $c7 ; 199, cue push0 ldi $1 lapi param[$1] send $4 bnot code_32a5: ret WorldObject::getAffectedState: pToa pAffectedHi bnt code_32b4 pushi $4b ; 75, 'K', at push1 lsp param[$1] send $6 bnot ret code_32b4: ldi $0 ret WorldObject::setAffectedState: link $3 pToa pAffectedHi not bnt code_32cc pushi $8d ; 141, new push1 pushi $64 ; 100, 'd', moveDone class ByteArray send $6 bnot aTop pAffectedHi code_32cc: pushi $4b ; 75, 'K', at push2 lsp param[$1] push1 pToa pAffectedHi send $8 bnot lsp param[$1] ldi $12 ; 18, nsLeft eq? bt code_32e4 lsp param[$1] ldi $15 ; 21, nsBottom eq? code_32e4: bnt code_332d pushi $97 ; 151, isKindOf push1 class WorldEgo push self $6 bnot bt code_3302 lag global[$1] bnt code_3345 pushi $35f ; 863, getAffectedState push1 pushi $11 ; 17, bitmap send $6 bnot code_3302: bnt code_3345 pushi $94 ; 148, init push0 pushi $8d ; 141, new push0 class InvisibleClut send $4 bnot sat temp[$0] send $4 bnot lat temp[$0] aTop pInvisibleClut push0 call code_0869, $0 bnot pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot jmp code_3345 code_332d: lsp param[$1] ldi $58 ; 88, 'X', delete ge? bnt code_3345 lsp param[$1] ldi $62 ; 98, 'b', vol le? bnt code_3345 pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot code_3345: pushi $35c ; 860, getBase push1 class BCarryable push self $6 bnot sat temp[$1] bnt code_335b pushi $436 ; 1078, updateContainerButton push0 send $4 bnot code_335b: pushi $3e0 ; 992, setVisible push0 self $4 bnot ret WorldObject::clearAffectedState: link $2 pToa pAffectedHi not bnt code_336c ret code_336c: pushi $4b ; 75, 'K', at push2 lsp param[$1] push0 pToa pAffectedHi send $8 bnot lsp param[$1] ldi $12 ; 18, nsLeft eq? bt code_3384 lsp param[$1] ldi $15 ; 21, nsBottom eq? code_3384: bnt code_33aa pToa pInvisibleClut bnt code_33dd pushi $95 ; 149, dispose push0 send $4 bnot ldi $0 aTop pInvisibleClut push0 call code_08b7, $0 bnot pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot jmp code_33dd code_33aa: lsp param[$1] ldi $58 ; 88, 'X', delete ge? bnt code_33c5 lsp param[$1] ldi $62 ; 98, 'b', vol le? bnt code_33c5 pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot jmp code_33dd code_33c5: lsp param[$1] ldi $58 ; 88, 'X', delete ge? bnt code_33dd lsp param[$1] ldi $62 ; 98, 'b', vol le? bnt code_33dd pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot code_33dd: pushi $35c ; 860, getBase push1 class BCarryable push self $6 bnot sat temp[$0] bnt code_33f3 pushi $436 ; 1078, updateContainerButton push0 send $4 bnot code_33f3: pushi $3e0 ; 992, setVisible push0 self $4 bnot ret WorldObject::setValue: link $4 pToa pValue not bnt code_340e pushi $8d ; 141, new push0 class LongInt send $4 bnot aTop pValue code_340e: pushi $b5 ; 181, set push2 pushi $10d ; 269, lowWord push0 lap param[$1] send $4 bnot push pushi $10e ; 270, hiWord push0 lap param[$1] send $4 bnot push pToa pValue send $8 bnot pushi $129 ; 297, less push1 push0 pToa pValue send $6 bnot bnt code_3443 pushi $b5 ; 181, set push2 push0 push0 pToa pValue send $8 bnot code_3443: pToa pMoney bnt code_354f pushi $131 ; 305, asStr push0 pToa pValue send $4 bnot sat temp[$2] pushi $3db ; 987, setName push1 pushi $f5 ; 245, format pushi $3 ; z lofsa string_03e9 ; "%s gold coin%s" push lst temp[$2] pushi $127 ; 295, equal push1 push1 pToa pValue send $6 bnot bnt code_3477 lofsa string_03f8 ; "" jmp code_347a code_3477: lofsa string_03f9 ; "s" code_347a: push class Str send $a bnot push self $6 bnot pushi $95 ; 149, dispose push0 lat temp[$2] send $4 bnot pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$0] pushi $110 ; 272, addLong push1 pTos pValue send $6 bnot pushi $127 ; 295, equal push2 push0 push0 lat temp[$0] send $8 bnot not bnt code_3524 pushi $113 ; 275, mul push1 pushi $a ; 10, inTop lat temp[$0] send $6 bnot pushi $115 ; 277, div push1 pushi $32 ; 50, '2', edit lat temp[$0] send $6 bnot pushi $129 ; 297, less push1 push0 lat temp[$0] send $6 bnot bnt code_34de pushi $b5 ; 181, set push1 pushi $64 ; 100, 'd', moveDone lat temp[$0] send $6 bnot code_34de: pushi $12d ; 301, greater push1 pushi $64 ; 100, 'd', moveDone lat temp[$0] send $6 bnot bnt code_34f7 pushi $b5 ; 181, set push1 pushi $64 ; 100, 'd', moveDone lat temp[$0] send $6 bnot code_34f7: pushi $113 ; 275, mul push1 push1 pushSelf callk kernel_22, $2 bnot push lat temp[$0] send $6 bnot pushi $115 ; 277, div push1 pushi $64 ; 100, 'd', moveDone lat temp[$0] send $6 bnot pushi $10d ; 269, lowWord push0 lat temp[$0] send $4 bnot push ldi $1 add aTop cel jmp code_3528 code_3524: ldi $0 aTop cel code_3528: pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot pushi $35c ; 860, getBase push1 class BCarryable push self $6 bnot sat temp[$1] bnt code_354f pushi $436 ; 1078, updateContainerButton push0 send $4 bnot code_354f: pushSelf lag global[$1] eq? bnt code_3593 push1 pushi $437 ; 1079, pMoneyObj push0 lag global[$1] send $4 bnot push calle export60000_0, $2 bnot bnt code_3593 pushi $97 ; 151, isKindOf push1 class Money push pushi $437 ; 1079, pMoneyObj push0 lag global[$1] send $4 bnot send $6 bnot bnt code_3593 pushi $3d5 ; 981, setValue push1 pTos pValue pushi $437 ; 1079, pMoneyObj push0 lag global[$1] send $4 bnot send $6 bnot code_3593: ret WorldObject::setManaValue: link $4 pToa pManaValue not bnt code_35a7 pushi $8d ; 141, new push0 class LongInt send $4 bnot aTop pManaValue code_35a7: pushi $b5 ; 181, set push2 pushi $10d ; 269, lowWord push0 lap param[$1] send $4 bnot push pushi $10e ; 270, hiWord push0 lap param[$1] send $4 bnot push pToa pManaValue send $8 bnot pushi $129 ; 297, less push1 push0 pToa pManaValue send $6 bnot bnt code_35dc pushi $b5 ; 181, set push2 push0 push0 pToa pManaValue send $8 bnot code_35dc: pToa pMoney bnt code_36e8 pushi $131 ; 305, asStr push0 pToa pManaValue send $4 bnot sat temp[$2] pushi $3db ; 987, setName push1 pushi $f5 ; 245, format pushi $3 ; z lofsa string_03fb ; "%s mana crystal%s" push lst temp[$2] pushi $127 ; 295, equal push1 push1 pToa pManaValue send $6 bnot bnt code_3610 lofsa string_03f8 ; "" jmp code_3613 code_3610: lofsa string_03f9 ; "s" code_3613: push class Str send $a bnot push self $6 bnot pushi $95 ; 149, dispose push0 lat temp[$2] send $4 bnot pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$0] pushi $110 ; 272, addLong push1 pTos pManaValue send $6 bnot pushi $127 ; 295, equal push2 push0 push0 lat temp[$0] send $8 bnot not bnt code_36bd pushi $113 ; 275, mul push1 pushi $a ; 10, inTop lat temp[$0] send $6 bnot pushi $115 ; 277, div push1 pushi $32 ; 50, '2', edit lat temp[$0] send $6 bnot pushi $129 ; 297, less push1 push0 lat temp[$0] send $6 bnot bnt code_3677 pushi $b5 ; 181, set push1 pushi $64 ; 100, 'd', moveDone lat temp[$0] send $6 bnot code_3677: pushi $12d ; 301, greater push1 pushi $64 ; 100, 'd', moveDone lat temp[$0] send $6 bnot bnt code_3690 pushi $b5 ; 181, set push1 pushi $64 ; 100, 'd', moveDone lat temp[$0] send $6 bnot code_3690: pushi $113 ; 275, mul push1 push1 pushSelf callk kernel_22, $2 bnot push lat temp[$0] send $6 bnot pushi $115 ; 277, div push1 pushi $64 ; 100, 'd', moveDone lat temp[$0] send $6 bnot pushi $10d ; 269, lowWord push0 lat temp[$0] send $4 bnot push ldi $1 add aTop cel jmp code_36c1 code_36bd: ldi $0 aTop cel code_36c1: pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot pushi $36a ; 874, updateDisplay push1 push1 self $6 bnot pushi $35c ; 860, getBase push1 class BCarryable push self $6 bnot sat temp[$1] bnt code_36e8 pushi $436 ; 1078, updateContainerButton push0 send $4 bnot code_36e8: pushSelf lag global[$1] eq? bnt code_372c push1 pushi $438 ; 1080, pManaObj push0 lag global[$1] send $4 bnot push calle export60000_0, $2 bnot bnt code_372c pushi $97 ; 151, isKindOf push1 class Mana push pushi $438 ; 1080, pManaObj push0 lag global[$1] send $4 bnot send $6 bnot bnt code_372c pushi $3d8 ; 984, setManaValue push1 pTos pValue pushi $438 ; 1080, pManaObj push0 lag global[$1] send $4 bnot send $6 bnot code_372c: ret WorldObject::addValue: link $1 pToa pValue bnt code_3765 pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$0] pushi $110 ; 272, addLong push1 pTos pValue send $6 bnot pushi $110 ; 272, addLong push1 lsp param[$1] lat temp[$0] send $6 bnot pushi $3d5 ; 981, setValue push1 lst temp[$0] self $6 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot code_3765: ret WorldObject::subValue: link $1 pToa pValue bnt code_379e pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$0] pushi $110 ; 272, addLong push1 pTos pValue send $6 bnot pushi $112 ; 274, subLong push1 lsp param[$1] lat temp[$0] send $6 bnot pushi $3d5 ; 981, setValue push1 lst temp[$0] self $6 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot code_379e: ret WorldObject::addManaValue: link $1 pToa pManaValue bnt code_37d7 pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$0] pushi $110 ; 272, addLong push1 pTos pManaValue send $6 bnot pushi $110 ; 272, addLong push1 lsp param[$1] lat temp[$0] send $6 bnot pushi $3d8 ; 984, setManaValue push1 lst temp[$0] self $6 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot code_37d7: ret WorldObject::subManaValue: link $1 pToa pManaValue bnt code_3810 pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$0] pushi $110 ; 272, addLong push1 pTos pManaValue send $6 bnot pushi $112 ; 274, subLong push1 lsp param[$1] lat temp[$0] send $6 bnot pushi $3d8 ; 984, setManaValue push1 lst temp[$0] self $6 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot code_3810: ret WorldObject::setName: link $1 push1 pTos pName calle export60000_0, $2 bnot bnt code_382d pushi $95 ; 149, dispose push0 pToa pName send $4 bnot ldi $0 aTop pName code_382d: lap param[$1] bnt code_3852 push1 push calle export60000_0, $2 bnot bnt code_3845 lap param[$1] aTop pName jmp code_3852 code_3845: pushi $d0 ; 208, with push1 lsp param[$1] class Str send $6 bnot aTop pName code_3852: pushi $35c ; 860, getBase push1 class BCarryable push self $6 bnot sat temp[$0] bnt code_3868 pushi $436 ; 1078, updateContainerButton push0 send $4 bnot code_3868: pToa pName ret WorldObject::setServID: lap param[$1] aTop pServIDLo lap param[$2] aTop pServIDHi ret WorldObject::servIDEquals: lsp param[$0] ldi $1 eq? bnt code_388d pushi $127 ; 295, equal push2 pTos pServIDLo pTos pServIDHi lap param[$1] send $8 bnot ret jmp code_389d code_388d: pTos pServIDLo lap param[$1] eq? bnt code_389c pTos pServIDHi ldi $1 lapi param[$1] eq? code_389c: ret code_389d: ret WorldObject::matchServID: pushi $127 ; 295, equal push2 pTos pServIDLo pTos pServIDHi lap param[$1] send $8 bnot ret WorldObject::setCombatGroup: pToa pCombatGroup not bnt code_38c2 pushi $8d ; 141, new push2 pushi $ff ; 255, asInteger dup class LongInt send $8 bnot aTop pCombatGroup code_38c2: pushi $10f ; 271, setLong push1 lsp param[$1] pToa pCombatGroup send $6 bnot ret WorldObject::deleteFromServer: link $1 lag global[$6a] bnt code_38ef pTos pServIDLo pToa pServIDHi eq? bnt code_38e2 pprev ldi $ff ; 255, asInteger eq? code_38e2: not bnt code_38ef pushi $58 ; 88, 'X', delete push1 pushSelf lag global[$6a] send $6 bnot code_38ef: pushi $35c ; 860, getBase push1 class BContainer push self $6 bnot sat temp[$0] bnt code_391b pushi $420 ; 1056, pContents push0 send $4 bnot bnt code_391b pushi $9d ; 157, eachElementDo push1 pushi $3dc ; 988, deleteFromServer pushi $420 ; 1056, pContents push0 lat temp[$0] send $4 bnot send $6 bnot code_391b: pushi $3df ; 991, setServID push2 pushi $ff ; 255, asInteger dup self $8 bnot ret WorldObject::addToServer: link $2 lag global[$6a] bnt code_3947 pTos pServIDLo pToa pServIDHi eq? bnt code_3939 pprev ldi $ff ; 255, asInteger eq? code_3939: not bnt code_3947 pushi $9f ; 159, add push1 pushSelf lag global[$6a] send $6 bnot code_3947: pushi $35c ; 860, getBase push1 class BContainer push self $6 bnot sat temp[$0] bnt code_3973 pushi $420 ; 1056, pContents push0 send $4 bnot bnt code_3973 pushi $9d ; 157, eachElementDo push1 pushi $3dd ; 989, addToServer pushi $420 ; 1056, pContents push0 lat temp[$0] send $4 bnot send $6 bnot code_3973: ret WorldObject::getName: pToa pIDName bnt code_39a4 pushi $35f ; 863, getAffectedState push1 pushi $20 ; 32, ' ', name self $6 bnot bt code_398e pushi $35f ; 863, getAffectedState push1 pushi $57 ; 87, 'W', draw self $6 bnot code_398e: bnt code_39a4 pushi $35f ; 863, getAffectedState push1 pushi $4a ; 74, 'J', setPri self $6 bnot not bnt code_39a4 pToa pIDName ret jmp code_39a7 code_39a4: pToa pName ret code_39a7: ret link $1 lsp param[$1] ldi $30 ; 48, '0', who sub sap param[$1] push ldi $4 ; scaleX div push ldi $3 ; z mul push ldi $b ; 11, inRight add sat temp[$0] ret link $2 push2 pushi $9 ; inLeft lsp param[$1] callk kernel_91, $4 bnot sat temp[$1] pushi $b ; 11, inRight pushi $3 ; z push2 push push0 callk kernel_91, $6 bnot push pushi $61 ; 97, 'a', frame pushi $65 ; 101, 'e', topString pushi $69 ; 105, 'i', hide pushi $6f ; 111, 'o', resY pushi $75 ; 117, 'u', show pushi $41 ; 65, 'A', moveSpeed pushi $45 ; 69, 'E', doit pushi $49 ; 73, 'I', replay pushi $4f ; 79, 'O', pragmaFail pushi $55 ; 85, 'U', button calle export60025_4, $16 bnot bnt code_3a0b pushi $f5 ; 245, format push2 lofsa string_0419 ; "n %s" push lst temp[$1] class Str send $8 bnot sat temp[$0] jmp code_3a1c code_3a0b: pushi $f5 ; 245, format push2 lofsa string_041e ; " %s" push lst temp[$1] class Str send $8 bnot sat temp[$0] code_3a1c: lat temp[$0] ret ApproachScript::init: pToa pClient bnt code_3a2c pushi $40c ; 1036, pApproachScript push1 pushSelf send $6 bnot code_3a2c: pushi $94 ; 148, init push0 &rest $1 super DemonsScript, $4 bnot ret ApproachScript::dispose: pToa pClient bnt code_3a44 pushi $40c ; 1036, pApproachScript push1 push0 send $6 bnot code_3a44: pushi $95 ; 149, dispose push0 &rest $1 super DemonsScript, $4 bnot ret ApproachScript::changeState: lap param[$1] aTop state push dup ldi $0 eq? bnt code_3a88 pushi $381 ; 897, pMode push0 pToa pClient send $4 bnot push ldi $2 and bnt code_3a75 pushi $95 ; 149, dispose push0 self $4 bnot jmp code_3ae2 code_3a75: pushi $39b ; 923, goto pushi $3 ; z pTos pApproachX pTos pApproachY pushSelf pToa pClient send $a bnot jmp code_3ae2 code_3a88: dup ldi $1 eq? bnt code_3ae2 lsg global[$ff] ldi $1f ; 31, brBottom and not bnt code_3adb pToa caller bnt code_3adb pushi $4 ; scaleX push1 push0 pToa pClient send $4 bnot push push2 push0 pToa pClient send $4 bnot push push1 push0 pToa pObject send $4 bnot push push2 push0 pToa pObject send $4 bnot push callk kernel_64, $8 bnot push pToa pDistance gt? bnt code_3adb pushi $9c ; 156, handleError pushi $3 ; z pTos pClient pushi $c350 ; -15536 dup pToa caller send $a bnot code_3adb: pushi $95 ; 149, dispose push0 self $4 bnot code_3ae2: toss ret