fnv/unfound-loot
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Unfound Loot 1.0rc2

Browse Source
This commit is contained in:
Eddoursul 2025-03-19 22:38:45 +01:00
parent d5fd3b7bb2
commit b24738aec6
26 changed files with 2425 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
mod/Unfound Loot.esp Normal file
View File

Binary file not shown.

2
mod/Unfound Loot.url Normal file
View File

@ -0,0 +1,2 @@
[InternetShortcut]
URL=https://mod.pub/falloutnv/24-unfound-loot

93
src/EULxCalculateBaseRemovalChance.gek Normal file
View File

@ -0,0 +1,93 @@
scn EULxCalculateBaseRemovalChance
ref rActor
float fRemovalChance
int iTemp
float fTemp
begin function { rActor }
set fRemovalChance to EULxActorBaseRemovalChance / 100
DebugPrint "Base removal chance for %n: %.2f" rActor fRemovalChance
; Luck factor
set fTemp to (( EULxLuckModifier / 10 ) * playerRef.getAV luck) / 100
set fTemp to 1 - fTemp
set fRemovalChance to fRemovalChance * fTemp
DebugPrint "Base removal chance (luck factored in) : %.2f" fRemovalChance
; Creature type factor
set iTemp to rActor.GetCreatureType
if iTemp == -1 ; NPC
if rActor.GetIsRace Ghoul
DebugPrint "Target is intelligent ghoul"
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fRemovalChance EULxActorGhoulMod
else
DebugPrint "Target is human"
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fRemovalChance EULxActorHumanMod
endif
else
set fTemp to 0
if iTemp == 5
DebugPrint "Target is lootless (feral ghoul or other)"
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fRemovalChance EULxActorFeralGhoulMod
elseif iTemp == 4 ; supermutant
DebugPrint "Target is mutant"
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fRemovalChance EULxActorSupermutantMod
elseif iTemp == 6 ; robot
DebugPrint "Target is robot"
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fRemovalChance EULxActorRobotMod
set fTemp to playerRef.getAV repair
else
DebugPrint "Target is butcherable (insect, animal, abomination)"
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fRemovalChance EULxActorAnimalMod
set fTemp to playerRef.getAV survival
endif
; Skill factor
if fTemp
if EULxActorSkillMod
set fTemp to EULxActorSkillMod * fTemp / 1000 ;0 = no effect, 0.5 = half as likely item removal, 1 = no item removal
set fTemp to 1 - fTemp
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fRemovalChance fTemp
endif
endif
endif
DebugPrint "Base removal chance (creature/npc type and player skills factored in) : %.2f" fRemovalChance
; Limb damage factor (unfortunately, available only after killed NPC ends ragdolling)
; set iTemp to 14
; set fTemp to 0 ; num severed limbs
; while iTemp > -1
; set iTemp to iTemp - 1
; if rActor.isLimbGone iTemp
; set fTemp to fTemp + 1
; DebugPrint "%n's limb %g is gone." rActor iTemp
; endif
; loop
;
; set fTemp to 1 + (fTemp * 0.5)
; set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fRemovalChance fTemp
;
; DebugPrint "Base removal chance (corpse limb damage factored in) : %.2f" fRemovalChance
SetFunctionValue fRemovalChance
end

213
src/EULxDelootifyCellItems.gek Normal file
View File

@ -0,0 +1,213 @@
scn EULxDelootifyCellItems
ref rCell
ref rItem
int iType
int iEquipType
ref rBase
long iValue
long iCount
float fCount
float fRemovalChance
begin function { rCell }
DebugPrint "Scanning cell %n for removable items" rCell
set rItem to GetFirstRefInCell rCell 201 0 0
while rItem
set rBase to rItem.GetBaseForm
set iType to GetType rBase
if iType == 31 ; misc
if rBase == Caps001 || rBase == PrewarMoney
set fRemovalChance to EULxCalcCurrencyRemovalChance
else
set fRemovalChance to EULxCalcMiscRemovalChance
endif
elseif iType == 47 ; ingestible
if ListGetFormIndex EULxProtectedItemsFood rBase != -1
DebugPrint "%n is a protected item, skipping." rBase
set rItem to getNextRef
continue
endif
set iEquipType to GetEquipType rBase
if iEquipType == 11 || GetIngestibleFlag rBase 4 ; meds
set fRemovalChance to EULxCalcMedsRemovalChance
elseif iEquipType == 10 ; chems
set fRemovalChance to EULxCalcChemsRemovalChance
elseif iEquipType == 13 ; alcohol
set fRemovalChance to EULxCalcAlcoholRemovalChance
else ; food
set fRemovalChance to EULxCalcFoodRemovalChance
endif
elseif iType == 41 ; ammo
set fRemovalChance to EULxCalcAmmoRemovalChance
elseif iType == 40 ; weapon
set fRemovalChance to EULxCalcWeaponRemovalChance
elseif iType == 24 ; armor
if ListGetFormIndex EULxProtectedItemsArmor rBase != -1
DebugPrint "%n is a protected item, skipping." rBase
set rItem to getNextRef
continue
endif
set fRemovalChance to EULxCalcArmorRemovalChance
elseif iType == 116 ; currency
set fRemovalChance to EULxCalcCurrencyRemovalChance
else
set rItem to GetNextRef
continue
endif
if IsQuestItem rBase
DebugPrint "%n is a quest item, skipping." rBase
set rItem to getNextRef
continue
endif
if iType == 40 || iType == 24 ; weapons and armor
call EULxReduceItemHealth playerRef rItem
endif
if rItem.GetDisabled
DebugPrint "%n is disabled, skipping." rBase
set rItem to getNextRef
continue
endif
if rItem.GetReferenceFlag 33554432
DebugPrint "%n has the No AI Acquire flag, skipping." rItem
set rItem to getNextRef
continue
endif
if rItem.GetOwner
DebugPrint "%n is an owned item, skipping." rBase
set rItem to getNextRef
continue
endif
set iValue to GetSourceModIndex rBase
if iValue > GetSourceModIndex rItem
DebugPrint "%n is a mod-added item, added via ref override, skipping." rBase
set rItem to getNextRef
continue
elseif iValue > EULxDLCIndex ; Mod-added base
if GetSourceModIndex rBase != GetSourceModIndex rCell ; Different origin from the cell (same would mean new area or DLC - normal processing)
if GetSourceModIndex rItem != GetSourceModIndex rCell ; item placed by other mod
; Mod-added foreign base AND reference in a cell of any origin. Skip this.
; Cells with matching base or item origin are processed normally.
DebugPrint "%n is a mod-added item, skipping." rBase
set rItem to getNextRef
continue
endif
endif
endif
set iValue to GetValue rBase
if iType == 31 && rBase != Caps001 ; misc item
if iValue < 5
if iValue == 0
DebugPrint "%n has zero value, skipping." rBase
set rItem to getNextRef
continue
endif
if GetWeight rBase
DebugPrint "%n is trash, cutting removal chance in half." rBase
set fRemovalChance to fRemovalChance / 2
endif
endif
if IsScripted rBase
DebugPrint "%n is scripted, skipping." rBase
set rItem to getNextRef
continue
endif
if ListGetFormIndex EULxProtectedItemsMisc rBase != -1
DebugPrint "%n is a protected item, skipping." rBase
set rItem to getNextRef
continue
endif
endif
if iValue > EULxMaxItemValue
DebugPrint "%n is an expensive item, skipping." rBase
set rItem to getNextRef
continue
endif
if AuxiliaryVariableGetFloat "S" 0 rBase == 0 ; the item is encountered for the first time
DebugPrint "Adding %n to ever scanned list, should only see this once" rBase
AuxiliaryVariableSetFloat "S" 1 0 rBase
set rItem to getNextRef
continue
endif
set iCount to rItem.GetRefCount
if iCount > 1 ; Item stack
DebugPrint "Found stack: %g %n, removal chance %g." iCount rBase fRemovalChance
set fRemovalChance to Rand 0 fRemovalChance
DebugPrint "Rolled a dice, removing %g%% from the stack." fRemovalChance
set fCount to iCount * ( fRemovalChance / 100 )
if Ceil fCount - fCount > 0.5 ; Number rounding implementation
set iCount to Floor fCount
else
set iCount to Ceil fCount
endif
; iCount items to remove
set iValue to rItem.GetRefCount
set iCount to iValue - iCount
; iCount items to leave
if iCount <= 0
DebugPrint "Disabling full stack of %g %n." iValue rBase
rItem.disable
rItem.MarkForDelete
elseif iCount < iValue
DebugPrint "Reducing stack of %g %n to %g items." iValue rBase iCount
rItem.SetRefCount iCount
else
DebugPrint "Stack of %g %n, removal chance 0, skipping." iValue rBase
endif
elseif GetRandomPercent < fRemovalChance
DebugPrint "Disabling %n." rBase
rItem.disable
rItem.MarkForDelete
endif
set rItem to GetNextRef
loop
end

168
src/EULxDelootifyContainer.gek Normal file
View File

