Ok same as before except this is the delphi code for it all, can be used at the same time as the hp dma,
all you need to do is Call the Function GetPlayerStamina Wich Returns The Player Stamina
Procedure Patchmem(WindowTitle:Pchar;Address:integer;NumberO fBytes:integer;PokeValue:Int64);
var
WindowName: Integer;
ProcessId: Integer;
ThreadId: Integer;
buf: PChar;
HandleWindow: Integer;
Write: Cardinal;
begin
WindowName := FindWindow(nil, WindowTitle);
ThreadId := GetWindowThreadProcessId(WindowName, @ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
GetMem(buf, NumberOfBytes);
buf^ := Chr(PokeValue);
WriteProcessMemory(HandleWindow, ptr(Address), buf, NumberOfBytes, Write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;
Function Readmem(Address:integer):int64;
const
HowMany = 2 ;
var
WindowName : integer;
ProcessId : integer;
buf : Int64;
HandleWindow : Integer;
Read : cardinal;
begin
Buf:=0;
WindowName := FindWindow(nil,'[Conquer]');
If WindowName <> 0 then
begin
GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
ReadProcessMemory(HandleWindow,ptr(Address),@buf,H owMany,Read);
closehandle(HandleWindow);
result := buf;
end;
end;
Procedure InjectDMA;
begin
patchmem('[Conquer]',$10B55,5,$A3620B0100);
patchmem('[Conquer]',$10B5A,6,$E8A1524A00E9);
patchmem('[Conquer]',$10B60,6,$A5484600);
patchmem('[Conquer]',$475404,5,$E94CB7B9FF);
end;
Function GetPlayerStamina:Integer;
begin
InjectDMA;
result := readmem($10B62);
end;
Enjoy
all you need to do is Call the Function GetPlayerStamina Wich Returns The Player Stamina
Procedure Patchmem(WindowTitle:Pchar;Address:integer;NumberO fBytes:integer;PokeValue:Int64);
var
WindowName: Integer;
ProcessId: Integer;
ThreadId: Integer;
buf: PChar;
HandleWindow: Integer;
Write: Cardinal;
begin
WindowName := FindWindow(nil, WindowTitle);
ThreadId := GetWindowThreadProcessId(WindowName, @ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
GetMem(buf, NumberOfBytes);
buf^ := Chr(PokeValue);
WriteProcessMemory(HandleWindow, ptr(Address), buf, NumberOfBytes, Write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;
Function Readmem(Address:integer):int64;
const
HowMany = 2 ;
var
WindowName : integer;
ProcessId : integer;
buf : Int64;
HandleWindow : Integer;
Read : cardinal;
begin
Buf:=0;
WindowName := FindWindow(nil,'[Conquer]');
If WindowName <> 0 then
begin
GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
ReadProcessMemory(HandleWindow,ptr(Address),@buf,H owMany,Read);
closehandle(HandleWindow);
result := buf;
end;
end;
Procedure InjectDMA;
begin
patchmem('[Conquer]',$10B55,5,$A3620B0100);
patchmem('[Conquer]',$10B5A,6,$E8A1524A00E9);
patchmem('[Conquer]',$10B60,6,$A5484600);
patchmem('[Conquer]',$475404,5,$E94CB7B9FF);
end;
Function GetPlayerStamina:Integer;
begin
InjectDMA;
result := readmem($10B62);
end;
Enjoy