//====================================================================
//Ragnarok Online Magician jobchange script
//====================================================================
geffen_in.gat,164,124,4	script	Mh֌W	123,{
	mes "[ptMh֌W]";
	mes "͂A̗pŗ܂́H";
	next;
	menu "}WVɓ]E",L1,"}WV̓]E𕷂",-,"߂",Lend;
		mes "[ptMh֌W]";
		mes "}WVɂȂ肽āH";
		mes "Z݂ȉ^CvA";
		mes "MḧɂȂ";
		mes "񂾂A";
		mes "R劽}`B";
		next;
		mes "[ptMh֌W]";
		mes "܂́AS҃XLxXȏ";
		mes "ȂȂ΂ȂȂB";
		mes "̎́A}WV]Ep";
		mes "t邱ƁB";
		next;
		mes "[ptMh֌W]";
		mes "ǂȍt΂̂́A";
		mes "}WV]E\A";
		mes "ĂB";
		next;
		mes "[ptMh֌W]";
		mes "̓̓]E𖞂A";
		mes "ɘb|邱ƁB";
		close;
L1:
	if (Class == 2) goto Ltwice;
	if (Class != 0) goto LError;
	if (change_magic >= 1) goto Lcheck;
	mes "[ptMh֌W]";
	mes "}WVɓ]EƁH";
	mes "ccB";
	next;
	mes "[ptMh֌W]";
	if (Sex == 0) mes "cc悭ƎoAˁB";
	if (Sex == 0) mes "͎o݂ȃ^CvDI";
	if (Sex == 1) mes "cc悭ZAˁB";
	if (Sex == 1) mes "̃^CvȂǁccB";
	mes "܂A͂ƂāA";
	mes "}WVɓ]EƌˁH";
	mes "Ã}WV";
	mes "]E\ɃTC肢B";
	next;
	menu "}WV]E\",-,"ς߂",Lend2;
//]mr
	callfunc "jobchanger","ptMh֌W",2;
		mes "[ptMh֌W]";
		mes "AɃTCācc";
		mes "[Yˁ[B";
		mes "AA܂ŁB";
		mes "Ócc" + strcharinfo(0) + "ˁB";
		next;
		set @magerand,rand(4);
		set change_magic,@magerand+1;
		mes "[ptMh֌W]";
		mes "}WV]EƂācc";
		mes "}WV]Ep";
		if (change_magic == 1) mes "t<P>";
		if (change_magic == 2) mes "t<Q>";
		if (change_magic == 3) mes "t<R>";
		if (change_magic == 4) mes "t<S>";
		mes "܂[I";
		next;
		getitem 1092,1;
		mes "[ptMh֌W]";
		mes "t@́A{ɏ";
		mes "邩AŒׂāB";
		mes "ACeɂ";
		mes "̒̋@Bg񂾁B";
		mes "A撣Ăˁ`B";
		close;
Lcheck:
	if (getskilllv(1) < 9) goto Llowlv;
		mes "[ptMh֌W]";
		mes "ccȂ́H͑SIH";
		mes "" + strcharinfo(0) + "̓]Écc";
		mes "}WV]Ep̌";
		if (change_magic == 1) mes "t<P>邱ƂˁH";
		if (change_magic == 2) mes "t<Q>邱ƂˁH";
		if (change_magic == 3) mes "t<R>邱ƂˁH";
		if (change_magic == 4) mes "t<S>邱ƂˁH";
		mes "AAmF悤H";
		next;
	if (countitem(1090)>=1) goto Lwrong;
	if ((countitem(1071)>=1) && (change_magic == 1)) goto Lsucsess;
	if ((countitem(1085)>=1) && (change_magic == 2)) goto Lsucsess;
	if ((countitem(1086)>=1) && (change_magic == 3)) goto Lsucsess;
	if ((countitem(1087)>=1) && (change_magic == 4)) goto Lsucsess;
		mes "[ptMh֌W]";
		mes "̑OɁAtĂ";
		mes "ǂ͂ǂɂ́ccH";
		mes "ĂȂƕ]łȂB";
		close;
Lsucsess:
	if (countitem(1071)>=1) delitem 1071,1;
	if (countitem(1085)>=1) delitem 1085,1;
	if (countitem(1086)>=1) delitem 1086,1;
	if (countitem(1087)>=1) delitem 1087,1;
	mes "[ptMh֌W]";
	mes "ccӂAvĂȏɊ撣";
	mes "݂ˁB܂Ał͂ȂǁA";
	mes "̂炢Ȃcc܂ccB";
	mes "}WV]ÉAiˁB";
	mes "Ȃ]񂾃}WVɂȂ[I";
	next;
	set change_magic,0;
	jobchange 2;
	mes "[ptMh֌W]";
	mes "ptMhւ悤I";
	mes "܂A߂ĈAA";
	mes "ȂɏƂȂĂ̂Ɂ[B";
	mes "Ă݂Ȃ̂A[B";
	next;
	mes "[ptMh֌W]";
	mes "Ƃ肠ABptMh";
	mes "ɂȂˁB߂łƂ[I";
	mes "ꂩ낵[Iւց`B";
	close;
Lwrong:
	if (countitem(1090)>=1) delitem 1090,1;
	if (countitem(1071)>=1) delitem 1071,1;
	if (countitem(1085)>=1) delitem 1085,1;
	if (countitem(1086)>=1) delitem 1086,1;
	if (countitem(1087)>=1) delitem 1087,1;
	mes "[ptMh֌W]";
	mes "ccႤ́BĂƂ";
	mes "bł͂ȂāccȂ̎́cc";
	mes "}WV]Ep̌";
	if (change_magic == 1) mes "t<P>邱Ƃ́B";
	if (change_magic == 2) mes "t<Q>邱Ƃ́B";
	if (change_magic == 3) mes "t<R>邱Ƃ́B";
	if (change_magic == 4) mes "t<S>邱Ƃ́B";
	mes "ŏ蒼ȂˁccB";
	close;
Llowlv:
	mes "[ptMh֌W]";
	mes "ccȂ́H͑SIH";
	mes "ccBǂ납A";
	mes "S҃XLx܂܂";
	mes "Ȃ́B܂AS҃XLx";
	mes "グĂ痈ĂB";
	close;
Lend:
	mes "[ptMh֌W]";
	mes "ccH[H";
	close;
Lend2:
	mes "[ptMh֌W]";
	mes "ȂɂI̓}WV";
	mes "Ȃ肽Č񂶂Ȃ́H";
	mes "ՂՂI";
	close;
Ltwice:
	mes "[ptMh֌W]";
	mes "[BȂ͂}WVłH";
	mes "̎킩Ȃ́H";
	mes "܂Afŕ΂";
	mes "B";
	mes "}WV̉^Ƃ̂A";
	mes "킩Ă񂶂Ȃ́H";
	close;
LError:
	mes "[ptMh֌W]";
	mes "[BȂ́A";
	mes "}WVɓ]EłȂB";
	mes "ɑ̐EƂɏAĂłH";
	close;
}
//==============================================================================
geffen_in.gat,177,112,0	script	{I	111,{
	mes "[ACe]";
	mes "̖{́AQtF@wZ";
	mes "YłBYɎgĉB";
	next;
	menu "tP",L1,"tQ",L2,"tR",L3,"tS",L4,"߂",Lend;
L1:
	mes "[}WV]Ep";
	mes "t<P>]";
	mes "* ޗXg *";
	mes " - [s[Q";
	mes " - ȖтR";
	mes " - ~NP";
	next;
	mes "[}WV]Ep";
	mes "t<P>]";
	mes "* n} *";
	mes "tFCnt";
	mes "ꏊ:";
	mes "tFC|葺̏Ȑ";
	next;
	mes "[}WV]Ep";
	mes "t<P>]";
	mes "* @̕ *";
	mes " - 8472";
	next;
	mes "[}WV]Ep";
	mes "t<P>]";
	mes "* G} *";
	mes " - CG[WFXg[";
	mes "(ACe@ɓĂ܂)";
	close;
L2:
	mes "[}WV]Ep";
	mes "t<Q>]";
	mes "* ޗXg *";
	mes " - [s[R";
	mes " - ȖтP";
	mes " - ~NP";
	next;
	mes "[}WV]Ep";
	mes "t<Q>]";
	mes "* n} *";
	mes " - KvȂ";
	next;
	mes "[}WV]Ep";
	mes "t<Q>]";
	mes "* @̕ *";
	mes " - 3735";
	next;
	mes "[}WV]Ep";
	mes "t<Q>]";
	mes "* G} *";
	mes " - bhWFXg[";
	mes "(ACe@ɓĂ܂)";
	close;
L3:
	mes "[}WV]Ep";
	mes "t<R>]";
	mes "* ޗXg *";
	mes " - [s[U";
	mes " - ȖтP";
	next;
	mes "[}WV]Ep";
	mes "t<R>]";
	mes "* n} *";
	mes "tFCnt";
	mes "ꏊ:";
	mes "tFC|葺̏Ȑ";
	next;
	mes "[}WV]Ep";
	mes "t<R>]";
	mes "* @̕ *";
	mes " - 2750";
	next;
	mes "[}WV]Ep";
	mes "t<R>]";
	mes "* G} *";
	mes " - u[WFXg[";
	mes "(ACe@ɓĂ܂)";
	close;
L4:
	mes "[}WV]Ep";
	mes "t<S>]";
	mes "* ޗXg *";
	mes " - [s[Q";
	mes " - ȖтR";
	next;
	mes "[}WV]Ep";
	mes "t<S>]";
	mes "* n} *";
	mes "Nnt";
	mes "ꏊ:";
	mes "Ns~bhӂ";
	mes "ȃIAVX";
	next;
	mes "[}WV]Ep";
	mes "t<S>]";
	mes "* @̕ *";
	mes " - 5429";
	next;
	mes "[}WV]Ep";
	mes "t<S>]";
	mes "* G} *";
	mes " - ȕ";
	mes "(ACe@ɓĂ܂)";
Lend:
	close;
}
//==============================================================================
geffen_in.gat,164,109,2	script	t	64,{
	mes "[t]";
	mes "@̋͂ȗ͈͂ʗɂ";
	mes "߂Ă̂B";
	next;
	mes "[t]";
	mes "vɁANɊQ^A";
	mes "܂͎R̗ɔ閂@";
	mes "gꍇAK̎gp҂";
	mes "p߂Ă̂B";
	next;
	mes "[t]";
	mes "Ȁp҂̑";
	mes "̔p󂯂Ă镨΁A";
	mes "Sɖ@ĝB";
	mes "ꂪWFXg[ƌĂ΂";
	mes "_̍z΂Ȃ̂B";
	close;
}
//==============================================================================
geffen_in.gat,164,112,0	script	ACe@	111,{
	mes "[ACe@]";
	mes "}WV]EpACe@B";
	mes "̋@́AQtF@wZ";
	mes "YłBYɎgĉB";
	next;
	menu "@g",-,"߂",Lend;
	set @water,0;set @zeronum,0;set @mennnum,0;set @milknum,0;
		mes "[ACe@]";
		mes "鐅nt";
		mes "IłB";
		next;
		menu "tFCnt",Lpay,"Nnt",Lmoc,"XLbv",Litem;
			Lpay: if (countitem(1089) < 1) goto LError2;set @water,1;goto Litem;
			Lmoc: if (countitem(1088) < 1) goto LError2;set @water,2;goto Litem;
	Litem:
		mes "[ACe@]";
		mes "ACe";
		mes "IĂ";
		next;
	Lchooseitem:
		menu "[s[",Lzero,"Ȗ",Lmenn,"~N",Lmilk,"ݒ肵ACeXg",Ltasc;
			Lzero: set @choose,1;input @zeronum;if (@zeronum > 10000) goto LError;goto Lchooseitem;
			Lmenn: set @choose,2;input @mennnum;if (@menonum > 10000) goto LError;goto Lchooseitem;
			Lmilk: set @choose,3;input @milknum;if (@milknum > 10000) goto LError;goto Lchooseitem;
Ltasc:
		next;
		mes "[ACe@]";
		if (@zeronum >= 1) mes "[s[: " + @zeronum + " ";
		if (@mennnum >= 1) mes "Ȗ: " + @mennnum + " ";
		if (@milknum >= 1) mes "~N: " + @milknum + " ";
		if (@water == 0) mes "n}t : Ȃ";
		if (@water == 1) mes "n}t : tFCnt";
		if (@water == 2) mes "n}t : Nnt";
		next;
		mes "[ACe@]";
		mes "ACe܂H";
		mes "܂́AACeݒ𑱂܂H";
		next;
		menu "ACe",Lgousei,"ACeݒ𑱂",Litem,"",Lreset;
	Lreset:
			set @zeronum,0;set @mennnum,0;set @milknum,0;
			mes "[ACe@]";
			mes "ACeݒ肪܂B";
			mes "@A";
			mes "gɂȂ܂H";
			next;
			menu "͂",Litem,"",Lend2;
	Lgousei:
			mes "[ACe@]";
			mes "̂߁Aݒ肵ACe";
			mes "ɓĉB";
			mes "1ꂽACéAxƐȂǂ";
			mes "߂A߂";
			mes "o܂̂ŁAӉB";
			next;
			mes "[ACe@]";
			mes "xmFAm";
			mes "fȂ<Jn>{^A";
			mes "߂Ȃ<I>{^";
			mes "ĉB";
			next;
			menu "<Jn>",Ldelitem,"<I>",Lend;
		Ldelitem:
			mes "[ACe@]";
			mes "ݒ肳ꂽACe";
			mes "@ɓĂ܂B";
			mes "΂炭҂B";
			next;
			if (countitem(909) < @zeronum) goto LError3;
			if (countitem(914) < @mennnum) goto LError4;
			if (countitem(519) < @milknum) goto LError5;
			if (@water == 1) delitem 1089,1;
			if (@water == 2) delitem 1088,1;
			delitem 909,@zeronum;
			delitem 914,@mennnum;
			delitem 519,@milknum;
			mes "[ACe@]";
			mes "ݒʂ̃ACe";
			mes "܂B߂܂B";
			next;
			mes "[ACe@]";
			mes "閂@̈̕Aԍ";
			mes "͂ĉB";
			next;
		Lmagicinput:
			input @magic;
			if (@magic == 0) goto Lmagicskip;
			if ((@magic > 1000) && (@magic < 10000)) goto Lmagicask;
			if ((@magic < 1000) || (@magic > 10000)) goto LError6;
		Lmagicskip:
				mes "[ACe@]";
				mes "@̕ꂸɃXLbv܂H";
				next;
				menu "͂",Lchoosestone,"",Lmagicinput;
		Lmagicask:
				mes "[ACe@]";
				mes "Aԍ #" + @magic + " @̕B";
				mes "낵łH";
				next;
				menu "͂",-,"",Lmagicinput;
		Lchoosestone:
					mes "[ACe@]";
					mes "ŌɁAG}΂IĂB";
					next;
					menu "bhWFXg[",Lred,"CG[WFXg[",Lyel,"u[WFXg[",Lblu,"ȕ",Lcle,"XLbv",Lnostone;
						Lred: set @stone,1;goto Lnostone;
						Lyel: set @stone,2;goto Lnostone;
						Lblu: set @stone,3;goto Lnostone;
						Lcle: set @stone,4;goto Lnostone;
						Lnostone:
							mes "[ACe@]";
							mes "SĂ̏ÎŁA";
							mes "ꂩ獇Jn܂B";
							mes "΂炭҂B";
							next;
							mes "[ACe@]";
							mes "- ̂Ƃ킴 -";
							set @kotowaza,rand(3);
							if (@kotowaza == 1) goto Lkotowaza2;
							if (@kotowaza == 2) goto Lkotowaza3;
								mes "";
								mes "hl̘bdɁAO҂";
								mes "oĖWhƂӖłB";
								goto Lkotowazaend;
							Lkotowaza2:
								mes "荂͂Ȃ";
								mes "hŕ炤ƁȂ";
								mes "𗊂܂ꂽAɂ";
								mes "肵āAčh";
								mes "ƂӖłB";
								goto Lkotowazaend;
							Lkotowaza3:
								mes "ꐡ͈ţ";
								mes "ĥƂ́AS\邱Ƃ";
								mes "oȂhƂӖłB";
							Lkotowazaend:
								next;
								if ((@water == 1) && (@zeronum == 2) && (@mennnum == 3) && (@milknum == 1) && (@magic == 8472) && (@stone == 2)) goto Lsucsess1;
								if ((@zeronum == 3) && (@mennnum == 1) && (@milknum == 1) && (@magic == 3735) && (@stone == 1)) goto Lsucsess2;
								if ((@water == 1) && (@zeronum == 6) && (@mennnum == 1) && (@magic == 2750) && (@stone == 3)) goto Lsucsess3;
								if ((@water == 2) && (@zeronum == 2) && (@mennnum == 3) && (@magic == 5429) && (@stone == 4)) goto Lsucsess4;
									getitem 1090,1;
									mes "}WV]Ep̌";
									mes "tɉ̖肪܂B";
									goto Lfinale;
								Lsucsess1:
									getitem 1071,1;
									mes "}WV]Ep";
									mes "t <P>";
									goto Lfinale;
								Lsucsess2:
									getitem 1085,1;
									mes "}WV]Ep";
									mes "t <Q>";
									goto Lfinale;
								Lsucsess3:
									getitem 1086,1;
									mes "}WV]Ep";
									mes "t <R>";
									goto Lfinale;
								Lsucsess4:
									getitem 1087,1;
									mes "}WV]Ep";
									mes "t <S>";
								Lfinale:
									next;
									mes "[ACe@]";
									mes "܂B";
									mes "I܂B";
									mes "p肪Ƃ܂B";
									close;
LError:
		mes "[ACe@]";
		mes "ACex𒴂܂B";
		mes "10000ȉɐݒ肵ĉB";
		next;
		if (@choose == 1) goto Lzero;
		if (@choose == 2) goto Lmenn;
		if (@choose == 3) goto Lmilk;
LError2:
	mes "[ACe@]";
	mes "ACe܂Bǂ";
	mes "ɃZbeBOꂽmF";
	goto LErrorend;
LError3:
	mes "[ACe@]";
	mes "ݒ肳ꂽACe<[s[>";
	mes "܂BxmF";
	goto LErrorend;
LError4:
	mes "[ACe@]";
	mes "ݒ肳ꂽACe<Ȗ>";
	mes "܂BxmF";
	goto LErrorend;
LError5:
	mes "[ACe@]";
	mes "ݒ肳ꂽACe<~N>";
	mes "܂BxmF";
LErrorend:
	mes "BI܂B";
	mes "p肪Ƃ܂B";
	close;
LError6:
	mes "[ACe@]";
	mes "Aԍ͔͈̓͂𒴂܂B";
	mes "x͂ĂB";
	next;
	goto Lmagicinput;
Lend2:
	mes "[ACe@]";
	mes "I܂B";
	mes "p肪Ƃ܂B";
Lend:
	close;
}
//==============================================================================
pay_arche.gat,121,100,0	script	ntAoCg	88,{
	mes "[ptMh֌W]";
	mes "nt𔃂܂H";
	mes "50 ZenyƋ̎ǈȏオ";
	mes "KvłB";
	next;
	menu "nt𔃂",-,"߂",Lclose;
	if (countitem(1092) >= 1) goto Lok;
		mes "[ptMh֌W]";
		mes "ntǂ";
		mes "Ă܂H";
		mes "̎ǂĂĉB";
		close;
Lok:
	if (Zeny >= 50) goto Lok2;
		mes "[ptMh֌W]";
		mes "܂B";
		close;
Lok2:
	set Zeny,Zeny-50;
	delitem 1092,1;
	getitem 1089,1;
	mes "[ptMh֌W]";
	mes "肪Ƃ܂B";
Lclose:
	close;
}
//==============================================================================
moc_ruins.gat,91,150,0	script	ntAoCg	93,{
	mes "[ptMh֌W]";
	mes "nt𔃂܂H";
	mes "50 ZenyƋ̎1ȏオ";
	mes "KvłB";
	next;
	menu "nt𔃂",-,"߂",Lclose;
	if (countitem(1092) >= 1) goto Lok;
		mes "[ptMh֌W]";
		mes "ntǂ";
		mes "Ă܂H";
		mes "̎ǂĂĉB";
		close;
Lok:
	if (Zeny >= 50) goto Lok2;
		mes "[ptMh֌W]";
		mes "܂B";
		close;
Lok2:
	set Zeny,Zeny-50;
	delitem 1092,1;
	getitem 1088,1;
	mes "[ptMh֌W]";
	mes "肪Ƃ܂B";
Lclose:
	close;
}
