Чит на делфи

HPAlert_AoB = '83 78 ?? 00 56 8B F1';

HPMPBase_AoB = '8B 0D ?? ?? ?? ?? 52 6A ?? 56 E8 ?? ?? ?? ?? 8B BF';

HPOffset_AoB = '89 8E ?? ?? 00 00 80 BE ?? ?? 00 00 00 75 52 8B';

for x := 0 to SizeOf(AoB)-1 do

for x := 0 to SizeOf(AoB)-1 do

TempString := TempString + inttohex(AoB[x], 2);

AoB1, AoB2:array of byte;

function Read_Bytes (Addy, Size:integer; out Bytes:array of byte):bool;

CopyMemory(@Bytes, pointer(Addy), Size);

if length(TempByte) > 0 then begin // check if any bytes to add

if (TempByte <> '?') and (TempByte <> '??') then begin

AoB[y] := strtoint('$' + TempByte);

// if not last run

if StringAoB[x] = ' ' then begin

if (TempByte = '?') or (TempByte = '??') then begin // if ignore

end else begin // if Check

AoB[y] := strtoint('$' + TempByte);

TempByte := TempByte + StringAoB[x];

if ToCheck[x] = $01 then // if do not Check

AoB_Pos_To_Check:array of byte;

result := $00000000; // Result := $00000000 if nothing found

Read_Bytes(x, Number_Of_Bytes, AoB2); //Get Current Addy

function ReadPointer(Addy, offset:integer):integer;

CopyMemory(@result, pointer(Addy), 4);

CopyMemory(@result, pointer(result+offset), 4);

CopyMemory(@result, pointer(Addy+offset), 4);

CopyMemory(@x, pointer(Addy), 4);

CopyMemory(pointer(x+offset), @value, 4);

HPMPAlert := AoB_Scanner_Stack(StartScan, EndScan, HPMPAlert_AoB);

HPMPAlert := GetPointer_Offset(HPMPAlert+1, 4);

HPAlertOffset := AoB_Scanner_Stack(StartScan, EndScan, HPAlert_AoB);

HPAlertOffset := GetPointer_Offset(HPAlertOffset+2, 1);

HPMPBase := AoB_Scanner_Stack(StartScan, EndScan, HPMPBase_AoB);

HPMPBase := GetPointer_Offset(HPMPBase+2, 4);

HPOffset := AoB_Scanner_Stack(StartScan, EndScan, HPOffset_AoB);

HPOffset := GetPointer_Offset(HPOffset+2, 4);

window := FindWindowA('MapleStoryClass', nil);

PostMessage(window, WM_KEYDOWN, 0, A);

MapleHandle := FindWindowA('MapleStoryClass', nil);

PostMessage(MapleHandle, WM_KEYDOWN, Key, A);

PostMessage(MapleHandle, WM_KEYUP, Key, A);

if ReadPointer(HPMPBase, HPOffset) < 1 then // if 0 Hp dont spam.

if ReadPointer(HPMPBase, MPOffset) = -1 then // if nil dont spam

i: DWORD; j: byte; p: array[0..5] of byte; find: boolean;

for i:= startAddy to $FFFFFFFF do

CopyMemory(@p, Pointer(i), sizeof(p));

for j := 0 to 5 do

if StrToHex(copy(Bytes, j*2+1, 2))=p[j] then