xr_BoneUtils.pas

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

interface

procedure SetWorldModelBoneStatus(wpn: pointer; bone_name:PChar; status:boolean); stdcall;
procedure SetHudModelBoneStatus(wpn: pointer; bone_name:PChar; status:boolean); stdcall;
procedure SetWeaponModelBoneStatus(wpn: pointer; bone_name:PChar; status:boolean); stdcall;
procedure SetWeaponMultipleBonesStatus(wpn: pointer; bones:PChar; status:boolean); stdcall;
procedure SetWorldModelMultipleBonesStatus(wpn: pointer; bones:PChar; status:boolean); stdcall;
function IKinematics__LL_BoneID(IKinematics:pointer; name:PChar):word; stdcall;

implementation
uses BaseGameData, ActorUtils, HudItemUtils, DetectorUtils, xr_strings;

procedure SetWeaponMultipleBonesStatus(wpn: pointer; bones:PChar; status:boolean); stdcall;
var
  bones_string:string;
  bone:string;
begin
  bones_string:=bones;
  while (GetNextSubStr(bones_string, bone, ',')) do begin
    SetWeaponModelBoneStatus(wpn, PChar(bone), status);
  end;
end;

procedure SetWorldModelMultipleBonesStatus(wpn: pointer; bones:PChar; status:boolean); stdcall;
var
  bones_string:string;
  bone:string;
begin
  bones_string:=bones;
  while (GetNextSubStr(bones_string, bone, ',')) do begin
    SetWorldModelBoneStatus(wpn, PChar(bone), status);
  end;
end;


procedure SetWeaponModelBoneStatus(wpn: pointer; bone_name:PChar; status:boolean); stdcall;
var
  act:pointer;
begin
  act:=GetActor();
  if (act<>nil) and ((GetActorActiveItem() = wpn) or (GetActiveDetector(act)=wpn)) then begin
    SetHudModelBoneStatus(wpn, bone_name, status);
  end;
  SetWorldModelBoneStatus(wpn, bone_name, status);
end;

procedure SetHudModelBoneStatus(wpn: pointer; bone_name:PChar; status:boolean); stdcall;
asm
    pushad
    pushfd

    //Ïîëó÷èì îñíîâíîé îáúåêò attachable_hud_item
    push wpn
    call CHudItem__HudItemData
    test eax, eax
    je @finish
    mov esi, eax
    //Ïîìåñòèì bone_name â str_container
    push bone_name
    call str_container_dock
    test eax, eax
    je @finish
    push eax
    push esp //ñðàçó çàãíàëè â ñòåê àðãóìåíò - óêàçàòåëü íà óêàçàòåëü íà îáúåêò-ñòðîêó ñ èìåíåì êîñòè

    //Äàëåå íàéäåì è âûçîâåì ôóíêöèþ îïðåäåëåíèÿ èíäåêñà êîñòè
    mov eax, [esi+$0C] //mov eax, IKinematics* m_model
    mov ecx, [eax]
    mov edx, [ecx+$10]
    push eax
    call edx           //call m_model->LL_BoneID
    add esp, 4
    movzx edi, ax
    cmp di, $FFFF
    je @finish

    //Òåïåðü âûçîâåì ôóíêöèþ óñòàíîâêè ñòàòóñà äëÿ íàéäåííîé êîñòè
    push 00 //âèäèìîñòü äî÷åðíèõ êîñòåé íå ìåíÿòü
    movzx eax, status
    push eax
    push edi
    mov ecx, [esi+$0C]  //mov ecx, IKinematics* m_model
    mov eax, [ecx]
    mov edx, [eax+$60]
    call edx            //call m_model->LL_SetBoneVisible

    @finish:
    popfd
    popad
end;

procedure SetWorldModelBoneStatus(wpn: pointer; bone_name:PChar; status:boolean); stdcall;
asm
    pushad
    pushfd
    //Ïîëó÷èì èíäåêñ êîñòè â ñêåëåòå
    push bone_name
    call str_container_dock
    test eax, eax
    je @finish
    push eax
    push esp //ñîõðàíèëè óêàçàòåëü íà óêàçàòåëü íà îáúåêò-ñòðîêó ñ èìåíåì êîñòè

    mov edi, wpn
    test edi, edi
    je @before_finish
    mov esi, [edi+$178]   //Ïîìåùàåì pVisual â esi
    test esi, esi
    je @before_finish
    push esi
    mov eax, xrgame_addr
    add eax, $3483C0
    call eax
    add esp, 4  //ñíèìàåì ñî ñòåêà àðãóìåíò ôóíêöèè
    mov esi, eax
    push esi
    mov edx, [esi]
    mov edx, [edx+$10]
    call edx  //ïîëó÷àåì èíäåêñ èíòåðåñóþùåé íàñ êîñòè (â ax)
    add esp, 4  //ñíèìàåì íàøó ñîõðàíåííóþ "ñòðîêó"
    movzx ebx, ax
    cmp ebx, $FFFF //Ïðîâåðÿåì, îáíàðóæåíà ëè òàêàÿ êîñòü âîîáùå
    je @finish

    //ïîëó÷èì àäðåñ íàøåé ôóíêöèè, ïîêàçûâàþùåé/ñêðûâàþùåé êîñòü
    mov edx, [esi]
    mov edx, [edx+$60]
    //à òåïåðü âûïîëíèì îïåðàöèþ ñîêðûòèÿ\îòîáðàæåíèÿ
    movzx eax, status

    push 00 //âèäèìîñòü äî÷åðíèõ êîñòåé íå ìåíÿòü
    push eax
    push ebx

    mov ecx, esi
    call edx

    jmp @finish

    @before_finish:
    add esp, 8

    @finish:
    popfd
    popad
end;

function IKinematics__LL_BoneID(IKinematics:pointer; name:PChar):word; stdcall;
asm
  mov @result, $FFFF
  pushad

  push name
  call str_container_dock
  test eax, eax
  je @finish

  push eax
  push esp

  mov eax, IKinematics
  mov ecx, [eax]
  mov edx, [ecx+$10]
  push eax
  call edx
  add esp, 4
  mov @result, ax

  @finish:
  popad
end;


end.