Misc.pas

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

interface
uses MatVectors, windows, xr_strings, BaseGameData, vector;
//âñÿ÷èíà, êîòîðóþ íå îñîáî ïîíÿòíî, â êàêèå ìîäóëè ñïèõíóòü

type
GameTypeChooser = packed record
  m_GameType:word;
end;

CSE_Abstract = packed record
  vftable:pointer;
  _flags_ISE:cardinal;

  vec_memend:pointer;
  vec_end:pointer;
  vec_start:pointer;

  unk1:cardinal;
  unk2:cardinal;
  unk3:cardinal;
  s_name_replace:PChar;
  net_Ready:integer;
  net_Processed:integer;
  m_wVersion:word;
  m_script_version:word;
  RespawnTime:word;

  //offset: 0x32
  ID:word;
  ID_Parent:word;
  ID_Phantom:word;
  owner:pointer; {xrClientData*}
  
  //offset: 0x3c
  s_name:shared_str;

  //offset: 0x40
  m_gameType:GameTypeChooser;
  //offset: 0x42
  s_RP:byte;
  //offset: 0x43
  s_flags:word;

  _unused1:byte;
  _unused2:word;

  children:xr_vector;

  //offset: 0x54
  o_Position:FVector3;
  //offset: 0x60
  o_Angle:FVector3;

  _unused3:cardinal;
  m_tClassID:int64;
  m_script_clsid:cardinal;

  //offset: 0x7c
  m_ini_string:shared_str;
  m_ini_file:pointer; {CIniFile*}

  //offset: 0x84
  m_bALifeControl:byte;
  _unused4:byte;

  //offset: 0x86
  m_tSpawnID:word;
  m_spawn_flags:cardinal;
  client_data:xr_vector;
end;

type pCSE_Abstract = ^CSE_Abstract;


type CSE_ALifeInventoryItem = packed record
  vftable:pointer;
  m_fCondition:single;
  //offset: 0x8
  m_fMass:single;
  m_dwCost:cardinal;
  m_iHealthValue:integer;
  m_iFoodValue:integer;
  m_fDeteriorationValue:single;
  m_self:pointer {CSE_ALifeObject};
  m_last_update_time:cardinal;
  //offset: 0x24
  m_upgrades:xr_vector; {shared_str}

  //to be continued...  
end;

type pCSE_ALifeInventoryItem = ^CSE_ALifeInventoryItem;

type xr_list_entry_base = packed record
  _Next:pointer; //really xr_list_entry_base or child
  _Prev:pointer; //really xr_list_entry_base or child
  //Next should be item of template type T. Use derived records for it emulation.
end;

NET_Buffer = packed record
  data: array[0..16383] of Byte;
  count:cardinal;
end;
pNET_Buffer=^NET_Buffer;

NET_Packet = packed record
  inistream:pointer;         //0x0
  B:NET_Buffer;              //0x4
  r_pos:cardinal;            //0x4008
  timeReceive:cardinal;      //0x400C
  w_allow:boolean;           //0x4010
  _unused1:byte;
  _unused2:word;    
end;
pNET_Packet = ^NET_Packet;

pxr_list_entry_base = ^xr_list_entry_base;

DLL_Pure = packed record
  vtable:pointer;
  _unknown1:cardinal;
  CLS_ID:int64;
end;

pureFrame = packed record
  vtable:pointer;
end;

type CIniFile = packed record
  vtbl:pointer;
  m_flags:byte;
  m_file_path:string_path;

  //offset: 0x210
  DATA:xr_vector;
end;
pCIniFile = ^CIniFile; 

const
  M_EVENT:word = 8;
  GE_HIT:word = 5;
  GEG_PLAYER_ITEM2RUCK:word = 40;

function Init():boolean;stdcall;
function dxGeomUserData__get_ph_ref_object(dxGeomUserData:pointer):pointer;
function PHRetrieveGeomUserData(dxGeom:pointer):pointer; stdcall;
function game_object_GetScriptGameObject(obj:pointer):pointer;stdcall;
function get_server_object_by_id(id:cardinal):pointer;stdcall;
function alife():pointer;stdcall;
function alife_create(section:PChar; pos:pointer; lvid:cardinal; gvid:cardinal):pCSE_Abstract;stdcall;
function alife_release(srv_obj:pointer):boolean;stdcall;
function xrMemory__allocate(count:cardinal):pointer;stdcall;
function xrMemory__release(addr:pointer):pointer;stdcall;

function CALifeSimulator__spawn_item2(section:PChar; position:pFVector3; level_vertex_id:cardinal; game_vertex_id:cardinal; id_parent:cardinal):{CSE_Abstract*}pointer; stdcall;
function GetMaterialIdx(name:PChar):word; stdcall;
function GetDevicedwFrame():cardinal; stdcall;
procedure DecDevicedwFrame(); stdcall;
function GetDeviceView():pFMatrix4x4; stdcall;
function GetDeviceProjection():pFMatrix4x4; stdcall;
function GetDeviceFullTransform():pFMatrix4x4; stdcall;
function GetDeviceTimeDelta():single; stdcall;
function GetDeviceWidth():cardinal; stdcall;
function GetDeviceHeight():cardinal; stdcall;

procedure DrawSphere(parent: pFMatrix4x4; center:pFVector3; radius:single; clr_s:cardinal; clr_w:cardinal; bSolid:boolean; bWire:boolean); stdcall;

function IsMainMenuActive():boolean; stdcall;

procedure ClearNetPacket(packet:pNET_Packet); stdcall;
procedure WriteToPacket(packet:pNET_Packet; data:pointer; bytes_count:cardinal); stdcall;
procedure SendNetPacket(packet:pNET_Packet); stdcall;

procedure ReadFromReader(r:pIReader; buf:pointer; bytes_count:cardinal); stdcall;
function ReaderLength(r:pIReader):cardinal; stdcall;
function ReaderElapsed(r:pIReader):cardinal; stdcall;
procedure IWriter__w_u32(this:pointer; value:cardinal); stdcall;
procedure IWriter__w_stringZ(this:pointer; value:PAnsiChar); stdcall;

function CastHudItemToCObject(wpn:pointer):pointer; stdcall;
function GetCObjectID(CObject:pointer):word; stdcall;
function GetCObjectXForm(CObject:pointer):pFMatrix4x4; stdcall;
function GetCObjectVisual(CObject:pointer):pointer; stdcall;
function GetCObjectSection(CObject:pointer):pshared_str; stdcall;
function GetCObjectUpdateFrame(CObject:pointer):cardinal; stdcall;
procedure CObject__processing_activate(o:pointer); stdcall;
procedure CObject__processing_deactivate(o:pointer); stdcall;

function get_time_hours():cardinal; stdcall;
function get_time_minutes():cardinal; stdcall;
function get_split_time(years:pcardinal; months:pcardinal; days:pcardinal; hours:pcardinal; minutes:pcardinal; seconds:pcardinal; milliseconds:pcardinal):boolean; stdcall;

function GetAngleByLegs(x,y:single):single;

function IsInputExclusive:boolean; stdcall;

procedure set_name_replace(swpn:pointer; name:PChar); stdcall;

function is_object_has_health(obj:pointer):boolean;
function is_visible_by_thermovisor(cobject:pointer):boolean; stdcall;

procedure ResetElectronicsProblems(); stdcall;
procedure ResetElectronicsProblems_Full(); stdcall;
function ElectronicsProblemsDec():boolean; stdcall;
function ElectronicsProblemsInc():boolean; stdcall;
function TargetElectronicsProblemsCnt():single; stdcall;
function CurrentElectronicsProblemsCnt():single; stdcall;
function PreviousElectronicsProblemsCnt():single; stdcall;
function ElectronicsProblemsImmediateApply():boolean; stdcall;
procedure UpdateElectronicsProblemsCnt(dt:cardinal); stdcall;

function IsElectronicsProblemsDecreasing():boolean; stdcall;

function IsObjectSeePoint(CObject:pointer; point:FVector3; unconditional_vision_dist:single; object_y_correction_value:single; can_backsee:boolean):boolean; stdcall;
procedure DropItemAndTeleport(CObject:pointer; pos:pFVector3); stdcall;

function IsHardUpdates():boolean; stdcall;

function GetHudNearClipPtr():psingle; stdcall;
function GetNegHudNearClipPtr():psingle; stdcall;
procedure get_bone_position(obj:pointer; bone_name:pAnsiChar; res:pFVector3); stdcall;

type MouseCoord = TPoint;
function GetSysMousePoint():MouseCoord;
procedure SetSysMousePoint(c:MouseCoord);

procedure CSE_ALifeInventoryItem__add_upgrade(itm:pCSE_ALifeInventoryItem; up:pshared_str); stdcall;
procedure CSE_ALifeInventoryItem__clone_upgrades(itm_to:pCSE_ALifeInventoryItem; itm_from:pCSE_ALifeInventoryItem); stdcall;

function IsAppLoaded():boolean; stdcall;

implementation
uses ActorUtils, gunsl_config, Math, HudItemUtils, dynamic_caster, sysutils, raypick, level, LensDoubleRender, throwable, ScriptFunctors, Messenger,fs,strutils;
var
  cscriptgameobject_restoreweaponimmediatly_addr:pointer;
  previous_electronics_problems_counter:single;
  current_electronics_problems_counter:single;
  target_electronics_problems_counter:single;
  last_problems_update_was_decrease:boolean;

  get_addons_state_ptr:pointer;
  set_addons_state_ptr:pointer;
  set_scope_idx_ptr:pointer;

  clone_upgrades_ptr:pointer;

