//===== Athena Script ========================================
//= Disguise Event NPC
//===== By: ==================================================
//= Masao
//===== Current Version: =====================================
//= 2.0
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
//= Disguise Event
//===== Additional Comments: =================================
//= Version 1.0 if there are any Bugs please let me know.
//= Version 2.0 Added multiple Rounds, better functionality
//= and check if already someone won the Round.
//============================================================

quiz_02,0,0,0	script	DisguiseAnnouncer	-1,{

OnClock0300:
OnClock0700:
OnClock1100:	
OnClock1500:
OnClock1900:
OnClock2300:
	set $@Monster,1000+rand(1,323);
	set $MonsterName$,getmonsterinfo($@Monster,0);
	set $@startdisguise,1;
	setnpcdisplay "Disguise Event",795;
	announce "The [Disguise Event] is starting now!",0;
	end;
}

quiz_02,305,245,4	script	Disguise Event	795,{

set .@npcname$,"[^0000FFDisguise NPC^000000]";

if (getgmlevel() >= 60) goto LDisguiseAdmin;
if ($@startdisguise==1) goto LDisguise;

	mes .@npcname$;
	mes "Hi, how can i help you?";
	next;
	menu "How does it work?",-,"Cancel.",LCancel;

	mes .@npcname$;
	mes "This is an very easy Event.";
	mes "At the beginning of the Event i will disguise myself into a randomly chosen Monster.";
	mes "After i've done that, you've to put the correct Name into the Box.";
	next;
	mes "If the name was correct, you win a Prize! if it was wrong, just try again ;)";
	mes "And that's it! Good luck.";
	close;
	
LCancel:
	close;

LDisguiseAdmin:
	mes .@npcname$;
	mes "^FF0000~Hi GM "+strcharinfo(0)+", what can i do for you?~^000000";
	switch(select("Start Event:End Event:Check Prize:Set Prizes:Rounds:Nothing")) {
case 1:
	next;
	mes .@npcname$;
	mes "Would you like to start the Event now?";
	switch(select("Yes:No")) {	
		case 1:
			next;
				set $@Monster,1000+rand(1,323);
				set $MonsterName$,getmonsterinfo($@Monster,0);
				set $@startdisguise,1;
				setnpcdisplay "Disguise Event",795;
				announce "The [Disguise Event] starts now in Comodo!",0;
				close;
		case 2:
			next;
			mes .@npcname$;
			mes "Ok, bye.";
			close;
	}

case 2:
	next;
	mes .@npcname$;
	mes "Would you like to End the Event now?";
	switch(select("Yes:No")) {
		case 1:
			next;
				set $@Monster,0;
				set $@Round,0;
				set $@startdisguise,0;
				setnpcdisplay "Disguise Event",795;
				announce "The [Disguise Event] has been ended by an GM! There will be no prizes!",0;
				close;				
		case 2:
			next;
			mes .@npcname$;
			mes "Ok, bye.";
			close;
	}

case 3:
	next;
	mes .@npcname$;
	mes "^FF0000~The current winning Prize is ^000000 ^008000"+$prize_item_amount+" "+getitemname($prize_item_id)+".^000000";
	next;
	goto LDisguiseAdmin;

case 4:
	next;
	mes .@npcname$;
	mes "^FF0000~What should the Prize be? Please insert the Item ID.~^000000";
	input $prize_item_id;
	next;
	mes .@npcname$;
	mes "^FF0000~Now the amount?~^000000";
	input $prize_item_amount;
	next;
	mes .@npcname$;
	mes "^FF0000~So, the Prize is^000000 ^008000"+$prize_item_amount+" "+getitemname($prize_item_id)+"^000000? ^FF0000Great.~^000000";
	emotion 33;
	next;
	goto LDisguiseAdmin;

case 5:
	next;
	mes .@npcname$;
	mes "Here you can set how many Rounds will be played each time the Event Starts";
	input $Rounds;
	next;
	mes "^FF0000~So, there will be ^FF0000"+$Rounds+" Rounds played.^000000";
	next;
	goto LDisguiseAdmin;

case 6:
	next;
	mes .@npcname$;
	mes "Ok, bye.";
	close;
}

LDisguise:
	mes .@npcname$;
	mes "Insert the correct Monstername ;)";
	input $@MonsterInput$;
	if ($@disguisewin==1) {
	mes "Someone already won this Round!!";
	close;
	}
	if($@MonsterInput$==$MonsterName$) goto LCorrect;
	if($@MonsterInput$!=$MonsterName$) goto LCancel;
	close;

LCorrect:
	announce ""+strcharinfo(0)+" won! I was disguised as: "+$MonsterName$+"",0;
	getitem $prize_item_id,$prize_item_amount;
	set $@Round,$@Round+1;
	set $@disguisewin,1;
	if ($@Round!=$Rounds) goto LRound;
	if ($@Round==$Rounds) goto LGameover;
	set $@startdisguise,0;
	setnpcdisplay "Disguise Event",795;
	close;

LRound:
	set $@Monster,1000+rand(1,323);
	set $MonsterName$,getmonsterinfo($@Monster,0);
	set $@disguisewin,0;
	setnpcdisplay "Disguise Event",$@Monster;
	close;

LGameover:
	set $@Round,0;
	set $@startdisguise,0;
	set $@disguisewin,0;
	setnpcdisplay "Disguise Event",795;
	npctalk "Thank you all for playing. That was the last round of the Disguise Event. See you next time.";
	close;
}