Цитата:
Сообщение от afonbka
Чтобы когда хп стало меньше максимума, скрипт юзал банку хп каждые 11 секунд, пока хп не станет полное. и так каждый раз когда хп станет меньше чем максимум. Нужно подкрутить только таймер, так скрипт уже работает и хилит нормально. Но пытается пить банку каждую секунду, изза чего получается флуд, а надо чтоб пытался пить каждые 11 секунд, чтобы не флудил.
|
Вобщем скрипты писать я не умею, но чето попробывал накалякать, если будет работать, я буду рад
DELPHI Код:
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.