Rus. server

silkytail · 03/27/2009, 13:43

можно

hammerOk · 03/28/2009, 07:44

люди, получилось у кого-то

настроить чтоб работал?

silkytail · 03/30/2009, 20:42

это боян

embezz · 03/30/2009, 22:37

PW-RU

Nearby players list
Base($0095BAA4)+$08+$20+$18+i*$04+$04+
$7C - X pos
$84 - Y pos
$80 - Z pos
$450 - ID
$464 - HP
$494 - Max HP
$45C - Lvl
$468 - MP
$498 - Max MP
$5F8 - Type (0-Воин,1-Маг,3-Друид,4-Обор,6-Лук,7-Жрец)
$5F0 - PName (+ $0 - Name)
i from 0 to 768

Chat
Base($0095E264) - Messages count (199 max)
Base($0095E258)+(i*$C+$8)+$0 - Message
i from 0 to "Messages count"

hammerOk · 03/31/2009, 09:01

Quote:

Originally Posted by silkytail

это боян

как понять? уже было что-ли?

Quote:

Originally Posted by embezz

PW-RU

Nearby players list
Base($0095BAA4)+$08+$20+$18+i*$04+$04+
$7C - X pos
$84 - Y pos
$80 - Z pos
$450 - ID
$464 - HP
$494 - Max HP
$45C - Lvl
$468 - MP
$498 - Max MP
$5F8 - Type (0-Воин,1-Маг,3-Друид,4-Обор,6-Лук,7-Жрец)
$5F0 - PName (+ $0 - Name)
i from 0 to 768

Chat
Base($0095E264) - Messages count (199 max)
Base($0095E258)+(i*$C+$8)+$0 - Message
i from 0 to "Messages count"

а что-то полезное из этого можна сделать?

embezz · 03/31/2009, 10:05

Quote:

Originally Posted by hammerOk

как понять? уже было что-ли?

там был еще один пост, по причине боянистости удаленный

Quote:

Originally Posted by hammerOk

а что-то полезное из этого можна сделать?

полезность относительна, как и все остальное в этом мире...
из первого можно сделать например это

Хотя судя по всему это тоже боян и афтар пошел пить яд и убиваться об стену

obiov · 04/01/2009, 23:30

[QUOTE=embezz;2010959]PW-RU

Nearby players list
Base($0095BAA4)+$08+$20+$18+i*$04+$04+
$7C - X pos
$84 - Y pos
$80 - Z pos
$450 - ID
$464 - HP
$494 - Max HP
$45C - Lvl
$468 - MP
$498 - Max MP
$5F8 - Type (0-Воин,1-Маг,3-Друид,4-Обор,6-Лук,7-Жрец)
$5F0 - PName (+ $0 - Name)
i from 0 to 768

Народ, не вкралась ли здесь ошибка? Не могу выбрать, хоть тресни.
Судя по базовому адресу - это версия 1.4, с ней и работаю.
После (i*$04) читаю 0.

embezz · 04/02/2009, 09:03

Данные хранятся не упорядоченно, и если по адресу +i*$04 ноль, то грубо говоря данная ячейка пуста, т.е. i++ и повторяем
С последней версией руофа работает нормально
Возможно в виде кода будет понятнее =)