procedure ResetElectronicsProblems(); stdcall;
begin
  target_electronics_problems_counter:=0;
end;

procedure ResetElectronicsProblems_Full(); stdcall;
begin
  ResetElectronicsProblems();
  current_electronics_problems_counter:=0;
  previous_electronics_problems_counter:=0;
  last_problems_update_was_decrease:=false;
end;

function PreviousElectronicsProblemsCnt():single; stdcall;
begin
  result:=previous_electronics_problems_counter;
end;

function ElectronicsProblemsImmediateApply():boolean; stdcall;
begin
  current_electronics_problems_counter:=target_electronics_problems_counter;
  result:=true;
end;

function ElectronicsProblemsInc():boolean; stdcall;
begin
  target_electronics_problems_counter:=target_electronics_problems_counter+1;
  result:=true;
end;

function TargetElectronicsProblemsCnt():single; stdcall;
begin
  result:=target_electronics_problems_counter;
end;

function CurrentElectronicsProblemsCnt():single; stdcall;
begin
  result:=current_electronics_problems_counter;
end;

function ElectronicsProblemsDec():boolean; stdcall;
begin
  if target_electronics_problems_counter > 0 then begin
    target_electronics_problems_counter:=target_electronics_problems_counter-1;
    result:=true;
  end else begin
    result:=false;
  end;
end;

function IsElectronicsProblemsDecreasing():boolean; stdcall;
begin
  result:=last_problems_update_was_decrease;
end;

procedure UpdateElectronicsProblemsCnt(dt:cardinal); stdcall;
var
  delta, max_delta:single;
begin
  previous_electronics_problems_counter := current_electronics_problems_counter;
  if target_electronics_problems_counter = current_electronics_problems_counter then begin
    exit;
  end;

  max_delta:= dt/2000;
  delta:=target_electronics_problems_counter-current_electronics_problems_counter;

  if abs(delta) <= abs(max_delta) then begin
    current_electronics_problems_counter:=target_electronics_problems_counter;
  end else begin
    current_electronics_problems_counter:=current_electronics_problems_counter+sign(delta)*max_delta;
    last_problems_update_was_decrease := (delta<0)
  end;
//  Log(floattostr(current_electronics_problems_counter));
end;

function IsAppLoaded():boolean; stdcall;
asm
  mov eax, xrengine_addr
  movzx eax, byte ptr[eax+$92d14]
  mov @result, al
end;

procedure set_name_replace(swpn:pointer; name:PChar); stdcall;
asm
  pushad
    mov edx, swpn
    mov edx, [edx]
    mov eax, [edx+$14]
    push name
    push swpn
    call eax
  popad
end;

function dxGeomUserData__get_ph_ref_object(dxGeomUserData:pointer):pointer;
asm
  mov eax, dxGeomUserData
  cmp eax, 0
  je @null
  mov eax, [eax+$20]
  mov @result, eax
  jmp @finish

  @null:
  mov @result, 0

  @finish:
end;

function PHRetrieveGeomUserData(dxGeom:pointer):pointer; stdcall;
asm
  pushad

  mov eax, dxGeom
  cmp eax, 0
  je @null

  push eax  //dxGeom
  mov eax, xrgame_addr
  add eax, $5131d4
  call [eax]
  add esp, 4
  mov @result, eax
  jmp @finish

  @null:
  mov @result, 0

  @finish:
  popad
end;


function game_object_GetScriptGameObject(obj:pointer):pointer;stdcall;
asm
  pushad
    mov ecx, obj
    mov eax, xrgame_addr
    add eax, $27FD40
    call eax
    mov @result, eax
  popad
end;

function is_object_has_health(obj:pointer):boolean;
asm
  mov @result, false
  pushad
    push obj
    call game_object_GetScriptGameObject
    cmp eax, 0
    je @finish
    mov ecx, eax
    mov ebx, xrgame_addr
    add ebx, $1EF870
    call ebx
    mov @result, al

    @finish:
  popad
end;

function get_server_object_by_id(id:cardinal):pointer;stdcall;
//!!Changes ECX!!
asm
    pushad
    pushfd

    mov ecx, xrGame_addr
    mov ecx, [ecx+$64DA98]
    mov ecx, [ecx+$14]

    push id
    push ecx

    mov eax, xrgame_addr
    add eax, $99450
    call eax
    add esp,8
    mov @Result, eax

    popfd
    popad
end;


function alife():pointer;
begin
asm
  pushad
  pushfd

  mov eax, xrgame_addr
  add eax, $97780
  call eax
  mov @result, eax
  
  popfd
  popad
end;
end;

function alife_create(section:PChar; pos:pointer; lvid:cardinal; gvid:cardinal):pCSE_Abstract; stdcall;
asm
  mov @result, 0
  pushad
    call alife
    cmp eax, 0
    je @finish
    push gvid
    push lvid
    push pos
    push section
    push eax

    mov eax, xrgame_addr
    add eax, $96eb0
    call eax
    
    add esp, $14
    mov @result, eax
    @finish:
  popad
end;

function CALifeSimulator__spawn_item2(section:PChar; position:pFVector3; level_vertex_id:cardinal; game_vertex_id:cardinal; id_parent:cardinal):{CSE_Abstract*}pointer; stdcall;
asm
  mov @result, 0
  pushad
    call alife
    cmp eax, 0
    je @finish

    push id_parent
    push game_vertex_id
    push level_vertex_id
    push position
    push section
    push eax

    mov eax, xrgame_addr
    add eax, $99490
    call eax

    mov @result, eax

    add esp, $18
    @finish:
  popad
end;



function alife_release(srv_obj:pointer):boolean;stdcall;
asm
  mov @result, 0
  pushad
    cmp srv_obj, 0
    je @finish
    call alife
    cmp eax, 0
    je @finish
    push 01
    push srv_obj
    push eax

    mov eax, xrgame_addr
    add eax, $98410
    call eax
    add esp, $C
    mov @result, al

    @finish:
  popad
end;


procedure get_rank_Patch(); stdcall;
asm
  xor esi, esi
end;


procedure CScriptgameobject__restoreweaponimmediatly_impl(act:pointer);stdcall;
begin
  if act<>GetActor() then exit;
  ChangeSlotsBlockStatus(false);
end;

procedure CScriptgameobject__restoreweaponimmediatly();stdcall;
asm
  pushad
  push [ecx+4]
  call CScriptgameobject__restoreweaponimmediatly_impl
  popad
end;

procedure register_cscriptgameobject_methods();stdcall;
const
  name_restore:PChar='restore_weapon_immediatly';
asm
  //restore_weapon_immediatly
  mov [esp+$58], bl
  mov ecx, [esp+$58]
  push ecx

  mov [esp+$28], bl
  mov edx, [esp+$28]
  push edx

  lea ecx, [esp+$60]
  push ecx

  lea edx, [esp+$28]
  push edx

  push name_restore
  mov ecx, eax

  mov edx, cscriptgameobject_restoreweaponimmediatly_addr
  mov [esp+$30], edx

  mov edx, xrgame_addr
  add edx, $1D4350
  call edx

  //restore cut
  mov [esp+$58], bl
  mov ecx, [esp+$58]

end;

function GetMaterialIdx(name:PChar):word; stdcall;
asm
  pushad
    mov ecx, xrgame_addr
    mov ecx, [ecx+$512bd4]

    push name

    mov eax, [xrengine_addr]
    add eax, $34250

    call eax

    mov @result, ax
  popad
end;

function xrMemory__allocate(count:cardinal):pointer;stdcall;
asm
  pushad
  push count

  mov eax, xrCore_addr
  lea ecx, [eax+$3f854] //xrCore.Memory

  add eax, $1AF00
  call eax
  mov @result, eax
  popad
end;

function xrMemory__release(addr:pointer):pointer;stdcall;
asm
  pushad
  push addr

  mov eax, xrCore_addr
  lea ecx, [eax+$3f854] //xrCore.Memory

  add eax, $1AFF0
  call eax
  popad
end;

function GetDevicedwFrame():cardinal; stdcall;
begin
asm
  mov eax, xrEngine_addr
  mov eax, [eax+$92EF0]
  mov @result, eax
end;
end;

procedure DecDevicedwFrame(); stdcall;
asm
  push eax
  mov eax, xrEngine_addr
  dec [eax+$92EF0]
  pop eax
end;

function IsMainMenuActive():boolean; stdcall;
begin
asm
  pushad
    mov @result, 0
    mov eax, xrEngine_addr
    mov eax, [eax+$92D30]
    test eax, eax
    je @finish
    mov ecx, [eax+$46C]
    mov edx, [ecx]
    mov eax, [edx+$08]
    call eax
    mov @result, al

    @finish:
  popad
end;
end;

function GetDeviceView():pFMatrix4x4; stdcall;
begin
asm
  mov eax, xrEngine_addr
  lea eax, [eax+$92ED8+$60]
  mov @result, eax
end;
end;

function GetDeviceProjection():pFMatrix4x4; stdcall;
begin
asm
  mov eax, xrEngine_addr
  lea eax, [eax+$92ED8+$A0]
  mov @result, eax
end;
end;

