Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit MuHelper.WalkProc;
- interface
- uses
- Winapi.Windows;
- const
- MUHelperWalk_Offset: Dword = $0096767A;
- procedure MUHelper_init;
- procedure MUHelper_DoWalk(x, Y: Byte); stdcall;
- var
- MUHelper_Ptr: function: Pointer;
- implementation
- uses
- Errtel.Offsets;
- procedure MUHelper_init;
- begin
- if not (DWORD(@MUHelper_Ptr) = $004F3BBF) then
- @MUHelper_Ptr := Ptr($004F3BBF);
- end;
- function MUHelper_WalkProc(X, Y: Integer; This: Pointer): Byte;
- asm
- push edx
- push eax
- mov ecx, this
- call DWORD PTR SS:[MUHelperWalk_Offset]
- end;
- procedure MUHelper_DoWalk(x, Y: Byte); stdcall;
- begin
- MUHelper_WalkProc(X, Y, MUHelper_Ptr);
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement