//===== eAthena Script =======================================
//= War Of Rune
//===== By: ==================================================
//= WanMan or Katazui or Kaji
//===== Server ==============================================
//= For lightrogaming-network.tk
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= War of Rune is for Party of 10
//===== Additional Comments: =================================
//= Starts Every 2 Hours
//= Edit Lines 144 and 34
//============================================================
-	script	WoR#disable	-1,{

OnInit:
	disablenpc "War of Rune#WoR";
	disablenpc "War of Rune#banker";
	end;
}

-	script	WoRannouncer	-1,{
L_play:
OnHour2:
	pvpoff "guild_vs1";
	killmonsterall "guild_vs1";
	announce "WoR: Hello! It's time again for War of Rune (AKA: WoR)",0;
	sleep2 10000;
	announce "WoR: Please Register and talk to me in Prontera!",0;
	sleep2 10000;
	announce "WoR: I will not let anyone register after 1 minute. Prize will be <PRIZE AMOUNT> <PRIZE>.",0;
	hideonnpc "War of Rune#WoR";
OnMinute1:
	announce "WoR: Closed. Next Round is in 2 Hours.",0;
	hideoffnpc "War of Rune#WoR";
	donpcevent "War of Rune#banker::L_playwor";
	end;
}


prontera,147,167,6	script	War of Rune#WoR	753,{
	mes "[War of Rune]";
	mes "Hello!";
	mes "Would you like to register for ^FF0000 War of Rune ^000000?";
	menu "Sure",L_yes,"No Thanks",L_close,"Information",L_info;
	L_info:
		next;
		mes "Script Made by: GM Katazui";
		next;
		mes "[War of Rune]";
		mes "Well, you need a Party of 10. And another Party of 10.";
		mes "All you have to do is Kill the each other.";
		mes "Last Party standing, Wins.";
		mes "Would you like to register?";
		menu "Sure",L_yes,"No Thanks",L_close;
	L_yes:
		next;
		mes "[War of Rune]";
		mes "Okay. You need a Party of 10.";
		mes "Also, make sure you have another party of 10.";
		mes "Just make sure you have a party of 10 yourself.";
		mes "Do you have a party of 10?";
		menu "Yup",L_p10,"Umm... I need to re-count",L_close;
		L_p10:
			getpartymember getcharid(1);
			set .@partymembercount, $@partymembercount;
			if(.@partymembercount == 10) goto L_p11;
			if(.@partymembercount > 10) goto L_more;
			next;
			mes "[War of Rune]";
			mes "You are not in a Party of 10...";
			next;
			close;
			end;


L_close:
	next;
	mes "[War of Rune]";
	mes "Okay, Come back later!";
	next;
	close;
	end;
L_p11:
	next;
	mes "[War of Rune]";
	mes "Alrightly!";
	mes "Please wait till the other people comes to the WoR.";
	next;
	warpparty "guild_vs1",50,50,getcharid(1);
	end;
L_more:
	next;
	mes "[War of rune]";
	mes "What?! You have more than 10! Are you trying to cheat?";
	next;
	close;
	end;

}

guild_vs1,50,57	script	War of Rune#banker	753,{
	mes "[War of Rune]";
	mapannounce "guild_vs1","WoR: You won. Tell me you Party Name. 1 Person only or you will error.",0;
	mes "Input Party Name";
	input .@name$;
	if(.@name$ != strcharinfo(1)) {
	mes "[War of Rune]";
	mes "Are you sure thats your Party's name?";
	close;
	}
	mes "[War of Rune]";
	mes "Congrats. You've won.";
	next;
	mes "[War of Rune]";
	mes "Congrats";
	close2;
	announce "WoR: "+.@name$+" has won the War of Rune! Congrats!",0;
	hideoffnpc "War of Rune#banker";
	mapannounce "guild_vs1","WoR: To get your prize please kill 1 Poring. If you don't kill it after 1 minute. You will not get your prize.",0;
	monster guild_vs1,0,0,"Prize",1002,150,"prize::OnMobKilled";
OnMinute1:
	warpparty "prontera",150,150,getcharid(1);
	donpcevent "WoRannouncer::L_play";
	end;
//playTime
L_playwor:
	mapannounce "guild_vs1","WoR: Welcome to WoR!",0;
	sleep2 10000;
	mapannounce "guild_vs1","WoR: It's Simple... All you have to do it kick each other asses.",0;
	sleep2 10000;
	mapannounce "guild_vs1","WoR: You may use Ygg Berrys, and make sure you buff up...",0;
	sleep2 10000;
	mapannounce "guild_vs1","WoR: If one of your Party mates dies, and the rest wins. The one who dies doesn't get the prize.",0;
	sleep2 10000;
	mapannounce "guild_vs1","WoR: Please! One Person talk to me or you Will Error! ONLY IF YOR PARTY WINS!",0;
	sleep2 10000;
	mapannounce "guild_vs1","WoR: Okay... That's that....",0;
	sleep2 10000;
	mapannounce "guild_vs1","WoR: Ready... Set...",0;
	sleep2 10000;
	mapannounce "guild_vs1","WoR: FIGHT!!!",0;
	pvpon "guild_vs1";
	goto L_if;
L_if:
	if (getmapusers("guild_vs1") <= 10) goto L_champ;
	if (getmapusers("guild_vs1") == 0) goto L_no1;
	sleep2 50000;
	mapannounce "guild_vs1","WoR: Reminder! One Person talk to me or You will ERROR!",0;
	goto L_if;
	end;
L_no1:
	announce "WoR: Aww! No one won! Or No one joined... What a Pity.",0;
	donpcevent "WoRannouncer::L_play";
	end;
L_champ:
	hideonnpc "War of Rune#banker";
	mapannounce "guild_vs1","WoR: Come to me and tell me your party. 1 Person talk to me or Error.",0;
	end;
}

-	script	prize	-1,{
OnMobKilled:
	warp prontera,150,150;
	getitem <PRIZE ID>,<PRIZE AMOUNT>;
	end;

}

guild_vs1	mapflag	nowarp
guild_vs1	mapflag	nowarpto
guild_vs1	mapflag	noteleport
guild_vs1	mapflag	nosave
guild_vs1	mapflag	nomemo
guild_vs1	mapflag	nobranch