Кружок нубов(Вопрос-Ответ)

[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.

где я ошибся?

[J-Fobos]

Сообщение от hash

Ещебы скрипт на авто скан Object ID нужного мне NPC, былобы идеально

NLObP написал отличный алгоритм определения ObjectID, поищите его посты на форуме, он пару раз объяснял как определить ObjectID у нужного нпц.

[QaK]

hash, берешь массив, запихиваешь в него инфу из приходящих пакетов NpcInfo ОбджектИд и НПЦ ИД =)

[RioLaSs]

Здравствуйте,Поогите мне пожалуста я пробовал пользоваться l2ph 3.5.33.164 подключился к серверу (Грация Финал) всё вроде нормально пакеты получаю но вот отправить хоть редактированный мною покет хоть нет не могу в чем дело????

[J-Fobos]

Сообщение от RioLaSs

Здравствуйте,Поогите мне пожалуста я пробовал пользоваться l2ph 3.5.33.164 подключился к серверу (Грация Финал) всё вроде нормально пакеты получаю но вот отправить хоть редактированный мною покет хоть нет не могу в чем дело????

Не попадаете мышкой по кнопке "отправить" ?
Если серьезно, то дайте больше информации о вашей проблеме.
//QaK:солидарен

[RioLaSs]

Да нет,по кнопке попадаю ещё как)))
но просто такое ощущение что отправленные мной пакеты вообще не доходят...по началу всё было нрмально пакеты доходили но как бы я их не редактировал к примеру на заточку то приходило просто чистое оружие((( что делать?

[Breadfan]

Оффтоп

Да это ж багоюзер(дюпальщик\какугоднодалеепотексту) наглый, сразу попадающий под статью "Обсуждение багов Lineage ЗАПРЕЩЕНО!"

[hash]

Как поставить в значение таймера рендом число, которе постоянно меняется, например от 3000 до 6000?
Пробовал так:
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=3000+Random(2000);
Ошибка "Too many actual parameters"

[J-Fobos]

1) Неверный синтаксис команды рандом.

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.

[Andriyko87]

Привет всем ! Такая проблема. Прога работает всьо в порядке, но через некоторое время вылетает с ошыбкой. По сути я понял что прога не может записать лог в папку бла бла бла, но как ето исправить ? Помогите плз.

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

[alexteam]

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