/*//------------------------------------------------------------//
//----------------Edited by Lenya---------------------------------//
//------------------Ascension of Ragnarok---------------------------//
//--------------------Disguise Event NPC -----------------------------//
//-------------------------------------------------------------------//*/

prontera,151,176,4	script	Disguise CP		794,{

if (getgmlevel()<98)
{
	mes "^3399FF[Disguise CP]^000000";	
	mes "Sorry, du hast keine Berechtigung.";
	close;
}

mes "^3399FF[Disguise CP]^000000";	
mes "Hallo Boss,";
mes "Was möchtest du heute machen?";
switch(select("Event starten:Event stoppen:Anzahl der Runden kalkulieren[^E50000"+$guessrounds+"^000000]:Preis kalkulieren^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nichts"))
{
	case 1: 
	{
		next;
		mes "^3399FF[Disguise CP]^000000";
		mes "Bestätigen sie durch die Eingabe von START."; 
		input .@confirm$;          
		if (.@confirm$ == "START") 
		{
			donpcevent "guessAnnouncer::OnGMStart"; 
			close;
		}
		mes "Bestätigung fehlgeschlagen";
		close;
		break;
	}
	case 2:
	{
		next;
		mes "^3399FF[Disguise CP]^000000";
		mes "Bestätigen sie durch die Eingabe von STOP."; 
		input .@confirm$;          
		if (.@confirm$ == "STOP") 
		{
			donpcevent "guessAnnouncer::OnGMStop";
			close;
		}
		mes "Bestätigung fehlgeschlagen";
		close;
		break;
		
	}
	
	case 3:
	{
		next; mes "^3399FF[Disguise CP]^000000";
		mes "Bitte gib eine neue Nummer ein."; 
		input $guessrounds; 
		if ($guessrounds > 30) set $guessrounds, 30;
		else if ($guessrounds < 1) set $guessrounds, 1;
		close;
	}
	
	case 4:
	{
		next; mes "^3399FF[Disguise CP]^000000";
		mes "Bitte gib eine Preis ID ein."; 
		input .@guessprizeid; 
		if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000"; mes "Error"; mes "This item does not exist in the database..."; close;}
		set $guessprize, .@guessprizeid;
		next; mes "^3399FF[Disguise CP]^000000";
		mes "Bitte gib die Anzahl der Preise an."; 
		input .@guessprizeamount;
		if (!.@guessprizeamount) set .@guessprizeamount,1 ;
		set $guessprizecount,.@guessprizeamount; 
		next; mes "^3399FF[Disguise CP]^000000";
		mes "Der Preis wurde zu ^E50000 "+ getitemname($guessprize)+ "^000000 und die Menge ^E50000 " +$guessprizecount+"^000000";
		close;
	}
	
					
	case 5:
	{
		next; mes "^3399FF[Disguise CP]^000000";
		mes "Schönen Tag noch."; 
		close;
	}

}


}








