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

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

где я ошибся?

[Byrger]

А как сделать задержку без delay а то с ним скрипт виснет...
скрипт такой...

const
r1='2B 7E 75 74 6F 6A 71 32 00 6C 00 61 00 63 00 6B FB 27 75 11 6F 0B 71 04 00 68 00 00 00';
r2='2B 7E 75 74 6F 6A 71 32 00 6C 00 61 00 63 00 6B FB 27 75 11 6F 0B 71 04 00 68 00 00 00';
r3='ляляляля';
r4='ляляляля';
r5='ляляляля';
begin


  buf:=HStr(r1);
    SendToServer;
          delay(2000);
  buf:=HStr(r2);
    SendToServer;
           delay(2000);
buf:=HStr(r3);
    SendToServer;
            delay(2000);
     buf:=HStr(r4);
    SendToServer;
        delay(2000);
buf:=HStr(r5);
SendToServer;
           delay(2000);

         end.

[NLObP]

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

А как сделать задержку без delay а то с ним скрипт виснет...

Через таймер сделай. Найди скрипты баферов, там именно так сделано.

[Byrger]

понел что в переменных нужно прописывать timer1: TTimer а как его использовать я не понел

Добавлено через 1 минуту
потом задаём сам таймер

procedure Init; 
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=true;
timer1.interval:=2000; 
end;

А как его использовать между отправками не понимаю...

[Breadfan]

В блоке инициализации прописываешь

crashz:=TTimer.Create(nil); //- создание таймера
  crashz.OnTimer:=@crash1;//- объявление процедуры выполняемой при срабатывании таймера
  crashz.enabled:=false;//- исходное состояние таймера
  crashz.interval:=5000;//- интервал срабатывания в мс 
 

после этого создаешь нужную процедуру, и управляешь в скрипте ее включением\выключением флагом crashz.enabled (crashz - условное название, может быть любым)

[Byrger]

извини но я в этом очень плохо разбираюсь... Можешь показать на моём примере?

[Breadfan]

На твоем примере показать абсолютно не смогу, скрипт абсолютно нежизнеспособен ) Кстати уже был выложен скрипт на бд-бота

[Byrger]

ПОчему не жизнеспособен???
Он без делеев работает на ура...
только через 10сек дисконнект так как очень быстро

[Breadfan]

//основная часть скрипта
//вызывается при приходе каждого пакета если включен
begin
end.

Получается что при получении любого пакета от сервера или клиента он тут же начинает слать пакет на танец, вот тебе и дисконнект, вот тебе и жизнь ищи скрипт на бд, где то был<<<---ткни сюда - попадешь на ветку где есть скрипт на бд

[Byrger]

Блин не понимаю я тебя....

[NLObP]

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

Блин не понимаю я тебя....

Что не понятного в том, что тебе предлагают посмотреть, как правильно скрипт написать? Там примеры есть готовые.