function GetDeviceFullTransform():pFMatrix4x4; stdcall;
begin
asm
  mov eax, xrEngine_addr
  lea eax, [eax+$92ED8+$E0]
  mov @result, eax
end;
end;

//-----------------------------------------------------------------------------------------------------------
procedure ClearNetPacket(packet:pNET_Packet); stdcall;
begin
  packet^.inistream:=nil;
  packet^.B.count:=0;
  packet^.r_pos:=0;
  packet^.timeReceive:=0;
  packet^.w_allow:=true;
end;

procedure WriteToPacket(packet:pNET_Packet; data:pointer; bytes_count:cardinal); stdcall;
asm
  pushad
    mov eax, xrgame_addr
    mov eax, [eax+$5127cc] //NET_Packet::w

    push bytes_count
    push data

    mov ecx, packet
    call eax;
  popad
end;

procedure SendNetPacket(packet:pNET_Packet); stdcall;
asm
  pushad
  call GetLevel
  push 0
  push 8
  push packet
  mov edx,[eax+$40110]
  mov edx,[edx+$10]
  lea ecx,[eax+$40110]
  call edx
  popad
end;

procedure ReadFromReader(r:pIReader; buf:pointer; bytes_count:cardinal); stdcall;
asm
  pushad
    mov eax, xrgame_addr
    mov eax, [eax+$5127D4]

    push bytes_count
    push buf

    mov ecx, r
    call eax;
  popad
end;

function ReaderLength(r:pIReader):cardinal; stdcall;
asm
  pushad
    mov eax, xrgame_addr
    mov eax, [eax+$512970]

    mov ecx, r
    call eax
    mov @result, eax
  popad
end;

function ReaderElapsed(r:pIReader):cardinal; stdcall;
asm
  push ecx
  mov ecx, r
  mov eax, [ecx+$10]
  sub eax, [ecx+$c]
  mov @result, eax
  pop ecx
end;

procedure IWriter__w_u32(this:pointer; value:cardinal); stdcall;
asm
  pushad
  push value
  mov ecx, this
  mov eax, xrgame_addr
  add eax, $5129e8   //IWriter::w_u32
  call [eax]
  popad
end;

procedure IWriter__w_stringZ(this:pointer; value:PAnsiChar); stdcall;
asm
  pushad
  push value
  mov ecx, this
  mov eax, xrgame_addr
  add eax, $5128b4   //IWriter::w_stringZ
  call [eax]
  popad
end;

function GetDeviceTimeDelta():single; stdcall;
begin
asm
  mov eax, xrEngine_addr
  mov eax, [eax+$92ED8+$1C]
  mov @result, eax
end;
end;

function GetDeviceWidth():cardinal; stdcall;
begin
asm
  mov eax, xrEngine_addr
  mov eax, [eax+$92ED8+$04]
  mov @result, eax
end;
end;

function GetDeviceHeight():cardinal; stdcall;
begin
asm
  mov eax, xrEngine_addr
  mov eax, [eax+$92ED8+$08]
  mov @result, eax
end;
end;

function GetCObjectID(CObject:pointer):word; stdcall;
asm
  mov eax, [CObject]
  movzx eax, word ptr [eax+$A4]
  mov @result, ax
end;

function GetCObjectXForm(CObject:pointer):pFMatrix4x4; stdcall;
asm
  mov eax, [CObject]
  lea eax, [eax+$50]
  mov @result, eax
end;

function GetCObjectVisual(CObject:pointer):pointer; stdcall;
asm
  mov eax, [CObject]
  mov eax, [eax+$90]
  mov @result, eax
end;

function GetCObjectSection(CObject:pointer):pshared_str; stdcall;
asm
  mov eax, [CObject]
  lea eax, [eax+$ac]
  mov @result, eax
end;


function GetCObjectUpdateFrame(CObject:pointer):cardinal; stdcall;
asm
  mov eax, [CObject]
  mov eax, [eax+$FC]
  mov @result, eax
end;

function CastHudItemToCObject(wpn:pointer):pointer; stdcall;
asm
  mov eax, [wpn]
  add eax, $e8 //nonportable - cast to CObject
  mov [result], eax
end;

//-----------------------------------------------------------------------------------------------------------

procedure CHW__CreateDevice_VSync_R1_R2; stdcall;
asm
  pushad
    call IsVSyncEnabled
    cmp al, 0
    je @no_vsync
      mov [edi+$34], 0 //D3DPRESENT_INTERVAL_DEFAULT
      jmp @finish
    @no_vsync:
      mov [edi+$34], $80000000 //D3DPRESENT_INTERVAL_IMMEDIATE
    @finish:
  popad
end;


procedure CHW__Reset_VSync_R1_R2; stdcall;
asm
  pushad
    call IsVSyncEnabled
    cmp al, 0
    je @no_vsync
      mov [ebx+$A8], 0 //D3DPRESENT_INTERVAL_DEFAULT
      jmp @finish
    @no_vsync:
      mov [ebx+$A8], $80000000 //D3DPRESENT_INTERVAL_IMMEDIATE
    @finish:
  popad
end;

function IsInputExclusive:boolean; stdcall;
begin
asm
  mov eax, xrengine_addr
  add eax, $9032B
  mov al, byte ptr [eax]
  mov @result, al
end;
end;

function GetAngleByLegs(x,y:single):single;
var
  gyp, k:single;
begin
  gyp:=sqrt(x*x+y*y);
  k:=clamp(y/gyp, -1.0, 1.0);
  result:=arcsin(k);
  if (x<0) then begin
     result:=pi-result
  end;
  if result<0 then result:=result+2*pi;
end;


procedure CGameObject_x_axis(v:pFVector3); stdcall;
asm
  pushad

  mov eax, [ecx+4]
  sub eax, $e8      //nonportable - cast to CWeapon
  push eax
  call GetXFORM

  mov esi, [eax+FMatrix4x4.i.x]
  mov edi, [eax+FMatrix4x4.i.y]
  mov ebx, [eax+FMatrix4x4.i.z]

  mov edx, v  
  mov [edx+FVector3.x], esi
  mov [edx+FVector3.y], edi
  mov [edx+FVector3.z], ebx

  popad

  mov eax, v
end;

procedure CGameObject_y_axis(v:pFVector3); stdcall;
asm
  pushad

  mov eax, [ecx+4]
  sub eax, $e8      //nonportable - cast to CWeapon
  push eax
  call GetXFORM

  mov esi, [eax+FMatrix4x4.j.x]
  mov edi, [eax+FMatrix4x4.j.y]
  mov ebx, [eax+FMatrix4x4.j.z]

  mov edx, v
  mov [edx+FVector3.x], esi
  mov [edx+FVector3.y], edi
  mov [edx+FVector3.z], ebx

  popad

  mov eax, v
end;

procedure CGameObject_z_axis(v:pFVector3); stdcall;
asm
  pushad

  mov eax, [ecx+4]
  sub eax, $e8      //nonportable - cast to CWeapon
  push eax
  call GetXFORM

  mov esi, [eax+FMatrix4x4.k.x]
  mov edi, [eax+FMatrix4x4.k.y]
  mov ebx, [eax+FMatrix4x4.k.z]

  mov edx, v
  mov [edx+FVector3.x], esi
  mov [edx+FVector3.y], edi
  mov [edx+FVector3.z], ebx

  popad

  mov eax, v
end;

procedure CScriptGameObject_ExportAxisVectors; stdcall;
const
  get_x:PChar='get_x_axis';
  get_y:PChar='get_y_axis';
  get_z:PChar='get_z_axis';    
asm
  mov [esp+$24], 0
  mov edx, [esp+$24]
  push edx

  mov [esp+$1C], 0
  mov ecx, [esp+$1C]
  push ecx

  lea edx, [esp+$1C]
  push edx

  lea ecx, [esp+$28]
  push ecx
  push get_x
  mov ecx, eax

  lea edx, dword ptr [CGameObject_x_axis]
  mov [esp+$30], edx

  mov edx, xrgame_addr
  add edx, $1D6D20
  call edx


  mov [esp+$24], 0
  mov edx, [esp+$24]
  push edx

  mov [esp+$1C], 0
  mov ecx, [esp+$1C]
  push ecx

  lea edx, [esp+$1C]
  push edx

  lea ecx, [esp+$28]
  push ecx
  push get_y
  mov ecx, eax

  lea edx, dword ptr [CGameObject_y_axis]
  mov [esp+$30], edx

  mov edx, xrgame_addr
  add edx, $1D6D20
  call edx

  mov [esp+$24], 0
  mov edx, [esp+$24]
  push edx

  mov [esp+$1C], 0
  mov ecx, [esp+$1C]
  push ecx

  lea edx, [esp+$1C]
  push edx

  lea ecx, [esp+$28]
  push ecx
  push get_z
  mov ecx, eax

  lea edx, dword ptr [CGameObject_z_axis]
  mov [esp+$30], edx

  mov edx, xrgame_addr
  add edx, $1D6D20
  call edx

  mov [esp+$24], 0
  mov edx, [esp+$20]
end;

function is_visible_by_thermovisor(cobject:pointer):boolean; stdcall;
begin
  if dynamic_cast(cobject, 0, RTTI_CObject, RTTI_CAI_Crow, false)<>nil then begin
    result:=true;
    exit;
  end;

  if dynamic_cast(cobject, 0, RTTI_CObject, RTTI_CAI_Bloodsucker, false)<>nil then begin
    result:=false;
    exit;
  end;

  result := dynamic_cast(cobject, 0, RTTI_CObject, RTTI_CEntityAlive, false)<>nil;