@ -0,0 +1,168 @@
scn EULxDelootifyContainer
ref rCell
ref rContainer
ref rItem
int iType
int iEquipType
ref rBase
int i
int iLimit
long iValue
long iCount
float fCount
float fRemovalChance
array_var itemsToRemoveRefs
array_var itemsToRemoveCounts
begin function { rCell, rContainer }
DebugPrint "Delootifying %n..." rContainer
foreach rItem <- rContainer
set rBase to rItem.GetBaseForm
set iType to GetType rBase
DebugPrint "Scanning %n: found %n" rContainer rBase
if iType == 31 ; misc
if rBase == Caps001 || rBase == PrewarMoney
set fRemovalChance to EULxCalcCurrencyRemovalChance
else
set fRemovalChance to EULxCalcMiscRemovalChance
endif
elseif iType == 47 ; ingestible
if ListGetFormIndex EULxProtectedItemsFood rBase != -1
DebugPrint "%n is a protected item, skipping." rBase
continue
endif
set iEquipType to GetEquipType rBase
if iEquipType == 11 || GetIngestibleFlag rBase 4 ; meds
set fRemovalChance to EULxCalcMedsRemovalChance
elseif iEquipType == 10 ; chems
set fRemovalChance to EULxCalcChemsRemovalChance
elseif iEquipType == 13 ; alcohol
set fRemovalChance to EULxCalcAlcoholRemovalChance
else ; food
set fRemovalChance to EULxCalcFoodRemovalChance
endif
elseif iType == 41 ; ammo
set fRemovalChance to EULxCalcAmmoRemovalChance
elseif iType == 40 ; weapon
set fRemovalChance to EULxCalcWeaponRemovalChance
elseif iType == 24 ; armor
if ListGetFormIndex EULxProtectedItemsArmor rBase != -1
DebugPrint "%n is a protected item, skipping." rBase
continue
endif
set fRemovalChance to EULxCalcArmorRemovalChance
elseif iType == 116 ; currency
set fRemovalChance to EULxCalcCurrencyRemovalChance
else
DebugPrint "%n is non-removable, type %g." rBase iType
continue
endif
if IsQuestItem rBase
DebugPrint "%n is a quest item, skipping." rBase
continue
endif
if iType == 24 || iType == 40 ; weapons and armor
call EULxReduceItemHealth rContainer rItem
endif
set iValue to GetValue rBase
if iType == 31 && rBase != Caps001 ; misc item
if iValue < 5
if iValue == 0
DebugPrint "%n has zero value, skipping." rBase
continue
endif
if GetWeight rBase > 0
DebugPrint "%n is trash, cutting removal chance in half." rBase
set fRemovalChance to fRemovalChance / 2
endif
endif
if IsScripted rBase
DebugPrint "%n is scripted, skipping." rBase
continue
endif
if ListGetFormIndex EULxProtectedItemsMisc rBase != -1
DebugPrint "%n is a protected item, skipping." rBase
continue
endif
endif
if iValue > EULxMaxItemValue
DebugPrint "%n value exceeds maximum, skipping." rBase
continue
endif
if AuxiliaryVariableGetFloat "S" 0 rBase == 0 ; the item is encountered for the first time
DebugPrint "Adding %n to ever scanned list, should only see this once" rBase
AuxiliaryVariableSetFloat "S" 1 0 rBase
continue
endif
set iCount to rItem.GetRefCount
DebugPrint "Found %g %n(s) in %n." iCount rBase rContainer
if iCount > 1
if iType != 41 && rBase != Caps001 ; do not apply random removal to ammo and caps
set fRemovalChance to Rand 0 fRemovalChance
endif
set fCount to iCount * ( fRemovalChance / 100 )
if Ceil fCount - fCount > 0.5 ; Number rounding implementation
set iCount to Floor fCount
else
set iCount to Ceil fCount
endif
DebugPrint "Removing %g of %n, removal chance %.2f." iCount rBase fRemovalChance
elseif GetRandomPercent >= fRemovalChance
DebugPrint "%n was skipped because due to removal chance %.2f." rBase fRemovalChance
continue
endif
if iCount > 0
; RemoveMeIR and variations cause CTD here.
if itemsToRemoveRefs == 0
let itemsToRemoveRefs := ar_construct "array"
let itemsToRemoveCounts := ar_construct "array"
endif
ar_append itemsToRemoveRefs rBase
ar_append itemsToRemoveCounts iCount
else
DebugPrint "%n was skipped because due to removal chance %.2f." rBase fRemovalChance
endif
loop
set i to 0
set iLimit to ar_size itemsToRemoveRefs
while i < iLimit
let rBase := itemsToRemoveRefs[i]
let iCount := itemsToRemoveCounts[i]
DebugPrint "Removing %g of %n from %n" iCount rBase rContainer
rContainer.RemoveItem rBase iCount 1
set i to i + 1
loop
let itemsToRemoveRefs := ar_null
let itemsToRemoveCounts := ar_null
end

257
src/EULxDelootifyNPC.gek Normal file
View File

@ -0,0 +1,257 @@
scn EULxDelootifyNPC
ref rNPC
ref rItem
int iType
int iEquipType
ref rBase
long iValue
float fBasefRemovalChance
float fRemovalChance
int i
int iLimit
array_var itemsToRemoveRefs
array_var itemsToRemoveCounts
float fCount
int iCount
int bDisintegrated
begin function { rNPC, bDisintegrated }
set fBasefRemovalChance to call EULxCalculateBaseRemovalChance rNPC
if fBasefRemovalChance <= 0
DebugPrint "Base removal chance for %n <= 0, skipping." rNPC
return
endif
DebugPrint "Scanning %n's inventory." rNPC
let itemsToRemoveRefs := ar_construct "array"
let itemsToRemoveCounts := ar_construct "array"
foreach rItem <- rNPC
set rBase to rItem.GetBaseForm
set iType to GetObjectType rBase
if iType == 24 || iType == 40 || iType == 41
if IsPlayable rBase == 0
DebugPrint "Skipping non-playable item: %n" rBase
continue
endif
if iType == 24 ; armor
if bDisintegrated == 0
call EULxReduceItemHealth rNPC rItem
if rItem.IsEquipped
DebugPrint "Skipping equipped item in OnDying (IsEquipped): %n" rBase
continue
endif
; Sometimes, IsEquipped stops working, we fallback to GetEquipped
if rNPC.GetEquipped rBase
DebugPrint "Skipping equipped item in OnDying (GetEquipped): %n" rBase
continue
endif
endif
if ListGetFormIndex EULxProtectedItemsArmor rBase != -1
DebugPrint "%n is a protected item, skipping." rBase
continue
endif
endif
if iType == 40 && bDisintegrated == 0
call EULxReduceItemHealth rNPC rItem
if EULxActorRemoveEquippedWeapons == 0
if rItem.IsEquipped
DebugPrint "Skipping equipped item in OnDying (IsEquipped): %n" rBase
continue
endif
endif
endif
endif
if iType == 46
DebugPrint "Skipping key: %n" rItem
continue
endif
if iType == 25
DebugPrint "Skipping book: %n" rItem
continue
endif
if iType == 49
DebugPrint "Skipping note: %n" rItem
continue
endif
if iType == 103
DebugPrint "Skipping weapon mod: %n" rItem
continue
endif
if iType == 108
DebugPrint "Skipping casino chip: %n" rItem
continue
endif
if iType == 115
DebugPrint "Skipping caravan card: %n" rItem
continue
endif
if IsQuestItem rBase
DebugPrint "Skipping quest item: %n" rBase
continue
endif
if ListGetFormIndex EULxDeathItems rBase != -1
DebugPrint "Skipping death item: %n" rBase
continue
endif
set iValue to GetValue rBase
if iType == 31 && rBase != Caps001 ; misc item
if iValue < 5
if iValue == 0
DebugPrint "%n has zero value, skipping." rBase
continue
endif
if GetWeight rBase > 0
DebugPrint "%n is trash, cutting removal chance in half." rBase
set fRemovalChance to fRemovalChance / 2
endif
endif
if IsScripted rBase
DebugPrint "%n is scripted, skipping." rBase
continue
endif
if ListGetFormIndex EULxProtectedItemsMisc rBase != -1
DebugPrint "%n is a protected item, skipping." rBase
continue
endif
endif
if iValue > EULxMaxItemValue
DebugPrint "%n value exceeds max value, skipping." rBase
continue
endif
if iType == 41
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorAmmoRemovalMod
elseif iType == 24
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorArmorRemovalMod
elseif iType == 40
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorWeaponRemovalMod
elseif iType == 116
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorCurrencyRemovalMod
elseif iType == 31
if rBase == Caps001 || rBase == PrewarMoney
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorCurrencyRemovalMod
else
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorMiscRemovalMod
endif
elseif iType == 47
if ListGetFormIndex EULxProtectedItemsFood rBase != -1
DebugPrint "%n is a protected item, skipping." rBase
continue
endif
set iEquipType to GetEquipType rBase
if iEquipType == 11 || GetIngestibleFlag rBase 4 ; meds
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorMedsRemovalMod
elseif iEquipType == 10 ; chems
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorChemsRemovalMod
elseif iEquipType == 13 ; alcohol
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorAlcoholRemovalMod
else
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorFoodRemovalMod
endif
else
continue
endif
set fRemovalChance to fRemovalChance * 100
if fRemovalChance <= 0
DebugPrint "Removal chance of %n is 0, skipping." rBase
continue
endif
if bDisintegrated
set fRemovalChance to fRemovalChance * EULxActorDisintegratedMod
DebugPrint "%n has been disintegrated/gooified, setting removal chance to %.2f%%" rNPC fRemovalChance
endif
set iCount to rItem.GetRefCount
DebugPrint "Removal chance of %n: %g vs total in corpse %g" rBase fRemovalChance iCount
if iCount > 1
if iType != 41 && rBase != Caps001 ; do not apply random removal to ammo and caps
set fRemovalChance to Rand 0 fRemovalChance
endif
set fCount to iCount * ( fRemovalChance / 100 )
if Ceil fCount - fCount > 0.5 ; Number rounding implementation
set iCount to Floor fCount
else
set iCount to Ceil fCount
endif
DebugPrint "Removing %g of %n, removal chance %g." iCount rBase fRemovalChance
elseif GetRandomPercent >= fRemovalChance
DebugPrint "%n was skipped." rBase
continue
endif
if iCount > 0
ar_Append itemsToRemoveRefs rBase
ar_Append itemsToRemoveCounts iCount
else
DebugPrint "%n was skipped." rBase
endif
loop
printd "SCAN COMPLETE!"
; NB: The game will CTD if we remove items in the main loop.
set i to 0
set iLimit to ar_size itemsToRemoveRefs
while i < iLimit
let rBase := itemsToRemoveRefs[i]
let iCount := itemsToRemoveCounts[i]
DebugPrint "Removing %g of %n from %n" iCount rBase rNPC
rNPC.removeItem rBase iCount 1
set i to i + 1
loop
let itemsToRemoveRefs := ar_null
let itemsToRemoveCounts := ar_null
printd "Corpse loot reduction block exited."
end

70
src/EULxINILoadSettings.gek Normal file
View File

