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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 05.10.2007, 22:00   #1
Новичок
 
Регистрация: 05.10.2007
Адрес: Украина
Сообщений: 19
Сказал Спасибо: 0
Имеет 23 спасибок в 13 сообщенях
DeVolf пока неопределено
По умолчанию Кружок нубов(Вопрос-Ответ)

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.


Код:
const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.
где я ошибся?

Последний раз редактировалось QaK, 30.08.2010 в 18:56.
DeVolf вне форума   Ответить с цитированием
За это сообщение DeVolf нажился 6 спасибками от:
Старый 13.06.2008, 23:10   #111
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

Цитата:
Сообщение от Byrger Посмотреть сообщение
Помогите плиз, что не так

Код:
const
hp='21 08 E8 5E 39 6B 5B 2B 00';
hp2='21 08 E8 5E 39 6B 5B 2B 00';

begin


buf:=hstr(hp);
SendToServer;
delay(5000);
begin
buf:=hstr(hp2);
SendToServer;
end;


end.

l2phx просто виснет намертво...
не понятно что он вообще кроме этого должен делать
Grinch вне форума   Ответить с цитированием
Старый 13.06.2008, 23:15   #112
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

Цитата:
Сообщение от Grinch Посмотреть сообщение


не понятно что он вообще кроме этого должен делать
Что непонятного???
Он должен отправить 1 пакет...подождать 5сек
Затем отправить 2ой пакет и сново начать цикл
Byrger вне форума   Ответить с цитированием
Старый 13.06.2008, 23:23   #113
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

Цитата:
Сообщение от Byrger Посмотреть сообщение
Что непонятного???
Он должен отправить 1 пакет...подождать 5сек
Затем отправить 2ой пакет и сново начать цикл
это точно весь скрипт? и вообще ты каким синтаксисом пользовался когда писал. просто delay(5000) процедура её нет в скрипте, а та что пнх заложена она основной поток замораживает вроде так я если честно вообще не понимаю как скрипт запустился, кстати говоря, так же нет в скрипте Inin процедуры и процедуры Free.
карчое примерно должно быть так.
delphi Код:
procedure Init; begin end; procedure Free; begin тут end; begin end.
короче дело к ночи учебник возьми

Последний раз редактировалось Grinch, 13.06.2008 в 23:35.
Grinch вне форума   Ответить с цитированием
Старый 13.06.2008, 23:40   #114
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

В догонку. При использовании delay(5000); мы останавливаем поток пакетов на 5 секунд. И так при прохождении любого пакета. Поэтому и зависает. Процедуру delay(); лучше пореже использовать и задержки ставить 100 ... 1000 мс не больше.
NLObP вне форума   Ответить с цитированием
Старый 13.06.2008, 23:49   #115
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

Код:
procedure Init;
begin

end;

procedure Free; 

     const
hp='21 08 E8 5E 39 6B 5B 2B 00';
hp2='21 08 E8 5E 39 6B 5B 2B 00';
begin


buf:=hstr(hp);
SendToServer;
delay(5000);

begin
buf:=hstr(hp2);
SendToServer;
end;


end;


begin

end.
запускаю скрипт...
Ничего не происходит, а когда останавливаю скрипт секунды через 3-4 отправляется hp2
Byrger вне форума   Ответить с цитированием
Старый 13.06.2008, 23:51   #116
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

ы ты реально подумал что слово "тут" во фри процедуре не опечатка?
Grinch вне форума   Ответить с цитированием
Старый 13.06.2008, 23:53   #117
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

Попробовал поставить задержку 500мс, так же глючит
А после остановки отправляется "hp"
Byrger вне форума   Ответить с цитированием
Старый 14.06.2008, 00:00   #118
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

Значит вместо "тут" нужно задержку сделать?
Или нет, чтот вообще запутался...

И кстати это не весь скрипт...это "зарисовка" тоесть там будет намного больше пакетов, но смысл останется...меняться будет только задержка между отправкой...
Byrger вне форума   Ответить с цитированием
Старый 14.06.2008, 00:06   #119
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

возьми пример с танцами БД ) поставь делей 5000 и в последнем пункте поставь типа х:=1 и всё зачем велосипед придумывать.
Grinch вне форума   Ответить с цитированием
Старый 14.06.2008, 00:17   #120
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

Понимаешь, мне между каждым пакетом нужно разный промежуток времени...а там таймер только есть...или куда там делей пихать?
Byrger вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack


Опции темы
Опции просмотра

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

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


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

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

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