unfound-loot/src/EULxPresetSetterFUNCTION.gek

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 EULxWorldBaseRemovalChance to 85
		set EULxWorldContRemovalChance to 85
		
		set EULxWorldOwnedRemovalMod to 0
		set EULxWorldLockedRemovalMod to 0

		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 EULxWorldTrashRemovalMod to .5
		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 EULxWorldContRemovalChance to 95
		set EULxWorldArmorRemovalMod to 1.0
		set EULxWorldMiscRemovalMod to .80 ;sparse interiors
		set EULxWorldTrashRemovalMod to .5
		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 EULxWorldOwnedRemovalMod to 0.2
		set EULxWorldLockedRemovalMod to 0.2

		set EULxWorldBaseRemovalChance to 95
		set EULxWorldContRemovalChance to 95
		set EULxWorldWeaponRemovalMod to 1.5
		set EULxWorldArmorRemovalMod to 0.6
		set EULxWorldMiscRemovalMod to 0.33 ; junk doesnt get picked up
		set EULxWorldTrashRemovalMod to .5
		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 EULxWorldContRemovalChance 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

end