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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 02.05.2008, 15:54   #31
Новичок
 
Регистрация: 17.04.2008
Сообщений: 18
Сказал Спасибо: 6
Имеет 0 спасибок в 0 сообщенях
Fifty пока неопределено
По умолчанию

NLObP,

^^ сорь он не был подписан))Ну вообщем вот скрипт надо исправлять.......(
Но все равно спс большое
Fifty вне форума   Ответить с цитированием
Старый 30.08.2008, 14:27   #32
Новичок
 
Регистрация: 18.08.2008
Сообщений: 3
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
MIhei пока неопределено
По умолчанию

Цитата:
Сообщение от xkor Посмотреть сообщение
дык надо и пакет о сдаче манора сохранять в разные переменные )
вобщем вот мои исправления скрипта чтоб здавать могло до 11 клиентов одновременно:
delphi Код:
//by VORON //СКРИПТ АВТОМАТИЧЕСКОЙ СДАЧИ МАНОРА //использование: скрипт запускается за несколько минут до объявления об олимпиаде //при получении системного сообщения об ее начале засекается системное время и вычисляется время //сдачи манора, также активируется таймер с интервалом ХХХ МС для контроля системного времени. //после этого пытаемся сдать свои всходы- вручную. при этом мы получим ошибку что- //манор система: выключена в данный момент. но при етом пакет на сдачу манора- скрипт запомнит в //память для дальнейшего использования. через заданное время скрипт отправит 10 раз запомненный //пакет с интервалом 0,3сек. //проверено что: если манор сдастся примерно на 4-й раз (4-й повтор пакета) то остальные 6 повторов //сервер принимает без ошибок, хотя в инвенторе отсутствуют нужные всходы- сервер на это не ругается //const //   Name='GManor';  //ник перса var PaketManora: array[0..10] of string; //Пакет на сдачу манора, который мы отправим серваку зараннее с помощью клиента // и запомним его для того чтобы вручную не формировать его кодом. //важно что оправлять его нужно после после объявления об олимпиаде. //так как в пакете манора используются ИД сессии, которые изменяются //каждый ровный час. timer1: TTimer; //таймер контролирующий системное время StartTime: array[0..10] of TDateTime; EndTime: array[0..10] of TDateTime; x: array[0..10] of integer; procedure Init; //Вызывается при включении скрипта begin timer1:=TTimer.Create(nil); timer1.OnTimer:=@OnTimer; // timer1.enabled:=false; // таймер по умолчанию выключен timer1.interval:=400; // через каждые 0,4сек будем засекать контрольное время сдачи манора x[ConnectID]:=0; end; procedure Free; //Вызывается при выключении скрипта begin timer1.Free; //освобождаем занимаемую память таймером end; //вызывается при срабатывании таймера procedure OnTimer(Sender: TObject); begin //если наступило время сдавать манор и скрипт пока еще не отправил 30 попыток его сдать то if (time >= EndTime[ConnectID]) and (x[ConnectID]<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[ConnectID]; SendToServer; //счетчик попыток x[ConnectID]:=x[ConnectID]+1; end; end; begin //если перехвачен пакет на сдачу манора то if FromClient and {(ConnectName=Name) and} (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then begin //запоминаем его полностью PaketManora[ConnectID]:=pck; end; //если получен пакет об начале олимпиады то if FromServer and {(ConnectName=Name) and} (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then begin //засекаем текущее время StartTime[ConnectID]:=time; //вычисляем время сдачи манора (прибавляем нужное время которое нужно засеч после получения сообщения об илимпиаде) EndTime[ConnectID]:=StartTime[ConnectID] + 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.
тока я его не проверял, могут быть небольшие ляпы
Цитата:
Сообщение от xkor Посмотреть сообщение
дык надо и пакет о сдаче манора сохранять в разные переменные )
вобщем вот мои исправления скрипта чтоб здавать могло до 11 клиентов одновременно:

