Advertisement
Guest User

Untitled

a guest
Dec 14th, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.66 KB | None | 0 0
  1. unit MuHelper.WalkProc;
  2.  
  3. interface
  4.  
  5. uses
  6.  Winapi.Windows;
  7.  
  8. const
  9.  MUHelperWalk_Offset: Dword = $0096767A;
  10.  
  11.  procedure MUHelper_init;
  12.  procedure MUHelper_DoWalk(x, Y: Byte); stdcall;
  13.  
  14. var
  15.  MUHelper_Ptr: function: Pointer;
  16.  
  17. implementation
  18.  
  19. uses
  20.  Errtel.Offsets;
  21.  
  22. procedure MUHelper_init;
  23. begin
  24.  if not (DWORD(@MUHelper_Ptr) = $004F3BBF) then
  25.   @MUHelper_Ptr := Ptr($004F3BBF);
  26. end;
  27.  
  28. function MUHelper_WalkProc(X, Y: Integer; This: Pointer): Byte;
  29. asm
  30.  push edx
  31.  push eax
  32.  mov ecx, this
  33.  call DWORD PTR SS:[MUHelperWalk_Offset]
  34. end;
  35.  
  36. procedure MUHelper_DoWalk(x, Y: Byte); stdcall;
  37. begin
  38.  MUHelper_WalkProc(X, Y, MUHelper_Ptr);
  39. end;
  40.  
  41.  
  42. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement