//==============================================
// Сȹ㲥 by FPE - 2007.9.12
// Jathena++ ̳http://www.foxofice.net/bbs
//----------------------------------------------

prontera.gat,164,171,4	script	Сȹ㲥	703,{
	if(gettimetick(0)-Laba_WaitTime<180000)
	{
		mes "[Сȹ㲥]";
		mes "ոշ㲥΢Ȼ";
		close;
	}

	mes "[Сȹ㲥]";
	mes "ãҿ԰㲥һЩϢ";
	mes "Ϊ˷ֹù㲥ˢ涨ÿι㲥3ӡ";
	next;
	mes "[Сȹ㲥]";
	mes "շѷ";
	mes "ÿϢΣֱȡͬϢá";
	mes "ѡҪϢͣ";
	next; 
	switch(select(	"MM/GG  (2W Zeny)",
			" (2W Zeny)",
			"˴ (1W Zeny)",
			" (10W Zeny)",
			"Զɫ㲥 (20W zeny)"
			)
		)
	{
	case 1:
		if(zeny<20000)
		{
			mes "[Сȹ㲥]";
			mes "ԲĽ㡣";
			close;
		}
		set zeny,zeny-20000;
		if(sex) announce string_format("Сȹ㲥ƯMMǺã˧{0:S}MMԸMޣٺ^_^",strcharinfo(0)),15;
		else announce string_format("Сȹ㲥˧GGǺãɰ({0:S})ü˧GGԸMżร^o^",strcharinfo(0)),15;
		break;
	case 2:
		if(getcharid(1)==0)
		{
			mes "[Сȹ㲥]";
			mes "㻹ûŶ";
			mes "Ϊ˽ԼZenyȽ飡";
			close;
		}
		if(zeny<20000)
		{
			mes "[Сȹ㲥]";
			mes "ԲĽ㡣";
			close;
		}
		set zeny,zeny-20000;
		announce string_format("Сȹ㲥Һã({0:S})Ը({1:S})һMޣ-_-",strcharinfo(0),strcharinfo(1)),15;
		break;
	case 3:
		if(zeny<10000)
		{
			mes "[Сȹ㲥]";
			mes "ԲĽ㡣";
			close;
		}
		set zeny,zeny-10000;
		announce string_format("Сȹ㲥 GGJJǺã({0:S})GG/JJԸMżรT_T",strcharinfo(0)),15;
		break;
	case 4:
		if(getcharid(2)==0)
		{
			mes "[Сȹ㲥]";
			mes "ûмκι";
			mes "Ϊ˽ԼZeny˹ٷɡ";
			close;
		}
		if(zeny<100000)
		{
			mes "[Сȹ㲥]";
			mes "ԲĽ㡣";
			close;
		}
		set zeny,zeny-100000;
		announce string_format("Сȹ㲥({0:S})ඣĿM᳤({1:S})",strcharinfo(2),getguildmaster(getcharid(2))),15; 
		break;
	case 5:
		if(zeny<200000)
		{
			mes "[Сȹ㲥]";
			mes "ԲĽ㡣";
			close;
		}
		mes "[Сȹ㲥]";
		mes "Ϣ֮ǰ뿴^FF0000ע^000000";
		mes "^3355FF1ֻ70ַ35^000000";
		mes "^3355FF2ֹκκбɫ顢Ρ^000000";
		next;
		mes "[Сȹ㲥]";
		mes "ҷΥ涨ץͼ̳ϾٱκΥ^FF0000ʻ1^000000,ٷ^FF0000ֱɾʻ^000000";
		next;
		while(1)
		{
			mes "[Сȹ㲥]";
			mes "ѡɫ";
			switch(select("ɫ","ɫ","ɫ","ɫ","ɫ","ɫ","ɫ","Զɫ"))
			{
			case 1:
				set '@color$,"ff0000";
				break;
			case 2:
				set '@color$,"ffa500";
				break;
			case 3:
				set '@color$,"ffff00";
				break;
			case 4:
				set '@color$,"008000";
				break;
			case 5:
				set '@color$,"008080";
				break;
			case 6:
				set '@color$,"0000ff";
				break;
			case 7:
				set '@color$,"800080";
				break;
			default:
				set '@r,-1;
				set '@g,-1;
				set '@b,-1;
				while('@r<0 || '@r>255)
				{
					next;
					mes "[Сȹ㲥]";
					mes "RGB()еRֵ(0-255)";
					input '@r;
				}
				while('@g<0 || '@g>255)
				{
					next;
					mes "[Сȹ㲥]";
					mes "RGB()еGֵ(0-255)";
					input '@g;
				}
				while('@b<0 || '@b>255)
				{
					next;
					mes "[Сȹ㲥]";
					mes "RGB()еBֵ(0-255)";
					input '@b;
				}
				set '@color$,string_format("{0:X2}{1:X2}{2:X2}",'@r,'@g,'@b);
				break;
			}
			next;
			mes "[Сȹ㲥]";
			mes "빫ݣ";
			input '@msg$;
			next;
			mes "[Сȹ㲥]";
			mes "͵Ĺ£";
			mes "^"+'@color$+'@msg$;
			mes " ";
			mes "^000000Ҫ޸ݻɫ";
			next;
			if(select("Ҫ޸","޸")==2)
			{
				set zeny,zeny-200000;
				announce string_format("Сȹ㲥({0:S})˵:{1:S}",strcharinfo(0),'@msg$),0,"0x"+'@color$;
				break;
			}
		}
		break;
	}

	next;
	mes "[Сȹ㲥]";
	mes "Ϣͳɹ";
	set Laba_WaitTime,gettimetick(0);
	close;
}