@ -0,0 +1,70 @@
scn EULxINILoadSettings
string_var sFile
begin function {}
if FileExists "config\Unfound Loot.ini" == 0
MessageBoxEx "File Data\Config\Unfound Loot.ini was not found!"
return
endif
if GetINIFloat "General:Saved" "Unfound Loot.ini" == 0
MessageBoxEx "Unfound Loot.ini was not saved through the panel, won't reload."
return
endif
let sFile := "Unfound Loot.ini"
; General
set EULxMaxItemValue to GetINIFloat "General:MaxItemValue" $sFile
set EULxLuckModifier to GetINIFloat "General:LuckModifier" $sFile
set EULxMaxWeaponCondition to GetINIFloat "General:MaxWeaponCondition" $sFile
set EULxMaxArmorCondition to GetINIFloat "General:MaxArmorCondition" $sFile
; World
set EULxWorldLootRemovalEnabled to GetINIFloat "World:LootRemovalEnabled" $sFile
set EULxWorldBaseRemovalChance to GetINIFloat "World:BaseRemovalChance" $sFile
set EULxWorldSkipLocked to GetINIFloat "World:SkipLocked" $sFile
set EULxWorldWeaponRemovalMod to GetINIFloat "World:WeaponRemovalMod" $sFile
set EULxWorldAmmoRemovalMod to GetINIFloat "World:AmmoRemovalMod" $sFile
set EULxWorldArmorRemovalMod to GetINIFloat "World:ArmorRemovalMod" $sFile
set EULxWorldCurrencyRemovalMod to GetINIFloat "World:CurrencyRemovalMod" $sFile
set EULxWorldAlcoholRemovalMod to GetINIFloat "World:AlcoholRemovalMod" $sFile
set EULxWorldChemsRemovalMod to GetINIFloat "World:ChemsRemovalMod" $sFile
set EULxWorldMedsRemovalMod to GetINIFloat "World:MedsRemovalMod" $sFile
set EULxWorldFoodRemovalMod to GetINIFloat "World:FoodRemovalMod" $sFile
set EULxWorldMiscRemovalMod to GetINIFloat "World:MiscRemovalMod" $sFile
; Actors
set EULxActorLootRemovalEnabled to GetINIFloat "Actors:LootRemovalEnabled" $sFile
set EULxActorBaseRemovalChance to GetINIFloat "Actors:BaseRemovalChance" $sFile
set EULxActorRemoveEquippedWeapons to GetINIFloat "Actors:RemoveEquippedWeapons" $sFile
set EULxActorBreakOnDecapitation to GetINIFloat "Actors:BreakOnDecapitation" $sFile
set EULxActorWeaponRemovalMod to GetINIFloat "Actors:WeaponRemovalMod" $sFile
set EULxActorAmmoRemovalMod to GetINIFloat "Actors:AmmoRemovalMod" $sFile
set EULxActorArmorRemovalMod to GetINIFloat "Actors:ArmorRemovalMod" $sFile
set EULxActorCurrencyRemovalMod to GetINIFloat "Actors:CurrencyRemovalMod" $sFile
set EULxActorAlcoholRemovalMod to GetINIFloat "Actors:AlcoholRemovalMod" $sFile
set EULxActorChemsRemovalMod to GetINIFloat "Actors:ChemsRemovalMod" $sFile
set EULxActorMedsRemovalMod to GetINIFloat "Actors:MedsRemovalMod" $sFile
set EULxActorFoodRemovalMod to GetINIFloat "Actors:FoodRemovalMod" $sFile
set EULxActorMiscRemovalMod to GetINIFloat "Actors:MiscRemovalMod" $sFile
set EULxActorAnimalMod to GetINIFloat "Actors:AnimalMod" $sFile
set EULxActorRobotMod to GetINIFloat "Actors:RobotMod" $sFile
set EULxActorFeralGhoulMod to GetINIFloat "Actors:FeralGhoulMod" $sFile
set EULxActorHumanMod to GetINIFloat "Actors:HumanMod" $sFile
set EULxActorGhoulMod to GetINIFloat "Actors:GhoulMod" $sFile
set EULxActorSupermutantMod to GetINIFloat "Actors:SupermutantMod" $sFile
set EULxActorDisintegratedMod to GetINIFloat "Actors:DisintegratedMod" $sFile
sv_destruct sFile
end

64
src/EULxINISaveSettings.gek Normal file
View File

@ -0,0 +1,64 @@
scn EULxINISaveSettings
string_var sFile
begin function {}
let sFile := "Unfound Loot.ini"
; Control mark
SetINIFloat "General:Saved" 1 $sFile
; General
SetINIFloat "General:MaxItemValue" EULxMaxItemValue $sFile
SetINIFloat "General:LuckModifier" EULxLuckModifier $sFile
SetINIFloat "General:MaxWeaponCondition" EULxMaxWeaponCondition $sFile
SetINIFloat "General:MaxArmorCondition" EULxMaxArmorCondition $sFile
; World
SetINIFloat "World:LootRemovalEnabled" EULxWorldLootRemovalEnabled $sFile
SetINIFloat "World:BaseRemovalChance" EULxWorldBaseRemovalChance $sFile
SetINIFloat "World:SkipLocked" EULxWorldSkipLocked $sFile
SetINIFloat "World:WeaponRemovalMod" EULxWorldWeaponRemovalMod $sFile
SetINIFloat "World:AmmoRemovalMod" EULxWorldAmmoRemovalMod $sFile
SetINIFloat "World:ArmorRemovalMod" EULxWorldArmorRemovalMod $sFile
SetINIFloat "World:CurrencyRemovalMod" EULxWorldCurrencyRemovalMod $sFile
SetINIFloat "World:AlcoholRemovalMod" EULxWorldAlcoholRemovalMod $sFile
SetINIFloat "World:ChemsRemovalMod" EULxWorldChemsRemovalMod $sFile
SetINIFloat "World:MedsRemovalMod" EULxWorldMedsRemovalMod $sFile
SetINIFloat "World:FoodRemovalMod" EULxWorldFoodRemovalMod $sFile
SetINIFloat "World:MiscRemovalMod" EULxWorldMiscRemovalMod $sFile
; Actors
SetINIFloat "Actors:LootRemovalEnabled" EULxActorLootRemovalEnabled $sFile
SetINIFloat "Actors:BaseRemovalChance" EULxActorBaseRemovalChance $sFile
SetINIFloat "Actors:RemoveEquippedWeapons" EULxActorRemoveEquippedWeapons $sFile
SetINIFloat "Actors:BreakOnDecapitation" EULxActorBreakOnDecapitation $sFile
SetINIFloat "Actors:WeaponRemovalMod" EULxActorWeaponRemovalMod $sFile
SetINIFloat "Actors:AmmoRemovalMod" EULxActorAmmoRemovalMod $sFile
SetINIFloat "Actors:ArmorRemovalMod" EULxActorArmorRemovalMod $sFile
SetINIFloat "Actors:CurrencyRemovalMod" EULxActorCurrencyRemovalMod $sFile
SetINIFloat "Actors:AlcoholRemovalMod" EULxActorAlcoholRemovalMod $sFile
SetINIFloat "Actors:ChemsRemovalMod" EULxActorChemsRemovalMod $sFile
SetINIFloat "Actors:MedsRemovalMod" EULxActorMedsRemovalMod $sFile
SetINIFloat "Actors:FoodRemovalMod" EULxActorFoodRemovalMod $sFile
SetINIFloat "Actors:MiscRemovalMod" EULxActorMiscRemovalMod $sFile
SetINIFloat "Actors:AnimalMod" EULxActorAnimalMod $sFile
SetINIFloat "Actors:RobotMod" EULxActorRobotMod $sFile
SetINIFloat "Actors:FeralGhoulMod" EULxActorFeralGhoulMod $sFile
SetINIFloat "Actors:HumanMod" EULxActorHumanMod $sFile
SetINIFloat "Actors:GhoulMod" EULxActorGhoulMod $sFile
SetINIFloat "Actors:SupermutantMod" EULxActorSupermutantMod $sFile
SetINIFloat "Actors:DisintegratedMod" EULxActorDisintegratedMod $sFile
sv_destruct sFile
end

50
src/EULxMCMAddElement.gek Normal file
View File

@ -0,0 +1,50 @@
scn EULxMCMAddElement
int i
int iSlot
string_var sTitle
float fType
float fValue
begin _function { fType, sTitle, fValue }
set i to 36
while i > 0
if 1 == GetMCMFloat 1 i "_enable"
set iSlot to i + 1
break
endif
set i to i - 1
loop
if iSlot == 0
set iSlot to 1
endif
SetUIFloat "StartMenu/MCM/*:1/*:" + $iSlot + "/_enable" 1
SetUIString "StartMenu/MCM/*:1/*:" + $iSlot + "/_title" $sTitle
SetUIFloat "StartMenu/MCM/*:1/*:" + $iSlot + "/_type" fType
if fType == 2 || fType == 4 || fType == 5
SetUIFloat "StartMenu/MCM/*:1/*:" + $iSlot + "/_value" fValue
elseif fType == 2.5
SetUIStringEx "StartMenu/MCM/*:1/*:" + $iSlot + "/value/*:1/string" "%.1f" fValue
elseif fType == 0
if sTitle
; header font
if 0 < GetUIFloat "HUDMainMenu\_DUIF3" ; DarnifiedUI
SetUIFloat "StartMenu/MCM/*:1/*:" + $iSlot + "/_altFont" 3
else
SetUIFloat "StartMenu/MCM/*:1/*:" + $iSlot + "/_altFont" 1
endif
endif
SetUIFloat "StartMenu/MCM/*:1/*:" + $iSlot + "/_highlight" 0
SetUIFloat "StartMenu/MCM/*:1/*:" + $iSlot + "/_brightness" 180
endif
sv_destruct sTitle
end

24
src/EULxMCMAddScale.gek Normal file
View File

@ -0,0 +1,24 @@
scn EULxMCMAddScale
string_var sTitle
string_var sSuffix
float fValue
float fDecimals
float fValueMin
float fValueMax
float fValueIncrement
begin function { sTitle, fValue, sSuffix, fValueMin, fValueMax, fDecimals, fValueIncrement }
SetUIString "StartMenu/MCM/*:2/_title" $sTitle
SetUIString "StartMenu/MCM/*:2/_suffixText" $sSuffix
SetUIFloat "StartMenu/MCM/_Value" fValue
SetUIFloat "StartMenu/MCM/_ValueDecimal" fDecimals
SetUIFloat "StartMenu/MCM/_ValueIncrement" fValueIncrement
SetUIFloat "StartMenu/MCM/_ValueMax" fValueMax
SetUIFloat "StartMenu/MCM/_ValueMin" fValueMin
sv_destruct sTitle
sv_destruct sSuffix
end

32
src/EULxOnCellEnter.gek Normal file
View File

@ -0,0 +1,32 @@
scn EULxOnCellEnter
ref rCell
array_var aCells
int i
begin function { rCell }
if GetCellFlag rCell 0 ; interior
if IsCellVisited rCell
return
endif
call EULxOnSeen rCell
else
let aCells := GetBufferedCells 0
let i := ar_size aCells
while i > 0
let i -= 1
let rCell := aCells[i]
if IsCellVisited rCell == 0
if RefMapGetFlt "*v" rCell == 0
RefMapSetFlt "*v" 1 rCell
call EULxOnSeen rCell
endif
elseif RefMapGetType "*v" rCell
RefMapErase "*v" rCell
endif
loop
let aCells := ar_null
endif
end

15
src/EULxOnDisintegration.gek Normal file
View File

