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

[hackbozb]

Полностью тему прочитай, если не ошибаюсь там есть кусок для спойла........ Если мозг мой меня в очередной раз подвел, то извини.....

[tiranosaur]

Про спойл есть и в локомотиве. в памощнике атака оформлена два раза procedure Action. а как туда еще спойл фпихнуть хз. хитро больно.

[nneett]

freel, если у тебя интерлюд, кроме Аббиса наверное, после того как ты моба шлепнешь, неважно ботом или руками, может дропнуться вещь какая-нибудь. Так вот ели ты в клиенте увидел, что вещь дропнулась, то просто обязан был прийти пакет от сервера вида: 0C=DropItem:d(PlayerID)d(ObjectID)d(ItemID:Get.Fun c01)d(X)d(Y)d(Z)d(Stackable)d(Count)d(d).
В окне бота в списке дропа что-нибудь показывается?
Кроме поднятия вещей бот себя ведет адекватно?
Может что-нибудь с номерами пакетов на твоем сервере нахимичили?

Привет. Незабудкин вот ты кому то отвечал, у меня такая же проблема, все прекрасно работает, но не собирает дроп, пакет приходит, в окне бота в дропе пусто. Вот сам пакет , если нужен, как можно решить эту проблему ?
0C 54 B8 00 10 5C B8 00 10 C5 0F 00 00 F6 4D 00 00 A2 DD FF FF 4F F5 FF FF 01 00 00 00 60 37 00 00 01 00 00 00

[tiranosaur]

Там нужно ковырятся в скрипте. посмотри когда приходит ДропИтем до или после смерти моба?

[nneett]

DropItem приходит перед пакетом Die(это он я так понял за смерть отвечает).

[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;
подскажите пжл где ошибка? в таргет не берет а постоянно бьет.