[dip56245]

в теме "да будет бот" там есть скрипты (например по потрошению рыбы - 3 пост), там пример что бы не тормозила отсылка и прием... посмотри

Добавлено спустя 11 минут 49 секунд:

    //Автоматизация потрошения рыбы by NLObP
    //Работа проверена на L2C4 Protocol 660 LocalServer "L2J FORTRESS" и  Protocol 656
    //Как только поймаете рыбку, она потрошиться.

    {Disclaimer of Warranty. Unless required by applicable law or
    agreed to in writing, Licensor provides the Work (and each
    Contributor provides its Contributions) on an "AS IS" BASIS,
    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
    implied, including, without limitation, any warranties or conditions
    of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
    PARTICULAR PURPOSE. You are solely responsible for determining the
    appropriateness of using or redistributing the Work and assume any
    risks associated with Your exercise of permissions under this License.}

    //*******************************************************************
    const
        Name='NLObP'; //имя чара
    //*******************************************************************
    var
      ItemObjID, time1: integer;
      status: boolean;
    //*******************************************************************
    procedure Init; //Вызывается при включении скрипта
    begin
        time1:=0;
        status:=false;
    end;
    //*******************************************************************
    procedure Free; //Вызывается при выключении скрипта
    begin
    end;
    //*******************************************************************
    function Wait(var tick:integer; Timewait: Integer): Boolean;
    // сквозная проверка без остановки скрипта (c)dmitry501
    // modifed by Sh00rGo
    var
      t: integer;
    begin
      result:=false;
      t:=Round(Time*86400);
      if t>(tick+Timewait/1000) then begin
        if tick>0 then result:=true;
        tick:=t;
      end;
    end;
    //*******************************************************************
    procedure UseItem(ObjectID:integer);
    begin
       buf:=#$14;
       WriteD(ObjectID);
       WriteD(0);
       SendToServerEx(Name);
    end;
    //*******************************************************************
    // вызывается при приходе каждого пакета, если скрипт включен
    //*******************************************************************
    begin
      //*******************************************************************
      //не обрабатываем пустые пакеты
      if pck='' then exit;
      //*******************************************************************
      //потрошим рыбу
      //необходимо уточнить ItemID рыб для своего сервера!!!
      if FromServer and (pck[1]+pck[2]=#$27#$01) and (ConnectName=Name) and ((ReadD(12)>=6411) and (ReadD(12)<=6518)) then
      begin
        ItemObjID:=ReadD(8);
        status:=true;
      end;
      //*******************************************************************
      if Wait(time1,2000) and status then begin
        UseItem(ItemObjID);
        status:=false;
      end;
    end.

вот пример кода, захочешь поймешь... )