// 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;
}