РУОФФ Адреса и оффсеты

[wbnz]

Цитата: Сообщение от sumikot ЗБТ БА случайно не 00A571E0 ?

Оно, оно)
GameRun 0xa57acc..

Цитата: Сообщение от sumikot Кто с акком, совпадает структура?

Похоже на то)
Всё так же интересуют

Цитата: Сообщение от wbnz офсеты для класса, id клана, списка игроков вокруг

[DHouse]

Цитата: Сообщение от BritishColonist ExtraEffectsPtr: +0 - Effect1Id (dword) // идентификатор первого свойства +C - Effect1Value (float/dword) // значение свойства (например, для +25% прочности здесь будет лежать дробное число 0.25, а для +7 интеллекта - просто 7, но уже целого типа) +1C - Effect2Id (dword) // те же данные второго свойства +28 - Effect2Value (float/dword) +38 - Effect3Id (dword) // ..и третьего +44 - Effect3Value (float/dword) Но свойств может быть больше трёх, надеюсь, не возникнет проблем с логикой подсчётов смещений для остальных свойств. Насчёт пения и скорости атаки - точных типов и идентификаторов не помню, кому надо - проверите сами. Да-да, это те самые смещения, что используются в автокрафтере пения, выложенном Домиником в разделе "боты/читы/скрипты". Я решил-таки поделиться ими с пабликом, только умоляю, не надо теперь плодить свои "оригинальные" программы по крафту.

Спасибо

Есть у кого список готовых соответствий EffectXId к названию свойства и типов данных EffectXValue для него?

[GenOstr]

кто подскажет как добраться к панельке клавиш F1-F9? нашол только смещения для тех панелек что скрываются. а как добратся к той, что постоянно на виду?

[dwa83]

Цитата: Сообщение от GenOstr а как добратся к той, что постоянно на виду?

Та что на виду является всегда дубликатом одной из скрываемых.

[GenOstr]

это я знаю. перефразирую вопрос- как определить, которая сейчас видима?

[nmartinez]

допустим, хочу посмотреть имя персонажа.
каким образом этом сделать?

var
  wid:integer;
  wwid: dword;
  NoB:dword;

begin
  try
    readprocessmemory(hprocess, pointer($B280C4),@wwid,sizeof(wwid),NoB);
    readprocessmemory(hprocess, pointer(wwid+$34),@wwid,sizeof(wwid),NoB);
    readprocessmemory(hprocess, pointer(wwid+$0638),@wwid,sizeof(wwid),NoB);

  except
  end;
end;

в итоге, как я понимаю, в переменной wwid у нас таки и имя.. как его в string перевести? поправьте косяк, если с типами изначально не так..

[Remii]

+060С ActivePetId /ID призванного ездового пета. =0 если не призван/ ?
работает

+ в копилку

BA +1C + $34 + $a2c /откат Руна переноса Id=14351/

я читаю имя так:

hProcess=OpenProcess(PROCESS_ALL_ACCESS, False, Pid) 
  ReadProcessMemory(hProcess,(#GA),@dat,SizeOf(Dat),rw)
  ReadProcessMemory(hProcess,(Dat+$34),@dat,SizeOf(Dat),rw)
  ReadProcessMemory(hProcess,(Dat+$638),@dat,SizeOf(Dat),rw)
  ReadProcessMemory(hProcess,(Dat+0),@name,32,rw)
  CloseHandle(hProcess)

язык бейсик
dat: dword
name: string(Юникод)

[pw.assistant]

то ли лыжи не едут, то ли...

Цитата: Сообщение от sumikot +0368 BuffsArray /Список баффов/ + [I*2] Buffs, dword

если верить СЕ, то значения там не dword, а word + там точно указываются бафы, но значения не совпадают с ID скилов, в связи с чем вопрос - как узнать что это за баф по его номеру?

[rufat2005]

а я параметры итемов в инвентаре получаю так) ну нуные)

