BLD Patching Utility Script: Created by zilav & Zzyxzz

in #fallout • 5 years ago (edited)

ALL CREDIT TO zilav & Zzyxzz

unit userscript;

//##############//##############
//Created by zilav & Zzyxzz
//##############//##############
//Instructions (READ FIRST!)
//
// This patcher is in an unfinished state. It does only work for ballistic weapons and their modifications.
// If you want to create a patch and want to know the values, to verify, it patched correctly, refer to http://www.nexusmods.com/fallout4/articles/398/?
// IT DOES NOT PATCH LEVELED LISTS!
// It can patch weapons, that stick to the vanilla modifications style, naming and keywording.
// There are weapon mods that can't be patched. As example, Modern Firearms, P90 (which has no real receivers and is completely off from vanilla.)
// If you want to patch a weapon, try to look at the modifications it has. I they are similar to the vanilla ones (Light Receiver, Hardened Receiver, Heavy Receiver, Advanced Receiver etc.)
// you are good to go.
//
// Options: Always try Name Patching first! Its the most reliable way to patch weapons.
// Name Patching; Patches receivers by finding their names.
// Keyword Patching; Patches receivers by finding keywords.
// Value Patching; This searches for values and patches them accordingly. IE, converts: 0.75 => 0.4; 0.5 0 => 0.3 etc
//
// Weapon Patching:
//
// When patching a weapon, the options you can tick are ignored/have no effect. The selected weapon will automatically patched, when hitting ok.
//
//

var
bNamePatcher, bKeywordPatcher, bValuePatcher, bArmorPenPatcher: Boolean;
armorPenValueS : string;

// multi-purpose function for changing, adding and deleting properties
function SetOMODProperty(
aOMOD: IInterface; // OMOD record
aProperty: string; // Property name
aFunctionType: string; // Function Type, if empty then delete the property
aValueType: string; // Value Type
aValue1: string; // Value 1
aValue2: string; // Value 2
aAddIfMissing: boolean // flag to add a new property if doesn't exist already
): IInterface; // returns modified or added property
var
props, prop: IInterface;
i: integer;
bFound: boolean;
begin
// getting Properties array inside DATA subrecord
props := ElementByPath(aOMOD, 'DATA\Properties');

// iterating over properties, indexed starting from 0
for i := 0 to Pred(ElementCount(props)) do begin
// getting Nth property
prop := ElementByIndex(props, i);

// compare Property field and skip to the next property if doesn't match
if GetElementEditValues(prop, 'Property') <> aProperty then
Continue;

// if empty Faction Type is passed then just delete this property and exit
if aFunctionType = '' then begin
Remove(prop);
Exit;
end;

// compare Value Type and skip to the next property if doesn't match
// this is optional and Value Type can be just set instead to ensure proper calculation
// SetElementEditValues(prop, 'Value Type', aValueType);
if GetElementEditValues(prop, 'Value Type') <> aValueType then
Continue;

// setting values if they are defined
// Value1 and Value2 fields change their name depeding on Value Type field so we can't access them by names
// so instead we will use their indexes inside Property struct which are constant and don't change
if aValue1 <> '' then
SetEditValue(ElementByIndex(prop, 6), aValue1);

if aValue2 <> '' then
SetEditValue(ElementByIndex(prop, 7), aValue2);

// we already found and changed the property, no need to check the rest
// set the flag and break out of loop
bFound := True;
Break;
end;

// if property was not found and we want to add a new one
if not bFound and aAddIfMissing then begin
// appending new property
prop := ElementAssign(props, HighInteger, False, nil);
SetElementEditValues(prop, 'Property', aProperty);
SetElementEditValues(prop, 'Function Type', aFunctionType);
SetElementEditValues(prop, 'Value Type', aValueType);
SetEditValue(ElementByIndex(prop, 6), aValue1);
SetEditValue(ElementByIndex(prop, 7), aValue2);
end;

// return property
Result := prop;
end;

function Initialize: integer;
var
frm: TForm;
btnOk, btnCancel: TButton;
chkNamePatcher, chkKeywordPatcher, chkValuePatcher, chkPenPatcher: TCheckBox;
label1 : TLabel;

