[скрипт] Передача всех ресурсов через трэйд

[sinles]

Вот написал скрипт который может передавать все ваши ресурсы другому персонажу через трэйд.
Подходите к тому кому хотите передать ресурсы и нажимаете эмоцию Blow. Отправляется запрос на торговлю, когда обмен начнется ваш клиент будет по очереди выкладывать все ресурсы (с интервалом в 1сек что бы не палится).
В скрипте ничего менять не надо
Запустить можно прямо перед тем как начнете торговлю (обязательно только выбрать цель с которой торговать после запуска).

// for T1 pakets
// включаем скрипт, выбираем цель для торговли, нажимаем эмоцию Блоу.
// После открытия трэйда скрипт будет выкладывать вещи в трэйд, со скоростью один стак в секунду :)
var
  active:boolean;
  myOID,TargetOID,TTOID : integer;
  Name: string;
  itemOIDs, itemCount:array[1..200] of integer;
  first, last : integer;
  putT:TTimer; 
          
procedure Init;
begin
  active:=false;
  
  putT:=TTimer.Create(nil);
  putT.OnTimer:=@Put;
  putT.enabled:=false;
  putT.interval:=1000;
end;

procedure Free;
begin
end;

procedure Put;
begin
  if last=first then
  begin
    putT.enabled:=false;
    active:=false;
    msg('Thet"s all');
    exit;
  end;
  AddTradeItem(itemOIDs[first], itemCount[first]);
  inc(first);
  putT.enabled:=true;
end;

procedure TradeStart; 
var
  i, j, ListCount : integer;
  TOID, ObjectID, ItemID, Count,  :integer;
  val: array[0..20] of integer;
begin
  j:=2;
  ReadMask('dh', j, val);
  if (TTOID=val[0]) and active then begin 
  msg('TradeStart');
  last:=1;
  first:=1;  
  for i:=1 to val[1] do
  begin
    //val = 1 - ObjectID, 2 - ItemID, 3 - Count
    ReadMask('hdddhhdhhhdddddddd', j, val);
    case val[2] of
       1864..1895, 4039..4048: begin   //ресы
         itemOIDs[last]:=val[1];
         itemCount[last]:=val[3];
         inc(last);
       end;
    end;
  end;
  msg(inttostr(last) + ' items to trade');
  Put;
  end;
end;

procedure TradeRequest(OID:integer);
begin
  buf:=#$1A;
  WriteD(OID);
  SendToServerEx(Name);  
end;

procedure AddTradeItem(OID, Count : integer);
begin
  buf:=#$1B;
  WriteD(1);
  WriteD(OID);
  WriteD(Count);
  SendToServerEx(Name);
end;

procedure msg(msg:string);  //отправка системных сообщений клиенту
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClientEx(Name);
end;

begin
if FromServer then
case pck[1] of
#$B9: TargetOID:=ReadD(2); //MyTargetSelected
#$14: TradeStart; 
         
end;

if FromClient then
case pck[1] of   
#$34://socialactionreq
    begin  
     case readd(2) of
      $07: begin
        active:=true;
        TTOID:=TargetOID; 
        Name:=ConnectName;
        msg('Ask for trade');
        TradeRequest(TTOID);
        pck:='';
      end; 
     end;
    end;             
end;
end.

[QaK]

sinles, добавь в начало скрипта описание действий для инициализации скрипта и хроники.