[Программа] исходник для бота

[Skuka.95]

VeTaL_UA, можешь тогда "доделать" мой код, а то я с масивами незнаком пока что)

[VeTaL_UA]

var
WID2,R2:Array[0..768] of integer;
...
 for J:=0 to 5 Do
                        begin
                          for I:=0 to $300 DO
                            begin
     ReadProcessMemory(hProcess, ptr(BA), @Temp, sizeof(Temp), BytesCount);
     ReadProcessMemory(hProcess, ptr(Temp+$1C), @MobsTemp, sizeof(Temp), BytesCount);
     ReadProcessMemory(hProcess, ptr(MobsTemp+$1c), @MobsTemp, sizeof(MobsTemp), BytesCount);
     ReadProcessMemory(hProcess, ptr(MobsTemp+$24), @MobsTemp, sizeof(MobsTemp), BytesCount);
     ReadProcessMemory(hProcess, ptr(MobsTemp+$18), @MobsTemp, sizeof(MobsTemp), BytesCount);
     ReadProcessMemory(hProcess, ptr(MobsTemp+I*4), @MobsTemp, sizeof(MobsTemp), BytesCount);
     ReadProcessMemory(hProcess, ptr(MobsTemp+$4), @MobsTemp, sizeof(MobsTemp), BytesCount);
     ReadProcessMemory(hProcess, ptr(MobsTemp+$278),@MobR, sizeof(MobR), BytesCount);
     ReadProcessMemory(hProcess, ptr(MobsTemp+$11c), @MobWId, sizeof(MobWId), BytesCount);
 if (mobR<R) and (mobR>4207283) then
R2[i]:=mobR;
WID2[i]:=MobWid;
    end;
     end;
  WID1:=IntToHex(WID2[0],1);
  edit1.Text:=WID1[7]+WID1[8]+WID1[5]+WID1[6]+WID1[3]+WID1[4]+WID1[1]+WID1[2];
  Packet:='0200'+edit1.Text;
  StrToByte(Packet,aParams);
  InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aParams));
CloseHandle(hProcess);
end;

Ну как с массива тянуть по очереди я думаю ты разберёшься...

[Skuka.95]

Цитата: Сообщение от VeTaL_UA Ну как с массива тянуть по очереди я думаю ты разберёшься...

неуверен)

[HellD]

Цитата: Сообщение от Skuka.95 писал взятие ближнего моба в таргет а оно берёт не ближнего и не дальнего а хз какого вобще(

не правильно,

Цитата: Сообщение от Skuka.95 if (mobR<R) and (mobR>4207283) then R:=mobR; WID:=MobWid;

правильно:

Цитата: Сообщение от Skuka.95 if (mobR<R) and (mobR>4207283) then begin R:=mobR; WID:=MobWid; end;

потому что в первом случае, в условие попадает только R:=mobR;
А WID:=MobWid; выполняется при любых условиях с каждым шагом цикла, как итог в WID записывается последний просмотренный моб...

и не совсем понял что такое

Цитата: Сообщение от Skuka.95 and (mobR>4207283)

Попробуй так, не получится пиши, посмотрю, может еще что увижу ))

[Skuka.95]

Цитата: Сообщение от HellD и не совсем понял что такое

я тоже неособо понял, но в списке из 12 мобов это значение было 13.... и оно как бы сказать... мешается)

[VeTaL_UA]

Цитата: Сообщение от Skuka.95 неуверен)

Ну чтобы вытянуть первый элемент массива нужно делать так:

var
i:integer;
i1:array[0..10] of integer;
begin
i:=i1[0];
end;

Что бы вытащить второй нужно:

var
i:integer;
i1:array[0..10] of integer;
begin
i:=i1[1];
end;

Ну и дальше по аналогии...

[HellD]

во первых, какого .... простите слов нет у тя расстояние в integer?! ))) в single получать надо )) я, конечно, согласен, что разницы боту никакой, но так хоть примерно будет понятно, что из этого расстояния, а что получается фиг знает откуда ))

во вторых, чему у тя R равно изначально? ))

Цитата: Сообщение от HellD if (mobR<R) and (mobR>4207283)

а если R не равно ничему, то как будет выполняться условие??!!

r:=0
if (r=0) or (mobR<R) then
begin
r:=MobR
Wid:=MobWid
end;

как то так попробуй )

[Skuka.95]

Цитата: Сообщение от HellD как то так попробуй )

спасибо заработало) только я непонимаю откуда взялось 4207283 и почему оно сейчас не мешается)
P.s. поставил обоим по спасибки) заслужили)

всё разобрался благодaря HellD это был WID пета..(

[yeyebvz]

ребят, помогите плиз, - координату z почему-то читает как отрицательное число. -80 или -79

  loc_x, loc_y, loc_z : Single;
......
     ReadProcessMemory(hProcess, ptr(d2+$120), @mID, sizeof(mID), rw);
     ReadProcessMemory(hProcess, ptr(d2+$3c), @loc_x, sizeof(loc_x), rw);
     ReadProcessMemory(hProcess, ptr(d2+$40), @loc_y, sizeof(loc_y), rw);
     ReadProcessMemory(hProcess, ptr(d2 + $44), @loc_z, sizeof(loc_z), rw);
Form1.Label11.Caption := FloatToStr(loc_z / 10);

x , y при этом выводятся правильные. моб наземный.


нашел ошибку. читал в теме, но не понял в чём суть была.

  ReadProcessMemory(hProcess, ptr(base_add), @Key, sizeof(Key), rw);
  ReadProcessMemory(hProcess, ptr(Key+$1C), @Key, sizeof(Key), rw);

  ReadProcessMemory(hProcess, ptr(Key+$34), @Key, sizeof(Key), rw);
  ReadProcessMemory(hProcess, ptr(Key+$3c), @pos_x, sizeof(pos_x), rw);
  ReadProcessMemory(hProcess, ptr(Key+$40), @pos_y, sizeof(pos_y), rw);
  ReadProcessMemory(hProcess, ptr(Key+$44), @pos_z, sizeof(pos_z), rw);

  Label9.Caption  := FloatToStr(pos_x / 10 + 400);
  Label10.Caption := FloatToStr(pos_y / 10);  // высота
  Label11.Caption := FloatToStr(pos_z / 10 + 550);