[Программа] PWA для руофа 210+, botovod2011 Edition - Обсуждение

[таркус21]

Огромное спасибо))

Небольшое пожелание: не нашел описание (мануал), если можно добавь пожалуйста.

[AEBus]

Не забываем, что обсуждение бота по прежнему происходит тут

[Dremalka]

botovod2011, я возможно ошибаюсь, но разве эта процедура не находится в модуле uClient.pas?

Старый инжект

procedure WalkCall(aPParams: PWalkParams); Stdcall;
var
  GameAddr, CallAddress1,CallAddress2,CallAddress3:Pointer;
//  ofs1, ofs2, ofs3, ofs4, ofs5, ofs6, ofs7, ofs8: dword;
  x,y,z:single;
  flying:DWORD;
begin
 GameAddr := aPParams.GameAddr;
 CallAddress1:=aPParams.CallAddress1;
 CallAddress2:=aPParams.CallAddress2;
 CallAddress3:=aPParams.CallAddress3;
{
 ofs1 := aPParams.ofs1;
 ofs2 := aPParams.ofs2;
 ofs3 := aPParams.ofs3;
 ofs4 := aPParams.ofs4;
 ofs5 := aPParams.ofs5;
 ofs6 := aPParams.ofs6;
 ofs7 := aPParams.ofs7;
 ofs8 := aPParams.ofs8;
}
 x:=aPParams.x;
 y:=aPParams.y;
 z:=aPParams.z;
 flying:=aPParams.flying;
 asm
  pushad
  mov eax, GameAddr
  mov eax, dword ptr [eax]
  mov esi, dword ptr [eax+$34]
  mov ecx, dword ptr [esi+$1050]
  push 1
  call CallAddress1
  mov edi, eax
  lea eax, dword ptr [esp+$18]
  push eax
  push flying
  mov ecx, edi
  call CallAddress2
  mov ecx, dword ptr [esi+$1050]
  push 0
  push 1
  push edi
  push 1
  call CallAddress3
  mov eax, GameAddr
  mov eax, dword ptr [eax]
  mov eax, dword ptr [eax+$34]
  mov eax, dword ptr [eax+$1050]
  mov eax, dword ptr [eax+$30]
  mov ecx, dword ptr [eax+$4]
  mov eax, x
  mov dword ptr[ecx+$20], eax
  mov eax, z
  mov dword ptr[ecx+$24], eax
  mov eax, y
  mov dword ptr[ecx+$28], eax
  popad
 end;
end;

function Walk(x,y,z: single; WalkMode: byte): Boolean;
var
  aParams: TWalkParams;
begin
  if WalkMode = 0 then
    aParams.flying:=0
  else
  begin
    aParams.flying:=1;
  end;
  aParams.BaseAddr := Pointer(base_addr);
  aParams.GameAddr := Pointer(game_addr);
  aParams.CallAddress1 := Pointer(walkX_inject_addr);
  aParams.CallAddress2 := Pointer(walkY_inject_addr);
  aParams.CallAddress3 := Pointer(walkZ_inject_addr);
  aParams.ofs1 := walk_ofs1;
  aParams.ofs2 := walk_ofs2;
  aParams.ofs3 := walk_ofs3;
  aParams.ofs4 := walk_ofs4;
  aParams.ofs5 := walk_ofs5;
  aParams.ofs6 := walk_ofs6;
  aParams.ofs7 := walk_ofs7;
  aParams.ofs8 := walk_ofs8;
  aParams.x:=x;
  aParams.y:=y;
  aParams.z:=z;
  Result := (aParams.CallAddress1 <> nil) and (aParams.CallAddress2 <> nil) and (aParams.CallAddress3 <> nil) and
            (aParams.BaseAddr <> nil) and (aParams.GameAddr <> nil);
  if Result then
    InjectFunc(hProcess, @WalkCall, @aParams, SizeOf(aParams));
end;

[botovod2011]

