UID38592
帖子
精華
主題
積分1102
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限10
註冊時間2007-12-5
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 郁悶 2010-9-1 08:54 PM |
---|
簽到天數: 1 天 連續簽到: 0 天 [LV.1]初來乍到
|

樓主 |
發表於 2009-6-9 22:40:44
|
顯示全部樓層
我有用驗証
3樓大大的改法要加在這句裡嗎?
- script OnPCLoginEvent -1,{
OnPCLoginEvent:
set @CheckCRF,callfunc("CheckCRF_Event");
atcommand "@option 02 00 64 ";
set @Char_Pass_Num,getstrlen(#Char_Pass$);
set @PassWrong,0;
set @LoginWrong,0;
if ( @Char_Pass_Num < 4 || @Char_Pass_Num > 12 ) goto Login_Bot_Test;
Char_Password:
//防盜密碼驗證部份
set @PassWrong,@PassWrong+1;
mes "[防盜密碼鎖]";
mes "您的帳號有申請防盜密碼,";
mes "當驗證完才能夠開始遊戲。";
mes "請您輸入您的^FF0000防盜密碼^000000";
next;
set @Pass$,0;
input @Pass_$;
//防盜密碼輸入錯誤
if ( @Pass_$ != #Char_Pass$ ) {
if ( @PassWrong == $@KickPassWrong ) {
callfunc "SetCRF_Event";
atcommand "@kick "+strcharinfo(0);
close;
}
mes "[防盜密碼鎖]";
mes "重新輸入次數:^FF0000剩餘 "+($@KickPassWrong-@PassWrong)+" 次^000000";
next;
goto Char_Password;
}
set @Pass$,0;
Login_Bot_Test:
if ( $@LoginBotTest != 1 ) {
callfunc "StartSelect";
}
//GM人物登入
if ( getgmlevel() >= $@GameManagement ) {
if ( $@GmOnOffline == 1 ) {
announce "公告 : GM "+strcharinfo(0)+" 登入於伺服器中!!",15;
}
mes "[反外掛程式]";
mes "GM大大不需驗證偵測!!";
mes "請您按下 Enter 鍵,開始遊戲吧。";
next;
callfunc "StartSelect";
}
//登入驗證部份
set @LoginWrong,@LoginWrong+1;
set @LoginBot1$,"";
for ( set @i,0; @i < $@LoginNumber; set @i,@i + 1 ) {
set @LoginBot1$,@LoginBot1$+$@BotName$[rand(61)];
}
mes "[反外掛程式]";
mes "您好為降低外掛對伺服器的侵擾,";
mes "我們需要驗證才能讓您開始遊戲,";
mes "請您正確輸入下面的驗證碼。";
mes "??????????";
mes "?驗證碼:?^FF0000"+@LoginBot1$+"^000000 ?";
mes "??????????";
next;
input @LoginBot2$;
if(@LoginBot2$!=@LoginBot1$) {
//驗證輸入錯誤
if(@LoginWrong == $@KickLoginWrong) {
callfunc "SetCRF_Event";
atcommand "@kick "+strcharinfo(0);
close;
}
//驗證輸入剩餘次數
mes "[反外掛程式]";
mes "重新輸入次數:^FF0000剩餘 "+($@KickLoginWrong-@LoginWrong)+" 次^000000";
next;
goto Login_Bot_Test;
}
//一般人物登入
mes "[反外掛程式]";
mes "您已偵測完畢,並非外掛程式!!";
mes "請您按下 Enter 鍵,開始遊戲謝謝。";
next;
callfunc "StartSelect";
} |
|