//=========================================================================
// ˵ȫ
//	callfunc "StewardMain","AgitCode",MasterRoomX,MasterRoomY;
//
//  parse
//	ȫʹcloseָendָЧҲںendָ
//
//  function
//	ü໤ˡʱ function "GuardianCall"
//	óܻءʱ function "AgitGiveUp" (npc_gvg_monster.txt)
//
//  NPCstrnpcinfo()ȡáNPCڵMAPʹgetmapxy()ȡ
//  : FPE
// Jathena++ ̳http://www.foxofice.net/bbs
//-------------------------------------------------------------------------

function	script	StewardMain	{
	//ʺ򲿷
	function StewardSpeech {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);		//'@map$Ķ
		set '@gid,getcastledata('@map$,1);
		if('@gid <= 0) {
			mes "["+strnpcinfo(0)+"]";
			mes "ҽҵ";
			mes "ڵȴҵˡ";
			mes "ʿ";
			mes "һ˰ɡ";
			close;
		}
		if(getcharid(0) != getguildmasterid('@gid)) {
			mes "["+strnpcinfo(0)+"]";
			mes "ôв";
			mes "ֻԸ׷ҵ^ff0000" +getguildmaster('@gid);
			mes "^000000໤ѽ";
			mes "Ͽļһ߰ɣ";
			close;
		}
		mes "["+strnpcinfo(0)+"]";
		mes "ӭ٣ҵ ^ff0000" +strcharinfo(0)+ "^000000 /С㡣";
		mes "뾡ܷԸҽҳϵΪ";
		next;
		return;
	}

	//鿴ܻ״
	function StewardConf {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "["+strnpcinfo(0)+"]";
		mes "ܻص״";
		mes " ";
		mes "^0000ffҵչ" +getcastledata('@map$,2)+ "";
		if(getcastledata('@map$,4) != 0)
			mes "- ڹȥ1֮ڣͶ " +getcastledata('@map$,4)+ " Ρ";
		mes "Fڤη" +getcastledata('@map$,3)+ " Ǥ^000000";
		if(getcastledata('@map$,5) != 0)
			mes "^0000ff- ڹȥ1֮ڣͶ " +getcastledata('@map$,5)+ " Ρ^000000";
		mes " ";
		mes "ϡ";
		return;
	}

	//Ͷҵչ
	function StewardEco {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "["+strnpcinfo(0)+"]";
		mes "ҵչȵĻ";
		mes "ڹƷ";
		mes "ΪԺĻ";
		mes "ܲͶʰ";
		next;
		mes "["+strnpcinfo(0)+"]";
		mes "ԭȵķʽһֻͶһ";
		mes "ึһǮĻ";
		mes "һͶΡ";
		next;
		set '@count,getcastledata('@map$,4);
		if('@count == 2) {
			mes "["+strnpcinfo(0)+"]";
			mes "^ff0000Ѿڽ֮Ͷ";
			mes "ٲͶˡ";
			mes "^000000÷չȸϿ";
			mes "ڴŸӆ";
			close;
		}
		set '@val,getcastledata('@map$,2);
		if('@val == 100) {	//δ
			mes "["+strnpcinfo(0)+"]";
			mes "^ff0000ڵķչѾֵˡ";
			mes "^000000ԲҪͶˡ";
		 	close;
		}
		set '@tmp,('@val-'@count)/5;
		set '@price,5000*(1+(1+'@tmp)*'@tmp/2)*(1+3*'@count);
		switch('@count) {
		case 0:
			mes "["+strnpcinfo(0)+"]";
			mes "ҪͶʽ";
			mes "^ff0000" +'@price+ "^000000 Zeny";
			mes "ҪͶ";
			break;
		case 1:
			mes "["+strnpcinfo(0)+"]";
			mes "ѾͶһ";
			mes "ҪͶ";
			mes "Ҫ ^ff0000" +'@price+ "^000000 Zeny";
			break;
		}
		next;
		if(select("ҵչͶ","ȡ")==2) {
			mes "["+strnpcinfo(0)+"]";
			mes "ˡ";
			mes "Ҫ̫żġ";
			mes "ʲôҪʱҡ";
			close;
		}
		if(Zeny < '@price) {	//δ
			mes "["+strnpcinfo(0)+"]";
			mes "ˣ";
			mes "û㹻ĽͶʡ";
			mes "Ͷʱȡˡ";
			close;
		}
		set Zeny,Zeny-'@price;
		setcastledata '@map$,4,'@count+1;
		mes "["+strnpcinfo(0)+"]";
		mes "˳Ͷˣ";
		mes "ӽԽԽ֡";
		mes "쿪ʼչȻġ";
		return;
	}

	//Ͷʷ
	function StewardDef {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "["+strnpcinfo(0)+"]";
		mes "߷Ļ";
		mes "໤˺ͻ;öȻӡ";
		mes "ǵԺս";
		mes "ǿȲϲߡ";
		next;
		mes "["+strnpcinfo(0)+"]";
		mes "ԭȵķʽһֻͶһ";
		mes "ึһǮĻ";
		mes "һͶΡ";
		next;
		set '@count,getcastledata('@map$,5);
		if('@count == 2) {
			mes "["+strnpcinfo(0)+"]";
			mes "^ff0000Ѿڽ֮Ͷ";
			mes "ٲͶˡ";
			mes "^000000ڴȵļǿ";
			close;
		}
		set '@val,getcastledata('@map$,3);
		if('@val == 100) {	//δ
			mes "["+strnpcinfo(0)+"]";
			mes "^ff0000ڷѾ100%ˡ";
			mes "^000000ԲҪͶˡ";
			close;
		}
		set '@tmp,('@val-'@count)/5;
		set '@price,10000*(1+(1+'@tmp)*'@tmp/2)*(1+3*'@count);
		switch('@count) {
		case 0:
			mes "["+strnpcinfo(0)+"]";
			mes "ҪͶʽ^ff0000" +'@price+ "^000000 Zeny";
			mes "ҪͶ";
			break;
		case 1:
			mes "["+strnpcinfo(0)+"]";
			mes "ѾͶһ";
			mes "ҪͶ";
			mes "Ҫ ^ff0000" +'@price+ "^000000 Zeny";
			break;
		}
		next;
		if(select("ԷͶ","ȡ")==2) {
			mes "["+strnpcinfo(0)+"]";
			mes "ˡ";
			mes "Ҫ̫żġ";
			mes "ʲôҪʱҡ";
			close;
		}
		if(Zeny < '@price) {	//δ
			mes "["+strnpcinfo(0)+"]";
			mes "ˣ";
			mes "û㹻ĽͶʡ";
			mes "Ͷʱȡˡ";
			close;
		}
		set Zeny,Zeny-'@price;
		setcastledata '@map$,5,'@count+1;
		mes "["+strnpcinfo(0)+"]";
		mes "˳Ͷˣ";
		mes "ӽԽԽ֡";
		mes "쿪ʼȻġ";
		return;
	}

	//ü໤
	function StewardGuard {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "["+strnpcinfo(0)+"]";
		mes "Ҫü໤";
		mes "໤˼Ϊ";
		mes "ܻصҳػߡ";
		mes "ѡҪõļ໤ˡ";
		next;
		//ʵʵMenu(οB5)
		//menu 	" ໤ - δ",L_MENU_1," ໤ - δ",L_MENU_2,
		//	"ʿ ໤ - δ",L_MENU_3,"ʿ ໤ - δ",L_MENU_4,
		//	"ʿ ໤ - δ",L_MENU_5,"ʿ ໤ - δ",L_MENU_6,
		//	"ʿ ໤ - δ",L_MENU_7," ໤ - δ (31214 / 31214)",L_MENU_8;
		//
		//OäǤ뤫ʤαʾȡӤHPʾ롣
		//ޤӤϤǤOÄܤǤꡢΈHP؏ͤ뤳Ȥ롣
		set '@ret,select("໤ 1","໤ 2","໤ 3","໤ 4","໤ 5","໤ 6","໤ 7","໤ 8")+9;
		if(getcastledata('@map$,'@ret)) {
			mes "["+strnpcinfo(0)+"]";	//δ
			mes "ˣ";
			mes "Ѿü໤ˡ";
			mes " ";
			mes "ü໤˱ȡˡ";
			close;
		}
		mes "["+strnpcinfo(0)+"]";
		mes "ȷҪѡļ໤";
		mes "ʱҪ^ff0000 10000 ^000000Zeny";
		next;
		if(select("","ȡ")==2) {
			mes "["+strnpcinfo(0)+"]";
			mes "ˡ";
			mes "еʽϿԣĻ";
			mes "ü໤˲ϲߡ";
			close;
		}
		if(getgdskilllv(getcharid(2),GD_GUARDIANRESEARCH) == 0) {
			mes "["+strnpcinfo(0)+"]";
			mes "ˡйü໤˵о֪ʶ";
			mes "ȫȻ֪ࡡ";
			mes "Ҫۻü໤֪ʶĻ";
			mes "ҪѧϰἼеġ";
			mes "^ff0000໤о";
			close;
		}
		if(Zeny < 10000) {	//δ{
			mes "["+strnpcinfo(0)+"]";
			mes "ˣ";
			mes "û㹻ĽͶʡ";
			mes "Ͷʱȡˡ";
			close;
		}
		set Zeny,Zeny-10000;
		setcastledata '@map$,'@ret,1;
		callfunc "GuardianCall",getarg(0),'@ret,1;	//ٻ໤(npc_gvg_monster.txt)
		return;
	}

	//áͿְԱ
	function StewardKafra {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		if(getcastledata('@map$,9)==0) {
			mes "["+strnpcinfo(0)+"]";
			mes "Ϳܹ˾Լ";
			mes "Ҫܻ棬ÿְԱ";
			mes "ʱҪ^ff0000 10000 ^000000Zeny";
			next;
			if(select("","ȡ")==2) {
				mes "["+strnpcinfo(0)+"]";
				mes "ˡ";
				mes "ǣΪ˸Աṩ㣬";
				mes "չÿְԱϲߡ";
				close;
			}
			if(getgdskilllv(getcharid(2),GD_KAFRACONTACT) == 0) {
				mes "["+strnpcinfo(0)+"]";
				mes "ˡܺͿܹ˾Լ";
				mes "ԼĻ";
				mes "ǲܹÿְԱġ";
				next;
				mes "["+strnpcinfo(0)+"]";
				mes "Ҫܹ˾ǩԼĻ";
				mes "ҪѧϰἼе";
				mes "^ff0000ͿԼ^000000";
				close;
			}
			if(Zeny < 10000) {	//δ
				mes "["+strnpcinfo(0)+"]";
				mes "ˣ㰡";
				close;
			}
			set Zeny,Zeny-10000;
			enablenpc "AgitKafra_"+getarg(0);	//"AgitCode"NPCֺϳ
			setcastledata '@map$,9,1;
			mes "["+strnpcinfo(0)+"]";
			mes "ɹĺͿܹ˾Լ";
			next;
			cutin "kafra_01",2;
			mes "[ ְԱ]";
			mes "";
			mes "ܹ˾ĿְԱ";
			mes "Ҳùմ۵㣬һŬĹ";
			next;
			cutin "kafra_01",255;
			mes "["+strnpcinfo(0)+"]";
			mes "ΪάֹͿ˾Լ";
			mes "ÿ½һZeny";
			mes "(δʵװ)";
		}
		else {
			mes "["+strnpcinfo(0)+"]";
			mes "ҪͿְԱ";
			next;
			if(select("","ȡ")==2) {
				mes "["+strnpcinfo(0)+"]";
				mes "ˡ";
				close;
			}
			cutin "kafra_01",2;
			mes "[ ְԱ]";
			mes "ȥʲôطŪ";
			mes "һӱСĵġ";
			mes "ԭҵĹɡ";
			next;
			if(select("","ȡ")==2) {
				mes "[ ְԱ]";
				mes "лл";
				mes "һ߾ȫΪǷģ";
				close2;
				cutin "kafra_01",255;
				end;
			}
			mes "[ ְԱ]";
			mes "۰ˣô ~";
			next;
			disablenpc "AgitKafra_"+getarg(0);
			setcastledata '@map$,9,0;
			cutin "kafra_01",255;
			mes "["+strnpcinfo(0)+"]";
			mes "";
			mes "ѾȡͿԼˡ";
		}
		return;
	}

	//˷
	function StewardRoom {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "["+strnpcinfo(0)+"]";
		mes "ҪƷķ";
		mes "ֻ˽ķ䡣";
		next;
		if(select("˷","ȡ")==1) {
			mes "["+strnpcinfo(0)+"]";
			mes "ҽΪͨ";
			mes "ʱ򣬰ܿؼɡ";
			close2;
			warp '@map$,getarg(1),getarg(2);
			end;
		}
		mes "["+strnpcinfo(0)+"]";
		mes "Ʒһֻһ";
		mes "Ʒ浽ʱͲˡ";
		mes "Ϊ˹ķչ";
		mes "Ӧþʱȥȡ";
		return;
	}

	//óܻ
	function StewardGiveup {
		set '@dummy,getmapxy('@map$,'@dummy,'@dummy,1);
		mes "["+strnpcinfo(0)+"]";	//δ飿
		mes "ˣ";
		mes "Ҫóܻ𣡣";
		mes " ";
		mes "¿ǰɣˣ";
		next;
		if(select("óܻ","ȡ")==1) {
			mes "["+strnpcinfo(0)+"]";
			mes "ˣ";
			mes "¿һɡ";
			mes "˼а!!!!!!!!";
			next;
			if(select("ȡ","óܻ")==2) {
				mes "["+strnpcinfo(0)+"]";
				mes "!!";
				mes "Ҫ";
				close2;
				announce "ܻ [" +getcastlename('@map$)+ "]  [" +getguildname(getcharid(2))+ "] óˡ",0;
				callfunc "AgitGiveUp",getarg(0);	//óܻش(npc_gvg_exe.txt)
				end;
			}
		}
		mes "["+strnpcinfo(0)+"]";
		mes "^^!";
		mes "ˣʹǿЦһβҪٽЦ^^.";
		return;
	}

	//˵main
	StewardSpeech;
	switch (select("鿴ܻ״","Ͷҵչ","Ͷʷ","ü໤"," /  ְԱ","˷","óܻ")) {
		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;
}


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

aldeg_cas02.gat,78,74,0		script		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	ܺ	55,{
	callfunc "StewardMain","L5",68,13;
	end;
}

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

gefg_cas02.gat,12,66,0		script	˹ֿ	55,{
	callfunc "StewardMain","B2",137,113;
	end;
}

gefg_cas03.gat,106,23,3		script		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;
}

//==========================================
// ֺ
//------------------------------------------
payg_cas01.gat,120,58,4		script	¬ɵ	55,{
	callfunc "StewardMain","C1",287,5;
	end;
}

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

payg_cas03.gat,50,261,3		script		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;
}

//==========================================
// ͻ׶
//------------------------------------------
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	ߵڵ	55,{
	callfunc "StewardMain","V4",267,159;
	end;
}

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