BuyBulkCrystals::doit: link $1 lsp param[$1] ldi $1 eq? bnt code_02d1 pushi $132 ; 306, fromStr push1 lofsa BulkCountStr push pushi $8d ; 141, new push0 class LongInt send $4 bnot sat temp[$0] send $6 bnot pushi $129 ; 297, less push1 push1 lat temp[$0] send $6 bnot bnt code_028b pushi $8 ; fixPriority lofsa string_051f ; "You must specify a number that is greater than 0." push pushi $77 ; 119, 'w', textTop lofsa string_0551 ; "Okay" push push1 pushi $74 ; 116, 't', all lofsa string_0556 ; "Error" push pushi $91 ; 145, bitPutIndex push2 calle export60029_0, $10 bnot ldi $ff ; 255, asInteger ret code_028b: pushi $277 ; 631, controlOff push0 lag global[$2] send $4 bnot pushi $498 ; 1176, buyBulk pushi $4 ; scaleX pushi $499 ; 1177, pShopId push0 pushi $36 ; 54, '6', client push0 pToa scratch send $4 bnot send $4 bnot push pushi $350 ; 848, pIndex push0 pushi $1e1 ; 481, curItem push0 pushi $49a ; 1178, pItemSelector push0 pushi $36 ; 54, '6', client push0 pToa scratch send $4 bnot send $4 bnot send $4 bnot send $4 bnot push lst temp[$0] pTos scratch lag global[$6a] send $c bnot code_02d1: ret buyBtn::choose: link $1 pushi $1cb ; 459, choose push0 &rest $1 super gameBarBtn, $4 bnot pushi $71 ; 113, 'q', data push0 lofsa BulkCountStr send $4 bnot not bnt code_02ff pushi $71 ; 113, 'q', data push1 push2 push2 lofsa string_0570 ; "1" push callk kernel_92, $4 bnot push lofsa BulkCountStr send $6 bnot code_02ff: pushi $1e1 ; 481, curItem push0 pushi $49a ; 1178, pItemSelector push0 pToa client send $4 bnot send $4 bnot sat temp[$0] pushi $2bb ; 699, pType push0 send $4 bnot push ldi $5 ; scaleY eq? bnt code_0361 pushi $8c ; 140, scratch push1 pushSelf lofsa BuyBulkCrystals send $6 bnot pushi $11 ; 17, bitmap lofsa string_0572 ; "How many mana crystals do you want to purchase?" push pushi $76 ; 118, 'v', textLeft lofsa BulkCountStr push pushi $8 ; fixPriority pushi $77 ; 119, 'w', textTop lofsa string_056c ; "Buy" push push1 pushi $77 ; 119, 'w', textTop lofsa string_05a2 ; "Cancel" push push0 pushi $74 ; 116, 't', all lofsa string_05a9 ; "Bulk Buy" push pushi $91 ; 145, bitPutIndex push2 pushi $93 ; 147, pLine lofsa BuyBulkCrystals push pushi $45 ; 69, 'E', doit calle export60029_0, $22 bnot jmp code_038a code_0361: pushi $277 ; 631, controlOff push0 lag global[$2] send $4 bnot pushi $49b ; 1179, buyShopItem pushi $3 ; z pushi $499 ; 1177, pShopId push0 pToa client send $4 bnot push pushi $350 ; 848, pIndex push0 lat temp[$0] send $4 bnot push pushSelf lag global[$6a] send $a bnot code_038a: ret buyBtn::cue: link $3 pushi $1e1 ; 481, curItem push0 pushi $49a ; 1178, pItemSelector push0 pToa client send $4 bnot send $4 bnot sat temp[$1] pushi $2bb ; 699, pType push0 send $4 bnot push dup ldi $3 ; z eq? bnt code_03f0 pushi $49c ; 1180, getAssets push0 pToa client send $4 bnot pushi $57 ; 87, 'W', draw push0 pushi $49d ; 1181, pAssets push0 pToa client send $4 bnot send $4 bnot push1 pushi $49d ; 1181, pAssets push0 pToa client send $4 bnot push callk kernel_32, $2 bnot pushi $f5 ; 245, format push2 lofsa string_05b2 ; "You have aquired a %s spell." push pushi $315 ; 789, pName push0 lat temp[$1] send $4 bnot push class Str send $8 bnot sat temp[$0] jmp code_0474 code_03f0: dup ldi $2 eq? bnt code_0438 pushi $49c ; 1180, getAssets push0 pToa client send $4 bnot pushi $57 ; 87, 'W', draw push0 pushi $49d ; 1181, pAssets push0 pToa client send $4 bnot send $4 bnot push1 pushi $49d ; 1181, pAssets push0 pToa client send $4 bnot push callk kernel_32, $2 bnot pushi $f5 ; 245, format push2 lofsa string_05cf ; "You purchased the %s." push pushi $315 ; 789, pName push0 lat temp[$1] send $4 bnot push class Str send $8 bnot sat temp[$0] jmp code_0474 code_0438: dup ldi $5 ; scaleY eq? bnt code_0474 pushi $49c ; 1180, getAssets push0 pToa client send $4 bnot pushi $57 ; 87, 'W', draw push0 pushi $49d ; 1181, pAssets push0 pToa client send $4 bnot send $4 bnot push1 pushi $49d ; 1181, pAssets push0 pToa client send $4 bnot push callk kernel_32, $2 bnot pushi $f5 ; 245, format push1 lofsa string_05e5 ; "You purchased the crystals." push class Str send $6 bnot sat temp[$0] code_0474: toss pushi $8 ; fixPriority lst temp[$0] pushi $65 ; 101, 'e', topString push1 pushi $77 ; 119, 'w', textTop lofsa string_0551 ; "Okay" push push0 pushi $91 ; 145, bitPutIndex push2 calle export60029_0, $10 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot pushi $276 ; 630, handsOn push0 lag global[$2] send $4 bnot ret buyBtn::handleError: link $3 ldi $0 sat temp[$0] lsp param[$1] lag global[$6a] eq? bnt code_0610 lsp param[$3] dup ldi $271e ; 10014 eq? bnt code_056d ldi $0 sat temp[$1] pushi $1e1 ; 481, curItem push0 pushi $49a ; 1178, pItemSelector push0 pToa client send $4 bnot send $4 bnot sat temp[$2] pushi $2bb ; 699, pType push0 send $4 bnot push dup ldi $3 ; z eq? bnt code_04f8 pushi $f5 ; 245, format push2 lofsa string_0601 ; "gold to purchase the %s spell." push pushi $315 ; 789, pName push0 lat temp[$2] send $4 bnot push class Str send $8 bnot sat temp[$1] jmp code_054f code_04f8: dup ldi $4 ; scaleX eq? bnt code_0519 pushi $f5 ; 245, format push2 lofsa string_0620 ; "build points to improve your\n" push pushi $315 ; 789, pName push0 lat temp[$2] send $4 bnot push class Str send $8 bnot sat temp[$1] jmp code_054f code_0519: dup ldi $2 eq? bnt code_053a pushi $f5 ; 245, format push2 lofsa string_0647 ; "gold to purchase the %s." push pushi $315 ; 789, pName push0 lat temp[$2] send $4 bnot push class Str send $8 bnot sat temp[$1] jmp code_054f code_053a: dup ldi $5 ; scaleY eq? bnt code_054f pushi $f5 ; 245, format push1 lofsa string_0660 ; "gold to purchase the crystals." push class Str send $6 bnot sat temp[$1] code_054f: toss pushi $f5 ; 245, format push2 lofsa string_067f ; "I am unable to fulfill your request because\n" push lst temp[$1] class Str send $8 bnot sat temp[$0] pushi $95 ; 149, dispose push0 lat temp[$1] send $4 bnot jmp code_060d code_056d: dup ldi $271d ; 10013 eq? bnt code_059e pushi $f5 ; 245, format push2 lofsa string_06c1 ; "My apologies, I cannot sell you the %s because it would be too heavy for you to carry.\n" push pushi $315 ; 789, pName push0 pushi $1e1 ; 481, curItem push0 pushi $49a ; 1178, pItemSelector push0 pToa client send $4 bnot send $4 bnot send $4 bnot push class Str send $8 bnot sat temp[$0] jmp code_060d code_059e: dup ldi $271c ; 10012 eq? bnt code_05ce pushi $f5 ; 245, format push2 lofsa string_0759 ; "My apologies, I cannot sell you the %s because it would be to bulky for you to carry.\n" push pushi $315 ; 789, pName push0 pushi $1e1 ; 481, curItem push0 pushi $49a ; 1178, pItemSelector push0 pToa client send $4 bnot send $4 bnot send $4 bnot push class Str send $8 bnot sat temp[$0] jmp code_060d code_05ce: dup ldi $271a ; 10010 eq? bnt code_05fe pushi $f5 ; 245, format push2 lofsa string_07f0 ; "My apologies leige, but you have learned all you can of %s.\n" push pushi $315 ; 789, pName push0 pushi $1e1 ; 481, curItem push0 pushi $49a ; 1178, pItemSelector push0 pToa client send $4 bnot send $4 bnot send $4 bnot push class Str send $8 bnot sat temp[$0] jmp code_060d code_05fe: pushi $d0 ; 208, with push1 lofsa string_082d ; "You cannot buy that." push class Str send $6 bnot sat temp[$0] code_060d: toss jmp code_061f code_0610: pushi $d0 ; 208, with push1 lofsa string_082d ; "You cannot buy that." push class Str send $6 bnot sat temp[$0] code_061f: pushi $276 ; 630, handsOn push0 lag global[$2] send $4 bnot pushi $8 ; fixPriority lst temp[$0] pushi $65 ; 101, 'e', topString push1 pushi $77 ; 119, 'w', textTop lofsa string_0551 ; "Okay" push push1 pushi $91 ; 145, bitPutIndex push2 calle export60029_0, $10 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot ret lookBtn::choose: pushi $1cb ; 459, choose push0 &rest $1 super gameBarBtn, $4 bnot pushi $277 ; 631, controlOff push0 lag global[$2] send $4 bnot pushi $8d ; 141, new push0 class Str send $4 bnot aTop scratch pushi $49e ; 1182, examineShopItem pushi $4 ; scaleX pushi $499 ; 1177, pShopId push0 pToa client send $4 bnot push pushi $350 ; 848, pIndex push0 pushi $1e1 ; 481, curItem push0 pushi $49a ; 1178, pItemSelector push0 pToa client send $4 bnot send $4 bnot send $4 bnot push pTos scratch pushSelf lag global[$6a] send $c bnot ret lookBtn::cue: pushi $6 ; maxScale pTos scratch pushi $77 ; 119, 'w', textTop lofsa string_0551 ; "Okay" push push0 pushi $91 ; 145, bitPutIndex push2 calle export60029_0, $c bnot pushi $95 ; 149, dispose push0 pToa scratch send $4 bnot pushi $278 ; 632, controlOn push0 lag global[$2] send $4 bnot ret lookBtn::handleError: link $1 ldi $0 sat temp[$0] pushi $d0 ; 208, with push1 lofsa string_0851 ; "You cannot see it clearly." push class Str send $6 bnot sat temp[$0] pushi $276 ; 630, handsOn push0 lag global[$2] send $4 bnot pushi $8 ; fixPriority lst temp[$0] pushi $65 ; 101, 'e', topString push1 pushi $77 ; 119, 'w', textTop lofsa string_0551 ; "Okay" push push1 pushi $91 ; 145, bitPutIndex push2 calle export60029_0, $10 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot ret prevBtn::choose: link $1 pushi $1cb ; 459, choose push0 &rest $1 super gameBarBtn, $4 bnot pushi $343 ; 835, pOwner push0 pushi $1e1 ; 481, curItem push0 pushi $49a ; 1178, pItemSelector push0 pToa client send $4 bnot send $4 bnot send $4 bnot sat temp[$0] pushi $49f ; 1183, newList push1 push pToa client send $6 bnot ret browseBtn::choose: pushi $1cb ; 459, choose push0 &rest $1 super gameBarBtn, $4 bnot pushi $49f ; 1183, newList push0 pToa client send $4 bnot ret topBtn::choose: pushi $1cb ; 459, choose push0 &rest $1 super gameBarBtn, $4 bnot pushi $49f ; 1183, newList push0 pToa client send $4 bnot ret TradeDlg::handleEvent: link $1 ldi $0 sat temp[$0] pushi $4 ; scaleX pushi $2b ; 43, '+', type push0 lap param[$1] send $4 bnot eq? bnt code_0790 pushi $1b ; 27, illegalBits pushi $31 ; 49, '1', message push0 lap param[$1] send $4 bnot eq? bnt code_0790 pushSelf pushi $1d0 ; 464, pScreen push0 lag global[$3] send $4 bnot ne? bnt code_0790 lat temp[$0] ret code_0790: pushi $c8 ; 200, handleEvent push1 lsp param[$1] &rest $2 super FancyDialog, $6 bnot ret TradeDlg::init: link $5 pushi $277 ; 631, controlOff push0 lag global[$2] send $4 bnot pushi $94 ; 148, init push0 &rest $3 ; z super FancyDialog, $4 bnot pTos state ldi $fd ; 253, strip and aTop state pToa priority not bt code_07c3 pTos priority ldi $ff ; 255, asInteger eq? code_07c3: bnt code_07d0 push0 callk kernel_44, $0 bnot push ldi $1 add aTop priority code_07d0: pushi $89 ; 137, top push1 push0 pushi $87 ; 135, left push1 push0 pushi $8a ; 138, bottom push1 pushi $f7 ; 247, cat pushi $88 ; 136, right push1 pushi $1ae ; 430, horizon pushi $7 ; priority push1 pTos priority pushi $57 ; 87, 'W', draw push0 pToa plane send $22 bnot lap param[$1] aTop pShopId pushi $25 ; 37, '%', fore push1 lsg global[$55] pushi $23 ; 35, '#', text push1 lofsa string_08a1 ; "Category" push pushi $db ; 219, moveTo push2 pushi $64 ; 100, 'd', moveDone pushi $1b ; 27, illegalBits pushi $94 ; 148, init push1 pushSelf pushi $9a ; 154, yourself push0 pushi $75 ; 117, 'u', show push0 pushi $8d ; 141, new push0 class TextItem send $4 bnot aTop pNameText send $22 bnot pushi $25 ; 37, '%', fore push1 lsg global[$55] pushi $23 ; 35, '#', text push1 pushi $d0 ; 208, with push1 lofsa string_08aa ; "Price" push class Str send $6 bnot push pushi $db ; 219, moveTo push2 pushi $e2 ; 226, heighten pushi $1b ; 27, illegalBits pushi $94 ; 148, init push1 pushSelf pushi $9a ; 154, yourself push0 pushi $69 ; 105, 'i', hide push1 push0 pushi $8d ; 141, new push0 class TextItem send $4 bnot aTop pPriceText send $24 bnot pushi $88 ; 136, right push0 pToa plane send $4 bnot push pushi $3 ; z pushi $232a ; 9002 push0 push0 callk kernel_28, $6 bnot sub sat temp[$2] pushi $3 ; z pushi $232a ; 9002 push0 push0 callk kernel_29, $6 bnot sat temp[$3] pushi $94 ; 148, init push1 pushSelf pushi $db ; 219, moveTo push2 lst temp[$2] pushi $28 ; 40, '(', style pushi $1b4 ; 436, enable push1 push0 lofsa buyBtn send $14 bnot pushi $94 ; 148, init push1 pushSelf pushi $db ; 219, moveTo push2 lst temp[$2] pushi $89 ; 137, top push0 lofsa buyBtn send $4 bnot push lat temp[$3] add push pushi $1b4 ; 436, enable push1 push0 lofsa lookBtn send $14 bnot pushi $94 ; 148, init push1 pushSelf pushi $db ; 219, moveTo push2 lst temp[$2] pushi $89 ; 137, top push0 lofsa buyBtn send $4 bnot push lst temp[$3] ldi $2 mul add push pushi $1b4 ; 436, enable push1 push0 lofsa prevBtn send $14 bnot pushi $94 ; 148, init push1 pushSelf pushi $db ; 219, moveTo push2 lst temp[$2] pushi $89 ; 137, top push0 lofsa buyBtn send $4 bnot push lst temp[$3] ldi $3 ; z mul add push pushi $1b4 ; 436, enable push1 push1 lofsa browseBtn send $14 bnot pushi $94 ; 148, init push1 pushSelf pushi $db ; 219, moveTo push2 lst temp[$2] pushi $89 ; 137, top push0 lofsa buyBtn send $4 bnot push lst temp[$3] ldi $3 ; z mul add push pushi $1b4 ; 436, enable push1 push1 pushi $69 ; 105, 'i', hide push0 lofsa topBtn send $18 bnot pushi $94 ; 148, init push1 pushSelf pushi $db ; 219, moveTo push2 lst temp[$2] pushi $89 ; 137, top push0 lofsa buyBtn send $4 bnot push lst temp[$3] ldi $4 ; scaleX mul add push pushi $1b4 ; 436, enable push1 push1 lofsa exitBtn send $14 bnot pushi $131 ; 305, asStr push0 pushi $337 ; 823, pValue push0 lag global[$1] send $4 bnot send $4 bnot sat temp[$0] pushi $25 ; 37, '%', fore push1 lsg global[$55] pushi $23 ; 35, '#', text push1 pushi $f5 ; 245, format push2 lofsa string_08b0 ; "Available gold:\n" push lst temp[$0] class Str send $8 bnot push pushi $db ; 219, moveTo push2 lst temp[$2] ldi $5 ; scaleY add push pushi $89 ; 137, top push0 lofsa buyBtn send $4 bnot push lst temp[$3] ldi $5 ; scaleY mul add push ldi $5 ; scaleY add push pushi $1be ; 446, setSize push1 pushi $3 ; z pushi $232a ; 9002 push0 push0 callk kernel_28, $6 bnot push ldi $5 ; scaleY sub push pushi $94 ; 148, init push1 pushSelf pushi $9a ; 154, yourself push0 pushi $75 ; 117, 'u', show push0 pushi $8d ; 141, new push0 class TextItem send $4 bnot aTop pAssets send $28 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot pushi $25 ; 37, '%', fore push1 lsg global[$55] pushi $23 ; 35, '#', text push1 pushi $f5 ; 245, format push2 lofsa string_08c3 ; "Your build points:\n" push pushi $432 ; 1074, pBuildPoints push0 pushi $35c ; 860, getBase push1 class BCharacter push lag global[$1] send $6 bnot send $4 bnot push class Str send $8 bnot push pushi $db ; 219, moveTo push2 lst temp[$2] ldi $5 ; scaleY add push pushi $89 ; 137, top push0 lofsa buyBtn send $4 bnot push lst temp[$3] ldi $6 ; maxScale mul add push ldi $5 ; scaleY add push pushi $94 ; 148, init push1 pushSelf pushi $9a ; 154, yourself push0 pushi $75 ; 117, 'u', show push0 pushi $8d ; 141, new push0 class TextItem send $4 bnot aTop pPoints send $22 bnot pushi $8d ; 141, new push0 class ShopList send $4 bnot aTop pItemList pushi $343 ; 835, pOwner push1 pTos pItemList pToa pItemList send $6 bnot pushi $4ab ; 1195, pDlg push1 pushSelf pushi $8d ; 141, new push0 lofsa CategoryInput send $4 bnot aTop pHandleInput send $6 bnot pushi $36c ; 876, fromPacket push1 lsp param[$2] self $6 bnot pushi $5a ; 90, 'Z', size push0 pToa pItemList send $4 bnot bnt code_0a92 pushi $4a7 ; 1191, buildSelector push0 self $4 bnot jmp code_0ad5 code_0a92: pushi $25 ; 37, '%', fore push1 lsg global[$55] pushi $23 ; 35, '#', text push1 pushi $d0 ; 208, with push1 lofsa string_08d9 ; "I am sorry, I have nothing\n" push class Str send $6 bnot push pushi $db ; 219, moveTo push2 pushi $1e ; 30, brRight pushi $78 ; 120, 'x', textRight pushi $94 ; 148, init push1 pushSelf pushi $9a ; 154, yourself push0 pushi $75 ; 117, 'u', show push0 pushi $8d ; 141, new push0 class TextItem send $4 bnot sat temp[$4] send $22 bnot pushi $1b4 ; 436, enable push1 push0 lofsa browseBtn send $6 bnot code_0ad5: pushi $de ; 222, centerIn push1 push0 push0 lag global[$3] send $4 bnot push pushi $dd ; 221, moveBy push2 push0 pushi $10 ; 16, cel pToa plane send $e bnot pushi $1d3 ; 467, modal push1 push2 pushi $248 ; 584, open push0 self $a bnot pushi $5a ; 90, 'Z', size push0 pToa pItemList send $4 bnot bnt code_0b11 pushi $1d4 ; 468, selectItem push1 push0 pushi $1ad ; 429, update push0 pToa pItemSelector send $a bnot code_0b11: pushi $278 ; 632, controlOn push0 lag global[$2] send $4 bnot ret TradeDlg::getAssets: link $2 pushi $131 ; 305, asStr push0 pushi $337 ; 823, pValue push0 lag global[$1] send $4 bnot send $4 bnot sat temp[$1] pushi $f5 ; 245, format push2 lofsa string_08b0 ; "Available gold:\n" push lst temp[$1] class Str send $8 bnot sat temp[$0] pushi $d3 ; 211, copy push1 push pushi $23 ; 35, '#', text push0 pToa pAssets send $4 bnot send $6 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot pushi $95 ; 149, dispose push0 lat temp[$1] send $4 bnot ret TradeDlg::getBuildPoints: link $1 pushi $f5 ; 245, format push2 lofsa string_08c3 ; "Your build points:\n" push pushi $432 ; 1074, pBuildPoints push0 pushi $35c ; 860, getBase push1 class BCharacter push lag global[$1] send $6 bnot send $4 bnot push class Str send $8 bnot sat temp[$0] pushi $d3 ; 211, copy push1 push pushi $23 ; 35, '#', text push0 pToa pPoints send $4 bnot send $6 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot ret TradeDlg::dispose: pushi $95 ; 149, dispose push0 pToa pNameText send $4 bnot push1 pTos pItemList calle export60000_0, $2 bnot bnt code_0bc0 pushi $95 ; 149, dispose push0 pToa pItemList send $4 bnot code_0bc0: pushi $95 ; 149, dispose push0 pToa pHandleInput send $4 bnot push1 pTos pItemSelector calle export60000_0, $2 bnot bnt code_0be8 pushi $9d ; 157, eachElementDo push1 pushi $95 ; 149, dispose pushi $219 ; 537, displayList push0 pToa pItemSelector send $4 bnot send $6 bnot code_0be8: pushi $95 ; 149, dispose push0 &rest $1 super FancyDialog, $4 bnot ret TradeDlg::fromPacket: link $4 pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot pushi $135 ; 309, getWord push0 lap param[$1] send $4 bnot pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot pushi $134 ; 308, getByte push0 lap param[$1] send $4 bnot pushi $95 ; 149, dispose push0 pushi $136 ; 310, getLong push0 lap param[$1] send $4 bnot send $4 bnot pushi $139 ; 313, getString push0 lap param[$1] send $4 bnot sat temp[$1] pushi $3 ; z push1 push2 pushi $9 ; inLeft push callk kernel_91, $4 bnot push lsg global[$3a] callk kernel_70, $6 bnot sat temp[$2] pushi $25 ; 37, '%', fore push1 lsg global[$55] pushi $23 ; 35, '#', text push1 lst temp[$1] pushi $1be ; 446, setSize push1 push pushi $db ; 219, moveTo push2 pushi $4e ; 78, 'N', width push0 pToa plane send $4 bnot push ldi $2 div push lst temp[$2] ldi $2 div sub push ldi $5 ; scaleY add push pushi $e ; 14, view pushi $94 ; 148, init push1 pushSelf pushi $9a ; 154, yourself push0 pushi $75 ; 117, 'u', show push0 pushi $8d ; 141, new push0 class TextItem send $4 bnot sat temp[$3] send $28 bnot pushi $135 ; 309, getWord push0 lap param[$1] send $4 bnot sat temp[$0] code_0c9a: lat temp[$0] bnt code_0cad pushi $4a6 ; 1190, buildList push2 pTos pItemList lsp param[$1] self $8 bnot -at temp[$0] jmp code_0c9a code_0cad: ret TradeDlg::buildList: link $8 pushi $134 ; 308, getByte push0 lap param[$2] send $4 bnot sat temp[$0] pushi $135 ; 309, getWord push0 lap param[$2] send $4 bnot sat temp[$1] pushi $134 ; 308, getByte push0 lap param[$2] send $4 bnot sat temp[$2] pushi $134 ; 308, getByte push0 lap param[$2] send $4 bnot sat temp[$3] pushi $136 ; 310, getLong push0 lap param[$2] send $4 bnot sat temp[$4] pushi $139 ; 313, getString push0 lap param[$2] send $4 bnot sat temp[$5] push2 pushi $80 ; 128, lastKey lst temp[$1] callk kernel_5, $4 bnot not bnt code_0d04 ldi $2334 ; 9012 sat temp[$1] code_0d04: lst temp[$0] dup ldi $1 eq? bnt code_0d4a pushi $8d ; 141, new push0 lofsa CategoryItem send $4 bnot sat temp[$7] pushi $94 ; 148, init push1 lsp param[$1] send $6 bnot pushi $343 ; 835, pOwner push1 pushi $343 ; 835, pOwner push0 lap param[$1] send $4 bnot push pushi $315 ; 789, pName push1 lst temp[$5] pushi $e ; 14, view push1 lst temp[$1] lat temp[$7] send $12 bnot pushi $95 ; 149, dispose push0 lat temp[$4] send $4 bnot jmp code_0d9b code_0d4a: pushi $8d ; 141, new push0 lofsa TradeItem send $4 bnot sat temp[$7] pushi $94 ; 148, init push0 send $4 bnot pushi $343 ; 835, pOwner push1 pushi $343 ; 835, pOwner push0 lap param[$1] send $4 bnot push pushi $315 ; 789, pName push1 lst temp[$5] pushi $e ; 14, view push1 lst temp[$1] pushi $3ea ; 1002, pClutStart push1 lst temp[$2] pushi $330 ; 816, pColor push1 lst temp[$3] pushi $4ac ; 1196, pPrice push1 lst temp[$4] pushi $350 ; 848, pIndex push1 pTos pItemAmt pushi $2bb ; 699, pType push1 lst temp[$0] lat temp[$7] send $30 bnot ipToa pItemAmt code_0d9b: toss pushi $ab ; 171, addToEnd push1 lst temp[$7] lap param[$1] send $6 bnot lst temp[$0] ldi $1 eq? bnt code_0dd4 pushi $135 ; 309, getWord push0 lap param[$2] send $4 bnot sat temp[$6] code_0db9: lat temp[$6] bnt code_0dd4 pushi $4a6 ; 1190, buildList push2 pushi $ce ; 206, pList push0 lat temp[$7] send $4 bnot push lsp param[$2] self $8 bnot -at temp[$6] jmp code_0db9 code_0dd4: ret TradeDlg::buildSelector: link $2 pushi $5a ; 90, 'Z', size push0 pToa pItemList send $4 bnot bnt code_0ede pToa pItemList sat temp[$0] pushi $97 ; 151, isKindOf push1 lofsa CategoryItem push pushi $a5 ; 165, first push0 lat temp[$0] send $4 bnot send $6 bnot bnt code_0e28 pushi $1b4 ; 436, enable push1 push0 lofsa buyBtn send $6 bnot pushi $1b4 ; 436, enable push1 push0 lofsa lookBtn send $6 bnot pushi $1b4 ; 436, enable push1 push0 lofsa prevBtn send $6 bnot pushi $69 ; 105, 'i', hide push1 push0 pToa pPriceText send $6 bnot jmp code_0e6b code_0e28: pushi $1b4 ; 436, enable push1 push1 lofsa buyBtn send $6 bnot pushi $1b4 ; 436, enable push1 push1 lofsa lookBtn send $6 bnot pushi $1b4 ; 436, enable push1 push0 lofsa prevBtn send $6 bnot pushi $1b4 ; 436, enable push1 push0 lofsa browseBtn send $6 bnot pushi $23 ; 35, '#', text push1 lofsa string_090b ; "Item" push pushi $57 ; 87, 'W', draw push0 pToa pNameText send $a bnot pushi $57 ; 87, 'W', draw push0 pToa pPriceText send $4 bnot code_0e6b: pushi $17d ; 381, addItem pushi $5 ; scaleY class Selector push pushi $213 ; 531, itemWidth pushi $4e ; 78, 'N', width push0 pushi $a5 ; 165, first push0 lat temp[$0] send $4 bnot send $4 bnot push pushi $212 ; 530, itemHeight pushi $e1 ; 225, height push0 pushi $a5 ; 165, first push0 lat temp[$0] send $4 bnot send $4 bnot push self $e bnot aTop pItemSelector pushi $1e2 ; 482, itemsPerPage push1 pushi $4 ; scaleX pushi $21a ; 538, allowDoubleClick push1 push1 pushi $1c7 ; 455, handler push1 pTos pHandleInput pushi $21f ; 543, setList push1 lst temp[$0] pushi $94 ; 148, init push1 pushSelf pushi $db ; 219, moveTo push2 pushi $a ; 10, inTop pushi $28 ; 40, '(', style pToa pItemSelector send $26 bnot pushi $1e1 ; 481, curItem push1 pushi $a5 ; 165, first push0 lat temp[$0] send $4 bnot push pToa pItemSelector send $6 bnot jmp code_0f0c code_0ede: pushi $d0 ; 208, with push1 lofsa string_0910 ; "I have nothing to sell you." push class Str send $6 bnot sat temp[$1] pushi $8 ; fixPriority push pushi $65 ; 101, 'e', topString push1 pushi $77 ; 119, 'w', textTop lofsa string_0551 ; "Okay" push push0 pushi $91 ; 145, bitPutIndex push2 calle export60029_0, $10 bnot pushi $95 ; 149, dispose push0 self $4 bnot code_0f0c: ret TradeDlg::newList: link $2 lap param[$0] bnt code_0f2b lap param[$1] sat temp[$0] pushi $1e1 ; 481, curItem push1 pushi $a5 ; 165, first push0 send $4 bnot push pToa pItemSelector send $6 bnot jmp code_0f85 code_0f2b: push1 pushi $1e1 ; 481, curItem push0 pToa pItemSelector send $4 bnot push calle export60000_0, $2 bnot bnt code_0f81 pushi $97 ; 151, isKindOf push1 lofsa CategoryItem push pushi $1e1 ; 481, curItem push0 pToa pItemSelector send $4 bnot send $6 bnot bnt code_0f81 pushi $5a ; 90, 'Z', size push0 pushi $ce ; 206, pList push0 pushi $1e1 ; 481, curItem push0 pToa pItemSelector send $4 bnot send $4 bnot send $4 bnot bnt code_0f81 pushi $ce ; 206, pList push0 pushi $1e1 ; 481, curItem push0 pToa pItemSelector send $4 bnot send $4 bnot sat temp[$0] jmp code_0f85 code_0f81: pToa pItemList sat temp[$0] code_0f85: pushi $5a ; 90, 'Z', size push0 lat temp[$0] send $4 bnot bnt code_10c6 pushi $97 ; 151, isKindOf push1 lofsa CategoryItem push pushi $a5 ; 165, first push0 lat temp[$0] send $4 bnot send $6 bnot bnt code_1022 pushi $21a ; 538, allowDoubleClick push1 push1 pToa pItemSelector send $6 bnot pushi $1b4 ; 436, enable push1 push0 lofsa buyBtn send $6 bnot pushi $1b4 ; 436, enable push1 push0 lofsa lookBtn send $6 bnot pushi $69 ; 105, 'i', hide push0 lofsa topBtn send $4 bnot pushi $75 ; 117, 'u', show push0 lofsa browseBtn send $4 bnot pushi $a5 ; 165, first push0 pToa pItemList send $4 bnot push pushi $a5 ; 165, first push0 lat temp[$0] send $4 bnot eq? bnt code_0ffc pushi $1b4 ; 436, enable push1 push0 lofsa prevBtn send $6 bnot jmp code_1007 code_0ffc: pushi $1b4 ; 436, enable push1 push1 lofsa prevBtn send $6 bnot code_1007: pushi $23 ; 35, '#', text push1 lofsa string_08a1 ; "Category" push pushi $57 ; 87, 'W', draw push0 pToa pNameText send $a bnot pushi $69 ; 105, 'i', hide push1 push0 pToa pPriceText send $6 bnot jmp code_1099 code_1022: pushi $21a ; 538, allowDoubleClick push1 push0 pToa pItemSelector send $6 bnot pushi $1b4 ; 436, enable push1 push1 lofsa buyBtn send $6 bnot pushi $1b4 ; 436, enable push1 push1 lofsa lookBtn send $6 bnot pushi $69 ; 105, 'i', hide push0 lofsa browseBtn send $4 bnot pushi $75 ; 117, 'u', show push0 lofsa topBtn send $4 bnot pushi $a5 ; 165, first push0 pToa pItemList send $4 bnot push pushi $a5 ; 165, first push0 lat temp[$0] send $4 bnot eq? bnt code_1077 pushi $1b4 ; 436, enable push1 push0 lofsa prevBtn send $6 bnot jmp code_1082 code_1077: pushi $1b4 ; 436, enable push1 push1 lofsa prevBtn send $6 bnot code_1082: pushi $23 ; 35, '#', text push1 lofsa string_090b ; "Item" push pushi $57 ; 87, 'W', draw push0 pToa pNameText send $a bnot pushi $57 ; 87, 'W', draw push0 pToa pPriceText send $4 bnot code_1099: pushi $21f ; 543, setList push1 lst temp[$0] pushi $1d4 ; 468, selectItem push1 push0 pushi $d7 ; 215, move push1 push0 pushi $1ad ; 429, update push0 pToa pItemSelector send $16 bnot pushi $51 ; 81, 'Q', value push1 push0 pushi $1ad ; 429, update push0 pushi $218 ; 536, scrollBar push0 pToa pItemSelector send $4 bnot send $a bnot code_10c6: ret CategoryInput::doit: pushi $49f ; 1183, newList push0 pToa pDlg send $4 bnot ret StoreItem::init: pushi $94 ; 148, init push0 &rest $1 super BitMap, $4 bnot pushi $4e ; 78, 'N', width push1 pushi $10e ; 270, hiWord pushi $e1 ; 225, height push1 pushi $30 ; 48, '0', who self $c bnot ret StoreItem::addToCast: ret StoreItem::dispose: pushi $95 ; 149, dispose push0 pToa pName send $4 bnot pToa pClut bnt code_1100 pushi $95 ; 149, dispose push0 send $4 bnot code_1100: pushi $95 ; 149, dispose push0 &rest $1 super BitMap, $4 bnot ret StoreItem::setName: pToa pName bnt code_111a pushi $95 ; 149, dispose push0 send $4 bnot ldi $0 aTop pName code_111a: pushi $d0 ; 208, with push1 lsp param[$1] class Str send $6 bnot aTop pName ret StoreItem::draw: link $1 lap param[$1] bnt code_1134 ldi $1 sat temp[$0] jmp code_1138 code_1134: lag global[$54] sat temp[$0] code_1138: pushi $5 ; scaleY push0 pushi $4e ; 78, 'N', width push0 self $4 bnot push pushi $e1 ; 225, height push0 self $4 bnot push pushi $fe ; 254, strIndex lst temp[$0] callk kernel_35, $a bnot aTop bitmap pTos pColor ldi $0 ne? bnt code_118c pToa pClut not bnt code_118c pushi $8d ; 141, new push0 class Clut send $4 bnot aTop pClut pushi $4b ; 75, 'K', at pushi $5 ; scaleY pTos pClutStart pTos pColor pTos pColor ldi $1 add push pTos pColor ldi $2 add push pTos pColor ldi $3 ; z add push pToa pClut send $e bnot code_118c: pushi $17d ; 381, addItem pushi $6 ; maxScale push2 pTos view pTos loop pTos cel push0 push0 self $10 bnot pToa pClut bnt code_11ad pushi $3 ; z pushi $a ; 10, inTop pTos bitmap push callk kernel_35, $6 bnot code_11ad: pushi $17d ; 381, addItem pushi $7 ; priority pushi $3 ; z pTos pName pushi $32 ; 50, '2', edit pushi $a ; 10, inTop lsg global[$55] lst temp[$0] pushi $4 ; scaleX self $12 bnot ret StoreItem::width: lap param[$0] bnt code_11d4 pTos left lap param[$1] add push ldi $1 sub aTop right code_11d4: pTos right pToa left sub push ldi $1 add ret StoreItem::height: lap param[$0] bnt code_11ed pTos top lap param[$1] add push ldi $1 sub aTop bottom code_11ed: pTos bottom pToa top sub push ldi $1 add ret CategoryItem::dispose: pushi $95 ; 149, dispose push0 pToa pList send $4 bnot pushi $95 ; 149, dispose push0 &rest $1 super StoreItem, $4 bnot ret CategoryItem::init: pushi $94 ; 148, init push0 &rest $2 super StoreItem, $4 bnot pushi $343 ; 835, pOwner push1 lsp param[$1] pushi $8d ; 141, new push0 class ShopList send $4 bnot aTop pList send $6 bnot ret TradeItem::dispose: pushi $95 ; 149, dispose push0 pToa pPrice send $4 bnot pushi $95 ; 149, dispose push0 &rest $1 super StoreItem, $4 bnot ret TradeItem::draw: link $2 pushi $57 ; 87, 'W', draw push1 lsp param[$1] &rest $2 super StoreItem, $6 bnot lap param[$1] bnt code_125a ldi $1 sat temp[$1] jmp code_125e code_125a: lag global[$54] sat temp[$1] code_125e: pushi $f5 ; 245, format push2 lofsa string_095a ; "%s" push pushi $131 ; 305, asStr push0 pToa pPrice send $4 bnot push class Str send $8 bnot sat temp[$0] pushi $17d ; 381, addItem pushi $7 ; priority pushi $3 ; z pushi $71 ; 113, 'q', data push0 send $4 bnot push pushi $d7 ; 215, move pushi $a ; 10, inTop lsg global[$55] lst temp[$1] pushi $4 ; scaleX self $12 bnot pushi $95 ; 149, dispose push0 lat temp[$0] send $4 bnot ret