Ищу инжект на скил

[bestbeer]

Нужен инжект на скил(перс сначала идет к таргету если далеко, затем скил), если такого инжекта не существует, то есть возможность заставить перса идти к точке с точностью Single?

[Dinmaite[Work]]

Адреса поменяй только.

procedure SkillCall(aPParams:PParams); stdcall;
var CallAddress:pointer;
    P1:DWord;
begin
CallAddress:=Pointer($0045DCD0);
P1:=aPParams^.Param1;
 asm
  pushad
  mov ecx, dword ptr [$009C0E6C]
  mov ecx, dword ptr [ecx+$1C]
  mov ecx, dword ptr [ecx+$20]
  push $FFFFFFFF
  push $00
  push $00
  mov edx, P1
  push edx
  call CallAddress
  popad
 end;
end;

procedure Skill(SkillID:DWord);
begin
  aParam.Param1:=SkillID;
  InjectFunc(ProcessID,@SkillCall,@aParam,SizeOf(aParam));
end;

http://zhyk.ru/forum/showthread.php?t=144558

[bestbeer]

может кому еще понадобится:

Цитата: procedure SkillCall(aPParams:PParams);stdcall;export; var CallAddressointer; P1Word; begin CallAddress:=Pointer($00475740); P1:=aPParams^.Param1; asm pushad mov ecx, dword ptr [$00C38B6C] mov ecx, dword ptr [ecx+$1C] mov ecx, dword ptr [ecx+$34] push $FFFFFFFF push $00 push $00 mov edx, P1 push edx call CallAddress popad end; end;

[Ginrey]

Цитата: Нужен инжект на скил(перс сначала идет к таргету если далеко, затем скил)

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

Цитата: заставить перса идти к точке с точностью Single?

2) В теме указанной во 2 посте есть инжект движения в котором параметрами являются координаты по всем осям, если пишем на Delphi то думаю разберетесь как скопировать текст и убрать возможные ошибки, ну и соответственно под свой сервер настроить - версию клиента

[Smertig]

Цитата: Чтобы применять скилы на кого то , используем инжект пакета и ручками составляем пакет и инжектим в память

Цитата: Нужен инжект на скил(перс сначала идет к таргету если далеко, затем скил), если такого инжекта не существует, то есть возможность заставить перса идти к точке с точностью Single?

Причём тут пакеты? Нужен был инжект, нашёлся инжект.

Цитата: если такого инжекта не существует

Он не мог не существовать. Китайцы умные

[Ginrey]

Цитата: Причём тут пакеты? Нужен был инжект, нашёлся инжект.

ну я чутка домыслил слова автора темы, и продолжил мысль, тем не менее информация все же имеет смысл хоть может быть ее и больше чем нужно

[Dinmaite]

Если за пару лет не поменялись кардинально вызовы, то вышеприведенный инжект таки позволяет использовать любой скилл.
Разница в использовании на себя или на цель только в выделении цели.

[bestbeer]

Если таргет не совпадает с wid цели, просто шлю пакет пока таргет не станет равен wid цели.

[Ginrey]

Цитата: Если таргет не совпадает с wid цели, просто шлю пакет пока таргет не станет равен wid цели.

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

[bestbeer]

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

Если Вам знакомы другие способы для того чтобы : подойти к цели(если далеко) и направить на нее нужный скилл, я буду признателен увидеть их в этой теме.

[Ginrey]

Цитата: Если Вам знакомы другие способы для того чтобы : подойти к цели(если далеко) и направить на нее нужный скилл, я буду признателен увидеть их в этой теме.

Walk(X,Y,Z,0); - предварительно добавив нужный нам инжект в программу(бежит в координаты X,Y,Z соответственно, последний флаг означает 0 - бег, 1 - полет)
Packet('0200ХХХХХХХХ'); - где ХХХХХХХХ ID нужного нам НПС,Человека,Моба(эта команда берет в таргет)

[bestbeer]

Цитата: procedure AutoPathCall1(aP3DPoint:P3DPoint);stdcall;export; var addrointer; x,y,zword; begin x:=aP3DPoint^.Px; y:=aP3DPoint^.Py; z:=aP3DPoint^.Pz; addr := Pointer(AutoPathAdress); asm pushad MOV EDI,y MOV ESI,x MOV EAX,DWORD PTR DS:[BaseAdress] PUSH 0 PUSH EDI MOV ECX,DWORD PTR DS:[EAX+$1C] PUSH ESI PUSH 0 PUSH 0 PUSH 0 PUSH $14A call addr popad end; end;

