Для Spellhowler.
Если вам лень жать на скилл Hurricane при убиении мобов то скрипт для вас.
При выделении моба скрипт начинает жать на скилл хурика, когда моб убит то скрипт снимает таргет и перестает тыкать на хурик.
Код
//Автор ATMS_DIFKS
var Tim01: TTimer;
name:string;
ida,idb,atr,MP: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 := '****';
Tim01:=TTimer.Create(nil);
Tim01.OnTimer:=@OnTim011;
Tim01.interval:=300;
Tim01.enabled:=false;
end;
procedure OnTim011;
begin
if mp > 150 then begin buf:=hstr('2F D7 04 00 00 00 00 00 00 00'); SendToServerEX(name); end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
Tim01.free;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromClient and (pck[1]=#$04) and (ConnectName=name) then
begin
ida := ReadD(2);
Tim01.enabled:=true;
end;
if FromServer and (pck[1]=#$06) and (ConnectName=name) then
begin
idb := ReadD(2);
if ida = idb then begin Tim01.enabled:=false; buf:=hstr('37 01 00'); SendToServerEX(name); end;
end;
if FromClient and (pck[1]=#$37) and (ConnectName=name) then
begin
Tim01.enabled:=false;
end;
if FromServer and (pck[1]=#$0E) and (ConnectName=name) then
begin
atr := ReadD(6);
if atr = 2 then begin MP := ReadD(14); if mp < 150 then begin {SendMsc('Мало МР');} end; end;
end;
end.