//===== 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;
}