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

[tiranosaur]

Тогда поменяй LastKilledMob на TargetID

[nneett]

Где именно заменить? Или все подряд на TargetID менять?

[tiranosaur]

if pck = '' then exit;
if (ConnectName = NickName) and FromServer then // разбор пакетов от сервера
и там меняешь
#$16: 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;
У мну все норм. только ивентовые итемы не поднимает. они приходят после пакета die

[nneett]

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

if pck = '' then exit;
if (ConnectName = NickName) and FromServer then // разбор пакетов от сервера
и там меняешь
#$16: 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;
У мну все норм. только ивентовые итемы не поднимает. они приходят после пакета die

Помогло. От души.

[tiranosaur]

procedure OnTimer1(Sender: TObject);
begin
case x of
0: begin
RequestMagicSkillUse(1239);
timer1.interval := 200;
end;
1: begin
RequestMagicSkillUse(1148);
timer1.interval := 200;
end;
2: begin
timer1.enabled := false;
x := 0;
end;
end;
end;

procedure PhisicalAttack; // команда атаки
begin
timer1.enabled:=true;
end;



procedure RequestMagicSkillUse (SkillID: integer); // маг атака
begin
buf:=#$39;
WriteD(SkillID);
WriteD(0);
WriteC(0);
SendToServerEx(NickName);
end;
подскажите пжл где ошибка? в таргет не берет а постоянно бьет.

[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 в центр приходил один раз а не спамился постоянно?