viewing paste Unknown #15857 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86
// Badges Exchange
// *********************************************************************
 
bat_room,163,146,2      script  Telma   701,{
        mes "[Telma]";
        mes "Welcome, mighty warrior.";
        mes "Do you need supply for your battles?";
        mes "I can exchange you a nice amount for your badges or open the normal Chronos Supply Store for you.";
        next;
        switch( select("^FF0000Terra Old Red Box^000000:^FFA500Chronos Supply Store^000000:^FF0000Battleground Exclusive^000000:^0000FFWar of Emperium Exclusive Boxs:War of Emperium Exclusive Items^000000:Other Items") )
        {
        case 1: // Terra Old Red Box
                mes "[Telma]";
                mes "You can exchange your BG partipation points, a full round of each won BG, for one ^FF0000Terra Old Red Box^000000.";
                mes "Let me check your points...";
                next;
                mes "Tierra EoS : ^0000FF" + BG_EoE + "^000000";
                mes "Tierra Boss : ^0000FF" + BG_Boss + "^000000";
                mes "Tierra Dom : ^0000FF" + BG_DOM + "^000000";
                mes "Flavius CTF : ^0000FF" + BG_CTF + "^000000";
                mes "Flavius TDM : ^0000FF" + BG_TDM + "^000000";
                mes "Flavius SC : ^0000FF" + BG_SC + "^000000";
                mes "Conquest : ^0000FF" + BG_CON + "^000000";
                mes "Rush : ^0000FF" + BG_RUSH + "^000000";
                mes "Triple Inferno : ^0000FF" + BG_TI + "^000000";
                next;
                if( BG_EoE > 0 && BG_Boss > 0 && BG_CTF > 0 && BG_TDM > 0 && BG_SC > 0 && BG_TI > 0 && BG_CON > 0 && BG_RUSH > 0 && BG_DOM > 0 )
                {
                        set BG_EoE, BG_EoE - 1;
                        set BG_Boss, BG_Boss - 1;
                        set BG_DOM, BG_DOM - 1;
                        set BG_CTF, BG_CTF - 1;
                        set BG_TDM, BG_TDM - 1;
                        set BG_SC, BG_SC - 1;
                        set BG_CON, BG_CON - 1;
                        set BG_RUSH, BG_RUSH - 1;
                        set BG_TI, BG_TI - 1;
                        getitem 5000,1;
                        mes "[Telma]";
                        mes "Here is one Box for you!!";
                        mes "I hope you can find inside it a big surprise.";
                        mes "Talk to me if you want to exchange more.";
                }
                else
                {
                        mes "[Telma]";
                        mes "To exchange your points for a Box, you need at least 2 one of each Battleground.";
                        mes "Play all kinds of BG's!!.";
                }
                close;
        case 2: // Supply Store
                mes "[Telma]";
                mes "Close this window to open the Chronos Supply Store.";
                close2;
                callshop "ChronosShop",1;
                end;
        case 3: // BG Supply
                setarray .@Items[0],   547,  504,  505,  678, 7135, 7136, 7137, 7138, 7139,  715,  716,  717,12016, 1025, 7321,  662,12072,12077,12082,12087,12092,12097;
                setarray .@Amount[0],  150,  100,  100,   10,   40,   40,   30,   30,   25,   50,  100,  200,   10,   40,   25,   10,    3,    3,    3,    3,    3,    3;
                setarray .@Value[0],     1,    1,    1,    1,    1,    1,    1,    1,    1,    1,    1,    1,    1 ,   1,    1,    1,    1,    1,    1,    1,    1,    1;
                set .@cID, getbattleflag("bg_reserved_char_id");
                set .@Tarjet$, "Battleground";
                break;
        case 4: // WoE Supply Boxs
                setarray .@Items[0],  8916, 8917, 8924, 8929, 8935, 8934,             8926, 8927, 8962, 8961, 8925, 8928, 8930;
                setarray .@Amount[0],    3,    1,    2,    2,    1,    1,                2,    1,    1,    1,    4,    1,    1;
                setarray .@Value[0],     8,    4,    4,    8,   10,   10,                8,    8,    4,    2,    8,   10,    8;
                set .@cID, 0;
                set .@Tarjet$, "War of Emperium or GvG";
                break;
        case 5: // WoE Supply Items
                setarray .@Items[0],  7137, 7138,  662,12072,12077,12082,12087,12092,12097,14287,14288;
                setarray .@Amount[0],   30,   30,   10,    6,    6,    6,    6,    6,    6,    5,    5;
                setarray .@Value[0],     4,    4,    4,    8,    8,    8,    8,    8,    8,    8,    8;
                set .@cID, getbattleflag("woe_reserved_char_id");
                set .@Tarjet$, "War of Emperium or GvG";
                break;
        case 6:
                setarray .@Items[0],  8918, 8919, 8960;
                setarray .@Amount[0],    1,    1,    1;
                setarray .@Value[0],    15,   15,   15;
                set .@cID, 0;
                set .@Tarjet$, "Everywhere";
                break;
        }
 
Viewed 269 times, submitted by unknown.