//AVTOR ATMS DIFKS
{
Cкрипт на дестра.
Отслеживает кол-во НР в %, если нр ниже 30% юзает френдзи,
если нр ниже 20% юзает гетс встроенный таймер отслеживает откат скилов на 60сек
}
const name = '****';
var   
typ,HP,MAXHP,PRHP,OFR,OGTS:integer;
Tim01: TTimer;
procedure Init; //Вызывается при включении скрипта
begin
Tim01:=TTimer.Create(nil);
   Tim01.OnTimer:=@OnTim011;
   Tim01.interval:=1000;   
   Tim01.enabled:=true;    
   OFR := 0; OGTS:=0;
end;

procedure OnTim011;
begin
IF OFR > 1 THEN OFR := OFR - 1;
IF OGTS > 1 THEN OGTS := OGTS -1;
end;

procedure Free; //Вызывается при выключении скрипта
begin
Tim01.free;
end;

procedure SendMsc(msc:string);   
begin   
buf:=#$4A;   
WriteD(0);   
WriteD(2); //тип сообщения 1 шаут 2 приват 10 аноним обьявление и тд
WriteS('Дестр скрипт'); //ник от кого
WriteS(msc);   
SendToClientEX(name);   
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
   if fromserver and (pck[1]=#$0E) and (ConnectName=name) then
   begin   
   typ:=ReadD(6);
     if typ = 4 then
     begin
     HP:=ReadD(14);       
     MAXHP:=ReadD(22);
     PRHP := HP * 100 DIV MAXHP;
   //  SendMsc('HP = '+INTTOSTR(PRHP));   
     if ((PRHP < 27) AND (OFR < 1)) then begin OFR := 60; buf:=hstr('2F B0 00 00 00 00 00 00 00 00');  SendToServerEX(name); end;
     if ((PRHP < 19) AND (OGTS < 1)) then begin OGTS := 60; buf:=hstr('2F 8B 00 00 00 00 00 00 00 00');  SendToServerEX(name); end;   
    end;    
     END;
end.