begin
frm := TForm.Create(nil);
try
frm.Caption := 'BLD - Patcher';
frm.Width := 250;
frm.Height := 190;
frm.Position := poScreenCenter;
frm.BorderStyle := bsDialog;

label1 := TLabel.Create(frm);
label1.Caption := 'Choose one option:';
label1.Parent := frm;
label1.Top := 16;
label1.Left := 12; 

btnOk := TButton.Create(frm);
btnOk.Parent := frm;
btnOk.Caption := 'OK';
btnOk.ModalResult := mrOk;
btnOk.Left := frm.Width - 180;
btnOk.Top := frm.Height - 64;

btnCancel := TButton.Create(frm);
btnCancel.Parent := frm;
btnCancel.Caption := 'Cancel';
btnCancel.ModalResult := mrCancel;
btnCancel.Left := btnOk.Left + btnOk.Width + 12;
btnCancel.Top := btnOk.Top;

chkNamePatcher := TCheckBox.Create(frm);
chkNamePatcher.Parent := frm;
chkNamePatcher.Top := Label1.Top+24;
chkNamePatcher.Left := 12;
chkNamePatcher.Width := 150;
chkNamePatcher.Caption := 'Name patcher';
chkNamePatcher.Checked := True;

chkPenPatcher := TCheckBox.Create(frm);
chkPenPatcher.Parent := frm;
chkPenPatcher.Top := Label1.Top+24;
chkPenPatcher.Left := 140;
chkPenPatcher.Width := 150;
chkPenPatcher.Caption := 'ArmorPen Patcher';
chkPenPatcher.Checked := False;

chkKeywordPatcher := TCheckBox.Create(frm);
chkKeywordPatcher.Parent := frm;
chkKeywordPatcher.Top := chkNamePatcher.Top + 24;
chkKeywordPatcher.Left := chkNamePatcher.Left;
chkKeywordPatcher.Width := 150;
chkKeywordPatcher.Caption := 'Keyword patcher';

chkValuePatcher := TCheckBox.Create(frm);
chkValuePatcher.Parent := frm;
chkValuePatcher.Top := chkKeywordPatcher.Top + 24;
chkValuePatcher.Left := chkKeywordPatcher.Left;
chkValuePatcher.Width := 150;
chkValuePatcher.Caption := 'Value patcher';

// abort script if OK button was not pressed
if frm.ShowModal <> mrOk then begin
  Result := 1;
  Exit;
end;

bNamePatcher := chkNamePatcher.Checked;
bKeywordPatcher := chkKeywordPatcher.Checked;
bValuePatcher := chkValuePatcher.Checked;
bArmorPenPatcher := chkPenPatcher.Checked;

if bArmorPenPatcher then 
begin
    if not InputQuery('Enter', 'Armor Penetration Value', armorPenValueS) then begin
    Exit;
    end;
end;//end bArmorPenPatcher

finally
frm.Free;
end;
end;

function Process(e: IInterface): Integer;
var
temp:string;
tempint, j, i, weaponType: integer;
kwda: IInterface;
pistol, rifle, ballistic, rec0, rec1, rec2, rec3, recL, recAut, ammoFound: boolean;
props, prop: IInterface;
tempD : double;

begin

