//:????()
//޸:Akor 
//޸:528;
//:xwro.512j.com
prontera.gat,164,110,3	script	㲥̨	703,{	callfunc "broadcast";	}

function	script	broadcast	{
	if((#time7 < gettime(7)) || (#time8 < gettime(8)) || (#time3 < gettime(3)) || ((gettime(2)-#time2) >= 4)) set #WaitingTime,0;
	if(#shuaping==1)goto L_WAITING;
	mes " [㲥̨]";
	mes ",ҿ԰㲥һЩϢ";
	mes "עⲻҪˢ!";
	mes "ˢĻһ^FF0000СȨ^000000";
	mes "^FF0000ҿӱܴûõģ^000000";
	if(#WaitingTime>=3)mes "^FF0000עѾ3Գ3,5,ϵͳԶ¼ˢϢȡСʸͬʱ1Сʱ^000000";
	next;
	if(sex==1)set $@Lsex$,"MM";
	if(sex==0)set $@Lsex$,"GG";
	mes " [㲥̨]";
	mes " շѷ";
	mes " ÿϢ";
	mes " ֱȡͬϢ";
	mes " ѡҪϢ";
	next; 
	menu	" "+$@Lsex$+"( 2000 Zeny)",S_mes1,
        	"  ( 2000 Zeny)",S_mes3,
        	" ˴ ( 1000 Zeny)",S_mes4,
        	"  (10000 Zeny)",S_mes5,
        	" Զ",S_mes7;
        close;

L_WAITING:
	if(countitem(19991)!=0)goto L_CLEAR;
	mes " [㲥̨]";
	mes " Ѿ";
	mes " ι㲥,ϵͳѾ¼ˢϢ!";
	mes " еԱϴ!";
	close;
	
S_mes1:
	if ( Zeny < 2000 ) goto Over;
	set Zeny , Zeny - 2000;
	if(sex==1)announce "㲥̨ ƯMMǺ,˧ (" + strcharinfo(0) + "),MMԸ?M,ٺ^_^",15;
	if(sex==0)announce "㲥̨ GGǺ,żϵ͵(" + strcharinfo(0) + ")ü,GGԸż?Mż,^o^",15;
	goto L_END;
S_mes3:
	if ( getcharid(1) == 0 ) goto S_mes3_1;
	if ( Zeny < 2000 ) goto Over;
	set Zeny , Zeny - 2000;
	announce "㲥̨ Һ,(" + strcharinfo(0) + "),Ը(" + getpartyname(getcharid(1)) + ")һ?M,-_-",15;
	goto L_END;
	close;
S_mes3_1:
	mes " [㲥̨]";
	mes " 㻹ûŶ";
	mes " Ϊ˽ԼZeny";
	mes " Ƚ飡";
	close;
S_mes4:
	if ( Zeny < 1000 ) goto Over;
	set Zeny , Zeny - 1000;
	announce "㲥̨ GGJJǺ,ż(" + strcharinfo(0) + "),GG/JJԸ?Mż,T_T",15;
	goto L_END;
	close;
S_mes5:  
	if ( getcharid(2) == 0 ) goto S_mes5_1;
	if ( Zeny < 10000 ) goto Over;
	set Zeny , Zeny - 10000;
	announce "㲥̨ (" + getguildname(getcharid(2)) + "),ĿM᳤(" + getguildmaster(getcharid(2)) + ")!!!!",15; 
	goto L_END;
	close;
S_mes5_1:
	mes " [㲥̨]";
	mes " ûмκι";
	mes " Ϊ˽ԼZeny";
	mes " ˹ٷ";
	close;
S_mes7:
	mes " [㲥̨]";
	mes "Ϣ֮ǰ뿴^FF0000ע^000000";
	mes "^3355FFֹκκбɫ顢Ρ^000000";
	mes "ҷΥ涨ץͼ̳Ͼٱ,κΥ^FF0000ʻ1^000000,ٷ^FF0000öʻ^000000!";
	next;	
	mes " [㲥̨]";
	mes " ѡҪ";
	menu "һ(10000 Zeny)",Stiao1,"(25000 Zeny)",Stiao2,"(40000 Zeny)",Stiao3,"(60000 Zeny)",Stiao4,"(88000 Zeny)",Stiao5;
Stiao1:
	if ( Zeny < 10000 ) goto Over;
	set Zeny , Zeny - 10000;
	set @Ldt,1;
	goto L_g;
Stiao2:
	if ( Zeny < 25000 ) goto Over;
	set Zeny , Zeny - 25000;
	set @Ldt,2;
	goto L_g;
Stiao3:
	if ( Zeny < 40000 ) goto Over;
	set Zeny , Zeny - 40000;
	set @Ldt,3;
	goto L_g;
Stiao4:
	if ( Zeny < 60000 ) goto Over;
	set Zeny , Zeny - 60000;
	set @Ldt,4;
	goto L_g;
Stiao5:
	if ( Zeny < 88000 ) goto Over;
	set Zeny , Zeny - 88000;
	set @Ldt,5;
	
L_g:
	input @string1$;
L_g2:	
	if(@Ldt==1)goto L_gog;
	input @string2$;
L_g3:
	if(@Ldt==2)goto L_gog;
	input @string3$;
L_g4:
	if(@Ldt==3)goto L_gog;
	input @string4$;
L_g5:
	if(@Ldt==4)goto L_gog;
	input @string5$;
L_gog:
	if(@Ldt==1)announce "㲥̨("+strcharinfo(0)+")˵:"+ @string1$ + ".",15;
	if(@Ldt==2)announce "㲥̨("+strcharinfo(0)+")˵:"+ @string1$ +"" + @string2$+"",15;
	if(@Ldt==3)announce "㲥̨("+strcharinfo(0)+")˵:"+ @string1$ +"" + @string2$+""+ @string3$+"",15;
	if(@Ldt==4)announce "㲥̨("+strcharinfo(0)+")˵:"+ @string1$ +"" + @string2$+""+ @string3$+""+@string4$ +"",15;
	if(@Ldt==5)announce "㲥̨("+strcharinfo(0)+")˵:"+ @string1$ +"" + @string2$+""+ @string3$+""+@string4$ +""+@string5$ +"",15;
L_CLOSE:
	mes "Ϣͳɹ";
	goto L_END;
	close;
L_CLEAR:
	delitem 19991,1;
	mes "ٸˣɱ";
	set #shuaping, 0;
	set #WaitingTime, 0;
	sc_end SC_NOCHAT;
	close;
Over:
	mes " [㲥̨]";
	mes "ԲĽ";
	close;
L_END:
	if(#WaitingTime == 0) set #time7,gettime(7);
	if(#WaitingTime == 0) set #time8,gettime(8);
	if(#WaitingTime == 0) set #time3,gettime(3);
	if(#WaitingTime == 0) set #time2,gettime(2);
	set #WaitingTime,#WaitingTime+1;
	if(#WaitingTime==5)set #shuaping,1;
	if(#WaitingTime==5)sc_start SC_NOCHAT,3600,1;
	close;
	end;
}