//Made by Karul
//==========Start/Announcer NPC
quiz_02,323,234,3	script	Satan Catcher Event	793,{

set .@name$,"^9932CC[Satan Catcher] ^000000";

if(getgmlevel() < 80) { 
	mes .@name$;
	mes "Sorry you are no Level 80 GM";
	close;
	} else {
	L_Main:
	mes .@name$;
	mes "What do you want to do?";
	switch(select("Item [" + getitemname($@SatanReward)  + "]:Start Event")) {
			case 1: next;
					mes .@name$;
					mes "What item do you want as the reward?";
					input $@SatanReward;
					next;
					mes .@name$;
					mes "How many of that item(s) do you want to give?";
					input $@SatanRewardItems;
					next;
					mes .@name$;
					mes "This is your amount:";
					mes ""+$@SatanRewardItems+"";
					next;
					goto L_Main;
			case 2: next;
					mes .@name$;
					mes "Starting Event...";
					close2;
					Announce "Satan Catcher Event is being held!",bc_all;
					sleep 5000;
					Announce "The warp portal has appeared in prontera!",bc_all;
					enablenpc "satanevent";
					initnpctimer;
					end;
					
					OnTimer30000:
							Announce "Thirty Seconds Have Passed By!",bc_all;
							sleep 5000;
							Announce "Hurry to Prontera if you want to join!",bc_all;
							end;
							
					OnTimer40000:
							Announce "Twenty seconds left!",bc_all;
							end;
							
					OnTimer50000:
							Announce "Ten seconds left!",bc_all;
							end;
							
					OnTimer55000:
							Announce "5!",bc_all;
							sleep 1000;
							Announce "4!",bc_all;
							sleep 1000;
							Announce "3!",bc_all;
							sleep 1000;
							Announce "2!",bc_all;
							sleep 1000;
							Announce "1!",bc_all;
							sleep 1000;
							Announce "0!",bc_all;
							sleep 1000;
							disablenpc "satanevent";
							donpcevent "Rewarder::OnEnable";
							stopnpctimer;
							end;
		}
	}
OnInit:
        disablenpc "satanevent";
        hideonnpc "Rewarder";
}

//=================Warp NPC
prontera,155,180,0	warp	satanevent	1,1,poring_w01,102,113

//=================Reward NPC
poring_w01,100,127,5	script	Rewarder	793,{

set .@sname$,"[Rewarder]";

	mes .@sname$;
	if(.@SATAN == 1) goto L_SATAN;
	mes "Please tell me your name.";
	next;
	input .@charname$;
	if(.@charname$ != strcharinfo(0)) {
		mes .@name$;
		mes "Are you sure that is your character name?";
		close;
	}
	mes .@name$;
	mes "Congratulations You Have Won!";
	Announce "Congratulations to " + .@charname$ + "! He / She has won " + $@SatanRewardItems + " " + getitemname($@SatanReward)  + "(s)!",bc_all;
	getitem $@SatanReward,$@SatanRewardItems;
	atcommand "@go 0";
	hideonnpc "Rewarder";
	end;
	
L_SATAN:
	mes .@sname$;
	mes "Please tell me your name";
	next;
	input .@charname$;
	if(.@charname$ != strcharinfo(0)) {
		mes .@name$;
		mes "Are you sure that is your character name?";
		close;
	}
	mes .@name$;
	mes "Congratulations You Have Won!";
	Announce "Congratulations to " + .@charname$ + "! He / She has won " + $@SatanRewardItems + " " + getitemname($@SatanReward)  + "(s)!",bc_all;
	getitem $@SatanReward,$@SatanRewardItems;
	set SATAN,0;
	atcommand "@go 0";
	hideonnpc "Rewarder";
	end;
	
OnEnable:
	set .@aname$,"[Rewarder]";
	
	mapannounce "poring_w01","" + .@aname$ + ": I will be summoning 100 different kinds of Satan Morroc.",16;
	sleep 5000;
	mapannounce "poring_w01","" + .@aname$ + ": Only one of these Satan Morrocs are the real one.",16;
	sleep 5000;
	mapannounce "poring_w01","" + .@aname$ + ": The correct one will be called 'Satan Morroc'.",16;
	sleep 5000;
	mapannounce "poring_w01","" + .@aname$ + ": Kill the wrong one, you're out. Kill the right one, you win.",16;
	sleep 5000;
	mapannounce "poring_w01","" + .@aname$ + ": Now let's play!",16;
	goto L_Start;
	end;

L_Start:
	set .@aname$,"[Rewarder]";

	mapannounce "poring_w01","" + .@aname$ + ": 5!",16;
	sleep 1000;
	mapannounce "poring_w01","" + .@aname$ + ": 4!",16;
	sleep 1000;
	mapannounce "poring_w01","" + .@aname$ + ": 3!",16;
	sleep 1000;
	mapannounce "poring_w01","" + .@aname$ + ": 2!",16;
	sleep 1000;
	mapannounce "poring_w01","" + .@aname$ + ": 1!",16;
	sleep 1000;
	mapannounce "poring_w01","" + .@aname$ + ": GO!",16;
	sleep 1000;
	areamonster "poring_w01",84,119,121,90,"Satan Morroc",3031,1,"satanwin::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Satanic Morroc",3031,10,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Satan Moroc",3031,10,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Satan Morocc",3031,10,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Satin Mrroc",3031,10,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"I am Satan Morroc",3031,5,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Corrom Natas",3031,1,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"SaTaN MoRrOc",3031,1,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Sattan Morroc",3031,1,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Say Ten More Rocks",3031,10,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Satan of the Morroc",3031,10,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Morroc's Satan",3031,10,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"S4t4n M0rr0c",3031,10,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Saten Morroc",3031,10,"satanlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Stan Morrc",3031,1,"satanlose::OnMobKilled";
	end;
}

//========Killed the right one
-	script	satanwin	-1,{

	set .@aname$,"[Rewarder]";

OnMobKilled:
	dispbottom "Satan Morroc: ASDFGHJKL; You found me.";
	set .@SATAN,1;
	atcommand "@doommap";
	killmonster "poring_w01","All";
	mapannounce "poring_w01","" + .@aname$ + " Come to me and tell me your name.",16;
	hideoffnpc "Rewarder";
	end;
}

//========Killed the wrong one
-	script	satanlose	-1,{

OnMobKilled:
	dispbottom "Satan Morroc: ASDFGHJKL; You haven't found my twin!";
	atcommand "@go 0";
	end;
}

// -- Mapflags (If Wanted)
poring_w01	mapflag	nowarp
poring_w01	mapflag	nowarpto
poring_w01	mapflag	noteleport
poring_w01	mapflag	nosave
poring_w01	mapflag	nomemo
poring_w01	mapflag	nobranch
poring_w01	mapflag	noloot
poring_w01	mapflag	noskill
poring_w01	mapflag	nopenalty