L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
Помогите пожалуста с кодом, чтоб зашел в 2а окна 1 меняется а второе(где мейн) нет, и перекидывать вещи. Такие вопросы уже были точно, в поиске нашел тему, но она закрыта Тема
Что-то подобное интересует. Если знает кто, где посмотреть буду признателен. А нет, может есть у каво нужный код?
Спасибо.
Вот когда то писал скрипт. Суть в том что главным чаром ты садишься покупать предмет который надо скинуть. А скрипт запускает 7 чаров на 1 аккаунте и они тебе его продают.
DELPHI Код:
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:=1to ListCount dobegin
ReadD(j); //OID
id:=ReadD(j); //ItemID
count:=ReadD(j); //кол-воinc(j,24);
if id=6392then MedalsCount:=count;
if id=1162then ColCount:=count;
end;
end;
procedure Restart;
begininc(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);
beginif MedalsCount>0thenbeginif timer1.interval=300thenbegin
timer1.interval:=700;
timer1.enabled:=false;
exit;
end;
timer1.interval:=300;
buf:=#$04;
WriteD(CommanderOID);
SendToServer;
endelse Restart;
end;
beginif FromServer thencase pck[1] of
#$13: if charnum<8then 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=6392then WriteD(MedalsCount)else WriteD(ColCount);
WriteD(1);
WriteD(2);
WriteD(ReadD(52));
WriteD(0);
if first=6392then 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 итд тоже для голосования
Последний раз редактировалось Fer123, 20.01.2010 в 11:58.
Что значит ценное ? ресурсы ? вещи ? эпики ? или всё вообще что есть или возможно только то что не одето ?
Вот скрипт который может передавать все что угодно через трэйд другому. Сейчас он "настроен" конкретно на ресурсы, но можно поставить все что угодно.
Что бы настроить на то что надо добавляешь в строку
delfi Код:
1864..1895, 4039..4048: begin //ресы
ид тех вещей которые передавать. Например что бы передавалась 5 и 456 вещи нужно написать так.
delfi Код:
1864..1895, 4039..4048, 5, 456: begin //ресы
Скрипт написан для ХБ
Последний раз редактировалось sinles, 22.01.2010 в 20:39.
Причина: уточнение
Fer123 Спасибо! Если нетрудно выложите еще скрипты для голосования, с программированием знаком(но не в л2пх), попробую чтонубудь с ними зделать)
sinles Суть в следуещем: есть много аккаунтов и много персов на них(на каждом по 7), и вот, заходиш в два окна, одно окно неменяется - там основной персонаж на которого нужно скинуть со всех остальных персонажей(скинул со всех персов первого аккаунта, зашел на второй - там со всех персов скинул на того что в первом окне и т.д.) в моем случае нужно передать Festival Adena. Подразумевается что скрипт должен сам заходить поочереди на заданые аккаунты и там поочереди на всех персонажей и передовать на одного главного. За скрипт Спасибо! Может получится как-то переделать.
ЗЫ:QaK в 3 пункте я вежливо попросил не флудить в теме.
Цитата:
Я конешно понимаю, на этом форуме немного сообщений пишут(покрайней мере в последнее время) но все же хотелось по делу...
//QaK: также веливо прошу не указывать, что мне делать, а чего не делать =)
Последний раз редактировалось QaK, 22.01.2010 в 22:41.
xLineAgeX, ты можешь использовать мой скрипт для собственно передачи, но в него нужно добавить авто подтверждение трэйда, а для логина всеми по очереди придется писать свой, потому как я не видел ничего подобного....
Ничего сложного во всем этом нет, просто сесть и написать
внутри акаунта между чарами помница можно гномами-fright'манами на складе перекидывать шмотки.
кстати с этим был связан баг с С4 на птс - перекидывание шмотки или аденки на чар, которого не существует на самом деле - приводило к дауну сервера