end;

procedure xrMemory__mem_free(mem_ptr:pointer); stdcall;
asm
   pushad
   mov eax, xrEngine_addr
   mov ecx, [eax+$6f538]
   mov edx, [eax+$6f53c]
   push mem_ptr
   call edx
   popad
end;

procedure list_entry_delete(entry:pxr_list_entry_base); stdcall;
var
  next, prev:pxr_list_entry_base;
begin
  next := entry._Next;
  prev := entry._Prev;

  next._Prev := prev;
  prev._Next := next;

  xrMemory__mem_free(entry);
end;

procedure CCameraManager__UpdateCamEffectors_removefinishedeff_Patch(); stdcall;
asm
  cmp al, 0
  jne @next_eff

  pushad
  mov ecx, [edi+04]
  mov edx, [ecx+08] //(CEffectorCam*) (*rit).value
  push edx

  mov eax, xrEngine_addr
  add eax, $2c650
  mov ecx, esi //mov ecx, CCameraManager* this
  call eax//CCameraManager::OnEffectorReleased
  popad

  pushad
  push [edi+04]
  call list_entry_delete
  popad

  jmp @finish

@next_eff:
  mov edi, [edi+4] //rit++

@finish:
  cmp edi, [ebx]
  ret
end;


{ Use for DX8\DX9. Sample code:
  m.i.x := 0;
  m.i.y := 0;
  m.i.z := 0;
  m.i.w := 0;

  m.j := m.i;
  m.k := m.i;
  m.c := m.i;

  m.i.x := 1;
  m.j.y := 1;
  m.k.z := 1;
  m.c.w := 1;
  DrawSphere(@m, pos, 1, $FFFFFFFF, $FFFFFFFF, true, false); }
procedure DrawSphere(parent: pFMatrix4x4; center:pFVector3; radius:single; clr_s:cardinal; clr_w:cardinal; bSolid:boolean; bWire:boolean); stdcall;
asm
  pushad
    mov eax, [xrAPI_addr]
    mov ecx, [eax+$3350] //DU
    mov eax, [ecx] //vtable
    mov eax, [eax+$80] //CDrawUtilities::DrawSphere

    movzx edx, bWire
    push edx
    movzx edx, bSolid
    push edx
    push clr_w
    push clr_s
    push radius
    push center
    push parent
    push ecx
    call eax
  popad
end;

function get_addons_state_adapter():cardinal;
begin
asm
  pushad
  mov eax, [ecx+4] //CScriptGameObject.m_game_object
  mov @result, 0

  push 0
  push RTTI_CWeapon
  push RTTI_CGameObject
  push 0
  push eax
  call dynamic_cast
  test eax, eax
  je @finish

  push eax
  call get_addons_state
  mov @result, eax

  @finish:
  popad
end;
end;

procedure set_addons_state_adapter(state:cardinal); stdcall;
asm
  pushad
  mov eax, [ecx+4] //CScriptGameObject.m_game_object
  mov ebx, state

  push 0
  push RTTI_CWeapon
  push RTTI_CGameObject
  push 0
  push eax
  call dynamic_cast
  test eax, eax
  je @finish

  push ebx
  push eax
  call set_addons_state

  @finish:
  popad
end;

procedure set_scope_idx_adapter(state:cardinal); stdcall;
asm
  pushad
  mov eax, [ecx+4] //CScriptGameObject.m_game_object
  mov ebx, state

  push 0
  push RTTI_CWeapon
  push RTTI_CGameObject
  push 0
  push eax
  call dynamic_cast
  test eax, eax
  je @finish

  push ebx
  push eax
  call SetCurrentScopeType

  @finish:
  popad
end;

procedure script_register_game_object1_patch(); stdcall;
const
  get_addons_state_name:PChar = 'get_addons_state';
  set_addons_state_name:PChar = 'set_addons_state';
  set_scope_idx_name:PChar = 'set_scope_idx';
asm
//---
  mov [esp+$24], bl
  mov edx, [esp+$24]
  push edx
  mov [esp+$1c], bl
  mov ecx, [esp+$1c]
  push ecx
  lea edx, [esp+$1c]
  push edx
  lea ecx, [esp+$28]
  push ecx //esp+$28 - pointer to function, will be filled below
  push get_addons_state_name
  mov ecx, eax
  mov edx, get_addons_state_ptr
  mov [esp+$30], edx // write actual pointer to function
  mov edx, xrgame_addr
  add edx, $1d3990
  call edx
//---
  mov [esp+$24], bl
  mov edx, [esp+$24]
  push edx
  mov [esp+$1c], bl
  mov ecx, [esp+$1c]
  push ecx
  lea edx, [esp+$1c]
  push edx
  lea ecx, [esp+$28]
  push ecx //esp+$28 - pointer to function, will be filled below
  push set_addons_state_name
  mov ecx, eax
  mov edx, set_addons_state_ptr
  mov [esp+$30], edx // write actual pointer to function
  mov edx, xrgame_addr
  add edx, $1d4a10
  call edx
//---
  mov [esp+$24], bl
  mov edx, [esp+$24]
  push edx
  mov [esp+$1c], bl
  mov ecx, [esp+$1c]
  push ecx
  lea edx, [esp+$1c]
  push edx
  lea ecx, [esp+$28]
  push ecx //esp+$28 - pointer to function, will be filled below
  push set_scope_idx_name
  mov ecx, eax
  mov edx, set_scope_idx_ptr
  mov [esp+$30], edx // write actual pointer to function
  mov edx, xrgame_addr
  add edx, $1d4a10
  call edx
//---

  //Original
  mov [esp+$24], bl
  mov edx, [esp+$24]
end;

function IsObjectSeePoint(CObject:pointer; point:FVector3; unconditional_vision_dist:single; object_y_correction_value:single; can_backsee:boolean):boolean; stdcall;
var
  vdiff, object_point, object_dir:FVector3;
  o_dist, o_cos:single;
begin
  result:=false;

  object_point:=FVector3_copyfromengine(GetEntityPosition(CObject));
  object_dir:=FVector3_copyfromengine(GetEntityDirection(CObject));
  object_point.y:=object_point.y+object_y_correction_value; //Êîððåêöèÿ íà âûñîòó ãëàç

  vdiff:=point;
  v_sub(@vdiff, @object_point); //âåêòîð îò îáúåêòà ê ïðîâåðÿåìîé òî÷êå
  o_dist:=v_length(@vdiff); //ðàññòîÿíèå îò îáúåêòà äî  ïðîâåðÿåìîé òî÷êè
  v_normalize(@vdiff);

  if not can_backsee then begin
    // Îáúåêò íå äîëæåí âèäåòü òî, ÷òî ó íåãî â "çàäíåé ïîëóñôåðå"
    o_cos:=GetAngleCos(@object_dir, @vdiff);
    if o_cos < 0 then exit;
  end;

  if (o_dist<=unconditional_vision_dist) or ((TraceAsView(@object_point, @vdiff, CObject)*1.01) >= o_dist) then begin
    result:=true;
  end;
end;

procedure DropItemAndTeleport(CObject:pointer; pos:pFVector3); stdcall;
asm
  pushad

  push CObject
  call game_object_GetScriptGameObject
  mov ecx, eax

  mov eax, pos
  push [eax+FVector3.z]
  push [eax+FVector3.y]
  push [eax+FVector3.x]
  push ecx

  mov edx, xrgame_addr
  add edx, $1c7520
  call edx

  popad
end;

procedure CObject__processing_activate(o:pointer); stdcall;
asm
  pushad
  mov ecx, o
  mov eax, xrgame_addr
  mov eax, [eax+$512d7c]
  call eax 
  popad
end;

procedure CObject__processing_deactivate(o:pointer); stdcall;
asm
  pushad
  mov ecx, o
  mov eax, xrgame_addr
  mov eax, [eax+$512c44]
  call eax
  popad
end;


function get_time_hours():cardinal; stdcall;
asm
  pushad
  mov eax, xrgame_addr
  add eax, $23e850
  call eax
  mov result, eax
  popad
end;

function get_time_minutes():cardinal; stdcall;
asm
  pushad
  mov eax, xrgame_addr
  add eax, $23e900
  call eax
  mov result, eax
  popad
end;

function get_split_time(years:pcardinal; months:pcardinal; days:pcardinal; hours:pcardinal; minutes:pcardinal; seconds:pcardinal; milliseconds:pcardinal):boolean; stdcall;
asm
  mov result, 0
  pushad
  call GetLevel
  test eax, eax
  je @finish
  mov ecx, eax
  cmp [ecx+$486F8],0 // Level().game
  je @finish

  mov eax, xrgame_addr
  add eax, $232d40 // Level().GetGameTime()
  call eax

  push milliseconds
  push seconds
  push minutes
  push hours
  push days
  push months
  push years
  push edx //part of u64 result from GetGameTime
  push eax //part of u64 result from GetGameTime
  mov eax, xrgame_addr
  add eax, $33bfe0 // split_time
  call eax
  add esp, $24

  mov @result, 1

  @finish:
  popad
end;



function GetSysMousePoint():MouseCoord;
begin
  if not GetCursorPos(result) then begin
    result.x:=0;
    result.Y:=0;
  end;
end;

