//==============================================================================
// ~ƩMץ : FPE
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
//==============================================================================
//dԡuŶǰev
//callfunc "kftransport",Place,Price[,Place,Price...],0;
//  1	w
//  2	̴|oq
//  3	N
//  4	p
//  5	ùJ
//  6	㺸
//  7	~H
//  8	㺸
//  9	ǥ oq
// 10	J]q
// 11	oִ Oq
// 12	J]qoִ Oq
// 13	׿
// 14	ǳ1
// 15	ǳ2
// 16	ǳ3
function	script	kftransport	{
	setarray @placename$,
		"-w",
		"ìP-̴|wq",
		"]k-N",
		"s-",
		"Fz-ùJ",
		"f-㺸",
		"~H",
		"Be-㺸",
		"ǥ oq",
		"J]q",
		"oִ Oq",
		"J]qoִ Oq",
		"׿",
		"ǳ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 "[d ¾]";
	mes "пܥتaC";
	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 "[d ¾]";
		mes "¡C";
		mes "wAӡC";
		goto L_kafraclose;
	}
	if ( Zeny<@price[@i] ) {
		mes "[d ¾]";
		mes "藍_AASC";
		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;
}
//==============================================================================
//dԡuܮwv
//callfunc "kfstorage",Price;
function	script	kfstorage	{
	if ( basicskillcheck(0) && getskilllv(1)<6 ) {
		mes "[d ¾]";
		mes "ܩpAzLkϥέܮwAȡAoܤֻݭn¾~6HWC";
		goto L_kafraclose;
	}
	if ( Zeny<getarg(0) ) {
		mes "[d ¾]";
		mes "ܩpAzC";
		mes "oܤֻݭn"+getarg(0)+"ZenyC";
		goto L_kafraclose;
	}
	set Zeny,Zeny-getarg(0);
	openstorage;
	cutin "kafra_01",255;
	close;
L_kafraclose:
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//dԡuv
//callfunc "kfcart",Price;
function	script	kfcart	{
	if ( Class!=5 && Class!=10 && Class!=18 ) {
		mes "[d ¾]";
		mes "pC";
		mes "OӤHtCMΪAȡC";
		goto L_kafraclose;
	}
	if ( Cart ) {
		mes "[d ¾]";
		mes "zwgbϥΤFC";
		goto L_kafraclose;
	}
	mes "[d ¾]";
	mes "ΤOάO"+getarg(0)+"ZenyC";
	mes "ӥB߱o^777777ϥ^000000ޯ";
	mes "pGSǲ߳oӧޯAu|OC";
	mes "nΤܡH";
	next;
	if ( select("Τ","")==2 ) {
		mes "[d ¾]";
		mes "¡C";
		mes "wAӡC";
		goto L_kafraclose;
	}
	if (Zeny<getarg(0)) {
		mes "[d ¾]";
		mes "ܩpAzC";
		mes "ΤOάO"+getarg(0)+"ZenyC";
		goto L_kafraclose;
	}
	set Zeny,Zeny-getarg(0);
	setcart;
L_kafraclose:
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//dԡudIơv
//callfunc "kfpoint";
function	script	kfpoint	{
	mes "[d ¾]";
	mes strcharinfo(0) + " /pj";
	mes "z@oF" + KF_PIT + "IơC";
	next;
	mes "[d ¾]";
	mes "dIƥiHd`q§~C";
	mes "HٽЦhhϥΥdԪAȡC";
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//dԡuv
//callfunc "kfend";
function	script	kfend	{
	mes "[d ¾]";
	mes "ڭ̥dԪAȷ|_";
	mes "HUȬ@ؼ";
	mes "UȩߨϥΧa";
	mes "ڭ̩wܺɩүవ̦nC";
	mes "wAϥΥdԡ]ѥ^qAȡC";
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//PVPɭ
//callfunc "pvpguide","SAVEMAP",X,Y;
function	script	pvpguide	{
	mes "[PVPɭ]";
	mes "AnII";
	mes "ڬOo̪PVPɭI";
	next;
	switch ( select("^3355ffuPVPv^000000OH","pѥ[PVPH","PVPWhH","xsem","") ) {
	case 1:	mes "[PVPɭ]";
		mes "PVPOG";
		mes "uPlayer VS Player ModevYg";
		mes "]NOaiHۥҦC";
		next;
		mes "[PVPɭ]";
		mes "pGQiJPVPܡA";
		mes "iHMڮ䪺^3355FFuH^000000";
		next;
		mes "[PVPɭ]";
		mes "u¾~ŹFLv31HW";
		mes "~iJPVPԫǡC";
		next;
		mes "[PVPɭ]";
		mes "PVPҦ2ءG";
		mes "@جO^777777LҦ";
		mes "^000000@جO^777777ȷȭԼҦ^000000C";
		next;
		mes "[PVPɭ]";
		mes "^777777LҦ^000000MԤ@ˡA";
		mes "O|M˳ƪC";
		next;
		mes "[PVPɭ]";
		mes "ieл{uҼ{C";
		close;
	case 2:	mes "[PVPɭ]";
		mes "Mڮ䪺uPVPuHvܡA";
		mes "õL500 ZenyA";
		mes "LN|aAPVPԫǡC";
		next;
		mes "[PVPɭ]";
		mes "ԫǪ^777777LҦ^000000M^777777ȷȵUҦ^000000OWߪC";
		mes "̭UӰϳ|PVPɭܪC";
		next;
		mes "[PVPɭ]";
		mes "²ӻANOqLv31}l";
		mes "C10Ź@өжC";
		next;
		mes "[PVPɭ]";
		mes "CӭtdHYW|g۵ŽdC";
		next;
		mes "[PVPɭ]";
		mes "MtdHܡAܹa϶iJPVPaC";
		mes "|X{^0000ffѥ[H / HƤW^000000rˡC";
		next;
		mes "[PVPɭ]";
		mes "ٻݪ`N@IG";
		mes "PVPMΦaϬOOHЪC";
		close;
	case 3:	mes "[PVPɭ]";
		mes "PVPRiJ@rO";
		mes "ekURǧǢǻ";
		mes "XMe@BsV";
		mes "{bǬ~MAPNU";
		mes "ۤU / MAPH y";
		next;
		mes "[PVPɭ]";
		mes "@ƭN@C";
		mes "PVPNU~V";
		mes "PVPRUf";
		mes "AsMqB";
		mes "hRJMr";
		next;
		mes "[PVPɭ]";
		mes "򥻭V 5 N@C";
		mes "ǿUN";
		mes "ӧQFXopsr~V";
		mes "1 NBtFX";
		mes "-5 ~OQqe@C";
		next;
		mes "[PVPɭ]";
		mes "ҫ~";
		mes "0 HURQJFX";
		next;
		mes "[PVPɭ]";
		mes "PVPѰs";
		mes "~RXse@C";
		mes "ƭ 0 HWU";
		mes "԰RQJFXV";
		mes "kLU~R";
		next;
		mes "[PVPɭ]";
		mes "UM@rO";
		mes "Ne@C";
		next;
		mes "[PVPɭ]";
		mes "~OUV";
		mes "ǵǻOU԰O";
		mes "򥻪RVPN@C";
		close;
	case 4:	savepoint getarg(0),getarg(1),getarg(2);
		mes "[PVPɭ]";
		mes "HpNǷNeFC";
		mes "QqOe@C";
		close;
	case 5:	mes "[PVPɭ]";
		mes "~PhUuCӭty";
		mes "vrPVPšI";
		mes "isrҼy";
		mes "HMqe@C";
		close;
	}
	return;
}
//==============================================================================
//PVP|
//callfunc "pvpdoor";
function	script	pvpdoor	{
	mes "[PVP|]";
	mes "PVPRפ@r";
	mes "PVP|N@C";
	mes "PVPRKMUV";
	mes "FUǨ~R";
	mes "XvBGC";
	next;
	switch ( select("^ff3355PVP ~|^000000 _","^3355FFPVP ^000000 _","|ykhr") ) {
	case 1:	mes "[PVP|]";
		mes "~|NV";
		mes "ǼǴOP";
		mes "DUeeAsMqB";
		mes "sFXVgy";
		mes "e@C";
		next;
		mes "[PVP|]";
		mes "ѥ[OV 500Zeny N@C";
		mes "~|ű_";
		mes "se@H";
		next;
		if ( select("","q")==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 "ѥ[OV 500Zeny N@C";
		mes "ű_";
		mes "se@H";
		next;
		if ( select("","q")==2 ) break;
		if ( Zeny<500 || BaseLevel<31 ) goto LError;
		set Zeny,Zeny-500;
		warp "pvp_y_room",51,23;
		end;
	}
	mes "[PVP|]";
	mes "~PhUuCӭty";
	mes "vrPVPšI";
	mes "isrҼy";
	mes "HMqe@C";
	close;
LError:
	mes "[PVP |]";
	mes "ȼ !";
	mes "ZenyqQB";
	mes "31RQJMQoN@C";
	close;
	return;
}
//==============================================================================
//mw|Ǣǵ
//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;
}
//==============================================================================
//¾@qScript
//callfunc "jobchanger3","JOBNAME",JOBID,oJobID;
function	script	jobchanger3	{
	mes "["+getarg(0)+"ǪY]";
	mes "zRHVB";
	mes "yɴenH";
	next;
	switch ( select(getarg(0)+"R¾",getarg(0)+"U¾VH","QzNiqeBzC") ) {
	case 1:	if ( Upper==1 ) {
			mes "["+getarg(0)+"ǪY]";
			mes "QFVsMe@UN";
			mes "NV¾פNeBzC";
			close;
		}
		if ( Class==getarg(1) ) {
			mes "["+getarg(0)+"ǪY]";
			mes "QFVJR"+getarg(0);
			mes "R¾Me@C";
			close;
		}
		if ( Class!=getarg(2) ) {
			mes "["+getarg(0)+"ǪY]";
			mes "QFV¾NeBz";
			mes "¾y}ThMp";
			mes "@e@C";
			close;
		}
		if ( JobLevel<40 ) {
			mes "["+getarg(0)+"ǪY]";
			mes "JobLvqeBzC";
			mes "LvyWMeFVG";
			close;
		}
		if ( SkillPoint>0 ) {
			mes "["+getarg(0)+"ǪY]";
			mes "ǵǩ~yJMp";
			mes "eFMGC";
			close;
		}
		mes "["+getarg(0)+"ǪY]";
		mes "QFVB";
		mes "¾UyFMroN@";
		mes getarg(0)+"R¾e@H";
		next;
		if ( select("V","")==1 ) {
			unequip;
			jobchange getarg(1);
			mes "["+getarg(0)+"ǪY]";
			mes getarg(0)+"_U¾B";
			mes "hNOe@IDMB";
			mes "spi"+getarg(0)+"ǪU";
			mes "_UFhBxiJMGI";
			close;
		}
	case 3:	mes "["+getarg(0)+"ǪY]";
		mes "eFVG";
		close;
	case 2:	mes "["+getarg(0)+"ǪY]";
		mes getarg(0)+"R¾@rRV";
		mes "P@¾JovLv40HWNr";
		mes "P¾RX@rO()";
		mes "OQJMe@C";
		next;
		mes "["+getarg(0)+"ǪY]";
		mes "Q¾UVǵǩ~y";
		mes "JMpMGC";
		close;
	}
	return;
}
//==============================================================================
//¾¾@qScript
//callfunc "jobchanger","NPCNAME",JOBID;
function	script	jobchanger	{
	if ( Upper!=1 ) return;
	if ( Class!=0 ) {
		mes "["+getarg(0)+"]";
		mes "QFVJR¾Me@C";
		close;
	}
	if ( getskilllv(1)<9 ) {
		mes "["+getarg(0)+"]";
		mes "eGߪǵǩqeBzC";
		mes "¾yi@׽T{FWNB";
		mes "ߪǵǩ碸eN";
		mes "ǵǻMUC";
		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 "QFVU¾R¾NeBzC";
		mes "ͫeUtC@¾RUf";
		mes "¾iN@C";
		close;
	}
	mes "["+getarg(0)+"]";
	mes "QFVBJRF";
	mes "¾VqeBzTC";
	next;
	unequip;
	jobchange getarg(1),1;
	mes "["+getarg(0)+"]";
	mes "¾hNOe@I";
	mes "spiǪU";
	mes "_UFhBxiJMGI";
	close;
	return;
}
//==============================================================================
//¾¾@qScriptͤG
//callfunc "jobchanger2","JOBNAME",JOBID,oJobID;
function	script	jobchanger2	{
	mes "["+getarg(0)+"]";
	mes "zRHVB";
	mes "yɴenH";
	next;
	switch ( select(getarg(0)+"R¾",getarg(0)+"U¾VH","QzNiqeBzC") ) {
	case 1:	if ( Upper==1 && Class>=7 ) {
			mes "["+getarg(0)+"]";
			mes "QFVBJRͤG¾R";
			mes "QJMe@C";
			close;
		}
		if ( Upper!=1 || Class!=getarg(2) || JobLevel<40 ) {
			mes "["+getarg(0)+"ǪY]";
			mes "QFV¾NeBz";
			mes "¾y}ThMp";
			mes "@e@C";
			close;
		}
		if ( oldjob!=getarg(1) ) {
			mes "["+getarg(0)+"ǪY]";
			mes "ͫeU¾OysHUN";
			mes "QFVU¾RQseBzC";
			close;
		}
		if ( SkillPoint>0 ) {
			mes "["+getarg(0)+"]";
			mes "ǵǩ~yJMp";
			mes "eFMGC";
			close;
		}
		mes "["+getarg(0)+"]";
		mes "QFVB";
		mes "¾UyFMroN@";
		mes getarg(0)+"R¾e@H";
		next;
		if ( select("V","")==1 ) {
			unequip;
			jobchange getarg(1),1;
			mes "["+getarg(0)+"ǪY]";
			mes getarg(0)+"_U¾B";
			mes "hNOe@IDMB";
			mes "spi"+getarg(0)+"ǪU";
			mes "_UFhBxiJMGI";
			close;
		}
	case 3:	mes "["+getarg(0)+"]";
		mes "eFVG";
		close;
	case 2:	mes "["+getarg(0)+"]";
		mes getarg(0)+"R¾@rRV";
		mes "PyMrO";
		mes "Pͤ@¾JovLv40HWNr";
		mes "Pͫe¾UtC¾_U¾NrO";
		mes "OQJMe@C";
		next;
		mes "["+getarg(0)+"]";
		mes "Q¾UVǵǩ~y";
		mes "JMpMGC";
		close;
	}
	return;
}
//==============================================================================
//۳cNPC
//callfunc "buystone","NPCNAME";
function	script	buystone	{
	mes "["+getarg(0)+"]";
	mes "KkKUZy@rR";
	mes "ryJMe@C";
	mes "1UZRr";
	mes "^007777ǯ^000000 O";
	mes "2UZRr";
	mes "^007777Ǥǻǯ^000000 qe@C";
	next;
	mes "["+getarg(0)+"]";
	mes "ǯV1200ZenyB";
	mes "ǤǻǯV";
	mes "11000ZenyN@C";
	next;
	switch ( select("ǯʤJ","ǤǻǯʤJ","LUVQDMfr") ) {
	case 1:	set @buyid,1010;
		set @buypri,200;
		break;
	case 2:	set @buyid,1011;
		set @buypri,1000;
		break;
	case 3:	mes "["+getarg(0)+"]";
		mes "1O2UZoq";
		mes "Zy@rFhU";
		mes "N@TC";
		mes "isiseBz?";
		mes "ǦǦǯOǤǢV";
		mes "RJsrU@MTK";
		close;
	}
	mes "["+getarg(0)+"]";
	mes "KʤJe@H";
	mes "qyFsW";
	mes "u0vN@e@C";
	next;
Linput:
	input @num;
	if ( @num<=0 ) {
		mes "["+getarg(0)+"]";
		mes "ޤN@TC";
		close;
	}
	if ( @num<=500 ) {
		set @sprice,@buypri*@num;
		if ( Zeny<@sprice ) {
			mes "["+getarg(0)+"]";
			mes "sHzK";
			mes "qeBzTC";
			mes "@feBzBHiӽGp";
			mes "l@rvRVQzN@oC";
			close;
		}
		if ( !(checkweight(@buyid,@num)) ) {
			mes "["+getarg(0)+"]";
			mes "hN@TC";
			mes "HyzMp";
			mes "eFGC";
			close;
		}
		set Zeny,Zeny-@sprice;
		getitem @buyid,@num;
		mes "["+getarg(0)+"]";
		mes "ʤJBqOeFC";
		close;
	}
	mes "["+getarg(0)+"]";
	mes "500ӥHUNMhMGC";
	next;
	goto Linput;
	return;
}
//==============================================================================
//ۥ洫NPC
//callfunc "chgstone","NPCNAME";
function	script	chgstone	{
	mes "["+getarg(0)+"]";
	mes "ǦǦǯkǤǢUy";
	mes "pRJMFpB@R";
	mes "ǦǦǯOǤǢR";
	mes "MkrCBV";
	mes "U5KAKJMroRC";
	next;
	switch ( select("ǦǦǯy@r","ǤǢy@r","ݩʥRKMD") ) {
	case 1:	if ( countitem(756)<5 ) {
			mes "["+getarg(0)+"]";
			mes "ˡBGtH";
			mes "ǦǦǯ5KLO";
			mes "ǦǦǯ@sQO";
			mes "JFjQC";
			close;
		}
		delitem 756,5;
		getitem 984,1;
		mes "["+getarg(0)+"]";
		mes "bpBUǦǦǯGC";
		mes "KNieFMsC";
		close;
		
	case 2:	if ( countitem(757)<5 ) {
			mes "["+getarg(0)+"]";
			mes "ˡBGtH";
			mes "ǤǢܭ5KLO";
			mes "ǤǢ@sQO";
			mes "JFjQC";
			close;
		}
		delitem 757,5;
		getitem 985,1;
		mes "["+getarg(0)+"]";
		mes "bpBUǤǢGC";
		mes "KNieFMsC";
		close;
	case 3:	mes "["+getarg(0)+"]";
		mes "ݩʥK";
		mes "pUݺH20~N";
		mes "VoDFRV";
		mes "FOVQC";
		mes "DOtRorOB";
		mes "BBaBUݩyKpC";
		next;
		mes "["+getarg(0)+"]";
		mes "DUݩʥyZy@rR";
		mes "VJ@sWBݩyKZy";
		mes "@srOK";
		mes "VVKDzQONrUV";
		mes "۷Q¾HGtQC";
		close;
	}
	return;
}
//==============================================================================
//ZײzNPC
//callfunc "repairer";
function	script	repairer	{
	mes "[ײzu]";
	mes "DUȤHB";
	mes "ײzF|~VrH";
	mes "|~UײzVRBMsI";
	next;
	if ( select("VײzM|~KK","VSRLN@")==2 ) {
		mes "[ײzu]";
		mes "\gKK";
		mes "QpRVLQC";
		close;
	}
	set @breaknum,getrepairableitemcount(0);
	if ( @breaknum==0 ) {
		mes "[ײzu]";
		mes "KK";
		mes "ײz@rnUriUQzM";
		mes "@KiJMQjQC";
		mes "VKK";
		mes "eUoQWrO";
		mes "UӽiJFqGoKK";
		close;
	}
	set @repair,@breaknum*5000;
	mes "[ײzu]";
	mes "\gKK";
	mes "eJMr|~N";
	mes "lMr|~V";
	mes @breaknum +"GQC";
	mes "@Kײz@rUR 5000 ZenyGp";
	mes "M@O"+@repair+"ZenyOQrC";
	mes "ײz@rH";
	next;
	if ( select("@e@","")==2 ) {
		mes "[ײzu]";
		mes "VB|~KFee";
		mes "JMmsrU";
		mes "FepQQzGC";
		mes "lF|~V@DCC";
		close;
	}
	if ( Zeny<@repair ) {
		mes "[ײzu]";
		mes "qQoG";
		close;
	}
	set Zeny,Zeny-@repair;
	repairitem;
	mes "[ײzu]";
	mes "OKI";
	mes "JFQC";
	mes "|~RiةRrJMOy";
	mes "ıMzGQC";
	close;
	return;
}
//==============================================================================
//ZNPCǷǻ1]P|ǻP|~ǿǫ^
//callfunc "refine1","NPCNAME",success_emotion,falure_emotion;
function	script	refine1	{
	mes "["+getarg(0)+"]";
	mes "VZOy@rMGC";
	mes "g˳Mr|~UN";
	mes "nQiUyNrUGC";
	mes "PU˳|~y";
	mes "FUH";
	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 "gUqQ긣fDy";
			mes "MoH";
			close;
		case 2:
			mes "UNgUy";
			mes "MrvI";
			close;
		case 3:
			mes "gUyǭǿǽR";
			mes "@rVQQC";
			close;
		case 4:
			mes "{Nǧ޳NNigUky";
			mes "R@rOV";
			mes "NQTC";
			close;
		case 5:
			mes "yJMQjQI";
			close;
		case 6:
			mes "gUU@CI";
			close;
		case 7:
		case 8:
			mes "PR|ǫǷǱrUH";
			close;
		case 9:
		case 10:
			mes "ytOzGH";
			mes "LU|~UH";
			close;
		}
	}
	if ( getequipisenableref(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "U|~V夣iGC";
		close;
	}
	if ( getequipisidentify(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "sVŲwGpNQC";
		close;
	}
	if ( getequiprefinerycnt(@part)>=10 ) {
		mes "["+getarg(0)+"]";
		mes "sHWVNQEC";
		close;
	}
	switch ( getequipweaponlv(@part) ) {
	case 0:
		mes "["+getarg(0)+"]";
		mes "gzG˳y@rRV";
		mes "^ff9999ǤǢ^000000O";
		mes "Ʈ20000Zeny򥲭nGQC";
		mes "rH";
		next;
		if ( select("V","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) {
			mes "["+getarg(0)+"]";
			mes "JOIUViFzU";
			mes "yMFfFGQKsHW";
			mes "Fpasri";
			mes "sQECasFp";
			mes "2OQQrKDsNi";
			mes "y@rQUH";
			next;
			if ( select("V","")==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 "碰UZyFUH";
		mes "@rFhB ^ff9999ǯ^000000O";
		mes "Ʈ500Zeny򥲭nGQC";
		mes "rUH";
		next;
		if ( select("V","")==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 "2UZyFUH";
		mes "@rFhB ^ff9999Ǥǻǯ^000000O";
		mes "Ʈ2000Zeny򥲭nGQC";
		mes "rUH";
		next;
		if ( select("V","")==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 "3UZyFUH";
		mes "@rFhB ^ff9999ǦǦǯ^000000O";
		mes "Ʈ25000Zeny򥲭nGQC";
		mes "rUH";
		next;
		if ( select("V","")==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 "4UZyFUH";
		mes "@rFhB ^ff9999ǦǦǯ^000000O";
		mes "Ʈ50000Zeny򥲭nGQC";
		mes "rUH";
		next;
		if ( select("V","")==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 "ǧI ǧI ǧ!!";
	if ( getequippercentrefinery(@part)<=rand(100) ) {
		failedrefitem @part;
		next;
		emotion getarg(2);
		mes "["+getarg(0)+"]";
		mes "ǫסK";
		next;
		mes "["+getarg(0)+"]";
		mes "@ezI";
		mes "夤RZasMeJFQK";
		mes "bBbpBkhtJM";
		mes "̪RJFGtH";
		close;
	}
	successrefitem @part;
	next;
	emotion getarg(1);
	mes "["+getarg(0)+"]";
	mes "BXӤWJFoI";
	mes "[R}ꪫNFC";
	mes "ZjQJMgi^GtH";
	close;
L_OverRefine:
	mes "["+getarg(0)+"]";
	mes "JOIUZViFzU";
	mes "yMFfFGQKsHW";
	mes "FpZasri";
	mes "sQECZasFp";
	mes "2OQQrKDsNi";
	mes "y@rQUH";
	next;
	if ( select("V","")==1 ) return;
L_CANCEL_1:
	mes "["+getarg(0)+"]";
	mes "}GQC";
	mes "iLzMLHUZyaFp";
	mes "cQrpK";
	close;
L_CANCEL_2:
	mes "["+getarg(0)+"]";
	mes "DsgJMrH";
	mes "ݩGBqQzj";
	mes "KQQC";
	mes "VFGNkJMkrbP";
	mes "sQpQC";
	close;
L_CANCEL_3:
	mes "["+getarg(0)+"]";
	mes "gQpKQGtK";
	close;
}
//==============================================================================
//ZNPCǷǻ2]ǣ~PǴ^
//callfunc "refine2","NPCNAME",success_emotion,falure_emotion;
function	script	refine2	{
	mes "["+getarg(0)+"]";
	mes "FCeOR";
	mes "F˳yXBC";
	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 "VIeUR";
			mes "IXJMrɶQPLzGC";
			mes "YyJzNP@rKiqGH";
			close;
		case 2:
			mes "VOJMrGtI";
			close;
		case 3:
			mes "GpQꤾVkhMsI";
			close;
		case 4:
			mes "eB@rrUH";
			close;
		case 5:
			mes "sI";
			close;
		case 6:
			mes "GpQcRIX";
			mes "vVLzGI";
			close;
		case 7:
			mes "QUQpVLGtH";
			close;
		case 8:
			mes "VI";
			close;
		case 9:
			mes "Py@rJMH";
			close;
		case 10:
			mes "JMsQH";
			close;
		}
	}
	if ( getequipisenableref(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "sVNQC";
		mes "LyFJMsC";
		close;
	}
	if ( getequipisidentify(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "vUvpQꪫy";
		mes "@rVLK";
		close;
	}
	if ( getequiprefinerycnt(@part)>=10 ) {
		mes "["+getarg(0)+"]";
		mes "sHWy[rOt";
		mes "LEI";
		close;
	}
	switch ( getequipweaponlv(@part) ) {
	case 0:
		mes "["+getarg(0)+"]";
		mes "ezG˳y@rRV";
		mes "^ff9999ǤǢ^000000O";
		mes "Ʈ20000Zeny򥲭nGQC";
		mes "ǻ1ZenytpsQC";
		next;
		if ( select("V","")==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 "碰UZyFUH";
		mes "@rFhB ^ff9999ǯ^000000O";
		mes "Ʈ500Zeny򥲭nGQC";
		mes "ǻ1ZenytpsQC";
		next;
		if ( select("V","")==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 "2UZyFUH";
		mes "@rFhB ^ff9999Ǥǻǯ^000000O";
		mes "Ʈ2000Zeny򥲭nGQC";
		mes "ǻ1ZenytpsQC";
		next;
		if ( select("V","")==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 "3UZyFUH";
		mes "@rFhB ^ff9999ǦǦǯ^000000O";
		mes "Ʈ25000Zeny򥲭nGQC";
		mes "[]qRUOyBMkrC";
		next;
		if ( select("V","")==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 "4UZyFUH";
		mes "@rFhB ^ff9999ǦǦǯ^000000O";
		mes "Ʈ50000Zeny򥲭nGQC";
		mes "4UZK@rCI";
		next;
		if ( select("V","")==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 "ǧI ǧI ǧ!!";
	if ( getequippercentrefinery(@part)<=rand(100) ) {
		failedrefitem @part;
		next;
		emotion getarg(2);
		mes "["+getarg(0)+"]";
		mes "\K";
		next;
		mes "["+getarg(0)+"]";
		mes "ݩGK";
		mes "eHOirC";
		mes "HgQoK";
		close;
	}
	successrefitem @part;
	next;
	emotion getarg(1);
	mes "["+getarg(0)+"]";
	mes "ǿǽGI";
	mes "eFMsC";
	close;
L_OverRefine:
	mes "["+getarg(0)+"]";
	mes "KPpzQ̤Qy";
	mes "JMFzGKC";
	mes "sHWUVMIGC";
	mes "DsyӪNkrOUH";
	next;
	if ( select("V","")==1 ) return;
L_CANCEL_1:
	mes "["+getarg(0)+"]";
	mes "KepzK";
	mes "VBJMsC";
	close;
L_CANCEL_2:
	mes "["+getarg(0)+"]";
	mes "1ZenyitpsQp";
	mes "FsWyJMQC";
	close;
L_CANCEL_3:
	mes "["+getarg(0)+"]";
	mes "CZjQzGoI";
	close;
}
//==============================================================================
//ZNPCǷǻ3]ǫ^
//callfunc "refine3","NPCNAME",success_emotion,falure_emotion;
function	script	refine3	{
	mes "["+getarg(0)+"]";
	mes "pVZOy@rMΡC";
	mes "˳Mr|~UN";
	mes "nQiUyNrC";
	mes "PU˳|~y";
	mes "FUH";
	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 "UqQ긣fDy";
			mes "MoH";
			close;
		case 2:
			mes "pUNUy";
			mes "MrvI";
			close;
		case 3:
			mes "Uyy@r޳NVLC";
			close;
		case 4:
			mes "UkyǳǨR";
			mes "@rUVLzGC";
			close;
		case 5:
			mes "yJMQQC";
			close;
		case 6:
			mes "K";
			close;
		case 7:
		case 8:
			mes "PU|ǫǷǱH";
			close;
		case 9:
		case 10:
			mes "yBoOH";
			mes "LU|~UH";
			close;
		}
	}
	if ( getequipisenableref(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "U|~V夣iC";
		close;
	}
	if ( getequipisidentify(@part)==0 ) {
		mes "["+getarg(0)+"]";
		mes "sVŲwGpNQC";
		close;
	}
	if ( getequiprefinerycnt(@part)>=10 ) {
		mes "["+getarg(0)+"]";
		mes "sHWVNQC";
		close;
	}
	switch ( getequipweaponlv(@part) ) {
	case 0:
		mes "["+getarg(0)+"]";
		mes "zG˳y@rRV";
		mes "^ff9999ǤǢ^000000O ";
		mes "Ʈ20000Zeny򥲭nGC";
		mes "rH";
		next;
		if ( select("V","")==2 ) goto L_CANCEL_3;
		if ( getequippercentrefinery(@part)<100 ) {
			mes "["+getarg(0)+"]";
			mes "\gKUViFzU";
			mes "yMFfFGQKsHW";
			mes "Fpasri";
			mes "sQCasFp";
			mes "2OQQrKDsNi";
			mes "y@rQUH";
			next;
			if ( select("V","")==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 "碰UZyFUH";
		mes "@rFhB ^ff9999ǯ^000000O";
		mes "Ʈ500Zeny򥲭nGC";
		mes "rH";
		next;
		if ( select("V","")==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 "2UZyFUH";
		mes "@rFhB ^ff9999Ǥǻǯ^000000O";
		mes "Ʈ2000Zeny򥲭nGC";
		mes "rH";
		next;
		if ( select("V","")==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 "3UZyFUH";
		mes "@rFhB ^ff9999ǦǦǯ^000000O";
		mes "Ʈ25000Zeny򥲭nGC";
		mes "rH";
		next;
		if ( select("V","")==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 "4UZyFUH";
		mes "@rFhB ^ff9999ǦǦǯ^000000O";
		mes "Ʈ50000Zeny򥲭nGC";
		mes "rH";
		next;
		if ( select("V","")==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 "ǧI ǧI ǧ!!";
	if ( getequippercentrefinery(@part)<=rand(100) ) {
		failedrefitem @part;
		next;
		emotion getarg(2);
		mes "["+getarg(0)+"]";
		mes "KKK";
		next;
		mes "["+getarg(0)+"]";
		mes "@eQK";
		mes "夤RZasMeJFK";
		mes "B̪RiVFEH";
		close;
	}
	successrefitem @part;
	next;
	emotion getarg(1);
	mes "["+getarg(0)+"]";
	mes "BXFI";
	mes "[R}ꪫNFQC";
	mes "ZjQJMi^tH";
	close;
L_OverRefine:
	mes "["+getarg(0)+"]";
	mes "\gKUZViFzU";
	mes "yMFfFGQKsHW";
	mes "FpZasri";
	mes "sQCZasFp";
	mes "2OQQrKDsNi";
	mes "y@rQUH";
	next;
	if ( select("V","")==1 ) return;
L_CANCEL_1:
	mes "["+getarg(0)+"]";
	mes "}GC";
	mes "piLzMLHUZyaFp";
	mes "cQrpK";
	close;
L_CANCEL_2:
	mes "["+getarg(0)+"]";
	mes "DsJMrH";
	mes "ݩGBqQQpW";
	mes "KQC";
	mes "pVFGNkJMrbP";
	mes "sQC";
	close;
L_CANCEL_3:
	mes "["+getarg(0)+"]";
	mes "khrQpKQK";
	close;
}