@ -0,0 +1,15 @@
scn EULxOnDisintegration
ref rActor
ref rBaseEffect
begin function { rActor, rBaseEffect }
if rActor == playerRef
return
endif
DebugPrint "%n has been disintegrated/gooified, making second pass" rActor
call EULxDelootifyNPC rActor 1
end

27
src/EULxOnDrop.gek Normal file
View File

@ -0,0 +1,27 @@
scn EULxOnDrop
ref rDropper
ref rItem
int iType
begin function { rDropper, rItem }
if rDropper == playerRef
return
endif
if rDropper.GetDead ; items, dropped on death, handled in OnDying
return
endif
DebugPrint "%n dropped %n being alive, skipping removal." rDropper rItem
set iType to rItem.GetType
if iType != 40 && iType != 24
return
endif
call EULxReduceItemHealth playerRef rItem
end

65
src/EULxOnDying.gek Normal file
View File

@ -0,0 +1,65 @@
scn EULxOnDying
ref rActor
ref rTemp
int i
int iType
float fBasefRemovalChance
float fRemovalChance
array_var aItems
begin function { rActor }
if EULxActorLootRemovalEnabled == 0 || rActor == playerRef
return
endif
if rActor.GetPlayerTeammate
DebugPrint "%n is a teammate, skipping" rActor
return
endif
DebugPrint "%n has been killed" rActor
call EULxDelootifyNPC rActor 0
let aItems := rActor.GetDroppedRefs
set i to ar_size aItems
if i > 0
set fBasefRemovalChance to call EULxCalculateBaseRemovalChance rActor
while i > 0
set i to i - 1
let rTemp := aItems[i]
if EULxActorRemoveEquippedWeapons == 0
call EULxReduceItemHealth playerRef rTemp
continue
endif
; Normally, NPCs do not drop anything besides weapons, we skip other types for now
if rTemp.GetType != 40
continue
endif
set fRemovalChance to call EULxProbabilityMultiplierFUNCTION fBasefRemovalChance EULxActorWeaponRemovalMod
set fRemovalChance to fRemovalChance * 100
DebugPrint "%n dropped %n, removal chance %.2f%%" rActor rTemp fRemovalChance
if GetRandomPercent >= fRemovalChance
call EULxReduceItemHealth playerRef rTemp
else
DebugPrint "Disabling dropped %n" rTemp
rTemp.disable
rTemp.MarkForDelete
endif
loop
elseif i == 0
let aItems := ar_null
endif
end

44
src/EULxOnGameLoad.gek Normal file
View File

@ -0,0 +1,44 @@
scn EULxOnGameLoad
; NB: the print function is silent in the PostLoadGame event handlers
int iSuccess
begin function { iSuccess }
; Get main DLCs' indexes for better detection of mod-added items
set EULxDLCIndex to 0
if IsModLoaded "TaleOfTwoWastelands.esm"
set EULxDLCIndex to GetModIndex "TaleOfTwoWastelands.esm"
elseif IsModLoaded "GunRunnersArsenal.esm"
set EULxDLCIndex to GetModIndex "GunRunnersArsenal.esm"
elseif IsModLoaded "LonesomeRoad.esm"
set EULxDLCIndex to GetModIndex "LonesomeRoad.esm"
elseif IsModLoaded "OldWorldBlues.esm"
set EULxDLCIndex to GetModIndex "OldWorldBlues.esm"
elseif IsModLoaded "HonestHearts.esm"
set EULxDLCIndex to GetModIndex "HonestHearts.esm"
elseif IsModLoaded "DeadMoney.esm"
set EULxDLCIndex to GetModIndex "DeadMoney.esm"
endif
SetGameMainLoopCallback EULxOnGameMode 1 3 1
RefMapDestroy "*v"
if EULxVersion < 3
set EULxVersion to 3
set EULxActorDisintegratedMod to 2
if EULxSaveToINI
if FileExists "config\Unfound Loot.ini"
if GetINIFloat "General:Saved" "Unfound Loot.ini"
SetINIFloat "Actors:DisintegratedMod" EULxActorDisintegratedMod "Unfound Loot.ini"
endif
endif
endif
endif
end

18
src/EULxOnGameMode.gek Normal file
View File

@ -0,0 +1,18 @@
scn EULxOnGameMode
begin function {}
SetGameMainLoopCallback EULxOnGameMode 0
SetJohnnyOnDyingEventHandler EULxActorLootRemovalEnabled EULxOnDying 0
SetJohnnyOnLimbGoneEventHandler EULxActorBreakOnDecapitation EULxOnLimbGone 0
if IsModLoaded "JIP MiniMap.esp" == 0
SetJohnnySeenDataEventHandler EULxWorldLootRemovalEnabled EULxOnSeen 0
endif
if GetGameRestarted
SetEventHandler "OnMagicEffectHit" EULxOnDisintegration "second"::EULxDisintegrationEffects
endif
end

52
src/EULxOnLimbGone.gek Normal file
View File

@ -0,0 +1,52 @@
scn EULxOnLimbGone
ref rActor
int iLimb
ref rItem
begin function { rActor, iLimb }
if EULxActorBreakOnDecapitation == 0
SetJohnnyOnLimbGoneEventHandler 0 EULxOnLimbGone 0
return
endif
if rActor.GetIsCreature
return
endif
if iLimb == 1
set rItem to rActor.GetEquippedItemRef 9 ; headband
if rItem
DebugPrint "%n has been decapitated, setting %n condition to 0" rActor rItem
rItem.SetItemRefCurrentHealth 0
endif
set rItem to rActor.GetEquippedItemRef 10 ; hat
if rItem
DebugPrint "%n has been decapitated, setting %n condition to 0" rActor rItem
rItem.SetItemRefCurrentHealth 0
endif
set rItem to rActor.GetEquippedItemRef 11 ; eyeglasses
if rItem
DebugPrint "%n has been decapitated, setting %n condition to 0" rActor rItem
rItem.SetItemRefCurrentHealth 0
endif
set rItem to rActor.GetEquippedItemRef 14 ; mask
if rItem
DebugPrint "%n has been decapitated, setting %n condition to 0" rActor rItem
rItem.SetItemRefCurrentHealth 0
endif
set rItem to rActor.GetEquippedItemRef 16 ; mouth object
if rItem
DebugPrint "%n has been decapitated, setting %n condition to 0" rActor rItem
rItem.SetItemRefCurrentHealth 0
endif
endif
end

14
src/EULxOnNewGame.gek Normal file
View File

@ -0,0 +1,14 @@
scn EULxOnNewGame
begin function {}
call EULxOnGameLoad 1
if FileExists "config\Unfound Loot.ini"
if GetINIFloat "General:Saved" "Unfound Loot.ini"
call EULxINILoadSettings
set EULxSaveToINI to 1
endif
endif
end

14
src/EULxOnPause.gek Normal file
View File

@ -0,0 +1,14 @@
scn EULxOnPause
int iMenuMode
begin function { iMenuMode }
printd "Unfound Loot: Starting MCM quest"
; Safeguard from rogue value changers
SetValue EULxMCMMiscItem 23370
StartQuest EULxQuest
end

106
src/EULxOnSeen.gek Normal file
View File

@ -0,0 +1,106 @@
scn EULxOnSeen
ref rCell
ref rTemp
ref rItem
int iTemp
int iPrecalc
int bSkip
begin function { rCell }
if EULxWorldLootRemovalEnabled == 0
return
endif
if GetOwnerOfCell rCell
DebugPrint "%n is an owned cell, skipping." rCell
return
endif
if ListGetFormIndex EULxProtectedCells rCell != -1
DebugPrint "%n is a protected cell, skipping." rCell
return
endif
; Splitting this into separate UDFs is nice and all, but not very performance-friendly.
; Instead, we do most basic checks here, and all the hard work in separate functions.
; Do not call EULxDelootifyCellItems if the cell has no items
if GetFirstRefInCell rCell 201 0 0
set iPrecalc to 1
call EULxPrecalculateRemovalChance
call EULxDelootifyCellItems rCell
endif
DebugPrint "Scanning %n (%i) for containers" rCell rCell
set iTemp to GetSourceModIndex rCell
set rTemp to GetFirstRefInCell rCell 27 0 0
while rTemp
set bSkip to 0
if rTemp.GetDisabled
DebugPrint "%n is disabled, skipping." rTemp
set rTemp to GetNextRef
continue
elseif rTemp.IsPersistent
DebugPrint "%n is persistent, skipping." rTemp
set rTemp to GetNextRef
continue
elseif rTemp.GetContainerInventoryCount == 0
DebugPrint "%n is empty, skipping." rTemp
set rTemp to GetNextRef
continue
elseif rTemp.GetLocked && EULxWorldSkipLocked
DebugPrint "%n is locked, skipping loot reduction." rTemp
set bSkip to 1
elseif rTemp.HasScriptBlock 2 ; OnActivate
DebugPrint "%n is scripted, skipping loot reduction." rTemp
set bSkip to 1
elseif rTemp.GetReferenceFlag 33554432
DebugPrint "%n has the No AI Acquire flag, skipping loot reduction." rTemp
set bSkip to 1
elseif rTemp.GetOwner
DebugPrint "%n is owned, skipping loot reduction." rTemp
set bSkip to 1
elseif eval 0 < ar_size (rTemp.GetAllItems 49)
DebugPrint "%n contains a note, skipping loot reduction." rTemp
set bSkip to 1
endif
if bSkip == 0
if GetSourceModIndex rTemp != iTemp
DebugPrint "%n is a mod-added container, skipping." rTemp
set bSkip to 1
endif
endif
if bSkip
foreach rItem <- rTemp
if rItem.GetType == 24 || rItem.GetType == 40
call EULxReduceItemHealth rTemp rItem
endif
loop
set rTemp to GetNextRef
continue
endif
if iPrecalc == 0
set iPrecalc to 1
call EULxPrecalculateRemovalChance
endif
call EULxDelootifyContainer rCell rTemp
set rTemp to GetNextRef
loop
end

41
src/EULxPrecalculateRemovalChance.gek Normal file
View File