delphi Код:
//by VORON
//СКРИПТ АВТОМАТИЧЕСКОЙ СДАЧИ МАНОРА
//использование: скрипт запускается за несколько минут до объявления об олимпиаде
//при получении системного сообщения об ее начале засекается системное время и вычисляется время
//сдачи манора, также активируется таймер с интервалом ХХХ МС для контроля системного времени.
//после этого пытаемся сдать свои всходы- вручную. при этом мы получим ошибку что-
//манор система: выключена в данный момент. но при етом пакет на сдачу манора- скрипт запомнит в
//память для дальнейшего использования. через заданное время скрипт отправит 10 раз запомненный
//пакет с интервалом 0,3сек.
//проверено что: если манор сдастся примерно на 4-й раз (4-й повтор пакета) то остальные 6 повторов
//сервер принимает без ошибок, хотя в инвенторе отсутствуют нужные всходы- сервер на это не ругается

//const
// Name='GManor'; //ник перса

var
PaketManora: array[0..10] of string; //Пакет на сдачу манора, который мы отправим серваку зараннее с помощью клиента
// и запомним его для того чтобы вручную не формировать его кодом.
//важно что оправлять его нужно после после объявления об олимпиаде.
//так как в пакете манора используются ИД сессии, которые изменяются
//каждый ровный час.

timer1: TTimer; //таймер контролирующий системное время

StartTime: array[0..10] of TDateTime;
EndTime: array[0..10] of TDateTime;


x: array[0..10] of integer;

procedure Init; //Вызывается при включении скрипта
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer; //
timer1.enabled:=false; // таймер по умолчанию выключен
timer1.interval:=400; // через каждые 0,4сек будем засекать контрольное время сдачи манора

x[ConnectID]:=0;
end;

procedure Free; //Вызывается при выключении скрипта
begin
timer1.Free; //освобождаем занимаемую память таймером
end;

