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

[sumikot]

Флуд, не читать

Обязательно нужно вставить именно такую проверку
if s<>'Hy6u' then
тогда тот клан, чей мастер возмет на себя ответственность дать правдивое название своему клану, будет владеть ботом - то есть МИРОМ

[Skuka.95]

HellD, и чё ты предлагаешь...
sumikot, хех

[HellD]

Цитата: Сообщение от Skuka.95 HellD, и чё ты предлагаешь...

Ты же уже прекрасно знаешь какие у меня ответы на такого рода вопросы )) поработать головой ))

[Skuka.95]

Цитата: Сообщение от HellD поработать головой ))

одолжи свою)

[HellD]

Цитата: Сообщение от Skuka.95 одолжи свою)

Забирай... тока чур вместе с головной болью ))

Цитата: Сообщение от Skuka.95 а потом перезайти на нужного...

а получить в добавок к id клана еще и id перса, и сравнивать обе переменных? ))

.... Так же возможно подменить )) а если можно подменить все... то... как же это реализовать? что подменить нельзя? )))

[Skuka.95]

Цитата: Сообщение от HellD что подменить нельзя? )))

а мне откуда знать ?)

Цитата: Сообщение от HellD Забирай...

ок довай)

[Skuka.95]

бла бла бла... как перевести WID моба из 10 ричной системы в 16-ти ричную ? (для пакета на выделения моба)

[HellD]

как перевести int в hex? ))) кхм.... можно было бы попробовать inttohex... может получится ))
тока развернуть не забудь его перед передачей в клиент ))

[VeTaL_UA]

Цитата: Сообщение от Skuka.95 как перевести WID моба из 10 ричной системы в 16-ти ричную ?

IntToHex(WID,1));

[Skuka.95]

VeTaL_UA, а чё значет это "1" после WID'а ?)

Добавлено через 43 минуты

for J:=0 to 5 Do
                        begin
                          for I:=0 to $300 DO
                            begin
     ReadProcessMemory(hProcess, ptr(BASE_ADDR), @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 then
R:=mobR;
WID:=MobWid;
    end;
     end;
 Memo1.Lines.Add(IntToStr(R));
 closehandle(hProcess);

где ошибка ? в мемо выводится постоянно 4207283

[VeTaL_UA]

Цитата: Сообщение от Skuka.95 VeTaL_UA, а чё значет это "1" после WID'а ?)

Это значит, что перед WID не буду ставится нули, тоесть будет:

1A2B3C4E5F

А не:

001A2B3C4E5F

При цифре три вместо еденици...

Добавлено через 10 минут

Цитата: Сообщение от Skuka.95 где ошибка ?

Наверное, в оффсетах...

[Skuka.95]

Цитата: Сообщение от VeTaL_UA Наверное, в оффсетах...

12 мобов... 13 значений(

Цитата: 4207283 1112729784 1118574889 1112724436 1083575903 1084489844 1103782769 1109104458 1096094617 1105473056 1115263819 1116495125 1118359585

так что оффсеты думаю верные)
p.s. незнаешь как в if...then...else
записать несколько условий ?) тобиш мне надо что бы
if mobR<R and mob>4207283 then...
но аnd не подходит... или я не правельно записал(

Добавлено через 15 минут
Решил проблему так

if MobR>4207283 then
if MobR<R  then
R:=mobR;
WID:=MobWid;

но если у кого то есть другие варианты выслушаю)

[VeTaL_UA]

if (mobR<R) and (mob>4207283) then

[Skuka.95]

Веталь можешь помочь найти ошибку в коде...

 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
R:=mobR;
WID:=MobWid;
    end;
     end;
  WID1:=IntToHex(WID,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;

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

[VeTaL_UA]

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

Оно берёт последнего, которого нашло... Ты проверку с записью в переменную в самом цикле сделал, а надо с записью в массив...