@ -0,0 +1,41 @@
scn EULxPrecalculateRemovalChance
float fTemp
begin function {}
set fTemp to (( EULxLuckModifier / 10 ) * playerRef.getAV luck) / 100
set fTemp to 1 - fTemp
set fTemp to EULxWorldBaseRemovalChance * fTemp
set fTemp to fTemp / 100
;DebugPrint "Base removal chance %g, luck effect %g%% - new base removal chance %g%%" EULxWorldBaseRemovalChance EULxLuckModifier fTemp
set EULxCalcArmorRemovalChance to call EULxProbabilityMultiplierFUNCTION fTemp EULxWorldArmorRemovalMod
set EULxCalcArmorRemovalChance to EULxCalcArmorRemovalChance * 100
set EULxCalcMiscRemovalChance to call EULxProbabilityMultiplierFUNCTION fTemp EULxWorldMiscRemovalMod
set EULxCalcMiscRemovalChance to EULxCalcMiscRemovalChance * 100
set EULxCalcWeaponRemovalChance to call EULxProbabilityMultiplierFUNCTION fTemp EULxWorldWeaponRemovalMod
set EULxCalcWeaponRemovalChance to EULxCalcWeaponRemovalChance * 100
set EULxCalcAmmoRemovalChance to call EULxProbabilityMultiplierFUNCTION fTemp EULxWorldAmmoRemovalMod
set EULxCalcAmmoRemovalChance to EULxCalcAmmoRemovalChance * 100
set EULxCalcCurrencyRemovalChance to call EULxProbabilityMultiplierFUNCTION fTemp EULxWorldCurrencyRemovalMod
set EULxCalcCurrencyRemovalChance to EULxCalcCurrencyRemovalChance * 100
set EULxCalcChemsRemovalChance to call EULxProbabilityMultiplierFUNCTION fTemp EULxWorldChemsRemovalMod
set EULxCalcChemsRemovalChance to EULxCalcChemsRemovalChance * 100
set EULxCalcMedsRemovalChance to call EULxProbabilityMultiplierFUNCTION fTemp EULxWorldMedsRemovalMod
set EULxCalcMedsRemovalChance to EULxCalcMedsRemovalChance * 100
set EULxCalcAlcoholRemovalChance to call EULxProbabilityMultiplierFUNCTION fTemp EULxWorldAlcoholRemovalMod
set EULxCalcAlcoholRemovalChance to EULxCalcAlcoholRemovalChance * 100
set EULxCalcFoodRemovalChance to call EULxProbabilityMultiplierFUNCTION fTemp EULxWorldFoodRemovalMod
set EULxCalcFoodRemovalChance to EULxCalcFoodRemovalChance * 100
end

164
src/EULxPresetSetterFUNCTION.gek Normal file
View File

@ -0,0 +1,164 @@
scn EULxPresetSetterFUNCTION
int iPreset ; 1=balanced, 2=hardcore, 3=realistic
int bAll
begin function { iPreset, bAll }
printToConsole "Unfound Loot: Setting up preset %g" iPreset
if bAll || EULxQuest.iSubMenu == 1
; General
set EULxMaxItemValue to 5000 ; excludes most uniques
set EULxMaxWeaponCondition to 40 ; 40% condition
set EULxMaxArmorCondition to 40 ; 40% condition
set EULxLuckModifier to 10 ; 10% luck effect
endif
if bAll || EULxQuest.iSubMenu == 2
; World-placed Items
set EULxWorldLootRemovalEnabled to 1
set EULxWorldBaseRemovalChance to 85
set EULxWorldSkipLocked to 1
set EULxWorldWeaponRemovalMod to 1.0
set EULxWorldArmorRemovalMod to 0.5 ; less chance of removing rad suits and such
set EULxWorldAlcoholRemovalMod to 1.0
set EULxWorldChemsRemovalMod to 1.0
set EULxWorldMedsRemovalMod to 1.0
set EULxWorldFoodRemovalMod to 1.3
set EULxWorldMiscRemovalMod to .60 ; keep interiors pretty
set EULxWorldAmmoRemovalMod to 1.0
set EULxWorldCurrencyRemovalMod to 1.2
endif
if bAll || EULxQuest.iSubMenu == 3
; Corpse Loot
set EULxActorLootRemovalEnabled to 1
set EULxActorBaseRemovalChance to 80
set EULxActorSkillMod to 1.0 ; from 95/90 to 90/85 percent removal at 100 skill (robot and animal only)
set EULxActorAnimalMod to 0.6 ; animals usually have stuff on them
set EULxActorRobotMod to 1.0
set EULxActorFeralGhoulMod to 1.0
set EULxActorHumanMod to 1.0
set EULxActorGhoulMod to 1.0
set EULxActorSupermutantMod to 1.0
set EULxActorWeaponRemovalMod to 1.0
set EULxActorArmorRemovalMod to 1.0
set EULxActorAlcoholRemovalMod to 1.0
set EULxActorChemsRemovalMod to 1.0
set EULxActorMedsRemovalMod to 1.0
set EULxActorFoodRemovalMod to 1.0
set EULxActorMiscRemovalMod to 1.0
set EULxActorCurrencyRemovalMod to 0.8
set EULxActorAmmoRemovalMod to 0.3 ; leave a little more ammo for the player
set EULxActorRemoveEquippedWeapons to 0
set EULxActorBreakOnDecapitation to 1
set EULxActorDisintegratedMod to 2
endif
if bAll == 0
return
endif
if iPreset == 1 ; Balanced
set EULxMaxItemValue to 3500
set EULxMaxWeaponCondition to 30
set EULxMaxArmorCondition to 30
set EULxWorldBaseRemovalChance to 95
set EULxWorldArmorRemovalMod to 1.0
set EULxWorldMiscRemovalMod to .80 ;sparse interiors
set EULxWorldAmmoRemovalMod to 2.0 ;too much ammo as is
set EULxWorldCurrencyRemovalMod to 1.0
set EULxWorldAlcoholRemovalMod to 1.0
set EULxWorldChemsRemovalMod to 1.0
set EULxWorldMedsRemovalMod to 1.0
set EULxWorldFoodRemovalMod to 1.3
set EULxActorBaseRemovalChance to 95
set EULxActorAnimalMod to 0.75 ;sparse animals
set EULxActorAmmoRemovalMod to 0.4
set EULxActorCurrencyRemovalMod to 1.0
set EULxActorAlcoholRemovalMod to EULxWorldAlcoholRemovalMod
set EULxActorChemsRemovalMod to EULxWorldChemsRemovalMod
set EULxActorMedsRemovalMod to EULxWorldMedsRemovalMod
set EULxActorFoodRemovalMod to 0.8
elseif iPreset == 2 ; Hardcore
set EULxMaxItemValue to 9999 ; remove almost anything
set EULxMaxWeaponCondition to 20
set EULxMaxArmorCondition to 20
set EULxLuckModifier to 0
set EULxWorldSkipLocked to 0
set EULxWorldBaseRemovalChance to 95
set EULxWorldWeaponRemovalMod to 1.5
set EULxWorldArmorRemovalMod to 0.6
set EULxWorldMiscRemovalMod to 0.33 ; junk doesnt get picked up
set EULxWorldAmmoRemovalMod to 1.3
set EULxWorldCurrencyRemovalMod to 1.5
set EULxWorldAlcoholRemovalMod to 1.5
set EULxWorldChemsRemovalMod to 1.2
set EULxWorldMedsRemovalMod to 1.2
set EULxWorldFoodRemovalMod to 1.5 ;
set EULxActorBaseRemovalChance to 90
set EULxActorAnimalMod to 0.1 ;animals usually have stuff on them
set EULxActorRobotMod to 0.5
set EULxActorFeralGhoulMod to 2.0
set EULxActorMiscRemovalMod to 2.0
set EULxActorCurrencyRemovalMod to 2.0
set EULxActorAlcoholRemovalMod to EULxWorldAlcoholRemovalMod
set EULxActorChemsRemovalMod to EULxWorldChemsRemovalMod
set EULxActorMedsRemovalMod to EULxWorldMedsRemovalMod
set EULxActorFoodRemovalMod to 0.2
elseif iPreset == 3 ; Realistic
set EULxMaxWeaponCondition to 35
set EULxMaxArmorCondition to 35
set EULxWorldBaseRemovalChance to 66
set EULxWorldWeaponRemovalMod to 1.5
set EULxWorldCurrencyRemovalMod to 2.0
set EULxWorldAlcoholRemovalMod to 2.0
set EULxWorldChemsRemovalMod to 1.5
set EULxWorldMedsRemovalMod to 1.2
set EULxWorldFoodRemovalMod to 2.0
set EULxActorBaseRemovalChance to 66
set EULxActorAnimalMod to 0.1 ;animals usually have stuff on them
set EULxActorCurrencyRemovalMod to 2.0
set EULxActorAlcoholRemovalMod to EULxWorldAlcoholRemovalMod
set EULxActorChemsRemovalMod to EULxWorldChemsRemovalMod
set EULxActorMedsRemovalMod to EULxWorldMedsRemovalMod
set EULxActorFoodRemovalMod to 0.2
endif
call EULxPrecalculateRemovalChance
end

23
src/EULxProbabilityMultiplierFUNCTION.gek Normal file
View File

@ -0,0 +1,23 @@
scn EULxProbabilityMultiplierFUNCTION
float fBaseProbability
float fMultiplier
float fTemp
float fBaseProbabilityOfNotHappening
begin function { fBaseProbability, fMultiplier }
set fBaseProbabilityOfNotHappening to 1 - fBaseProbability
if fMultiplier < 1
set fTemp to fBaseProbability * fMultiplier
else
set fTemp to pow fBaseProbabilityOfNotHappening fMultiplier
set fTemp to 1 - fTemp
endif
;DebugPrint "ProbabilityMultiplierFunction called, prob %.4f mult: %.4f, returning %.4f" fBaseProbability fMultiplier fTemp
setFunctionValue fTemp
end

698
src/EULxQuestScript.gek Normal file
View File

