//==============================================
// pzs by FPE - 2007.9.12
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
//----------------------------------------------

prontera.gat,164,171,4	script	pzs	703,{
	if(gettimetick(0)-Laba_WaitTime<180000)
	{
		mes "[pzs]";
		mes "AoLsAеyL|AӡC";
		close;
	}

	mes "[pzs]";
	mes "AnAڥiHAs@ǫHC";
	mes "FHQμs̡AWwCsj3C";
	next;
	mes "[pzs]";
	mes "oOOAȡC";
	mes "ھڨCثHɦAN|OPHOΡC";
	mes "пܧAnoeHG";
	next; 
	switch(select(	"MM/GG  (2W Zeny)",
			"Hն (2W Zeny)",
			"Ha (1W Zeny)",
			"|H (10W Zeny)",
			"۩wqms (20W zeny)"
			)
		)
	{
	case 1:
		if(zeny<20000)
		{
			mes "[pzs]";
			mes "藍_AABC";
			close;
		}
		set zeny,zeny-20000;
		if(sex) announce string_format("ipzsj}GMM̦nAڬOӭ{0:S}AMM@NMڲѶܡHMھAKK^_^",strcharinfo(0)),15;
		else announce string_format("ipzsjGG̦nAڬO̳̥iR({0:S})ܡAGG@NڲѶܡHMAHH^o^",strcharinfo(0)),15;
		break;
	case 2:
		if(getcharid(1)==0)
		{
			mes "[pzs]";
			mes "A٨Sն@I";
			mes "F`AZenyAХإ߶I";
			close;
		}
		if(zeny<20000)
		{
			mes "[pzs]";
			mes "藍_AABC";
			close;
		}
		set zeny,zeny-20000;
		announce string_format("ipzsjjanAڬO({0:S})AH@N[J({1:S})@_mť_ܡHMھAqq-_-",strcharinfo(0),strcharinfo(1)),15;
		break;
	case 3:
		if(zeny<10000)
		{
			mes "[pzs]";
			mes "藍_AABC";
			close;
		}
		set zeny,zeny-10000;
		announce string_format("ipzsj GGJJ̦nAڬOsH({0:S})AGG/JJ@NaڽmŶܡHMAT_T",strcharinfo(0)),15;
		break;
	case 4:
		if(getcharid(2)==0)
		{
			mes "[pzs]";
			mes "An٨S[J󤽷|C";
			mes "F`AZenyA٬OF|AoaC";
			close;
		}
		if(zeny<100000)
		{
			mes "[pzs]";
			mes "藍_AABC";
			close;
		}
		set zeny,zeny-100000;
		announce string_format("ipzsj({0:S})|HơAJ|M|({1:S})II",strcharinfo(2),getguildmaster(getcharid(2))),15; 
		break;
	case 5:
		if(zeny<200000)
		{
			mes "[pzs]";
			mes "藍_AABC";
			close;
		}
		mes "[pzs]";
		mes "bJHeЬ^FF0000`Nƶ^000000";
		mes "^3355FF1Bu70Ӧrũ35Ӻ~rH^000000";
		mes "^3355FF2BToetɤOBⱡBFvBHr^000000";
		next;
		mes "[pzs]";
		mes "pao{HϳWw̽ЧϦb׾¤W|AHW^FF0000ᵲb1P^000000,AǱN^FF0000Rb^000000I";
		next;
		while(1)
		{
			mes "[pzs]";
			mes "пCG";
			switch(select("","","","","C","Ŧ","","۩wqC"))
			{
			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 "[pzs]";
					mes "пJRGB()R(0-255)G";
					input '@r;
				}
				while('@g<0 || '@g>255)
				{
					next;
					mes "[pzs]";
					mes "пJRGB()G(0-255)G";
					input '@g;
				}
				while('@b<0 || '@b>255)
				{
					next;
					mes "[pzs]";
					mes "пJRGB()B(0-255)G";
					input '@b;
				}
				set '@color$,string_format("{0:X2}{1:X2}{2:X2}",'@r,'@g,'@b);
				break;
			}
			next;
			mes "[pzs]";
			mes "пJieG";
			input '@msg$;
			next;
			mes "[pzs]";
			mes "oeipUG";
			mes "^"+'@color$+'@msg$;
			mes " ";
			mes "^000000ݭnק鷺eCܡH";
			next;
			if(select("ڭnק","έק")==2)
			{
				set zeny,zeny-200000;
				announce string_format("ipzsj({0:S}):{1:S}C",strcharinfo(0),'@msg$),0,"0x"+'@color$;
				break;
			}
		}
		break;
	}

	next;
	mes "[pzs]";
	mes "Hoe\C";
	set Laba_WaitTime,gettimetick(0);
	close;
}