Вернуться   CoderX :: Forums > Lineage II > L2PacketHack
Войти через OpenID

L2PacketHack Форум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела! Обсуждение багов Lineage ЗАПРЕЩЕНО!

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 09.10.2007, 13:58   #1
Гость
 
Сообщений: n/a
По умолчанию Сдача манора.

Код:
//СКРИПТ АВТОМАТИЧЕСКОЙ СДАЧИ МАНОРА
//использование: скрипт запускается за несколько минут до объявления об олимпиаде
//при получении системного сообщения об ее начале засекается системное время и вычисляется время
//сдачи манора, также активируется таймер с интервалом ХХХ МС для контроля системного времени.
//после этого пытаемся сдать свои всходы- вручную. при этом мы получим ошибку что-
//манор система: выключена в данный момент. но при етом пакет на сдачу манора- скрипт запомнит в
//память для дальнейшего использования. через заданное время скрипт отправит 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.
Все работает. А как сделать так, чтобы можно было сдавать сразу несколько видов всходов?
  Ответить с цитированием
Старый 18.04.2008, 23:07   #2
Новичок
 
Регистрация: 17.04.2008
Сообщений: 7
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
ScooBy пока неопределено
По умолчанию

помогите пожалуйста что делать если дисконектит при отправки скрипта(ставлю галочку отправлять кажд 300 и дисконект)???подскажите пожалуйста
ScooBy вне форума   Ответить с цитированием
Старый 19.04.2008, 00:57   #3
Пользователь
 
Регистрация: 07.10.2007
Сообщений: 27
Сказал Спасибо: 17
Имеет 2 спасибок в 2 сообщенях
ad01f
По умолчанию

дауны из раздела валкера проникли и сюда. скоро наверное и какашонок пожалует попросит его научить... забудьте вы про манор че нибудь другое мутите. могу дать наводку вспомните хорошо забытое старое типа бага с аа и подумайте куда еще можно подобное приткнуть. на том же принципе до сих пор работает одна фишка.
ad01f вне форума   Ответить с цитированием
Старый 19.04.2008, 01:14   #4
Новичок
 
Регистрация: 17.04.2008
Сообщений: 7
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
ScooBy пока неопределено
По умолчанию

иди в попу...я все равно настрою и будет у тебя конкурент не боись
ScooBy вне форума   Ответить с цитированием
Старый 27.05.2009, 22:28   #5
Новичок
 
Регистрация: 27.05.2009
Сообщений: 7
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Serg26 пока неопределено
По умолчанию

Народ вобщем такой вопрос, скрипт я не очень люблю, руками проще... можно ли к примеру поставить пакет что бы вопы сдавались во все города? Сейчас я делаю так ловил пакет в 8 вечера о сдаче манора в 8.06 ставлю посылать и всё ровно, пробовал поставить 2 строчки(1 в годард другая иннадрил) сдаёт только в первый город, можно ли как нить сделать что бы во все сдавало? плз помогите
Serg26 вне форума   Ответить с цитированием
Старый 28.05.2009, 03:09   #6
Пользователь
 
Регистрация: 25.11.2008
Сообщений: 36
Сказал Спасибо: 13
Имеет 17 спасибок в 15 сообщенях
ПолуГость2 пока неопределено
По умолчанию

На Шоках теперь другая система манора, пока идет подготовка, список не показывает, поэтому настроить заранее нельзя.
ПолуГость2 вне форума   Ответить с цитированием
Старый 28.05.2009, 11:59   #7
Новичок
 
Регистрация: 27.05.2009
Сообщений: 7
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Serg26 пока неопределено
По умолчанию

блин так я то на эбисе, скриптом не удобно что олимп в 6 начинается а ручками всё прекрасно, так вот повторяю вопрос, можно сдать сразу весь воп или ск?
Serg26 вне форума   Ответить с цитированием
Старый 28.05.2009, 15:44   #8
Пользователь
 
Регистрация: 25.11.2008
Сообщений: 36
Сказал Спасибо: 13
Имеет 17 спасибок в 15 сообщенях
ПолуГость2 пока неопределено
По умолчанию

В чем проблема, я не понимаю? Сначала сдаешь в Аден, выбираешь этот пакет и копируешь в отправку, затем сдаешь в Орен, выбираешь пакет, добавляешь в отправку, и пр., потом когда надо отправляешь их скопом, т.е. по одному нажатию "отправить" летит вся пачка пакетов. Не знаю я, что у тебя там не получалось с 2мя строчками, у меня все работало. Я стандартный скрипт сдачи манора доработал и сдавал во все города разом, и все было мое, если только кто не успевал на микросекунду раньше
ПолуГость2 вне форума   Ответить с цитированием
Старый 29.05.2009, 13:05   #9
Новичок
 
Регистрация: 27.05.2009
Сообщений: 7
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Serg26 пока неопределено
По умолчанию

блин у меня фигня какая то, пакет в годарт в 1 строке пакет в иннадрил во 2 строке, ставил галочку отправлять вместе... итог отправлялась только 1 строка. А со скриптом на эбисе муторно сдавать, олимп в 18.00 начинается, не хочется 2 часа со включенным скриптом бегать
Serg26 вне форума   Ответить с цитированием
Старый 30.05.2009, 00:26   #10
Пользователь
 
Регистрация: 25.11.2008
Сообщений: 36
Сказал Спасибо: 13
Имеет 17 спасибок в 15 сообщенях
ПолуГость2 пока неопределено
По умолчанию

Попробуй потестировать другие пакеты, уходят по несколько штук или нет.
ПолуГость2 вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:32.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!