[Скрипт] "Патчер памяти" или "Пишем флайхак" [Delphi]

[Dinmaite]

Очень просто - пиши в ячейки координат персонажа свои значения, но не слишком отдаленные от текущих (так в PWGtm, как сделано в ревоботе не знаю).

[Kvant_VS]

я бы даже не додумался делать так, думая, что это ничего не даст)

[war2lock]

Цитата: Сообщение от Dinmaite Очень просто - пиши в ячейки координат персонажа свои значения, но не слишком отдаленные от текущих (так в PWGtm, как сделано в ревоботе не знаю).

двигается только камера
смещения
$3С
$40
$44
, а как подвинуть персонажа?

[Kitsune]

war2lock, шевельнутся персонажем

С обычным ВХ всегда зажимали пробел/z или любое движение wasd

[Sanych89]

хм. загорелся идеей сделать что-нибудь волхакообразное, но как-то в стенку упёрся (в переносном смысле). относительно чего берутся смещения $3С, $40, $44?

[Kitsune]

Sanych89, BA + $1C + ($3С или $40 или $44)

[Sanych89]

всё равно какая-то беда.

ReadProcessMemory(hProcess, ptr(base_addr), @ipbuf, sizeof(ipbuf), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuf+$1C), @ipbuf, sizeof(ipbuf), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuf+x_offset), @x, sizeof(x), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuf+y_offset), @y, sizeof(y), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuf+z_offset), @z, sizeof(z), BytesCount);

в качестве констант
base_addr=$009C0E6C;
x_offset=$3c;
y_offset=$40;
z_offset=$44;

когда добавлял
ReadProcessMemory(hProcess, ptr(ipbuf+$20), @ipbuf, sizeof(ipbuf), BytesCount);
ReadProcessMemory(hProcess, ptr(ipbuf+hp_offset), @hp, sizeof(hp), BytesCount);
то hp успешно записывал. типы данных проверял byte, word, integer.
где я накосячил?)

[Dinmaite]

[ba]+$1C+$20+$3C
остальные аналогично.

[Sanych89]

с этого и начинал. не то оО

[Kitsune]

Sanych89, это то, просто вы пишете "гoвнокод", если не работает.

1. Читаем значение памяти по адресу BA в переменную N
2. Читаем значение памяти по адресу (N+$1С) и записываем в N (это GameRun)
3. Читаем значение памяти по адресу (N+$20) и записываем в N (это адрес началы структуры игрока в памяти)
4. Читаем значение памяти по адресу (N+$3C) и записываем в X (это наш X)
4. Читаем значение памяти по адресу (N+$40) и записываем в Y (это наш Y)
4. Читаем значение памяти по адресу (N+$44) и записываем в Z (это наш Z)

[Sanych89]

хм. *****кодом это я не называю. и искренне недоумеваю, почему не работает:

procedure koord;
const
  base_addr=$009C0E6C;
  hp_offset=1132;
  x_offset=$3C;
  y_offset=$40;
  z_offset=$44;

var
  WndHndl:THandle;
  hp:integer;
  ipbuf,PID,hProcess,BytesCount:dword;
  x,y,z : word;
begin
  WndHndl:=findwindow('ElementClient Window',nil);
  GetWindowThreadProcessId(WndHndl, @PID);
  hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);

  if hProcess <> 0 then // Проверяем получили ли мы идентификатор объекта
    try
      ReadProcessMemory(hProcess, ptr(base_addr), @ipbuf, sizeof(ipbuf), BytesCount);
      ReadProcessMemory(hProcess, ptr(ipbuf+$1C), @ipbuf, sizeof(ipbuf), BytesCount);
      ReadProcessMemory(hProcess, ptr(ipbuf+$20), @ipbuf, sizeof(ipbuf), BytesCount);
      ReadProcessMemory(hProcess, ptr(ipbuf+x_offset), @x, sizeof(x), BytesCount);
      ReadProcessMemory(hProcess, ptr(ipbuf+hp_offset), @hp, sizeof(hp), BytesCount);
      showmessage(inttostr(x));
      showmessage(inttostr(hp));
    finally
      closehandle(hProcess);
    end;
end;

hp показывает успешно, вместо координат - что-то не то. пробовал менять тип данных на integer, byte, shortint. да, я читал на предыдущей странице, что

Цитата: (X + 4000) / 10 = Игровой Х (Z + 5500) / 10 = Игровой Z (Y / 10) = Игровой Y

[Dinmaite]

А надо не только читать но и задумываться над тем что читаешь)

Это преобразование не верное.

Верно так

(X + 4000) / 10 = Игровой Х
(Y + 5500) / 10 = Игровой Y
(Z / 10) = Игровой Z

Мало того

const
base_addr=$009C0E6C;
hp_offset=1132;
x_offset=$3C;
z_offset=$40;
y_offset=$44;

[Sanych89]

хорошо, с y и z понял, но на них ещё не смотрел.
сейчас всё равно работаю только с x - и как-то не выходит.

[Dinmaite]

Переменные должны соответствовать читаемуму типу. Координаты - значение с плавающей запятой...

[Sanych89]

да, спасибо. с single заработало.
но теперь столкнулся с проблемой, с которой стокнулся Kvant_VS. попрыгать - не помогает. сдвигаться пытался даже на 0.01.
основная проблема вновь в днк?)