//=========================================================================
// ޲zH
//	callfunc "StewardMain","AgitCode",MasterRoomX,MasterRoomY;
//
//  parseBz
//	̭ϥcloseOAaendOĪGC]iHۦb᭱K[endO
//
//  function
//	u]m@HvɭԽե function "GuardianCall"
//	uXKavɭԽե function "AgitGiveUp" (npc_gvg_monster.txt)
//
// @ NPCWrstrnpcinfo()oBNPCҦbMAPϥgetmapxy()o
// ~ƩMץ : FPE
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
//-------------------------------------------------------------------------

function	script	StewardMain	{
	//ݭԳ
	function StewardSpeech {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);		//'@map$H~O]
		set '@gid,getcastledata('@map$,1);
		if('@gid <= 0) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "ڱN̾ڧڪRB";
			mes "bݧڪDHC";
			mes "ihڡK";
			mes "@UARBaC";
			close;
		}
		if(getcharid(0) != getguildmasterid('@gid)) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "ާA̫¯٧";
			mes "ڥu@NlHڪDH^ff0000" +getguildmaster('@gid);
			mes "^000000@HA̦b̧rI";
			mes "֧oӵLzå뻰aI";
			close;
		}
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "w{AڪDH ^ff0000" +strcharinfo(0)+ "^000000 /pjC";
		mes "оާhJAڱNۦazȡC";
		next;
		return;
	}

	//dݯKap
	function StewardConf {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "{bVziKapC";
		mes " ";
		mes "^0000ff{bӷ~oi׬O" +getcastledata('@map$,2)+ "C";
		if(getcastledata('@map$,4) != 0)
			mes "- bLh1ѤAF " +getcastledata('@map$,4)+ " C";
		mes "{bUmV" +getcastledata('@map$,3)+ " N@C^000000";
		if(getcastledata('@map$,5) != 0)
			mes "^0000ff- bLh1ѤAF " +getcastledata('@map$,5)+ " C^000000";
		mes " ";
		mes "iC";
		return;
	}

	//ӷ~oi
	function StewardEco {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "ӷ~oiת";
		mes "bu|̥Ͳ~ƶq|W[";
		mes "FH۷Q";
		mes "णڡC";
		next;
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "ӭ覡A@ѥu@";
		mes "phI@I";
		mes "@ѥiH⦸C";
		next;
		set '@count,getcastledata('@map$,4);
		if('@count == 2) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "^ff0000iOzwgbѤF⦸";
			mes "AFC";
			mes "^000000oi׻֤W";
			mes "ݵ۴IQloC";
			close;
		}
		set '@val,getcastledata('@map$,2);
		if('@val == 100) {	//լd
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "^ff0000{boiפwgO̤jȤFC";
			mes "^000000ҥHݭnAFC";
		 	close;
		}
		set '@tmp,('@val-'@count)/5;
		set '@price,5000*(1+(1+'@tmp)*'@tmp/2)*(1+3*'@count);
		switch('@count) {
		case 0:
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "{bݭnBO";
			mes "^ff0000" +'@price+ "^000000 Zeny";
			mes "аݱznܡH";
			break;
		case 1:
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "{bzwgF@";
			mes "٭nAܡH";
			mes "ݭnO ^ff0000" +'@price+ "^000000 Zeny";
			break;
		}
		next;
		if(select("ӷ~oiק","")==2) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "کդFC";
			mes "ݭnӵ۫檺C";
			mes "nDiHHɧiDڡC";
			close;
		}
		if(Zeny < '@price) {	//լd
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "DHI";
			mes "SBiC";
			mes "QFC";
			close;
		}
		set Zeny,Zeny-'@price;
		setcastledata '@map$,4,'@count+1;
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "QaFI";
		mes "᪺lN|VӶVּ֡C";
		mes "qѶ}loi׷|WɪC";
		return;
	}

	//꨾m
	function StewardDef {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "mO";
		mes "@HMRݪ@[׷|W[C";
		mes "Ҽ{H᪺Ԫ";
		mes "[jmפ~OWC";
		next;
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "ӭ覡A@ѥu@";
		mes "phI@I";
		mes "@ѥiH⦸C";
		next;
		set '@count,getcastledata('@map$,5);
		if('@count == 2) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "^ff0000iOAwgbѤF⦸";
			mes "AFC";
			mes "^000000ݨmת[jC";
			close;
		}
		set '@val,getcastledata('@map$,3);
		if('@val == 100) {	//լd
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "^ff0000{bmפwgO100%FC";
			mes "^000000ҥHݭnAFC";
			close;
		}
		set '@tmp,('@val-'@count)/5;
		set '@price,10000*(1+(1+'@tmp)*'@tmp/2)*(1+3*'@count);
		switch('@count) {
		case 0:
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "{bݭnBO^ff0000" +'@price+ "^000000 Zeny";
			mes "аݱznܡH";
			break;
		case 1:
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "{bzwgF@";
			mes "٭nAܡH";
			mes "ݭnO ^ff0000" +'@price+ "^000000 Zeny";
			break;
		}
		next;
		if(select("慨mק","")==2) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "کդFC";
			mes "ݭnӵ۫檺C";
			mes "nDiHHɧiDڡC";
			close;
		}
		if(Zeny < '@price) {	//լd
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "DHI";
			mes "SBiC";
			mes "QFC";
			close;
		}
		set Zeny,Zeny-'@price;
		setcastledata '@map$,5,'@count+1;
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "QaFI";
		mes "᪺lN|VӶVּ֡C";
		mes "qѶ}lm׷|WɪC";
		return;
	}

	//]m@H
	function StewardGuard {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "аݭn]m@HܡH";
		mes "@HYN";
		mes "ڭ̯Kaۦu@̡C";
		mes "пܭn]m@HC";
		next;
		//ڪMenu(ѦB5)
		//menu 	"}b @H - ]m",L_MENU_1,"}b @H - ]m",L_MENU_2,
		//	"hL @H - ]m",L_MENU_3,"hL @H - ]m",L_MENU_4,
		//	"Mh @H - ]m",L_MENU_5,"hL @H - ]m",L_MENU_6,
		//	"Mh @H - ]m",L_MENU_7," @H - ]m (31214 / 31214)",L_MENU_8;
		//
		//]mNrXQUOB~FXHPsrC
		//eFB~FXNi]mʧ@iNqBDUXHPy^_BrOXrC
		set '@ret,select("@H 1","@H 2","@H 3","@H 4","@H 5","@H 6","@H 7","@H 8")+9;
		if(getcastledata('@map$,'@ret)) {
			mes "[޲zH"+strnpcinfo(0)+"]";	//լd
			mes "DHI";
			mes "̤wg]m@HFC";
			mes " ";
			mes "]m@HQFC";
			close;
		}
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "Twn]mwܪ@HܡH";
		mes "]mɻݭn^ff0000 10000 ^000000Zeny";
		next;
		if(select("]m","")==2) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "դFC";
			mes "pIWeΪ";
			mes "]m@H~OWC";
			close;
		}
		if(getgdskilllv(getcharid(2),GD_GUARDIANRESEARCH) == 0) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "DHK]m@Hs";
			mes "ڭ̥MC";
			mes "Qnֿn]m@HѪ";
			mes "nǲߤu|ޯतC";
			mes "^ff0000@Hs@s";
			close;
		}
		if(Zeny < 10000) {	//լd
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "DHI";
			mes "SBiC";
			mes "QFC";
			close;
		}
		set Zeny,Zeny-10000;
		setcastledata '@map$,'@ret,1;
		callfunc "GuardianCall",getarg(0),'@ret,1;	//l@H(npc_gvg_monster.txt)
		return;
	}

	//ΡPѶd¾
	function StewardKafra {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		if(getcastledata('@map$,9)==0) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "Md`qqA";
			mes "nbKa̭AΥd¾ܡH";
			mes "ήɻݭn^ff0000 10000 ^000000ZenyK";
			next;
			if(select("","")==2) {
				mes "[޲zH"+strnpcinfo(0)+"]";
				mes "դFC";
				mes "OAF|̴ѤKA";
				mes "鹵Υd¾~OWC";
				close;
			}
			if(getgdskilllv(getcharid(2),GD_KAFRACONTACT) == 0) {
				mes "[޲zH"+strnpcinfo(0)+"]";
				mes "DHKMd`qq߫C";
				mes "pGq߫ܡA";
				mes "O๵Υd¾C";
				next;
				mes "[޲zH"+strnpcinfo(0)+"]";
				mes "nd`qñq";
				mes "ݭnǲߤu|ޯत";
				mes "^ff0000Mdԭq^000000C";
				close;
			}
			if(Zeny < 10000) {	//լd
				mes "[޲zH"+strnpcinfo(0)+"]";
				mes "DHIBڡI";
				close;
			}
			set Zeny,Zeny-10000;
			enablenpc "AgitKafra_"+getarg(0);	//ե"AgitCode"NPCWrX
			setcastledata '@map$,9,1;
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "\Md`qqF";
			next;
			cutin "kafra_01",2;
			mes "[d ¾]";
			mes "zn";
			mes "ڬO`qӪd¾C";
			mes "ڤ|u|WAgWIAҥHڷ|VOu@I";
			next;
			cutin "kafra_01",255;
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "Fu|MdԤqqߪ";
			mes "CӤI@wZenyC";
			mes "()";
		}
		else {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "nѶd¾ܡH";
			next;
			if(select("Ѷ","")==2) {
				mes "[޲zH"+strnpcinfo(0)+"]";
				mes "դFC";
				close;
			}
			cutin "kafra_01",2;
			mes "[d ¾]";
			mes "Lhڦa˿FܡH";
			mes "ڷ|[pߪK";
			mes "Э̧ڪLaK";
			next;
			if(select("Ѷ","")==2) {
				mes "[d ¾]";
				mes "¡C";
				mes "ڷ|ܺɥOA̪AȪI";
				close2;
				cutin "kafra_01",255;
				end;
			}
			mes "[d ¾]";
			mes "zڡIQѶFIiHo˰ ~";
			next;
			disablenpc "AgitKafra_"+getarg(0);
			setcastledata '@map$,9,0;
			cutin "kafra_01",255;
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "K";
			mes "wgMdԭqߪFC";
		}
		return;
	}

	//iJDHж
	function StewardRoom {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "nڭ̥ͲöQ~жܡH";
		mes "̬Ou\DHiJжC";
		next;
		if(select("iJDHж","")==1) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "ڱNzAȨ쯵KqD̡AиڨӡC";
			mes "^ӪɭԡAUK}YiC";
			close2;
			warp '@map$,getarg(1),getarg(2);
			end;
		}
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "Ͳ~@ѥuͲ@";
		mes "Ͳ~xsWɴN|~W[FC";
		mes "Fu|oiA";
		mes "ӺɶqIɶhڡC";
		return;
	}

	//XKa
	function StewardGiveup {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "[޲zH"+strnpcinfo(0)+"]";	//լdH
		mes "DHI";
		mes "unXKaܡIH";
		mes " ";
		mes "ЭsҼ{aADHI";
		next;
		if(select("XKa","")==1) {
			mes "[޲zH"+strnpcinfo(0)+"]";
			mes "DHI";
			mes "ЭsҼ{@MaK";
			mes "ФTӫ!!!!!!!!";
			next;
			if(select("","XKa")==2) {
				mes "[޲zH"+strnpcinfo(0)+"]";
				mes "DH!!K";
				mes "KKKnKKڡKK";
				close2;
				announce "Ka [" +getcastlename('@map$)+ "] Q [" +getguildname(getcharid(2))+ "] u|XFC",0;
				callfunc "AgitGiveUp",getarg(0);	//XKaBz(npc_gvg_exe.txt)
				end;
			}
		}
		mes "[޲zH"+strnpcinfo(0)+"]";
		mes "DH^^!";
		mes "UFAYϬO}AФU@nAoد^^.";
		return;
	}

	//Dmain
	StewardSpeech;
	switch (select("dݯKap","ӷ~oi","꨾m","]m@H"," / Ѷ d¾","iJDHж","XKa")) {
		case 1:
			StewardConf;
			close;
		case 2:
			StewardEco;
			close;
		case 3:
			StewardDef;
			close;
		case 4:
			StewardGuard getarg(0);
			close;
		case 5:
			StewardKafra getarg(0);
			close;
		case 6:
			StewardRoom 0,getarg(1),getarg(2);
			close;
		case 7:
			StewardGiveup getarg(0);
			close;
	}
	return;
}


