//==============================================================================
//JvuqɁv
//callfunc "kfstorage",Price;
function	script	kfstorage	{
	if(basicskillcheck(0) > 0 && getskilllv(1) < 6) goto Lerror2_1;
	if (Zeny < getarg(0)) goto Lerror2_2;
		set Zeny,Zeny-getarg(0);
		openstorage;
		cutin "kafra_01",255;
		close;
	Lerror2_1:
		mes "[JvE]";
		mes "qɂ͊{XLx6";
		mes "KĂ痘p\ƂȂ܂B";
		close2;
		cutin "kafra_01",255;
		end;
	Lerror2_2:
		mes "[JvE]";
		mes "qlA܂B";
		mes "qɗp"+getarg(0)+"ZenyłB";
		close2;
		cutin "kafra_01",255;
		return;
}
//==============================================================================
//JvuJ[gv
//callfunc "kfcart",Price;
function	script	kfcart	{
	if (!((Class == 5) || (Class == 10) || (Class == 18))) goto Lerror4_1;
	if (Cart != 0) goto LError4_3;
	mes "[JvE]";
	mes "J[gp"+getarg(0)+"ZenyłB";
	mes "܂AJ[g𗘗pɂ";
	mes "vbVJ[gXLKvłB";
	mes "̃XLȂƃJ[g𗘗p";
	mes "łɂĂ܂܂B";
	mes "͂낵łH";
	next;
	menu "p",L4_1,"",-;
		mes "[JvE]";
		mes "肪Ƃ܂B";
		mes "܂p܂B";
		close2;
		cutin "kafra_01",255;
		end;
	L4_1:
		if (Zeny < getarg(0)) goto Lerror4_2;
		set Zeny,Zeny-getarg(0);
		setcart;
		close2;
		cutin "kafra_01",255;
		end;
	Lerror4_1:
		mes "[JvE]";
		mes "\󂲂܂B";
		mes "J[g͏lƃubNX~XA";
		mes "ăAP~Xgp";
		mes "T[rXłB";
		close2;
		cutin "kafra_01",255;
		end;
	Lerror4_2:
		mes "[JvE]";
		mes "qlA܂B";
		mes "J[gp"+getarg(0)+"ZenyłB";
		close2;
		cutin "kafra_01",255;
		end;
	Lerror4_3:
		mes "[JvE]";
		mes "ql͌݃J[g";
		mes "pĂ܂B";
		close2;
		cutin "kafra_01",255;
		end;
	return;
}
//==============================================================================
//Jvu|Cg`FbNv
//callfunc "kfpoint";
function	script	kfpoint	{
	mes "[JvE]";
	mes strcharinfo(0) + " l̊l|CǵA";
	mes "" + KF_PIT + " _łB";
	next;
	mes "[JvE]";
	mes "Jv|Cg͓JvT[rX";
	mes "{Ђŏܕiƈ\łB";
	mes "ƂJvT[rX낵";
	mes "肢v܂B";
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//JvuXgv
//callfunc "kfend";
function	script	kfend	{
	mes "[JvE]";
	mes "XJvT[rX́A芮";
	mes "T[rXƊǗƖڎw";
	mes "qlSĂp悤";
	mes "őPsĂ܂B";
	mes "ijJvT[rXp";
	mes "肪Ƃ܂B";
	close2;
	cutin "kafra_01",255;
	end;
	return;
}
//==============================================================================
//PVPKChS
//callfunc "pvpguide","SAVEMAP",X,Y;
function	script	pvpguide	{
	mes "[PVPKCh]";
	mes "ɂ́II";
	mes "PVP[h";
	mes "SĂ";
	mes "PVP KChłI";
	next;
	menu "^3355ffPVP[h^000000ĉH",L1,"PVP[h̎Q@́H",L2,"PVP[h̃[́H",L3,"݈ʒuŃZ[u",L4,"b߂",LEnd;
L1:
	mes "[PVPKCh]";
	mes "PVP[h";
	mes "uPlayer VS Player Modev";
	mes "̗ŁA";
	mes "z̐EŃvC[m";
	mes "ΐVXełB";
	next;
	mes "[PVPKCh]";
	mes "ssْ̒";
	mes "^𖡂킦";
	mes "̃A[i[hłˁB";
	mes "ׂ̗";
	mes "^3355FFhA}^000000 ɘb";
	next;
	mes "[PVPKCh]";
	mes "PVP[h";
	mes "Tɓ邱Ƃł܂B";
	mes "PVP[hLv31ȏ";
	mes "LN^[Qł܂B";
	next;
	mes "[PVPKCh]";
	mes "āAPVP[h";
	mes "傫Qɕ";
	mes "uiCgA[hv";
	mes "u[[[hv";
	mes "܂B";
	next;
	mes "[PVPKCh]";
	mes "iCgA[hł";
	mes "_WƓ[";
	mes "̂܂ܓKpĂA";
	mes "|ꂽꍇ͌ol";
	mes "܂B";
	next;
	mes "[PVPKCh]";
	mes "̓_ɋC";
	mes "ꂭB";
	close;
L2:
	mes "[PVPKCh]";
	mes "ׂ̗ɂuPVPhA}v";
	mes "ɘb܂";
	mes "500 Zeny";
	mes "PVP[h̍T";
	mes "ړ܂B";
	next;
	mes "[PVPKCh]";
	mes "T̓[[[hA";
	mes "iCgA[hꂼ";
	mes "pӂĂA";
	mes "eɂPVP[h";
	mes "GAɂē";
	mes "ēlĂ܂B";
	next;
	mes "[PVPKCh]";
	mes "ȒPɐ܂ƁA";
	mes "Lv31ȏォ10Lv";
	mes "iKĒS҂";
	mes "܂B";
	next;
	mes "[PVPKCh]";
	mes "ex̒S҂̏";
	mes "Q\LvLڂ";
	mes "܂̂ŁAQ";
	mes "ĂB";
	next;
	mes "[PVPKCh]";
	mes "܂AS҂ɘb܂";
	mes "eMAPł̎Ql";
	mes "mFł܂B";
	next;
	mes "[PVPKCh]";
	mes "uQl / Q\ő吔v";
	mes "ƂȂĂ܂B";
	next;
	mes "[PVPKCh]";
	mes "ň_ӁB";
	mes "PVPpMAP͖ܘ_A";
	mes "TłʒuZ[u";
	mes "s\ƂȂĂ܂̂";
	mes "ӂBȏłB";
	close;
L3:
	mes "[PVPKCh]";
	mes "PVP[hɐi";
	mes "ʉEɃJE^[";
	mes "oĂ܂A";
	mes "݃OCMAPł";
	mes "̏ / MAPl ";
	next;
	mes "[PVPKCh]";
	mes "\lłB";
	mes "PVP[hł̃|Cg";
	mes "PVP[hɂ̂";
	mes "KpĂA";
	mes "߂ɎĂ";
	next;
	mes "[PVPKCh]";
	mes "{l 5 łB";
	mes "}bv̒őΐ킵";
	mes "ꍇ|Cg";
	mes "1 ŁAꍇ";
	mes "-5 |CgƂȂ܂B";
	next;
	mes "[PVPKCh]";
	mes "|Cg";
	mes "0 ȉɂȂꍇ";
	next;
	mes "[PVPKCh]";
	mes "PVP[h";
	mes "Oɏo܂B";
	mes "l 0 ȏ̎";
	mes "퓬s\ɂȂꍇ";
	mes "Ԃ⑼̃vC[";
	next;
	mes "[PVPKCh]";
	mes "ĖႢs邱Ƃ";
	mes "ł܂B";
	next;
	mes "[PVPKCh]";
	mes "vC[Ƃ̑ΐ탋[";
	mes "X^[Ƃ̐퓬[";
	mes "{Iɂ͓łB";
	close;
L4:
	savepoint getarg(0),getarg(1),getarg(2);
	mes "[PVPKCh]";
	mes "ŃZ[uł܂B";
	mes "p肪Ƃ܂B";
	close;
LEnd:
	mes "[PVPKCh]";
	mes "vC[m̐^";
	mes "킦PVP[hI";
	mes "ECFl";
	mes "҂Ă܂B";
	close;
	return;
}
//==============================================================================
//PVPhA}S
//callfunc "pvpdoor";
function	script	pvpdoor	{
	mes "[PVPhA}]";
	mes "PVPTɂē";
	mes "PVPhA}łB";
	mes "PVP[hɂĂ̐";
	mes "ׂ̃KCh";
	mes "₢킹B";
	next;
	menu "^ff3355PVP iCgA[h^000000 T",L1,"^3355FFPVP [[[h^000000 T",L2,"b߂",LEnd;
L1:
		mes "[PVPhA}]";
		mes "iCgA[hł";
		mes "_WƓ[";
		mes "̂܂ܓKpĂA";
		mes "|ꂽꍇ͌ol";
		mes "܂B";
		next;
		mes "[PVPhA}]";
		mes "Q 500Zeny łB";
		mes "iCgA[hT";
		mes "ړ܂H";
		next;
		menu "ړ",Ln,"",LEnd;
Ln:
		if ((Zeny < 500) || (BaseLevel < 30)) goto LError;
			set Zeny,Zeny-500;
			warp "pvp_n_room",51,23;
			end;
L2:
		mes "[PVPhA}]";
		mes "Q 500Zeny łB";
		mes "[[[hT";
		mes "ړ܂H";
		next;
		menu "ړ",Ly,"",LEnd;
Ly:
		if ((Zeny < 500) || (BaseLevel < 30)) goto LError;
			set Zeny,Zeny-500;
			warp "pvp_y_room",51,23;
			end;
LError:
	mes "[PVP hA}]";
	mes "ql !";
	mes "ZenyȂA{x";
	mes "31ɂȂĂȂ悤łB";
	close;
LEnd:
	mes "[PVPhA}]";
	mes "vC[m̐^";
	mes "킦PVP[hI";
	mes "ECFl";
	mes "҂Ă܂B";
	close;
	return;
}
//==============================================================================
//AiEX
//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);
	return;
}
//==============================================================================
//]EScript
//callfunc "jobchanger3","JOBNAME",JOBID,oJobID;
function	script	jobchanger3	{
	mes "["+getarg(0)+"Mh֌W]";
	mes "ɂ́A";
	mes "`܂傤H";
	next;
	menu getarg(0)+"ɓ]E",L1,getarg(0)+"̓]ÉH",L2,"Ȃł܂B",Lend;
	L1:
		if (Upper == 1) goto LUpper1;
		if (Class == getarg(1)) goto Ltwice;
		if (Class != getarg(2)) goto LError;
		if (JobLevel < 40) goto LError3;
		if (SkillPoint != 0) goto LError2;
		mes "["+getarg(0)+"Mh֌W]";
		mes "Ȃ́A";
		mes "]Ȅ𖞂Ă悤ł";
		mes getarg(0)+"ɓ]E܂H";
		next;
		menu "͂",-,"",Lend;
		jobchange getarg(1);
		mes "["+getarg(0)+"Mh֌W]";
		mes getarg(0)+"ւ̓]EA";
		mes "߂łƂ܂IāA";
		mes "ꂩ"+getarg(0)+"Mh";
		mes "̂߁A撣ĂI";
		close;
	L2:
		mes "["+getarg(0)+"Mh֌W]";
		mes getarg(0)+"ɓ]Eɂ";
		mes "EꎟEJovLv40ȏł鎖";
		mes "E]Eɍi邱()";
		mes "ƂȂĂ܂B";
		next;
		mes "["+getarg(0)+"Mh֌W]";
		mes "Ȃ]E̍ۂ̓XL|Cg";
		mes "g؂Ă痈ĂB";
		close;
Lend:
	mes "["+getarg(0)+"Mh֌W]";
	mes "܂z";
	close;
LError:
	mes "["+getarg(0)+"Mh֌W]";
	mes "Ȃ͓]Eł܂";
	mes "]Eǂm߂Ă";
	mes "肢܂B";
	close;
LError2:
	mes "["+getarg(0)+"Mh֌W]";
	mes "XL|Cgg؂Ă";
	mes "܂ĂB";
	close;
LError3:
	mes "["+getarg(0)+"Mh֌W]";
	mes "JobLv܂B";
	mes "LvグĂ܂z";
	close;
Ltwice:
	mes "["+getarg(0)+"Mh֌W]";
	mes "Ȃ͊"+getarg(0);
	mes "ɓ]EĂ܂B";
	close;
LUpper1:
	mes "["+getarg(0)+"Mh֌W]";
	mes "Ȃ͓]Ă܂̂";
	mes "ł͓]Eēł܂B";
	close;
	return;
}
//==============================================================================
//]E]EScript
//callfunc "jobchanger","NPCNAME",JOBID;
function	script	jobchanger	{
	if (Upper == 0) return;
	if (Class != 0) goto LError2;
	if ((oldjob ==7) || (oldjob ==14)) set @chkjob,1;
	if ((oldjob ==8) || (oldjob ==15)) set @chkjob,4;
	if ((oldjob ==9) || (oldjob ==16)) set @chkjob,2;
	if ((oldjob ==10) || (oldjob ==18)) set @chkjob,5;
	if ((oldjob ==11) || (oldjob ==19) || (oldjob ==20)) set @chkjob,3;
	if ((oldjob ==12) || (oldjob ==17)) set @chkjob,6;
	if (getarg(1) != @chkjob) goto LError;
	if (getskilllv(1) < 9) goto Llowlv;
	mes "["+getarg(0)+"]";
	mes "Ȃ́Aɓ]g";
	mes "]E͂܂";
	next;
	jobchange getarg(1),1;
	mes "["+getarg(0)+"]";
	mes "]E߂łƂ܂I";
	mes "ꂩMh";
	mes "̂߁A撣ĂI";
	close;
LError:
	mes "["+getarg(0)+"]";
	mes "Ȃ͂̐Eɓ]Eł܂B";
	mes "]ǑnꎟEɂ̂";
	mes "]E\łB";
	close;
LError2:
	mes "["+getarg(0)+"]";
	mes "Ȃ͊ɓ]EĂ܂";
	close;
Llowlv:
	mes "["+getarg(0)+"]";
	mes "܂S҃XLx܂B";
	mes "]ExmFŁA";
	mes "S҃XLxX܂";
	mes "}X^[ĉB";
	close;
	return;
}
//==============================================================================
//]E]EScript]
//callfunc "jobchanger2","JOBNAME",JOBID,oJobID;
function	script	jobchanger2	{
	mes "["+getarg(0)+"Mh֌W]";
	mes "ɂ́A";
	mes "`܂傤H";
	next;
	menu getarg(0)+"ɓ]E",L1,getarg(0)+"̓]ÉH",L2,"Ȃł܂B",Lend;
	L1:
		if ((Upper == 1) && (Class >= 7)) goto LTwice;
		if ((Upper != 1) || (Class != getarg(2))) goto LError;
		if (oldjob != getarg(1)) goto LError3;
		if (JobLevel < 40) goto LError;
		if (SkillPoint != 0) goto LError2;
		mes "["+getarg(0)+"Mh֌W]";
		mes "Ȃ́A";
		mes "]Ȅ𖞂Ă悤ł";
		mes getarg(0)+"ɓ]E܂H";
		next;
		menu "͂",-,"",Lend;
		jobchange getarg(1),1;
		mes "["+getarg(0)+"Mh֌W]";
		mes getarg(0)+"ւ̓]EA";
		mes "߂łƂ܂IāA";
		mes "ꂩ"+getarg(0)+"Mh";
		mes "̂߁A撣ĂI";
		close;
	L2:
		mes "["+getarg(0)+"Mh֌W]";
		mes getarg(0)+"ɓ]Eɂ";
		mes "E]Ă邱";
		mes "E]ꎟEJovLv40ȏł鎖";
		mes "E]OĚnEւ̓]Eł邱";
		mes "ƂȂĂ܂B";
		next;
		mes "["+getarg(0)+"Mh֌W]";
		mes "Ȃ]E̍ۂ̓XL|Cg";
		mes "g؂Ă痈ĂB";
		close;
Lend:
	mes "["+getarg(0)+"Mh֌W]";
	mes "܂z";
	close;
LError:
	mes "["+getarg(0)+"Mh֌W]";
	mes "Ȃ͓]Eł܂";
	mes "]Eǂm߂Ă";
	mes "肢܂B";
	close;
LError2:
	mes "["+getarg(0)+"Mh֌W]";
	mes "XL|Cgg؂Ă";
	mes "܂ĂB";
	close;
LError3:
	mes "["+getarg(0)+"Mh֌W]";
	mes "]O̐EƗꂪႤ̂";
	mes "Ȃ͂̐EɂȂ܂";
	close;
LTwice:
	mes "["+getarg(0)+"Mh֌W]";
	mes "Ȃ́Aɓ]񎟐E";
	mes "ȂĂ܂B";
	close;
	return;
}
//==============================================================================
//BΔ̔NPC
//callfunc "buystone","NPCNAME";
function	script	buystone	{
	mes "["+getarg(0)+"]";
	mes "S|S̕𐸘B鎞";
	mes "g𔄂Ă܂B";
	mes "1x̕퐸BɎg";
	mes "^007777vR^000000 ";
	mes "2x̕퐸BɎg";
	mes "^007777Gx^R^000000 ܂B";
	next;
	mes "["+getarg(0)+"]";
	mes "vR1200ZenyA";
	mes "Gx^R";
	mes "11000ZenyłB";
	next;
	menu "vRw",L1,"Gx^Rw",L2,"̋͂ȂĂ݂",-;
		mes "["+getarg(0)+"]";
		mes "1x2x̕";
		mes "x𐸘B邽߂";
		mes "łˁB";
		mes "m܂񂪤 ";
		mes "IfIRƃGjE";
		mes "ɓ̂Ăˁc";
		close;
L1:
	set @buyid,1010;
	set @buypri,200;
	goto Lbuy;
L2:
	set @buyid,1011;
	set @buypri,1000;
	goto Lbuy;
Lbuy:
	mes "["+getarg(0)+"]";
	mes "w܂H";
	mes "𒆎~";
	mes "u0vł肢܂B";
	next;
Linput:
	input @num;
	if (@num <= 0) goto Lend;
	if (@num > 500) goto LError;
	set @sprice,@buypri*@num;
	if (Zeny < @sprice) goto LError3;
	if (!(checkweight(@buyid,@num))) goto LError2;
	set Zeny,Zeny-@sprice;
	getitem @buyid,@num;
	mes "["+getarg(0)+"]";
	mes "wA肪Ƃ܂B";
	close;
LError:
	mes "["+getarg(0)+"]";
	mes "500ȉŌ߂Ă";
	next;
	goto Linput;
LError2:
	mes "["+getarg(0)+"]";
	mes "וłˁB";
	mes "𐮗Ă";
	mes "܂B";
	close;
LError3:
	mes "["+getarg(0)+"]";
	mes "Hqc";
	mes "܂ˁB";
	mes "݂܂񂪁A";
	mes "킯ɂ͂ȂłB";
	close;
Lend:
	mes "["+getarg(0)+"]";
	mes "~łˁB";
	close;
	return;
}
//==============================================================================
//BΌNPC
//callfunc "chgstone","NPCNAME";
function	script	chgstone	{
	mes "["+getarg(0)+"]";
	mes "IfIRGjĚ΂";
	mes "ɎĂA";
	mes "IfIRƃGjE";
	mes "ĂBAA΂";
	mes "e5Ă悤ɁB";
	next;
	menu "IfIR",L1,"GjE",L2,"΂ɂĕ",-;
		mes "["+getarg(0)+"]";
		mes "΂c";
		mes "̋Bl20N";
		mes "b͂悭ۂɂ";
		mes "Ƃ͂ȂB";
		mes "ƂɂƁA";
		mes "΁AAnȂ炵B";
		next;
		mes "["+getarg(0)+"]";
		mes "̑΂𕐊鎞";
		mes "΁A";
		mes "Ƃc";
		mes "͂́cȂƂł̂";
		mes "ȐBEl낤ȁB";
		close;
	L1:
		if (countitem(756) < 5) goto LError1;
			delitem 756,5;
			getitem 984,1;
			mes "["+getarg(0)+"]";
			mes "قA񑩂̃IfIRB";
			mes "ł܂ĂB";
			close;
		LError1:
			mes "["+getarg(0)+"]";
			mes "nnnnAkH";
			mes "IfIR΂5";
			mes "IfIRȂ";
			mes "ȂB";
			close;
	L2:
		if (countitem(757) < 5) goto LError2;
			delitem 757,5;
			getitem 985,1;
			mes "["+getarg(0)+"]";
			mes "قA񑩂̃GjEB";
			mes "ł܂ĂB";
			close;
		LError2:
			mes "["+getarg(0)+"]";
			mes "nnnnAkH";
			mes "GjE΂5";
			mes "GjEȂ";
			mes "ȂB";
			close;
			return;
}
//==============================================================================
//CNPC
//callfunc "repairer";
function	script	repairer	{
	mes "[CH]";
	mes "̗lA";
	mes "CACe͂邩H";
	mes "ACȅC͉ɔCĂI";
	next;
	menu "͏Cė~ACecc",-,"͓ɖł",L2;
	set @breaknum,getrepairableitemcount(0);
if (@breaknum > 0) goto Lbitem;
		mes "[CH]";
		mes "cc";
		mes "CKv̂̂Ȃ";
		mes "ĂȂȂB";
		mes "͂cc";
		mes "Ô悤ȃc";
		mes "̏肾cc";
		close;
	L2:
		mes "[CH]";
		mes "ӂށcc";
		mes "Ȃ牴ɗp͖ȁB";
		close;
	Lbitem:
		set @Repair,@breaknum*5000;
		mes "[CH]";
		mes "ӂށcc";
		mes "OĂACe";
		mes "ĂACe";
		mes ""+ @breaknum +"ȁB";
		mes "Ĉ 5000 Zeny";
		mes "SĒ"+@Repair+"ZenyƂȂB";
		mes "C邩H";
		next;
		menu "肢܂",L1_1,"",-;
			mes "[CH]";
			mes "́AACe܂";
			mes "Ēû";
			mes "܂ȂȂ񂾁B";
			mes "ACe͂B";
			close;
		L1_1:
			if (Zeny < @Repair) goto LError;
			set Zeny,Zeny-@Repair;
			repairitem;
			mes "[CH]";
			mes "OKI";
			mes "ȁB";
			mes "ACeɂĂƂ";
			mes "oĂ񂾂ȁB";
			close;
LError:
	mes "[CH]";
	mes "Ȃ悤";
	close;
	return;
}
