Бoт - локомотив от Alexus

[TAMBIK]

tiranosaur,
к какому скрипту хочешь добавить

[tiranosaur]

Локомотив

[tiranosaur]

Подскажите пжл а как сделать проверку(по типу проверки спойла) на проход ослабления к ветру?

Вопрос к рыцарям- Имеется недоработанный скипт на сх производная локомотива нужно ли выкладывать?

И ышо вопрос как в этом таймере сделать запуск с 0 позиции а продолжение со 2ой? Зараннее спс

const
Name='ххххх';

var
timer1: TTimer;
x: integer;


procedure OnTimer1(Sender: TObject);
begin

case x of
0: begin
timer1.interval := интервал_через_который_будет_отослан_первый_пакет;
end;

1: begin
buf:=hstr('пакет №1');
SendToServerEx(Name);
timer1.interval := интервал_через_который_будет_отослан_второй_пакет;
end;

2: begin
buf:=hstr('пакет №2');
SendToServerEx(Name);
timer1.interval := интервал_через_который_будет_отослан_третий_пакет;
end;

3: begin
buf:=hstr('пакет №3');
SendToServerEx(Name);
end;

else
begin
timer1.enabled := false;
x := 0;
end;
end;
inc(x);
end;

//************************************************** ****************************
// Вызывается при включении скрипта
//************************************************** ****************************
procedure Init;
begin
x := 0;
timer1:=TTimer.Create(nil);//выделяем памать и т.п.
timer1.OnTimer:=@OnTimer1;//привязываем процедуру к событию
timer1.enabled:=true;//начальное положение true-включен/false-выключен
timer1.interval:=1;//интервал
end;

procedure Free;
begin
timer1.free;
end;

begin
end.

[NLObP]

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

как в этом таймере сделать запуск с 0 позиции а продолжение со 2ой?

В кейсах изменяй значение X на требуемый порядок обхода, т.е.: x=0, x=2, x=1 и т.д.

[tiranosaur]

Подскажите пжл как в этой части бота
if MinDistID > 0 then // иначе ищем ближайшего
begin
TargetID:= MobsObjID[MinDistID];
PhisicalAttack; // берем вражину в таргет
AttackCycle:= 0;
exit;
end;
// if (abs(MyX-CenterX) > 20) and (abs(MyY-CenterY) > 20) then MoveTo (CenterX, CenterY, CenterZ);
end;
сделать чтобы пакет moveto в центр приходил один раз а не спамился постоянно?

[Breadfan]

Прикрути какуюнть флаговую переменную RunToPoint(boolean), и в проверку ее:

if ((abs(MyX-CenterX) > 20) and (abs(MyY-CenterY) > 20) then begin
    if (!RunToPoint) then begin 
     RunToPoint:=true;
     MoveTo (CenterX, CenterY, CenterZ);
    end;
  end
  else
     RunToPoint:=False;
  end;
end;
(синтаксис может и хромать)

примерно так вобщем

///так если точка к которой надо бежать, будет находиться на одной оси с текущим положением, эта проверка ж провалится - if ((abs(MyX-CenterX) > 20) and (abs(MyY-CenterY) > 20) then ..... и вроде никуда он не побежит...Может там OR уместнее? или ошибаюсь я....

[tiranosaur]

Подскажите где ошибка. должен не добавлять дроп в бд если итем ид = чему-то


#$16:begin
if (ReadD(10)!=(12051)) then
begin

if TargetID = ReadD(2) then // DropItem:h(PlayerID)h(ObjectID)i(ItemID)d(X)d(Y)d( Z)d(Stackable)d(Count)
begin
AddDroppedItem(ReadD(6), ReadD(10), ReadD(14), ReadD(18), ReadD(22));
end;
if LastKilledMobObjID = ReadD(2) then // DropItem:h(PlayerID)h(ObjectID)i(ItemID)d(X)d(Y)d( Z)d(Stackable)d(Count)
begin
AddDroppedItem(ReadD(6), ReadD(10), ReadD(14), ReadD(18), ReadD(22));
end;
end;
end;

end;

[NLObP]

tiranosaur, попробуй сравнивать не с PlayerID, а с ObjectID

if TargetID = ReadD(6) then
...
if LastKilledMobObjID = ReadD(6) then

[dast panda]

юзал поиск курил мануалы, решил написать в этой теме.
Возможно ли посредством скрипта делать релог персу по приближении любого перса, обычный релог или выход, или экстренное закрытие соеденения, как, допустим в валкере ? Заранее благодарен.

[QaK]

dast panda, можно =)