UID98544
帖子
精華
主題
積分1834
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限10
註冊時間2008-7-29
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 怒 2016-1-17 05:02 PM |
---|
簽到天數: 43 天 連續簽到: 1 天 [LV.5]常住居民I
|

樓主 |
發表於 2010-7-14 16:27:13
|
顯示全部樓層
/*
2009-08-22
重新撰寫防多窗腳本。
邊數全部使用「.@」,不多佔空間。
這次是以登入後資料庫會自動更新最後登入IP為主要依據,所以只要人物登入時判斷是否有同IP在線人物即可。
by r.
*/
- script windows -1,{
OnPCLoginEvent:
//取得登入者IP
query_sql("SELECT last_ip FROM `login` WHERE account_id = "+getcharid(3)+"", .@LastIp$);
//檢查同IP帳號
query_sql("SELECT account_id FROM `login` WHERE last_ip = '"+.@LastIp$+"'", .@AccountId);
//檢查同IP在線人數
for(set .@i ,0;.@i<getarraysize(.@AccountId);set .@i,.@i+1){
if(isloggedin(.@AccountId[.@i]))set .@j,.@j+1;
if(.@j>$@MaxWimdows){
mes "抱歉,^FF6600" + strcharinfo(0) + "^000000,IP[^FF6600" + .@LastIp$ + "^000000]";
mes "^FF0000相同的IP,系統中有 "+$@MaxWimdows+" 在線上.";
mes "防止雙開系統將踢你下線!^000000";
sleep2(3000);
atcommand "@kick "+strcharinfo(0);
end;
}
}
end;
OnInit:
//最大窗數
set $@MaxWimdows,2;
end;
} |
|