//=============================================
//== 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."";
}
goto Main;
case 2:
mes "[Event Manager]";
mes "Remeber the conversion rates:";
mes " 1 Golden Coin = 5 Silver Coins";
mes " 1 Silver Coin = 5 Bronze Coins";
next;
mes "so, which type of conversion would you like to do?";
switch(select("1-Silver Coin => Golden Coin:2-Bronze Coin => Silver Coin:3-Silver Coin => Bronze Coin:4-Golden Coin => Silver Coin:5-Nothing for now..."))
case 2-1:
{
mes "[Event Manager]";
mes "How many Silver Coins do you want to get from Golden Coins ?:";
input .sc;
next;
{ if(countitem(8033) >= .sc)
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 8032,(.sc/5);
close;
}
case 2-2:
{
mes "[Event Manager]";
mes "How many Silver Coins do you want to get from Golden Coins ?:";
input .sc;
next;
{ if(countitem(8033) >= .sc)
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 8032,(.sc/5);
close;
}
case 2-3:
{
mes "[Event Manager]";
mes "How many Silver Coins do you want to get from Golden Coins ?:";
input .sc;
next;
{ if(countitem(8033) >= .sc)
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 8032,(.sc/5);
close;
}
case 2-4:
{
mes "[Event Manager]";
mes "How many Silver Coins do you want to get from Golden Coins ?:";
input .sc;
next;
{ if(countitem(8033) >= .sc)
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 8032,(.sc/5);
close;
}
case 2-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 3-1:
mes "[Event Manager]";
mes "You want to trade 1 BC for 10000 Zeny?";
switch(select("yes:no"))
case 3-1-1(yes):
next;
if(countitem(8034) < 1) goto nocoin;
if(countitem(8034) >= 1)
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 3-1-2(no):
mes "[Event Manager]";
mes "Ok, back when you want to change something";
close;
case 3-2:
mes "[Event Manager]";
mes "You want to trade 2 BC for 10 Ygg Seed?";
switch(select("yes:no"))
case 3-2-1(yes):
next;
if(countitem(8034) < 2) goto nocoin;
if(countitem(8034) >= 2)
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 3-2-2(no):
mes "[Event Manager]";
mes "Ok, back when you want to change something";
close;
case 3-3:
mes "[Event Manager]";
mes "You want to trade 2 SC for 10 Ygg Berry?";
switch(select("yes:no"))
case 3-3-1(yes):
next;
if(countitem(8033) < 2) goto nocoin;
if(countitem(8033) >= 2)
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 3-3-2(no):
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;
Question
ZelosAvalon
i really need help on this script event manager will trade my event coins for another event coins and items!
but i'm newbie on scripts and need help, this script dont work =(
txt file : event_manager-zelos.txt
Edited by ZelosAvalonLink to comment
Share on other sites
10 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.