надо подобрать шмотку.

[destructor]

var
oID:integer; 


procedure Init; //will be called on script initialization
begin
end;

procedure Free; 
begin
end;

begin
  if fromserver then
    if pck[1] = #$16 then //если выпал дроп.
          begin
                oID:= ReadD(10);
                if oID = 6656 then //серяем дроп с необходимым мне ИД
                        begin
                             WriteC($A5); //собираем пакет "подобрать"
                             WriteD(ReadD(6));
                             WriteD(ReadD(14));
                             WriteD(ReadD(18));
                             WriteD(ReadD(22));
                             WriteC(0);
                             
                             SendToServer; //отправляем
                         end; 
         end;
end.

проверил , вроде все работает

но возможно сервер этот пакет не обработает,
как мне заставить спамить этот пакет постоянно , пока юзер не отключит скрипт?

[alexteam]

бла...

1. ты уверен что в акшин это пакет с инд А5 а не 1F
2. ты уверен что в него лепятся координаты шмотки ? )))

Добавлено через 1 минуту
исправь.. и спамить не прийдеццо.

[destructor]

тут в "полезностях" тестовый сервер,
сами пакеты брал оттуда.

входящие с сервера в пакет.ини прописаны красиво,
а вот исходящие из клиента все через жопу... я хз может чо там одмин заодминил.

на счет координат, тоже уверен, я оригинальные пакеты какбы видел, 99% координаты.

и вообще проверил, все работает.

[alexteam]

var
  Myx, MyY, Myz : integer;
  maskval : array [0..100] of variant;
  PickupOid:integer;  
  pickuptimer : ttimer;
  
  
procedure OnTimerHandler(sender:tobject);
begin
  pickup(PickupOid);
end;
  
procedure Init; //will be called on script initialization
begin
  Myx := 0;
  Myy := 0;
  Myz := 0;
  pickuptimer := ttimer.create(nil);
  pickuptimer.interval := 1000;
  pickuptimer.enabled := false;
  pickuptimer.ontimer := @OnTimerHandler;   
end;

procedure Free; //This method calls when script don't need anymore
begin
  pickuptimer.free; 
end;



procedure Pickup(Oid:integer);
begin
    if (myx = 0) and (myy = 0) and (myz = 0) then exit;       
    
    //1F=Action:d(ObjectID)d(OrigX)d(OrigY)d(OrigZ)c(ActionID)
    WriteMask('cddddc',[$1F, oid, myx, myy, myz, 0]);
    SendToServer;
end;

//Primary part of dcript
//calls alltime when l2ph got new packet
begin

if fromserver then
case pck[1] of
#$0C://DropItem:d(PlayerID)d(ObjectID)d(ItemID:Get.Func01)d(X)d(Y)d(Z)d(Stackable)d(Count)d(1)
    begin 
        ReadMask('ddddddddd',2,maskval);
        if maskval[2] = 6656 then
          begin
            pickupoid := maskval[1];
            pickuptimer.enabled := true;
            OnTimerHandler(nil);
          end;
          
    end; 
#$12 : //(DeleteObject)
    begin
    if readd(2) = pickupoid then
      begin
        pickupoid := 0;
        pickuptimer.enabled := false;
      end;  
    end;
     
end;

if fromclient then
case pck[1] of
#$59:// 59=ValidatePosition:d(X)d(Y)d(Z)d(Heading)d(Data)
    begin 
        ReadMask('ddddd',2,maskval);
        myx := maskval[0];
        myy := maskval[1];
        myz := maskval[2];
    end;  
end;

end.

[destructor]

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

исправь.. и спамить не прийдеццо.

вдруг передомажила не моя пати, и дроп 5 секунд подобрать нельзя => пакет не обработается.

Добавлено через 4 минуты
так туда нужны свои координаты?

[alexteam]

переделал. смотри выше.

из бота локомотива. в нем атака и подьем вещи одной процедурой оформлены (пакет один и тот же)

procedure PhisicalAttack;          // команда атаки
 begin
 buf:=#$04; //action
  WriteD(TargetID);
  WriteD(MyX);
  WriteD(MyY);
  WriteD(MyZ);
  WriteC(0);
  SendToServerEx(NickName);
 end;

так же по идее, при команде атаки серверу важнее знать где находишся ты а не таргет (где таргет то он и так знает)
а вот твои координаты то как они в клиенте "отрисованы" ему интересней..

Добавлено через 58 секунд
правда в идеале.. надо эти Оайди в тлист совать... и выдергивать оттуда поочереди.. ибо если вывалиццо несколько штук - подымать будет последнюю онли.
так же обрабатывать ситуаци когда лут невозможно поднять (из за гео) либо по другой причине, и при акшине чар остаеться стоять на месте..
и т.д. и т.п.

[destructor]

во, круть, спасибо,
а то у знакомых задротов уже 2 раза антарас серьгу увели

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

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

так же по идее, при команде атаки серверу важнее знать где находишся ты а не таргет (где таргет то он и так знает)
а вот твои координаты то как они в клиенте "отрисованы" ему интересней..

сервер знает мои координаты, ему не пофик что мне отбразил клиент?

[alexteam]

хай проверят на аденке (57) сначала..
ибо еще что меня настораживает это тип пакета А5 (WriteC($A5); //собираем пакет "подобрать")

[destructor]

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

ибо если вывалиццо несколько штук - подымать будет последнюю онли.

несколько на абисе не падает

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

так же обрабатывать ситуаци когда лут невозможно поднять (из за гео) либо по другой причине, и при акшине чар остаеться стоять на месте..
и т.д. и т.п.

ну тоже какбы уже лишнии понты

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

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

ибо еще что меня настораживает это тип пакета А5 (WriteC($A5); //собираем пакет "подобрать")

по месту допилим,
да и образец серьги есть

[alexteam]

ааа, ты про абисс... вот те http://coderx.ru/showpost.php?p=39042&postcount=20
там действительно издевательство с пакетами.

Добавлено через 1 минуту
поправил скрипт в соответствии с абиссом

Добавлено через 1 минуту
образец серьги не над..
измени 6656 на 57 и потыкайте мобов, на предмет подымает он аденку или нет.
интервал таймера тоже можешь изменить с 1000мс до скажем 200мс. будет спамить пока она не исчезнет с пола.
ах.. да.. после включения скрипта надо сдвинуцца хоть чуть чуть.. только тогда он станет подымать упавшее на землю..