procedure SetSysMousePoint(c:MouseCoord);
begin
  SetCursorPos(c.X, c.Y);
end;

procedure ProcessPhysicsContact(IPhysicsShellHolder1:pointer; IPhysicsShellHolder2:pointer; vel:single); stdcall;
var
  wpns:array[0..1] of pointer;
  params:weapon_physics_damage_params;
  i:cardinal;
  factor, cond:single;  
begin
  params:=GetWeaponPhysicsDamageParams();
  if vel < params.treshold then exit; 

  wpns[0]:=dynamic_cast(IPhysicsShellHolder1, 0, RTTI_IPhysicsShellHolder, RTTI_CWeapon, false);
  wpns[1]:=dynamic_cast(IPhysicsShellHolder2, 0, RTTI_IPhysicsShellHolder, RTTI_CWeapon, false);

  for i:=0 to length(wpns) do begin
    if wpns[i] = nil then continue;
    factor:= (vel - params.treshold)*params.speed;
    cond:=GetCurrentCondition(wpns[i]);
    if cond > factor then begin
      SetCondition(wpns[i], cond-factor);
    end else begin
      SetCondition(wpns[i], 0);
    end;
  end;
end;

procedure CPHSimpleCharacter__UpdateDynamicDamage_Patch(); stdcall;
asm
  mov esi, [esp+$74] //c_vel

  pushad
  push esi

  mov esi, [ebp+$54]  // c->geom.g1
  mov eax, xrphysics_addr
  add eax, $227f0
  call eax // retrieveRefObject
  push eax

  mov esi, [ebp+$50]  // c->geom.g2
  mov eax, xrphysics_addr
  add eax, $227f0
  call eax // retrieveRefObject
  push eax

  call ProcessPhysicsContact

  popad
  //original
  cmp byte ptr [esp+$74], 0
end;

var
  _update_start_perfcnt:TLargeInteger;
  _update_dist_koef:single;

procedure StartUpdateTimeCount(); stdcall;
begin
  QueryPerformanceCounter(_update_start_perfcnt);
end;

procedure CObjectList__Update_StartCountUpdateTime_Patch(); stdcall;
asm
  add ebx,$198 //original
  pushad
  call StartUpdateTimeCount
  popad
end;

procedure ParseUpdateTimeCounter(); stdcall;
var
  upd_time:single;

  update_end_perfcnt, freq:TLargeInteger;
  min_koef:single;
const
  MIN_UPD_DIST_KOEF_NEG:single=-0.1;
  MIN_UPD_DIST_KOEF:single=0;
  MAX_UPD_DIST_KOEF:single=1;

  UPDATE_DIST_STEP = 0.05;
  UPDATE_TIME_TREASURE:cardinal = 7;
  UPDATE_TIME_TREASURE_NEGATIVE:cardinal = 10;
begin
  QueryPerformanceCounter(update_end_perfcnt);
  QueryPerformanceFrequency(freq);

  upd_time:= (update_end_perfcnt - _update_start_perfcnt) / freq * 1000;
  if upd_time >= UPDATE_TIME_TREASURE then begin
    // Ñëèøêîì äîëãèé àïäåéò, ïîñòàðàåìñÿ ñíèçèòü ÷èñëî ïðåäìåòîâ â íåì
    if _update_dist_koef > MIN_UPD_DIST_KOEF then begin
      // Óìåíüøàåì ðàäèóñ àïäåéòà
      _update_dist_koef:= _update_dist_koef - UPDATE_DIST_STEP;
      if upd_time > UPDATE_TIME_TREASURE_NEGATIVE then begin
        min_koef:=MIN_UPD_DIST_KOEF_NEG;
      end else begin
        min_koef:=MIN_UPD_DIST_KOEF;
      end;

      if _update_dist_koef < min_koef then _update_dist_koef := min_koef;
    end;
  end else begin
    // Âðåìÿ àïäåéòà â íîðìå, ïðîáóåì óâåëè÷èòü çîíó
    if _update_dist_koef < MAX_UPD_DIST_KOEF then begin
      _update_dist_koef:= _update_dist_koef + UPDATE_DIST_STEP;
      if _update_dist_koef > MAX_UPD_DIST_KOEF then _update_dist_koef := MAX_UPD_DIST_KOEF;
    end;
  end;

//  Log('Update time = '+floattostr(upd_time)+', koef = '+floattostr(_update_dist_koef));
end;

procedure CObjectList__Update_UpdateTimeCounter_Patch(); stdcall;
asm
  lea ebx,[esi+$0003FFFC] //original
  pushad
  call ParseUpdateTimeCounter
  popad
end;

function IsHardUpdates():boolean; stdcall;
begin
  result:=(_update_dist_koef<0);
end;

function CanSkipUpdate():boolean; stdcall;
begin
{$ifdef EXPERIMENTAL_UPDRATE}
  result:=IsLensFrameNow() or (IsDynamicUpdrate() and IsHardUpdates() and (GetCurrentFrame() mod 2 = 1));
{$else}
  result:=IsLensFrameNow();
{$endif}
end;

procedure CObjectList__Update_SkipUpdate_Patch(); stdcall;
asm
  pop eax //ret addr

  pushad
  call CanSkipUpdate
  test al, al
  popad
  je @continue
  ret 4;

  @continue:
  //original
  push ebp
  mov ebp, esp
  sub esp, $c

  jmp eax
end;


procedure CorrectSecondaryHitType(zone:pointer; orig_hit_type:cardinal; pNewHitType:pcardinal); stdcall;
var
  s:PAnsiChar;
begin
  pNewHitType^:=orig_hit_type;
  if zone = nil then exit;

  s:=get_string_value(GetCObjectSection(zone));
  pNewHitType^:=game_ini_r_int_def(s, 'secondary_hit_type', orig_hit_type);
end;


procedure CMosquitoBald__UpdateSecondaryHit_SecondaryHitType_Patch(); stdcall;
asm
  push 0 //buffer for hit type
  mov ecx, esp

  pushad
  push ecx
  push [esi+$228] // m_eHitTypeBlowout
  push esi
  call CorrectSecondaryHitType
  popad

  pop ecx // get new hit type from buffer
end;


procedure OnObjectInZone(zone:pointer; obj:pointer); stdcall;
var
  missile:pointer;
const
  REMOVE_DELTA:cardinal=100;
begin
  missile:=dynamic_cast(obj, 0, RTTI_CGameObject, RTTI_CBolt, false);
  if missile<>nil then begin
    if game_ini_r_bool_def(get_string_value(GetCObjectSection(zone)), 'delete_bolts', true) then begin
      if CMissile__GetDestroyTime(missile) > GetGameTickCount()+REMOVE_DELTA then begin
        CMissile__SetDestroyTime(missile, GetGameTickCount()+REMOVE_DELTA);
      end;
    end;
  end;
end;

procedure clone_upgrades_adapter(src:pointer); stdcall;
asm
  pushad
  //ecx - dest (this)
  //cast CSE_ALifeItemWeapon to CSE_ALifeInventoryItem
  add ecx, $e0
  mov eax, src
  add eax, $e0

  push eax
  push ecx
  call CSE_ALifeInventoryItem__clone_upgrades

  popad
end;

procedure CSE_ALifeItemWeapon_exports_Patch(); stdcall;
const
  clone_upgrades_name:PChar = 'clone_upgrades';
asm
  pop edi //ret addr

  //original call
  mov eax, xrgame_addr
  add eax, $3efbd3
  call eax


  //new method
  mov ecx, eax
  mov eax, xrgame_addr
  add eax, $3efbd3

  push 0
  push [clone_upgrades_ptr]
  push clone_upgrades_name
  
  call eax

  jmp edi;
end;

procedure CCustomZone__feel_touch_new_detectbolts_Patch(); stdcall;
asm
  pushad
  push edi //bolt
  push esi // zone
  call OnObjectInZone
  popad

  // original
  mov eax,[esp+$1c]
  cmp eax,ebx
end;


var
  _last_binded_section:string;
  _last_binded_object:pointer;

procedure BeforeReloadScriptBinder(s:PAnsiChar; o:pointer); stdcall;
begin
  _last_binded_section:=s;
  _last_binded_object:=o;
end;

procedure CScriptBinder__reload_start_Patch(); stdcall;
asm
  pushad
  push esi
  push ebx
  call BeforeReloadScriptBinder
  popad

  //original
  mov esi,[eax+$1C]
  lea ecx,[ebp-$20]
end;

procedure NotifyBinderDead(o:pCScriptBinderObject); stdcall;
var
  msg:string;
  sect:PAnsiChar;
  id:cardinal;
begin
  msg:='';
  if (o<>nil) and (o.m_object<>nil) then begin
    if o.m_object.m_game_object<>nil then begin
      sect:=get_string_value(GetCObjectSection(o.m_object.m_game_object));
      id:=GetCObjectID(o.m_object.m_game_object);
      msg:='Script binder of '+sect+':'+inttostr(id)+' is dead due to exception';
      Log(msg, true);
      if IsDebug then Messenger.SendMessage(PAnsiChar(msg));
    end;
  end;

  if length(msg) = 0 then begin
    msg:='Script binder '+inttohex(cardinal(o), 8) +' is dead due to exception! ';
    msg:=msg+'Last binded object is ['+inttohex(cardinal(_last_binded_object), 8)+']: '+_last_binded_section+' ('+game_ini_read_string_def(PAnsiChar(_last_binded_section), 'script_binding', '<null>')+')';
    Log(msg, true);
  end;
