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