Code:

  Base = [COLOR="DarkOrange"]$95BAA4[/COLOR];
  ReadProcessMemory(Hdl,Pointer(Base), @BaseAdd, [COLOR="DarkOrange"]4[/COLOR] , BytesRead);
  ReadProcessMemory(Hdl,Pointer(BaseAdd+[COLOR="DarkOrange"]$08[/COLOR]), @BaseAdd, [COLOR="DarkOrange"]4[/COLOR] , BytesRead);
  ReadProcessMemory(Hdl,Pointer(BaseAdd+[COLOR="DarkOrange"]$20[/COLOR]), @BaseAdd, [COLOR="DarkOrange"]4[/COLOR] , BytesRead);
  ReadProcessMemory(Hdl,Pointer(BaseAdd+[COLOR="DarkOrange"]$18[/COLOR]), @BaseAdd, [COLOR="DarkOrange"]4[/COLOR] , BytesRead);
  [COLOR="Blue"][B]for[/B][/COLOR] i:= [COLOR="DarkOrange"]0[/COLOR] [COLOR="#0000ff"][B]to[/B][/COLOR] [COLOR="DarkOrange"]768[/COLOR] [COLOR="#0000ff"][B]do begin[/B][/COLOR]
    ReadProcessMemory(Hdl,Pointer(BaseAdd+i*[COLOR="DarkOrange"]4[/COLOR]), @PlBase, [COLOR="DarkOrange"]4[/COLOR] , BytesRead);
    [B][COLOR="#0000ff"]if[/COLOR][/B] PlBase>[COLOR="DarkOrange"]0[/COLOR] [B][COLOR="#0000ff"]then begin[/COLOR][/B]
      ReadProcessMemory(Hdl,Pointer(PlBase+[COLOR="DarkOrange"]$4[/COLOR]), @PlBase, [COLOR="DarkOrange"]4[/COLOR] , BytesRead);
      ...
      ReadProcessMemory(Hdl,Pointer(PlBase+[COLOR="DarkOrange"]$464[/COLOR]), @PlayerHP, [COLOR="DarkOrange"]4[/COLOR] , BytesRead);
      ...
    [COLOR="Blue"][B]end;
  end;[/B][/COLOR]

В качестве основы был взят код из соседней ветки

и исправлены смещения под PW-RU

silkytail · 04/02/2009, 10:25

ембаз а на сам радар взглянуть можно? А автоассист уже есть?

obiov · 04/02/2009, 12:40

[QUOTE=embezz;2018605]
Большое спасибо за оперативный ответ. Извини, хочу уточнить:
в строке "ReadProcessMemory(Hdl,Pointer(BaseAdd+i*4), @PlBase, 4 , BytesRead);" точнее так: "ReadProcessMemory(Hdl,Pointer(BaseAdd+(i*4)), @PlBase, 4 , BytesRead);"

Народ, расшифровка координат прежняя:
Xmap=400+x/10
Ymap=550+y/10
Zmap=z/10

Еще раз спасибо. Загнал в динамике в Listbox все встало на свои места. Я загонял в массивы и смотрел в стопе. Бывает что зацикливаешься.

И еще одна просьба, поподробней про работу с чатом, пожалуйста.
Chat
Base($0095E264) - Messages count (199 max)
Base($0095E258)+(i*$C+$8)+$0 - Message
i from 0 to "Messages count"

BuBucekTop · 04/02/2009, 13:47

embezz, всё здорово в твоём коде... но есть одна маааленькая проблемка :
в этом списке далеко не все игроки, которые вокруг тебя.
Проверить это очень легко :
1. зайти в ГД к западным воротам (где много котов)
2. нажать в игре "T", посчитать игроков. их будет, скажем - 232
3. запустить свой радар и удивиться тому. что нашёл он, скажем, только 180

и что с этим делать - хз. бьёмся уже не одну неделю.

та же проблема наблюдается и неписями, например в порту мечты в местах АоЕ кача

BuBucekTop · 04/02/2009, 13:48

в догонку - а не заняться ли нам, братцы, ковырянием пакетов ??

Antoha777 · 04/02/2009, 14:03

Да да да, так оно и есть. В ГД вместо положеных скажем порядка 321 видим только 268 где-то.

Заметил что врать начинает уже при количестве игроков вокруг примерно после 20. В 25 - уже стабильно не хватает одного, двух.

BuBucekTop · 04/02/2009, 14:14

+1. проверял на количестве 90+ (ТП в ГО). стабильно врёт где-то на 8-9...
дальше - больше

embezz · 04/02/2009, 16:34

Quote:

Originally Posted by silkytail

ембаз а на сам радар взглянуть можно? А автоассист уже есть?

нет пока ничего, неделю назад как узнал о существовании данного сайта, программ типа CE, Syser и т.п. да и Delphi пол года как не видел... просто 4 месяца играл, пока не надоело просто играть

вот код поделки изображенной выше, если это интересовало

Quote:

Originally Posted by obiov

И еще одна просьба, поподробней про работу с чатом, пожалуйста.

Чат

Здесь только весь чат без разделения по группам и прочего, т.е. то что откопалось по ходу дела, глубже не копал)

п.с. код кривой) сам знаю. пока всего лишь смотрю что есть и как это можно использовать