//вызывается при срабатывании таймера
procedure OnTimer(Sender: TObject);
begin
//если наступило время сдавать манор и скрипт пока еще не отправил 30 попыток его сдать то
if (time >= EndTime[ConnectID]) and (x[ConnectID]<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[ConnectID];
SendToServer;
//счетчик попыток
x[ConnectID]:=x[ConnectID]+1;
end;
end;


begin

//если перехвачен пакет на сдачу манора то
if FromClient and {(ConnectName=Name) and} (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then
begin
//запоминаем его полностью
PaketManora[ConnectID]:=pck;
end;

//если получен пакет об начале олимпиады то
if FromServer and {(ConnectName=Name) and} (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then
begin
//засекаем текущее время
StartTime[ConnectID]:=time;
//вычисляем время сдачи манора (прибавляем нужное время которое нужно засеч после получения сообщения об илимпиаде)
EndTime[ConnectID]:=StartTime[ConnectID] + 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.тока я его не проверял, могут быть небольшие ляпы
Здравствуйте
Я так понял что этот скрипт запоминает и отправляет несколько пакетов серверу на сдачу манора?
И его можно использовать при сдаче манора одним пером в разные города?
Если я не прав поправте пожалуйста и обьясните как это можно реализовать.
MIhei вне форума   Ответить с цитированием
Старый 01.09.2008, 10:42   #33
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

щас Гринч придет и тебе все объяснит
QaK вне форума   Ответить с цитированием
Старый 01.09.2008, 13:01   #34
Новичок
 
Регистрация: 18.08.2008
Сообщений: 3
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
MIhei пока неопределено
По умолчанию

Цитата:
Сообщение от QaK Посмотреть сообщение
щас Гринч придет и тебе все объяснит
ага спасибо за разьяснение по теме, а про то что добавил работы по уборке админу форума и сам вижу - прошу прощения накопировал всяко разно, уже исправился
MIhei вне форума   Ответить с цитированием
Старый 19.01.2009, 10:42   #35
Новичок
 
Аватар для Opus
 
Регистрация: 18.01.2009
Сообщений: 4
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
Opus пока неопределено
По умолчанию

Цитата:
Сообщение от xkor Посмотреть сообщение
дык надо и пакет о сдаче манора сохранять в разные переменные )
вобщем вот мои исправления скрипта чтоб здавать могло до 11 клиентов одновременно:
delphi Код:
//by VORON //СКРИПТ АВТОМАТИЧЕСКОЙ СДАЧИ МАНОРА //использование: скрипт запускается за несколько минут до объявления об олимпиаде //при получении системного сообщения об ее начале засекается системное время и вычисляется время //сдачи манора, также активируется таймер с интервалом ХХХ МС для контроля системного времени. //после этого пытаемся сдать свои всходы- вручную. при этом мы получим ошибку что- //манор система: выключена в данный момент. но при етом пакет на сдачу манора- скрипт запомнит в //память для дальнейшего использования. через заданное время скрипт отправит 10 раз запомненный //пакет с интервалом 0,3сек. //проверено что: если манор сдастся примерно на 4-й раз (4-й повтор пакета) то остальные 6 повторов //сервер принимает без ошибок, хотя в инвенторе отсутствуют нужные всходы- сервер на это не ругается //const //   Name='GManor';  //ник перса var PaketManora: array[0..10] of string; //Пакет на сдачу манора, который мы отправим серваку зараннее с помощью клиента // и запомним его для того чтобы вручную не формировать его кодом. //важно что оправлять его нужно после после объявления об олимпиаде. //так как в пакете манора используются ИД сессии, которые изменяются //каждый ровный час. timer1: TTimer; //таймер контролирующий системное время StartTime: array[0..10] of TDateTime; EndTime: array[0..10] of TDateTime; x: array[0..10] of integer; procedure Init; //Вызывается при включении скрипта begin timer1:=TTimer.Create(nil); timer1.OnTimer:=@OnTimer; // timer1.enabled:=false; // таймер по умолчанию выключен timer1.interval:=400; // через каждые 0,4сек будем засекать контрольное время сдачи манора x[ConnectID]:=0; end; procedure Free; //Вызывается при выключении скрипта begin timer1.Free; //освобождаем занимаемую память таймером end; //вызывается при срабатывании таймера procedure OnTimer(Sender: TObject); begin //если наступило время сдавать манор и скрипт пока еще не отправил 30 попыток его сдать то if (time >= EndTime[ConnectID]) and (x[ConnectID]<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[ConnectID]; SendToServer; //счетчик попыток x[ConnectID]:=x[ConnectID]+1; end; end; begin //если перехвачен пакет на сдачу манора то if FromClient and {(ConnectName=Name) and} (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then begin //запоминаем его полностью PaketManora[ConnectID]:=pck; end; //если получен пакет об начале олимпиады то if FromServer and {(ConnectName=Name) and} (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then begin //засекаем текущее время StartTime[ConnectID]:=time; //вычисляем время сдачи манора (прибавляем нужное время которое нужно засеч после получения сообщения об илимпиаде) EndTime[ConnectID]:=StartTime[ConnectID] + 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.
тока я его не проверял, могут быть небольшие ляпы
xkor, за скрипт спасибо! и поправь если я не прав: сей скрипт уже править не надо? просто добавляю его, включаю и он мне на несколько окон в разные города менят одни и теже семена?

Добавлено через 5 минут
кстате, у кого-нибудь есть соображения как можно подгадать пинг и быть первым в сдаче манора? или может есть какие то другие способы? просто я когда нашел скрипт Ворона на манор он у меня первый и последний раз поменял семена! после этого я сдавал раз 5 и ниразу не успевал((! если не трудно помогите!
__________________
no comments!!!

Последний раз редактировалось Opus, 19.01.2009 в 10:42. Причина: Добавлено сообщение
Opus вне форума   Ответить с цитированием
Старый 19.01.2009, 10:46   #36
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от Opus Посмотреть сообщение
как можно подгадать пинг и быть первым в сдаче манора?
никак ... только если прийти к одминам, и запустить прогу на самом серваке =) тогда точно первый будешь

Добавлено через 43 секунды
Все зависит от того, как попрет, и только от этого, ибо скрипт ВОРОНа лежит уже давно, его уже все, кто хотел - нашли.

Последний раз редактировалось QaK, 19.01.2009 в 10:46. Причина: Добавлено сообщение
QaK вне форума   Ответить с цитированием
Старый 19.01.2009, 16:15   #37
Новичок
 
Аватар для Opus
 
Регистрация: 18.01.2009
Сообщений: 4
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
Opus пока неопределено
По умолчанию

Цитата:
Сообщение от QaK Посмотреть сообщение
никак ... только если прийти к одминам, и запустить прогу на самом серваке =) тогда точно первый будешь
Еслиб я мог прийти к админам и что-то запустить на серваке мне бы и пакет хак нафиг не нужен был бы) и манор тоже был не актуален))

