[Помогите]Прикрутить таймер к скрипту

[afonbka]

Всем наидобрейшего дня. Долго читал мануал и пытался прикрутить таймер к скрипту питья банок хп, но без результатно. Хотелось бы попросить тех, кто умеет это делать, помоч решить данную проблему. Я имею скрипт питья банок хп если CurHP<MaxHP. Но скрипт начинает флудить и пытается пить банки каждую секунду. Хотелось бы чтобы он повторял питье только через 11 секунд. Вот сам скрипт.

//автоматическое использование НР пробирок
const
    Name = 'UberWark';

var MyID:Word;
    OID:String;

begin
 if FromServer and (pck[1]=#$21) and (ReadD(12)=1539) then
   OID:=pck[8]+pck[9]+pck[10]+pck[11];

 if FromServer and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<=ReadD(11)) then
    begin
     SendToServerEx(Name);
     buf:=HStr('19 D9 03 21 10 00 00 00 00');
     SendToServer;
    end;
end.

Спасибом не обижу. Прошу помощи по человечески. Мог бы сам сделать, не просл бы о помощи. Прошу понять..

[J-Fobos]

http://coderx.ru/showpost.php?p=30293&postcount=404

[afonbka]

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

слушай, а я не понимаю, ты хочешь чтоб у тебя вобще каждые 11 секунды включенного скрипта юзалась банка, или когда дойдет до опрделеннного уровня?

Чтобы когда хп стало меньше максимума, скрипт юзал банку хп каждые 11 секунд, пока хп не станет полное. и так каждый раз когда хп станет меньше чем максимум. Нужно подкрутить только таймер, так скрипт уже работает и хилит нормально. Но пытается пить банку каждую секунду, изза чего получается флуд, а надо чтоб пытался пить каждые 11 секунд, чтобы не флудил.

[dyh9l]

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

Чтобы когда хп стало меньше максимума, скрипт юзал банку хп каждые 11 секунд, пока хп не станет полное. и так каждый раз когда хп станет меньше чем максимум. Нужно подкрутить только таймер, так скрипт уже работает и хилит нормально. Но пытается пить банку каждую секунду, изза чего получается флуд, а надо чтоб пытался пить каждые 11 секунд, чтобы не флудил.

Вобщем скрипты писать я не умею, но чето попробывал накалякать, если будет работать, я буду рад

const
    Name = 'UberWark';

var MyID:Word;
    OID:String;
    Timer01: TTimer;
    TimerCyrcle01:integer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=true; //начальное положение включен(true)/выключен(false)
   Timer01.interval:=11000; //интервал(в милисекундах) как часто таймер срабатывает
Timercyrcle01:=1;
end;

procedure Free;
begin
Timer01.free;
end;

Procedure OnTimer01(Sender : TObject) ;
begin
case TimerCyrcle01 of
1: begin       buf := hstr('19 D9 03 21 10 00 00 00 00') ;
               SendToServer;
   end;
end;
end;


begin
 if FromServer and (pck[1]=#$21) and (ReadD(12)=1539) then
   OID:=pck[8]+pck[9]+pck[10]+pck[11];

 if FromServer and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<ReadD(11)) then
    begin
     Timer01.enabled:=True;
    end;
   else 
    begin
     Timre01.enabled:=False;
    end;
end.

[afonbka]

ругаетсяна else

    begin
     Timer01.enabled:=True;
    end;
    else
    begin
     Timre01.enabled:=False;
    end;

Я так понял, в твоем скрипте таймер стоит на проверку моего хп, а не на питье банок, или на то и другое стоит таймер?

[dyh9l]

    begin
     Timer01.enabled:=True;
    end
    else
    begin
     Timre01.enabled:=False;
    end;

вот так попробуй

[afonbka]

теперь ругается вот на етот код:

     Timre01.enabled:=False;

[dyh9l]

ну блин ошибся) чего не видно Timer01.enabled:=False;

Добавлено через 52 секунды
у меня таймер стоит вот на это
1: begin buf := hstr('19 D9 03 21 10 00 00 00 00') ;
SendToServer;
end;
а вот что это за пакет я хз чесно)

[afonbka]

тьфуты точно да я и сам не заметил различия. Запустился, сейчас гляну как в работе...

[dyh9l]

19 D9 03 21 10 00 00 00 00 - юзание хп банки?