var
  tHPInterval1,tHPInterval2,tHPInterval3,tHPInterval4,tHPInterval5,tHPInterval6,tHPInterval7,
  tMPInterval1,tMPInterval2,tMPInterval3,tMPInterval4,tMPInterval5,tMPInterval6,tMPInterval7: Cardinal;
  HP,HPMax,MP,MPMax,CHI,Level,TekOpit,Tekdux,Metkost,MinFizAttack,MaxFizAttack,
  MinMagAttack,MaxMagAttack,Uklonenie, WIDPersonaja, ClassPersonaja, GoldPersonaja:Integer;
  tIntervalVibrasivanieMusora: Cardinal;
  tOtkritiyaKorobok: Cardinal;
  tSkupkaSShopa: Cardinal;
  tTochit: Cardinal;
  ItemId:array [0..63] of Integer;
  ItemCount:array [0..63] of Integer;
  itemName:array[0..63] of String;
  itemType:array[0..63] of Integer;
  ItemTochka:array [0..63] of Integer;
  MaksKolYacheek: integer;
  SkillId:array [0..500] of Integer;
  SkillName:array [0..500] of String;
  ActiveSkillCnt, PassiveSkillCnt:Integer;
  CurrentVersion:String;

procedure ItemsIdAndItemsName;
var
    IdPredmeta, KolPredmeta,MaksYacheekInventar, TypePredmeta,ttochka,tGold:Integer;
    WGAME_ADD, PlayerStruct, Inventory, NoB, IdPredmetaI, nameI:DWord;
    i,j:Integer;
    itemNname:array[0..63] of widechar;
    itemmname: string;
begin
if hProcess <> 0 then
begin
        ReadProcessMemory (hProcess,  Pointer($B280C4), @WGAME_ADD, sizeof(WGAME_ADD), NoB);
        ReadProcessMemory (hProcess,  Pointer(WGAME_ADD+$34), @PlayerStruct, sizeof(PlayerStruct), NoB);
        ReadProcessMemory (hProcess,  Pointer(PlayerStruct+$CAC), @Inventory, sizeof(Inventory), NoB); //Читаем значение HP
        ReadProcessMemory (hProcess,  Pointer(Inventory+$10),@MaksYacheekInventar,sizeof(MaksYacheekInventar),NoB);
        ReadProcessMemory (hProcess,  Pointer(PlayerStruct+$1174), @tGold, sizeof(tGold), NoB); //Читаем значение HP

        GoldPersonaja:=tGold;
        MaksKolYacheek:= MaksYacheekInventar;
    for i:=0 to (MaksYacheekInventar-1) do
      begin
        IdPredmeta := 0;
        ReadProcessMemory (hProcess,  Pointer(Inventory+$C),@IdPredmetaI,sizeof(IdPredmetaI),NoB);
        ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$4*i),@IdPredmetaI,sizeof(IdPredmetaI),NoB);
        ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$8),@IdPredmeta,sizeof(IdPredmeta),NoB);
        ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$10),@KolPredmeta,sizeof(KolPredmeta),NoB);
        ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$4),@TypePredmeta,sizeof(TypePredmeta),NoB);
        if (TypePredmeta = 0) or (TypePredmeta = 3)  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$e0),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI+$C),@itemNname,64,NoB);
        end;
        if (TypePredmeta = 17) or (TypePredmeta = 11)  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$4C),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI+$8),@itemNname,64,NoB);
        end;
        if TypePredmeta = 2  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$CC),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$8),@itemNname,64,NoB);
        end;
        if (TypePredmeta = 8) or (TypePredmeta = 9) or (TypePredmeta = 22) or (TypePredmeta = 23)  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$54),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$C),@itemNname,64,NoB);
        end;
        if TypePredmeta = 15  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$E8),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$C),@itemNname,64,NoB);
        end;
        if (TypePredmeta = 5) or (TypePredmeta = 10) or (TypePredmeta = 13) or (TypePredmeta = 16) or (TypePredmeta = 19) or (TypePredmeta = 20) or (TypePredmeta = 27) or (TypePredmeta = 31) or (TypePredmeta = 32) or (TypePredmeta = 38) or (TypePredmeta = 40) or (TypePredmeta = 46)  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$4C),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$4),@itemNname,64,NoB);
        end;
        if TypePredmeta = 43  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$54),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$4),@itemNname,64,NoB);
        end;
        if (TypePredmeta = 36) or (TypePredmeta = 37)  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$B8),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$4),@itemNname,64,NoB);
        end;
        if TypePredmeta = 41  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$10C),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$4),@itemNname,64,NoB);
        end;
        if TypePredmeta = 26  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$A0),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$4),@itemNname,64,NoB);
        end;
        if TypePredmeta = 4 then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$B4),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$8 +$8),@itemNname,64,NoB);
        end;
        if TypePredmeta = 34 then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$B4),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$4),@itemNname,64,NoB);
        end;
        if TypePredmeta = 6 then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$D0),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$C),@itemNname,64,NoB);
        end;
        if TypePredmeta = 7 then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$D0),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$4),@itemNname,64,NoB);
        end;
        if TypePredmeta = 18 then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$C4),@nameI,sizeof(nameI),NoB);
          ReadProcessMemory (hProcess,  Pointer(nameI +$4),@itemNname,64,NoB);
        end;
        if (TypePredmeta = 15) or (TypePredmeta = 0) or (TypePredmeta = 3)  then
          begin
          ReadProcessMemory (hProcess,  Pointer(IdPredmetaI+$84),@ttochka,sizeof(ttochka),NoB);
          ItemTochka[i]:=  ttochka;
          end
          else
          begin
          ItemTochka[i]:= -1;
        end;

        ItemId[i]:=IdPredmeta;
        ItemCount[i] := KolPredmeta;
        ItemType[i] := TypePredmeta;
        itemmname:= '';
        for j:=0 to 63 do
        begin
           itemmname:=itemmname + itemNname[j];
        end;
        ItemName[i] := itemmname;
        if ItemId[i]>0 then
        begin
          ItemName[i] := itemmname;
        end
        else
          ItemName[i] := 'Пустая ячейка'
        end;
