//===== Hercules Script ======================================
//= Event Manager
//===== By: ==================================================
//= ZelosAvalon
//===== Current Version: =====================================
//= 1.0
//===== Description: =========================================
//= 1.0 NPC that manages the earnings event points in Invasion Event,
//      where you can exchange Event Coins for rewards. [ZelosAvalon]
//===== Additional Comments: =================================
//= 1.0 Now you can exchange you Event Coins for items in Event Manager. [ZelosAvalon]
//============================================================

prontera,146,146,6	script	Event Manager	804,{

	mes "[Event manager]";
	mes "Hello ^3355FF"+strcharinfo(0)+"^000000";
	mes "I'm the Event Manager.";
	mes "You give me Event Coins, i reward you. It's that simple!";
	next;
	Main:
				switch(select("Tell me more about Event coins and rewards:I want to convert my Event Coins:I want to receive my rewards: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 " - Golden Event Coin";
				mes " - Silver Event Coin";
				mes " - Bronze Event Coin";
				next;
				mes "[Event Manager]";
				mes "The exchange rates between Event Coin are:";
				mes " ^0000DD1^000000 Golden Coin = ^0000DD5^000000 Silver Coins";
				mes " ^0000DD1^000000 Silver Coin = ^0000DD5^000000 Bronze Coins";
				next;
				mes "[Event Manager]";
				mes "Here is the list rewards you may receive from your Event Coins:";
				mes "^22AA22( Note that in this list, we have: GC = Golden Coins, SC = Silver Coins and BC = Bronze Coins )^000000";
				next;
				mes "[Event Manager]";
				mes "1.[^ff0000"+ 100000 +"^000000 Zeny for 1 ^22AA22BC^000000]";
				mes "2.[^ff0000"+ 50 +"^000000 Yggdrasil Seeds for 1 ^22AA22BC^000000]";
				mes "3.[^ff0000"+ 50 +"^000000 Yggdrasil Berry for 2 ^22AA22SC^000000]";
				next;
				goto Main;
				}
		case 2:
				{
				mes "[Event Manager]";
				mes "Remeber the conversion rates:";
				mes " ^0000DD1^000000 Golden Coin = ^0000DD5^000000 Silver Coins";
				mes " ^0000DD1^000000 Silver Coin = ^0000DD5^000000 Bronze Coins";
				next;
				mes "so, which type of conversion would you like to do?";
				next;
					switch(select("Silver Coin => Golden Coin:Bronze Coin => Silver Coin:Silver Coin => Bronze Coin:Golden Coin => Silver Coin:Nothing for now..."))
					{
				case 1:
						{
						mes "[Event Manager]";
						mes "How many ^0000DDSilver^000000 Coins you wish to exchange for ^0000DDGolden^000000 Coins?:";
						input #pas1;   
						next; 
							{if(#pas1 < 5 ) 
							goto noCoin;
							}
							{if(countitem(8051) < #pas1 ) 
							goto noCoin;
							}
							{ if(countitem(8051) >= #pas1)
							.@remainDiv = #pas1%5;
							.@remaindiv01 = #pas1 - .@remainDiv;
							delitem 8051,.@remaindiv01;
							mes " [Event Manager]";
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events, and you can win many Coins, and exchange with beautiful items.";
							.@remaindiv01 = .@remaindiv01/5;
							getitem 8050,.@remaindiv01;
							close;
							}
						}
				case 2:
						{
						mes "[Event Manager]";
						mes "How many ^0000DDBronze^000000 Coins you wish to exchange for ^0000DDSilver^000000 Coins?:";
						input #pas1;   
						next;
							{if(#pas1 < 5 ) 
							goto noCoin;
							}
							{if(countitem(8052) < #pas1 ) 
							goto noCoin;
							}
							{ if(countitem(8052) >= #pas1)
							.@remainDiv = #pas1%5;
							.@remaindiv01 = #pas1 - .@remainDiv;
							delitem 8052,.@remaindiv01;
							mes " [Event Manager]";
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events, and you can win many Coins, and exchange with beautiful items.";
							.@remaindiv01 = .@remaindiv01/5;
							getitem 8051,.@remaindiv01;
							close;
							}
						}
				case 3:
						{
						mes "[Event Manager]";
						mes "How many ^0000DDSilver^000000 Coins you wish to exchange for ^0000DDBronze^000000 Coins?:";
						input #pas1;   
						next;  
							{if(countitem(8051) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{ if(countitem(8051) >= #pas1)
							.@remaindiv01 = #pas1*5;
							delitem 8051,#pas1;
							mes " [Event Manager]";
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events, and you can win many Coins, and exchange with beautiful items.";
							getitem 8052,.@remaindiv01;
							close;
							}
						}
				case 4:
						{
						mes "[Event Manager]";
						mes "How many ^0000DDGolden^000000 Coins you wish to exchange for ^0000DDSilver^000000 Coins?:";
						input #pas1;   
						next;  
							{if(countitem(8050) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{ if(countitem(8050) >= #pas1)
							.@remaindiv01 = #pas1*5;
							delitem 8050,#pas1;
							mes " [Event Manager]";
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events, and you can win many Coins, and exchange with beautiful items.";
							getitem 8051,.@remaindiv01;
							close;
							}
						}
				case 5:
						{
						mes "[Event Manager]";
						mes "Ok, No problem.";
						next;
						goto Main;
						}
					}
				}
		case 3:
				{
				mes "[Event Manager]";
				mes "Don't worry about conversions. If an item can be obtained for 2 Golden Coins and you only have 10 Silve Coins will be used instead. Likewise, if you only have 1 Golden Coin for example, and the item you want is 2 Silve Coins, you will be given back 3 Silver Coins.";
				next;
				mes "[Event Manager]";
				mes "Very well, make your choice:";
				mes "^22AA22( Note that in this list, we have: GC = Golden Coins, SC = Silver Coins and BC = Bronze Coins )^000000";
				next;
					switch(select("1.[^ff0000"+500000+"^000000 Zeny for 1 ^22AA22BC^000000]:2.[^ff0000"+ 5 +"^000000 "+getitemname(8055)+" for 1 ^22AA22BC^000000]:3.[^ff0000"+ 5 +"^000000 "+getitemname(14232)+" for 1 ^22AA22SC^000000]:4.[^ff0000"+ 10 +"^000000 "+getitemname(13891)+" for 2 ^22AA22SC^000000]:5.[^ff0000"+ 10 +"^000000 "+getitemname(13892)+" for 2 ^22AA22SC^000000]:6.[^ff0000"+ 10 +"^000000 "+getitemname(13893)+" for 2 ^22AA22SC^000000]:7.[^ff0000"+ 10 +"^000000 "+getitemname(13894)+" for 2 ^22AA22SC^000000]:8.[^ff0000"+ 10 +"^000000 "+getitemname(8063)+" for 2 ^22AA22SC^000000]:9.[^ff0000"+ 10 +"^000000 "+getitemname(8064)+" for 2 ^22AA22SC^000000]:10.[^ff0000"+ 10 +"^000000 "+getitemname(8065)+" for 2 ^22AA22SC^000000]:Next page."))
					{
					case 1:
						mes "[Event Manager]";
						mes "Very well, how many BC would you like to exchange for Zeny? :";
							input #pas1;
							{if(countitem(8052) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{ if(countitem(8052) >= #pas1)
							delitem 8052,#pas1;
							.@zenValue = #pas1*100000;
							set Zeny,Zeny+.@zenValue;
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
							}
							close;
					case 2:
						mes "[Event Manager]";
						mes "Very well, how many BC would you like to exchange for "+getitemname(8055)+"?";
							input #pas1;
							.@item1 = #pas1;
							.@item2 = #pas1*5;
							{if(countitem(8052) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{ if(countitem(8052) >= #pas1)
							delitem 8052,.@item1;
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
							getitem 8055,.@item2;
							}
							close;
					case 3:
						mes "[Event Manager]";
						mes "Very well, how many SC would you like to exchange for "+getitemname(14232)+"?";
							input #pas1;
							.@item1 = #pas1;
							.@item2 = #pas1*5;
							{if(countitem(8051) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{if(#pas1 < 1)
							goto noCoin;
							}
							{ if(countitem(8051) >= #pas1)
							delitem 8051,.@item1;
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
							getitem 14232,.@item2;
							}
							close;
					case 4:
						mes "[Event Manager]";
						mes "Very well, how many SC would you like to exchange for "+getitemname(13891)+"?";
							input #pas1;
							.@item1 = #pas1;
							.@item2 = #pas1*5;
							{if(countitem(8051) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{if(#pas1 < 2)
							goto noCoin;
							}
							{ if(countitem(8051) >= #pas1)
							delitem 8051,.@item1;
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
							getitem 13891,.@item2;
							}
							close;
					case 5:
						mes "[Event Manager]";
						mes "Very well, how many SC would you like to exchange for "+getitemname(13892)+"?";
							input #pas1;
							.@item1 = #pas1;
							.@item2 = #pas1*5;
							{if(countitem(8051) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{if(#pas1 < 2)
							goto noCoin;
							}
							{ if(countitem(8051) >= #pas1)
							delitem 8051,.@item1;
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
							getitem 13892,.@item2;
							}
							close;
					case 6:
						mes "[Event Manager]";
						mes "Very well, how many SC would you like to exchange for "+getitemname(13893)+"?";
							input #pas1;
							.@item1 = #pas1;
							.@item2 = #pas1*5;
							{if(countitem(8051) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{if(#pas1 < 2)
							goto noCoin;
							}
							{ if(countitem(8051) >= #pas1)
							delitem 8051,.@item1;
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
							getitem 13893,.@item2;
							}
							close;
					case 7:
						mes "[Event Manager]";
						mes "Very well, how many SC would you like to exchange for "+getitemname(13894)+"?";
							input #pas1;
							.@item1 = #pas1;
							.@item2 = #pas1*5;
							{if(countitem(8051) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{if(#pas1 < 2)
							goto noCoin;
							}
							{ if(countitem(8051) >= #pas1)
							delitem 8051,.@item1;
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
							getitem 13894,.@item2;
							}
							close;	
					case 8:
						mes "[Event Manager]";
						mes "Very well, how many SC would you like to exchange for "+getitemname(8063)+"?";
							input #pas1;
							.@item1 = #pas1;
							.@item2 = #pas1*5;
							{if(countitem(8051) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{if(#pas1 < 2)
							goto noCoin;
							}
							{ if(countitem(8051) >= #pas1)
							delitem 8051,.@item1;
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
							getitem 8063,.@item2;
							}
							close;
					case 9:
						mes "[Event Manager]";
						mes "Very well, how many SC would you like to exchange for "+getitemname(8064)+"?";
							input #pas1;
							.@item1 = #pas1;
							.@item2 = #pas1*5;
							{if(countitem(8051) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{if(#pas1 < 2)
							goto noCoin;
							}
							{ if(countitem(8051) >= #pas1)
							delitem 8051,.@item1;
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
							getitem 8064,.@item2;
							}
							close;
					case 10:
						mes "[Event Manager]";
						mes "Very well, how many SC would you like to exchange for "+getitemname(8065)+"?";
							input #pas1;
							.@item1 = #pas1;
							.@item2 = #pas1*5;
							{if(countitem(8051) < #pas1 ) 
							goto noCoin;
							}
							{if(#pas1 == 0) 
							goto noCoin;
							}
							{if(#pas1 < 2)
							goto noCoin;
							}
							{ if(countitem(8051) >= #pas1)
							delitem 8051,.@item1;
							mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
							getitem 8065,.@item2;
							}
							close;	
					case 11:
						switch(select("1.[^ff0000"+500000+"^000000 Zeny for 1 ^22AA22BC^000000]:2.[^ff0000"+ 5 +"^000000 "+getitemname(8055)+" for 1 ^22AA22BC^000000]:3.[^ff0000"+ 5 +"^000000 "+getitemname(14232)+" for 1 ^22AA22SC^000000]:4.[^ff0000"+ 10 +"^000000 "+getitemname(13891)+" for 2 ^22AA22SC^000000]:5.[^ff0000"+ 10 +"^000000 "+getitemname(13892)+" for 2 ^22AA22SC^000000]:6.[^ff0000"+ 10 +"^000000 "+getitemname(13893)+" for 2 ^22AA22SC^000000]:7.[^ff0000"+ 10 +"^000000 "+getitemname(13894)+" for 2 ^22AA22SC^000000]:8.[^ff0000"+ 10 +"^000000 "+getitemname(8063)+" for 2 ^22AA22SC^000000]:9.[^ff0000"+ 10 +"^000000 "+getitemname(8064)+" for 2 ^22AA22SC^000000]:10.[^ff0000"+ 10 +"^000000 "+getitemname(8065)+" for 2 ^22AA22SC^000000]:Next page."))
						{
						case 1:
							mes "[Event Manager]";
							mes "Very well, how many BC would you like to exchange for Zeny? :";
								input #pas1;
								{if(countitem(8052) < #pas1 ) 
								goto noCoin;
								}
								{if(#pas1 == 0) 
								goto noCoin;
								}
								{ if(countitem(8052) >= #pas1)
								delitem 8052,#pas1;
								.@zenValue = #pas1*100000;
								set Zeny,Zeny+.@zenValue;
								mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
								}
								close;
						case 2:
							mes "[Event Manager]";
							mes "Very well, how many BC would you like to exchange for "+getitemname(8055)+"?";
								input #pas1;
								.@item1 = #pas1;
								.@item2 = #pas1*5;
								{if(countitem(8052) < #pas1 ) 
								goto noCoin;
								}
								{if(#pas1 == 0) 
								goto noCoin;
								}
								{ if(countitem(8052) >= #pas1)
								delitem 8052,.@item1;
								mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
								getitem 8055,.@item2;
								}
								close;
						case 3:
							mes "[Event Manager]";
							mes "Very well, how many SC would you like to exchange for "+getitemname(14232)+"?";
								input #pas1;
								.@item1 = #pas1;
								.@item2 = #pas1*5;
								{if(countitem(8051) < #pas1 ) 
								goto noCoin;
								}
								{if(#pas1 == 0) 
								goto noCoin;
								}
								{if(#pas1 < 1)
								goto noCoin;
								}
								{ if(countitem(8051) >= #pas1)
								delitem 8051,.@item1;
								mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
								getitem 14232,.@item2;
								}
								close;
						case 4:
							mes "[Event Manager]";
							mes "Very well, how many SC would you like to exchange for "+getitemname(13891)+"?";
								input #pas1;
								.@item1 = #pas1;
								.@item2 = #pas1*5;
								{if(countitem(8051) < #pas1 ) 
								goto noCoin;
								}
								{if(#pas1 == 0) 
								goto noCoin;
								}
								{if(#pas1 < 2)
								goto noCoin;
								}
								{ if(countitem(8051) >= #pas1)
								delitem 8051,.@item1;
								mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
								getitem 13891,.@item2;
								}
								close;
						case 5:
							mes "[Event Manager]";
							mes "Very well, how many SC would you like to exchange for "+getitemname(13892)+"?";
								input #pas1;
								.@item1 = #pas1;
								.@item2 = #pas1*5;
								{if(countitem(8051) < #pas1 ) 
								goto noCoin;
								}
								{if(#pas1 == 0) 
								goto noCoin;
								}
								{if(#pas1 < 2)
								goto noCoin;
								}
								{ if(countitem(8051) >= #pas1)
								delitem 8051,.@item1;
								mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
								getitem 13892,.@item2;
								}
								close;
						case 6:
							mes "[Event Manager]";
							mes "Very well, how many SC would you like to exchange for "+getitemname(13893)+"?";
								input #pas1;
								.@item1 = #pas1;
								.@item2 = #pas1*5;
								{if(countitem(8051) < #pas1 ) 
								goto noCoin;
								}
								{if(#pas1 == 0) 
								goto noCoin;
								}
								{if(#pas1 < 2)
								goto noCoin;
								}
								{ if(countitem(8051) >= #pas1)
								delitem 8051,.@item1;
								mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
								getitem 13893,.@item2;
								}
								close;
						case 7:
							mes "[Event Manager]";
							mes "Very well, how many SC would you like to exchange for "+getitemname(13894)+"?";
								input #pas1;
								.@item1 = #pas1;
								.@item2 = #pas1*5;
								{if(countitem(8051) < #pas1 ) 
								goto noCoin;
								}
								{if(#pas1 == 0) 
								goto noCoin;
								}
								{if(#pas1 < 2)
								goto noCoin;
								}
								{ if(countitem(8051) >= #pas1)
								delitem 8051,.@item1;
								mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
								getitem 13894,.@item2;
								}
								close;	
						case 8:
							mes "[Event Manager]";
							mes "Very well, how many SC would you like to exchange for "+getitemname(8063)+"?";
								input #pas1;
								.@item1 = #pas1;
								.@item2 = #pas1*5;
								{if(countitem(8051) < #pas1 ) 
								goto noCoin;
								}
								{if(#pas1 == 0) 
								goto noCoin;
								}
								{if(#pas1 < 2)
								goto noCoin;
								}
								{ if(countitem(8051) >= #pas1)
								delitem 8051,.@item1;
								mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
								getitem 8063,.@item2;
								}
								close;
						case 9:
							mes "[Event Manager]";
							mes "Very well, how many SC would you like to exchange for "+getitemname(8064)+"?";
								input #pas1;
								.@item1 = #pas1;
								.@item2 = #pas1*5;
								{if(countitem(8051) < #pas1 ) 
								goto noCoin;
								}
								{if(#pas1 == 0) 
								goto noCoin;
								}
								{if(#pas1 < 2)
								goto noCoin;
								}
								{ if(countitem(8051) >= #pas1)
								delitem 8051,.@item1;
								mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
								getitem 8064,.@item2;
								}
								close;
						case 10:
							mes "[Event Manager]";
							mes "Very well, how many SC would you like to exchange for "+getitemname(8065)+"?";
								input #pas1;
								.@item1 = #pas1;
								.@item2 = #pas1*5;
								{if(countitem(8051) < #pas1 ) 
								goto noCoin;
								}
								{if(#pas1 == 0) 
								goto noCoin;
								}
								{if(#pas1 < 2)
								goto noCoin;
								}
								{ if(countitem(8051) >= #pas1)
								delitem 8051,.@item1;
								mes "Thank you for choosing ^777777Rebirth-RO^000000 that luck be with you in future events.";
								getitem 8065,.@item2;
								}
								close;	
					}
				}
			}
		case 4:
				{
				mes "[Event Manager]";
				mes "Sure.";
				close;
				}
	noCoin:	{
		mes "[Event Manager]";
		mes "You don't have enough Coins.";
		close;
			}
}
}