[Программа] PW CrazyBot 1.5.1 - Обсуждение

[nikolaskrav]

Цитата: Сообщение от diagnost Это не работает [Ссылки могут видеть только зарегистрированные пользователи. ] работает, если на продажу и починку не послать.

Запустил вчера версию 5_13, но я не удалял файлы, которые создаются при запуске бота "006D00690069007200720061" и чудо вылетело только 3 окна, остальные фармят. К сегодняшнему вечеру вылетело половина. Итого процентов 90% окон профармили сутки

[diagnost]

Поправил атаку пета у друли [Ссылки могут видеть только зарегистрированные пользователи. ] Изменил точность прохождения точек по координатам было 0,5м стало 1м

[nikolaskrav]

Цитата: Сообщение от diagnost Поправил атаку пета у друли [Ссылки могут видеть только зарегистрированные пользователи. ] Изменил точность прохождения точек по координатам было 0,5м стало 1м

Блин я только 5_20 запустил (((

Такой вопрос,я временами ставлю автопилот, он работает идеально, вот только после смерти на автопилоте появляются координаты из-за которых после респа перс не может взлететь, можно это как то исправить? Кстати начинаю ставить по координатам, крашаться окна.((

Исправь прикол с автопилотом и сможешь забыть проблемы с движением )).

[Mihadan]

Цитата: Сообщение от diagnost Поправил атаку пета у друли скачать 5_21 Изменил точность прохождения точек по координатам было 0,5м стало 1м

Win8 64бит. Друидка 99лвл. Нет починки, маршрута. Только копка ресов по радиусу (ад), мобы что сагрятся. Вылет через 2 часа, светофор.

[DIMA/PDN]

Светофоры одолевают через 2 5 часов

[diagnost]

Я в основном бегаю по данжам, устранено при спрыгивании небольших препятствий, бот зависал скачать [Ссылки могут видеть только зарегистрированные пользователи. ]
Небольшие изменения [Ссылки могут видеть только зарегистрированные пользователи. ](бегаю по данжам, странно вылетает только дру(из за пета чтоли))

[nikolaskrav]

Всем привет! Ребята, а что светофоры уже больше никого не мучают?

[Mihadan]

Цитата: Сообщение от nikolaskrav Всем привет! Ребята, а что светофоры уже больше никого не мучают?

Вчера весь день водил бота по данжам - ни одного светофора за весь день, по ассисту только плохо пет у друли сразу в атаку идет, как у пл в тагерте моб появляется. На копке ресов не проверял, попробую сегодня.

[diagnost]

Цитата: Сообщение от Mihadan Вчера весь день водил бота по данжам - ни одного светофора за весь день, по ассисту только плохо пет у друли сразу в атаку идет, как у пл в тагерте моб появляется. На копке ресов не проверял, попробую сегодня.

Я делаю не так таргет на себя собираю мобов жду когда подбежит пати и потом переключаю таргет на моба.

[1977r]

Скачал версию 5_22, 3-й час 2 бота летают..Это прорыв, как мне кажется, до этой версии именно чтоб 2 бота у меня работали не более часа.Я уже с каким то маниакальным нетерпением жду когда же их выбьет, и нифига летают. Постепенно опять увеличу нагрузку до своего стандарта 4 бота 2 кота.
Заметил что диагност что-то подправил в движении, бот буквально 1-1.5 сек думает прежде чем взлететь после выкапывания реса, или повернуть по маршруту, но это совершенно не критично.

з.ы. Диагност я заметил ты строчку
[Chat]
Start =
Number =
убрал. То-есть чат не логгируется.Это целенаправленно сделано так как мешает боту?

[diagnost]

Цитата: Сообщение от 1977r Скачал версию 5_22, 3-й час 2 бота летают..Это прорыв, как мне кажется, до этой версии именно чтоб 2 бота у меня работали не более часа.Я уже с каким то маниакальным нетерпением жду когда же их выбьет, и нифига летают. Постепенно опять увеличу нагрузку до своего стандарта 4 бота 2 кота. Заметил что диагност что-то подправил в движении, бот буквально 1-1.5 сек думает прежде чем взлететь после выкапывания реса, или повернуть по маршруту, но это совершенно не критично. з.ы. Диагност я заметил ты строчку [Chat] Start = Number = убрал. То-есть чат не логгируется.Это целенаправленно сделано так как мешает боту?

Я чатом не пользуюсь видать при откате забыл вписать.

Добавлено через 17 минут
В общем за это время что я раскопал, почему ижект движения у нас не работает? Есть один параметр цепочка выглядит так: BA+1C+28+13F0+18+0+2C
Если посмотреть то там находиться следующее процитирую:
"насчёт параметра. да, если игрок управляет персонажем, то movetype принимает следующие состояния:
при прыжке 4.
при передвижении клавишами 3.
при передвижении щелчками мыши 0.
если щёлкать мышью не на объект, а на небо (т.е. указываем просто сторону, в которую надо бежать), то movetype равен 2.
movetype никогда не равен 1. если прописать такое значение, передвигая игрока одним из вышеописанных способов, то он стопроцентно останавливается (даже при прыжке в небе зависнет, кстати). это кроме зажатия клавиш - у них значение 3 будет перезаписываться многократно, пока клавиши нажаты.
вот такие вот дела."

Дело в том, что при использовании инжекта движения у нас там постоянно "1"(движение по точкам) и не только у нас, есть предположение, что сервер через N часов воспринимает как ошибку и клиент вылетает. В принципе по этому параметру можно судить пользуются клавиатурой или мышкой иначе словить бан. Как это обойти -- не знаю.Если есть какое-то другое мнение высказывайтесь.

[1977r]

Насчет бана наврядли. Например я не знаю ни одного человека, и не видел ни одного поста чтоб забанили за использование того же Everyday Helper Bot, а там же тоже перс летает по точкам(нипам) и сдает гео. Насчет сервера который воспринимает инжект как ошибку..Мне кажется что вылеты были строго через какой-то промежуток времени, а у нас боты вылетают рандомно (у когото через 5-6 часов, у меня через 1-2 вылетали). Первоначально автор бота ведь тоже столкнулся с вылетами геобота(я писал об этом) но как то он быстро это решил, ну это то и понятно так как программный код то он сам и писал, а в пва просто ты пытаешся подстроить чужой программный код под обнову..

Добавлено через 3 минуты
Кстати вот несколько минут назад выбило 1 бота 2-й летает, получается 7 часов непрерывной работы и то 1 бот все еще летает.Это с учетом того что комп не перегружался уже 2 дня 10 часов 36 минут
Я считаю это большим успехом! Я так понимаю ты потихоньку нащупал проблему

[diagnost]

Гео бот использует Автопилот, там инжект движения совсем другой, он нам не подходит, там строго идет подъем на высоту, потом летит к другому нипу.(используется автопилот)(Ну если сильно упрощенно идет нажатие пробела, а потом мышкой тыкают по координатам)Такой метод движения палевно для нашего бота, особенно если по кругу будет летать. Пытаюсь запустить через структуру действий используя код фли

структура действий:

+13F0 ActionArray /Массив действий/

+C Stand Action   
+14 Current Action
+14 +10 P.Target ID
+18 +0 MovePoint Action
+18 +0 + 20 Destination LocX
+18 +0 + 24 Destination LocZ
+18 +0 + 28 Destination LocY
+18 +8 MoveTarget Action
+18 +8 +20 Destination ID
+18 +10 +30 M.Target ID
+18 +2C Mining Action
+18 +30 PetEvocative Action

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,
  MemoryWork,
  PacketSender,
  XPMan;

type
  PParams = ^TParams;
  TParams = packed record

  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    XR: TLabel;
    YR: TLabel;
    ZR: TLabel;
    BA: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label5: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    procedure Button1Click(Sender: TObject);
//    procedure MoveTo(X, Y, Z, Height: Single);
  private
    { Private declarations }
  public
//     procedure MoveTo(X, Y, Z, Height: Single);
    { Public declarations }
  end;

const
  BaseAdress = $00D2E444;
  AutoPathAdress = $00456F20;
  //Height = -1;

var
  Form1: TForm1;
    X, Y, Z, Height: Single;
    pointer, ActionStruct, ActionList, MoveAction: DWORD;

implementation

{$R *.dfm}

function FloatToHex(const X: double): string; overload;
type
  tBA = array [0 .. SizeOf(X) - 1] of byte;
var
  Buf: tBA;
  i: Integer;
begin
  For i := 0 to high(tBA) do
    Buf[ high(tBA) - i] := tBA(X)[i];
  Buf[0] := Buf[0] xor $80;
  SetLength(result, SizeOf(Buf) * 2);
  BinToHex(@Buf, PChar(result), SizeOf(Buf));
end;

Function HexToFloat(const s: string): extended;
{ Converts hex of floating point with sign flipped to float value. }
type
  tBA = packed array [0 .. SizeOf(result) - 1] of byte;
var
  t: string;
  Buf1: tBA;
  i: Integer;
  BufR: packed record case n: Integer of 0: (BA: tBA);
  4: (pad4: array [1 .. 6] of byte; sgl: Single);
  8: (pad8: array [1 .. 2] of byte; dbl: double);
  10: (ext: extended);
end;
begin
  t := LowerCase(s);
  BufR.n := HexToBin(PChar(t), @Buf1, SizeOf(Buf1));
  Buf1[0] := Buf1[0] xor $80;
  For i := 0 to high(tBA) do
    BufR.BA[ high(tBA) - i] := Buf1[i];
  Case BufR.n of
    4:
      result := BufR.sgl;
    8:
      result := BufR.dbl;
    10:
      result := BufR.ext;
  else
    raise Exception.Create('HexToFloat conversion error');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hProcess, ProcessID, rw: DWORD;
  pointer, ActionStruct, ActionList, MoveAction: DWORD;
  Tmp: DWORD;
  walkmode: Integer;
  Hei: Single;
  XGo, YGo, ZGo: Single;
begin
  GetWindowThreadProcessId(FindWindow(nil,PChar(Edit4.Text)),@ProcessID);
  if ProcessID<>0 then
    begin
      hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,ProcessID);
      X:=Round(StrToFloat(Edit1.Text)*10 - 4000);
      Y:=Round(StrToFloat(Edit2.Text)*10 - 5500);
      Z:=Round(StrToFloat(Edit3.Text)*10);
      XR.Caption := 'X_Read=' + FloatToStr(((X)+4000)/10);
      YR.Caption := 'Y_Read=' + FloatToStr(((Y)+5500)/10);
      ZR.Caption := 'Z_Read=' + FloatToStr((Z)/10);
      XGo := X;
      YGo := Y;
      ZGo := Z;

  ReadProcessMemory(hProcess, ptr($D2E444), @pointer, 4, rw);
  ReadProcessMemory(hProcess, ptr(Pointer + $1C), @Pointer, 4, rw);
  ReadProcessMemory(hProcess, ptr(pointer + $28),      @pointer, 4, rw);
  ReadProcessMemory(hProcess, ptr(pointer + $13F0),    @ActionStruct, SizeOf(ActionStruct), rw);
  ReadProcessMemory(hProcess, ptr(ActionStruct + $18), @ActionList, SizeOf(ActionList), rw);
  ReadProcessMemory(hProcess, ptr(ActionList + $0),    @MoveAction, SizeOf(MoveAction), rw);
  Tmp := 0;
  WriteProcessMemory(hProcess, ptr(MoveAction + $8),  @Tmp, SizeOf(Tmp), rw);
 // WriteProcessMemory(hProcess, ptr(MoveAction + $14), @Tmp, SizeOf(Tmp), rw);
 // WriteProcessMemory(hProcess, ptr(MoveAction + $18), @Tmp, SizeOf(Tmp), rw);
 // WriteProcessMemory(hProcess, ptr(MoveAction + $38), @Tmp, SizeOf(Tmp), rw);
  Tmp := 1;
  WriteProcessMemory(hProcess, ptr(MoveAction + $14), @Tmp, SizeOf(Tmp), rw);
  //
  WriteProcessMemory(hProcess, ptr(MoveAction + $20), @X, SizeOf(X), rw);
  WriteProcessMemory(hProcess, ptr(MoveAction + $24), @Z, SizeOf(Z), rw);
  WriteProcessMemory(hProcess, ptr(MoveAction + $28), @Y, SizeOf(Y), rw);

  Hei := HexToFloat(FloatToHex(-1.0));
  WriteProcessMemory(ProcessID, ptr(MoveAction + $68), @Hei, SizeOf(Hei), rw);
  //
  if (Height >= 0.0) then
  begin
    Tmp := 26625;
    WriteProcessMemory(hProcess, ptr(MoveAction + $64), @Tmp, SizeOf(Tmp), rw);
    Tmp := 256;
    WriteProcessMemory(hProcess, ptr(MoveAction + $6C), @Tmp, SizeOf(Tmp), rw);
  end
  else
  begin
    Tmp := 26624;
    WriteProcessMemory(hProcess, ptr(MoveAction + $64), @Tmp, SizeOf(Tmp), rw);
    Tmp := 65536;
    WriteProcessMemory(hProcess, ptr(MoveAction + $6C), @Tmp, SizeOf(Tmp), rw);
  end;
  //walkmode := 0;
  WriteProcessMemory(hProcess, ptr(ActionStruct + $2C), @walkmode, SizeOf(walkmode), rw);
  WriteProcessMemory(hProcess, ptr(ActionStruct + $C),  @MoveAction, SizeOf(MoveAction), rw);
  Tmp := 1;
 // WriteProcessMemory(hProcess, ptr(ActionStruct + $18), @Tmp, SizeOf(Tmp), rw);
 // WriteProcessMemory(hProcess, ptr(ActionStruct + $14), @MoveAction, SizeOf(MoveAction), rw);

  end;




       BA.Caption := 'Pointer=' + FloatToStr(Pointer);
       label6.Caption :=  'ActionStruct=' + FloatToStr(ActionStruct);
       label7.Caption :=  'ActionList=' + FloatToStr(ActionList);
       label8.Caption :=  'X=' + FloatToStr(X);
       label9.Caption :=  'Y=' + FloatToStr(Y);
       label10.Caption :=  'Z=' + FloatToStr(Z);
       label11.Caption :=  'Hei=' + FloatToStr(Hei);
       label12.Caption :=  'Tmp=' + FloatToStr(Tmp);
       label13.Caption :=  'MoveAction=' + FloatToStr(MoveAction);
       label14.Caption :=  'walkmode=' + FloatToStr(walkmode);
      CloseHandle(hProcess);
    end;


end.

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

 // WriteProcessMemory(hProcess, ptr(ActionStruct + $18), @Tmp, SizeOf(Tmp), rw);
 // WriteProcessMemory(hProcess, ptr(ActionStruct + $14), @MoveAction, SizeOf(MoveAction), rw);

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

[qwerfvcxzasd]

любой бот это палево, и не говорите что есть боты которых за 1 минуты нельзя вычислить находять с ними рядом ))))

