//==============================================================================
//  : FPE
// Jathena++ ̳http://www.foxofice.net/bbs
//==============================================================================
//ռ䴫͡
//callfunc "kftransport",Place,Price[,Place,Price...],0;
//  1	¡
//  2	˹³õ
//  3	
//  4	
//  5	޿
//  6	
//  7	˴
//  8	
//  9	 Ͽ
// 10	ħ
// 11	˹ 
// 12	ħ˹ 
// 13	ŵ
// 14	׼1
// 15	׼2
// 16	׼3
function	script	kftransport	{
	setarray @placename$,
		"֮-¡",
		"Ƕ-˹³µ",
		"ħ֮-",
		"ɽ֮-",
		"ɳĮ֮-޿",
		"ۿ֮-",
		"˴",
		"˺֮-",
		" Ͽ",
		"ħ",
		"˹ ",
		"ħ˹ ",
		"ŵ",
		"׼1",
		"׼2",
		"׼3";
	cleararray @place$,"",16;
	for ( set @i,0; @i<16; set @i,@i+1 ) {
		if ( getarg(@i*2)==0 ) break;
		set @price[@i],getarg(@i*2+1);
		set @place$[@i],@placename$[getarg(@i*2)-1] + " -> " + @price[@i] + " z";
	}
	//set @max,@i;
	mes "[ ְԱ]";
	mes "ѡĿĵء";
	next;
	set @i,select(@place$[0],@place$[1],@place$[2],@place$[3],@place$[4],@place$[5],@place$[6],@place$[7]
	,@place$[8],@place$[9],@place$[10],@place$[11],@place$[12],@place$[13],@place$[14],@place$[15],"ȡ")-1;
	if ( @i==16 ) {
		mes "[ ְԱ]";
		mes "лл";
		mes "ӭ";
		goto L_kafraclose;
	}
	if ( Zeny<@price[@i] ) {
		mes "[ ְԱ]";
		mes "Բû㹻Ǯ";
		goto L_kafraclose;
	}
	set Zeny,Zeny-@price[@i];
	set KF_PIT,KF_PIT+(@price[@i]/10);
	switch ( getarg(@i*2) ) {
	case 1:
		warp "prontera.gat",116,72;
		break;
	case 2:
		warp "izlude.gat",91,105;
		break;
	case 3:
		warp "geffen.gat",120,39;
		break;
	case 4:
		warp "payon.gat",160,58;
		break;
	case 5:
		warp "morocc.gat",156,46;
		break;
	case 6:
		warp "alberta.gat",117,56;
		break;
	case 7:
		warp "gef_fild10.gat",52,326;
		break;
	case 8:
		warp "aldebaran.gat",143,110;
		break;
	case 9:
		warp "mjolnir_02.gat",99,351;
		break;
	case 10:
		warp "comodo.gat",209,143;
		break;
	case 11:
	case 12:
		warp "cmd_fild07.gat",127,134;
		break;
	case 13:
		warp "yuno.gat",158,124;
		break;
	case 14:
		warp "prontera.gat",116,72;
		break;
	case 15:
		warp "prontera.gat",116,72;
		break;
	case 16:
		warp "prontera.gat",116,72;
	}
	end;
L_kafraclose:
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//ֿ⡹
//callfunc "kfstorage",Price;
function	script	kfstorage	{
	if ( basicskillcheck(0) && getskilllv(1)<6 ) {
		mes "[ ְԱ]";
		mes "ܱǸ޷ʹòֿҪְҵȼ6ϡ";
		goto L_kafraclose;
	}
	if ( Zeny<getarg(0) ) {
		mes "[ ְԱ]";
		mes "ܱǸĽǮ㡣";
		mes "Ҫ"+getarg(0)+"Zeny";
		goto L_kafraclose;
	}
	set Zeny,Zeny-getarg(0);
	openstorage;
	cutin "kafra_01",255;
	close;
L_kafraclose:
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//Ƴ
//callfunc "kfcart",Price;
function	script	kfcart	{
	if ( Class!=5 && Class!=10 && Class!=18 ) {
		mes "[ ְԱ]";
		mes "Ǹ";
		mes "Ƴϵרõķ";
		goto L_kafraclose;
	}
	if ( Cart ) {
		mes "[ ְԱ]";
		mes "ѾʹƳˡ";
		goto L_kafraclose;
	}
	mes "[ ְԱ]";
	mes "Ƴķ"+getarg(0)+"Zeny";
	mes "ұϰ^777777Ƴʹ^000000";
	mes "ûѧϰܣֻ˷ѽǮ";
	mes "ҪƳ";
	next;
	if ( select("Ƴ","ȡ")==2 ) {
		mes "[ ְԱ]";
		mes "лл";
		mes "ӭ";
		goto L_kafraclose;
	}
	if (Zeny<getarg(0)) {
		mes "[ ְԱ]";
		mes "ܱǸĽǮ㡣";
		mes "Ƴķ"+getarg(0)+"Zeny";
		goto L_kafraclose;
	}
	set Zeny,Zeny-getarg(0);
	setcart;
L_kafraclose:
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//ѯ
//callfunc "kfpoint";
function	script	kfpoint	{
	mes "[ ְԱ]";
	mes strcharinfo(0) + " /С";
	mes "" + KF_PIT + "";
	next;
	mes "[ ְԱ]";
	mes "Եܹ˾ȡƷ";
	mes "Ժʹÿ";
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//
//callfunc "kfend";
function	script	kfend	{
	mes "[ ְԱ]";
	mes "ǿ᲻";
	mes "Թ˿ΪΪĿ";
	mes "˿ͷʹð";
	mes "Ƕ߾á";
	mes "ӭٴʹÿɷݣ˾ķ";
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//PVPָԱȫ
//callfunc "pvpguide","SAVEMAP",X,Y;
function	script	pvpguide	{
	mes "[PVPָԱ]";
	mes "ã";
	mes "PVPָԱ";
	next;
	switch ( select("^3355ffPVP^000000ʲô","βμPVP","PVPʲô","浱ǰλ","Ի") ) {
	case 1:	mes "[PVPָԱ]";
		mes "PVPָǣ";
		mes "Player VS Player Modeд";
		mes "Ҳ֮Ի򶷵ģʽ";
		next;
		mes "[PVPָԱ]";
		mes "PVPĻ";
		mes "ԺԱߵ^3355FF^000000Ի";
		next;
		mes "[PVPָԱ]";
		mes "ְֻҵȼﵽLv31";
		mes "ܽPVPȺҡ";
		next;
		mes "[PVPָԱ]";
		mes "PVPģʽ2֣";
		mes "һ^777777ģʽ";
		mes "^000000һ^777777ģʽ^000000";
		next;
		mes "[PVPָԱ]";
		mes "^777777ģʽ^000000ʵսһ";
		mes "ǻǮװġ";
		next;
		mes "[PVPָԱ]";
		mes "֮ǰ濼ǡ";
		close;
	case 2:	mes "[PVPָԱ]";
		mes "ԱߵġPVPˡԻ";
		mes "500 Zeny";
		mes "ͻ㵽PVPȺҡ";
		next;
		mes "[PVPָԱ]";
		mes "Ⱥҵ^777777ģʽ^000000^777777ģʽ^000000Ƕġ";
		mes "վPVPָԱʾġ";
		next;
		mes "[PVPָԱ]";
		mes "˵ǴLv31ʼ";
		mes "ÿ10һ䡣";
		next;
		mes "[PVPָԱ]";
		mes "ÿ˵ͷ϶дŵȼΧ";
		next;
		mes "[PVPָԱ]";
		mes "͸˶ԻѡӦĵͼPVPء";
		mes "^0000ffμ / ^000000";
		next;
		mes "[PVPָԱ]";
		mes "עһ㣺";
		mes "PVPרõͼǲ¼ġ";
		close;
	case 3:	mes "[PVPָԱ]";
		mes "PVP`ɤM뤹";
		mes "¤˥󥿩`";
		mes "Ƥޤ";
		mes "FڥMAPǤ";
		mes "Է֤λ / MAP ";
		next;
		mes "[PVPָԱ]";
		mes "Ǥ";
		mes "PVP`ɤǤΥݥȤ";
		mes "PVP`ɤˤΤ";
		mes "mäƤꡢ";
		mes "˳֤äƤ";
		next;
		mes "[PVPָԱ]";
		mes " 5 Ǥ";
		mes "ޥåפФǌ餷";
		mes "ϵäݥȤ";
		mes "1 ǡؓ";
		mes "-5 ݥȤȤʤޤ";
		next;
		mes "[PVPָԱ]";
		mes "֥ݥȤ";
		mes "0 ¤ˤʤä";
		next;
		mes "[PVPָԱ]";
		mes "PVP`ɤ";
		mes "˳ޤ";
		mes " 0 ϤΕr";
		mes "LܤˤʤäϤ";
		mes "gΥץ쥤`";
		next;
		mes "[PVPָԱ]";
		mes "BAФ뤳Ȥ";
		mes "Ǥޤ";
		next;
		mes "[PVPָԱ]";
		mes "ץ쥤`ȤΌ`";
		mes "󥹥`ȤΑL`";
		mes "ĤˤͬǤ";
		close;
	case 4:	savepoint getarg(0),getarg(1),getarg(2);
		mes "[PVPָԱ]";
		mes "ǥ`֤Ǥޤ";
		mes "ä꤬Ȥޤ";
		close;
	case 5:	mes "[PVPָԱ]";
		mes "ץ쥤`ͬʿ愇ؓ";
		mes "ζ廊PVP`ɣ";
		mes "Ԙ";
		mes "Ƥޤ";
		close;
	}
	return;
}
//==============================================================================
//PVPɥޥȫ
//callfunc "pvpdoor";
function	script	pvpdoor	{
	mes "[PVPɥޥ]";
	mes "PVPؤҤˤڤ";
	mes "PVPɥޥǤ";
	mes "PVP`ɤˤĤƤh";
	mes "OΥɤ";
	mes "Ϥ碌";
	next;
	switch ( select("^ff3355PVP ʥȥᥢ`^000000 ؤҤ","^3355FFPVP ```^000000 ؤҤ","Ԓ") ) {
	case 1:	mes "[PVPɥޥ]";
		mes "ʥȥᥢ`ɤǤ";
		mes "󥸥ͬ`뤬";
		mes "ΤޤmäƤꡢ";
		mes "줿ϤϽUY";
		mes "ʧޤ";
		next;
		mes "[PVPɥޥ]";
		mes "μM 500Zeny Ǥ";
		mes "ʥȥᥢ`ɿؤҤ";
		mes "ƄӤޤ";
		next;
		if ( select("Ƅ","ȡ")==2 ) break;
		if ( Zeny<500 || BaseLevel<31 ) goto LError;
		set Zeny,Zeny-500;
		warp "pvp_n_room",51,23;
		end;
	case 2:	mes "[PVPɥޥ]";
		mes "μM 500Zeny Ǥ";
		mes "```ɿؤҤ";
		mes "ƄӤޤ";
		next;
		if ( select("Ƅ","ȡ")==2 ) break;
		if ( Zeny<500 || BaseLevel<31 ) goto LError;
		set Zeny,Zeny-500;
		warp "pvp_y_room",51,23;
		end;
	}
	mes "[PVPɥޥ]";
	mes "ץ쥤`ͬʿ愇ؓ";
	mes "ζ廊PVP`ɣ";
	mes "Ԙ";
	mes "Ƥޤ";
	close;
LError:
	mes "[PVP ɥޥ]";
	mes "͘ !";
	mes "Zenyʤ٥뤬";
	mes "31ˤʤäƤʤ褦Ǥ";
	close;
	return;
}
//==============================================================================
//޶ʥ
//callfunc "townannounce","TEXT",op;
function	script	townannounce	{
	mapannounce "prontera.gat",getarg(0),getarg(1);
	mapannounce "payon.gat",getarg(0),getarg(1);
	mapannounce "alberta.gat",getarg(0),getarg(1);
	mapannounce "geffen.gat",getarg(0),getarg(1);
	mapannounce "morocc.gat",getarg(0),getarg(1);
	mapannounce "aldebaran.gat",getarg(0),getarg(1);
	mapannounce "izlude.gat",getarg(0),getarg(1);
	mapannounce "yuno.gat",getarg(0),getarg(1);
	mapannounce "comodo.gat",getarg(0),getarg(1);
	mapannounce "amatsu.gat",getarg(0),getarg(1);
	mapannounce "gonryun.gat",getarg(0),getarg(1);
	mapannounce "umbala.gat",getarg(0),getarg(1);
	mapannounce "niflheim.gat",getarg(0),getarg(1);
	mapannounce "louyang.gat",getarg(0),getarg(1);
	mapannounce "jawaii.gat",getarg(0),getarg(1);
	mapannounce "einbech.gat",getarg(0),getarg(1);
	mapannounce "einbroch.gat",getarg(0),getarg(1);
	return;
}
//==============================================================================
//ܞͨScript
//callfunc "jobchanger3","JOBNAME",JOBID,oJobID;
function	script	jobchanger3	{
	mes "["+getarg(0)+"vS]";
	mes "ˤϡ";
	mes "Τցޤ礦";
	next;
	switch ( select(getarg(0)+"ܞ",getarg(0)+"ܞϣ","ʤǤ⤢ޤ") ) {
	case 1:	if ( Upper==1 ) {
			mes "["+getarg(0)+"vS]";
			mes "ʤܞƤޤΤ";
			mes "ǤܞڤǤޤ";
			close;
		}
		if ( Class==getarg(1) ) {
			mes "["+getarg(0)+"vS]";
			mes "ʤϼȤ"+getarg(0);
			mes "ܞƤޤ";
			close;
		}
		if ( Class!=getarg(2) ) {
			mes "["+getarg(0)+"vS]";
			mes "ʤܞǤޤ";
			mes "ܞ_Ƥ";
			mes "ޤ";
			close;
		}
		if ( JobLevel<40 ) {
			mes "["+getarg(0)+"vS]";
			mes "JobLvޤ";
			mes "LvϤƤޤԽ";
			close;
		}
		if ( SkillPoint>0 ) {
			mes "["+getarg(0)+"vS]";
			mes "ݥȤʹФäƤ";
			mes "ޤƤ";
			close;
		}
		mes "["+getarg(0)+"vS]";
		mes "ʤϡ";
		mes "ܞ򜺤Ƥ褦Ǥ";
		mes getarg(0)+"ܞޤ";
		next;
		if ( select("Ϥ","")==1 ) {
			unequip;
			jobchange getarg(1);
			mes "["+getarg(0)+"vS]";
			mes getarg(0)+"ؤܞ";
			mes "ǤȤޤơ";
			mes "줫"+getarg(0)+"ɤ";
			mes "dΤᡢBäƤ";
			close;
		}
	case 3:	mes "["+getarg(0)+"vS]";
		mes "ޤԽ";
		close;
	case 2:	mes "["+getarg(0)+"vS]";
		mes getarg(0)+"ܞˤ";
		mes "һJovLv40ϤǤ";
		mes "ܞԇY˺ϸ񤹤뤳(δgװ)";
		mes "ȤʤäƤޤ";
		next;
		mes "["+getarg(0)+"vS]";
		mes "ʤܞHϥݥȤ";
		mes "ʹФäƤƤ";
		close;
	}
	return;
}
//==============================================================================
//ܞܞͨScript
//callfunc "jobchanger","NPCNAME",JOBID;
function	script	jobchanger	{
	if ( Upper!=1 ) return;
	if ( Class!=0 ) {
		mes "["+getarg(0)+"]";
		mes "ʤϼȤܞƤޤ";
		close;
	}
	if ( getskilllv(1)<9 ) {
		mes "["+getarg(0)+"]";
		mes "ޤߥ٥뤬ޤ";
		mes "ܞ⤦һȴ_JϤǡ";
		mes "ߥ٥룹ޤ";
		mes "ޥ`¤";
		close;
	}
	switch ( oldjob ) {
	case 7:
	case 14:
		set @chkjob,1;
		break;
	case 8:
	case 15:
		set @chkjob,4;
		break;
	case 9:
	case 16:
		set @chkjob,2;
		break;
	case 10:
	case 18:
		set @chkjob,5;
		break;
	case 11:
	case 19:
	case 20:
		set @chkjob,3;
		break;
	case 12:
	case 17:
		set @chkjob,6;
	}
	if ( getarg(1)!=@chkjob ) {
		mes "["+getarg(0)+"]";
		mes "ʤϤܞǤޤ";
		mes "ܞǰϵһˤΤ";
		mes "ܞܤǤ";
		close;
	}
	mes "["+getarg(0)+"]";
	mes "ʤϡȤܞ";
	mes "ܞԇYϤޤ͡";
	next;
	unequip;
	jobchange getarg(1),1;
	mes "["+getarg(0)+"]";
	mes "ܞǤȤޤ";
	mes "줫⥮ɤ";
	mes "dΤᡢBäƤ";
	close;
	return;
}
//==============================================================================
//ܞܞͨScriptܞ
//callfunc "jobchanger2","JOBNAME",JOBID,oJobID;
function	script	jobchanger2	{
	mes "["+getarg(0)+"]";
	mes "ˤϡ";
	mes "Τցޤ礦";
	next;
	switch ( select(getarg(0)+"ܞ",getarg(0)+"ܞϣ","ʤǤ⤢ޤ") ) {
	case 1:	if ( Upper==1 && Class>=7 ) {
			mes "["+getarg(0)+"]";
			mes "ʤϡȤܞ";
			mes "ʤäƤޤ";
			close;
		}
		if ( Upper!=1 || Class!=getarg(2) || JobLevel<40 ) {
			mes "["+getarg(0)+"vS]";
			mes "ʤܞǤޤ";
			mes "ܞ_Ƥ";
			mes "ޤ";
			close;
		}
		if ( oldjob!=getarg(1) ) {
			mes "["+getarg(0)+"vS]";
			mes "ܞǰ줬`Τ";
			mes "ʤϤˤʤޤ";
			close;
		}
		if ( SkillPoint>0 ) {
			mes "["+getarg(0)+"]";
			mes "ݥȤʹФäƤ";
			mes "ޤƤ";
			close;
		}
		mes "["+getarg(0)+"]";
		mes "ʤϡ";
		mes "ܞ򜺤Ƥ褦Ǥ";
		mes getarg(0)+"ܞޤ";
		next;
		if ( select("Ϥ","")==1 ) {
			unequip;
			jobchange getarg(1),1;
			mes "["+getarg(0)+"vS]";
			mes getarg(0)+"ؤܞ";
			mes "ǤȤޤơ";
			mes "줫"+getarg(0)+"ɤ";
			mes "dΤᡢBäƤ";
			close;
		}
	case 3:	mes "["+getarg(0)+"]";
		mes "ޤԽ";
		close;
	case 2:	mes "["+getarg(0)+"]";
		mes getarg(0)+"ܞˤ";
		mes "ܞ򤷤Ƥ뤳";
		mes "ܞһJovLv40ϤǤ";
		mes "ܞǰϵؤܞǤ뤳";
		mes "ȤʤäƤޤ";
		next;
		mes "["+getarg(0)+"]";
		mes "ʤܞHϥݥȤ";
		mes "ʹФäƤƤ";
		close;
	}
	return;
}
//==============================================================================
//bʯ؜NPC
//callfunc "buystone","NPCNAME";
function	script	buystone	{
	mes "["+getarg(0)+"]";
	mes "⟤⟤br";
	mes "ʹӤäƤޤ";
	mes "1٥bʹ";
	mes "^007777ץ饳^000000 ";
	mes "2٥bʹ";
	mes "^007777٥륿^000000 ޤ";
	next;
	mes "["+getarg(0)+"]";
	mes "ץ饳1200Zeny";
	mes "٥륿";
	mes "11000ZenyǤ";
	next;
	switch ( select("ץ饳ُ","٥륿ُ","νϤʤƤߤ") ) {
	case 1:	set @buyid,1010;
		set @buypri,200;
		break;
	case 2:	set @buyid,1011;
		set @buypri,1000;
		break;
	case 3:	mes "["+getarg(0)+"]";
		mes "1٥2٥";
		mes "٥뤬ߤb뤿";
		mes "Ǥ͡";
		mes "⤦֪⤷ޤ?";
		mes "ǥȥ˥";
		mes "֤ΤyƤ͡";
		close;
	}
	mes "["+getarg(0)+"]";
	mes "ُ뤷ޤ";
	mes "ȡֹ";
	mes "0Ǥޤ";
	next;
Linput:
	input @num;
	if ( @num<=0 ) {
		mes "["+getarg(0)+"]";
		mes "ȡֹǤ͡";
		close;
	}
	if ( @num<=500 ) {
		set @sprice,@buypri*@num;
		if ( Zeny<@sprice ) {
			mes "["+getarg(0)+"]";
			mes "죿ͤ";
			mes "ޤ͡";
			mes "ߤޤ󤬡̉Ӥ";
			mes "p櫓ˤϤʤǤ衣";
			close;
		}
		if ( !(checkweight(@buyid,@num)) ) {
			mes "["+getarg(0)+"]";
			mes "郎तǤ͡";
			mes "֤Ƥ";
			mes "ޤ";
			close;
		}
		set Zeny,Zeny-@sprice;
		getitem @buyid,@num;
		mes "["+getarg(0)+"]";
		mes "ُ롢꤬Ȥޤ";
		close;
	}
	mes "["+getarg(0)+"]";
	mes "500¤ǛQƤ";
	next;
	goto Linput;
	return;
}
//==============================================================================
//bʯQNPC
//callfunc "chgstone","NPCNAME";
function	script	chgstone	{
	mes "["+getarg(0)+"]";
	mes "ǥ䥨˥ԭʯ";
	mes "˽˳֤äƤ顢";
	mes "ǥȥ˥";
	mes "Ƥ롣ԭʯ";
	mes "5Ĥĳ֤äƤ褦ˡ";
	next;
	switch ( select("ǥ","˥","ʯˤĤ") ) {
	case 1:	if ( countitem(756)<5 ) {
			mes "["+getarg(0)+"]";
			mes "ϥϥϥϡՄ";
			mes "ǥԭʯ5ğo";
			mes "ǥʤ";
			mes "Ԥäʤ";
			close;
		}
		delitem 756,5;
		getitem 984,1;
		mes "["+getarg(0)+"]";
		mes "ۤ顢sΥǥ";
		mes "ĤǤޤƤ졣";
		close;
		
	case 2:	if ( countitem(757)<5 ) {
			mes "["+getarg(0)+"]";
			mes "ϥϥϥϡՄ";
			mes "˥ԭʯ5ğo";
			mes "˥बʤ";
			mes "Ԥäʤ";
			close;
		}
		delitem 757,5;
		getitem 985,1;
		mes "["+getarg(0)+"]";
		mes "ۤ顢sΥ˥";
		mes "ĤǤޤƤ졣";
		close;
	case 3:	mes "["+getarg(0)+"]";
		mes "ʯ";
		mes "˽νb20";
		mes "ԒϤ褯gHˤ";
		mes "ҊȤϤʤ";
		mes "Ȥˤȡ";
		mes "ˮءLԤ֤Ĥ餷";
		next;
		mes "["+getarg(0)+"]";
		mes "ʯr";
		mes "뤹СԤ֤";
		mes "Ȥ";
		mes "ϤϡʤȤǤΤ";
		mes "൱ʾbˤʡ";
		close;
	}
	return;
}
//==============================================================================
//NPC
//callfunc "repairer";
function	script	repairer	{
	mes "[]";
	mes "ˡ";
	mes "ƥϤ뤫";
	mes "ƥϰΤƤ죡";
	next;
	if ( select("gƥब","ؤ˟oǤ")==2 ) {
		mes "[]";
		mes "դ࡭";
		mes "ʤ鰳äϟoʡ";
		close;
	}
	set @breaknum,getrepairableitemcount(0);
	if ( @breaknum==0 ) {
		mes "[]";
		mes "";
		mes "ҪΤΤʤ";
		mes "һĤ֤äƤʤʤ";
		mes "Ϥ";
		mes "ǰΤ褦ʥĤ";
		mes "̉Ӥ⤢ä衭";
		close;
	}
	set @repair,@breaknum*5000;
	mes "[]";
	mes "դ࡭";
	mes "ǰ֤äƤ륢ƥ";
	mes "pƤ륢ƥ";
	mes @breaknum +"ʡ";
	mes "һΤ 5000 Zeny";
	mes "ȫֱ"+@repair+"ZenyȤʤ롣";
	mes "뤫";
	next;
	if ( select("ޤ","")==2 ) {
		mes "[]";
		mes "ϡƥबĤޤ";
		mes "ŤääΤ";
		mes "ޤʤӤʤ";
		mes "pƥϤֱ";
		close;
	}
	if ( Zeny<@repair ) {
		mes "[]";
		mes "ʤ褦";
		close;
	}
	set Zeny,Zeny-@repair;
	repairitem;
	mes "[]";
	mes "OK";
	mes "ֱäʡ";
	mes "ƥˤäƤȤ";
	mes "ҙƤʡ";
	close;
	return;
}
//==============================================================================
//߾bNPCեѥ`1ץƥ顤٥륿֥å
//callfunc "refine1","NPCNAME",success_emotion,falure_emotion;
function	script	refine1	{
	mes "["+getarg(0)+"]";
	mes "ȷߤbұݤ";
	mes "װ䤷Ƥ륢ƥФ";
	mes "äʤΤbǤΤ";
	mes "ɤװ䥢ƥ";
	mes "bΤ";
	next;
	set @part,select(getequipname(1),getequipname(2),getequipname(3),getequipname(4),getequipname(5),getequipname(6),getequipname(7),getequipname(8),getequipname(9),getequipname(10));
	if ( getequipisequiped(@part)==0 ) {
		mes "["+getarg(0)+"]";
		switch ( @part ) {
		case 1:
			mes "ʤ×ߤ";
			mes "bƤ褦";
			close;
		case 2:
			mes "ΟᤤǾ";
			mes "bƤ";
			close;
		case 3:
			mes "֤åȥѥ";
			mes "Ϥʤʡ";
			close;
		case 4:
			mes "FѧgǤ֤";
			mes "ɥˤ뤳Ȥ";
			mes "Ǥʤ͡";
			close;
		case 5:
			mes "`֤֤äƤʤʤ";
			close;
		case 6:
			mes "γ";
			close;
		case 7:
		case 8:
			mes "ɤ˥`Τ";
			close;
		case 9:
		case 10:
			mes "ΤbԤ";
			mes "Υƥ¤";
			close;
		}
	}
	if ( getequipisenableref(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "ΥƥϾbܤ";
		close;
	}
	if ( getequipisidentify(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "δa龫bǤʤ";
		close;
	}
	if ( getequiprefinerycnt(@part)>=10 ) {
		mes "["+getarg(0)+"]";
		mes "ϤϾbǤʤ";
		close;
	}
	switch ( getequipweaponlv(@part) ) {
	case 0:
		mes "["+getarg(0)+"]";
		mes "xװbˤ";
		mes "^ff9999˥^000000";
		mes "20000ZenyҪʡ";
		mes "A뤫";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) {
			mes "["+getarg(0)+"]";
			mes "äȣηߤϤ⤦";
			mes "b򤷤Ƥߤʡ";
			mes "bߤ뤫";
			mes "ʤߤ줿";
			mes "2Ȥʹʤʤ롭Ǥ";
			mes "b򤹤ݤʤΤ";
			next;
			if ( select("Ϥ","")==2 ) goto L_CANCEL_1;
		}
		if ( countitem(985)<1 || Zeny<20000 ) goto L_CANCEL_2;
		delitem 985,1;
		set Zeny,Zeny-20000;
		break;
	case 1:
		mes "["+getarg(0)+"]";
		mes "٥룱bΤ";
		mes "b뤿ᡢ ^ff9999ץ饳^000000";
		mes "500ZenyҪʡ";
		mes "AΤ";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(1010)<1 || Zeny<500 ) goto L_CANCEL_2;
		delitem 1010,1;
		set Zeny,Zeny-500;
		break;
	case 2:
		mes "["+getarg(0)+"]";
		mes "٥2bΤ";
		mes "b뤿ᡢ ^ff9999٥륿^000000";
		mes "2000ZenyҪʡ";
		mes "AΤ";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(1011)<1 || Zeny<2000 ) goto L_CANCEL_2;
		delitem 1011,1;
		set Zeny,Zeny-2000;
		break;
	case 3:
		mes "["+getarg(0)+"]";
		mes "٥3bΤ";
		mes "b뤿ᡢ ^ff9999ǥ^000000";
		mes "25000ZenyҪʡ";
		mes "AΤ";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(984)<1 || Zeny<25000 ) goto L_CANCEL_2;
		delitem 984,1;
		set Zeny,Zeny-25000;
		break;
	case 4:
		mes "["+getarg(0)+"]";
		mes "٥4bΤ";
		mes "b뤿ᡢ ^ff9999ǥ^000000";
		mes "50000ZenyҪʡ";
		mes "AΤ";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(984)<1 || Zeny<50000 ) goto L_CANCEL_2;
		delitem 984,1;
		set Zeny,Zeny-50000;
	}
	mes "["+getarg(0)+"]";
	mes "  !!";
	if ( getequippercentrefinery(@part)<=rand(100) ) {
		failedrefitem @part;
		next;
		emotion getarg(2);
		mes "["+getarg(0)+"]";
		mes "ۥۥۥۡ";
		next;
		mes "["+getarg(0)+"]";
		mes "ޤ";
		mes "bФߤƤޤäʡ";
		mes "ۡۤ顢ä";
		mes "Ԥä";
		close;
	}
	successrefitem @part;
	next;
	emotion getarg(1);
	mes "["+getarg(0)+"]";
	mes "Ϥä裡";
	mes "á郎Ǥ";
	mes "ߤʤäƾҤ";
	close;
L_OverRefine:
	mes "["+getarg(0)+"]";
	mes "äȣϤ⤦";
	mes "b򤷤Ƥߤʡ";
	mes "b뤫";
	mes "ʤ줿";
	mes "2Ȥʹʤʤ롭Ǥ";
	mes "b򤹤ݤʤΤ";
	next;
	if ( select("Ϥ","")==1 ) return;
L_CANCEL_1:
	mes "["+getarg(0)+"]";
	mes "xkʡ";
	mes "oˤ򉲤";
	mes "ݷ֤ʤ뤫餵";
	close;
L_CANCEL_2:
	mes "["+getarg(0)+"]";
	mes "줬֤äƤȫ";
	mes "Ϥʤ󤸤";
	mes "˷ʤʡ";
	mes "ϤǤäƤۤ";
	mes "Ĥڤʤʡ";
	close;
L_CANCEL_3:
	mes "["+getarg(0)+"]";
	mes "Ӥʤ˷ʤ";
	close;
}
//==============================================================================
//߾bNPCեѥ`2ե󡤥Ω`
//callfunc "refine2","NPCNAME",success_emotion,falure_emotion;
function	script	refine2	{
	mes "["+getarg(0)+"]";
	mes "ޤȤˤ";
	mes "bװ";
	next;
	set @part,select(getequipname(1),getequipname(2),getequipname(3),getequipname(4),getequipname(5),getequipname(6),getequipname(7),getequipname(8),getequipname(9),getequipname(10));
	if ( getequipisequiped(@part)==0 ) {
		mes "["+getarg(0)+"]";
		switch ( @part ) {
		case 1:
			mes "æǰՄ";
			mes "ϤäƤrgʤɟo";
			mes "^ͻzǤɤĤ";
			close;
		case 2:
			mes "æԤäƤ";
			close;
		case 3:
			mes "ʤՄϤƤ죡";
			close;
		case 4:
			mes "ǰbݤΤ";
			close;
		case 5:
			mes "죡";
			close;
		case 6:
			mes "ʤ˸Ϥ";
			mes "Ͼϟo";
			close;
		case 7:
			mes "bʤΤʤäϟo";
			close;
		case 8:
			mes "æ";
			close;
		case 9:
			mes "ɤbäƣ";
			close;
		case 10:
			mes "äƤʤ";
			close;
		}
	}
	if ( getequipisenableref(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "ϾbǤʤ";
		mes "򵱤äƤ졣";
		close;
	}
	if ( getequipisidentify(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "櫓Τ狼ʤ";
		mes "bȤζϟo";
		close;
	}
	if ( getequiprefinerycnt(@part)>=10 ) {
		mes "["+getarg(0)+"]";
		mes "֤ӤȤ";
		mes "o";
		close;
	}
	switch ( getequipweaponlv(@part) ) {
	case 0:
		mes "["+getarg(0)+"]";
		mes "ǰxװbˤ";
		mes "^ff9999˥^000000";
		mes "20000ZenyҪʡ";
		mes "ӥ1Zenyؓʤ";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(985)<1 || Zeny<20000 ) goto L_CANCEL_2;
		delitem 985,1;
		set Zeny,Zeny-20000;
		break;
	case 1:
		mes "["+getarg(0)+"]";
		mes "٥룱bΤ";
		mes "b뤿ᡢ ^ff9999ץ饳^000000";
		mes "500ZenyҪʡ";
		mes "ӥ1Zenyؓʤ";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(1010)<1 || Zeny<500 ) goto L_CANCEL_2;
		delitem 1010,1;
		set Zeny,Zeny-500;
		break;
	case 2:
		mes "["+getarg(0)+"]";
		mes "٥2bΤ";
		mes "b뤿ᡢ ^ff9999٥륿^000000";
		mes "2000ZenyҪʡ";
		mes "ӥ1Zenyؓʤ";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(1011)<1 || Zeny<2000 ) goto L_CANCEL_2;
		delitem 1011,1;
		set Zeny,Zeny-2000;
		break;
	case 3:
		mes "["+getarg(0)+"]";
		mes "٥3bΤ";
		mes "b뤿ᡢ ^ff9999ǥ^000000";
		mes "25000ZenyҪʡ";
		mes "ä֤˰ΌgҊƤ뤫";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(984)<1 || Zeny<25000 ) goto L_CANCEL_2;
		delitem 984,1;
		set Zeny,Zeny-25000;
		break;
	case 4:
		mes "["+getarg(0)+"]";
		mes "٥4bΤ";
		mes "b뤿ᡢ ^ff9999ǥ^000000";
		mes "50000ZenyҪʡ";
		mes "٥4d^뤼";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(984)<1 || Zeny<50000 ) goto L_CANCEL_2;
		delitem 984,1;
		set Zeny,Zeny-50000;
	}
	mes "["+getarg(0)+"]";
	mes "  !!";
	if ( getequippercentrefinery(@part)<=rand(100) ) {
		failedrefitem @part;
		next;
		emotion getarg(2);
		mes "["+getarg(0)+"]";
		mes "ա";
		next;
		mes "["+getarg(0)+"]";
		mes "";
		mes "ޤȤ⤢롣";
		mes "zʤ衭";
		close;
	}
	successrefitem @part;
	next;
	emotion getarg(1);
	mes "["+getarg(0)+"]";
	mes "Хå";
	mes "ޤƤ졣";
	close;
