проблема с процедурой
Доброго времени суток тому кто читает.
Собственно проблема:
Пишу скрипт и хочу сделать чтоб при отсылке пакета на сервер(в моём случае чтото написать в чате) пакет не отсылался и слался другой (в моём случае это пакет на соц действие - сесть).
Код вот такой, часть конечно:
begin
if FromClient and (pck[1]=hstr('49')) then begin
pck:='';
buf:=hstr('56 00 00 00 00 00 00 00 00 00');
SendToServerEx(name);
end;
end.
Работает без проблем, но если я положу его в процедуру таймера(не буду писать код дело не в нём, работает если под таймер поставить просто пакет на сесть), то ничего не происходит.
Думаю всё дело что под процедурой стоит условие if...then..begin...end;
Но что делать я не знаю чтоб работало по таймеру...
Подскажите плз.
|