gistfile1.txt

{
    Script description.
    ------------------------
    Hotkey: Ctrl+R
}
unit userscript;
uses mteFunctions;
uses CLOTH_functions;

const idxBOD2hairtop = 1;
const idxBOD2hairlong = 2;
const idxBOD2body = 4;
const idxBOD2lhand = 5;
const idxBOD2rhand = 6;
const idxBOD2utorso = 7;
const idxBOD2headband = 17;
const idxBOD2eye = 18;
const idxBOD2necklace = 21;

var CLOTH_ap_outfit_special : IwbMainRecord;
var CLOTH_mod_outfit_special_none : IwbMainRecord;
var CLOTH_mod_outfit_special_STR2 : IwbMainRecord;
var CLOTH_mod_outfit_special_PER2 : IwbMainRecord;
var CLOTH_mod_outfit_special_END2 : IwbMainRecord;
var CLOTH_mod_outfit_special_CHR2 : IwbMainRecord;
var CLOTH_mod_outfit_special_INT2 : IwbMainRecord;
var CLOTH_mod_outfit_special_AGI2 : IwbMainRecord;
var CLOTH_mod_outfit_special_LCK2 : IwbMainRecord;

var CLOTH_mod_outfit_special_STR1_AGI1 : IwbMainRecord;
var CLOTH_mod_outfit_special_STR1_LCK1 : IwbMainRecord;
var CLOTH_mod_outfit_special_STR1_END1 : IwbMainRecord;
var CLOTH_mod_outfit_special_PER1_CHR1 : IwbMainRecord;
var CLOTH_mod_outfit_special_PER1_INT1 : IwbMainRecord;
var CLOTH_mod_outfit_special_PER1_AGI1 : IwbMainRecord;
var CLOTH_mod_outfit_special_END1_CHR1 : IwbMainRecord;
var CLOTH_mod_outfit_special_PER1_END1 : IwbMainRecord;
var CLOTH_mod_outfit_special_END1_LCK1 : IwbMainRecord;
var CLOTH_mod_outfit_special_CHR1_INT1 : IwbMainRecord;
var CLOTH_mod_outfit_special_AGI1_LCK1 : IwbMainRecord;
var CLOTH_mod_outfit_special_END1_AGI1 : IwbMainRecord;

var CLOTH_ap_headwear_special : IwbMainRecord;
var CLOTH_mod_headwear_special_none : IwbMainRecord;
var CLOTH_mod_headwear_special_STR1 : IwbMainRecord;
var CLOTH_mod_headwear_special_PER1 : IwbMainRecord;
var CLOTH_mod_headwear_special_END1 : IwbMainRecord;
var CLOTH_mod_headwear_special_CHR1 : IwbMainRecord;
var CLOTH_mod_headwear_special_INT1 : IwbMainRecord;
var CLOTH_mod_headwear_special_AGI1 : IwbMainRecord;
var CLOTH_mod_headwear_special_LCK1 : IwbMainRecord;

var CLOTH_ap_eyewear_special : IwbMainRecord;
var CLOTH_mod_eyewear_special_none : IwbMainRecord;
var CLOTH_mod_eyewear_special_STR1 : IwbMainRecord;
var CLOTH_mod_eyewear_special_PER1 : IwbMainRecord;
var CLOTH_mod_eyewear_special_END1 : IwbMainRecord;
var CLOTH_mod_eyewear_special_CHR1 : IwbMainRecord;
var CLOTH_mod_eyewear_special_INT1 : IwbMainRecord;
var CLOTH_mod_eyewear_special_AGI1 : IwbMainRecord;
var CLOTH_mod_eyewear_special_LCK1 : IwbMainRecord;

var CLOTH_ap_gasmask_filter : IwbMainRecord;
var CLOTH_mod_gasmask_filter_rad5: IwbMainRecord;
var CLOTH_mod_gasmask_filter_rad15: IwbMainRecord;