L_OverRefine:
	mes "["+getarg(0)+"]";
	mes "ɤ餳ʶ";
	mes "֤äƤ";
	mes "ϤξbΣꓤ";
	mes "֪ǤȤΤ";
	next;
	if ( select("Ϥ","")==1 ) return;
L_CANCEL_1:
	mes "["+getarg(0)+"]";
	mes "Ĥޤ";
	mes "æäƤ졣";
	close;
L_CANCEL_2:
	mes "["+getarg(0)+"]";
	mes "1Zenyؓʤ";
	mes "bФ֤äƤʡ";
	close;
L_CANCEL_3:
	mes "["+getarg(0)+"]";
	mes "[Ӥʤ裡";
	close;
}
//==============================================================================
//߾bNPCեѥ`3
//callfunc "refine3","NPCNAME",success_emotion,falure_emotion;
function	script	refine3	{
	mes "["+getarg(0)+"]";
	mes "˽ȷߤbұݡ";
	mes "꤬װ䤷Ƥ륢ƥФ";
	mes "äʤΤbǤ롣";
	mes "ɤװ䥢ƥ";
	mes "bΤ";
	next;
	set @part,select(getequipname(1),getequipname(2),getequipname(3),getequipname(4),getequipname(5),getequipname(6),getequipname(7),getequipname(8),getequipname(9),getequipname(10));
	if ( getequipisequiped(@part)==0 ) {
		mes "["+getarg(0)+"]";
		switch ( @part ) {
		case 1:
			mes "ʤ×ߤ";
			mes "bƤ褦";
			close;
		case 2:
			mes "˽Οᤤ";
			mes "bƤ";
			close;
		case 3:
			mes "֤줹뼼gϟo";
			close;
		case 4:
			mes "֤ޥ󥬥";
			mes "Τϟo";
			close;
		case 5:
			mes "`֤֤äƤʤʡ";
			close;
		case 6:
			mes "";
			close;
		case 7:
		case 8:
			mes "ɤΥ`";
			close;
		case 9:
		case 10:
			mes "ΤbԤ";
			mes "Υƥ¤";
			close;
		}
	}
	if ( getequipisenableref(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "ΥƥϾbܡ";
		close;
	}
	if ( getequipisidentify(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "δa龫bǤʤ";
		close;
	}
	if ( getequiprefinerycnt(@part)>=10 ) {
		mes "["+getarg(0)+"]";
		mes "ϤϾbǤʤ";
		close;
	}
	switch ( getequipweaponlv(@part) ) {
	case 0:
		mes "["+getarg(0)+"]";
		mes "꤬xװbˤ";
		mes "^ff9999˥^000000 ";
		mes "20000ZenyҪ";
		mes "A뤫";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) {
			mes "["+getarg(0)+"]";
			mes "դ࡭ηߤϤ⤦";
			mes "b򤷤Ƥߤʡ";
			mes "bߤ뤫";
			mes "ʤߤ줿";
			mes "2Ȥʹʤʤ롭Ǥ";
			mes "b򤹤ݤʤΤ";
			next;
			if ( select("Ϥ","")==2 ) goto L_CANCEL_1;
		}
		if ( countitem(985)<1 || Zeny<20000 ) goto L_CANCEL_2;
		delitem 985,1;
		set Zeny,Zeny-20000;
		break;
	case 1:
		mes "["+getarg(0)+"]";
		mes "٥룱bΤ";
		mes "b뤿ᡢ ^ff9999ץ饳^000000";
		mes "500ZenyҪ";
		mes "A뤫";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(1010)<1 || Zeny<500 ) goto L_CANCEL_2;
		delitem 1010,1;
		set Zeny,Zeny-500;
		break;
	case 2:
		mes "["+getarg(0)+"]";
		mes "٥2bΤ";
		mes "b뤿ᡢ ^ff9999٥륿^000000";
		mes "2000ZenyҪ";
		mes "A뤫";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(1011)<1 || Zeny<2000 ) goto L_CANCEL_2;
		delitem 1011,1;
		set Zeny,Zeny-2000;
		break;
	case 3:
		mes "["+getarg(0)+"]";
		mes "٥3bΤ";
		mes "b뤿ᡢ ^ff9999ǥ^000000";
		mes "25000ZenyҪ";
		mes "A뤫";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(984)<1 || Zeny<25000 ) goto L_CANCEL_2;
		delitem 984,1;
		set Zeny,Zeny-25000;
		break;
	case 4:
		mes "["+getarg(0)+"]";
		mes "٥4bΤ";
		mes "b뤿ᡢ ^ff9999ǥ^000000";
		mes "50000ZenyҪ";
		mes "A뤫";
		next;
		if ( select("Ϥ","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) callsub L_OverRefine,getarg(0);
		if ( countitem(984)<1 || Zeny<50000 ) goto L_CANCEL_2;
		delitem 984,1;
		set Zeny,Zeny-50000;
	}
	mes "["+getarg(0)+"]";
	mes "  !!";
	if ( getequippercentrefinery(@part)<=rand(100) ) {
		failedrefitem @part;
		next;
		emotion getarg(2);
		mes "["+getarg(0)+"]";
		mes "";
		next;
		mes "["+getarg(0)+"]";
		mes "ޤʤ";
		mes "bФߤƤޤä";
		mes "ҸϤ";
		close;
	}
	successrefitem @part;
	next;
	emotion getarg(1);
	mes "["+getarg(0)+"]";
	mes "";
	mes "á郎Ǥʡ";
	mes "ߤʤäҤ";
	close;
L_OverRefine:
	mes "["+getarg(0)+"]";
	mes "դ࡭Ϥ⤦";
	mes "b򤷤Ƥߤʡ";
	mes "b뤫";
	mes "ʤ줿";
	mes "2Ȥʹʤʤ롭Ǥ";
	mes "b򤹤ݤʤΤ";
	next;
	if ( select("Ϥ","")==1 ) return;
L_CANCEL_1:
	mes "["+getarg(0)+"]";
	mes "xk";
	mes "˽oˤ򉲤";
	mes "ݷ֤ʤ뤫顭";
	close;
L_CANCEL_2:
	mes "["+getarg(0)+"]";
	mes "줬꤬֤äƤȫ";
	mes "Ϥʤʤ";
	mes "˷ʤ";
	mes "˽ϤǤäƤۤ";
	mes "Ĥڤʤ";
	close;
L_CANCEL_3:
	mes "["+getarg(0)+"]";
	mes "꤬ʤ˷ʤ";
	close;
}