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

[afonbka]

Спасибо большое, обновленный скрипт работает. Чуть позже всеже разберу пакет и узнаю номер байтов максимума хп. Тему можно закрыть. Всем спасибо..

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

[NLObP]

afonbka, можно всего сеанса. Тот скрипт для С4.

[afonbka]

Вот.. Зашел в игру, открыл инвентарь, выпил банку, вышел из игры.