//==============================================
// 
// д by FPE(2006.7.3)
// Jathena++ ̳http://www.foxofice.net/bbs
//----------------------------------------------

function	script	son	{
	deletearray @hair_son01$[0],20;
	deletearray @hair_son02$[0],20;
	setarray @hair_son01$,	"",
							"װ",
							"˫ֽʹ",
							"鱬",
							"ʸ",
							"ʹ֮ϱ",
							"Ƴʹ",
							"ʩ",
							"ﻥ",
							"ɢ",
							"ת",
							"֪ʶ",
							"ʹ",
							"ױ",
							"",
							"Ӱ֮",
							"",
							"Ѱҿʯ",
							"",
							"ްԻȭ";
	setarray @hair_son02$,	"",
							"ƽȣص㣬",
							"һλĽʿкƣ",
							"Ըо֪ķͣ",
							"ú峺ķͣ",
							"Ǻƽϵķͣ",
							"ǽƳ ΰĻķͣ",
							"ожоķͣ",
							"ֻҪһ۵Ļ úܶϵķ!",
							"ķͣ",
							"оϿħһ֮еķ!",
							"صΪͣķ",
							"̶ܼ۵ķ!",
							"оϺ ׻йĸо!!",
							"˸оҪȥķͣ",
							"̴̵ĸо񱻴̵ķ!",
							"оߵ˺ķ...?",
							"·񶫼ķͣ",
							"һʱƯķ...!",
							"һȭеϣķ!";
	cutin "son",2;
	mes "[]";
	mes "~";
	mes "־ ^3355FF^000000";
	mes "Ϊ˻ҵĺ񰮣";
	mes "Ѿѧ";
	mes "ôλ緢͵Ĺ";
	next;
	mes "[]";
	mes "ʱҲҪһ鰡";
	mes "תһ飬";
	mes "㻻һ·ͺ";
	next;
	menu	"Ҫ",A01,
		"ı䷢",A02,
		"ָҵHP/SP",A03,
		"Ի",A04;

A01:
	mes "[]";
	mes "࣬1ŵ23ţ";
	mes "Ҫţ";
	mes "뿴Ļѡ0ţ";
	next;
	input @nobem;
	if(@nobem<1 || @nobem>23) goto A04;
	if(@nobem>=10) cutin sex?("hair_m_"+@nobem):("hair_f_"+@nobem),4;
	else cutin sex?("hair_m_0"+@nobem):("hair_f_0"+@nobem),4;
	//if(Sex == 0 && @nobem < 10) cutin "hair_f_0"+@nobem,4; 
	//if(Sex == 1 && @nobem < 10) cutin "hair_m_0"+@nobem,4;
	//if(Sex == 0 && @nobem > 9) cutin "hair_f_"+@nobem,4;
	//if(Sex == 1 && @nobem > 9) cutin "hair_m_"+@nobem,4;
	mes "[]";
	mes " " + @hair_son01$[@nobem] + "ͣ";
	mes @hair_son02$[@nobem];
	mes "ô";
	close2;
	cutin "son",255;
	end;

A02:
	mes "[]";
	mes "࣬1ŵ23ţ";
	mes "Ҫţ";
	mes "뻻Ļѡ0ţ";
	next;
	input @nobem;
	if(@nobem<1 || @nobem>23) goto A04;
	if(@nobem==getlook(1))
	{
		mes "[]";
		mes "ࡣˣڵķͣ";
		mes "㲻ˣ";
		mes "Ҫĳֵķͣ";
		mes "װƷװһ°";
		cutin "son",255;
		close;
		end;
	}
	if(@nobem>=10) cutin sex?("hair_m_"+@nobem):("hair_f_"+@nobem),4;
	else cutin sex?("hair_m_0"+@nobem):("hair_f_0"+@nobem),4;
	mes "[]";
	mes " " + @hair_son01$[@nobem] + "ͣ";
	mes @hair_son02$[@nobem];
	mes "ô";
	next;
	menu	"",-,
		"ٿ",A02,
		"Ի",A04;
	cutin "son",2;
	mes "[]";
	mes "ˣ۹أ";
	mes "һ?";
	mes "ھ͸";
	next;
	setlook 1,@nobem;
	mes "[]";
	mes "ˣ";
	mes "ôǲҲһ?";
	mes "´ҪĻǵ";
	cutin "son",255;
	close;
	end;

A03:
	mes "[]";
	mes "Ȼô˵ұؽһŬΪ˷ġÿҽȡ1000ңĽҲ㣬޷ָġ";
	next;
	mes "[]";
	if(Hp>=MaxHp && Sp>=MaxSp)
	{
		mes "ڵ״̬ãҪָHP/SP~´Ҫʱɡ";
		cutin "son",255;
		close;
		end;		
	}
	if(zeny>=1000)
	{
		percentheal 100,100;
		set zeny,zeny-1000;
		mes "лл֧֣HP/SPѾָҪʱӭ!";
	}
	else
		mes "ܱǸĽҲ㣬޷ָHP/SP";
	cutin "son",255;
	close;
	end;
A04:
	mes "[]";
	mes "ûϵҪĻǵңһڴΪ";
	next;
	mes "[]";
	mes "ǵãõɾ׿һУúõܡ˵ҲҺúúõİңҲŬΪλġ";
	cutin "son",255;
	close;
	end;
}

prontera.gat,146,92,5	script		756,{ callfunc "son"; }
izlude.gat,134,92,4	script		756,{ callfunc "son"; }
aldebaran.gat,143,116,5	script		756,{ callfunc "son"; }
geffen.gat,120,60,8	script		756,{ callfunc "son"; }
morocc.gat,162,97,5	script		756,{ callfunc "son"; }
alberta.gat,25,238,5	script		756,{ callfunc "son"; }
payon.gat,198,117,4	script		756,{ callfunc "son"; }
yuno.gat,164,48,5	script		756,{ callfunc "son"; }
amatsu.gat,192,81,5	script		756,{ callfunc "son"; }
gonryun.gat,156,14,5	script		756,{ callfunc "son"; }
xmas.gat,149,135,5	script		756,{ callfunc "son"; }
