Re-added pas files
This commit is contained in:
parent
926761764b
commit
67b3dd3b2d
9
_build/Enderal - Decompress records.pas
Normal file
9
_build/Enderal - Decompress records.pas
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
unit userscript;
|
||||||
|
|
||||||
|
function Process(e: IInterface): Integer;
|
||||||
|
begin
|
||||||
|
if GetElementNativeValues(e, 'Record Header\Record Flags\Compressed') <> 0 then
|
||||||
|
SetElementNativeValues(e, 'Record Header\Record Flags\Compressed', 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
152
_build/Enderal - Generate COBJ dismantling conditions.pas
Normal file
152
_build/Enderal - Generate COBJ dismantling conditions.pas
Normal file
@ -0,0 +1,152 @@
|
|||||||
|
{
|
||||||
|
Generates conditions for dismantling recipes in Enderal SE
|
||||||
|
Author: Eddoursul, condition generation borrowed from fireundubh's work
|
||||||
|
Version: 1.0
|
||||||
|
|
||||||
|
One-handed weapon conditions:
|
||||||
|
>= 1
|
||||||
|
&&
|
||||||
|
> 2 || temp < 2
|
||||||
|
&&
|
||||||
|
> 1 || temp == 0
|
||||||
|
&&
|
||||||
|
arcane perk check
|
||||||
|
|
||||||
|
All other weapons and armor:
|
||||||
|
>= 1
|
||||||
|
&&
|
||||||
|
> 1 || ! equipped
|
||||||
|
&&
|
||||||
|
arcane perk check
|
||||||
|
}
|
||||||
|
|
||||||
|
unit UserScript;
|
||||||
|
|
||||||
|
function Process(e: IInterface): integer;
|
||||||
|
var
|
||||||
|
rec, item, conditions, condition, ctda, lastcondition, lastctda, checkcondition, checkctda, baseItem: IInterface;
|
||||||
|
i, iLastIndex, iResults: integer;
|
||||||
|
equipType: string;
|
||||||
|
begin
|
||||||
|
item := ElementByPath(e, 'Items\Item\CNTO\Item');
|
||||||
|
baseItem := LinksTo(item);
|
||||||
|
|
||||||
|
// Recreate conditions
|
||||||
|
Remove(ElementByName(e, 'Conditions'));
|
||||||
|
conditions := Add(e, 'Conditions', true);
|
||||||
|
|
||||||
|
// GetItemCount >= 1
|
||||||
|
ctda := ElementByPath(e, 'Conditions\Condition\CTDA');
|
||||||
|
SetEditValue(ElementByIndex(ctda, 0), '11000000');
|
||||||
|
SetNativeValue(ElementByIndex(ctda, 2), GetNativeValue(ElementByPath(e, 'Items\Item\CNTO\Count')));
|
||||||
|
SetEditValue(ElementByIndex(ctda, 3), 'GetItemCount');
|
||||||
|
SetEditValue(ElementByName(ctda, 'Inventory Object'), GetEditValue(item));
|
||||||
|
|
||||||
|
equipType := ShortName(LinksTo(ElementByPath(baseItem, 'ETYP')));
|
||||||
|
|
||||||
|
// One-handed weapons
|
||||||
|
if (Signature(baseItem) = 'WEAP') and ((Pos('[EQUP:00013F42]', equipType) > 0) or (Pos('[EQUP:00013F43]', equipType) > 0) or (Pos('[EQUP:00013F44]', equipType) > 0)) then begin
|
||||||
|
|
||||||
|
// GetItemCount > 2 OR
|
||||||
|
condition := ElementAssign(conditions, HighInteger, nil, true);
|
||||||
|
conditions := ElementByName(e, 'Conditions');
|
||||||
|
iLastIndex := ElementCount(conditions) - 1;
|
||||||
|
lastcondition := ElementByIndex(conditions, iLastIndex);
|
||||||
|
lastctda := ElementBySignature(ElementByIndex(conditions, iLastIndex), 'CTDA');
|
||||||
|
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 0), '01010000');
|
||||||
|
SetNativeValue(ElementByIndex(lastctda, 2), 2.0);
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 3), 'GetItemCount');
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Inventory Object'), GetEditValue(item));
|
||||||
|
|
||||||
|
// Temp < 2
|
||||||
|
condition := ElementAssign(conditions, HighInteger, nil, true);
|
||||||
|
iLastIndex := ElementCount(conditions) - 1;
|
||||||
|
lastcondition := ElementByIndex(conditions, iLastIndex);
|
||||||
|
lastctda := ElementBySignature(ElementByIndex(conditions, iLastIndex), 'CTDA');
|
||||||
|
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 0), '00100000');
|
||||||
|
SetNativeValue(ElementByIndex(lastctda, 2), 2.0);
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 3), 'GetItemCount');
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Inventory Object'), GetEditValue(item));
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Run On'), 'Reference');
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Reference'), '[REFR:000469E7]');
|
||||||
|
|
||||||
|
|
||||||
|
// GetItemCount > 1 OR
|
||||||
|
condition := ElementAssign(conditions, HighInteger, nil, true);
|
||||||
|
conditions := ElementByName(e, 'Conditions');
|
||||||
|
iLastIndex := ElementCount(conditions) - 1;
|
||||||
|
lastcondition := ElementByIndex(conditions, iLastIndex);
|
||||||
|
lastctda := ElementBySignature(ElementByIndex(conditions, iLastIndex), 'CTDA');
|
||||||
|
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 0), '01010000');
|
||||||
|
SetNativeValue(ElementByIndex(lastctda, 2), 1.0);
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 3), 'GetItemCount');
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Inventory Object'), GetEditValue(item));
|
||||||
|
|
||||||
|
// Temp == 0
|
||||||
|
condition := ElementAssign(conditions, HighInteger, nil, true);
|
||||||
|
conditions := ElementByName(e, 'Conditions');
|
||||||
|
iLastIndex := ElementCount(conditions) - 1;
|
||||||
|
lastcondition := ElementByIndex(conditions, iLastIndex);
|
||||||
|
lastctda := ElementBySignature(ElementByIndex(conditions, iLastIndex), 'CTDA');
|
||||||
|
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 0), '10000000');
|
||||||
|
SetNativeValue(ElementByIndex(lastctda, 2), 0);
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 3), 'GetItemCount');
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Inventory Object'), GetEditValue(item));
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Run On'), 'Reference');
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Reference'), '[REFR:000469E7]');
|
||||||
|
|
||||||
|
end
|
||||||
|
else if (Signature(baseItem) = 'WEAP') or (Signature(baseItem) = 'ARMO') then begin
|
||||||
|
|
||||||
|
// GetEquipped == 0 OR
|
||||||
|
condition := ElementAssign(conditions, HighInteger, nil, true);
|
||||||
|
iLastIndex := ElementCount(conditions) - 1;
|
||||||
|
lastcondition := ElementByIndex(conditions, iLastIndex);
|
||||||
|
lastctda := ElementBySignature(ElementByIndex(conditions, iLastIndex), 'CTDA');
|
||||||
|
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 0), '10010000');
|
||||||
|
SetNativeValue(ElementByIndex(lastctda, 2), 0);
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 3), 'GetEquipped');
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Inventory Object'), GetEditValue(item));
|
||||||
|
|
||||||
|
|
||||||
|
// GetItemCount > 1
|
||||||
|
condition := ElementAssign(conditions, HighInteger, nil, true);
|
||||||
|
iLastIndex := ElementCount(conditions) - 1;
|
||||||
|
lastcondition := ElementByIndex(conditions, iLastIndex);
|
||||||
|
lastctda := ElementBySignature(ElementByIndex(conditions, iLastIndex), 'CTDA');
|
||||||
|
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 0), '01000000');
|
||||||
|
SetNativeValue(ElementByIndex(lastctda, 2), 1.0);
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 3), 'GetItemCount');
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Inventory Object'), GetEditValue(item));
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
// Check the arcane perk if the dismantled item is enchanted
|
||||||
|
if Assigned(ElementByPath(baseItem, 'EITM')) then begin
|
||||||
|
condition := ElementAssign(conditions, HighInteger, nil, true);
|
||||||
|
iLastIndex := ElementCount(conditions) - 1;
|
||||||
|
lastcondition := ElementByIndex(conditions, iLastIndex);
|
||||||
|
lastctda := ElementBySignature(ElementByIndex(conditions, iLastIndex), 'CTDA');
|
||||||
|
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 0), '10000000');
|
||||||
|
SetNativeValue(ElementByIndex(lastctda, 2), 1);
|
||||||
|
SetEditValue(ElementByIndex(lastctda, 3), 'HasPerk');
|
||||||
|
SetEditValue(ElementByName(lastctda, 'Perk'), '[PERK:0005218E]');
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Finalize: integer;
|
||||||
|
begin
|
||||||
|
AddMessage('Done');
|
||||||
|
Result := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
112
_build/Find respawning items.pas
Normal file
112
_build/Find respawning items.pas
Normal file
@ -0,0 +1,112 @@
|
|||||||
|
{
|
||||||
|
Create patch plugin with "No Respawn" flag on references.
|
||||||
|
}
|
||||||
|
unit FindRespawningItems;
|
||||||
|
|
||||||
|
var
|
||||||
|
plugin: IInterface;
|
||||||
|
bNewFile: bool;
|
||||||
|
bSkipSection: bool;
|
||||||
|
sFormType: string;
|
||||||
|
|
||||||
|
function Initialize: Integer;
|
||||||
|
begin
|
||||||
|
if not InputQuery('Filter By Form', 'WEAP, ARMO, etc.', sFormType) then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
if sFormType = '' then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
bNewFile := False;
|
||||||
|
if MessageDlg('Create a new plugin [YES] or set flags, modifying source files [NO]?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
|
||||||
|
bNewFile := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function HasScript(e: IInterface; aScript: string): Boolean;
|
||||||
|
var
|
||||||
|
i: integer;
|
||||||
|
begin
|
||||||
|
if Name(e) = 'scriptName' then begin
|
||||||
|
Result := SameText(GetEditValue(e), aScript);
|
||||||
|
bSkipSection := True;
|
||||||
|
end else
|
||||||
|
for i := 0 to Pred(ElementCount(e)) do begin
|
||||||
|
Result := HasScript(ElementByIndex(e, i), aScript);
|
||||||
|
if bSkipSection then begin
|
||||||
|
bSkipSection := False;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if Result then Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Process(e: IInterface): Integer;
|
||||||
|
var
|
||||||
|
sFormID: string;
|
||||||
|
r: IInterface;
|
||||||
|
begin
|
||||||
|
// process only references
|
||||||
|
if Signature(e) <> 'REFR' then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
// only master references
|
||||||
|
if not IsMaster(e) then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
// but work with the current winning override
|
||||||
|
e := WinningOverride(e);
|
||||||
|
|
||||||
|
// references of activator only
|
||||||
|
if Signature(BaseRecord(e)) <> sFormType then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
if GetElementEditValues(e, 'Record Header\Record Flags\No Respawn') = '1' then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if bNewFile then begin
|
||||||
|
if not Assigned(plugin) then begin
|
||||||
|
plugin := AddNewFile;
|
||||||
|
if not Assigned(plugin) then begin
|
||||||
|
Result := 1;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
|
||||||
|
if Assigned(plugin) then begin
|
||||||
|
// add masters before copying as override for parent CELL
|
||||||
|
AddRequiredElementMasters(LinksTo(ElementByIndex(e, 0)), plugin, False);
|
||||||
|
// and REFR itself
|
||||||
|
AddRequiredElementMasters(e, plugin, False);
|
||||||
|
|
||||||
|
// winning cell override
|
||||||
|
r := WinningOverride(LinksTo(ElementByName(e, 'Cell')));
|
||||||
|
if GetFile(r) <> plugin then begin
|
||||||
|
AddRequiredElementMasters(r, plugin, False);
|
||||||
|
wbCopyElementToFile(r, plugin, False, True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// copy reference as override
|
||||||
|
e := wbCopyElementToFile(e, plugin, False, True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// set No Respawn flag
|
||||||
|
SetElementNativeValues(e, 'Record Header\Record Flags\No Respawn', 1);
|
||||||
|
|
||||||
|
except
|
||||||
|
on Ex: Exception do begin
|
||||||
|
AddMessage('Failed to copy: ' + FullPath(e));
|
||||||
|
AddMessage(' reason: ' + Ex.Message);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Finalize: integer;
|
||||||
|
begin
|
||||||
|
if Assigned(plugin) then
|
||||||
|
SortMasters(plugin);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Loading…
Reference in New Issue
Block a user