UID185344
帖子
精華
主題
積分1735
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限10
註冊時間2009-8-10
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 開心 2024-9-22 08:25 PM |
---|
簽到天數: 250 天 連續簽到: 1 天 [LV.8]以壇為家I
|
[1]:原本此腳本是用在EA版本OK的.
因換了版本(SeAr),結果沒反應.
也不知道為什麼?
[2]:MapServ視窗也沒錯誤出現.
-
- ball2,50,50,0 script 封號管理員 910,{
- if (getgmlevel()<60) end;
-
- switch(select("以角色名稱封號:以帳號形式封號")) {
- case 1:
- mes "請輸入角色名稱:";
- input .@name$;
- query_sql "SELECT `char_id`,`account_id`,`name` FROM `char` WHERE `name` = '"+escape_sql(.@name$)+"'", .@char_id,.@account_id,.@name$;
- if (!.@account_id) {
- mes "^FF0000 並沒有此角色名稱.";
- close;
- }
- break;
- case 2:
- mes "請輸入帳號ID:";
- input .@userid$;
- query_sql "SELECT `account_id`,`userid` FROM `login` WHERE `userid` = '"+escape_sql(.@userid$)+"'", .@account_id,.@userid$;
- if (!.@account_id) {
- mes "^FF0000 並沒有此帳號存在.";
- close;
- }
- break;
- }
-
- query_sql "SELECT `last_ip` FROM `login` WHERE `account_id`="+.@account_id, .@last_ip$;
- mes "請輸入封號的原因:";
- input .@reason$;
- next;
-
- if (.@char_id) mes "封掉角色 ^FF0000" + .@name$ + "^000000 ?";
- else mes "封掉帳號 ID ^FF0000" + .@userid$ + "^000000 ?";
- mes "IP =^0000FF " + .@last_ip$ + "^000000";
- mes "原因 =^0000FF " + .@reason$ + "^000000";
- mes " ";
- if(select("否:是, 封掉這IP")==1) close;
-
- if (.@char_id) atcommand "@block "+.@name$;
- else query_sql "UPDATE `login` SET `state`=5 WHERE `account_id`="+.@account_id;
- query_sql "INSERT INTO `ipbanlist`(`list`,`btime`,`reason`) VALUES('"+.@last_ip$+"',NOW(),'("+.@name$+.@userid$+") "+.@reason$+"')";
-
- mes "成功封號!";
- close;
- }
複製代碼 |
|