Цитата: Сообщение от Dremalka botovod2011, я возможно ошибаюсь, но разве эта процедура не находится в модуле uClient.pas? Старый инжект procedure WalkCall(aPParams: PWalkParams); Stdcall; var GameAddr, CallAddress1,CallAddress2,CallAddress3:Pointer; // ofs1, ofs2, ofs3, ofs4, ofs5, ofs6, ofs7, ofs8: dword; x,y,z:single; flying:DWORD; begin GameAddr := aPParams.GameAddr; CallAddress1:=aPParams.CallAddress1; CallAddress2:=aPParams.CallAddress2; CallAddress3:=aPParams.CallAddress3; { ofs1 := aPParams.ofs1; ofs2 := aPParams.ofs2; ofs3 := aPParams.ofs3; ofs4 := aPParams.ofs4; ofs5 := aPParams.ofs5; ofs6 := aPParams.ofs6; ofs7 := aPParams.ofs7; ofs8 := aPParams.ofs8; } x:=aPParams.x; y:=aPParams.y; z:=aPParams.z; flying:=aPParams.flying; asm pushad mov eax, GameAddr mov eax, dword ptr [eax] mov esi, dword ptr [eax+$34] mov ecx, dword ptr [esi+$1050] push 1 call CallAddress1 mov edi, eax lea eax, dword ptr [esp+$18] push eax push flying mov ecx, edi call CallAddress2 mov ecx, dword ptr [esi+$1050] push 0 push 1 push edi push 1 call CallAddress3 mov eax, GameAddr mov eax, dword ptr [eax] mov eax, dword ptr [eax+$34] mov eax, dword ptr [eax+$1050] mov eax, dword ptr [eax+$30] mov ecx, dword ptr [eax+$4] mov eax, x mov dword ptr[ecx+$20], eax mov eax, z mov dword ptr[ecx+$24], eax mov eax, y mov dword ptr[ecx+$28], eax popad end; end; function Walk(x,y,z: single; WalkMode: byte): Boolean; var aParams: TWalkParams; begin if WalkMode = 0 then aParams.flying:=0 else begin aParams.flying:=1; end; aParams.BaseAddr := Pointer(base_addr); aParams.GameAddr := Pointer(game_addr); aParams.CallAddress1 := Pointer(walkX_inject_addr); aParams.CallAddress2 := Pointer(walkY_inject_addr); aParams.CallAddress3 := Pointer(walkZ_inject_addr); aParams.ofs1 := walk_ofs1; aParams.ofs2 := walk_ofs2; aParams.ofs3 := walk_ofs3; aParams.ofs4 := walk_ofs4; aParams.ofs5 := walk_ofs5; aParams.ofs6 := walk_ofs6; aParams.ofs7 := walk_ofs7; aParams.ofs8 := walk_ofs8; aParams.x:=x; aParams.y:=y; aParams.z:=z; Result := (aParams.CallAddress1 <> nil) and (aParams.CallAddress2 <> nil) and (aParams.CallAddress3 <> nil) and (aParams.BaseAddr <> nil) and (aParams.GameAddr <> nil); if Result then InjectFunc(hProcess, @WalkCall, @aParams, SizeOf(aParams)); end;

Нет вы не ошибаетесь он именно там, но у меня нет исходника
uMemory поэтому не могу поменять. Если знаете чем разбить на исходники подскажите ! Все поменяю тогда)

[Dremalka]

Цитата: Сообщение от botovod2011 Нет вы не ошибаетесь он именно там, но у меня нет исходника uMemory поэтому не могу поменять. Если знаете чем разбить на исходники подскажите ! Все поменяю тогда)

Эти исходники уважаемый Gurin выложил сам (как и обещал). Их можно скачать (по крайней мере так было раньше) на указанном Вами сайте. Нужно только зайти на форум.

Вот архив с исходниками pwasource.rar. В файле нет исполняемых файлов, но для спокойствия ссылка на [Ссылки могут видеть только зарегистрированные пользователи. ]. Только учтите, что версия исходников может отличаться от конечной версии бота. Поэтому будьте внимательны при их использовании.
Еще раз повторю. Весь материал принадлежит Gurin-у. И бот действительно приятный и стоит того, чтобы его попробовали реанимировать. Скажем так... опенсорс параллельно коммерческому проекту.

[BETEP0K]

Я так понимаю, что это та же самая триальная версия. Прошло 2 недели, и работать перестал) В кубе теперь не копает, и в 4 комнате не бьёт столбики. В мире не проверял, без надобности, но думаю и там не будет работать.

[maximuuss]

Согласен. Сначала переставал бить мобов и просто стоял пока не кликнешь на атаку. Теперь ставлю бота и идет разрыв соединения сервером. На клиенте без бота разрыва нет. Бесплатно да?

[gurin]

Эта версия никакого отношения к платной/триальной не имеет. Автор темы сам поправил старый ПВА и сам полностью несет ответственность за его работоспособность и сопровождение.

[AEBus]

Цитата: Сообщение от gurin Эта версия никакого отношения к платной/триальной не имеет. Автор темы сам поправил старый ПВА и сам полностью несет ответственность за его работоспособность и сопровождение.

Автор подправил только смещения и адреса, сам экзешник байт в байт идентичен вашей последней паблик версии

[Choochoo]

Цитата: Сообщение от Nitrogen Автор подправил только смещения и адреса, сам экзешник байт в байт идентичен вашей последней паблик версии

Все верно. Но эта версия была рассчитана на более старый клиент. И потому не стоит удивляться нестабильной работе после нескольких обновлений.

[ksenon10]

как я понимаю этот бот только для ру офа??? можно ли его переделать для фришек версии 1.4.5 ???

[RWD]

почему растет потребение ОЗУ? начиная с 6 мб после запуска доходит до 500мб за 2 часа

[stalagmith]

Цитата: Сообщение от RWD почему растет потребение ОЗУ? начиная с 6 мб после запуска доходит до 500мб за 2 часа

Потому, что кривые алгоритмы инжекта и отправки пакетов. К сожаления, это не лечится, так как они в закрытой dll-ке.

[demknet]

Будет ли обновление бота, после которого он будет работать ?)) Авто-таргет не работает(только если на таб нажимать), лут не собирает вообще.

[CrowScout]

вот сковырял для pwa-botovod новый ini файл с новыми названиями скилов в том числе под морай.
если обнаружите ошибки - то плиз исправьте и выложите свою версию.