var CLOTH_ap_model : IwbMainRecord;
var CLOTH_mod_model_all_nomodification: IwbMainRecord;
var CLOTH_mod_model_all_conceal: IwbMainRecord;

var EnchClothingStrength : Integer;
var EnchClothingStrength2 : Integer;
var EnchClothingSTR_AGI : Integer;


var EnchClothingPerception : Integer;
var EnchClothingPerception2 : Integer;
var EnchClothingPER_CHR : Integer;

var EnchClothingEndurance : Integer;
var EnchClothingEndurance2 : Integer;
var EnchClothingEND_PER : Integer;

var EnchClothingCharisma : Integer;
var EnchClothingCharisma2 : Integer;
var EnchClothingCHR_END : Integer;

var EnchClothingIntelligence : Integer;
var EnchClothingIntelligence2 : Integer;
var EnchClothingINT_PER : Integer;

var EnchClothingAgility : Integer;
var EnchClothingAgility2 : Integer;
var EnchClothingAGI_PER : Integer;

var EnchClothingLuck : Integer;
var EnchClothingLuck2 : Integer;

var DLC04_EnchClothing_AGI_END: Integer;
var DLC04_EnchClothingCHR_INT: Integer;
var DLC04_EnchClothing_LUCK_END: Integer;
var DLC04_EnchClothing_LUCK_STR: Integer;
var DLC04_EnchClothingEND_STR: Integer;
var DLC04_EnchClothing_AGI_LUCK: Integer;

function Initialize: integer;
var
    fallout : IInterface;
    base : IInterface;
    dlc04 : IInterface;
