{
	Add underwear slot for body armor.
}

unit userscript;


function Process(e: IInterface): Integer;
var
	i: Int64;
	s: String;
	m, p: IInterface;
begin
	if Signature(e) <> 'ARMO' then Exit;

	if IsMaster(e) then begin
		if OverrideCount(e) = 0 then begin
			p := e;
		end else begin
			m := e;
		end;
	end else begin
		if IsWinningOverride(e) then begin
			p := e;
		end else begin
			m := Master(e);
		end;
	end;

	if Assigned(m) then begin
		p := OverrideByIndex(m, OverrideCount(m) - 1);
	end;

	// detect armor slot
	i := GetElementNativeValues(p, 'BOD2\First Person Flags');

	//AddMessage(IntToStr(i));

	// is this a body armor?
	if (i and $00000008) <> $00000008 then Exit;

	s := '';

	// already has underwear slot?
	if (i and $00000040) <> $00000040 then s := '6';

	if (i and $00000080) <> $00000080 then begin
		if s <> '' then s := s + ',';

		s := s + '7';
	end;

	if s = '' then Exit;

	AddMessage('filterByArmors=Fallout4.esm|' + IntToHex(FormID(p), 8) + ':bipedSlotsToAdd=' + s);
end;

end.