Скрипт юзает СА кристалл на моба если у того НР ниже 30%
Код
//Автор ATMS_DIFKS
var
name,soul:string;
id,id2,id3,ac,ac2,hpid,hp,PHP,mhpid,mhp,prhp,sa,idsa,idup:integer;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(2); //тип сообщения 1 шаут 2 приват 10 аноним обьявление и тд
WriteS(''); //ник от кого
WriteS(msc);
SendToClientEX(name);
end;
procedure Init; //Вызывается при включении скрипта
begin
name:='*****';
PHP:=30; //если НР меньше % юзать СА
sa:=0;
SendMsc('клик по sa что бы запомнить его id');
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromClient and (pck[1]=#$04) and (ConnectName = name) then id := ReadD(2);
if FromServer and (pck[1]=#$0E) and (ConnectName = name) then
begin
id2 := ReadD(2);
if id2 = id then
begin
ac := ReadD(6);
if ac = 1 then
begin
hpid:= ReadD(10);
if hpid = 9 then
begin
hp := ReadD(14);
prhp:=(hp*100) div mhp;
if prhp < php then
begin
if sa = 1 then
begin
buf:=#$14;
WriteD(idsa);
WriteD(0);
SendToServerEX(name);
end;
end;
end;
end;
end;
end;
if FromServer and (pck[1]=#$0E) and (ConnectName = name) then
begin
id3 := ReadD(2);
if id3 = id then
begin
ac2 := ReadD(6);
if ac2 = 2 then
begin
mhpid := ReadD(10);
if mhpid = 10 then
begin
mhp := ReadD(14);
hpid := ReadD(18);
if hpid = 9 then
begin
hp := ReadD(22);
prhp:=(hp*100) div mhp;
if prhp < php then
begin
if sa = 1 then
begin
buf:=#$14;
WriteD(idsa);
WriteD(0);
SendToServerEX(name);
end;
end;
end;
end;
end;
end;
end;
if FromClient and (pck[1]=#$14) and (ConnectName = name) then
begin
if sa = 0 then begin idsa := ReadD(2); sa:=1; SendMsc('готово'); end;
end;
if FromServer and (pck[1]=#$27) and (ConnectName = name) then
begin
idup:=ReadD(42);
if (idup = 4631) or (idup = 4651) then
begin
idsa := ReadD(38);
SendMsc('ID SA кристала обновлен');
end;
end;
end.