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

[-=Ma}{imuS=-]

все, разобрался я просто юзал версию 3.4.1.61, а 69 нашел случайно на форуме. было бы неплохо в файловый архив выложить

все работает, но минуты через 2-3 вылазит ошибка shiedCONSOL.exe обнаружена ошибка и линейка всинет

[NLObP]

Сообщение от -=Ma}{imuS=-

я просто юзал версию 3.4.1.61, а 69 нашел случайно на форуме. было бы неплохо в файловый архив выложить

Загляни сюда, тут всё есть, даже новее.

[NLObP]

Мне подсказали замечательную команду:

//by Xelat
{я видел у тебя там проблемы с пакетом UserInfo - отправляешь на сервер пакет 6E
- RequestRecordInfo и тебе придёт и юзеринфо, и инфа о всех нпц и игроках,
которые тут есть}
buf:=#$6E;
SendToServerEx(Name);

[TAMBIK]

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

Мне подсказали замечательную команду:

//by Xelat
{я видел у тебя там проблемы с пакетом UserInfo - отправляешь на сервер пакет 6E
- RequestRecordInfo и тебе придёт и юзеринфо, и инфа о всех нпц и игроках,
которые тут есть}
buf:=#$6E;
SendToServerEx(Name);

а КАК часто можно отправлять эту команду ?
а то наверно спалишся

[-=Ma}{imuS=-]

а что делать с ошибкой shieldCONSOL.exe ?

[nezabudkin]

Сообщение от -=Ma}{imuS=-

а что делать с ошибкой shieldCONSOL.exe ?

Ждать новый антифрост от XKOR`а

[nezabudkin]

Эта версия только под Gracia РУ ОФФ,
а там сейчас новая защита, и после запуска скрипта дисконект получаешь очень быстро((
Я на днях выложил обновленную версию, там исправлено несколько багов, но дисконект всеравно получишь...

[lexayar]

Исправил две нехорошие ошибки в боте:
тут, бот брал не ближайшего моба, а первого попавшегося.

function GetMinDistID : integer;     // функция поиска ближайшего моба в БД
 var
  i, Dist, MinDist : integer;
 begin
  result:= 0;
  if MobsLastIndex = 0 then exit;
  MinDist:=RastoyanieToMe(MobsXYZ[1,OX], MobsXYZ[1,OY]);
  for i:=1 to MobsLastIndex do if (MobsDist[i] <= Radius) and (MobsIsAttackable[i]) then
   begin
    Dist:= RastoyanieToMe(MobsXYZ[i,OX], MobsXYZ[i,OY]);
    if Dist <= MinDist then
     begin
      MinDist:= Dist;
      result:= i;
     end;                     // если нашли хоть одного моба или несколько, товозращаем индекс ближайшего
   end;
 end;

А тут, если вы качаетесь не один, то бот бегал и пытался убить уже убитых не вами мобов.

procedure Die06;
var
  i: integer;
begin
  i:= TestPovtor(ReadD(2));
  if i > 0 then begin
    MobsIsAttackable[i]:= false;
    MobsAgression[i]:= false;
    if MobsObjID[i] = TargetID then
    begin
      TimerCombat.enabled:= false;
      if Spoil and Spoiled then
       if ReadD(22) = 1 then RequestMagicSkillUse(42);
      LastKilledMobObjID:=TargetID;
      inc (MobsKilled);               // подводим статистику
      Spoiled:= false;
      TargetID:= 0;
      TimerCombat.enabled:= true;
    end;
  end;
end;

Делал раньше еще какие то доработки, уже не помню.

Добавлено через 3 минуты
Раньше бот тупил ппц из за этого, и сразу было видно. А теперь точно не отличишь от человека

Добавлено через 9 минут
Еще вспомнил одну фишку, я играю на хеллбоунде может с этим связано, а может это ошибка, но в процедуре InventoryCreate начальное смещение у меня почему то не 76 а 76-4, вот так:

offset:= 76-4;

[crol]

работает на l2.ru ?

[QaK]

crol, нет.