Таймер делаю так:
Код:
var
timer:TTimer;
TimerStep:byte;
procedure Init; //Вызывается при включении скрипта
begin
TimerStep:=1;
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=1000;
end;
procedure Free; //Вызывается при выключении скрипта
begin
timer.free;
end;
procedure OnTimer; //<<--- изменено
begin
MoveTo(119670,-183560,-3313);
if PosInRange(119670,-183560,-3313,100) then timer.enabled:=false;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//ParseXYZ;
if FromClient and (ConnectName=Name)
and (pck[1]= #$56) and (pck[2]= #$1E) then
begin
timer.enabled:=true;//<<--- изменено
end;
end.
Вот, не понимаю, что не так Оо
//Breadfan: чуть подправил скрипт.
Добавлено через 14 часов 55 минут
Цитата:
Сообщение от CoolNickname
//Breadfan: чуть подправил скрипт.
|
Целый час не мог понять почему все равно не работает, потом на форуме нашел это:
Цитата:
Сообщение от kpa9pt
Такс, только что сделал у себя также, ммм таймер в порядке не работает отправка sendtoserver, я сделал sendtoserverex(name) где name имя персонажа тобишь героя на котором соединение, и заработало
|
И действительно, выходит таймер работает только через sendtoserverex(name)