//##############//##############
//Start Weapon patching
//##############//##############
//


  if Signature(e) = 'WEAP' then
  begin
    kwda := ElementBySignature(e, 'KWDA');
    weaponType := 0;
    for j := 0 to ElementCount(kwda) - 1 do
    begin  
          // if (IntToHex(GetNativeValue(ElementByIndex(kwda, j)), 8) = '0004A0A0') then 
          // begin
          //   pistol := true;
          //   rifle := false;
          // end;
          if (IntToHex(GetNativeValue(ElementByIndex(kwda, j)), 8) = '0004A0A1') 
      OR (IntToHex(GetNativeValue(ElementByIndex(kwda, j)), 8) = '001E325D')
      OR (IntToHex(GetNativeValue(ElementByIndex(kwda, j)), 8) = '00226455') then // WeaponTypeRifle
          
      begin
            weaponType := 0;
          end;
          if (IntToHex(GetNativeValue(ElementByIndex(kwda, j)), 8) = '00092A86') then // WeaponTypeBallistic
          begin
            ballistic := true;
          end;      
    end;

  if ballistic then //Patches only weapons with the keyword WeaponTypeBallistic. {FORMID: 00092A86} 
  begin
      SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - OutOfRange Mult'), '0.75');
      SetEditValue(ElementByPath(e, 'DNAM - Data\On Hit'), 'No dismember/explode');

      if weaponType>0 then
      SetEditValue(ElementByPath(e, 'DNAM - Data\Reload Speed'), '0.75')
      else
      SetEditValue(ElementByPath(e, 'DNAM - Data\Reload Speed'), '0.83');


      if (IntToHex(GetNativeValue(ElementByPath(e, 'DNAM - Data\Ammo')), 8) = '0001F66C' ) then //5mm
      begin
        tempint := random(3)+37+weaponType;
        SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - Base'), IntToStr(tempint) );
      ammoFound := true;
      end;

      if (IntToHex(GetNativeValue(ElementByPath(e, 'DNAM - Data\Ammo')), 8) = '0004CE87' ) then //.38
      begin
        tempint := random(4)+38+weaponType;
        SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - Base'), IntToStr(tempint) );
      ammoFound := true;
      end;
     
      if (IntToHex(GetNativeValue(ElementByPath(e, 'DNAM - Data\Ammo')), 8) = '0001F276' ) then //10mm
      begin
        tempint := random(4)+40+weaponType;
        SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - Base'), IntToStr(tempint) );
      ammoFound := true;
      end;
      
      if (IntToHex(GetNativeValue(ElementByPath(e, 'DNAM - Data\Ammo')), 8) = '0009221C' ) then //.44
      begin
        tempint := random(4)+61+weaponType;
        SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - Base'), IntToStr(tempint) );
      ammoFound := true;
      end;
      
      if (IntToHex(GetNativeValue(ElementByPath(e, 'DNAM - Data\Ammo')), 8) = '0001F66A' ) then //.45
      begin
        tempint := random(4)+42+weaponType;
        SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - Base'), IntToStr(tempint) );
      end;
      if (IntToHex(GetNativeValue(ElementByPath(e, 'DNAM - Data\Ammo')), 8) = '0001F673' ) then //Shells
      begin
        tempint := random(6)+85+weaponType;
        SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - Base'), IntToStr(tempint) );
        SetEditValue(ElementByPath(e, 'DNAM - Data\On Hit'), 'Explode only');
      ammoFound := true;
      end;
      if (IntToHex(GetNativeValue(ElementByPath(e, 'DNAM - Data\Ammo')), 8) = '0001F278' ) then //5.56
      begin
        tempint := random(4)+44+weaponType;
        SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - Base'), IntToStr(tempint) );
      ammoFound := true;
      end;
      if (IntToHex(GetNativeValue(ElementByPath(e, 'DNAM - Data\Ammo')), 8) = '0001F66B' ) then //.308
      begin
        tempint := random(7)+75+weaponType;
        SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - Base'), IntToStr(tempint) );
      ammoFound := true;
      end;
      if (pos('DLC04_Ammo_HandmadeRound',GetEditValue(ElementByPath(e, 'DNAM - Data\Ammo'))) > 0) then //7.62
      begin
        tempint := random(4)+52+weaponType;
        SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - Base'), IntToStr(tempint) );
      ammoFound := true;
      AddMessage('Add an armor penetration value of 20 for an OMOD(all Barrels or all Grips) of your choice with the Armor Penetration Patcher.'+ GetEditValue(ElementBySignature(e, 'FULL')));
      end;
      if not ammoFound then 
      begin
        tempint := random(4)+40+weaponType;
        SetEditValue(ElementByPath(e, 'DNAM - Data\Damage - Base'), IntToStr(tempint) );
        AddMessage('Custom Ammo('+GetEditValue(ElementByPath(e, 'DNAM - Data\Ammo'))+') in Weapon: '+ GetEditValue(ElementBySignature(e, 'FULL'))+' please adjust to your liking. Standard values have been set.');
      end;
  AddMessage('Ballistic Weapon Updated: '+ GetEditValue(ElementBySignature(e, 'FULL')));
  end; //end Ballistic

  end; //end Signature WEAP

