Cкрипт на дестра.
Отслеживает кол-во НР в %, если нр ниже 30% юзает френдзи,
если нр ниже 20% юзает гетс встроенный таймер отслеживает откат скилов на 60сек
Код
//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.