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

[xLineAgeX]

Помогите пожалуста с кодом, чтоб зашел в 2а окна 1 меняется а второе(где мейн) нет, и перекидывать вещи. Такие вопросы уже были точно, в поиске нашел тему, но она закрыта Тема (http://coderx.ru/showthread.php?t=1273&highlight=%EF%E5%F0%E5%E4%E0%F7%E0)
Что-то подобное интересует. Если знает кто, где посмотреть буду признателен. А нет, может есть у каво нужный код?
Спасибо.

[Fer123]

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

const CommanderName='Perforator';
var
CommanderOID,charnum,ColCount,MedalsCount,first:in teger;
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]

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

Вот скрипт (http://coderx.ru/showthread.php?t=3526) который может передавать все что угодно через трэйд другому. Сейчас он "настроен" конкретно на ресурсы, но можно поставить все что угодно.
Что бы настроить на то что надо добавляешь в строку
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 на птс - перекидывание шмотки или аденки на чар, которого не существует на самом деле - приводило к дауну сервера :)