@ -0,0 +1,698 @@
scn EULxQuestScript
int iMouseover
int iOption
int iSubMenu
float fValue
ref rTemp
begin GameMode
StopQuest EULxQuest ; No zombies allowed!
end
begin MenuMode 4
StopQuest EULxQuest
if GetGameRestarted == 0
return
endif
if GetPluginVersion "JohnnyGuitarNVSE" < 305
print "Unfound Loot requires JohnnyGuitar NVSE 3.05+"
MessageBoxEx "Unfound Loot requires JohnnyGuitar NVSE 3.05+"
endif
if GetPluginVersion "JIP NVSE Plugin" < 55.45
print "Unfound Loot requires JIP LN NVSE 55.45+"
MessageBoxEx "Unfound Loot requires JIP LN NVSE 55.45+"
endif
if IsModLoaded "The Mod Configuration Menu.esp"
set fValue to GetModIndex "The Mod Configuration Menu.esp"
set rTemp to BuildRef fValue 2790
ListAddForm rTemp EULxMCMMiscItem
SetOnMenuOpenEventHandler EULxOnPause 1 1013 ; start MCM quest on pause
else
print "Unfound Loot: MCM not found"
endif
if IsModLoaded "DeadMoney.esm"
set rTemp to StringToRef "DeadMoney.esm:29E4" ; Sierra Madre Vault
ListAddForm EULxProtectedCells rTemp
endif
if IsModLoaded "Fallout3.esm"
set rTemp to StringToRef "Fallout3.esm:1B56C" ; TaftTunnel01
ListAddForm EULxProtectedCells rTemp
set rTemp to StringToRef "Fallout3.esm:CAFDF" ; Gold Ribbon Grocers
ListAddForm EULxProtectedCells rTemp
endif
set rTemp to 0
SetEventHandler "NewGame" EULxOnNewGame
SetEventHandler "PostLoadGame" EULxOnGameLoad
SetEventHandler "OnDrop" EULxOnDrop
if IsModLoaded "JIP MiniMap.esp"
print "Unfound Loot: JIP MiniMap detected, running in compatibility mode."
SetEventHandler "OnCellEnter" EULxOnCellEnter
endif
call EULxWhitelistDeathItems
end
begin MenuMode 1013
if GetUIFloat "StartMenu/MCM/_ActiveMod" != GetSelfModIndex
return
endif
if GetUIFloat "StartMenu/MCM/_ActiveMenu" != GetValue EULxMCMMiscItem
return
endif
set iOption to GetUIFloat "StartMenu/MCM/_ActiveOption"
set fValue to GetUIFloat "StartMenu/MCM/_Value"
if GetUIFloat "StartMenu/MCM/*:5/SubMenu1/_enable" == 0
SetUIFloat "StartMenu/MCM/_ActiveSubMenu" 1
SetUIFloat "StartMenu/MCM/*:5/SubMenu1/_enable" 1
SetUIString "StartMenu/MCM/*:5/SubMenu1/text/string" "General Options"
SetUIString "StartMenu/MCM/*:8/SubTitle1/string" "General Options"
SetUIFloat "StartMenu/MCM/*:5/SubMenu2/_enable" 1
SetUIString "StartMenu/MCM/*:5/SubMenu2/text/string" "World Items"
SetUIString "StartMenu/MCM/*:8/SubTitle2/string" "World Items Reduction"
SetUIFloat "StartMenu/MCM/*:5/SubMenu3/_enable" 1
SetUIString "StartMenu/MCM/*:5/SubMenu3/text/string" "Corpse Loot"
SetUIString "StartMenu/MCM/*:8/SubTitle3/string" "Corpse Loot Reduction"
endif
set iSubMenu to GetUIFloat "StartMenu/MCM/_ActiveSubMenu"
if GetUIFloat "StartMenu/MCM/_Reset" ; 1 - RESET
SetUIFloat "StartMenu/MCM/_Reset" 0 ; don't run twice
SetMCMFloatMass 1 1 36 "_enable" 0
if iSubMenu == 1
SetMCMFloat 1 0 "_columns" 1
call EULxMCMAddElement 2 "Max item value" EULxMaxItemValue
call EULxMCMAddElement 2 "Luck effect on base removal chance" EULxLuckModifier
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 2 "Max weapon condition" EULxMaxWeaponCondition
call EULxMCMAddElement 2 "Max armor condition" EULxMaxArmorCondition
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 1 "Select preset (overwrites ALL options)" 0
call EULxMCMAddElement 1 "Reset all settings" 0
call EULxMCMAddElement 5 "Enable debug mode for the session" GetDebugMode
call EULxMCMAddElement 0 "" 0
if FileExists "config\Unfound Loot.ini"
call EULxMCMAddElement 0 "Unfound Loot.ini" 0
call EULxMCMAddElement 5 "Save settings to INI" EULxSaveToINI
call EULxMCMAddElement 1 "Reload settings from INI" 0
endif
elseif iSubMenu == 2
SetMCMFloat 1 0 "_columns" 2
call EULxMCMAddElement 4 "Enabled" EULxWorldLootRemovalEnabled
call EULxMCMAddElement 2 "Base removal chance" EULxWorldBaseRemovalChance
call EULxMCMAddElement 5 "Skip locked containers" EULxWorldSkipLocked
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 0 "Removal chance multipliers" 0
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 2.5 "Weapons" EULxWorldWeaponRemovalMod
call EULxMCMAddElement 2.5 "Ammo" EULxWorldAmmoRemovalMod
call EULxMCMAddElement 2.5 "Apparel" EULxWorldArmorRemovalMod
call EULxMCMAddElement 2.5 "Currencies" EULxWorldCurrencyRemovalMod
call EULxMCMAddElement 2.5 "Alcohol" EULxWorldAlcoholRemovalMod
call EULxMCMAddElement 2.5 "Chems" EULxWorldChemsRemovalMod
call EULxMCMAddElement 2.5 "Meds" EULxWorldMedsRemovalMod
call EULxMCMAddElement 2.5 "Food" EULxWorldFoodRemovalMod
call EULxMCMAddElement 2.5 "Misc items" EULxWorldMiscRemovalMod
elseif iSubMenu == 3
SetMCMFloat 1 0 "_columns" 2
call EULxMCMAddElement 4 "Enabled" EULxActorLootRemovalEnabled
call EULxMCMAddElement 2 "Base removal chance" EULxActorBaseRemovalChance
call EULxMCMAddElement 5 "Remove equipped weapons" EULxActorRemoveEquippedWeapons
call EULxMCMAddElement 5 "Gear breaks on decapitation" EULxActorBreakOnDecapitation
call EULxMCMAddElement 2.5 "Disintegration modifier" EULxActorDisintegratedMod
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 0 "Removal chance multipliers by item type" 0
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 2.5 "Weapons" EULxActorWeaponRemovalMod
call EULxMCMAddElement 2.5 "Ammo" EULxActorAmmoRemovalMod
call EULxMCMAddElement 2.5 "Apparel" EULxActorArmorRemovalMod
call EULxMCMAddElement 2.5 "Currencies" EULxActorCurrencyRemovalMod
call EULxMCMAddElement 2.5 "Alcohol" EULxActorAlcoholRemovalMod
call EULxMCMAddElement 2.5 "Chems" EULxActorChemsRemovalMod
call EULxMCMAddElement 2.5 "Meds" EULxActorMedsRemovalMod
call EULxMCMAddElement 2.5 "Food" EULxActorFoodRemovalMod
call EULxMCMAddElement 2.5 "Misc items" EULxActorMiscRemovalMod
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 0 "Removal chance multipliers by species" 0
call EULxMCMAddElement 0 "" 0
call EULxMCMAddElement 2.5 "Creatures" EULxActorAnimalMod
call EULxMCMAddElement 2.5 "Robots" EULxActorRobotMod
call EULxMCMAddElement 2.5 "Feral Ghouls" EULxActorFeralGhoulMod
call EULxMCMAddElement 2.5 "Humans" EULxActorHumanMod
call EULxMCMAddElement 2.5 "Ghouls" EULxActorGhoulMod
call EULxMCMAddElement 2.5 "Supermutants" EULxActorSupermutantMod
endif
elseif GetUIFloat "StartMenu/MCM/_Default" ; 2 - DEFAULT
SetUIFloat "StartMenu/MCM/_Default" 0 ; dont run twice
SetUIFloat "StartMenu/MCM/_Reset" 1 ; reset ui
call EULxPresetSetterFUNCTION 0 0
elseif GetUIFloat "StartMenu/MCM/_NewValue" ; 3 - NEW VALUE
SetUIFloat "StartMenu/MCM/_NewValue" 0 ; don't run this section twice
SetUIFloat "StartMenu/MCM/_Reset" 1 ; refresh ui
if iSubMenu == 1
set iOption to GetUIFloat "StartMenu/MCM/_ActiveOption"
set fValue to GetUIFloat "StartMenu/MCM/_Value"
if iOption == 1
set EULxMaxItemValue to fValue
elseif iOption == 2
set EULxLuckModifier to fValue
elseif iOption == 4
set EULxMaxWeaponCondition to fValue
elseif iOption == 5
set EULxMaxArmorCondition to fValue
elseif iOption == 7 ; Global Preset
call EULxPresetSetterFUNCTION fValue 1
elseif iOption == 8 ; Reset settings
if fValue == 1
Call EULxPresetSetterFUNCTION 0 1
SetDebugMode 0
endif
elseif iOption == 9 ; Debug mode
SetDebugMode fValue
return
elseif iOption == 12
set EULxSaveToINI to fValue
if fValue
call EULxINISaveSettings
endif
elseif iOption == 13
if fValue == 1
call EULxINILoadSettings
SetUIFloat "StartMenu/MCM/_Reset" 1
else
return
endif
endif
elseif iSubMenu == 2
if iOption == 1
set EULxWorldLootRemovalEnabled to fValue
SetJohnnySeenDataEventHandler fValue EULxOnSeen 0
elseif iOption == 2
set EULxWorldBaseRemovalChance to fValue
elseif iOption == 3
set EULxWorldSkipLocked to fValue
elseif iOption == 9
set EULxWorldWeaponRemovalMod to fValue
elseif iOption == 10
set EULxWorldAmmoRemovalMod to fValue
elseif iOption == 11
set EULxWorldArmorRemovalMod to fValue
elseif iOption == 12
set EULxWorldCurrencyRemovalMod to fValue
elseif iOption == 13
set EULxWorldAlcoholRemovalMod to fValue
elseif iOption == 14
set EULxWorldChemsRemovalMod to fValue
elseif iOption == 15
set EULxWorldMedsRemovalMod to fValue
elseif iOption == 16
set EULxWorldFoodRemovalMod to fValue
elseif iOption == 17
set EULxWorldMiscRemovalMod to fValue
endif
elseif iSubMenu == 3
if iOption == 1
set EULxActorLootRemovalEnabled to fValue
SetJohnnyOnDyingEventHandler fValue EULxOnDying 0
elseif iOption == 2
set EULxActorBaseRemovalChance to fValue
elseif iOption == 3
set EULxActorRemoveEquippedWeapons to fValue
elseif iOption == 4
set EULxActorBreakOnDecapitation to fValue
SetJohnnyOnLimbGoneEventHandler fValue EULxOnLimbGone 0
elseif iOption == 5
set EULxActorDisintegratedMod to fValue
elseif iOption == 11
set EULxActorWeaponRemovalMod to fValue
elseif iOption == 12
set EULxActorAmmoRemovalMod to fValue
elseif iOption == 13
set EULxActorArmorRemovalMod to fValue
elseif iOption == 14
set EULxActorCurrencyRemovalMod to fValue
elseif iOption == 15
set EULxActorAlcoholRemovalMod to fValue
elseif iOption == 16
set EULxActorChemsRemovalMod to fValue
elseif iOption == 17
set EULxActorMedsRemovalMod to fValue
elseif iOption == 18
set EULxActorFoodRemovalMod to fValue
elseif iOption == 19
set EULxActorMiscRemovalMod to fValue
elseif iOption == 25
set EULxActorAnimalMod to fValue
elseif iOption == 26
set EULxActorRobotMod to fValue
elseif iOption == 27
set EULxActorFeralGhoulMod to fValue
elseif iOption == 28
set EULxActorHumanMod to fValue
elseif iOption == 29
set EULxActorGhoulMod to fValue
elseif iOption == 30
set EULxActorSupermutantMod to fValue
endif
endif
call EULxPrecalculateRemovalChance
if EULxSaveToINI
call EULxINISaveSettings
endif
elseif GetUIFloat "StartMenu/MCM/_ShowList" == 1 ;4 - SHOW LIST
SetUIFloat "StartMenu/MCM/_ShowList" 2
if iSubMenu == 1
if iOption == 7
SetUIString "StartMenu/MCM/*:3/_title" "Select global preset (overwrites ALL options)"
SetUIFloat "StartMenu/MCM/*:3/*:1/_enable" 1
SetUIFloat "StartMenu/MCM/*:3/*:2/_enable" 1
SetUIFloat "StartMenu/MCM/*:3/*:3/_enable" 1
SetUIFloat "StartMenu/MCM/*:3/*:4/_enable" 1
SetUIString "StartMenu/MCM/*:3/*:1/text/string" "Balanced (recommended)"
SetUIString "StartMenu/MCM/*:3/*:2/text/string" "Hardcore"
SetUIString "StartMenu/MCM/*:3/*:3/text/string" "Realistic"
SetUIString "StartMenu/MCM/*:3/*:4/text/string" "Cancel - retain existing settings"
SetUIFloat "StartMenu/MCM/_Value" 4
endif
if iOption == 8
SetUIString "StartMenu/MCM/*:3/_title" "Reset entire mod"
SetUIFloat "StartMenu/MCM/*:3/*:1/_enable" 1
SetUIFloat "StartMenu/MCM/*:3/*:2/_enable" 1
SetUIString "StartMenu/MCM/*:3/*:1/text/string" "Confirm - reset everything"
SetUIString "StartMenu/MCM/*:3/*:2/text/string" "Cancel - retain existing settings"
SetUIFloat "StartMenu/MCM/_Value" 2
endif
if iOption == 13
SetUIString "StartMenu/MCM/*:3/_title" "Reload settings from INI"
SetUIFloat "StartMenu/MCM/*:3/*:1/_enable" 1
SetUIFloat "StartMenu/MCM/*:3/*:2/_enable" 1
SetUIString "StartMenu/MCM/*:3/*:1/text/string" "Confirm - reload settings"
SetUIString "StartMenu/MCM/*:3/*:2/text/string" "Cancel - retain existing settings"
SetUIFloat "StartMenu/MCM/_Value" 2
endif
endif
elseif GetUIFloat "StartMenu/MCM/_ShowScale" == 1 ;5 - SHOW SCALE
SetUIFloat "StartMenu/MCM/_ShowScale" 2
if iSubMenu == 1
if iOption == 1
call EULxMCMAddScale "Max value of items affected by UL" EULxMaxItemValue " caps" 0 9999 0 10
elseif iOption == 2
call EULxMCMAddScale "Luck effect" EULxLuckModifier "%" 0 100 0 1
elseif iOption == 4
call EULxMCMAddScale "Max weapon condition" EULxMaxWeaponCondition "%" 1 100 0 1
elseif iOption == 5
call EULxMCMAddScale "Max armor condition" EULxMaxArmorCondition "%" 1 100 0 1
endif
elseif iSubMenu == 2
if iOption == 2
call EULxMCMAddScale "Base removal chance" EULxWorldBaseRemovalChance "%" 0 100 0 1
elseif iOption == 9
call EULxMCMAddScale "Weapon multiplier" EULxWorldWeaponRemovalMod "x" 0 10 1 0.1
elseif iOption == 10
call EULxMCMAddScale "Ammo multiplier" EULxWorldAmmoRemovalMod "x" 0 10 1 0.1
elseif iOption == 11
call EULxMCMAddScale "Armor multiplier" EULxWorldArmorRemovalMod "x" 0 10 1 0.1
elseif iOption == 12
call EULxMCMAddScale "Currencies multiplier" EULxWorldCurrencyRemovalMod "x" 0 10 1 0.1
elseif iOption == 13
call EULxMCMAddScale "Alcohol multiplier" EULxWorldAlcoholRemovalMod "x" 0 10 1 0.1
elseif iOption == 14
call EULxMCMAddScale "Chems multiplier" EULxWorldChemsRemovalMod "x" 0 10 1 0.1
elseif iOption == 15
call EULxMCMAddScale "Meds multiplier" EULxWorldMedsRemovalMod "x" 0 10 1 0.1
elseif iOption == 16
call EULxMCMAddScale "Food multiplier" EULxWorldFoodRemovalMod "x" 0 10 1 0.1
elseif iOption == 17
call EULxMCMAddScale "Misc items multiplier" EULxWorldMiscRemovalMod "x" 0 10 1 0.1
endif
elseif iSubMenu == 3
if iOption == 2
call EULxMCMAddScale "Base removal chance" EULxActorBaseRemovalChance "%" 0 100 0 1
elseif iOption == 5
call EULxMCMAddScale "Disintegration multiplier" EULxActorDisintegratedMod "x" 0 10 1 0.1
elseif iOption == 11
call EULxMCMAddScale "Weapon multiplier" EULxActorWeaponRemovalMod "x" 0 10 1 0.1
elseif iOption == 12
call EULxMCMAddScale "Ammo multiplier" EULxActorAmmoRemovalMod "x" 0 10 1 0.1
elseif iOption == 13
call EULxMCMAddScale "Armor multiplier" EULxActorArmorRemovalMod "x" 0 10 1 0.1
elseif iOption == 14
call EULxMCMAddScale "Currencies multiplier" EULxActorCurrencyRemovalMod "x" 0 10 1 0.1
elseif iOption == 15
call EULxMCMAddScale "Alcohol multiplier" EULxActorAlcoholRemovalMod "x" 0 10 1 0.1
elseif iOption == 16
call EULxMCMAddScale "Chems multiplier" EULxActorChemsRemovalMod "x" 0 10 1 0.1
elseif iOption == 17
call EULxMCMAddScale "Meds multiplier" EULxActorMedsRemovalMod "x" 0 10 1 0.1
elseif iOption == 18
call EULxMCMAddScale "Food multiplier" EULxActorFoodRemovalMod "x" 0 10 1 0.1
elseif iOption == 19
call EULxMCMAddScale "Misc items multiplier" EULxActorMiscRemovalMod "x" 0 10 1 0.1
elseif iOption == 25
call EULxMCMAddScale "Creatures multiplier" EULxActorAnimalMod "x" 0 10 1 0.1
elseif iOption == 26
call EULxMCMAddScale "Robots multiplier" EULxActorRobotMod "x" 0 10 1 0.1
elseif iOption == 27
call EULxMCMAddScale "Feral Ghouls multiplier" EULxActorFeralGhoulMod "x" 0 10 1 0.1
elseif iOption == 28
call EULxMCMAddScale "Humans multiplier" EULxActorHumanMod "x" 0 10 1 0.1
elseif iOption == 29
call EULxMCMAddScale "Ghouls multiplier" EULxActorGhoulMod "x" 0 10 1 0.1
elseif iOption == 30
call EULxMCMAddScale "Supermutants multiplier" EULxActorSupermutantMod "x" 0 10 1 0.1
endif
endif
elseif GetUIFloat "StartMenu/MCM/_DefaultScale" ;6 - DEFAULT SCALE
SetUIFloat "StartMenu/MCM/_DefaultScale" 0
SetUIFloat "StartMenu/MCM/_ShowScale" 2
if iSubMenu == 1
if iOption == 1
SetUIFloat "StartMenu/MCM/_Value" 5000
elseif iOption == 2
SetUIFloat "StartMenu/MCM/_Value" 10
elseif iOption == 4
SetUIFloat "StartMenu/MCM/_Value" 40
elseif iOption == 5
SetUIFloat "StartMenu/MCM/_Value" 40
endif
elseif iSubMenu == 2
if iOption == 2
SetUIFloat "StartMenu/MCM/_Value" 85
elseif iOption == 9 ; weapons
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 10 ; ammo
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 11 ; armor
SetUIFloat "StartMenu/MCM/_Value" 0.5
elseif iOption == 12 ; currencies
SetUIFloat "StartMenu/MCM/_Value" 2.0
elseif iOption == 13 ; alcohol
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 14 ; chems
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 15 ; meds
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 16 ; food
SetUIFloat "StartMenu/MCM/_Value" 1.3
elseif iOption == 17 ; misc
SetUIFloat "StartMenu/MCM/_Value" 0.3
endif
elseif iSubMenu == 3
if iOption == 2
SetUIFloat "StartMenu/MCM/_Value" 80
elseif iOption == 5 ; disintegration
SetUIFloat "StartMenu/MCM/_Value" 2.0
elseif iOption == 11 ; weapons
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 12 ; ammo
SetUIFloat "StartMenu/MCM/_Value" 0.8
elseif iOption == 13 ; armor
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 14 ; currencies
SetUIFloat "StartMenu/MCM/_Value" 2.0
elseif iOption == 15 ; alcohol
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 16 ; chems
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 17 ; meds
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 18 ; food
SetUIFloat "StartMenu/MCM/_Value" 0.8
elseif iOption == 19 ; misc
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 25 ; creatures
SetUIFloat "StartMenu/MCM/_Value" 0.5
elseif iOption == 26 ; robots
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 27 ; feral ghouls
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 28 ; humans
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 29 ; ghouls
SetUIFloat "StartMenu/MCM/_Value" 1.0
elseif iOption == 30 ; supermutants
SetUIFloat "StartMenu/MCM/_Value" 1.0
endif
endif
endif
if iMouseover != GetUIFloat "StartMenu/MCM/*:1/_optionID" ;7 - MOUSE-OVER
set iMouseover to GetUIFloat "StartMenu/MCM/*:1/_optionID"
if iMouseover
if iSubMenu == 1
SetUIFloat "StartMenu/MCM/*:9/visible" 1
if iMouseover == 1
SetUIString "StartMenu/MCM/*:9/string" "Maximum value of items to remove. Items worth more than this will be left alone."
elseif iMouseover == 2
SetUIString "StartMenu/MCM/*:9/string" "10% effect -> 10 Luck reduces removal by 10%, 1 Luck - by 1%. 100% effect -> 10 Luck reduces it by 100% (modifiers are still in play!), 1 Luck - by 10%. 0 - disable Luck factor."
elseif iMouseover == 4
SetUIString "StartMenu/MCM/*:9/string" "Max condition of weapons found in the world. Some containers and items may not be affected. To disable it and use vanilla values, set to 100%."
elseif iMouseover == 5
SetUIString "StartMenu/MCM/*:9/string" "Max condition of armor found in the world. Some containers and items may not be affected. To disable it and use vanilla values, set to 100%."
elseif iMouseover == 7
SetUIString "StartMenu/MCM/*:9/string" "Apply a preset to the entire mod. Overrides all existing settings."
elseif iMouseover == 8
SetUIString "StartMenu/MCM/*:9/string" "Completely resets all options!"
elseif iMouseover == 9
SetUIString "StartMenu/MCM/*:9/string" "Show debug info in console for the current session."
elseif iMouseover == 12
SetUIString "StartMenu/MCM/*:9/string" "Always save settings to Data\Config\Unfound Loot.ini."
elseif iMouseover == 13
SetUIString "StartMenu/MCM/*:9/string" "Rewrite existing settings with values from Unfound Loot.ini."
else
SetUIFloat "StartMenu/MCM/*:9/visible" 0
endif
elseif iSubMenu == 2
SetUIFloat "StartMenu/MCM/*:9/visible" 1
if iMouseover == 1
SetUIString "StartMenu/MCM/*:9/string" "Enable or disable world items reduction."
elseif iMouseover == 2
SetUIString "StartMenu/MCM/*:9/string" "Removal chance for world-placed and container items. We get a random number between 0 and 100 and compare it with 100. If the number is smaller, the item gets removed."
elseif iMouseover == 3
SetUIString "StartMenu/MCM/*:9/string" "Do not remove items from locked containers."
elseif iMouseover == 9
SetUIStringEx "StartMenu/MCM/*:9/string" "Removal chance multiplier for weapons. Higher = greater chance of these items being removed."
elseif iMouseover == 10
SetUIStringEx "StartMenu/MCM/*:9/string" "Removal chance multiplier for ammo. Higher = greater chance of these items being removed."
elseif iMouseover == 11
SetUIStringEx "StartMenu/MCM/*:9/string" "Removal chance multiplier for armor. Higher = greater chance of these items being removed."
elseif iMouseover == 12
SetUIStringEx "StartMenu/MCM/*:9/string" "Removal chance multiplier for currencies. Higher = greater chance of these items being removed."
elseif iMouseover == 13
SetUIStringEx "StartMenu/MCM/*:9/string" "Removal chance multiplier for alcohol. Higher = greater chance of these items being removed."
elseif iMouseover == 14
SetUIStringEx "StartMenu/MCM/*:9/string" "Removal chance multiplier for chems. Higher = greater chance of these items being removed."
elseif iMouseover == 15
SetUIStringEx "StartMenu/MCM/*:9/string" "Removal chance multiplier for healing items. Higher = greater chance of these items being removed."
elseif iMouseover == 16
SetUIStringEx "StartMenu/MCM/*:9/string" "Removal chance multiplier for food, water, and soft drinks. Higher = greater chance of these items being removed."
elseif iMouseover == 17
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for misc items. Higher = greater chance of these items being removed."
else
SetUIFloat "StartMenu/MCM/*:9/visible" 0
endif
elseif iSubMenu == 3
SetUIFloat "StartMenu/MCM/*:9/visible" 1
if iMouseover == 1
SetUIString "StartMenu/MCM/*:9/string" "Enable or disable corpse loot reduction."
elseif iMouseover == 2
SetUIString "StartMenu/MCM/*:9/string" "Percentage of corpse's items that will be removed."
elseif iMouseover == 3
SetUIString "StartMenu/MCM/*:9/string" "Apply removal chance to equipped weapons as well."
elseif iMouseover == 4
SetUIString "StartMenu/MCM/*:9/string" "Set headgear condition to 0 on decapitation."
elseif iMouseover == 5
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for disintegrated and gooified corpses. Higher = greater chance of these items being removed."
elseif iMouseover == 11
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for weapons. Higher = greater chance of these items being removed."
elseif iMouseover == 12
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for ammo. Higher = greater chance of these items being removed."
elseif iMouseover == 13
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for armor. Higher = greater chance of these items being removed."
elseif iMouseover == 14
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for currencies. Higher = greater chance of these items being removed."
elseif iMouseover == 15
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for alcohol. Higher = greater chance of these items being removed."
elseif iMouseover == 16
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for chems. Higher = greater chance of these items being removed."
elseif iMouseover == 17
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for healing items. Higher = greater chance of these items being removed."
elseif iMouseover == 18
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for food, water, and soft drinks. Higher = greater chance of these items being removed."
elseif iMouseover == 19
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for misc items. Higher = greater chance of these items being removed."
elseif iMouseover == 25
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for creature corpses. Higher = greater chance of these items being removed."
elseif iMouseover == 26
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for robots. Higher = greater chance of these items being removed."
elseif iMouseover == 27
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for feral ghoul corpses. Higher = greater chance of these items being removed."
elseif iMouseover == 28
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for human corpses. Higher = greater chance of these items being removed."
elseif iMouseover == 29
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for ghoul corpses. Higher = greater chance of these items being removed."
elseif iMouseover == 30
SetUIString "StartMenu/MCM/*:9/string" "Removal chance multiplier for supermutant corpses. Higher = greater chance of these items being removed."
else
SetUIFloat "StartMenu/MCM/*:9/visible" 0
endif
else
SetUIFloat "StartMenu/MCM/*:9/visible" 0
endif
else
SetUIFloat "StartMenu/MCM/*:9/visible" 0
endif
endif
end

