L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
//СКРИПТ АВТОМАТИЧЕСКОЙ СДАЧИ МАНОРА
//использование: скрипт запускается за несколько минут до объявления об олимпиаде
//при получении системного сообщения об ее начале засекается системное время и вычисляется время
//сдачи манора, также активируется таймер с интервалом ХХХ МС для контроля системного времени.
//после этого пытаемся сдать свои всходы- вручную. при этом мы получим ошибку что-
//манор система: выключена в данный момент. но при етом пакет на сдачу манора- скрипт запомнит в
//память для дальнейшего использования. через заданное время скрипт отправит 10 раз запомненный
//пакет с интервалом 0,3сек.
//проверено что: если манор сдастся примерно на 4-й раз (4-й повтор пакета) то остальные 6 повторов
//сервер принимает без ошибок, хотя в инвенторе отсутствуют нужные всходы- сервер на это не ругается
var
PaketManora: string; //Пакет на сдачу манора, который мы отправим серваку зараннее с помощью клиента
// и запомним его для того чтобы вручную не формировать его кодом.
//важно что оправлять его нужно после после объявления об олимпиаде.
//так как в пакете манора используются ИД сессии, которые изменяются
//каждый ровный час.
timer1: TTimer; //таймер контролирующий системное время
StartTime: TDateTime;
EndTime: TDateTime;
x:integer;
procedure Init; //Вызывается при включении скрипта
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer; //
timer1.enabled:=false; // таймер по умолчанию выключен
timer1.interval:=400; // через каждые 0,4сек будем засекать контрольное время сдачи манора
x:=0;
end;
procedure Free; //Вызывается при выключении скрипта
begin
timer1.Free; //освобождаем занимаемую память таймером
end;
//вызывается при срабатывании таймера
procedure OnTimer(Sender: TObject);
begin
//если наступило время сдавать манор и скрипт пока еще не отправил 30 попыток его сдать то
if (time >= EndTime) and (x<30) then
begin
//пишем сами себе в чат - что "ПОПЫТКА"
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 3F 04 3E 04 3F 04 4B 04 42 04 3A 04 30 04 20 00 41 04 34 04 30 04 42 04 4C 04 00 00');
SendToClient;
// отправляем пакет на сдачу манора.
buf:=PaketManora;
SendToServer;
//счетчик попыток
x:=x+1;
end;
end;
begin
//если перехвачен пакет на сдачу манора то
if FromClient and (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then
begin
//запоминаем его полностью
PaketManora:=pck;
end;
//если получен пакет об начале олимпиады то
if FromServer and (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then
begin
//засекаем текущее время
StartTime:=time;
//вычисляем время сдачи манора (прибавляем нужное время которое нужно засеч после получения сообщения об илимпиаде)
EndTime:=StartTime + EncodeTime(0,5,49,0); // изменяем и корректируем ето число в формате (ЧЧ,ММ,СС,МС)
//активируем таймер
timer1.enabled:=true;
//а ето- отправка сам себе сообщения о том что ВРЕМЯ ПОШЛО
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 32 04 40 04 35 04 3C 04 4F 04 20 00 3F 04 3E 04 48 04 3B 04 3E 04 00 00');
SendToClient;
end;
end.
Все работает. А как сделать так, чтобы можно было сдавать сразу несколько видов всходов?
а можешь файлик прицепить чтобы можно было скачать(скрипт без обьяснения)? и как именно это настроить?
выделяешь текст скрипта, копируешь и вставляешь в текстовый файл. вот и вся "скачка"
__________________
Цитата:
Народ подскажите почему вылетает l2wmx2.exe ерором когда я запускаю на WinXp sp3. Хочет отправлють прогу в макрософт а я жму неотправлять , ещо там запалят вопщем АЛЛАРМ шоделать???
тока не рассказывай что ты родившись на свет сразу знал делфи с паскалем и писал скрипты вовсю..... все были нубами и все остаются нубами в разных областях.
__________________
Цитата:
Народ подскажите почему вылетает l2wmx2.exe ерором когда я запускаю на WinXp sp3. Хочет отправлють прогу в макрософт а я жму неотправлять , ещо там запалят вопщем АЛЛАРМ шоделать???
причём тут это тут в проге галочку поставить надо и прочитать коментарии вверху скрипта там всё доступтно написано я без проблем воспользовался :) хз что туда ещё можно добавить что б стало ещё понятней.
я конечно понимаю что вопрос нуба, но я пытаюсь разобраться скажите во тут написано что от сервера пришел пакет о начале олимпиады :
(pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06)
откуда взять этот пакет ? я так понял надо в списке пакетов перехваченных PH найти тот который отвечает за олимпиаду тоесть тот пакет который пришел в момент надписи "олимпиада началась"?
пакет на сдачу манора (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) а вот этот это пакет уходит серверу в момент когда я нажимаю кнопку сдать семена ?
не кричите что я нуб только лучше не чего не говорите если сложно ответить.
//после этого пытаемся сдать свои всходы- вручную. при этом мы получим ошибку что-
//манор система: выключена в данный момент. но при етом пакет на сдачу манора- скрипт запомнит в
//память для дальнейшего использования.
ну я хз попробуй прочитать всё а не то что не понимаешь, я вот наборот читаю там где понимаю
Добавлено спустя 1 минуту 19 секунд:
ЗЫ инструкции написаны для дебилов, поэтому их можно не читать? так говорит мой друг програмер который их всегда читает