unit userscript;

function Process(e: IInterface): Integer;
var
  ee: IInterface;
begin
  // abort if this element is not an actor
  if Signature(e)  'NPC_' then Exit;

  // remove Actor Effect
  ee := ElementBySignature(e, 'SPLO');
  if Assigned(ee) then begin
    RemoveElement(e, 'SPLO');
  end;

  // remove Perk
  ee := ElementBySignature(e, 'PRKR');
  if Assigned(ee) then begin
    RemoveElement(e, 'PRKR');
  end;
end;

end.