BuffBot

NLObP · 29.07.2008, 22:52

Я от клиента отключаюсь так:

delphi Код:

var
  NetPing: string; // здесь запомним Нетпинг от клиента, будем сами его посылать
  LogOutOk: boolean; // флаг показывающий, что мы отключили клиент
begin
  if (ConnectName=Name) and FromServer then begin
    case pck[1] of
  //****************************************************
      #$D3: begin // D3=NetPing:d(kID) на Нетпинг сервера шлем сохранённый пакет Нетпинга от клиента
        msg.Lines.Add('S>Пакет NetPing #$D3');
        if LogOutOk then begin
          buf:=NetPing;
          SendToServerEx(Name);
          msg.Lines.Add('C>Пакет NetPing #$A8');
        end;
      end;
    end;
  end;
  //****************************************************
  if (ConnectName=Name) and FromClient then begin
    case pck[1] of
      #$09: begin //C>09=LogoutRequest - выходим ручками из клиента
        msg.Lines.Add('S>Пакет LogoutRequest #$09');
        // вроде не надо тут их ставить?
        NoFreeOnClientDisconnect;
        NoFreeOnServerDisconnect;
        pck:='';
        // шлем s7E=LogOutOk, для отключения клиента
        msg.Lines.Add('S>Пакет LogOutOk #$7E');
        buf:=#$7E;
        SendToClientEx(Name);
        LogOutOk:=true;
      end;
      #$A8: begin        // C>A8=NetPing:d(kID)d(PING)d(dta)
        msg.Lines.Add('C>Пакет NetPing #$A8');
        NetPing:=pck; // запомним его
        pck:='';
      end;
    end;
  end;
end.

Цитата:

Сообщение от Amorality

Теперь другая проблема , как я говорила выше 3.2.0 работает у меня только под Камаель , в общем пытюась зайти на сервер La2.theabyss.ru , запускаю ПНХ , снимаю все галочки , кроме первой и второй , запускаю клиент , логинюсь чаром , разворачиваю ПНХ , в списке соединений везде пусто , на вкладке просмотр ни одного пакета нету

На TheAbyss x300 работает, только что проверил.

Добавлено через 29 минут

Цитата:

Сообщение от PanAm

Кстати, вот пример почти бот )

Где вы такое берете? Ссылку плиз.