//====================================================================
//Ragnarok Online Archer jobchange script
//====================================================================
payon_in02.gat,64,71,4	script	Mh֌W	85,{
	mes "[A[`[Mh֌W]";
	mes "ɂ́A";
	mes "`܂傤H";
	next;
	menu "A[`[ɓ]E",L1,"A[`[̓]ÉH",L2,"Ȃł܂B",Lend;
L1:
	if (Class == 3) goto Ltwice;
	if (Class != 0) goto LError;
	if (change_archer == 1) goto Lcheck;
	mes "[A[`[Mh֌W]";
	mes "A[`[ւ̓]E߂łH";
	mes "łAŃA[`[]E";
	mes "\݂ĉB";
	next;
	menu "A[`[]E\݂B",-,"߂",Lend2;
		set change_archer,1;
		mes "[A[`[Mh֌W]";
		mes "\ɃTCāc";
		mes "͂BOKłB";
		mes "ꂩA[`[ɂȂ邽߂̏";
		mes "SĖ΁A]E\łB";
		mes "ɓ]Ȅ𖞂Ă邩A";
		mes "mF܂c낵łH";
		next;
		menu "͂B",L1_1,"B",L1_2;
L1_1:
			mes "[A[`[Mh֌W]";
			mes "mF܂B";
			next;
			goto Lcheck;
L1_2:
			mes "[A[`[Mh֌W]";
			mes "킩܂B";
			mes "A[`[]Eɂ";
			mes "킩Ȃ΁A";
			mes "ɕĂB";
			close;
L2:
	mes "[A[`[Mh֌W]";
	mes "ꂶAA[`[̓]E";
	mes "Đ܂B";
	if (Class == 0) goto L2_1;
		if (Class == 3) mes "łAM͊ɃA[`[łc";
		if (Class != 3)	mes "łAMĂ̐EƂ";
		if (Class != 3)	mes "ȂĂ܂c";
		mes "c܂Ał傤B";
L2_1:
	next;
	mes "[A[`[Mh֌W]";
	mes "܂AS҃XLx";
	mes "XȏɂĉB";
	mes "A[`[͍x̏W͂";
	mes "KvƂEƂł邽߁A";
	mes "}kPȓz̓A[`[ɂ";
	mes "΂Ȃ܂B";
	next;
	mes "[A[`[Mh֌W]";
	mes "A[`[]Eł́A|̐";
	mes "Kv ^ff0000؋^000000 W߂ĂĂB";
	mes "Ă؋͂SGRADE";
	mes "ނA̐ƍ킹";
	mes "̓_܂B";
	next;
	mes "[A[`[Mh֌W]";
	mes "40__^0000ff25_ȏ^000000ł΁A";
	mes "A[`[]E\łB";
	mes "؋ACéAX^[";
	mes "<EB[>瓾܂Bア";
	mes "X^[łAf͋֕łB";
	close;
Lcheck:
	mes "[A[`[Mh֌W]";
	mes "Oc " + strcharinfo(0) + "BłˁH";
	next;
//]mr
	callfunc "jobchanger","A[`[Mh֌W",3;
	if (getskilllv(1) < 9) goto Llowlv;
		mes "[A[`[Mh֌W]";
		mes "S҃XL͏\łc";
		mes "|ɕKvȖ؋̊Ӓn߂܂B";
		mes "cB~~";
		next;
		set @gradeS,countitem(1066)*5;
		set @gradeA,countitem(1067)*3;
		set @gradeB,countitem(1068)*2;
		set @gradeC,countitem(1019)*1;
		set @total,@gradeS+@gradeA+@gradeB+@gradeC;
		if (@total == 0) goto Lnoitem;
			mes "[A[`[Mh֌W]";
			if (countitem(1066) > 0) mes "GRADE S : " + countitem(1066) + "  / _ : " + @gradeS + "B";
			if (countitem(1067) > 0) mes "GRADE A : " + countitem(1067) + "  / _ : " + @gradeA + "B";
			if (countitem(1068) > 0) mes "GRADE B : " + countitem(1068) + "  / _ : " + @gradeB + "B";
			if (countitem(1019) > 0) mes "GRADE C : " + countitem(1019) + "  / _ : " + @gradeC + "B";
			if (@total >= 25) mes "_: ^0000ff" + @total + "^000000 / 40";
			if (@total < 25) mes "_: ^ff0000" + @total + "^000000 / 40";
			next;
				if (@total > 25) goto Lgoukaku;
					mes "[A[`[Mh֌W]";
					mes "25_ȉ?";
					mes "25_ȏɂȂȂ΁A";
					mes "iɂȂ܂I";
					mes "Ɗ撣ĂI";
					close;
			Lgoukaku:
					delitem 1066,countitem(1066);
					delitem 1067,countitem(1067);
					delitem 1068,countitem(1068);
					delitem 1019,countitem(1019);
					mes "[A[`[Mh֌W]";
					if ((@total >= 25) && (@total < 30)) mes "25_ȏI`";
					if ((@total >= 25) && (@total < 30)) mes "肬łiłB";
					if ((@total >= 30) && (@total < 40)) mes "30_ȏIiłI";
					if ((@total >= 30) && (@total < 40)) mes "lłI";
					if (@total >= 40) mes "I40_ȏI";
					if (@total >= 40) mes "łIiłI";
					mes "؋𐻍Wɓn܂B";
					mes "ŃA[`[]E";
					mes "܂B]EĒ܂B";
					next;
					jobchange 3;
					getitem 1702,1;
					getitem 1750,rand(100);
					set change_archer,0;
					mes "[A[`[Mh֌W]";
					mes "A[`[ւ̓]EA";
					mes "߂łƂ܂IāA";
					mes "ꂩA[`[Mh";
					mes "̂߁A撣ĂI";
					mes "AW肩v[g";
					mes "͂܂B󂯎肭B";
					next;
					mes "[A[`[Mh֌W]";
					mes "A[`[͂ς";
					mes "|ƖȂƁI";
					mes "ꂶA撣ĂB";
					mes "҂Ă܂B";
					close;
		Lnoitem:
			mes "[A[`[Mh֌W]";
			mes "ccB";
			mes "Ӓ肷ACe܂!!";
			close;
Llowlv:
	mes "[A[`[Mh֌W]";
	mes "܂S҃XLx܂B";
	mes "]ExmFŁA";
	mes "S҃XLxX܂";
	mes "}X^[ĉB";
	close;
Ltwice:
	mes "[A[`[Mh֌W]";
	mes "M͂A[`[";
	mes "]EĂ܂B";
	close;
LError:
	mes "[A[`[Mh֌W]";
	mes "ӁcB";
	mes "͏S҂ł͂܂񂪁c";
	mes "̐EƂIȏA";
	mes "A[`[ɂ͂Ȃ܂B";
Lend:
	close;
Lend2:
	mes "[A[`[Mh֌W]";
	mes "cȂB";
	close;
}
//==============================================================================
payon_in02.gat,21,31,2	script	n^[	59,{
//!!!
	mes "[n^[]";
	mes "ǂȗpłH";
	mes "͏oɗĂ̂ŖZłB";
	mes "ǂ\ȂłB";
	close;
}