geffen,119,73,4	script	Disguise NPC		794,{


announce "Weil Zealot einer Kleiner helper is", 0;
if (!$guessbegin)
{
	mes "^3399FF[Disguise NPC]^000000";
	mes "Das Disguise Event wird gleich beginnen.";
	close;
}
end;

OnStart:
	set $guessbegin, 1;
	set .DisguiseWon, 0;
	if (!$DisguiseRound)
	{
		npctalk "Okay, lasst uns anfangen!";
		sleep 4000;
		npctalk "Doch bevor es losgeht erkläre ich euch die Regeln.";
		sleep 4000;
		npctalk "Ich verwandle mich per Zufall in ein Monster.";
		sleep 4000;
		npctalk "Ihr müsst den Namen des Monsters erraten.";
		sleep 4000;
		npctalk "Dazu tippt ihr den Namen in den öffentlichen Chat ein.";
		sleep 4000;
		npctalk "Groß-und Kleinschreibung wird nicht beachtet.";
		sleep 4000;
		npctalk "Nun macht euch bereit";
		sleep 4000;
	}
	else if ($DisguiseRound < $guessrounds-1)
	{
		npctalk "Bereit machen für die nächste Runde.";
		setnpctimer 0;
		sleep 8000;
	}
	else
	{	
		npctalk "Letzte Runde!";
		sleep 4000;
		npctalk "Macht euch bereit!";
		sleep 4000;
	}

	do
	{
		set .@guessrepeat, 0;
		set $monster, 1000 + rand(1,950);
		for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1)
		{
			if ($monster == $Forbidden[.@k]) 
			{
				set .@guessrepeat, 1;
				break;
			}
		}
	}
	while (.@guessrepeat);
	setnpctimer 0;
	initnpctimer;
	setnpcdisplay "Disguise NPC",$monster;
	set $MonsterName$, strmobinfo(1,$monster);
	defpattern 1, "([^:]+):.*\\s"+$MonsterName$+"(.*)", "winround";
	activatepset 1;
	npctalk "Wie lautet mein Name?";
	sleep 3000;
	npcwalkto 102,103;
	sleep 2000;
	npcwalkto 102,99;
	end;
	
	OnTimer5000:
		if (!.DisguiseWon)
		{
			sleep 3000;
			npcwalkto 102,103;
			sleep 2000;
			npcwalkto 102,99;

			if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
		}
		end;


	OnTimer15000:
		if (!.DisguiseWon) 
		{
			sleep 3000;
			npcwalkto 102,103;
			sleep 2000;
			npcwalkto 102,99;
		}
		end;

	OnTimer25000:
		if (!.DisguiseWon) 
		{
			npctalk "Noch 10 Sekunden.";
			sleep 3000;
			npcwalkto 102,103;
			sleep 2000;
			npcwalkto 102,99;
		}
		end;

	OnTimer35000:
		if (!.DisguiseWon)
		{ 
			npctalk "Runde vorbei.";
			if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
			set $DisguiseRound, $DisguiseRound + 1;
			deletepset 1;
			sleep 5000;
			npctalk $MonsterName$ + " wäre die richtige Antwort.";
			sleep 6000;
			if ($DisguiseRound >= $guessrounds)
			{
				set $DisguiseRound, 0;
				sleep 5000;
				npctalk "Das Disguise Event ist vorbei.";
				sleep 6500;
				npctalk "Bis zum nächsten mal ~";
				sleep 2000;
				emotion 12;
				sleep 1000;
				set $guessactive, 0;
				mapwarp "poring_c01.gat","prt_vilg.gat",99,73;
				setnpcdisplay "Disguise NPC",794;
				disablenpc "Disguise NPC";
				end;
			}
			goto OnStart;
		}
		end;

	winround:
		setnpctimer 0;
		deletepset 1;
		set .DisguiseWon, 1;
		set $DisguiseRound, $DisguiseRound + 1;
		npctalk strcharinfo(0) + " hat meinen Namen erraten!";
		getitem $guessprize, $guessprizecount;
		sleep2 3000;
		npctalk $MonsterName$ + " ist die richtige Antwort.";
		if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
		if ($DisguiseRound >= $guessrounds)
			{
				set $DisguiseRound, 0;
				set $guessactive, 0;
				sleep 5000;
				npctalk "Das Disguise Event ist vorbei.";
				sleep 6500;
				npctalk "Bis zum nächsten mal ~";
				sleep 2000;
				emotion 12;
				sleep 1000;
				mapwarp "poring_c01.gat","prt_vilg.gat",99,73;
				setnpcdisplay "Disguise NPC",794;
				disablenpc "Disguise NPC";
				end;
			}
		sleep 5000;
		goto OnStart;
		end;

	

}

//-----------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------

