Показать сообщение отдельно
Старый 24.09.2014, 00:29   #9
Новичок
 
Регистрация: 24.07.2014
Сообщений: 8
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
CoolNickname пока неопределено
По умолчанию

Таймер делаю так:
Код:
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)

Последний раз редактировалось CoolNickname, 24.09.2014 в 00:29. Причина: Добавлено сообщение
CoolNickname вне форума   Ответить с цитированием