Следим за Рейд Боссами - Страница 7

Fer123 · 13.02.2010, 11:02

Вот я когда то писал скрипт на проверку антараса. Он для интерлюдии.

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.

Забыл написать что после включения скрипта нужно выделит нпц сердце, чтоб считать его обджект ид.

dast panda · 16.02.2010, 01:42

Fer123, спс, поковыряемся. для ХБ подстрою скину посмотрим.

Добавлено через 3 часа 30 минут
скрипт рабочий, поменяв пакеты для ХБ, и изменив переменные таблицы, можно отладить для любого эпика через нпц. спс еще раз.

з.ы. по незнаюнию в скриптах не мог найти обьяснение вот этому ,"ReadS(6))>0" что это ?

з.з.ы. удобнее сделать так
var
NpcObj, NpcX, NpcY, NpcZ:integer;
-/-/-/-/
WriteD(NpcX);
WriteD(NpcY);
WriteD(NpcZ);

не нужно для каждого нпц вручную вводить.

Fer123 · 16.02.2010, 10:05

Pos('Will you confront Antharas',ReadS(6))>0
Reads(6) - считывается весь диалог, и если в нем присутствует 'Will you confront Antharas' то функция выводит его позицию в тексте, то есть с какого по счету символа в тексте эта строчка начинается. Следовательно если ее нет тексте то функция выводит 0.

SeregaZ · 12.06.2010, 22:45

NLObP

Цитата:

Сообщение от NLObP

Name='NLObP'; //Вписать сюда имя чара
//kID=1000000; //коэфф вычитаемый из NpcID C4 lagam.net
kID=1023000; //коэфф вычитаемый из NpcID C6 theAbyss.ru

ааа каким боком ты это с лагамом связан?

играл раньше?