перекидываем ценное с твинков на мейн

[xLineAgeX]

Помогите пожалуста с кодом, чтоб зашел в 2а окна 1 меняется а второе(где мейн) нет, и перекидывать вещи. Такие вопросы уже были точно, в поиске нашел тему, но она закрыта Тема
Что-то подобное интересует. Если знает кто, где посмотреть буду признателен. А нет, может есть у каво нужный код?
Спасибо.

[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 итд тоже для голосования

[sinles]

Что значит ценное ? ресурсы ? вещи ? эпики ? или всё вообще что есть или возможно только то что не одето ?

Вот скрипт который может передавать все что угодно через трэйд другому. Сейчас он "настроен" конкретно на ресурсы, но можно поставить все что угодно.
Что бы настроить на то что надо добавляешь в строку

1864..1895, 4039..4048: begin   //ресы

ид тех вещей которые передавать. Например что бы передавалась 5 и 456 вещи нужно написать так.

1864..1895, 4039..4048, 5, 456: begin   //ресы

Скрипт написан для ХБ

[xLineAgeX]

Fer123 Спасибо! Если нетрудно выложите еще скрипты для голосования, с программированием знаком(но не в л2пх), попробую чтонубудь с ними зделать)

sinles Суть в следуещем: есть много аккаунтов и много персов на них(на каждом по 7), и вот, заходиш в два окна, одно окно неменяется - там основной персонаж на которого нужно скинуть со всех остальных персонажей(скинул со всех персов первого аккаунта, зашел на второй - там со всех персов скинул на того что в первом окне и т.д.) в моем случае нужно передать Festival Adena. Подразумевается что скрипт должен сам заходить поочереди на заданые аккаунты и там поочереди на всех персонажей и передовать на одного главного. За скрипт Спасибо! Может получится как-то переделать.

ЗЫ:QaK в 3 пункте я вежливо попросил не флудить в теме.

Я конешно понимаю, на этом форуме немного сообщений пишут(покрайней мере в последнее время) но все же хотелось по делу...

//QaK: также веливо прошу не указывать, что мне делать, а чего не делать =)

[alexteam]

скрипт должен сам заходить поочереди на заданые аккаунты

и еще раз. на аккаунты - не получиться.
скриптом можно оперировать только с данными на ГС.

[sinles]

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

[SeregaZ]

внутри акаунта между чарами помница можно гномами-fright'манами на складе перекидывать шмотки.
кстати с этим был связан баг с С4 на птс - перекидывание шмотки или аденки на чар, которого не существует на самом деле - приводило к дауну сервера