36 lines
613 B
Plaintext
36 lines
613 B
Plaintext
|
scn EBxFillFromObject
|
||
|
|
||
|
ref rSource
|
||
|
ref rDrink
|
||
|
ref rReplaceables
|
||
|
array_var aArgs
|
||
|
|
||
|
begin function { rSource }
|
||
|
|
||
|
if rSource == 0
|
||
|
return
|
||
|
endif
|
||
|
|
||
|
let aArgs := call EBxGetDrinksToUpgrade rSource
|
||
|
|
||
|
if eval 0 >= ar_size aArgs
|
||
|
let aArgs := ar_null
|
||
|
return
|
||
|
endif
|
||
|
|
||
|
let rDrink := aArgs[0]
|
||
|
let rReplaceables := aArgs[1]
|
||
|
let aArgs := ar_null
|
||
|
|
||
|
if playerRef.GetItemCount caps001 < playerRef.GetItemCount rReplaceables
|
||
|
ShowMessage EBxMsgNoCaps
|
||
|
endif
|
||
|
|
||
|
call EBxReplaceFormListWithItem rDrink rReplaceables
|
||
|
|
||
|
if EBxCanteenSipsMax > 0
|
||
|
call EBxReplenishCanteen rDrink 0
|
||
|
endif
|
||
|
|
||
|
end
|