Вот я когда то писал скрипт на проверку антараса. Он для интерлюдии.
DELPHI Код:
const
AntharasBot='blablabla';
NameToPM='Perforator'; //Кому ПМ
var
HeartObj:integer;
timer:TTimer;
Stats : TMemo;
procedure Init;
begin
ShowTab;
Stats := TMemo.Create(UserTab);
Stats.Parent := UserTab;
Stats.Width:= 500;
Stats.Height:= 200;
Stats.ReadOnly := TRUE;
Stats.ScrollBars := ssVertical;
stats.Lines.Add('Тут про Антараса');
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=60000; //время задержки
end;
procedure Free;
begin
HideTab;
timer.free;
Stats.Free;
end;
procedure OnTimer(Sender: TObject);
begin
buf:=#$04;
WriteD(HeartObj);
WriteD(154606);
WriteD(121130);
WriteD(-3805);
WriteC(0);
SendToServerEx(AntharasBot);
end;
begin
//==============Antharas===============
if FromClient and (ConnectName=AntharasBot) and (pck[1]=#$04) then begin
HeartObj:=ReadD(2);
timer.enabled:=true;
end;
if FromServer and (ConnectName=AntharasBot) and (pck[1]=#$0F) then begin
if Pos('Will you confront Antharas',ReadS(6))>0 then
begin
buf:=#$21;
WriteS('teleport_request');
SendToServerEx(AntharasBot);
end else if Pos('You may not confront Antharas now',ReadS(6))>0 then Stats.Lines.Add(DateTimeToStr(Now)+' - Антарас мертв :(') else
begin
Stats.Lines.Add(DateTimeToStr(Now)+' - Антарас живой :)');
buf:=#$38;
WriteS(DateTimeToStr(Now)+' - Антарас живой :)');
WriteD(2);
WriteS(NameToPM);
SendToServerEx(AntharasBot);
end;
end;
end.
Забыл написать что после включения скрипта нужно выделит нпц сердце, чтоб считать его обджект ид.