end;

procedure CScriptBinder__clear_notifier_Patch(); stdcall;
asm
  //original
  mov [ebp-04],00000000
  lea eax,[esi+04]

  pushad
  push [eax]
  call NotifyBinderDead
  popad

end;


procedure NotifyPatrolNotExist(name:PAnsiChar); stdcall;
var
  msg:string;
begin
  msg:='There is no patrol path '+name;
  Log(msg, true);
end;

procedure CPatrolPathParams__CPatrolPathParams_notifier_Patch(); stdcall;
asm
  cmp eax, 0
  jne @finish
  
  mov eax, [esp+$c]
  pushad
  push eax
  call NotifyPatrolNotExist
  popad
  xor eax, eax
  
  @finish:
  //original
  mov edx,[esp+$14]
  mov [esi+04],eax
end;


var
  _ireader_addr:pIReader;
  _original_ireader:IReader;
  _new_omfs_buffer:string;  
function RebuildIReaderForNewOmf(anims_cnt:cardinal; r:pIReader):integer; stdcall;
var
  i, j, k, cnt:integer;
  omf_name:string;
  omfs:array of string;
  pos:integer;

  dir_for_additional_omfs:string_path;
  fname:string;
  flist:FileList;
begin
  result:=anims_cnt;
  FillMemory(@_original_ireader, sizeof(_original_ireader), 0);
  _ireader_addr:=nil;

  setlength(omfs, anims_cnt);
  pos:=r^.pos;
  for i:=0 to anims_cnt-1 do begin
    omf_name:='';

    while (r^.size > pos) and (r^.data[pos]<>chr(0)) do begin
      omf_name:=omf_name+r^.data[pos];
      pos:=pos+1;
    end;
    pos:=pos+1;

    if length(omf_name)= 0 then begin
     //something is wrong with data, exiting
     setlength(omfs, 0);
     exit;
    end;
    omfs[i]:=omf_name;
  end;

  for i:=0 to anims_cnt-1 do begin
    fs_update_path(dir_for_additional_omfs, '$game_meshes$', PAnsiChar(omfs[i]+'\'));
    fs_file_list_open(@flist, dir_for_additional_omfs, FS_ListFiles+FS_RootOnly);
    cnt:=fs_file_list_count(@flist);
    for j:=0 to cnt-1 do begin
      fname:=fs_file_list_get_item(@flist, j);
      if rightstr(fname, 4) = '.omf' then begin
        omf_name:=omfs[i]+'\'+leftstr(fname, length(fname)-4);
        log('Found additional OMF: '+omf_name);
        k:=length(omfs);
        setlength(omfs, k+1);
        omfs[k]:=omf_name;
      end;
    end;
  end;

  if length(omfs)<>anims_cnt then begin
    _new_omfs_buffer:='';
    for i:=0 to length(omfs)-1 do begin
      _new_omfs_buffer:=_new_omfs_buffer+omfs[i]+chr(0);
    end;

    _ireader_addr:=r;
    _original_ireader:=r^;
    r^.data:=PAnsiChar(_new_omfs_buffer);
    r^.pos:=0;
    r^.size:=length(_new_omfs_buffer);

    result:=length(omfs);
  end;

  setlength(omfs, 0);
end;

procedure RestoreIreader(); stdcall;
begin
  if _ireader_addr <> nil then begin
    log('Restoring IReader');
    _ireader_addr^:=_original_ireader;
    _ireader_addr:=nil;
    FillMemory(@_original_ireader, sizeof(_original_ireader), 0);    
  end;
end;

procedure CKinematicsAnimated__Load_newomfs_Patch(); stdcall;
asm
  push eax
  mov eax, esp

  pushad
  push eax

  push esi //IReader
  push [eax] //count
  call RebuildIReaderForNewOmf

  pop ecx
  mov [ecx], eax
  popad
  pop eax

  // original
  lea edi,[ebx+$BC]
end;

procedure CKinematicsAnimated__Load_restorereader_Patch(); stdcall;
asm
  pushad
  call RestoreIreader
  popad
  // original
  mov [ebx+$C8],ecx
end;


procedure xrXmlParser_ParseFile(path:PAnsiChar; W:pointer; F:pIReader; xml:pointer); stdcall;
asm
  pushad
  push xml
  push F
  push W
  push path
  mov eax, xrXmlParser_addr
  add eax, $18e0
  call eax
  add esp,$10
  popad
end;

var
  last_xml_id:cardinal=0;
procedure XmlIncludeDir(path:PAnsiChar; W:pointer; F:pIReader; xml:pointer; pstr:PAnsiChar); stdcall;
var
  dirpath:string_path;
  dirname, str, fname:string;
  i, cnt:integer;
  flag:boolean;
  flist:FileList;
  r:pIReader;
  is_rnd:boolean;
  is_dir:boolean;
const
  DIRECTIVE:string='#dir_include';
  DIRECTIVE_RND:string='#random_include';
begin
  if (pstr[0] = '#') then begin
    str:=pstr;
    is_dir:=(leftstr(str, length(DIRECTIVE))=DIRECTIVE);
    is_rnd:=(leftstr(str, length(DIRECTIVE_RND))=DIRECTIVE_RND);

    if (is_dir or is_rnd) then begin
      pstr[0]:=chr(0);
      dirname:='';
      flag:=false;
      for i:=1 to length(str) do begin
        if str[i]='"' then begin
          flag:=not flag;
          if not flag then begin
            break;
          end;
        end else if flag then begin
          dirname:=dirname+str[i];
        end;  
      end;

      R_ASSERT(not flag and (length(dirname)>0), PAnsiChar('malformed directive: '+str), 'XmlIncludeDir');
      if dirname[length(dirname)]='\' then begin
        dirname:=leftstr(dirname, length(dirname)-1);
      end else if Is16x9() then begin
         dirname:=dirname+'_16';
      end;

      fs_update_path(dirpath, '$game_config$', PAnsiChar(dirname+'\'));

      fs_file_list_open(@flist, dirpath, FS_ListFiles+FS_RootOnly);
      cnt:=fs_file_list_count(@flist);

      if is_dir then begin
        if cnt > 0 then begin
          for i:=0 to cnt-1 do begin
            fname:=fs_file_list_get_item(@flist, i);
            if lowercase(rightstr(fname, 4)) = '.xml' then begin
              fname:=dirpath+fname;
              fs_r_open(@r, PAnsiChar(fname));
              if r <> nil then begin
                xrXmlParser_ParseFile(path, W, r, xml);
                fs_r_close(@r);
              end;
            end;
          end;
        end;
      end else if is_rnd then begin
        R_ASSERT(cnt > 0, PAnsiChar('no files in: '+dirname), 'XmlIncludeDir');      
        for i:=0 to cnt-1 do begin
          fname:=fs_file_list_get_item(@flist, i);
          if lowercase(rightstr(fname, 4)) = '.xml' then break;
          R_ASSERT(i = cnt-1, PAnsiChar('no XML files in: '+dirname), 'XmlIncludeDir');
        end;
        
        if last_xml_id = 0 then begin
          last_xml_id:=random(10000);
        end;

        while (true) do begin
          i:=last_xml_id+1;
          last_xml_id:=i;
          fname:=fs_file_list_get_item(@flist, i mod cnt);
          if lowercase(rightstr(fname, 4)) = '.xml' then begin
            fname:=dirpath+fname;
            fs_r_open(@r, PAnsiChar(fname));
            if r <> nil then begin
              xrXmlParser_ParseFile(path, W, r, xml);
              fs_r_close(@r);
            end;

            break;
          end;
        end;
        fs_file_list_close(@flist);
      end;
    end;
  end;
end;

procedure xrXmlParser_ParseFile_includedir_patch; stdcall;
asm
  mov eax, esp
  pushad
  lea edx, [eax+$724]
  push  edx // str
  push [eax+$1734] // xml
  push [eax+$1730] // F
  push [eax+$172c] // W
  push [eax+$1728] // path
  call XmlIncludeDir
  popad

  //original
  mov al,[esp+$724]
end;

procedure CorrectBeforeSpawn(cgameobject:pointer; cse:pCSE_Abstract); stdcall;
var
  section:PAnsiChar;
  v:FVector3;
begin
  section:=get_string_value(@cse.s_name);

  if game_ini_r_bool_def(section, 'force_position', false) then begin
    v:=cse.o_Position;
    v:=game_ini_read_vector3_def(section, 'forced_position', @v);
    cse.o_Position:=v;

    v:=cse.o_Angle;
    v:=game_ini_read_vector3_def(section, 'forced_angle', @v);
    cse.o_Angle:=v
  end;
end;

procedure CGameObject__net_Spawn_correctbeforeonline_Patch; stdcall;
asm
  pushad
    push ebp // CSE_Abstract*
    push esi // this
    call CorrectBeforeSpawn
  popad

  //original
  mov [esi+$A4],dx
end;

function GetTargetVisualName(visual:PAnsiChar; pgameobject:pointer):PAnsiChar; stdcall;
var
  sect:PAnsiChar;
begin
   // TODO: default visual when file not found?
  result:=visual;
  sect:=get_string_value(GetCObjectSection(pgameobject));
  if game_ini_r_bool_def(sect, 'force_reset_visual_on_load', false) then begin
    result:=game_ini_read_string_def(sect, 'visual', '');
 end;

end;

procedure CGameObject__net_Spawn_correctvisual_Patch(); stdcall;
asm
  push ecx
  mov ecx, esp
  pushad
  push ecx

  push esi // object
  push eax // visual name
  call GetTargetVisualName

  pop ecx
  mov [ecx], eax

  popad
  pop eax

  //original 
  mov [edi],00000000
end;

function SkipSavedObjectIfNeeded(file_stream:pIReader):boolean;stdcall;
var
  spawn_sz:word;
  update_sz:word;
  data:PAnsiChar;
  cnt:integer;
  u_id:word;
  section:PAnsiChar;
begin
  result:=false;
  data:=@file_stream^.data[file_stream^.pos];
  spawn_sz:=PWord(@data[0])^;
  u_id:=PWord(@data[2])^;
  if u_id<>1 then exit; //M_SPAWN

  section:=@data[4];
  if not game_ini_section_exist(section) then begin
    result:=true;
  end else if game_ini_r_bool_def('gunslinger_autoremove_items', section, false) then begin
    result:=true;
  end;

  if result then begin
    Log('Preventing load of '+section);
    update_sz:=PWord(@data[spawn_sz+2])^;
    file_stream^.pos:=file_stream^.pos+update_sz+spawn_sz+4;
    if file_stream^.pos > file_stream^.size then file_stream^.pos := file_stream^.size;
  end;
end;

procedure CALifeObjectRegistry__get_object_Patch();stdcall;
asm
  mov eax, [esp+8]
  pushad
  push eax
  call SkipSavedObjectIfNeeded
  test al, al
  popad

  je @object_valid
  pop eax //ret addr
  xor eax, eax
  ret


  @object_valid:
  //original
  mov eax,$405C;
end;

procedure CALifeObjectRegistry__load_Patch(); stdcall;
asm
  test eax, eax
  jne @valid_object
  add esp, 8
  mov edx, xrgame_addr
  add edx, $a646e
  jmp edx


  @valid_object:
  // original
  mov ecx,[ebp-08]
  mov [esi],eax
end;

function Init():boolean;stdcall;
var
  jmp_addr, jmp_addr_to:cardinal;
begin
  _update_dist_koef:=1.0;

  //çàòû÷êà îò âûëåòà mp_ranks
  result:=false;
  jmp_addr:=xrGame_addr+$4CCD0E;
  if not WriteJump(jmp_addr, cardinal(@get_rank_Patch), 47, true) then exit;

  //ýêñïîðò ôóíêöèé ïîëó÷åíèÿ ëîêàëüíûõ îñåé CScriptGameObject
  jmp_addr:=xrGame_addr+$1D8D9D;
  if not WriteJump(jmp_addr, cardinal(@CScriptGameObject_ExportAxisVectors), 8, true) then exit;



  //[bug] áàã -â CLevel::ClientSend èñïðàâëÿåì if (GameID() == eGameIDSingle || OnClient()) íà if (GameID() != eGameIDSingle || OnClient()) - thanks to Shoker
  if not nop_code(xrGame_addr+$238D55, 1, CHR($75)) then exit;

  //[bug] áàã - çàáûòûé äåôàéí íà DX11 â void dxFontRender::OnRender(CGameFont &owner), ñòðîêà 120, ïðèâîäèò ê ìûëó
  if xrRender_R4_addr<>0 then begin
    if not nop_code(xrRender_R4_addr+$C7345, 4) then exit;
    if not nop_code(xrRender_R4_addr+$C735F, 4) then exit;    
  end;

  jmp_addr:=xrGame_addr+$1ECFF6;
  cscriptgameobject_restoreweaponimmediatly_addr := @CScriptgameobject__restoreweaponimmediatly;
  if not WriteJump(jmp_addr, cardinal(@register_cscriptgameobject_methods), 8, true) then exit;


  //[bug] áàã ñ ëàìïî÷êàìè - thanks to SkyLoader; óáèðàåì óñëîâèå â CHangingLamp::TurnOff, ÷òîáû processing_deactivate ñðàáàòûâàë âñåãäà
  if not nop_code(xrGame_addr+$2957e7, 2) then exit;

  //[bug] áàã ñ VSync - thanks to SkyLoader; çäåñü ïðàâèì äëÿ DirectX 8/9, èñïðàâëåíèÿ äëÿ DirectX 10/11 ñìîòðåòü â LensDoubleRender
  if xrRender_R2_addr<>0 then begin
    jmp_addr:=xrRender_R2_addr+$73e86;
    if not WriteJump(jmp_addr, cardinal(@CHW__CreateDevice_VSync_R1_R2), 7, true) then exit;
    jmp_addr:=xrRender_R2_addr+$73718;
    if not WriteJump(jmp_addr, cardinal(@CHW__Reset_VSync_R1_R2), 10, true) then exit;

  end else if xrRender_R1_addr<>0 then begin
    jmp_addr:=xrRender_R1_addr+$4B6F6;
    if not WriteJump(jmp_addr, cardinal(@CHW__CreateDevice_VSync_R1_R2), 7, true) then exit;
    jmp_addr:=xrRender_R1_addr+$4AF88;
    if not WriteJump(jmp_addr, cardinal(@CHW__Reset_VSync_R1_R2), 10, true) then exit;
  end;

  //[bug] Áàã ñ íåêîððåêòíûì ïîâåäåíèåì êàìåðû - êîãäà ýôôåêòîð çàêàí÷èâàåò ðàáîòó, îí óäàëÿåòñÿ â CCameraManager::ProcessCameraEffector
  //Íî öèêë â CCameraManager::UpdateCamEffectors íè÷åãî îá ýòîì íå çíàåò, è ñìåùàåò reverse iterator, ïðîïóñêàÿ îáðàáîòêó îäíîãî ýôôåêòîðà
  //äëÿ ôèêñà: 1) çàñòàâèì CCameraManager::ProcessCameraEffector âîçâðàùàòü true, êîãäà óäàëÿòü ýôôåêòîð íå íàäî, è false â ïðîòèâíîì ñëó÷àå
  nop_code(xrEngine_addr+$2cb4d, 2);
  // 2) Âûðåæåì óäàëåíèå ýôôåêòîðà èç CCameraManager::ProcessCameraEffector
  jmp_addr := xrEngine_addr+$2cb52;
  jmp_addr_to := xrEngine_addr+$2cbc8;
  if not WriteJump(jmp_addr, jmp_addr_to, 5, false) then exit;
  // 3) Äîáàâèì óäàëåíèå ýôôåêòîðà â CCameraManager::UpdateCamEffectors êîãäà ProcessCameraEffector âîçâðàùàåò false
  jmp_addr:=xrEngine_addr+$2cc10;
  if not WriteJump(jmp_addr, cardinal(@CCameraManager__UpdateCamEffectors_removefinishedeff_Patch), 5, true) then exit;


  get_addons_state_ptr:=@get_addons_state_adapter;
  set_addons_state_ptr:=@set_addons_state_adapter;
  set_scope_idx_ptr:=@set_scope_idx_adapter;
  jmp_addr:=xrgame_addr+$1d813d;
  if not WriteJump(jmp_addr, cardinal(@script_register_game_object1_patch), 8, true) then exit;

  // â CPHSimpleCharacter::UpdateDynamicDamage (xrPhysics+22980) äîáàâëÿåì ïîâðåæäåíèå îðóæèÿ îò óäàðîâ
  jmp_addr:=xrphysics_addr+$22b57;
  if not WriteJump(jmp_addr, cardinal(@CPHSimpleCharacter__UpdateDynamicDamage_Patch), 5, true) then exit;

  //â CObjectList::Update ïåðåä âûçîâîì CStatTimer::Begin äîáàâëÿåì íàø êîä, ñòàðòóþùèé çàìåð âðåìåíè àïäåéòà
  jmp_addr:=xrEngine_addr+$1b4c5;
  if not WriteJump(jmp_addr, cardinal(@CObjectList__Update_StartCountUpdateTime_Patch), 6, true) then exit;
  //â CObjectList::Update ïîñëå âûçîâà CStatTimer::End äîáàâëÿåì íàø êîä, îáðàáàòûâàþùèé âðåìÿ àïäåéòà
  jmp_addr:=xrEngine_addr+$1b5f5;
  if not WriteJump(jmp_addr, cardinal(@CObjectList__Update_UpdateTimeCounter_Patch), 6, true) then exit;

  // â CObjectList::Update îòêëþ÷àåì àïäåéò äëÿ êàäðà ëèíçû
  jmp_addr:=xrEngine_addr+$1b3c0;
  if not WriteJump(jmp_addr, cardinal(@CObjectList__Update_SkipUpdate_Patch), 6, true) then exit;

  // â CMosquitoBald::UpdateSecondaryHit äîáàâëÿåì âîçìîæíîñòü çàäàâàòü òèï "âòîðè÷íîãî" óðîíà
  jmp_addr:=xrGame_addr+$30ed2d;
  if not WriteJump(jmp_addr, cardinal(@CMosquitoBald__UpdateSecondaryHit_SecondaryHitType_Patch), 6, true) then exit;

  // â CCustomZone::feel_touch_new óäàëÿåì áîëòû ïðè âîñïðîèçâåäåíèè ïàðòèêëà
  jmp_addr:=xrGame_addr+$30c01b;
  if not WriteJump(jmp_addr, cardinal(@CCustomZone__feel_touch_new_detectbolts_Patch), 6, true) then exit;

  // ýêñïîðò ìåòîäà CSE_ALifeItemWeapon::clone_upgrades íà îñíîâå CSE_ALifeItemWeapon::clone_addons
  clone_upgrades_ptr:=@clone_upgrades_adapter;
  jmp_addr:=xrGame_addr+$3f0e35;
  if not WriteJump(jmp_addr, cardinal(@CSE_ALifeItemWeapon_exports_Patch), 5, true) then exit;

  // îòêëþ÷àåì êåøèðîâàíèå øåéäåðîâ â CRender::shader_compile
  if not IsShadersCacheNeeded() then begin
    // ìåíÿåì test eax, eax íà xor eax, eax ïîñëå FS.exist(file_name), çàñòàâëÿÿ èãðó äóìàòü, ÷òî ôàéë íå êåøèðîâàí
    if xrRender_R1_addr<>0 then begin
      nop_code(xrRender_R1_addr+$6999, 1, chr($31));
    end else if xrRender_R2_addr<>0 then begin
      nop_code(xrRender_R2_addr+$7fb6, 1, chr($31));
    end else if xrRender_R3_addr<>0 then begin
      nop_code(xrRender_R3_addr+$18af6, 1, chr($31));
    end else if xrRender_R4_addr<>0 then begin
      nop_code(xrRender_R4_addr+$18ad6, 1, chr($31));
    end;

    //îòêëþ÷àåì ïîïûòêè çàïèñàòü ñêîìïèëèðîâàííûé øåéäåð â êåø
    if xrRender_R1_addr<>0 then begin
      nop_code(xrRender_R1_addr+$6ac6, $CB);
    end else if xrRender_R2_addr<>0 then begin
      nop_code(xrRender_R2_addr+$811e, $CC);
    end else if xrRender_R3_addr<>0 then begin
      nop_code(xrRender_R3_addr+$18c1f, $CC);
    end else if xrRender_R4_addr<>0 then begin
      nop_code(xrRender_R4_addr+$18c1c, $CA);
      nop_code(xrRender_R4_addr+$18c1c, 1, chr($58));
    end;
  end;

  //  CScriptBinder::clear âûäàåì ñîîáùåíèå î òîì, ÷òî áèíäåð óìåð â ðåçóëüòàòå èñêëþ÷åíèÿ
  jmp_addr:=xrGame_addr+$c1516;
  if not WriteJump(jmp_addr, cardinal(@CScriptBinder__clear_notifier_Patch), 10, true) then exit;

  //  CScriptBinder::reload îáðàáàòûâàåì äàííûå î òîì, êàêîé áèíäåð ìû ñåé÷àñ ñîáèðàåìñÿ ñîçäàâàòü
  jmp_addr:=xrGame_addr+$c1a96;
  if not WriteJump(jmp_addr, cardinal(@CScriptBinder__reload_start_Patch), 6, true) then exit;

  // Â CPatrolPathParams::CPatrolPathParams âîññòàíàâëèâàåì âûðåçàííûé êîìïèëÿòîðîì àññåðò íà íåíàéäåííûé ïóòü
  jmp_addr:=xrGame_addr+$19eca6;
  if not WriteJump(jmp_addr, cardinal(@CPatrolPathParams__CPatrolPathParams_notifier_Patch), 7, true) then exit;

  //  CKinematicsAnimated::Load ïîäìåíÿåì ñïèñîê íàçíà÷åííûõ ìîäåëè ÎÌÔîâ
  if xrRender_R1_addr<>0 then begin
    jmp_addr:=xrRender_R1_addr+$7218f;
    if not WriteJump(jmp_addr, cardinal(@CKinematicsAnimated__Load_newomfs_Patch), 6, true) then exit;
    jmp_addr:=xrRender_R1_addr+$72560;
    if not WriteJump(jmp_addr, cardinal(@CKinematicsAnimated__Load_restorereader_Patch), 6, true) then exit;

  end else if xrRender_R2_addr<>0 then begin
    jmp_addr:=xrRender_R2_addr+$9a53a;
    if not WriteJump(jmp_addr, cardinal(@CKinematicsAnimated__Load_newomfs_Patch), 6, true) then exit;
    jmp_addr:=xrRender_R2_addr+$9a8fc;
    if not WriteJump(jmp_addr, cardinal(@CKinematicsAnimated__Load_restorereader_Patch), 6, true) then exit;

  end else if xrRender_R3_addr<>0 then begin
    jmp_addr:=xrRender_R3_addr+$a6efa;
    if not WriteJump(jmp_addr, cardinal(@CKinematicsAnimated__Load_newomfs_Patch), 6, true) then exit;
    jmp_addr:=xrRender_R3_addr+$a72bc;
    if not WriteJump(jmp_addr, cardinal(@CKinematicsAnimated__Load_restorereader_Patch), 6, true) then exit;
    
  end else if xrRender_R4_addr<>0 then begin
    jmp_addr:=xrRender_R4_addr+$b115a;
    if not WriteJump(jmp_addr, cardinal(@CKinematicsAnimated__Load_newomfs_Patch), 6, true) then exit;
    jmp_addr:=xrRender_R4_addr+$b151c;
    if not WriteJump(jmp_addr, cardinal(@CKinematicsAnimated__Load_restorereader_Patch), 6, true) then exit;

  end;

  // Â ParseFile èç xrXMLParser äîáàâëÿåì äèðåêòèâó èíêëóäà ôàéëîâ èç äèðåêòîðèè 
  jmp_addr:=xrXmlParser_addr+$1935;
  if not WriteJump(jmp_addr, cardinal(@xrXmlParser_ParseFile_includedir_Patch), 7, true) then exit;

  // Â CGameObject::net_Spawn êîððåêòèðóåì ïîçèöèþ ïðè ïåðåõîäå â îíëàéí
  jmp_addr:=xrgame_addr+$280d1e;
  if not WriteJump(jmp_addr, cardinal(@CGameObject__net_Spawn_correctbeforeonline_Patch), 7, true) then exit;

  //  CGameObject::net_Spawn ïðîèçâîäèì ïåðåâû÷èòêó âèçóàëà èç êîíôèãà, èãíîðèðóÿ ñîõðàíåííûé - íóæíî ÷òîáû â ñëó÷àå, êîãäà ïóòü ê âèçóàëó ïîìåíÿëñÿ, ñåéâû èñïîëüçîâàëè íîâûé
  jmp_addr:=xrgame_addr+$280b8c;
  if not WriteJump(jmp_addr, cardinal(@CGameObject__net_Spawn_correctvisual_Patch), 6, true) then exit;

  //Â CALifeObjectRegistry::get_object ïðîïóñêàåì îáúåêòû, ñåêöèè êîòîðûõ íå ñóùåñòâóþò
  jmp_addr:=xrgame_addr+$a5dd0;
  if not WriteJump(jmp_addr, cardinal(@CALifeObjectRegistry__get_object_Patch), 5, true) then exit;

  //Â CALifeObjectRegistry::load ïðîïóñêàåì íåâàëèäíûå îáúåêòû
  jmp_addr:=xrgame_addr+$a642f;
  if not WriteJump(jmp_addr, cardinal(@CALifeObjectRegistry__load_Patch), 5, true) then exit;

  result:=true;
end;


var
  g_hudNearClip:single;
  g_negHudNearClip:single;

function GetHudNearClipPtr():psingle; stdcall;
begin
  g_hudNearClip:=0.02;
  result:=@g_hudNearClip;
end;

function GetNegHudNearClipPtr():psingle; stdcall;
begin
  g_negHudNearClip:=-0.02;
  result:=@g_negHudNearClip;
end;

procedure get_bone_position(obj:pointer; bone_name:pAnsiChar; res:pFVector3); stdcall;
asm
  pushad
    push bone_name
    push obj
    push res
    mov eax, xrgame_addr
    add eax, $cef70
    call eax
    add esp, $c
  popad
end;

procedure CSE_ALifeInventoryItem__add_upgrade(itm:pCSE_ALifeInventoryItem; up:pshared_str); stdcall;
asm
  pushad
    push up
    mov ecx, itm
    mov eax, xrgame_addr
    add eax, $3e1f90
    call eax
  popad
end;

procedure CSE_ALifeInventoryItem__clone_upgrades(itm_to:pCSE_ALifeInventoryItem; itm_from:pCSE_ALifeInventoryItem); stdcall;
var
  cnt, i:integer;
  up:pshared_str;
begin
  cnt:=items_count_in_vector(@itm_from.m_upgrades, sizeof(shared_str));

  for i:=0 to cnt-1 do begin
    up:=get_item_from_vector(@itm_from.m_upgrades, i, sizeof(shared_str));
    CSE_ALifeInventoryItem__add_upgrade(itm_to, up);
  end;
end;

// CInventory::Update - xrgame.dll+2a83a0
// CScriptGameObject::buy_supplies - xrgame.dll+1c3df0
// CMosquitoBald::UpdateSecondaryHit - xrgame.dll+30ea90
// CShootingObject::StartShotParticles - xrgame.dll+2bbee0
// CShootingObject::StartFlameParticles - xrgame.dll+2bbdb0

// CScriptBinder::clear  - xrGame.dll+c14f0
// CScriptBinder::net_Spawn - xrGame.dll+c15e0
// CPatrolPathParams::CPatrolPathParams - xrgame.dll+19ebf0
end.