hud_transp_r3.pas

unit hud_transp_r3;
{$IFDEF FPC}{$MODE DELPHI}{$ENDIF}

interface
function Init():boolean; stdcall;


implementation
uses BaseGameData, Misc;

type FixedMapR3 = packed record
  nodes:pointer;
  pool:cardinal;
  limit:cardinal;
end;

var
  g_map_hud_sorted_r3:FixedMapR3;
  g_map_hud_distort_r3:FixedMapR3;
  hud_render_phase:cardinal;

procedure hud_shader_fix_Patch_sorted(); stdcall;
asm
  lea eax, g_map_hud_sorted_r3 //è âñ¸ ;) Emissive ðàáîòàþò è â îðèãèíàëå
  ret
end;

procedure hud_shader_fix_Patch_distort(); stdcall;
asm
  //ñíà÷àëà ïîñìîòðèì, â êàêîé áóôåð çàïèõèâàòü: â îðèãèíàëüíûé èëè â õóäîâûé.

  mov eax, xrRender_R3_addr
  add eax, $EB110 //ôëàã òîãî, ÷òî èäåò ðåíäåð õóäà
  cmp [eax], 00
  je @not_hud

  lea eax, g_map_hud_distort_r3
  ret

  @not_hud:
  lea eax,[ebp+$1B8]
  ret
end;

procedure r_dsgraph_render_hud_Patch_select_pool(); stdcall;
asm
  //åñëè ñåé÷àñ ðåíäåðèì sorted èëè distort - òî âûáèðàåì íàøó ñòðóêòóðêó âûøå
  //Èíà÷å - èñïîëüçóåì îðèãèíàëüíûé êîä.
  cmp hud_render_phase, 0
  je @original_nosorted
  cmp hud_render_phase, 2
  je @distorted

  cmp g_map_hud_sorted_r3.pool, 0
  lea ecx, g_map_hud_sorted_r3.nodes
  ret

  @distorted:
  cmp g_map_hud_distort_r3.pool, 0
  lea ecx, g_map_hud_distort_r3.nodes
  ret

  @original_nosorted:
  cmp [ebp+$1a4], 0
  lea ecx, [ebp+$1a0]
  ret
end;

procedure r_dsgraph_render_hud_Patch_cleanup(); stdcall;
asm
  cmp hud_render_phase, 0
  je @original_nosorted
  cmp hud_render_phase, 2
  je @distorted

  mov g_map_hud_sorted_r3.pool, 0
  ret

  @distorted:
  mov g_map_hud_distort_r3.pool, 0
  ret

  @original_nosorted:
  mov [ebp+$1a4], 0
  ret
end;

procedure render_distort_fix_Patch(); stdcall;
asm
  pushad
    mov hud_render_phase, 2
    mov ebx, xrRender_R3_addr
    lea eax, [ebx+$EB000]
    push eax
    add ebx, $24280
    call ebx
    mov hud_render_phase, 0
  popad

  mov edx, xrRender_R3_addr
  mov edx, [edx+$D05F0]
  ret
end;


procedure render_forward_fix_Patch(); stdcall;
asm
  pushad
    mov hud_render_phase, 1
    mov ebx, xrRender_R3_addr
    lea eax, [ebx+$EB000]
    push eax
    add ebx, $24280
    call ebx //void r_dsgraph_structure::r_dsgraph_render_hud(), â íåé âûñòàâëåííûé âûøå ôëàã çàñòàâèò ðåíäåðèòü sorted
    mov hud_render_phase, 0
  popad

  mov ecx, xrRender_R3_addr
  mov ecx, [ecx+$D05F0]
  ret
end;

function Init():boolean; stdcall;
var
  jmp_addr:cardinal;
  ptr:pointer;
begin

  result:=false;
  if xrRender_R3_addr=0 then exit;

  g_map_hud_sorted_r3.nodes:=nil;
  g_map_hud_sorted_r3.pool:=0;
  g_map_hud_sorted_r3.limit:=0;

  g_map_hud_distort_r3.nodes:=nil;
  g_map_hud_distort_r3.pool:=0;
  g_map_hud_distort_r3.limit:=0;
  hud_render_phase:=0;

  jmp_addr:=xrRender_R3_addr+$20f57;
  if not WriteJump(jmp_addr, cardinal(@hud_shader_fix_Patch_sorted), 6, true) then exit;

  jmp_addr:=xrRender_R3_addr+$20e9c;
  if not WriteJump(jmp_addr, cardinal(@hud_shader_fix_Patch_distort), 6, true) then exit;

  jmp_addr:=xrRender_R3_addr+$1FF22;
  if not WriteJump(jmp_addr, cardinal(@render_forward_fix_Patch), 6, true) then exit;

  jmp_addr:=xrRender_R3_addr+$783CA;
  if not WriteJump(jmp_addr, cardinal(@render_distort_fix_Patch), 6, true) then exit;

  jmp_addr:=xrRender_R3_addr+$24756;
  if not WriteJump(jmp_addr, cardinal(@r_dsgraph_render_hud_Patch_select_pool), 13, true) then exit;

  jmp_addr:=xrRender_R3_addr+$2477D;
  if not WriteJump(jmp_addr, cardinal(@r_dsgraph_render_hud_Patch_cleanup), 10, true) then exit;

  // Ôèêñ "îáðåçàíèÿ" áëèçêî ðàñïîëîæåííîãî ê ýêðàíó õóäà
  // https://github.com/OGSR/OGSR-Engine/commit/3b4f01f6486446ed920116ca739b1984b8e576d4

  // Â CParticleEffect::Render ìåíÿåì VIEWPORT_NEAR
  ptr:=GetHudNearClipPtr();
  if not WriteBufAtAdr(xrRender_R3_addr+$50d4e, @ptr, sizeof(single)) then exit;

  // R_dsgraph_structure::r_dsgraph_render_hud (VIEWPORT_NEAR)
  ptr:=GetNegHudNearClipPtr();
  if not WriteBufAtAdr(xrRender_R3_addr+$2437c, @ptr, sizeof(single)) then exit;
  ptr:=GetHudNearClipPtr();
  if not WriteBufAtAdr(xrRender_R3_addr+$24321, @ptr, sizeof(single)) then exit;

  // R_dsgraph_structure::r_dsgraph_render_hud_ui
  ptr:=GetNegHudNearClipPtr();
  if not WriteBufAtAdr(xrRender_R3_addr+$248d0, @ptr, sizeof(single)) then exit;
  ptr:=GetHudNearClipPtr();
  if not WriteBufAtAdr(xrRender_R3_addr+$24875, @ptr, sizeof(single)) then exit;

  // R_dsgraph_structure::r_dsgraph_render_emissive (?)
  ptr:=GetNegHudNearClipPtr();
  if not WriteBufAtAdr(xrRender_R3_addr+$24f02, @ptr, sizeof(single)) then exit;
  ptr:=GetHudNearClipPtr();
  if not WriteBufAtAdr(xrRender_R3_addr+$24ea7, @ptr, sizeof(single)) then exit;

  result:=true;
end;

end.