[Fer123]

Вот когда то писал скрипт. Суть в том что главным чаром ты садишься покупать предмет который надо скинуть. А скрипт запускает 7 чаров на 1 аккаунте и они тебе его продают.

const CommanderName='Perforator';
var
CommanderOID,charnum,ColCount,MedalsCount,first:integer;
timer,timer1:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.OnTimer:=@OnTimer;
  timer.enabled:=false;
  timer.interval:=500; //время задержки
  timer1:=TTimer.Create(nil);
  timer1.OnTimer:=@OnTimer1;
  timer1.enabled:=false;
  timer1.interval:=700; //время задержки
end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin
charnum:=1;
end;

procedure GetItems;
var
  i,j,ListCount,id,count: integer;
begin
  j:=4;
  ListCount:=ReadH(j);
  j:=8;
  for i:=1 to ListCount do begin
    ReadD(j);    //OID
    id:=ReadD(j);   //ItemID
    count:=ReadD(j);  //кол-во
    inc(j,24);
    if id=6392 then MedalsCount:=count;
    if id=1162 then ColCount:=count;
  end;
end;

procedure Restart;
begin
inc(charnum);
buf:=#$46;
SendToServer;
end;

procedure OnTimer(Sender: TObject);
begin
             buf:=#$0D;
             WriteD(charnum-1);
             buf:=buf+HStr('00 00 00 00 00 00 00 00 00 00 00 00 00 00');
             SendToServer;
             timer.enabled:=false;
end;

procedure OnTimer1(Sender: TObject);
begin
              if MedalsCount>0 then begin
                   if timer1.interval=300 then begin
             timer1.interval:=700;
             timer1.enabled:=false;
             exit;
             end;
             timer1.interval:=300;
             buf:=#$04;
             WriteD(CommanderOID);
             SendToServer;
             end else Restart;
end;

begin
  if FromServer then
  case pck[1] of
     #$13: if charnum<8 then timer.enabled:=true;
     #$03: if ReadS(22)=CommanderName then CommanderOID:=ReadD(18);
     #$1B: begin
             GetItems;
             timer1.enabled:=true;
           end;
     #$B8: begin
             first:=ReadD(18);
             buf:=#$96;
             WriteD(CommanderOID);
             WriteD(2);
             WriteD(1);
             WriteD(first);
             WriteD(0);
             if first=6392 then WriteD(MedalsCount) else WriteD(ColCount);
             WriteD(1);
             WriteD(2);
             WriteD(ReadD(52));
             WriteD(0);
             if first=6392 then WriteD(ColCount) else WriteD(MedalsCount);
             WriteD(1);
             SendToServer;
           end;
     #$64: if (ReadD(2)=380) and (ReadD(6)=3) then Restart;
  end;
end.

Скрипт естественно надо переделывать и дорабатывать. И он сделан для интерлюдии. Писал очень давно и уже ничего не помню как и что тут работает.
P.S. Помогать не буду потому что нет времени и желания. Но основа для скрипта у тебя уже есть. Так что почитай какие-нибудь мануалы по делфи посмотри другие скрипты и попробуй его переделать под себя.

У меня есть еще 1 скрипт но писал я его еще раньше он вообще для с4. Он раза в 4 длиннее чем этот и тоже нет ни 1 комента так что там вообще не понятно ничего
Там принцип скидывания через торговлю между 2 персонажами. Если что могу скинуть... если хочешь голову сломать

Еще нашел в старых папках скрипт на создание чаров типа xx1,xx2,xx3 итд тоже для голосования