//##############//##############
//Start OMOD patching
//##############//##############
//

  if Signature(e) = 'OMOD' then
  begin


//##############//##############
//Start automatic receivers
//##############//##############
//


  // getting Properties array inside DATA subrecord

props := ElementByPath(e, 'DATA\Properties');

// iterating over properties, indexed starting from 0
for i := 0 to Pred(ElementCount(props)) do
begin
// getting Nth property
prop := ElementByIndex(props, i);
if GetElementEditValues(prop, 'Value Type') = 'FormID,Int' then
begin
if( (IntToHex(GetNativeValue(ElementByIndex(prop, 6)), 8) = '00163038' ) ) then begin //StandardReceiverKeyword
rec0:=true; end;
if( (IntToHex(GetNativeValue(ElementByIndex(prop, 6)), 8) = '0016303D' ) ) then begin //More1ReceiverKeyword
rec1:=true; end;
if( (IntToHex(GetNativeValue(ElementByIndex(prop, 6)), 8) = '00163040' ) ) then begin //More2ReceiverKeyword
rec2:=true; end;
if( (IntToHex(GetNativeValue(ElementByIndex(prop, 6)), 8) = '00163042' ) ) then begin //More3ReceiverKeyword
rec3:=true; end;
if( (IntToHex(GetNativeValue(ElementByIndex(prop, 6)), 8) = '0002C874' ) OR (IntToHex(GetNativeValue(ElementByIndex(prop, 6)), 8) = '0023844D' ) ) then begin //AutomaticReceiverKeyword
recAut:=true; end;
if( (IntToHex(GetNativeValue(ElementByIndex(prop, 6)), 8) = '00163039' ) OR (IntToHex(GetNativeValue(ElementByIndex(prop, 6)), 8) = '0023844D' ) ) then begin //LightReceiverKeyword
recL:=true; end;
end;
if GetElementEditValues(prop, 'Property') = 'AttackDamage' then
begin

    tempD := strtofloat(GetEditValue(ElementByIndex(prop, 6)));
    if( tempD > 0.10 ) then begin //StandardReceiverKeyword
        temp:='0.20'; end;
    if( tempD > 0.25  ) then begin //StandardReceiverKeyword
        temp:='0.30'; end;
    if( tempD > 0.50  ) then begin //StandardReceiverKeyword
        temp:='0.40'; end;
    if( tempD = (-0.10) ) then begin //StandardReceiverKeyword
        temp:='0.05'; end;
    if( tempD < (-0.10) ) then begin //StandardReceiverKeyword
        temp:='0.00'; end;
    if( tempD > 0.75  ) then begin //StandardReceiverKeyword
        temp:='0.45'; end;                                                          
end;

end;