//==========================================
// S̯
//------------------------------------------
aldeg_cas01.gat,218,175,0	script	U	55,{
	callfunc "StewardMain","L1",113,223;
	end;
}

aldeg_cas02.gat,78,74,0		script	²²R	55,{
	callfunc "StewardMain","L2",134,225;
	end;
}

aldeg_cas03.gat,110,118,0	script	`	55,{
	callfunc "StewardMain","L3",219,268;
	end;
}

aldeg_cas04.gat,67,116,0	script	Ǣ}Ǧǿ	55,{
	callfunc "StewardMain","L4",79,14;
	end;
}

aldeg_cas05.gat,51,179,0	script	ƲO	55,{
	callfunc "StewardMain","L5",68,13;
	end;
}

//==========================================
// Q
//------------------------------------------
gefg_cas01.gat,40,48,5		script	[X	55,{
	callfunc "StewardMain","B1",151,109;
	end;
}

gefg_cas02.gat,12,66,0		script	R֧J	55,{
	callfunc "StewardMain","B2",137,113;
	end;
}

gefg_cas03.gat,106,23,3		script	i	55,{
	callfunc "StewardMain","B3",267,287;
	end;
}

gefg_cas04.gat,73,46,3		script	ڥ	55,{
	callfunc "StewardMain","B4",113,115;
	end;
}

gefg_cas05.gat,70,52,3		script	ڼ	55,{
	callfunc "StewardMain","B5",141,107;
	end;
}

//==========================================
// CLy
//------------------------------------------
payg_cas01.gat,120,58,4		script	Jcǫ	55,{
	callfunc "StewardMain","C1",287,5;
	end;
}

payg_cas02.gat,22,260,7		script	Rڵ	55,{
	callfunc "StewardMain","C2",141,141;
	end;
}

payg_cas03.gat,50,261,3		script	ͧQZ	55,{
	callfunc "StewardMain","C3",155,165;
	end;
}

payg_cas04.gat,38,284,3		script	ļ	55,{
	callfunc "StewardMain","C4",143,45;
	end;
}

payg_cas05.gat,277,249,3	script	ǥ[	55,{
	callfunc "StewardMain","C5",153,129;
	end;
}

//==========================================
// ڰOp
//------------------------------------------
prtg_cas01.gat,112,181,0	script	ŵܨ	55,{
	callfunc "StewardMain","V1",7,205;
	end;
}

prtg_cas02.gat,94,61,4		script		55,{
	callfunc "StewardMain","V2",199,225;
	end;
}

prtg_cas03.gat,51,100,4		script	ǵǿǩ	55,{
	callfunc "StewardMain","V3",185,129;
	end;
}

prtg_cas04.gat,259,265,4	script	oU	55,{
	callfunc "StewardMain","V4",267,159;
	end;
}

prtg_cas05.gat,36,37,4		script	O	55,{
	callfunc "StewardMain","V5",273,175;
	end;
}