//=============================================
//== Event Manager ======
//== Version: =================================
//== 1.0
//== by Zelos: ================================
//==
//=============================================
prontera,165,155,2 script Event manager 804,{
mes "[Event manager]";
mes "Hello "+StrCharInfo(0)+"!";
mes "I'm the Event Manager.";
mes "You give me Event Coins, i reward you. It's that simple!";
next;
switch(select("1 - Tell me more about Event coins and rewards","2 - I want to convert my Event Coins","3 - I want to receive my rewards","4 - Well,it was nice meeting you")){
case 1:
mes "[Event Manager]";
mes "There are 3 types of Event Coins you may win from Events:";
mes " - "+getitemname(8032);
mes " - "+getitemname(8033);
mes " - "+getitemname(8034);
next;
mes "[Event manager]";
mes "The exchange rates between Event Coin are:";
mes " 1 Golden Coin = 5 Silver Coins";
mes " 1 Silver Coin = 5 Bronze Coins";
next;
mes "[Event mMnager]";
mes "Here is the list rewards you may receive from your Event Coins:";
mes "( Note that in this list, we have: GC = Golden Coins, SC = Silver Coins and BC = Bronze Coins )";
next;
mes "[Event Manager]";
mes "1.[10000] Zeny for 1 BC]";
mes "2.[10]Yggdrasil Seeds for 2 BC]";
mes "3.[10]Yggdrasil Berry for 2 SC]";
mes "4."";
mes "5."";
close;
case 2:
mes "[Event Manager]";
mes "Remeber the conversion rates:";
mes " 1 Golden Coin = 5 Silver Coins";
mes " 1 Silver Coin = 5 Bronze Coins";
mes "so, which type of conversion would you like to do?";
next;
switch(select("1-Gold Coin => Silver Coin","2-Silver Coin => Bronze Coin","3-Bronze Coin => Silver Coin","4-Silver Coin => Golden Coin","5-Nothing for now...")){
case 1:
mes "[Event Manager]";
mes "How many Golden Coins you want to convert?";
input .sc;
next;
if(countitem(8032) < .sc){mes "[Event Manager]";mes "You don't have enough Golden Coins.";close;}
delitem 8032,.sc;
mes "[Event Manager]";
mes "Thank you for choosing RagnaRebirth that luck be with you in future events, and you can win many Coins, and exchange with beautiful items.";
getitem 8033,.sc;
close;
case 2:
mes "[Event Manager]";
mes "How many Silver Coins you want to convert?";
input .sc;
next;
if(countitem(8033)<.sc){mes "[Event Manager]";mes "You don't have enough Silver Coins.";close;}
delitem 8033,.sc;
mes "[Event Manager]";
mes "Thank you for choosing RagnaRebirth that luck be with you in future events, and you can win many Coins, and exchange with beautiful items.";
getitem 8034,.sc;
close;
case 3:
mes "[Event Manager]";
mes "How many Silver Coins do you want to get?";
input .sc;
next;
if(countitem(8034<(.sc*5)){mes "[Event Manager]";mes "You don't have enough Bronze Coins.";close;}
delitem 8034,(.sc*5);
mes "[Event Manager]";
mes "Thank you for choosing RagnaRebirth that luck be with you in future events, and you can win many Coins, and exchange with beautiful items.";
getitem 8033,.sc;
close;
case 4:
mes "[Event Manager]";
mes "How many Golden Coins do you want to get?";
input .sc;
next;
if(countitem(8033<(.sc*5)){mes "[Event Manager]";mes "You don't have enough Silver Coins.";close;}
delitem 8033,(.sc*5);
mes "[Event Manager]";
mes "Thank you for choosing RagnaRebirth that luck be with you in future events, and you can win many Coins, and exchange with beautiful items.";
getitem 8032,.sc;
close;
case 5:
mes "[Event Manager]";
mes "Ok, no problem.";
close;
}
case 3:
mes "[Event Manager]";
mes "Here is the rewards you may receive from your Event Coins:";
mes "( Note that in this list, we have: GC = Golden Coins, SC = Silver Coins and BC = Bronze Coins )";
next;
switch(select("1.[10000] Zeny for 1 BC","2.[10]Yggdrasil Seeds for 2 BC","3.[10]Yggdrasil Berry for 2 SC")){
case 1:
mes "[Event Manager]";
mes "You want to trade 1 BC for 10000 Zeny?";
next;
switch(select("yes","no")){
case 1:
if(countitem(8034) < 1) goto nocoin;
delitem 8034,1;
mes "[Event Manager]";
mes "Thank you for choosing RagnaRebirth that luck be with you in future events, and you can win many Coins, and exchange with more zeny.";
set Zeny,Zeny+10000;
close;
case 2:
mes "[Event Manager]";
mes "Ok, back when you want to change something";
close;
}
case 2:
mes "[Event Manager]";
mes "You want to trade 2 BC for 10 Ygg Seed?";
next;
switch(select("yes","no")){
case 1:
if(countitem(8034) < 2) goto nocoin;
delitem 8034,2;
mes "[Event Manager]";
mes "Thank you for choosing RagnaRebirth that luck be with you in future events, and you can win many Coins, and exchange with more items.";
getitem 608,10;
close;
case 2:
mes "[Event Manager]";
mes "Ok, back when you want to change something";
close;
}
case 3:
mes "[Event Manager]";
mes "You want to trade 2 SC for 10 Ygg Berry?";
next;
switch(select("yes","no")){
case 1:
if(countitem(8033) < 2) goto nocoin;
delitem 8034,2;
mes "[Event Manager]";
mes "Thank you for choosing RagnaRebirth that luck be with you in future events, and you can win many Coins, and exchange with more items.";
getitem 607,10;
close;
case 2:
mes "[Event Manager]";
mes "Ok, back when you want to change something";
close;
}
case 4:
mes "[Event Manager]";
mes "Ok, back when you want to change something";
close;
}
}
nocoin:
mes "[Event Manager]";
mes "You don't have enough Event Coins to obtain this reward";
close;
}