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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 26.04.2008, 17:58   #21
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от Fifty Посмотреть сообщение
Ну вот получается так как я и писал.
const
Name='Ник Чара';
SendToServerEx('Ник чара');
SendToClientEx('Ник чара);

У меня созданы 2 скрипта на здачу в которых поменяны данные о никах,но в итоге получается тоже самое что и с 1 скриптом,Оба окна пытаются здать одно и тоже((((((
Либо я что то недопонимаю,либо хз.
подскажите или просто выкиньте кусок скрипта.
Не знаю как еще объяснить.
Ты везде пишешь 'Ник чара', а надо только в константу - Name='Ник Чара'; в команде SendToServerEx(); уже надо писать саму константу Name. Вот так: SendToServerEx(Name);

Может в личку скинешь оба скрипта я гляну, что там не так?

Последний раз редактировалось NLObP, 26.04.2008 в 18:01.
NLObP вне форума   Ответить с цитированием
Старый 26.04.2008, 23:10   #22
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
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.
тока я его не проверял, могут быть небольшие ляпы
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
За это сообщение xkor нажился 2 спасибками от:
Старый 27.04.2008, 02:36   #23
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Забыл сказать что еще надо было вот такое писать:
if (ConnectName=Name) and FromServer and ...
чтобы скрипт знал чьи пакеты обрабатываем.
NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от:
Старый 27.04.2008, 21:15   #24
Новичок
 
Регистрация: 17.04.2008
Сообщений: 18
Сказал Спасибо: 6
Имеет 0 спасибок в 0 сообщенях
Fifty пока неопределено
По умолчанию

Все спасибо огромное и тебе xKor и тебе NLObP сегодня попробую,надеюсь покатит.Сенкс.

Добавлено через 5 часов 17 минут
ппц опять так же фигня скопировал скрипт кора,зделал 2 копии с разными названиями и никами.В итоге здает 1,а второй тупо пытается здать что и 1 перс

Последний раз редактировалось Fifty, 27.04.2008 в 21:15. Причина: Добавлено сообщение
Fifty вне форума   Ответить с цитированием
Старый 27.04.2008, 22:15   #25
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от Fifty Посмотреть сообщение
ппц опять так же фигня скопировал скрипт кора,зделал 2 копии с разными названиями и никами.В итоге здает 1,а второй тупо пытается здать что и 1 перс
А мой пробовал? Может ты используешь не верно? Я насколько понял, надо самому сдать манор, а потом скрипт повторит этот пакет. Ты должен разными персами разное сдавать, тогда и скрипты по разному будут работать.
NLObP вне форума   Ответить с цитированием
Старый 28.04.2008, 17:45   #26
Новичок
 
Регистрация: 17.04.2008
Сообщений: 18
Сказал Спасибо: 6
Имеет 0 спасибок в 0 сообщенях
Fifty пока неопределено
По умолчанию

Цитата:
Сообщение от NLObP Посмотреть сообщение
Я насколько понял, надо самому сдать манор, а потом скрипт повторит этот пакет. Ты должен разными персами разное сдавать, тогда и скрипты по разному будут работать.
Сегодня попробую твой.У меня здают манор 6 ботов+ 2 окна с персами.Я в 1-ом окне выставляю и пытаюсь здать в Годдарт,А во 2-ом выставляю и пытаюсь здать в Аден(Все это после начала олимпиады в ручную) после чего Пх запоминает пакет последней попытки тоесть пакет со здачей 2-ого перса в аден.И в итоге в нужное время он юзает пакет на оба окна на здачу манора в Аден.......вот так(

Последний раз редактировалось Fifty, 28.04.2008 в 18:10.
Fifty вне форума   Ответить с цитированием
Старый 28.04.2008, 19:00   #27
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

Цитата:
Сообщение от Fifty Посмотреть сообщение
ппц опять так же фигня скопировал скрипт кора,зделал 2 копии с разными названиями и никами.В итоге здает 1,а второй тупо пытается здать что и 1 перс
стоп!, нахрена две копии моего скрипта??, он одной копией работать должен и ник там писать собсно негде!, ему на ники пох!

Добавлено через 2 минуты
мой скрипт один и тот же пакет в разные соединения посылать никак неможет если ты инициализировал его разными пакетами в разных соединениях!!!
__________________
Я здесь практически не появляюсь!, Skype - ikskor

Последний раз редактировалось xkor, 28.04.2008 в 19:00. Причина: Добавлено сообщение
xkor вне форума   Ответить с цитированием
Старый 28.04.2008, 20:40   #28
Новичок
 
Регистрация: 17.04.2008
Сообщений: 18
Сказал Спасибо: 6
Имеет 0 спасибок в 0 сообщенях
Fifty пока неопределено
По умолчанию

Цитата:
Сообщение от xkor Посмотреть сообщение
стоп!, нахрена две копии моего скрипта??, он одной копией работать должен и ник там писать собсно негде!, ему на ники пох!

Добавлено через 2 минуты
мой скрипт один и тот же пакет в разные соединения посылать никак неможет если ты инициализировал его разными пакетами в разных соединениях!!!
Просто ппц =))))Я думал раз говорили 2 копии и более так и сделал 2 скрипта)))Лан кор попробую ещё и так)В скрипте ни чего не менять.)
Fifty вне форума   Ответить с цитированием
Старый 01.05.2008, 18:25   #29
Новичок
 
Регистрация: 17.04.2008
Сообщений: 18
Сказал Спасибо: 6
Имеет 0 спасибок в 0 сообщенях
Fifty пока неопределено
По умолчанию

Вот скрипт NLObP но он был очень не доделан,Я исправил не мног,но дальше не знаю


delphi Код:
//СКРИПТ АВТОМАТИЧЕСКОЙ СДАЧИ МАНОРА //использование: скрипт запускается за несколько минут до объявления об олимпиаде //при получении системного сообщения об ее начале засекается системное время и вычисляется время //сдачи манора, также активируется таймер с интервалом ХХХ МС для контроля системного времени. //после этого пытаемся сдать свои всходы- вручную. при этом мы получим ошибку что- //манор система: выключена в данный момент. но при етом пакет на сдачу манора- скрипт запомнит в //память для дальнейшего использования. через заданное время скрипт отправит 10 раз запомненный //пакет с интервалом 0,3сек. //проверено что: если манор сдастся примерно на 4-й раз (4-й повтор пакета) то остальные 6 повторов //сервер принимает без ошибок, хотя в инвенторе отсутствуют нужные всходы- сервер на это не ругается //const //Name:='aIreX'; //!!!!!!!!!!!во втором скрипте замени эту строку на вторую и всё!!!!!!!!! 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:=250; // через каждые 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'); SendToClientEx(Name); // отправляем пакет на сдачу манора. buf:=PaketManora; SendToServerEx(Name); //счетчик попыток x:=x+1; end; end; begin //************************************************** ************************** //не обрабатываем пустые пакеты if pck='' then exit; //************************************************** ************************** //если перехвачен пакет на сдачу манора то if (ConnectName=Name) and FromClient and (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then begin //запоминаем его полностью PaketManora:=pck; end; //************************************************** ************************** //если получен пакет об начале олимпиады то if (ConnectName=Name) and 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'); SendToClientEx(Name); end; end.

//xkor: Прошу скрипты заключать в [ HIGHLIGHT="delphi"]скрипт[ /HIGHLIGHT]

Последний раз редактировалось xkor, 01.05.2008 в 18:44. Причина: Коментарий...
Fifty вне форума   Ответить с цитированием
Старый 01.05.2008, 23:22   #30
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Скрипт не мой, а VORONа!
NLObP вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

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


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

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

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