L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
//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.
Здравствуйте,Поогите мне пожалуста я пробовал пользоваться l2ph 3.5.33.164 подключился к серверу (Грация Финал) всё вроде нормально пакеты получаю но вот отправить хоть редактированный мною покет хоть нет не могу в чем дело????
Здравствуйте,Поогите мне пожалуста я пробовал пользоваться l2ph 3.5.33.164 подключился к серверу (Грация Финал) всё вроде нормально пакеты получаю но вот отправить хоть редактированный мною покет хоть нет не могу в чем дело????
Не попадаете мышкой по кнопке "отправить" ?
Если серьезно, то дайте больше информации о вашей проблеме.
//QaK:солидарен
Последний раз редактировалось QaK, 08.04.2010 в 22:40.
Да нет,по кнопке попадаю ещё как)))
но просто такое ощущение что отправленные мной пакеты вообще не доходят...по началу всё было нрмально пакеты доходили но как бы я их не редактировал к примеру на заточку то приходило просто чистое оружие((( что делать?
Да это ж багоюзер(дюпальщик\какугоднодалеепотексту) наглый, сразу попадающий под статью "Обсуждение багов Lineage ЗАПРЕЩЕНО!"
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 09.04.2010 в 02:26.
Как поставить в значение таймера рендом число, которе постоянно меняется, например от 3000 до 6000?
Пробовал так:
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=3000+Random(2000);
Ошибка "Too many actual parameters"
Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range
0 <= X < 1.
В переводе на руский я думаю надобности нету
А еще надо использовать процедуру Randomize.
2) Плюс мне кажется нельзя (или ничего не даст) при объявлении таймера задавать такую функцию. Объявление происходит один раз и получается что interval изменятся не будет. В вашем случаи надо изменять Timer01.interval в событии OnTimer01.
UPD:
Думаю стоит еще написать пример генерации случайного числа от +20 до +50
Код:
Function IntRandom(LowBorder, UpBorder: Integer): Integer;
Begin
IntRandom := LowBorder + Random(UpBorder - LowBorder + 1);
End;
Var
X: Integer;
begin
Randomize;
X := IntRandom(-20, 50);
end.
__________________
В любом из нас спит гений. И с каждым днем все крепче.
Переходим на протокол нового поколения jabber
Последний раз редактировалось J-Fobos, 13.04.2010 в 03:18.
Привет всем ! Такая проблема. Прога работает всьо в порядке, но через некоторое время вылетает с ошыбкой. По сути я понял что прога не может записать лог в папку бла бла бла, но как ето исправить ? Помогите плз.
Цитата:
Cannot create file "D:\games\for l2 (progu)\БОТ для vlineage.ru\l2phx.3.4.1.70\logs\BriaRay_12\04\2010 _00.40.12.txt". The system cannot find the path specified.
Exception class: EFCreateError
Exception message: Cannot create file "D:\games\for l2 (progu)\БОТ для vlineage.ru\l2phx.3.4.1.70\logs\BriaRay_12\04\2010 _00.40.12.txt". The system cannot find the path specified.
Exception address: 00427BC2