-	script	guessAnnouncer	-1,{


OnGMStart:
	if ($guessactive) end;
	set $guessactive, 1;
	announce "Das Disguise Event wird gleich beginnen!",0;
	set $guessbegin, 0;
	sleep 5000;
	if (!$guessactive) end;
	announce "Um teilzunehmen musst du in den Warp Portal in Prontera Village eintreten",0;
	enablenpc "Disguise NPC";
	sleep 5000;
	announce "Rundenanzahl: "+$guessrounds,0;
	sleep 4000;
	announce "Preis: "+ getitemname($guessprize) + " x " + $guessprizecount,0;
	sleep 5000;
	if (!$guessactive) {disablenpc "Disguise NPC"; end;}
	announce "Das Portal schließt sich in einer Minute.",0;  
	sleep 60000;
	if (!$guessactive) {disablenpc "Disguise NPC"; end;}
	announce "Das Portal wurde geschlossen.",0;
	set $DisguiseRound, 0;
	sleep 5000;
	if (!$guessactive) {disablenpc "Disguise NPC"; end;}
	if(getmapusers("poring_c01") == 0) 
	{
		disablenpc "Disguise NPC";
		set $guessactive, 0;
		end;
	}

	donpcevent "Disguise NPC::OnStart";
	end;

OnGMStop:
		if ($guessactive)
		{
			set $guessactive, 0;
			announce "Das Disguise Event wurde angehalten.",0;
			set $DisguiseRound, 0;
			mapwarp "poring_c01.gat","prt_vilg.gat",99,73;
			setnpcdisplay "Disguise NPC",794;
			disablenpc "Disguise NPC";
		}
		end;


OnClock0100:
OnClock0300:
OnClock0500:
OnClock0700:
OnClock0900:
OnClock1100:
OnClock1300:
OnClock1500:
OnClock1700:
OnClock1833:
OnClock2000:
OnClock2205:
	if ($guessactive) end;
	set $guessactive, 1;
	announce "Das Disguise Event wird gleich beginnen!",0;
	set $guessbegin, 0;
	sleep 5000;
	if (!$guessactive) end;
	announce "Um teilzunehmen musst du in den Warp Portal in Prontera Village eintreten",0;
	enablenpc "Disguise NPC";
	sleep 5000;
	announce "Preis: "+ getitemname($guessprize) + " x " + $guessprizecount,0;
	sleep 5000;
	if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
	announce "Das Portal schließt sich in einer Minute.",0;
	sleep 60000;
	if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
	announce "Das Portal wurde geschlossen.",0;
	sleep 5000;
	if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
	announce "Das nächste Event findet in 2 Stunden statt.",0;
	set $DisguiseRound, 0;
	if(getmapusers("poring_c01") == 0) 
	{
		disablenpc "Disguise NPC";
		set $guessactive, 0;
		end;
	}

	donpcevent "Disguise NPC::OnStart";
	end;

OnInit:
	disablenpc "Disguise NPC";

	set $guessactive, 0;
	setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900,1948,1892,1949,1950,1983,1984,2010,1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,1210,1222,1223,1224,1225,1226,1227,1228,1233,1284,1407,1411,1414,1496,1501,1900,1996,2002,2003,2004,2005,2006,2007,2011,2012,2025,2028,2029,2030,2031,2032,2033,2034,2035,2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048,2049,2050,2051,2052,2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063,2064,2065,2066,2067,2075,2076,2077,2078,2079,2080,2081,2084,2093,2094,2095,2096,2097,2098,2099,2100,2101,2102,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113,2114,2115,2116,2117,2118,2119,2120,2121,2122,2123,2124,2125,1900,1901,1902,1903,1237,1239,1145,1175,1209,1841,1842,1843,1844,3014,3001,3002,2114,2115,2117,2118,2119,2120,6049,6050,6051,6052,2200,2205,2207;

}

//------------------Map Flags--------------------------------------------------------
poring_c01	mapflag	nowarpto
poring_c01	mapflag	noskill
poring_c01	mapflag	nosave
poring_c01	mapflag	nomemo
poring_c01	mapflag	noteleport
poring_c01	mapflag	nowarp
//-----------------------------------------------------------------------------------