[1977r]

Это понятно что палево..Но можно бота замаскировать под официального бота. Это сейчас не знаю насколько актуально с обесцениванием ДК, но до "Дыхание тьмы" многие втупую просто выбивали ДК тем самым обеспечивая себе пускай небольшой, но постоянный заработок. Ну и то все зависит от серьезности подхода к вопросу. Я неоднократно замечал в локациях целые кучИ друлей (5-6) выбивающих те самые ДК, еду для петов и ресы для крафта/прокачки ремесел (ну по типу незатвердевающей смазки например). Не удивлюсь если эти боты принадлежали 1 человеку и совместно вся эта армия друлек думаю достаточно приличный доход обеспечивала своему хозяину. Но в этом вопросе намного опытней меня уважаемый nikolaskrav, он как раз работает/работал именно по такому принципу исходя из его рассказов про запуск 25-30 окон. Я лишь частично представляю себе какой примерно заработок это приносит исходя из этапов прокачки своих ботов до 90+ лвл. Насколько помню примерно за 3-4 дня бот на тупо мободроче зарабатывал от 4кк на 75-80 лвл. Сами считайте сколько за 3 дня приносит 20 таких ботов.Но это уже детали да и в чужой карман смотреть нехорошо. У меня лично нет возможности запускать такое кол-во окон, поэтому я работаю по принципу копки ресов.
Кстати хотелось спросить у тех кто пользует пва для пати. Интересно а какой вы профит от хождений солопатей имеете? На ум приходит что-то типа крабства МН в одну каску своими ботоперсами, или ХХ, или тот же гуй..ну или той же цитадели..Но тут есть существенное препятствие..Это наличие целого парка персов типа во как у него(вообще поражаюсь усидчивости человека):
GreenDIe Лучник м 103
GreenDIE Убийца м 101
GreеnDIE Страж м 101
GrеenDiе Друид ж 101
GrееnDie Шаман м 101
GrееnDIE Оборотень м 101
GrееnDIЕ Оборотень м 101
GrEenDie Воин м 100
GreenDIЕ Убийца м 100
GrееnDiе Маг м 100
Greendie Оборотень м 89
GrеenDIE Воин м 51
(инфа взята с pwchars.info)