Keyword Fixes for Caenarvon Armours

By default, Skyrim's perks don't look for the type of the armour when applying perks, they look for specific keywords. Without those keywords, armour will only scale with the base skill and quickly find itself outclassed by even fur gear.

So here are a set of replacement ESPs to tag the armour correctly so that it benefits from perks. Uploaded with permission.

If you want to apply this to any other ESP you have, just use this xEdit script:

unit UserScript;var

slKeywordHA: TStringList;

slKeywordLA: TStringList;

slKeywordSH: TStringList;

slKeywords: TStringList;

//============================================================================

function Initialize: integer;

// keywords to add

slKeywordHA := TStringList. Create;

slKeywordLA := TStringList. Create;

slKeywordSH := TStringList. Create;

slKeywordHA. Add('0006BBD2'); // ArmorHeavy

slKeywordLA. Add('0006BBD3'); // ArmorLight

slKeywordSH. Add('000965B2'); // ArmorShield

//============================================================================

function Process(e: IInterface): integer;

kwda, k: IInterface;

i, j: integer;

exists: boolean;

//only processing armour

if Signature(e) <> 'ARMO' then

//determine correct keyword to add

if GetElementEditValues(e, 'BOD2\Armor Type') = 'Light Armor' then

slKeywords := slKeywordLA

else if GetElementEditValues(e, 'BOD2\Armor Type') = 'Heavy Armor' then

slKeywords := slKeywordHA

// get existing keywords list or add a new

kwda := ElementBySignature(e, 'KWDA');

if not Assigned(kwda) then

kwda := Add(e, 'KWDA', True);

// no keywords subrecord (it must exist) - terminate script

if not Assigned(kwda) then begin

AddMessage('No keywords subrecord in ' + Name(e));

Result := 1;

// check it isn't a shield - shields don't get armor keywords

// if it is, terminate

for i := 0 to slKeywordSH. Count - 1 do begin

for j := 0 to ElementCount(kwda) - 1 do

if IntToHex(GetNativeValue(ElementByIndex(kwda, j)), 8) = slKeywordSH then

// iterate through additional keywords

for i := 0 to slKeywords. Count - 1 do begin

// check if our keyword already exists

exists := false;

for j := 0 to ElementCount(kwda) - 1 do

if IntToHex(GetNativeValue(ElementByIndex(kwda, j)), 8) = slKeywords then begin

exists := true;

// skip the rest of cod