437 lines
14 KiB
ObjectPascal
437 lines
14 KiB
ObjectPascal
{
|
|
ESMify Plugins 1.0
|
|
by Eddoursul https://eddoursul.win
|
|
|
|
For proper overriding of temporary records, "Always save ONAM" must be enabled in xEdit.
|
|
This script does not process bi-directional location references. Resave plugin in CK to rebuild them.
|
|
Running it on a plugin will set the ESM flag as well. Running it on a node will only attempt to fix broken persistence.
|
|
|
|
Normally, NPCs must have assigned Persistent Location. If they don't, their packages may break after conversion to ESM.
|
|
Persistent Location can't be reliably set by a script, so instead we scan NPC attributes and packages, try to determine
|
|
if they potentially need persistence, and set the global Persistent flag. This is a band-aid! To fix them properly,
|
|
assign valid locations to actors via the Persistent Location field.
|
|
}
|
|
|
|
unit ESMify_Plugins;
|
|
|
|
var
|
|
refsChecked, recordsCounted, flaggedCount, persLocSkipped: integer;
|
|
pluginShown: boolean;
|
|
hardcodedStatForms: TStringList;
|
|
dragonCZMarker, dragonLZMarker: IwbMainRecord;
|
|
|
|
|
|
///// FUNCTIONS ////////////////////////////////////
|
|
|
|
function IsReferencedByNonLocation(rec: IwbMainRecord): boolean;
|
|
var
|
|
masterRecord, referencingRecord: IwbMainRecord;
|
|
i: integer;
|
|
sig: string;
|
|
begin
|
|
Result := False;
|
|
masterRecord := MasterOrSelf(rec);
|
|
|
|
for i := 0 to Pred(ReferencedByCount(masterRecord)) do begin
|
|
referencingRecord := ReferencedByIndex(masterRecord, i);
|
|
sig := Signature(referencingRecord);
|
|
|
|
// Locational links are bi-directional, this script does not process them. To fix them, resave plugin in CK.
|
|
// WRLD records usually refer to large reference REFRs. Being a large reference does not imply necessity of the persistence flag.
|
|
// TES4 refers to REFRs if they are listed in ONAM. To keep ONAM up to date, enable "Always save ONAM" in xEdit.
|
|
|
|
if (sig = 'LCTN') or (sig = 'WRLD') or (sig = 'TES4') then
|
|
continue;
|
|
|
|
// Only check plugins higher in the load order.
|
|
// This will include non-masters as well, and will not take references from plugins lower in the load order into consideration.
|
|
if GetLoadOrder(GetFile(referencingRecord)) <= GetLoadOrder(GetFile(rec)) then begin
|
|
|
|
// When referencing record is not referenced and it's in the same cell, the ref does not need persistence.
|
|
if (ReferencedByCount(referencingRecord) = 0) then begin
|
|
if (sig = 'REFR') then begin
|
|
if InSameCell(rec, referencingRecord) then continue;
|
|
end;
|
|
end;
|
|
|
|
// Refs referencing themselves do not require the flag
|
|
if not SameRecord(rec, referencingRecord) then begin
|
|
result := True;
|
|
break;
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function SameRecord(ref: IwbMainRecord; otherRef: IwbMainRecord): boolean;
|
|
begin
|
|
// 'Equals' does not fit here
|
|
result := Assigned(ref) and (GetLoadOrderFormID(ref) = GetLoadOrderFormID(otherRef));
|
|
end;
|
|
|
|
function InSameCell(ref: IwbMainRecord; otherRef: IwbMainRecord): boolean;
|
|
var
|
|
cell, otherCell, worldspace, otherWorldspace: IwbMainRecord;
|
|
coords, otherCoords: TwbGridCell;
|
|
begin
|
|
cell := LinksTo(ElementByPath(ref, 'Cell'));
|
|
otherCell := LinksTo(ElementByPath(otherRef, 'Cell'));
|
|
|
|
if not Assigned(otherCell) then exit;
|
|
|
|
// Interior cell
|
|
if (GetElementNativeValues(cell, 'DATA') and 1) > 0 then begin
|
|
result := SameRecord(cell, otherCell);
|
|
exit;
|
|
end;
|
|
|
|
worldspace := LinksTo(ElementByPath(cell, 'Worldspace'));
|
|
otherWorldspace := LinksTo(ElementByPath(otherCell, 'Worldspace'));
|
|
|
|
if not SameRecord(worldspace, otherWorldspace) then begin
|
|
result := false;
|
|
exit;
|
|
end;
|
|
|
|
// Consider small world a cell
|
|
if (GetElementNativeValues(worldspace, 'DATA') and 1) > 0 then begin
|
|
result := true;
|
|
exit;
|
|
end;
|
|
|
|
// Persistent refs are located in 0,0 so we detect their original grid position via their position
|
|
coords := wbPositionToGridCell(GetPosition(ref));
|
|
otherCoords := wbPositionToGridCell(GetPosition(otherRef));
|
|
//AddMessage(IntToStr(coords.x) + ' ' + IntToStr(otherCoords.x));
|
|
//AddMessage(IntToStr(coords.y) + ' ' + IntToStr(otherCoords.y));
|
|
|
|
result := (coords.x = otherCoords.x) and (coords.y = otherCoords.y);
|
|
end;
|
|
|
|
function MarkPersistent(e: IwbMainRecord): boolean;
|
|
begin
|
|
AddMessage(' + Marking as persistent: ' + GetElementEditValues(e, 'NAME') + ' - (' + Name(e) + ')');
|
|
Inc(flaggedCount);
|
|
SetIsPersistent(e, True);
|
|
CheckNonPersistentOverride(e);
|
|
end;
|
|
|
|
function CheckNonPersistentOverride(e: IwbMainRecord): integer;
|
|
begin
|
|
if IsWinningOverride(e) then exit;
|
|
if not GetIsPersistent(WinningOverride(e)) then
|
|
AddMessage(' ! WARNING: the highest override of ' + ShortName(e) + ' is not persistent: ' + PathName(WinningOverride(e)));
|
|
end;
|
|
|
|
function GetLinkedRefNull(rec: IwbMainRecord): IwbMainRecord;
|
|
var
|
|
linkedRefs, currentItem: IwbElement;
|
|
linkedCount, i: integer;
|
|
begin
|
|
linkedRefs := ElementByPath(rec, 'Linked References');
|
|
linkedCount := ElementCount(linkedRefs);
|
|
for i := 0 to Pred(linkedCount) do begin
|
|
currentItem := ElementByIndex(linkedRefs, i);
|
|
if not Assigned(LinksTo(ElementByPath(currentItem, 'Keyword/Ref'))) then begin
|
|
result := LinksTo(ElementByPath(currentItem, 'Ref'));
|
|
break;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function GetLinkedRef(rec: IwbMainRecord; keyword: IwbMainRecord): IwbMainRecord;
|
|
var
|
|
linkedRefs, currentItem: IwbElement;
|
|
linkedCount, i: integer;
|
|
begin
|
|
linkedRefs := ElementByPath(rec, 'Linked References');
|
|
linkedCount := ElementCount(linkedRefs);
|
|
for i := 0 to Pred(linkedCount) do begin
|
|
currentItem := ElementByIndex(linkedRefs, i);
|
|
if SameRecord(LinksTo(ElementByPath(currentItem, 'Keyword/Ref')), keyword) then begin
|
|
result := LinksTo(ElementByPath(currentItem, 'Ref'));
|
|
break;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function IsLinkedRefRemote(e: IwbMainRecord; linkedRefKeyword: IwbMainRecord): boolean;
|
|
var
|
|
linkedRef: IwbMainRecord;
|
|
begin
|
|
result := true;
|
|
if Assigned(linkedRefKeyword) then begin
|
|
linkedRef := GetLinkedRef(e, linkedRefKeyword);
|
|
end
|
|
else begin
|
|
linkedRef := GetLinkedRefNull(e);
|
|
end;
|
|
|
|
if Assigned(linkedRef) then begin
|
|
if InSameCell(e, linkedRef) then begin
|
|
//AddMessage(' Skipping actor, staying in one cell with his linked ref: ' + GetElementEditValues(e, 'NAME') + ' - (' + Name(e) + ')');
|
|
result := false;
|
|
end
|
|
else if not GetIsPersistent(linkedRef) then begin
|
|
MarkPersistent(linkedRef);
|
|
end;
|
|
end
|
|
else begin
|
|
// Missing linked ref. Usually, package checks for its presence. Sometimes, it's just missing. The outcome is the same, this package is not doing anything.
|
|
result := false;
|
|
end;
|
|
end;
|
|
|
|
function IsSameCellPackage(e: IInterface; inputValues: IwbElement): boolean;
|
|
var
|
|
packageLoc: string;
|
|
inputVal: IwbElement;
|
|
refCell, linkedRefKeyword, linkedRef: IwbMainRecord;
|
|
i: integer;
|
|
begin
|
|
result := True;
|
|
|
|
for i := 0 to Pred(ElementCount(inputValues)) do begin
|
|
inputVal := ElementByIndex(inputValues, i);
|
|
packageLoc := GetElementEditValues(inputVal, 'PLDT\Type');
|
|
|
|
if packageLoc <> '' then begin
|
|
|
|
if (packageLoc = 'Near editor location') or (packageLoc = 'Near self') then begin
|
|
continue;
|
|
end
|
|
else if (packageLoc = 'In cell') then begin
|
|
refCell := LinksTo(ElementByPath(inputVal, 'PLDT\Cell'));
|
|
if Assigned(refCell) then begin
|
|
if SameRecord(refCell, LinksTo(ElementByPath(e, 'Cell'))) then continue;
|
|
end;
|
|
end
|
|
else if (packageLoc = 'Near linked reference') then begin
|
|
linkedRefKeyword := LinksTo(ElementByPath(inputVal, 'PLDT\Keyword'));
|
|
if FormID(linkedRefKeyword) = $14 then continue;
|
|
if not IsLinkedRefRemote(e, linkedRefKeyword) then continue;
|
|
end
|
|
else if (packageLoc = 'Near reference') then begin
|
|
linkedRef := LinksTo(ElementByPath(inputVal, 'PLDT\Reference'));
|
|
if FormID(linkedRef) = $14 then continue;
|
|
if InSameCell(e, linkedRef) then continue;
|
|
end
|
|
else if (packageLoc = 'Alias (location)') or (packageLoc = 'Alias (reference)') then begin
|
|
// Quest aliases become persistent dynamically
|
|
continue;
|
|
end;
|
|
|
|
end
|
|
else begin
|
|
packageLoc := GetElementEditValues(inputVal, 'PTDA\Target Data\Type');
|
|
|
|
if (packageLoc = 'Linked Reference') then begin
|
|
linkedRefKeyword := LinksTo(ElementByPath(inputVal, 'PTDA\Target Data\Reference'));
|
|
if FormID(linkedRefKeyword) = $14 then continue;
|
|
if not IsLinkedRefRemote(e, linkedRefKeyword) then continue;
|
|
end
|
|
else if (packageLoc = 'Specific Reference') then begin
|
|
linkedRef := LinksTo(ElementByPath(inputVal, 'PTDA\Target Data\Reference'));
|
|
if FormID(linkedRef) = $14 then continue;
|
|
if InSameCell(e, linkedRef) then continue;
|
|
end
|
|
else continue;
|
|
end;
|
|
|
|
result := False;
|
|
break;
|
|
end;
|
|
end;
|
|
|
|
|
|
///// PROCESSING ////////////////////////////////////
|
|
|
|
function Initialize: integer;
|
|
var dobj: IwbMainRecord;
|
|
begin
|
|
AddMessage('ESMify Plugins is starting...');
|
|
|
|
hardcodedStatForms := TStringList.Create;
|
|
hardcodedStatForms.Add($5); // DivineMarker
|
|
hardcodedStatForms.Add($6); // TempleMarker
|
|
hardcodedStatForms.Add($10); // MapMarker
|
|
hardcodedStatForms.Add($12); // HorseMarker
|
|
hardcodedStatForms.Add($15); // MultiBoundMarker
|
|
hardcodedStatForms.Add($1F); // RoomMarker
|
|
hardcodedStatForms.Add($34); // XMarkerHeading
|
|
hardcodedStatForms.Add($3B); // XMarker
|
|
|
|
// DLZM and DCZM Default Objects.
|
|
// For simplicity sake, I assume they are unchanged, which is true in 99.999% cases.
|
|
// If you ever find a mod, changing these objects, update this to retrieve actual values.
|
|
hardcodedStatForms.Add($138C0); // DragonMarker
|
|
hardcodedStatForms.Add($3DF55); // DragonMarkerCrashStrip
|
|
end;
|
|
|
|
function Process(e: IInterface): integer;
|
|
var
|
|
currentPlugin: IwbFile;
|
|
baseRefRecord, package, actorLocation: IwbMainRecord;
|
|
packages: IwbElement;
|
|
i, j, baseID, packageCount, typeId: integer;
|
|
sig, baseSig: string;
|
|
isREFR, isACHR, skip: boolean;
|
|
begin
|
|
if not pluginShown then begin
|
|
currentPlugin := GetFile(e);
|
|
AddMessage(#13#10 + '# Processing ' + Name(currentPlugin));
|
|
pluginShown := true;
|
|
refsChecked := 0;
|
|
recordsCounted := 0;
|
|
flaggedCount := 0;
|
|
persLocSkipped := 0;
|
|
if not GetIsESM(currentPlugin) then
|
|
setIsESM(currentPlugin, true);
|
|
end;
|
|
|
|
if (GetLoadOrderFormID(e) = 0) then begin
|
|
AddMessage(#13#10 + ' ' + IntToStr(recordsCounted) + ' records scanned.');
|
|
AddMessage(' ' + IntToStr(refsChecked) + ' references checked.');
|
|
AddMessage(' ' + IntToStr(persLocSkipped) + ' actors with Persistent Location skipped.');
|
|
AddMessage(' ' + IntToStr(flaggedCount) + ' references have been marked as persistent.' + #13#10);
|
|
pluginShown := false;
|
|
exit;
|
|
end;
|
|
|
|
Inc(recordsCounted);
|
|
|
|
sig := Signature(e);
|
|
isREFR := (sig = 'REFR');
|
|
isACHR := (sig = 'ACHR');
|
|
|
|
if (not isREFR) and (not isACHR) and (sig <> 'PHZD') then
|
|
exit;
|
|
|
|
Inc(refsChecked);
|
|
|
|
if GetIsDeleted(e) then exit;
|
|
|
|
baseRefRecord := BaseRecord(e);
|
|
|
|
if not Assigned(baseRefRecord) then begin
|
|
AddMessage(' INVALID RECORD: Missing base form: ' + FullPath(e));
|
|
exit;
|
|
end;
|
|
|
|
if GetIsPersistent(e) then begin
|
|
CheckNonPersistentOverride(e);
|
|
exit;
|
|
end;
|
|
|
|
if isREFR then begin
|
|
// Certain types of references are always flagged as persistent by the CK. See DavidJCobb's post:
|
|
// https://discord.com/channels/535508975626747927/535530099475480596/1129026688077013084
|
|
|
|
baseSig := Signature(baseRefRecord);
|
|
|
|
if baseSig = 'TXST' then begin
|
|
// Flag texture sets
|
|
MarkPersistent(e);
|
|
exit;
|
|
end
|
|
else if baseSig = 'STAT' then begin
|
|
// Flag hardcoded static forms (markers)
|
|
if hardcodedStatForms.indexOf(FormID(baseRefRecord)) > -1 then begin
|
|
MarkPersistent(e);
|
|
exit;
|
|
end;
|
|
end
|
|
else if baseSig = 'ACTI' then begin
|
|
// Flag water activators
|
|
if ElementExists(baseRefRecord, 'WNAM') then begin
|
|
MarkPersistent(e);
|
|
exit;
|
|
end;
|
|
end
|
|
else if baseSig = 'LIGH' then begin
|
|
// Flag Never Fades lights
|
|
if (GetElementNativeValues(e, 'Record Header\Record Flags\Never Fades') > 0) then begin
|
|
MarkPersistent(e);
|
|
exit;
|
|
end;
|
|
end
|
|
else if baseSig = 'DOOR' then begin
|
|
// Flag PrisonMarker refs and any doors with teleport data
|
|
if (FormID(baseRefRecord) = $4) or (ElementExists(e, 'XTEL')) then begin // PrisonMarker
|
|
MarkPersistent(e);
|
|
exit;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
// Flag all records with non-locational references
|
|
if IsReferencedByNonLocation(e) then begin
|
|
MarkPersistent(e);
|
|
exit;
|
|
end;
|
|
|
|
if not isACHR then
|
|
exit;
|
|
|
|
// This NPC uses Persistent Location, should work fine if the location was assigned correctly
|
|
if ElementExists(e, 'XLCN') then begin
|
|
actorLocation := LinksTo(ElementByPath(e, 'XLCN'));
|
|
|
|
// CK flags refs with the PersistAll location
|
|
if FormID(actorLocation) = $216A7 then begin // PersistAll
|
|
MarkPersistent(e);
|
|
exit;
|
|
end;
|
|
|
|
if ReferencedByCount(actorLocation) > 1 then begin
|
|
Inc(persLocSkipped);
|
|
//AddMessage(' Skipping actor with Persistent Location: ' + GetElementEditValues(e, 'NAME') + ' - (' + Name(e) + ')');
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
// Skip Starts Dead NPCs
|
|
if GetElementNativeValues(e, 'Record Header\Record Flags\Starts Dead') <> 0 then
|
|
exit;
|
|
|
|
packages := ElementByPath(baseRefRecord, 'Packages');
|
|
packageCount := ElementCount(packages);
|
|
|
|
// Skip actors without packages
|
|
if packageCount = 0 then
|
|
exit;
|
|
|
|
// Scan packages and try to determine if their range extends beyond the NPC's starting cell.
|
|
skip := true;
|
|
for i := 0 to Pred(packageCount) do begin
|
|
package := LinksTo(ElementByIndex(packages, i));
|
|
|
|
if not Assigned(package) then begin
|
|
AddMessage(' ! WARNING: Invalid package entry: ' + GetElementEditValues(e, 'NAME') + ' - (' + Name(e) + ')');
|
|
continue;
|
|
end;
|
|
|
|
if (IsSameCellPackage(e, ElementByPath(package, 'Package Data\Data Input Values'))) then continue;
|
|
|
|
skip := false;
|
|
break;
|
|
end;
|
|
|
|
if skip then begin
|
|
//AddMessage(' Skipping actor, staying in the same cell: ' + GetElementEditValues(e, 'NAME') + ' - (' + Name(e) + ')');
|
|
exit;
|
|
end;
|
|
|
|
MarkPersistent(e);
|
|
|
|
end;
|
|
|
|
function Finalize: integer;
|
|
begin
|
|
hardcodedStatForms.Clear;
|
|
AddMessage('All done.');
|
|
end;
|
|
|
|
end.
|