[RO] GM activate warp npc

// https://rathena.org/board/topic/107502-r-event-warper-with-random-chance/

prontera,155,175,5	script	event_warp	WARPNPC,2,2,{
	OnTouch:
		if ( rand(2) ) {
			warp "prontera",123,123;
		}
		else {
			warp "prontera",124,124;
		}
		end;
}

-	script	event_warp_main	-1,{

	OnInit:
		set .gm_level,99;
		set .warp_npc_name$,"event_warp";
		end;

	OnWhisperGlobal:
		if ( getgmlevel() ) {
			if ( @whispervar0$ == "on" ) {
				enablenpc .warp_npc_name$;
			}
			else if ( @whispervar0$ == "off" ) {
				disablenpc .warp_npc_name$;
			}
		}
		end;

}