//==============================================
// ʫתְ
// д &  by FPE (2006.7.13)
// Jathena++ ̳http://www.foxofice.net/bbs
//----------------------------------------------

comodo.gat,198,148,3	script	Ưʫ	741,{
	mes "[^000080ƶ^000000]";
	switch(class)
	{
	case 0:
		mes ".";
		mes "?";
		mes "ϲ ^00FF00ħ^000000 ?";
		next;
		switch(select("Ȼ.",".","ʵ, Ҿе."," ^800000ʫ^000000?"))
		{
		case 1:
			mes "[^000080ƶ^000000]";
			mes "ܺѽ.";
			next;
			mes "[^000080ƶ^000000]";
			mes "ûĿĵ, ϲ, Щ±.";
			close;
			end;
			break;
		case 2:
			mes "[^000080ƶ^000000]";
			mes ", ϲֻ˷ʱͽǮ.";
			close;
			end;
			break;
		case 3:
			mes "[^000080ƶ^000000]";
			mes "ĳ";
			mes ", ʵطһʺϴ䡣";
			next;
			mes "[^000080ƶ^000000]";
			mes "ϰ߾ͺá";
			close;
			end;
			break;
		case 4:
			mes "[^000080ƶ^000000]";
			mes "ѽ.";
			next;
			mes "[^000080ƶ^000000]";
			mes "ҽ ^800000^000000 ѵǳΪ ^800000ʫ^000000.";
			next;
			mes "[^000080ƶ^000000]";
			if(sex)
			{
				mes "Ϊ ^800000^000000, ҪΪ ^800000ʫ^000000 ,ͻҰ.";
				close;
				end;
			}
			else
			{
				mes "....Ůӡ";
				next;
				mes "[^000080ƶ^000000]";
				mes "ֻкӲܳΪ ^800000ʫ^000000.";
				mes "Ϊ ^800000^000000, Ҫȥ.";
				close;
				end;
			}
			break;
		}
		break;
	case 1:
		mes ", ӭ ^00FF00ħ^000000";
		mes ", ׼Ȥ?";
		next;
		if(select("һ׼.",".")==1)
		{
			mes "[^000080ƶ^000000]";
			mes "ܸô˵.";
			close;
			end;
		}
		mes "[^000080ƶ^000000]";
		mes "........";
		next;
		mes "[^000080ƶ^000000]";
		mes ", зʲô, һúõչ.";
		close;
		end;
		break;
	case 2:
		mes ", .";
		mes "ôÿ˶ ^008000ħʦ^000000 ѽ?";
		next;
		switch(select("Ļѽ.",".","."))
		{
		case 1:
			mes "[^000080ƶ^000000]";
			mes "ܸô˵.";
			close;
			end;
			break;
		case 2:
			mes "[^000080ƶ^000000]";
			mes ", ð. ϣһжܺá";
			close;
			end;
			break;
		case 3:
			mes "[^000080ƶ^000000]";
			mes ", ?  Ƿʲôѽ?";
			close;
			end;
			break;
		}
		break;
	case 3:
		goto Job_Change;
		break;
	case 4:
	case 8:
	case 10:
		mes ", ӭ ^00FF00ħ^000000.";
		close;
		end;
		break;
	case 5:
		mes ", ̵?";
		next;
		switch(select("ܺ.",".","."))
		{
		case 1:
			mes "[^000080ƶ^000000]";
			mes "ܸô˵.!";
			close;
			end;
			break;
		case 2:
			mes "[^000080ƶ^000000]";
			mes ", ϸ۸.";
			close;
			end;
			break;
		case 3:
			mes "[^000080ƶ^000000]";
			mes "ܲ.";
			close;
			end;
			break;
		}
		break;
	case 6:
		mes ", ӭ ^00FF00ħ^000000.";
		mes "ףʱ.";
		close;
		end;
		break;
	case 7:
		mes ", ӭ ^00FF00ħ^000000.";
		mes "Ƚϰȫ.";
		close;
		end;
		break;
	case 9:
		mes "ܸ˿.";
		mes "ӭ ^00FF00ħ^000000.";
		close;
		end;
		break;
	case 11:
		mes "ʤ֮·ǰԶ.";
		mes "һܺ.";
		close;
		end;
		break;
	case 12:
		mes " ^800000̿^000000, ж˱ɱ?";
		close;
		end;
		break;
	case 14:
		mes ", ӭ ^00FF00ħ^000000.";
		mes "ϣÿ˶ƽ.";
		close;
		end;
		break;
	case 15:
		mes "ӭ ^00FF00ħ^000000, ܸ.";
		close;
		end;
		break;
	case 16:
		mes "һΰ ^800000^000000 .";
		mes "˸һЩȫ.";
		close;
		end;
		break;
	case 17:
		mes "ӭ ^00FF00ħ^000000, ҪСľ.";
		mes "û, ǻ᲻˵.";
		close;
		end;
		break;
	case 18:
		mes "ӭ ^00FF00ħ^000000, ϣϲ.";
		next;
		switch(select("һ.","˵.","ҿɲϲ."))
		{
		case 1:
			mes "[^000080ƶ^000000]";
			mes ".";
			close;
			end;
			break;
		case 2:
			mes "[^000080ƶ^000000]";
			mes "ЩСϷ, һ....";
			close;
			end;
			break;
		case 3:
			mes "[^000080ƶ^000000]";
			mes "....ϣᷢʲô.";
			close;
			end;
			break;
		}
		break;
	case 19:
		mes ".";
		mes "ϣٿŵһ!";
		close;
		end;
		break;
	case 20:
		mes "~ ?";
		next;
		switch(select("Һܺ, лл.","һ","ое."))
		{
		case 1:
			mes "[^000080ƶ^000000]";
			mes "̫!";
			close;
			end;
			break;
		case 2:
			mes "[^000080ƶ^000000]";
			mes ", Сĵ, ϣ첻.";
			close;
			end;
			break;
		case 3:
			mes "[^000080ƶ^000000]";
			mes "ϣĺܺ.";
			close;
			end;
			break;
		}
		break;
	case 22:
		if(sex)
		{
			mes ", ˸.";
			close;
			end;
		}
		mes ", .";
		mes ", Ѿ!";
		mes "λ˶ѽ?";
		close;
		end;
		break;
	case 23:
		mes ", ӭ ^00FF00ħ^000000.";
		mes "ףõһ.";
		close;
		end;
		break;
	}

Job_Change:
	if(sex==0)
	{
		mes ", ҪΪ ^800000^000000, ȥ ^000080  ޱ ^000000 .";
		close;
		end;
	}

	if(Job_BA==1) goto PART1;

	if(Job_BA==2)
	{
		mes "ôռ?";
		next;
		switch(quest_type)
		{
		case 1:	
			if(countitem(2207)==0) goto NOITEM;
			delitem 2207,1;
			break;
		case 2:	
			if(countitem(2269)==0) goto NOITEM;
			delitem 2269,1;
			break;
		case 3:
			if(countitem(710)==0) goto NOITEM;
			delitem 710,1;
			break;
		}
		mes "[^000080ƶ^000000]";
		mes ",ô,ҵҵĺ ^000080^000000.";
		set Job_BA,3;
		close;
	}

	if(Job_BA==3) goto PART3;
	if(Job_BA>3) goto CONT;
	mes ", Ǳߵ.";
	mes "ܰʲô?";
	next;
	menu	"Ϊ ^800000ʫ^000000.",JOB,
		", Һܺ.",-;
NO:
	set Job_BA,1;
	mes "[^000080ƶ^000000]";
	mes ", ذ.";
	next;
	mes "[^000080ƶ^000000]";
	mes ", ... Ϊ ^800000ʫ^000000 Ļ, .";
	close;
	end;
JOB:
	set Job_BA,2;
	mes "[^000080ƶ^000000]";
	mes ".";
	next;
	mes "[^000080ƶ^000000]";
	mes ", տʼ, ҪռһЩϡ";
	set @RND,rand(1,3);
	switch(@RND)
	{
	case 1:
		mes "ռһ ^FF0000ͷ^000000";
		break;
	case 2:
		mes "ռһ ^FF0000Ҷ^000000";
		break;
	case 3:
		mes "ռһ ^FF0000뻨^000000";
		break;
	}
	set quest_type,@RND;
	mes "ҵٻҰɡ";
	close;
	end;
PART1:
	mes "Ҫ¿ǳΪ ^800000ʫ^000000 ?";
	next;
	menu	"ǵ",JOB,
		"",NO;
			
NOITEM:
	mes "[^000080ƶ^000000]";
	mes "... һЩ.";
	switch(quest_type)
	{
	case 1:
		mes "һ^FF0000ͷ^000000";
		break;
	case 2:
		mes "һ^FF0000Ҷ^000000";
		break;
	case 3:
		mes "һ^FF0000뻨^000000";
		break;
	}
	mes "ҵٻҰ.";
	close;
	end;
PART3:
	if(xmas_npc==11) goto PART4;
	mes "ҪҴ͵ ^00FF00^000000 ?";
	next;
	if(select("ǵ.",".")==1)
	{
		warp "xmas.gat",148,129;
		end;
	}
	mes "[^000080ƶ^000000]";
	mes ", .";
	close;
	end;
CONT:
	if(Job_BA==4) goto PART5;
	if(Job_BA==5) goto PART6;
	if(Job_BA==6) goto PART7;
	mes "ף ^00FF00^000000 ˳˳.";
	close;
	end;
PART5:
	mes ", ׼ҪʼĲ?";
	goto AGAIN;
PART6:
	mes ", ׼ҪʼĲ?";
	goto AGAIN;
PART4:
	mes ", һж׼ˡ";
	mes "Ҫ?";
	set Job_BA,4;
	next;
	if(select("õ.","һ.")==2)
	{
		mes "[^000080ƶ^000000]";
		mes ", ׼, Ұ.";
		close;
		end;
	}
	set Job_BA,5;
	mes "[^000080ƶ^000000]";
	mes "ܺ.";
	next;
	mes "Ĳ.һᳪ׸, ظҳĸ.";
	mes "?";
	next;
	mes "ôʼ...";
	next;
	mes "^3355FF㣬ٴ㣬ٴ^000000";
	mes "ҡΣôɣ";
	mes "ÿҪը࣬Ծ!";
	mes "ʱʼǽɣ";
	mes "ֻһ˲䣬Ҳ";
	next;
	input @string$;
	if(@string$ != "ҡΣôɣ") goto Error;
	mes "[^000080ƶ^000000]";
	mes "ţ..";
	next;
	input @string$;
	if(@string$ != "ÿҪը࣬Ծ!") goto Error;
	mes "[^000080ƶ^000000]";
	mes "ţȥ...";
	next;
	input @string$;
	if(@string$ != "ʱʼǽɣ") goto Error;
	mes "[^000080ƶ^000000]";
	mes "ţأ";
	next;
	input @string$;
	if( @string$ != "ֻһ˲䣬Ҳ") goto Error;
	mes "[^000080ƶ^000000]";
	mes "ţ...";
	next;
GOOD0:
	mes "[^000080ƶ^000000]";
	mes "!";
	mes "пܳΪ ^800000ʫ^000000!";
	set Job_BA,6;
	next;
CHECK:
	mes "[^000080ƶ^000000]";
	mes "ҿһ.";
	next;
	mes "[^000080ƶ^000000]";
	if(JobLevel>39) goto OKAY0;
	mes "ܱǸ, ְҵȼҪ40.";
	close;
	end;
OKAY0:
	if(SkillPoint==0) goto OKAY1;
	mes "Ǻ, ļܵҪ.";
	close;
	end;
OKAY1:
	mes "ܺ!";
	mes "ô.";
	jobchange 19,Upper;
	set ReClass,19;
	mes "ϲתְˣ";
	getitem 1901,1;
NO_BON:
	close;
	end;
AGAIN:
	mes "?";
	next;
	mes "ôʼ...";
	next;
	mes "^3355FF㣬ٴ㣬ٴ^000000";
	mes "ҡΣôɣ";
	mes "ÿҪը࣬Ծ!";
	mes "ʱʼǽɣ";
	mes "ֻһ˲䣬Ҳ";
	next;
	input @string$;
	if(@string$ != "ҡΣôɣ") goto Error;
	mes "[^000080ƶ^000000]";
	mes "ţ..";
	next;
	input @string$;
	if(@string$ != "ÿҪը࣬Ծ!") goto Error;
	mes "[^000080ƶ^000000]";
	mes "ţȥ...";
	next;
	input @string$;
	if(@string$ != "ʱʼǽɣ") goto Error;
	mes "[^000080ƶ^000000]";
	mes "ţأ";
	next;
	input @string$;
	if( @string$ != "ֻһ˲䣬Ҳ") goto Error;
	mes "[^000080ƶ^000000]";
	mes "ţ...";
	next;
	goto GOOD0;
Error:	
	mes "[^000080ƶ^000000]";
	mes "ܱǸ, Ҫ².";
	close;
	end;

PART7:
	mes "׼תְ?";
	next;
	menu	".",CHECK,
		"һ, һû׼.",-;
	mes "[^000080ƶ^000000]";
	mes "ʲô!ǰ...";
	mes "ôѾ?";
	close;
	end;
}