if bNamePatcher then 
begin

    if(((pos('eceiver',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND (pos('utomatic',GetEditValue(ElementBySignature(e, 'EDID'))) > 0)) OR recAut)  then   
    begin
      if((pos('utomatic1',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) OR (pos('Automatic Receiver',GetEditValue(ElementBySignature(e, 'FULL'))) > 0) OR (pos('Armor Piercing Automatic Receiver',GetEditValue(ElementBySignature(e, 'FULL'))) > 0))  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Improved rate of fire.');
      SetOMODProperty(e, 'MaxRange', 'MUL+ADD', 'Float', '-3.5', '', True);
      SetOMODProperty(e, 'MinRange', 'MUL+ADD', 'Float', '-1.0', '', True);
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.00', '', true);

      end;

      if(((pos('utomatic1',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND (pos('amage1',GetEditValue(ElementBySignature(e, 'EDID'))) > 0)) OR (pos('Hardened',GetEditValue(ElementBySignature(e, 'FULL'))) > 0) OR (pos('Hardened Piercing Auto Receiver',GetEditValue(ElementBySignature(e, 'FULL'))) > 0) )  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Improved rate of fire and damage.');
      SetOMODProperty(e, 'MaxRange', 'MUL+ADD', 'Float', '-3.5', '', True);
      SetOMODProperty(e, 'MinRange', 'MUL+ADD', 'Float', '-1.0', '', True);
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.15', '', true);

      end;

      if(((pos('utomatic1',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND (pos('amage2',GetEditValue(ElementBySignature(e, 'EDID'))) > 0)) OR (pos('Powerful',GetEditValue(ElementBySignature(e, 'FULL'))) > 0) )  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Superior damage and rate of fire.');
      SetOMODProperty(e, 'MaxRange', 'MUL+ADD', 'Float', '-3.5', '', True);
      SetOMODProperty(e, 'MinRange', 'MUL+ADD', 'Float', '-1.0', '', True);
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.30', '', true);

      end;

      if((pos('utomatic2',GetEditValue(ElementBySignature(e, 'EDID'))) > 0 ) OR (pos('apid',GetEditValue(ElementBySignature(e, 'FULL'))) > 0) )  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Superior damage, rate of fire and range.');
      SetOMODProperty(e, 'MaxRange', 'MUL+ADD', 'Float', '-1.5', '', True);
      SetOMODProperty(e, 'MinRange', 'MUL+ADD', 'Float', '-1.0', '', True);
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.15', '', true);

      end;
     // AddMessage('Found Automatic Receiver!' + GetEditValue(ElementBySignature(e, 'EDID')));
    end;//end automatic receiver


//##############//##############
//Start non automatic receivers
//##############//##############
//

    if((pos('eceiver',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND not(pos('utomatic',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) OR ((pos('eceiver',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND  not recAut))  then   
    begin
      if(pos('Light Frame Receiver',GetEditValue(ElementBySignature(e, 'FULL'))) > 0 OR (pos('ighter',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) OR (pos('Light Frame Receiver',GetEditValue(ElementBySignature(e, 'FULL'))) > 0))  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Lighter weight. Better damage.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.05', '', true);

      end;
      if(pos('ardened',GetEditValue(ElementBySignature(e, 'FULL'))) > 0 OR (pos('oreDamage1',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) OR (pos('Hardened Receiver',GetEditValue(ElementBySignature(e, 'FULL'))) > 0))  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Better damage.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.20', '', true);

      end;

      if((pos('owerful',GetEditValue(ElementBySignature(e, 'FULL'))) > 0) OR (pos('oreDamage2',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) OR (pos('Powerful Receiver',GetEditValue(ElementBySignature(e, 'FULL'))) > 0))  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Superior damage.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.30', '', true);

      end;

      if((pos('Calibrated Powerful Receiver',GetEditValue(ElementBySignature(e, 'FULL'))) > 0) OR (pos('oreDamage2_and_BetterCriticals',GetEditValue(ElementBySignature(e, 'EDID'))) > 0)  )  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Superior damage. Better critical shot damage and accuracy.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.30', '', true);

      end;

      if((pos('dvanced',GetEditValue(ElementBySignature(e, 'FULL'))) > 0) OR (pos('oreDamage3',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) )  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Exceptional damage. More sensitive trigger. Better rate of fire.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.40', '', true);

      end;
      //AddMessage('Found Normal Receiver! ' + GetEditValue(ElementBySignature(e, 'EDID')));
    end;//end NOT automatic receiver
  end;//end NamePatcher



if bKeywordPatcher then 
begin

    if(((pos('eceiver',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND (pos('utomatic',GetEditValue(ElementBySignature(e, 'EDID'))) > 0)) OR recAut)  then   
    begin
      if recAut  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Improved rate of fire.');
      SetOMODProperty(e, 'MaxRange', 'MUL+ADD', 'Float', '-3.5', '', True);
      SetOMODProperty(e, 'MinRange', 'MUL+ADD', 'Float', '-1.0', '', True);
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.00', '', true);

      end;
      if rec0  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Improved rate of fire.');
      SetOMODProperty(e, 'MaxRange', 'MUL+ADD', 'Float', '-3.5', '', True);
      SetOMODProperty(e, 'MinRange', 'MUL+ADD', 'Float', '-1.0', '', True);
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.00', '', true);

      end;

      if rec1  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Improved rate of fire and damage.');
      SetOMODProperty(e, 'MaxRange', 'MUL+ADD', 'Float', '-3.5', '', True);
      SetOMODProperty(e, 'MinRange', 'MUL+ADD', 'Float', '-1.0', '', True);
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.15', '', true);

      end;

      if rec2  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Superior damage and rate of fire.');
      SetOMODProperty(e, 'MaxRange', 'MUL+ADD', 'Float', '-3.5', '', True);
      SetOMODProperty(e, 'MinRange', 'MUL+ADD', 'Float', '-1.0', '', True);
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.30', '', true);

      end;

      if rec3  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Superior damage, rate of fire and range.');
      SetOMODProperty(e, 'MaxRange', 'MUL+ADD', 'Float', '-1.5', '', True);
      SetOMODProperty(e, 'MinRange', 'MUL+ADD', 'Float', '-1.0', '', True);
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.15', '', true);

      end;
     // AddMessage('Found Automatic Receiver!' + GetEditValue(ElementBySignature(e, 'EDID')));
    end;//end automatic receiver


//##############//##############
//Start non automatic receivers
//##############//##############
//

    if((pos('eceiver',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND not(pos('utomatic',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) OR ((pos('eceiver',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND  not recAut))  then   
    begin
      if recL  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Lighter weight. Better damage.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.05', '', true);

      end;
      if rec1  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Better damage.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.20', '', true);

      end;

      if rec2  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Superior damage.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.30', '', true);

      end;

      if rec2  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Superior damage. Better critical shot damage and accuracy.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.30', '', true);

      end;

      if rec3  then   
      begin
      SetEditValue(ElementByName(e, 'DESC - Description'), 'Exceptional damage. More sensitive trigger. Better rate of fire.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', '0.40', '', true);

      end;
      //AddMessage('Found Normal Receiver! ' + GetEditValue(ElementBySignature(e, 'EDID')));
    end;//end NOT automatic receiver
  end;//end KeywordPatcher



if bValuePatcher then 
begin

    if(((pos('eceiver',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND (pos('utomatic',GetEditValue(ElementBySignature(e, 'EDID'))) > 0)) OR recAut)  then   
    begin

      //SetEditValue(ElementByName(e, 'DESC - Description'), 'Improved rate of fire.');
      SetOMODProperty(e, 'MaxRange', 'MUL+ADD', 'Float', '-3.5', '', True);
      SetOMODProperty(e, 'MinRange', 'MUL+ADD', 'Float', '-1.0', '', True);
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', temp, '', true);
    end;//end automatic receiver


//##############//##############
//Start non automatic receivers
//##############//##############
//

    if((pos('eceiver',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND not(pos('utomatic',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) OR ((pos('eceiver',GetEditValue(ElementBySignature(e, 'EDID'))) > 0) AND  not recAut))  then   
    begin

      //SetEditValue(ElementByName(e, 'DESC - Description'), 'Better damage.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', temp, '', false);
    
    end;//end NOT automatic receiver

    if(pos('eceiver',GetEditValue(ElementBySignature(e, 'EDID'))) = 0 )  then   
    begin
      //SetEditValue(ElementByName(e, 'DESC - Description'), 'Better damage.');
      SetOMODProperty(e, 'AttackDamage', 'MUL+ADD', 'Float', temp, '', false);
    end;

  end;//end ValuePatcher

if bArmorPenPatcher then 
begin
  SetOMODProperty(e, 'ActorValues', 'ADD', 'FormID,Float', '00097341', armorPenValueS, True);
  SetOMODProperty(e, 'Enchantments', 'ADD', 'FormID,Int', '001F4425', '1', True);

end;//end armorPenPatcher

  end;

end;

end.

#gaming #mods #utilities
5 years ago in #fallout by
$0.00
    1 vote
    • and 1 more
    Reply 1
    Sort:  
  • Trending
    • [-]
     5 years ago 

    Congratulations @hankmcgurk! You received a personal award!

    Happy Birthday! - You are on the Steem blockchain for 2 years!

    You can view your badges on your Steem Board and compare to others on the Steem Ranking

    Do not miss the last post from @steemitboard:

    SteemitBoard - Witness Update
    SteemitBoard to support the german speaking community meetups
    Vote for @Steemitboard as a witness to get one more award and increased upvotes!
    $0.00
      Reply

      Coin Marketplace

      STEEM 0.20
      TRX 0.13
      JST 0.029
      BTC 67831.26
      ETH 3460.55
      USDT 1.00
      SBD 2.72