//\:
//1.uWGMWżs
//2.uWקwɤi
//3.ɶ󤽧i(̦h4خɶ)
//4.˵aϽuW,
//5.޲zNPCM}Ҩƥ
//6.ϰǰea,
//7.wɴi,
//==========================//
//==========================//
//|}Wr:GM~            |
//|:1.3                   |
//|@(BY):Akor              |
//|Ӧ:http://xwro.vicp.net  |
//==========================//
//$testggao: `ɶP_ 
//$tesuggao$:SGe
//$ggnian:	~O
//$ggyue:O
//$ggri: O
//$ggxingqi:PO
//$ggitem: ɰO

sec_in01,89,181,3	script	obGM޲zM	721,{
	set @zhd,1;//wqҤk
	if(@zhd==1)goto Lsa;//~
	if(@zhd==2)goto Lsb;//HWr
	if(@zhd==3)goto Lsc;//t.
	goto Lnow;
//~P_覡
Lsa:	if(countitem(30002)>=1)goto Lgmda;
	goto Lnow; 
//HWrP_覡
Lsb:	if((strcharinfo(0)=="GM01")||(strcharinfo(0)=="GM02"))goto Lgmda;
	goto Lnow;
//KXP_覡
Lsc:	mes "Jt";
	input @dasd$;	if(@dasd$=="dathenagmgl")goto Lgmda;
	goto Lnow;
Lnow:	mes "[obGM޲zM]";
	emotion 6;//
	mes "zdd~̨참WrsobGM޲zM~";
	mes "ObIڤF~AMڥAAHH";
	mes "OnAIڤFAvvo";
	close;
	end;
Lgmda:
	mes "[obGM޲zM]";
	mes "wiJGMU޲z{";
	mes "пܧAݭnA~";
	mes "(Wżs:Akors@)";
	mes "1.s,2˵,3.NPCPƥ޲z,4.WŶǰe,j4Ϊ0";
	next;
	input @fdds; //JƦr
	if((@fdds<=0)||(@fdds>=5))close;
	if(@fdds==1)goto Ljshfok;
	if(@fdds==2)goto Look;
	if(@fdds==3)goto Lnpcgm;
	if(@fdds==4)goto Lwarp;
	end;

//==========================d========================================================
Look:
	mes "[obGM޲zM]";
	mes "ܧAn˵";
	next;
	menu "bup",deidw,"۩wqa˵",Ldemap,"^",Lgmda;
deidw:
	mes "ewԦaϦe@"+getmapusers("prontera")+"H"; 
	mes "e̾|w̦aϦe@"+getmapusers("izlude")+"H";
	mes "eNaϦe@"+getmapusers("geffen")+"H";
	mes "eùJaϦe@"+getmapusers("morocc")+"H";
	mes "eaϦe@"+getmapusers("payon")+"H";
	mes "e㺸yaϦe@"+getmapusers("alberta")+"H";
	mes "eJ]qaϦe@"+getmapusers("aldebaran")+"H";
	mes "eX[aϦe@"+getmapusers("comodo")+"H";
	mes "eѬzaϦe@"+getmapusers("gonryun")+"H";
	mes "e׿զaϦe@"+getmapusers("amatsu")+"H";
	mes "eHaϦe@"+getmapusers("yuno")+"H";
	mes "e櫰aϦe@"+getmapusers("umbala")+"H";
	mes "eaϦe@"+getmapusers("xmas")+"H";
	mes "e`aϦe@"+getmapusers("niflheim")+"H";
	mes "ejaϦe@"+getmapusers("glast_01")+"H";
	next;
	menu "bup",deidw,"۩wqa˵",Ldemap,"^",Lgmda;
Ldemap:
	mes "JA۩wqdݪaϪW,Ů欰,榡p:prontera";
	next;
	input @masp$;
	if(@masp$==" ")close;
	mes "e"+@masp$+"@"+getmapusers(@masp$)+"H";
	next;
	menu "bup",deidw,"۩wqa˵",Ldemap,"^",Lgmda;

//NPCƥ޲z
Lnpcgm:		mes "ܪA";		next;	menu "wNPC",Loff,"}ҫwNPC",Lon,"}Ҩƥ",Ldoevent,"^\",Lgmda;
Loff:		mes "JNPCWr";	input @npcon$;	mes "\!!";	disablenpc @npcon$;	close;	end;
Lon:		mes "JNPCWr";	input @npcon$;	mes "}Ҧ\!!";	enablenpc @npcon$;	close;	end;
Ldoevent:
	mes "JƥWr";
	input @doe$; //}
	mes "}Ҩƥ󦨥\!";
	doevent @doe$;
	close;
	end;

//=================s==========================================================
Ljshfok:
	mes "[obGM޲zM]";
	mes "wӨs!";
	mes "ܧAA!";
	next;
	set @string1$,0;
	set @string2$,0;
	set @string2$,0;
	set @string3$,0;
	set @string4$,0;
	set @string5$,0;
	set @string6$,0;
	set @string7$,0;
	set @string8$,0;
	set @string9$,0;
	set @string10$,0;//MWJO
	menu "WŧYɼs",Ljshf,"wɼs",ldey,"Swɼs",LtesjhB,"D\",Lgmda;

//===============Wżs
Ljshf:	set @ldey,1;	mes "GMWŧYɼs}l,пJe";	goto Ldsd;
Lgmok:
	announce "===================G=M=W==s======eɶO:"+gettimestr("%Y-%m/%d %H:%M:%S",19)+"===================",17;
	announce @string1$+@string2$+@string3$+@string4$+@string5$+@string6$+@string7$+@string8$+@string9$+@string10$,17;
	announce "========================================================================================",17;
	mes "T\oG";
	set @ldey,0;
	next;
	menu "",-,"",Lgmok,"g",Ljshf,"^",Ljshfok;
	close;
	end;
//wɼs--------------------------
ldey:	mes "GM wɤiק}l";
Ldsd:
	if((@ldey==0)&(@xjda==0))mes "ewɤieO:"+$ggao$+"";
	if(@ldey==1)mes "eSie:"+$tesuggao$+"";
	mes "ЪŮ?̦h10";
	input @string1$;
	next;
	mes "Jw:"+@string1$+".ثe2.̦h10";
	if(@string1$==" ")set @sa$,@string1$;
	if(@string1$==" ")goto Lokgg;//pG@string1$OŮN
	input @string2$;
	next;
	mes "Jw:"+@string1$+@string2$+".ثe3.̦h10";
	if(@string2$==" ")set @sa$,@string1$+@string2$;
	if(@string2$==" ")goto Lokgg;
	input @string3$;
	next;
	mes "Jw:"+@string1$+@string2$+@string3$+".ثe4.̦h10";
	if(@string3$==" ")set @sa$,@string1$+@string2$+@string3$;
	if(@string3$==" ")goto Lokgg;
	input @string4$;
	next;
	mes "Jw:"+@string1$+@string2$+@string3$+@string4$+".ثe5.h10";
	if(@string4$==" ")set @sa$,@string1$+@string2$+@string3$+@string4$;
	if(@string4$==" ")goto Lokgg;
	input @string5$;
	next;
	mes "Jw:"+@string1$+@string2$+@string3$+@string4$+@string5$+".ثe6.̦h10";
	if(@string5$==" ")set @sa$,@string1$+@string2$+@string3$+@string4$+@string5$;
	if(@string5$==" ")goto Lokgg;
	input @string6$;
	next;
	mes "Jw:"+@string1$+@string2$+@string3$+@string4$+@string5$+@string6$+".ثe7.̦h10";
	if(@string6$==" ")set @sa$,@string1$+@string2$+@string3$+@string4$+@string5$+@string6$;
	if(@string6$==" ")goto Lokgg;
	input @string7$;
	next;
	mes "Jw:"+@string1$+@string2$+@string3$+@string4$+@string5$+@string6$+@string7$+".ثe8.̦h10";
	if(@string7$==" ")set @sa$,@string1$+@string2$+@string3$+@string4$+@string5$+@string6$+@string7$;
	if(@string7$==" ")goto Lokgg;
	input @string8$;
	next;
	mes "Jw:"+@string1$+@string2$+@string3$+@string4$+@string5$+@string6$+@string7$+@string8$+".ثe9.̦h10";
	if(@string8$==" ")set @sa$,@string1$+@string2$+@string3$+@string4$+@string5$+@string6$+@string7$+@string8$;
	if(@string8$==" ")goto Lokgg;
	input @string9$;
	next;
	mes "Jw "+@string1$+@string2$+@string3$+@string4$+@string5$+@string6$+@string7$+@string8$+@string9$+".ثe10.̦h10";
	if(@string9$==" ")set @sa$,@string1$+@string2$+@string3$+@string4$+@string5$+@string6$+@string7$+@string8$+@string9$;
	if(@string9$==" ")goto Lokgg;
	input @string10$;
Lokgg:
	if(@xjda==1)goto Ltesjhok;
	menu "Twק",Ldiyego,"sӹL",ldey,"",-;
	close;
Ldiyego:
	if(@ldey!=0)goto Lgmok;
	mes "ק令\!!";
	set $ggao$,@sa$;
	close;
//------------קSi------------------------------

LtesjhB:	set $tesuggao$,0;	set $testggao,0;	set $ggnian,0;	set $ggyue,0;	set $ggri,0;	set $ggxingqi,0;	set $ggitem,0;
Ltesjh:
	set @dsas,@dsas+1;
	mes "Siק}l.пJwھڮɶ.eɶO:" + gettimestr("%Y-%m/%d %H:%M:%S",19);
	mes "^FF0000 eܲ"+@dsas+"ӮɶP_,̦hu|,^000000 ";
	next;
	menu "",Lnwe4,"~",Lnianfen,"",Lyuefen,"l",Lrizi,"P",Lxingqi,"",Lshiqi,"MPSi",Lallre,"^",Ljshfok;
Lnianfen:
	mes "пJ~(1900HW)";
	input $ggnian;
	if($ggnian<1900)goto Lnianfen;
	set $testggao,$testggao+95;
	if(@dsas==4)goto Lnwe4;
	goto Ltesjh;
Lyuefen:
	mes "пJ(1~12)";
	input $ggyue;
	if($ggyue<=0)goto Lyuefen;
	if($ggyue>=13)goto Lyuefen;
	set $testggao,$testggao+47;
	if(@dsas==4)goto Lnwe4;
	goto Ltesjh;
Lrizi:
	mes "пJl(1~31)";
	input $ggri;
	if($ggri<=0)goto Lrizi;
	if($ggri>=32)goto Lrizi;
	set $testggao,$testggao+23;
	if(@dsas==4)goto Lnwe4;
	goto Ltesjh;
Lxingqi:
	mes "пJP(1~12)";
	input $ggxingqi;
	if($ggxingqi<=0)goto Lxingqi;
	if($ggxingqi>=32)goto Lxingqi;
	set $testggao,$testggao+11;
	if(@dsas==4)goto Lnwe4;
	goto Ltesjh;
Lshiqi:
	mes "пJɶ(0~23)";			
	input $ggitem;
	if($ggitem<=-1)goto Lshiqi;
	if($ggitem>=23)goto Lshiqi;
	set $testggao,$testggao+1;
	if(@dsas==4)goto Lnwe4;
	goto Ltesjh;
Lnwe4:
	set @dsas,0;
	menu "Twק",-,"sӹL",Ltesjh;
	mes "JSe";
	set @xjda,1;
	mes "קSi}l!!";
	goto Ldsd;
Lallre:
	set $testggao,0;
	set $tesuggao$,0;
	set $ggnian,0;
	set $ggyue,0;
	set $ggri,0;
	set $ggxingqi,0;
	set $ggitem,0;
	mes "M\!!";
	close;
	end;
Ltesjhok:
	menu "Twק",-,"sӹL",ldey;
	mes "ק令\!!";
	set $tesuggao$,@sa$;
	close;
	end;

// CӤpɪ
OnMinute00:
	announce "===================G=M=w===i=====eɶO:"+gettimestr("%Y-%m/%d %H:%M:%S",19)+"===================",15;
	announce $ggao$,15;
	announce "========================================================================================",15;
//==================P_SOƥ==========================================
	if($testggao==0)end;
	if($testggao==1)goto L1;
	if($testggao==11)goto L11;
	if($testggao==23)goto L23;
	if($testggao==47)goto L47;
	if($testggao==95)goto L95;
	if($testggao==142)goto L142;
	if($testggao==118)goto L118;
	if($testggao==106)goto L106;
	if($testggao==97)goto L97;
	if($testggao==70)goto L70;
	if($testggao==58)goto L58;
	if($testggao==49)goto L49;
	if($testggao==34)goto L34;
	if($testggao==12)goto L12;
	if($testggao==24)goto L24;
	if($testggao==165)goto L165;
	if($testggao==153)goto L153;
	if($testggao==143)goto L143;
	if($testggao==129)goto L129;
	if($testggao==119)goto L119;
	if($testggao==107)goto L107;
	if($testggao==71)goto L71;
	if($testggao==59)goto L59;
	if($testggao==81)goto L81;
	if($testggao==166)goto L166;
	if($testggao==154)goto L154;
	if($testggao==176)goto L176;
	if($testggao==82)goto L82;
	end;
//@ӿ
L1:			if(gettime(3)!=$ggitem)end;				goto Ltesko;
L11:		if(gettime(4)!=$ggxingqi)end;			goto Ltesko;
L23:		if(gettime(5)!=$ggri)end;					goto Ltesko;
L47:		if(gettime(6)!=$ggyue)end;				goto Ltesko;
L95:		if(gettime(7)!=$ggnian)end;				goto Ltesko;
//Gӿ
L142:	if((gettime(7)!=$ggnian)||(gettime(6)!=$ggyue))end;	goto Ltesko;
L118:	if((gettime(7)!=$ggnian)||(gettime(5)!=$ggri))end;	goto Ltesko;
L106:	if((gettime(7)!=$ggnian)||(gettime(4)!=$ggxingqi))end;	goto Ltesko;
L97:	if((gettime(7)!=$ggnian)||(gettime(3)!=$ggitem))end;	goto Ltesko;
L70:	if((gettime(6)!=$ggnian)||(gettime(5)!=$ggri))end;	goto Ltesko;
L58:	if((gettime(6)!=$ggnian)||(gettime(4)!=$ggxingqi))end;	goto Ltesko;
L49:	if((gettime(6)!=$ggnian)||(gettime(3)!=$ggitem))end;	goto Ltesko;
L34:	if((gettime(4)!=$ggxingqi)||(gettime(5)!=$ggri))end;	goto Ltesko;
L12:	if((gettime(4)!=$ggxingqi)||(gettime(3)!=$ggitem))end;	goto Ltesko;
L24:	if((gettime(5)!=$ggri)||(gettime(3)!=$ggitem))end;	goto Ltesko;
//Tӿ
L165:	if((gettime(7)!=$ggnian)||(gettime(6)!=$ggyue)||(gettime(5)!=$ggri))end;		goto Ltesko;
L153:	if((gettime(7)!=$ggnian)||(gettime(6)!=$ggyue)||(gettime(4)!=$ggxinqi))end;		goto Ltesko;
L143:	if((gettime(7)!=$ggnian)||(gettime(6)!=$ggyue)||(gettime(3)!=$ggitem))end;		goto Ltesko;
L129:	if((gettime(7)!=$ggnian)||(gettime(5)!=$ggri)||(gettime(4)!=$ggxingqi))end;		goto Ltesko;
L119:	if((gettime(7)!=$ggnian)||(gettime(5)!=$ggri)||(gettime(3)!=$ggitem))end;		goto Ltesko;
L107:	if((gettime(7)!=$ggnian)||(gettime(4)!=$ggxingqi)||(gettime(3)!=$ggitem))end;		goto Ltesko;
L71:	if((gettime(6)!=$ggyue)||(gettime(5)!=$ggri)||(gettime(3)!=$ggitem))end;		goto Ltesko;
L59:	if((gettime(6)!=$ggyue)||(gettime(4)!=$ggxingqi)||(gettime(3)!=$ggitem))end;		goto Ltesko;
L81:	if((gettime(6)!=$ggyue)||(gettime(4)!=$ggxingqi)||(gettime(5)!=$ggri))end;		goto Ltesko;
//|ӿ
L166:	if((gettime(7)!=$ggnian)||(gettime(6)!=$ggyue)||(gettime(5)!=$ggri)||(gettime(3)!=$ggitem))end;		goto Ltesko;
L154:	if((gettime(7)!=$ggnian)||(gettime(6)!=$ggyue)||(gettime(4)!=$ggxinqi)||(gettime(3)!=$ggitem))end;	goto Ltesko;
L176:	if((gettime(7)!=$ggnian)||(gettime(6)!=$ggyue)||(gettime(5)!=$ggri)||(gettime(4)!=$ggxingqi))end;	goto Ltesko;
L82:	if((gettime(6)!=$ggyue)||(gettime(5)!=$ggri)||(gettime(4)!=$ggxingqi)||(gettime(3)!=$ggitem))end;	goto Ltesko;
Ltesko:		announce "iSij"+$tesuggao$+"",15;	end;
//------------------------ǰe---------------------------------------------
Lwarp:
	mes "[obGM޲zM]";
	mes "ܧAݭnoǰeA!";
	next;
	menu "ϰǰe",Lwarpq,"l",Lwarpor,"^D\",Lgmda;
Lwarpq:
	mes "[obGM޲zM]";
	mes "ϰǰeO@Ӧaϰϰoaǰewaϱo\";
	mes "ϥΫeAOnǰeϰ짤A,MB,MbOnǰʱoaϩM,U٬OJ,Aoƾ";
	next;
	mes "[obGM޲zM]";
	mes "JǰeϰaϦW(OWna)";
	next;
	input @wmap$;
	mes "[obGM޲zM]";
	mes "Jǰeϰ1IX";
	next;
	input @warmb;
	mes "[obGM޲zM]";
	mes "Jǰeϰ1IY";
	next;
	input @warmc;
	mes "[obGM޲zM]";
	mes "Jǰeϰ2IX";
	next;
	input @warmd;
	mes "[obGM޲zM]";
	mes "Jǰeϰ2IY";
	next;
	input @warme;
	mes "[obGM޲zM]";
	mes "JǰeϰX";
	mes "[obGM޲zM]";
	mes "Jǰe쪺aϦW(OWna)";
	next;
	input @wmapf$;
	mes "[obGM޲zM]";
	mes "Jǰe쪺X";
	next;
	input @warmg;
	mes "[obGM޲zM]";
	mes "Jǰe쪺Y";
	next;
	input @warmh;
	mes "[obGM޲zM]";
	mes "O_???AnO"+@wmap$+"aϪX"+@warmb+",Y"+@warmc+"IX"+@warmd+",Y"+@warme+"Iϰǰea"+@wmapf$+"X"+@warmg+",Y"+@warmh+"?";
	next;
	menu "O",-,"NO",Lwarpq;
	areawarp @wmap$,@warmb,@warmc,@warmd,@warme,@wmapf$,@warmg,@warmh;
	mes "[obGM޲zM]";
	mes "ǰe!!";
	next;
	menu "ϰǰe",Lwarpq,"|ǰe",Lwarpg,"l",Lwarpor,"^D\",Lgmda;
Lwarpg:	close;

Lwarpor:
	mes "[obGM޲zM]";
	mes "ܧAnϥΪ覡";
	mes "1.Wr,2.HID,3.bID,j3Ϊ̵0^.";
	next;
	input @ts;
	if((@ts<=0)||(@ts>=4))goto Lgmda;
	mes "[obGM޲zM]";
	mes "Jlƶq,@̦h10";
	next;
	input @sd;
	next;
	mes "[obGM޲zM]";
	mes "Jlﹳ,AiH@l"+@sd+"";
	next;
Lgo:
if(@ts==1)input @mena$;	if(@ts!=1)input @mea;	if(@sd==1)goto Ldok;	mes "пJĤG....";
if(@ts==1)input @menb$;	if(@ts!=1)input @meb;	if(@sd==2)goto Ldok;	mes "пJĤT....";
if(@ts==1)input @menc$;	if(@ts!=1)input @mec;	if(@sd==3)goto Ldok;	mes "пJĥ|....";
if(@ts==1)input @mend$;	if(@ts!=1)input @med;	if(@sd==4)goto Ldok;	mes "пJĤ....";
if(@ts==1)input @mene$;	if(@ts!=1)input @mee;	if(@sd==5)goto Ldok;	mes "пJĤ....";
if(@ts==1)input @menf$;	if(@ts!=1)input @mef;	if(@sd==6)goto Ldok;	mes "пJĤC....";
if(@ts==1)input @meng$;	if(@ts!=1)input @meg;	if(@sd==7)goto Ldok;	mes "пJĤK....";
if(@ts==1)input @menh$;	if(@ts!=1)input @meh;	if(@sd==8)goto Ldok;	mes "пJĤE....";
if(@ts==1)input @meni$;	if(@ts!=1)input @mei;	if(@sd==9)goto Ldok;	mes "пJĤQ....";
if(@ts==1)input @menj$;	if(@ts!=1)input @mej;		
Ldok:
	mes "O_Tw?";
	menu "O",-,"_",Lgo;
Lreend:
	mes "[obGM޲zM]";
	mes "l꧹!!";
	next;
	menu "ϰǰe",Lwarpq,"|ǰe",Lwarpg,"l",Lwarpor,"^D\",Lgmda;

///-----------------------wIi----------------------------------
// C8IB12IB18I
OnHour08:
	announce "iGMijW08IFIIjaӥhYoa",15;
	end;
OnHour12:
	announce "iGMij12IFIIjaӥhYȶoa",15;
	end;
OnHour18:
	announce "iGMijߤW06IFIIjaӥhY߶oa",15;
	end;
// C23I59
OnClock2359:
	announce "iGMij٦1NnoII",15;
	end;

//OnClock00:
//	if((gettime(4)!=2)||(gettime(4)!=4)||(gettime(4)!=0))end;//CӬPG.|..0I@i.
//	announce "i@ijSA@ɶ,10HA,ѦW7I~9Ik}q,ФjaıUu.",17;
//	announce "i@ijSA@ɶ,10HA,ѦW7I~9Ik}q,ФjaıUu.",17;
//	announce "i@ijSA@ɶ,10HA,ѦW7I~9Ik}q,ФjaıUu.",17;
//	end;
}