Если точка - целое число, персонаж идет нормально куда нужно.
Но если данные на прием передалть под Single и передать в функцию, перс начинает стремиться к точке 0 0. (данную точку вычисляю в вб, и передаю в dll на дельфи)

Цитата: procedure AutoPathCall(aP3DPoint:P3DSPoint);stdcall;export; var addrointer; x,y:SINGLE; begin x:=aP3DPoint^.Px; y:=aP3DPoint^.Py; addr := Pointer(AutoPathAdress); asm pushad MOV EDI,y MOV ESI,x MOV EAX,DWORD PTR DS:[BaseAdress] PUSH 0 PUSH EDI MOV ECX,DWORD PTR DS:[EAX+$1C] PUSH ESI PUSH 0 PUSH 0 PUSH 0 PUSH $14A call addr popad end; end;

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

Точку к которой необходимо подойти вычисляю так :

Цитата: Dim X0, Y0, Z0 As Single Dim X1, Y1, Z1 As Single Dim Dx, Dy, Dz As Single Dim alpha As Single X0 = (Im.X.Read_Single) Y0 = (Im.Y.Read_Single) Z0 = (Im.Z.Read_Single) X1 = Mob.X.Read_Single Y1 = Mob.Y.Read_Single Z1 = Mob.Z.Read_Single Dx = X0 - X1 Dy = Y0 - Y1 Dz = Z0 - Z1 If dY = 0 Then If Math.Sign(dX) = -1 Then alpha = Math.PI Else alpha = 0 End If ElseIf Dx = 0 Then alpha = Math.PI / 2 Else alpha = Math.Atan(Dy / Dx) End If If (Math.Sign(dX) = -1 And Math.Sign(dY) = -1) Or (Math.Sign(dX) = -1 And Math.Sign(dY) = 1) Then alpha += Math.PI End If Dx = (2 * Math.Cos(alpha) + X1) Dy = (2 * Math.Sin(alpha) + Y1)

[Ginrey]

Цитата: Если точка - целое число, персонаж идет нормально куда нужно.

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

procedure WalkCall(aPParams:PParams);Stdcall;
var CallAddress1,CallAddress2,CallAddress3:Pointer;
    x,y,z:single;
    flying:DWORD;
begin
CallAddress1:=Pointer($00479A40);
CallAddress2:=Pointer($0047DD40);
CallAddress3:=Pointer($00479EB0);
x:=aPParams^.x;
y:=aPParams^.y;
z:=aPParams^.z;
flying:=aPParams^.Param1;
 asm
  pushad
  mov eax, dword ptr [GA]
  mov esi, dword ptr [eax+$34]
  mov ecx, dword ptr [esi+$1128]
  push 1
  call CallAddress1
  mov edi, eax
  lea eax, dword ptr [esp+$0C]
  push eax
  push flying
  mov ecx, edi
  call CallAddress2
  mov ecx, dword ptr [esi+$1128]
  push 0
  push 1
  push edi
  push 1
  call CallAddress3
  mov eax, dword ptr [GA]
  mov eax, dword ptr [eax+$34]
  mov eax, dword ptr [eax+$1128]
  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;



procedure Walk(x,y,z:single;WalkMode:dword);
var aParams: TParams;
begin
WalkMode:=0;
aParams.Param1:=WalkMode;
aParams.x:=x;
aParams.y:=y;
aParams.z:=z;
InjectFunc(RaidCall.hProcess,@WalkCall,@aParams,SizeOf(aParams));
end;

вот такая вот у меня функция

[bestbeer]

Ясно, я велик изобретал(

[sumikot]

Цитата: Сообщение от bestbeer Ясно, я велик изобретал(

Чем больше качественных велосипедов - тем лучше))
У меня вообще первый бот кликал мышью недалеко от перса, затем подменял в Action координаты на нужные. Со стороны выглядело прикольно - перс дергается в какую-то сторону, затем продолжает движение в нужную.
Кстати, в то время гордился этим ноу-хау - инжекта движения в паблике еще не было (