shuusei21171:連Q、投網、INCOMPLETE共有をサーバー名で切断(idea by 2ndreal)

diff --dos -urN 21170/handler.pas 21171/handler.pas
--- 21170/handler.pas	Thu Oct 10 17:40:36 2002
+++ 21171/handler.pas	Fri Oct 11 03:04:40 2002
@@ -2030,12 +2030,14 @@
        else if renqueue_taiou='leech' then
        begin
          local.Exec(MSG_SERVER_NOSUCH,'一度にDL要求しすぎです!あなたのユーザーレベルを'+levels[0]+'にします。');
-         cmd_list.AddDoubleCmd(MSG_CLIENT_SETUSERLEVEL,0,local.nick+' 0','');
+         local.data^.level:=napUserLeech;
+         Wallop(MSG_SERVER_NOSUCH,wallopLevel,GetLangT(LNG_LEVEL1,servername_t,local.nick,Level2Str(napUserLeech),IntToStr(Ord(napUserLeech))),false);
        end
        else if renqueue_taiou='ban' then
        begin
          BanUser(local.nick,servername_t,wq_bantime,'連Q ID:'+local.nick,true);
-         cmd_list.AddDoubleCmd(MSG_CLIENT_KILL,0,local.nick+' 限界を超えて連キューしたので切断します','');
+         AddReconnector(decode_ip(local.ip));
+         DisconnectUser(local,'',GetLangT(LNG_KILLED,local.nick,local.software,'Server '+servername_t)+' - 連Q','Handler_PrivateMessage',false);
        end;
        exit;
      end;
@@ -2365,7 +2367,8 @@
    if AnsiPos('__INCOMPLETE___',rec.name)<>0 then
    begin
      BanUser(local.nick,servername_t,incomplete_bantime,'INCOMPLETEファイル所持 ID:'+local.nick,true);
-     cmd_list.AddDoubleCmd(MSG_CLIENT_KILL,0,local.nick+' INCOMPLETEファイルを共有しようとしているので切断します','');
+     AddReconnector(decode_ip(local.ip));
+     DisconnectUser(local,'',GetLangT(LNG_KILLED,local.nick,local.software,'Server '+servername_t)+' - INCOMPLETEファイル所持','Handler_Share',false);
    end;
  tmp_pos:=299;
  rec.short:=ExtractMPName(filename);
@@ -3262,12 +3265,14 @@
        else if toami_taiou='leech' then
        begin
          local.Exec(MSG_SERVER_NOSUCH,'一度にDL要求しすぎです!あなたのユーザーレベルを'+levels[0]+'にします。');
-         cmd_list.AddDoubleCmd(MSG_CLIENT_SETUSERLEVEL,0,local.nick+' 0','');
+         local.data^.level:=napUserLeech;
+         Wallop(MSG_SERVER_NOSUCH,wallopLevel,GetLangT(LNG_LEVEL1,servername_t,local.nick,Level2Str(napUserLeech),IntToStr(Ord(napUserLeech))),false);
        end
        else if toami_taiou='ban' then
        begin
          BanUser(local.nick,servername_t,toami_bantime,'投網 ID:'+local.nick,true);
-         cmd_list.AddDoubleCmd(MSG_CLIENT_KILL,0,local.nick+' 限界を超えてDL要求したので切断します','');
+         AddReconnector(decode_ip(local.ip));
+         DisconnectUser(local,'',GetLangT(LNG_KILLED,local.nick,local.software,'Server '+servername_t)+' - 投網','Handler_Download',false);
        end;
        exit;
    end;