prontera,147,174,6	script	Event Warper::event	721,{

OnWhisperGlobal:
callsub DisplayInfo;
if( !.status && getgmlevel() < .gmlevel ) close;
next;
switch( select( ( .status == 1 )?"Warp to Event":"",
		( .status )?"Turn OFF Event":"Turn ON Event",
		( getgmlevel() < .gmlevel || .status )?"":"Configuration",
		( getgmlevel() < .gmlevel || .status )?"":"Test Warp" ) ){

			Case 1:
				if( .novice_mode ){
					getinventorylist;
					if( Class && @inventorylist_count ){
						mes "Please store all your remaining "+@inventorylist_count+" items.";
						close;
					}else if( BaseLevel > 1 || JobLevel > 1 ){
						mes "Only a Novice with 1/1 can join";
						close;
					}
				}
				warp .map$,.x,.y;
				break;
			Case 2:
				set .status,!.status;
				mes "The Event Warper is now turned "+( ( .status )?"^009900ON":"FF0000OFF" )+"^000000.";
				if( .status ){
					announce "Event Manager : "+strcharinfo(0)+" host "+.event_name$+" soon!",bc_all;
					set .@when$,callfunc("makeTimestamp");
					query_sql( "INSERT INTO `event` VALUES ( NULL,'"+getcharid(3)+"','"+strcharinfo(0)+"','"+.event_name$+"','"+.map$ +"','"+.x +"','"+.y +"','"+.@when$+"' )" );
					callsub UpdateWaitingRoom;
				}else{
					announce ""+.event_name$+" is now over. Thank you for participating!",bc_all;
				}
				break;
			Case 3:
				do{
					callsub DisplayInfo;
					switch( select( "Event Name","Event Location",( .novice_mode )?"Novice Mode":"non-novice mode","Close" ) ){
						Case 1:
							mes "Enter Event Name :";
							input .event_name$;
							break;
						Case 2:
							mes "Enter Event Locations :";
							mes " > Mapname";
							do{
								input .map$;
							}while( getmapusers( .map$ ) < 0 );
							mes " > Coordinate X and Y";
							do{
								input .x;
								input .y;
							}while( checkcell( .map$,.x,.y,cell_chkpass ) );
							break;
						Case 3:
							set .novice_mode,!.novice_mode;
							mes "Novice Mode "+( ( .novice_mode )?"Enabled":"Disabled" );
						default: break;
					}
					next;
				}while( @menu != 4 );
				if( select("Test the WARP:Cancel") == 2 ) break;
			Case 4:
				warp .map$,.x,.y;
				end;
			default: break;
		}
close;

DisplayInfo:
	mes .eventwarper$;
	mes "Current State: "+( ( .status )?"^009900ON":"^FF0000OFF" )+"^000000";
	if( .status ){
		mes "^221122--------Current Settings:--------^000000";
		mes "Map: "+.map$+" "+.x+" "+.y;
		mes "Event: "+.event_name$;
	}
	return;

OnInit:
	set .eventwarper$,"[^3333FFEvent Warper^000000]";
	set .gmlevel,40;

UpdateWaitingRoom:
	delwaitingroom;
	if( .status )
		waitingroom "Event: "+.event_name$,0;
	end;
}