Made adding empty bottles optional

master
Eddoursul 2 years ago
parent f4fcea01bf
commit 548ccd2d01
  1. BIN
      Bottle Rinse Repeat.esp
  2. 1
      config/Bottle Rinse Repeat.ini
  3. 7
      src/EBxBootstrap.gek
  4. 14
      src/EBxOnGameLoad.gek

Binary file not shown.

@ -2,3 +2,4 @@
iFillBottleDelay = 1
bReplenishableCanteen = 1
iReplenishableCanteenMaxSips = 4
bAddEmptyBottlesOnConsumption = 1

@ -29,9 +29,10 @@ begin function {}
let EBxFillBottleDelay := GetINIFloat "Settings:iFillBottleDelay" "Bottle Rinse Repeat.ini"
let EBxReplenishableCanteen := GetINIFloat "Settings:bReplenishableCanteen" "Bottle Rinse Repeat.ini"
let EBxCanteenSipsMax := GetINIFloat "Settings:iReplenishableCanteenMaxSips" "Bottle Rinse Repeat.ini"
if EBxCanteenSipsMax < 1
let EBxCanteenSipsMax := 4
endif
endif
if EBxCanteenSipsMax < 1
let EBxCanteenSipsMax := 4
endif
; Add new items to form lists

@ -8,6 +8,7 @@ ref rEntry
ref rBottleUp
ref rBottleDown
int iCounter
int bAddEmpties
begin function { i }
@ -93,7 +94,7 @@ begin function { i }
ListAddForm EBxUpgradableToPurifiedList rItem
endif
set rItem to GetFormFromMod "BrokenSteel.esm" "104F" ; DLC03AquaPura
let rItem := GetFormFromMod "BrokenSteel.esm" "104F" ; DLC03AquaPura
if IsFormValid rItem
ListAddForm EBxUpgradableToPurifiedList rItem
endif
@ -107,10 +108,17 @@ begin function { i }
let rBottleDown := ITMBottleDown
endif
let bAddEmpties := 1
if FileExists "config\Bottle Rinse Repeat.ini"
let bAddEmpties := GetINIFloat "Settings:bAddEmptyBottlesOnConsumption" "Bottle Rinse Repeat.ini"
endif
let i := 0
while rItem := ListGetNthForm EBxDrinkLists i
SetOnUseAidItemEventHandler EBxOnDrink 1 rItem
if bAddEmpties
SetOnUseAidItemEventHandler EBxOnDrink 1 rItem
endif
if GetType rItem == 85 ; form list
let n := 0
while rEntry := ListGetNthForm rItem n

Loading…
Cancel
Save