begin
    Result := 0;

    fallout := FileByName('Fallout4.esm');
    dlc04 := FileByName('DLCNukaWorld.esm');
    base := FileByName('CLOTH-Base.esp');

    CLOTH_ap_outfit_special := MainRecordByEditorID(GroupBySignature(base, 'KYWD'), 'CLOTH_ap_outfit_special');
        CLOTH_mod_outfit_special_none := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_none');
        CLOTH_mod_outfit_special_STR2 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_STR2');
        CLOTH_mod_outfit_special_PER2 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_PER2');
        CLOTH_mod_outfit_special_END2 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_END2');
        CLOTH_mod_outfit_special_CHR2 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_CHR2');
        CLOTH_mod_outfit_special_INT2 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_INT2');
        CLOTH_mod_outfit_special_AGI2 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_AGI2');
        CLOTH_mod_outfit_special_LCK2 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_LCK2');

        CLOTH_mod_outfit_special_STR1_AGI1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_STR1_AGI1');
        CLOTH_mod_outfit_special_STR1_LCK1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_STR1_LCK1');
        CLOTH_mod_outfit_special_STR1_END1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_STR1_END1');
        CLOTH_mod_outfit_special_PER1_CHR1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_PER1_CHR1');
        CLOTH_mod_outfit_special_PER1_INT1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_PER1_INT1');
        CLOTH_mod_outfit_special_PER1_AGI1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_PER1_AGI1');
        CLOTH_mod_outfit_special_END1_CHR1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_END1_CHR1');
        CLOTH_mod_outfit_special_PER1_END1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_PER1_END1');
        CLOTH_mod_outfit_special_END1_LCK1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_END1_LCK1');
        CLOTH_mod_outfit_special_CHR1_INT1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_CHR1_INT1');
        CLOTH_mod_outfit_special_AGI1_LCK1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_AGI1_LCK1');
        CLOTH_mod_outfit_special_END1_AGI1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_outfit_special_END1_AGI1');


    CLOTH_ap_headwear_special := MainRecordByEditorID(GroupBySignature(base, 'KYWD'), 'CLOTH_ap_headwear_special');
        CLOTH_mod_headwear_special_none := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_headwear_special_none');
        CLOTH_mod_headwear_special_STR1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_headwear_special_STR1');
        CLOTH_mod_headwear_special_PER1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_headwear_special_PER1');
        CLOTH_mod_headwear_special_END1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_headwear_special_END1');
        CLOTH_mod_headwear_special_CHR1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_headwear_special_CHR1');
        CLOTH_mod_headwear_special_INT1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_headwear_special_INT1');
        CLOTH_mod_headwear_special_AGI1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_headwear_special_AGI1');
        CLOTH_mod_headwear_special_LCK1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_headwear_special_LCK1');

    CLOTH_ap_eyewear_special := MainRecordByEditorID(GroupBySignature(base, 'KYWD'), 'CLOTH_ap_eyewear_special');
        CLOTH_mod_eyewear_special_none := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_eyewear_special_none');
        CLOTH_mod_eyewear_special_STR1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_eyewear_special_STR1');
        CLOTH_mod_eyewear_special_PER1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_eyewear_special_PER1');
        CLOTH_mod_eyewear_special_END1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_eyewear_special_END1');
        CLOTH_mod_eyewear_special_CHR1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_eyewear_special_CHR1');
        CLOTH_mod_eyewear_special_INT1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_eyewear_special_INT1');
        CLOTH_mod_eyewear_special_AGI1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_eyewear_special_AGI1');
        CLOTH_mod_eyewear_special_LCK1 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_eyewear_special_LCK1');

    CLOTH_ap_gasmask_filter := MainRecordByEditorID(GroupBySignature(base, 'KYWD'), 'CLOTH_ap_gasmask_filter');
        CLOTH_mod_gasmask_filter_rad5 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_gasmask_filter_rad5');
        CLOTH_mod_gasmask_filter_rad15 := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_gasmask_filter_rad15');

    CLOTH_ap_model := MainRecordByEditorID(GroupBySignature(base, 'KYWD'), 'CLOTH_ap_model');
        CLOTH_mod_model_all_nomodification := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_model_all_nomodification');
        CLOTH_mod_model_all_conceal := MainRecordByEditorID(GroupBySignature(base, 'OMOD'), 'CLOTH_mod_model_all_conceal');

    EnchClothingStrength := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingStrength')));
    EnchClothingStrength2 := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingStrength2')));
    EnchClothingSTR_AGI := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingSTR_AGI')));

    EnchClothingPerception := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingPerception')));
    EnchClothingPerception2 := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingPerception2')));
    EnchClothingPER_CHR := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingPER_CHR')));

    EnchClothingEndurance := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingEndurance')));
    EnchClothingEndurance2 := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingEndurance2')));
    EnchClothingEND_PER := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingEND_PER')));

    EnchClothingCharisma := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingCharisma')));
    EnchClothingCharisma2 := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingCharisma2')));
    EnchClothingCHR_END := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingCHR_END')));

    EnchClothingIntelligence := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingIntelligence')));
    EnchClothingIntelligence2 := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingIntelligence2')));
    EnchClothingINT_PER := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingINT_PER')));

    EnchClothingAgility := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingAgility')));
    EnchClothingAgility2 := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingAgility2')));
    EnchClothingAGI_PER := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingAGI_PER')));

    EnchClothingLuck := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingLuck')));
    EnchClothingLuck2 := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(fallout, 'ENCH'), 'EnchClothingLuck2')));

    DLC04_EnchClothing_AGI_END  := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(dlc04, 'ENCH'), 'DLC04_EnchClothing_AGI_END')));
    AddMessage(IntToStr(DLC04_EnchClothing_AGI_END));
    DLC04_EnchClothingCHR_INT   := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(dlc04, 'ENCH'), 'DLC04_EnchClothingCHR_INT')));
    DLC04_EnchClothing_LUCK_END := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(dlc04, 'ENCH'), 'DLC04_EnchClothing_LUCK_END')));
    DLC04_EnchClothing_LUCK_STR := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(dlc04, 'ENCH'), 'DLC04_EnchClothing_LUCK_STR')));
    DLC04_EnchClothingEND_STR   := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(dlc04, 'ENCH'), 'DLC04_EnchClothingEND_STR')));
    DLC04_EnchClothing_AGI_LUCK := Integer(GetNativeValue(MainRecordByEditorID(GroupBySignature(dlc04, 'ENCH'), 'DLC04_EnchClothing_AGI_LUCK')));