end;
end;

Добавлено через 6 минут
Кстать кто нибудь знает оффсеты названиям предмета у которых тип предмета не 0,2,3,4,5,6,7,,8,9,10,11,13,15,16,17,18,19,20,22,2 3,26,27,31,32,34,36,37,38,40,41,43,46,

прост кода оффсеты не правильные бот показывает названия предыдущего итема

[whoami]

Цитата: Сообщение от pw.assistant если верить СЕ, то значения там не dword, а word + там точно указываются бафы, но значения не совпадают с ID скилов, в связи с чем вопрос - как узнать что это за баф по его номеру?

Там не id скиллов, а id аффектов. Список значений есть внутри какого-то из .pck в текстовике. Сами скиллы никак не узнаешь (хотя бы потому, что у разных скиллов может быть одинаковое действие, и наоборот, один скилл может вешать сразу кучу бафов и/или дебафов).

[pw.assistant]

Цитата: Сообщение от whoami Там не id скиллов, а id аффектов

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

[whoami]

Вообще-то в структуре игрока есть указатель на массив сопартийцев.

[nmartinez]

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

Добавлено через 2 минуты
нашел спасибку, оказывается надо было 10 сообщений (*флуд*)

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

//nname : string - глобально объявлена
//name : TLabel - ну понятно чо, куда выводится на форме
var
  NoB:dword;
  dat:dword;

begin
  ClientWindow:=FindWindow(nil, PChar('Perfect World'));
  GetWindowThreadProcessId(ClientWindow,@ProcessId);
  hProcess:=OpenProcess(PROCESS_ALL_ACCESS,false,processid);
  try
    ReadProcessMemory(hProcess,pointer($B27A04),@dat,SizeOf(dat),NoB);
    ReadProcessMemory(hProcess,pointer(dat+$34),@dat,SizeOf(dat),NoB);
    ReadProcessMemory(hProcess,pointer(dat+$638),@dat,SizeOf(dat),NoB);
    ReadProcessMemory(hProcess,pointer(dat+$0),@nname,32,NoB);
    name.Caption:=nname;
  except
  end;
end;

или лыжи не едут, или я с ума сошла..
nname - inaccesible value. что не так?

Добавлено через 1 час 24 минуты
мутотень в типах была.. разобрался.

  nname: array[1..32]of wchar;
  name.caption:=string(nname);

и все ок

[pw.assistant]

Цитата: Сообщение от whoami Вообще-то в структуре игрока есть указатель на массив сопартийцев.

Указатель на массив сопартийцев есть, а вот на массив бафов этих сопартийцев - нет.

[krukovis]

Цитата: Сообщение от pw.assistant Указатель на массив сопартийцев есть, а вот на массив бафов этих сопартийцев - нет.

А у каждого сопартийца посмотреть по смещению как у своего, нЭ?