laba.txt

c151的晋级版

prontera.gat,163,109,3	script	小喇叭广播	703,{ 
	if ( @WaitingTime == 1 ) goto L_WAITING;
	mes " [小喇叭广播]";
	mes " 你好,我可以帮你广播一些信息";
	mes " 为了防止有人利用广播刷屏";
	mes " 规定每次广播间隔3分钟";
	next;
	mes " [小喇叭广播]";
	mes " 这是收费服务";
	mes " 根据每种信息档次";
	mes " 将会分别收取不同的信息费用";
	mes " 请选择你要发送信息的类型";
	next; 
	menu	" 找MM     ( 2W Zeny)",S_mes1,
        	" 找GG     ( 2W Zeny)",S_mes2,
        	" 找人组队 ( 2W Zeny)",S_mes3,
        	" 找人带我 ( 1W Zeny)",S_mes4,
        	" 工会收人 (10W Zeny)",S_mes5,
        	" 自定义广播<限20个汉字以内>(20W zeny)",S_mes6;
        close;

L_WAITING:
	mes " [小喇叭广播]";
	mes " 你刚刚发过广播";
	mes " 请稍微等会再来";
	close;
	
S_mes1:
	if ( Zeny < 20000 ) goto Over;
	set Zeny , Zeny - 20000;
	announce "【小喇叭广播】 漂亮MM们好,我是帅哥 (" + strcharinfo(0) + "),有MM愿意和我聊天吗?M我噢,嘿嘿^_^",15;
	goto L_END;
	close;
S_mes2:
	if ( Zeny < 20000 ) goto Over;
	set Zeny , Zeny - 20000;
	announce "【小喇叭广播】 蟀GG们好,偶系最最口耐滴(" + strcharinfo(0) + ")美眉,有蟀GG愿意陪偶聊天吗?M偶喔,嘻嘻^o^",15;
	goto L_END;
	close;
S_mes3:
	if ( getcharid(1) == 0 ) goto S_mes3_1;
	if ( Zeny < 20000 ) goto Over;
	set Zeny , Zeny - 20000;
	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 < 10000 ) goto Over;
	set Zeny , Zeny - 10000;
	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 < 100000 ) goto Over;
	set Zeny , Zeny - 100000;
	announce "【小喇叭广播】 (" + getguildname(getcharid(2)) + ")工会收人喽,入会的快M会长(" + getguildmaster(getcharid(2)) + ")!!!!",15; 
	goto L_END;
	close;
S_mes5_1:
	mes " [小喇叭广播]";
	mes " 你好像还没有加入任何工会嘛";
	mes " 为了节约你的Zeny";
	mes " 还是有了工会再发吧";
	close;
S_mes6:  
	mes " [小喇叭广播]";
	mes "在输入信息之前请看^FF0000注意事项^000000";
	mes "^3355FF1、只限40个字符或20个汉字以内^000000";
	mes "^3355FF2、禁止发送任何含有暴力、色情、政治、人身攻击的文字^000000";
	mes "如有玩家发现违反规定者请抓图在论坛上举报,任何违规者^FF0000冻结帐户1周^000000,再犯将^FF0000永久冻结帐户^000000!";
	next;
	if ( Zeny < 200000 ) goto Over;
	set Zeny , Zeny - 200000;
	input @string$;
	if ( @string$ == "end" ) goto L_CLOSE;
	if ( @string$ == "完成" ) goto L_CLOSE;
	announce "【小喇叭广播】(" + strcharinfo(0) + ")说:" + @string$ + "。",15; 
	goto L_CLOSE;
	close;
L_CLOSE:
	mes "信息发送成功";
	goto L_END;
	close;
Over:
	mes " [小喇叭广播]";
	mes "对不起，你的金额不足";
	close;
L_END:
	set @WaitingTime , 1 ;
	addtimer 180000 , "ev_Waiting" ;
	close;
}

prontera.gat,163,109,3	script	ev_Waiting	-1,{
	set @WaitingTime , 0 ;
}