end;

// called for every record selected in xEdit
function Process(e: IInterface): integer;
var
    i, j : integer;
    Field : IwbElement;
    el : IwbElement;
    TargetContainer : IInterface;
    flagsString : string;
    ap_special : bool;
    EITM : IInterface;
    OMOD : IInterface;
begin
    Result := 0;
    ap_special := false;
    AddMessage('Processing : ' + Name(e));
    Field := ElementByPath(e, 'BOD2');
    el := ElementByIndex(Field,0);
    flagsString := GetEditValue(el);
    el := ElementByPath(e, 'APPR');

    EITM := ElementByIP(e,'EITM');
    OMOD := nil;

    //Specials
    if HasFlag( flagsString, idxBOD2eye ) then 
    begin
        OMOD := EnchToModEye(EITM);
        AddAttachPoint(e, CLOTH_ap_eyewear_special, OMOD);
        if not Equals(OMOD, CLOTH_mod_eyewear_special_none) then RemoveElement(e,EITM);
    end;
    if HasFlag( flagsString, idxBOD2hairtop ) then 
    begin
        if HasFlag( flagsString, idxBOD2eye ) 
            AND not Equals(OMOD, CLOTH_mod_eyewear_special_none) then
            AddAttachPoint( e, CLOTH_ap_headwear_special, CLOTH_mod_headwear_special_none )
        else
            begin
                OMOD := EnchToModHead(EITM);
                AddAttachPoint( e, CLOTH_ap_headwear_special, OMOD);
                if not Equals(OMOD, CLOTH_mod_headwear_special_none) then RemoveElement(e,EITM);
            end
    end;

    if HasFlag( flagsString, idxBOD2body ) then
    begin
        OMOD := EnchToModOutfit(EITM);
        AddAttachPoint( e, CLOTH_ap_outfit_special, OMOD );
        if not Equals(OMOD, CLOTH_mod_outfit_special_none) then RemoveElement(e,EITM);
    end;

end;

function HasFlag(flagsString : string; idx : integer) : boolean;
begin

    if Length( flagsString ) < idx then 
        Result := false
    else
        if GetChar(flagsString,idx) = '1' then 
            Result := true 
        else 
            Result := false;
end;

procedure AddKWDA(e : IInterface; KeywordHexFormID: string);
var
    el : IwbElement;
begin
    el := ElementAssign(ElementByIP(e,'KWDA'), HighInteger, nil, False);
    SetEditValue(el, KeywordHexFormID);
    AddMessage('Added keyword '+ GetEditValue(el));
end;

procedure AddAPPR(e : IInterface; KeywordHexFormID: string);
var
    el : IwbElement;
begin
    el := ElementAssign(ElementByIP(e,'APPR'), HighInteger, nil, False);

    SetEditValue(el, KeywordHexFormID);
    AddMessage('Attach point added '+ GetEditValue(el));
end;

// Called after processing
// You can remove it if script doesn't require finalization code
function Finalize: integer;
begin
    Result := false;
end;

