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 572 times, submitted by Guest.