79
src/EULxReduceItemHealth.gek Normal file
View File

@ -0,0 +1,79 @@
scn EULxReduceItemHealth
ref rContainer
ref rItem
int iType
int iBaseHealth
int iTargetHealth
int iCurrentHealth
int iMaxCondition
begin function { rContainer, rItem }
set iType to rItem.GetType
if iType == 40
if rItem.GetWeaponType >= 10 ; mines and throwables
DebugPrint "%n is a mine/throwable, skipping health reduction." rItem
return
endif
set iMaxCondition to EULxMaxWeaponCondition
elseif iType == 24
set iMaxCondition to EULxMaxArmorCondition
else
return
endif
if iMaxCondition == 100
; use vanilla condition with 100% max health
return
endif
set iBaseHealth to rItem.GetBaseHealth
DebugPrint "%n base health: %g points." rItem iBaseHealth
set iTargetHealth to iMaxCondition + 1
set iTargetHealth to Rand 1 iTargetHealth
DebugPrint "%n target health: %g%%" rItem iTargetHealth
if rContainer == playerRef ; world items
set iCurrentHealth to rItem.GetCurrentHealth / ( iBaseHealth / 100 )
DebugPrint "%n current health (world item): %g%%" rItem iCurrentHealth
if iCurrentHealth > iTargetHealth
DebugPrint "Changing %n condition: %g%% to %g%%" rItem iCurrentHealth iTargetHealth
set iTargetHealth to iBaseHealth * ( iTargetHealth / 100 )
; Keep at least one point of health for the item to remain equippable
if iTargetHealth < 1
set iTargetHealth to 1
endif
rItem.SetCurrentHealth iTargetHealth
endif
else ; container or NPC
set iCurrentHealth to rItem.GetItemRefCurrentHealth / ( iBaseHealth / 100 )
DebugPrint "%n current health (inventory item): %g%%" rItem iCurrentHealth
if iCurrentHealth > iTargetHealth
DebugPrint "Changing %n condition: %g%% to %g%%" rItem iCurrentHealth iTargetHealth
set iTargetHealth to iBaseHealth * ( iTargetHealth / 100 )
; Keep at least one point of health for the item to remain equippable
if iTargetHealth < 1
set iTargetHealth to 1
endif
rItem.SetItemRefCurrentHealth iTargetHealth
endif
endif
end