function EnchToModEye(e: IInterface) : IwbMainRecord;
begin
    AddMessage(BoolToStr(Assigned(e)));
    if not Assigned(e) then 
        Result := CLOTH_mod_eyewear_special_none
    else
        case Integer(GetNativeValue(LinksTo(e))) of
            EnchClothingStrength:       Result := CLOTH_mod_eyewear_special_STR1;
            EnchClothingPerception:     Result := CLOTH_mod_eyewear_special_PER1;
            EnchClothingEndurance:      Result := CLOTH_mod_eyewear_special_END1;
            EnchClothingCharisma:       Result := CLOTH_mod_eyewear_special_CHR1;
            EnchClothingIntelligence:   Result := CLOTH_mod_eyewear_special_INT1;
            EnchClothingAgility:        Result := CLOTH_mod_eyewear_special_AGI1;
            EnchClothingLuck:           Result := CLOTH_mod_eyewear_special_LCK1;
        else Result := CLOTH_mod_eyewear_special_none;
        end;
end;

function EnchToModHead(e: IInterface) : IwbMainRecord;
begin
    if not Assigned(e) then 
        Result := CLOTH_mod_headwear_special_none
    else
        case Integer(GetNativeValue(LinksTo(e))) of
            EnchClothingStrength:       Result := CLOTH_mod_headwear_special_STR1;
            EnchClothingPerception:     Result := CLOTH_mod_headwear_special_PER1;
            EnchClothingEndurance:      Result := CLOTH_mod_headwear_special_END1;
            EnchClothingCharisma:       Result := CLOTH_mod_headwear_special_CHR1;
            EnchClothingIntelligence:   Result := CLOTH_mod_headwear_special_INT1;
            EnchClothingAgility:        Result := CLOTH_mod_headwear_special_AGI1;
            EnchClothingLuck:           Result := CLOTH_mod_headwear_special_LCK1;
        else Result := CLOTH_mod_headwear_special_none;
        end;
end;

function EnchToModOutfit(e: IInterface) : IwbMainRecord;
begin
    if not Assigned(e) then 
        Result := CLOTH_mod_outfit_special_none
    else
        case Integer(GetNativeValue(LinksTo(e))) of
            EnchClothingStrength2:          Result := CLOTH_mod_outfit_special_STR2;
            EnchClothingPerception2:        Result := CLOTH_mod_outfit_special_PER2;
            EnchClothingEndurance2:         Result := CLOTH_mod_outfit_special_END2;
            EnchClothingCharisma2:          Result := CLOTH_mod_outfit_special_CHR2;
            EnchClothingIntelligence2:      Result := CLOTH_mod_outfit_special_INT2;
            EnchClothingAgility2:           Result := CLOTH_mod_outfit_special_AGI2;
            EnchClothingLuck2:              Result := CLOTH_mod_outfit_special_LCK2;
            EnchClothingSTR_AGI:            Result := CLOTH_mod_outfit_special_STR1_AGI1;
            EnchClothingPER_CHR:            Result := CLOTH_mod_outfit_special_PER1_CHR1;
            EnchClothingEND_PER:            Result := CLOTH_mod_outfit_special_PER1_END1;
            EnchClothingCHR_END:            Result := CLOTH_mod_outfit_special_END1_CHR1;
            EnchClothingINT_PER:            Result := CLOTH_mod_outfit_special_PER1_INT1;
            EnchClothingAGI_PER:            Result := CLOTH_mod_outfit_special_PER1_AGI1;
            DLC04_EnchClothing_AGI_END:     Result := CLOTH_mod_outfit_special_END1_AGI1;
            DLC04_EnchClothingCHR_INT:      Result := CLOTH_mod_outfit_special_CHR1_INT1;
            DLC04_EnchClothing_LUCK_END:    Result := CLOTH_mod_outfit_special_END1_LCK1;
            DLC04_EnchClothing_LUCK_STR:    Result := CLOTH_mod_outfit_special_STR1_LCK1;
            DLC04_EnchClothingEND_STR:      Result := CLOTH_mod_outfit_special_STR1_END1;
            DLC04_EnchClothing_AGI_LUCK:    Result := CLOTH_mod_outfit_special_AGI1_LCK1;
        else Result := CLOTH_mod_outfit_special_none;
        end;
end;

end.