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

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

где я ошибся?

[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 просто виснет намертво...

не понятно что он вообще кроме этого должен делать

[Byrger]

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

не понятно что он вообще кроме этого должен делать

Что непонятного???
Он должен отправить 1 пакет...подождать 5сек
Затем отправить 2ой пакет и сново начать цикл

[Grinch]

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

Что непонятного???
Он должен отправить 1 пакет...подождать 5сек
Затем отправить 2ой пакет и сново начать цикл

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

procedure Init; 
begin

end;

procedure Free; 
begin
тут 
end;

begin

end.

короче дело к ночи учебник возьми

[NLObP]

В догонку. При использовании delay(5000); мы останавливаем поток пакетов на 5 секунд. И так при прохождении любого пакета. Поэтому и зависает. Процедуру delay(); лучше пореже использовать и задержки ставить 100 ... 1000 мс не больше.

[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

[Grinch]

ы ты реально подумал что слово "тут" во фри процедуре не опечатка?

[Byrger]

Попробовал поставить задержку 500мс, так же глючит
А после остановки отправляется "hp"

[Byrger]

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

И кстати это не весь скрипт...это "зарисовка" тоесть там будет намного больше пакетов, но смысл останется...меняться будет только задержка между отправкой...

[Grinch]

возьми пример с танцами БД ) поставь делей 5000 и в последнем пункте поставь типа х:=1 и всё зачем велосипед придумывать.

[Byrger]

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