//===== eAthena Unofficial Script ===========================================
//= Event Warper
//===== By: =================================================================
//= rad417
//===== Current Version: ====================================================
//= 2.2
//===== Tested With: ====================================================
//= Trunk, SVN 13366+
//===== Description: ========================================================
//= Warps players to event place
//===== Additional Comments: ================================================
//= For revisions, see the change log!
//= 1.0 Script created
//= 1.1 Added Test Warp for GMs 
//= 1.2 Added status PUB.
//= 2.0 Implemented an ON and OFF system and an indicator(PUB and npc),
//=     also started with remote funtions, but failed to implement
//=2.1 Added the line "sc_end SC_ALL;" for debuff upon warping :D (tnx ~AnnieRuru~, i read one of your post about this :D )
//=2.2 Finally implemented the remote function :D 
//===========================================================================

prontera,155,174,4	script	Event Warper	939,{

if (getgmlevel()>=80){
check:
	if($state==0) goto off;
	else goto on;
	close;
//--------------STATE: OFF----------------------------------------------------
off:
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Event NPC State: ^FF0000OFF^000000";
	mes "^221122--------Current Settings:--------^000000";
	mes "Map: "+$map$+" "+$x+" "+$y;
	mes "Event: "+$event$;
	//mes "For remote commands:"; not yet implemented
	//mes "PM ^FF0000NPC:Event Warper^000000";
	menu "Nothing",noon,"Turn ON",yeson,"Set Event Warp.",setplace,"Warp",yeswarp;

yeson:
	set $state,1;
	next;
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Ok it is now turned ^009900ON^000000.";
	delwaitingroom;
	waitingroom "Event: "+$event$,0;
	next;
	goto check;

noon:
	next;
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Ok bye!";
	close;

//--------------STATE: ON----------------------------------------------------
on:
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Event NPC State: ^009900ON^000000";
	mes "^221122--------Current Settings:--------^000000";
	mes "Map: "+$map$+" "+$x+" "+$y;
	mes "Event: "+$event$;
	//mes "For remote commands:";
	//mes "PM ^FF0000NPC:Event Warper^000000";
	menu "Nothing",nooff,"Turn OFF",yesoff,"Set Event Warp.",setplace,"Warp",yeswarp;

yesoff:
	set $state,0;
	next;
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Ok it is now turned ^FF0000OFF^000000.";
	delwaitingroom;
	waitingroom "No Event.",0;
	next;
	goto check;

nooff:
	next;
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Ok bye!";
	close;

setplace:
	next;
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "You can set the event place here for easy access to players.";
	mes "Set it?";
	menu "Yes",yes,"No.",no;

yes:
	next;
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Just make sure you have the right coordinates.";
	mes "It should be map x-coordinate y coordinate";
	next;
change:
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Enter map name";
	mes "example: prontera";
	input $map$;
	next;
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Enter the x-coordinate:";
	mes "example: 150";
	input $x;
	next;
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Enter the y-coordinate:";
	mes "example: 150";
	input $y;
	next;
	mes "That is "+$map$+" "+$x+" "+$y+" right?";
	menu "Yes.",-,"Let me change it.",change;
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Enter the Name of the EVENT:";
	mes "example: RFYL";
	input $event$;
	next;
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Ok, I will warp the contestants there.";
	close;
no:
	mes "[^3333FFAphoticRO Event Warper^000000]";
	mes "Ok. Bye.";
	close;
}

//----------------------Normal Player---------------------------------
else{
	if($state<=0){
		mes "[^3333FFAphoticRO Event Warper^000000]";
		mes "Sorry. No events at this time.";
		emotion 17;
		close;
	}
	else{
		emotion 21;
		mes "[^3333FFAphoticRO Event Warper^000000]";
		mes "There is an active event!";
		mes "Do you want to go to the event place?";
		menu "Yes, please.",yeswarp,"No, thanks.",nowarp;
yeswarp:
	atcommand "@warp "+$map$+" "+$x+" "+$y;
	sc_end SC_ALL;
	end;
nowarp:
	close;
}}

//---------------------remote functions-------------------------NOTE: Not yet functional------------------------------
OnWhisperGlobal:
	if (@whispervar0$=="|00On") {goto remoteon; close;}
	if (@whispervar0$=="|00Off"){goto remoteoff; close;}
	else dispbottom "Invalid syntax, you typed '"+@whispervar0+"'? you can only type On or Off.";
	end;

remoteon:
	set $state,1;
	dispbottom "Ok it is now turned ON.";
	delwaitingroom;
	waitingroom "Event: "+$event$,0;
	end;

remoteoff:
	set $state,0;
	dispbottom "Ok it is now turned OFF.";
	delwaitingroom;
	waitingroom "No Event.",0;
	end;

OnInit:
	set $state,0;
	delwaitingroom;
	waitingroom "No Event.",0;
	end;
}