[Помогите!] правильное у меня смещение или нет Delphi

[fer@bk.ru]

подскажите пожалуйста как узнать лвл персонажа

ReadProcessMemory (hProcess, Pointer($00D6F84C), @Lvel, sizeof(Lvel), NoB);
ReadProcessMemory (hProcess, Pointer(Nikname+$1C), @Lvel, sizeof(Lvel), NoB);
ReadProcessMemory (hProcess, Pointer(Nikname+$4C4), @Lvel, sizeof(Lvel), NoB);
LvL:= Integer(Lvel);
sLabel10.caption:= IntToStr(LvL);

правильное у меня смещение или нет

хочу узнать LvL персонажа

[diagnost]

1C на 28 поменяй

[fds255]

и Nikname вместо Lvel в первой и второй строке поставь

[fer@bk.ru]

Кто знает рабочий офсет на :
MaxHP =
MaxMP =

[diagnost]

Цитата: Сообщение от [Ссылки могут видеть только зарегистрированные пользователи. ] Кто знает рабочий офсет на : MaxHP = MaxMP =

Смотри тут

[fer@bk.ru]

ещё один вопрос

читаю из памяти координаты
//---x---------------------------------------------
ReadProcessMemory (hProcess, Pointer($00D6F84C), @WLocX, sizeof(WLocX), NoB);
ReadProcessMemory (hProcess, Pointer(WLocX+$28), @WLocX, sizeof(WLocX), NoB);
ReadProcessMemory (hProcess, Pointer(WLocX+$03C), @WLocX, sizeof(WLocX), NoB);
LocX:= Integer(WLocX);
//=end-------------------------------------------

//---y---------------------------------------------
ReadProcessMemory (hProcess, Pointer($00D6F84C), @WLocY, sizeof(WLocY), NoB);
ReadProcessMemory (hProcess, Pointer(WLocY+$28), @WLocY, sizeof(WLocY), NoB);
ReadProcessMemory (hProcess, Pointer(WLocY+$044), @WLocY, sizeof(WLocY), NoB);
LocY:= Integer(WLocY);

//=end-------------------------------------------

//---z---------------------------------------------
ReadProcessMemory (hProcess, Pointer($D6F0AC), @WLocZ, sizeof(WLocZ), NoB);
ReadProcessMemory (hProcess, Pointer(WLocZ+$28), @WLocZ, sizeof(WLocZ), NoB);
ReadProcessMemory (hProcess, Pointer(WLocZ+$040), @WLocZ, sizeof(WLocZ), NoB);
LocZ:= Integer(WLocZ);

хочу вывести их в привычный вид как в клиенте около карты

пытаюсь через вот это формулу
type point=record
x,y,zouble;
end;
function ProcToGame(point)oint;
begin
ProcToGame.X:=(p.X+4000)/10;
ProcToGame.Y:=(p.Y+5500)/10;
ProcToGame.Z:=p.Z/10;
end;
function GameToProc(goint)oint;
begin
GameToProc.X:=g.X*10-4400;
GameToProc.Y:=g.Y*10-5500;
GameToProc.Z:=g.Z*10;
end;

но не понимаю как мне перевести полученное значение допустим
LocY:= Integer(WLocY); перевести в привычный вид значение оси Y

может кто подскажет как через неё переводить значение

[pw.assistant]

TLocCoord = record
x: single;
y: single;
z: single;
walkmode: byte;
end;

// преобразование из вычисляемых координат в отображаемые в игре
function CoordX(XPos: Single): Single;
begin
Result := (4000 + XPos) / 10;
end;

function CoordY(YPos: Single): Single;
begin
Result := (5500 + YPos) / 10;
end;

function CoordZ(ZPos: Single): Single;
begin
Result := ZPos / 10;
end;

// преобразование из отображаемых в игре в вычисляемые координаты
function XCoord(XPos: Single): Single;
begin
Result := XPos * 10 - 4000;
end;

function YCoord(YPos: Single): Single;
begin
Result := YPos * 10 - 5500;
end;

function ZCoord(ZPos: Single): Single;
begin
Result := ZPos * 10;
end;

// получить строку с координатами как в игре
function LocCoordToStr(C: TLocCoord; Digits: Integer): String;
begin
Result := FloatToStrF(CoordX(C.X), ffFixed, 7, Digits) + ' ' + FloatToStrF(CoordY(C.Y), ffFixed, 7, Digits) + ' ' + FloatToStrF(CoordZ(C.Z), ffFixed, 7, Digits) + ' ' +
IfThen(C.WalkMode = 2, 'Air', IfThen(C.WalkMode = 1, 'Water', IfThen(C.WalkMode = 0, 'Ground', '')));
end;

[fer@bk.ru]

Цитата: Сообщение от pw.assistant TLocCoord = record x: single; y: single; z: single; walkmode: byte; end; // преобразование из вычисляемых координат в отображаемые в игре function CoordX(XPos: Single): Single; begin Result := (4000 + XPos) / 10; end; function CoordY(YPos: Single): Single; begin Result := (5500 + YPos) / 10; end; function CoordZ(ZPos: Single): Single; begin Result := ZPos / 10; end; // преобразование из отображаемых в игре в вычисляемые координаты function XCoord(XPos: Single): Single; begin Result := XPos * 10 - 4000; end; function YCoord(YPos: Single): Single; begin Result := YPos * 10 - 5500; end; function ZCoord(ZPos: Single): Single; begin Result := ZPos * 10; end; // получить строку с координатами как в игре function LocCoordToStr(C: TLocCoord; Digits: Integer): String; begin Result := FloatToStrF(CoordX(C.X), ffFixed, 7, Digits) + ' ' + FloatToStrF(CoordY(C.Y), ffFixed, 7, Digits) + ' ' + FloatToStrF(CoordZ(C.Z), ffFixed, 7, Digits) + ' ' + IfThen(C.WalkMode = 2, 'Air', IfThen(C.WalkMode = 1, 'Water', IfThen(C.WalkMode = 0, 'Ground', ''))); end;

не как не получается вывести значение в listbox как в игре постоянно э
отличаются
пытаюсь так вывести хоть в label

ReadProcessMemory (hProcess, Pointer($00D6F0AC), @z0, 4, NoB);
ReadProcessMemory (hProcess, Pointer(z0+$1C), @z1, 4, NoB);
ReadProcessMemory (hProcess, Pointer(z1+$28), @z2, 4, NoB);
ReadProcessMemory (hProcess, Pointer(z2+$40), @z, 4, NoB);
wz:=Integer(z);
slabel9.caption:= FloatToStr(CoordZ(Z));

где я допустил ошибку

[diagnost]

Цитата: Сообщение от [Ссылки могут видеть только зарегистрированные пользователи. ] wz:=Integer(z); где я допустил ошибку

Почему integer?
Z: single?
ReadProcessMemory (hProcess, Pointer(z2+$40), @z, 4, NoB); здесь почему 4?
Надо читать все что есть, а не 4.
вот рабочий код, только что проверил

 

var 
    WHP, NoB:NativeUint;(у меня ХЕ 10, если делфи 7 то dword)
    z: Single;

  ReadProcessMemory(hProcess, pointer($D6F0AC), @WHP, SizeOf(WHP), NoB);
  ReadProcessMemory(hProcess, pointer(WHP+$1C), @WHP, SizeOf(WHP), NoB);
  ReadProcessMemory(hProcess, pointer(WHP+$28), @WHP, SizeOf(WHP), NoB);
  ReadProcessMemory(hProcess, pointer(WHP+$40), @Z, SizeOf(Z), NoB);
  label4.Caption := FloatToStr(Z/10);