92
src/EULxWhitelistDeathItems.gek Normal file
View File

@ -0,0 +1,92 @@
scn EULxWhitelistDeathItems
int i
int n
ref rPerk
int iEntryCount
ref rList
ref rItem
ref rCertifiedTechItemList
int iModsNum
begin function {}
; Get main DLCs' indexes for better detection of mod-added items
set EULxDLCIndex to 0
if IsModLoaded "TaleOfTwoWastelands.esm"
set EULxDLCIndex to GetModIndex "TaleOfTwoWastelands.esm"
elseif IsModLoaded "GunRunnersArsenal.esm"
set EULxDLCIndex to GetModIndex "GunRunnersArsenal.esm"
elseif IsModLoaded "LonesomeRoad.esm"
set EULxDLCIndex to GetModIndex "LonesomeRoad.esm"
elseif IsModLoaded "OldWorldBlues.esm"
set EULxDLCIndex to GetModIndex "OldWorldBlues.esm"
elseif IsModLoaded "HonestHearts.esm"
set EULxDLCIndex to GetModIndex "HonestHearts.esm"
elseif IsModLoaded "DeadMoney.esm"
set EULxDLCIndex to GetModIndex "DeadMoney.esm"
endif
ListClear VATSSmallExplodingCreatureLIST ; hijacking unused formlists
ListClear EmptyFormList
set iModsNum to GetNumLoadedMods
set i to EULxDLCIndex + 1
while i < iModsNum
GetLoadedType VATSSmallExplodingCreatureLIST 86 i 1
set i to i + 1
loop
if ListGetCount VATSSmallExplodingCreatureLIST == 0
return
endif
set rCertifiedTechItemList to StringToRef "LonesomeRoad.esm:C42D"
set i to 0
while rPerk := ListGetNthForm VATSSmallExplodingCreatureLIST i
set iEntryCount to GetPerkEntryCount rPerk
set n to 0
while n < iEntryCount
if GetNthPerkEntryFunction rPerk n == 21 ; Add Leveled List On Death
set rList to GetNthPerkEntryForm rPerk n
if rList
if GetType rList == 52 && rList != rCertifiedTechItemList
ListAddForm EmptyFormList rList
endif
endif
endif
set n to n + 1
loop
set i to i + 1
loop
ListClear VATSSmallExplodingCreatureLIST
set i to 0
while rList := ListGetNthForm EmptyFormList i
set n to 0
while rItem := GetNthLevItem rList n
if GetType rItem != 52 ; not leveled list
ListAddForm EULxDeathItems rItem
endif
set n to n + 1
loop
set i to i + 1
loop
ListClear EmptyFormList
end