Добавлено через 43 секунды
Все зависит от того, как попрет, и только от этого, ибо скрипт ВОРОНа лежит уже давно, его уже все, кто хотел - нашли.
да но есть же счастливчики которы прет) а вообще где-то тут чувак писал что про время пока пакет дойдет до серва пока придет обратно с ответом, я думаю моно попробовать выгадать, перед тем как включать скрипт пропинговать высчитать и поставить время начало обмена в скрипте более точно ток для этого надо знать во сколько точно система дает обменять семена! думаю должно получиться! правда не с 100% шансом(( как считаешь?

Добавлено через 2 минуты
ах да скрипт переделаный xkor-ом ктонить проверял?))
__________________
no comments!!!

Последний раз редактировалось Opus, 19.01.2009 в 16:15. Причина: Добавлено сообщение
Opus вне форума   Ответить с цитированием
Старый 19.01.2009, 17:22   #38
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

Цитата:
Сообщение от Opus Посмотреть сообщение
да но есть же счастливчики которы прет) а вообще где-то тут чувак писал что про время пока пакет дойдет до серва пока придет обратно с ответом, я думаю моно попробовать выгадать, перед тем как включать скрипт пропинговать высчитать и поставить время начало обмена в скрипте более точно ток для этого надо знать во сколько точно система дает обменять семена! думаю должно получиться! правда не с 100% шансом(( как считаешь?

Добавлено через 2 минуты
ах да скрипт переделаный xkor-ом ктонить проверял?))
шанс останется тем же пынг миняется от нагрузки на канал иногда сдается все когда он в районе 100, а все почему потому что серв лаганул и подрят высланые тобой пакеты обработал подряд, а не в перемешку с чужими. другими словами рандом
Grinch вне форума   Ответить с цитированием
За это сообщение Grinch нажился спасибкой от:
Старый 20.01.2009, 13:03   #39
Новичок
 
Аватар для Opus
 
Регистрация: 18.01.2009
Сообщений: 4
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
Opus пока неопределено
По умолчанию

И все же мне интерестно: проверял ли кто-нибудь скрипт переделаный xkor-ом на сдачу манора 11-ю окнами?))) скоро наверное тоже се этот вопрос в коментарии добавлю!))
__________________
no comments!!!
Opus вне форума   Ответить с цитированием
Старый 25.01.2009, 21:36   #40
Новичок
 
Регистрация: 25.01.2009
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
krivellos пока неопределено
По умолчанию

Уважаемый NLObP, если есть время помоги проверить скрипт на манор для нескольких окон, происходит сдача манора сразу по приходу пакета о начале олимпа.

const
Name='NICK'; //ник перса
.....
//если перехвачен пакет на сдачу манора то
if FromClient and (ConnectName=Name) and (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then
begin
//запоминаем его полностью
PaketManora[ConnectID]:=pck;
end;

//если получен пакет об начале олимпиады то
if FromServer and (ConnectName=Name) and (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then
begin
//засекаем текущее время
StartTime[ConnectID]:=time;
//вычисляем время сдачи манора (прибавляем нужное время которое нужно засеч после получения сообщения об илимпиаде)
EndTime[ConnectID]:=StartTime[ConnectID] + 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');
SendToClientEx(Name);
end;

end.
krivellos вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

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


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

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

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