; mouse targeting patch for MageSlayer v1.1
; use fasmg to assemble against mageslay.exe, sha256=1a970cd3d2d5065a93cdd1ee0b9fe370d0df107efbf3e4a2f1d4a9a47abfe8a7
format binary as 'exe'
include 'p6.inc'

calminstruction align? boundary,value:?
    compute boundary, (boundary-1)-((0 scaleof $)+boundary-1) mod boundary
    arrange value, =db boundary =dup value
    assemble value
end calminstruction

file 'mageslay.exe'

macro patch cmd
    match =at= vaddr= =to= paddr,cmd
            offs = paddr
        virtual at vaddr
end macro

macro end?.patch!
            load mover:$ - $$ from $$
            store mover:lengthof mover at :offs
        end virtual
    end match
end macro

use32
if $ <> 1121792
    err 'wrong mageslay.exe version, if 1.0, patch to 1.1 first!'
end if

new_ep_rva = new_ep - 0x400000
store dword new_ep_rva at :0xA8
store dword 0xD9800 at :0x180; more space for code in .text
store dword 0x01400 at :0x1F8; more space for data in .idata

patch at 0x428FF4 to 0x283F4
    jmp get_angle_of_object
end patch

patch at 0x42AC39 to 0x2A039
    jmp go_catch_the_flag
end patch

store byte 0xEB at :0x352F8; no-cd

;patch at 0x4375DB to 0x369DB; original printf is broken?..
;    patch05::
;    push 1.1
;end patch

store byte 4 at :0x3A7CE; remove exclusive mouse access

patch at 0x46CBBA to 0x6BFBA; make it always check for mouse input instead of only when moved, fixes spinning around
    jmp $+13
end patch

patch at 0x46CC2C to 0x6C02C
    jmp handle_mouse_input
end patch

store "Version: 1.1mf":14 at :0xE65A8

label ShowCursor dword at 0x5A45CC
label user32_dll dword at 0x4DCDB0
label LoadLibraryA dword at 0x5A4488
label GetProcAddress dword at 0x5A451C
label str_percent_d at 0x4E3A6F
label printf_to_console at 0x4132A0
label main_hwnd dword at 0x547F84
label GetClientRect dword at 0x5A4604

patch at 0x4DA6D8 to 0xD9AD8
disabled_ShowCursor:
    xor    eax,eax
    ret    4
    align 16, 0x90
new_ep:
    mov    eax,disabled_ShowCursor
    mov    [ShowCursor],eax
    push    GetCursorPos
    push    user32_dll
    call    [LoadLibraryA]
    push    eax
    call    [GetProcAddress]
    mov    [GetCursorPos],eax
    jmp    0x4A8060
;    align 16, 0x90
;debug_print_float32:
;    push    eax
;    fld    dword [esp]
;    push    10
;    fild    dword [esp]
;    fmulp    st(1),st(0)
;    fistp    dword [esp]
;    pop    eax
;    add    esp,4
;    align    16, 0x90
;debug_print_int32:
;    push    eax
;    push    str_percent_d
;    call    printf_to_console
;    add    esp,8
;    ret
    align 16, 0x90
go_catch_the_flag:
    xor    ecx,ecx
    inc    ecx
    mov    [catch_flag],ecx
    call    0x427300; original func
    jmp    0x42AC3E; original place
    align 16, 0x90
get_angle_of_object:
    mov    ecx,[catch_flag]
    test    ecx,ecx
    jz    no_catch
    mov    ecx,[edx+eax*4]
    mov    [current_angle],ecx
    xor    ecx,ecx
    mov    [catch_flag],ecx
  no_catch:
    jmp 0x42A0DC; original place
handle_mouse_input:
    call    0x416B20; original func
    xor    eax,eax
    mov    [esp+0x38],eax; zero out forward/backward speed
;    mov    [esp+0x34],eax; zero out turning speed
    push    CursorPos_point
    call    [GetCursorPos]
    mov    eax,[main_hwnd]
    push    GetClientRect_rect
    push    eax
    call    [GetClientRect]
    mov    eax,[CursorPos_point+4]
    mov    edx,[GetClientRect_rect+12]
    shr    edx,1
    sub    edx,eax
    push    edx
    fild    dword [esp]
    mov    eax,[CursorPos_point]
    mov    edx,[GetClientRect_rect+8]
    shr    edx,1
    sub    eax,edx
    push    eax
    fild    dword [esp]
    fpatan
    fld    [current_angle]
    fsubp    st(1),st(0)
    fldpi
    fadd    st(0),st(0)
    fxch    st(1)
    fprem1
    fstp    st(1)
    push    0x40000; turning speed multiplier
    fimul    dword [esp]
    add    esp, 12
    fistp    dword [esp+0x34]
    jmp    0x46CC31; original place
    if $ >= 0x4DA800
        err 'code too big, not enough space!'
    end if
end patch

patch at 0x5A5260 to 0xF3460
    catch_flag dd 0; set to 1 if current object is player
    current_angle dd 0
    label GetCursorPos dword
    db 'GetCursorPos',0
    align 4
CursorPos_point:
    dd 0,0
GetClientRect_rect:
    dd 0,0,0,0
    if $ >= 0x5A5400
        err 'data too big, not enough space!'
    end if
end patch

local prevpos = nil;

local function hexjump()
  local start = viewer.GetInfo(nil).FilePos;
  prevpos = start;
  -- Get first bytes of the hex view
  local str = ReadConsoleOutputCharacter(12, 1, 24);
  local strb = str:gsub("[^0-9A-F]", ""):sub(1, 8); -- 4 bytes
  local offset = 0;
  for i = #strb - 1, 1, -2 do
    offset = offset * 256 + tonumber(strb:sub(i, i+1), 16);
  end;
  viewer.Select(nil, offset, 4);
end;

local function prehexjump()
  far.Timer(0, function(self) self:Close(); hexjump() end);
end;

local function backjump()
  if prevpos ~= nil then
    viewer.Select(nil, prevpos, 4);
  end;
end;

MenuItem {
  menu = "Plugins";
  area = "Viewer";
  guid = "CFBC01BA-342A-409F-A2B7-DAF874A84680";
  text = "HexJump to 4-byte offset";
  action = function(target, item)
    local F = far.Flags;
    local mode = Viewer.State;
    local needsrefresh = false;
    if band(mode, 0x20) == 0 then
      viewer.SetMode(nil, {Type=F.VSMT_VIEWMODE, iParam=F.VMT_HEX});
      needsrefresh = true;
    end;
    if needsrefresh then
      mf.postmacro(prehexjump);
    else
      mf.postmacro(hexjump);
    end;
  end;
}

Macro {
  description="Go to previous position before HexJump";
  area="Viewer";
  key="BS";
  flags="";
  action = function()
    mf.postmacro(backjump);
  end;
}

0xFF + 14

0xFF + 14=269

    static function OnBeforeRequest(oSession: Session) {
...
        // MY ADDITIONS
        // ============
        oSession["x-OverrideCertCN"] = oSession["https-Client-SNIHostname"];

REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Perflib]
"Disable Performance Counters"=dword:00000001