Picks up loose gold, arrows, lockpicks, ingredients, flora, leather, hides, and ingots of the same type.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 

88 lines
2.2 KiB

;BEGIN FRAGMENT CODE - Do not edit anything between this and the end comment
;NEXT FRAGMENT INDEX 36
Scriptname PRKF_ETAxTakePerk_02000805 Extends Perk Hidden
;BEGIN FRAGMENT Fragment_33
Function Fragment_33(ObjectReference akTargetRef, Actor akActor)
;BEGIN CODE
PlayerScript.TakeByKeyword(VendorItemAnimalHide, true)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_15
Function Fragment_15(ObjectReference akTargetRef, Actor akActor)
;BEGIN CODE
; Ingredients
; This fails on dropped items, looking for a proper way to detect them
Form rBase = akTargetRef.GetBaseObject()
if rBase
PlayerScript.TakeByFormOrList(rBase)
;PlayerScript.PickFloraByTypeIdAndIngredient(38, rBase) ; tree
;PlayerScript.PickFloraByTypeIdAndIngredient(39, rBase) ; flora
else
PlayerScript.TakeByFormType(30)
endif
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_6
Function Fragment_6(ObjectReference akTargetRef, Actor akActor)
;BEGIN CODE
; Arrows and projectiles
PlayerScript.TakeByFormOrList(ETAxArrowList)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_3
Function Fragment_3(ObjectReference akTargetRef, Actor akActor)
;BEGIN CODE
PlayerScript.TakeByFormOrList(ETAxGoldList)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_12
Function Fragment_12(ObjectReference akTargetRef, Actor akActor)
;BEGIN CODE
PlayerScript.TakeByKeyword(VendorItemOreIngot, true)
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_18
Function Fragment_18(ObjectReference akTargetRef, Actor akActor)
;BEGIN CODE
; Flora
if ! akTargetRef.IsActivationBlocked()
PlayerScript.PickFloraByType(akTargetRef.GetBaseObject())
endif
;END CODE
EndFunction
;END FRAGMENT
;BEGIN FRAGMENT Fragment_31
Function Fragment_31(ObjectReference akTargetRef, Actor akActor)
;BEGIN CODE
PlayerScript.TakeByFormOrList(Lockpick)
;END CODE
EndFunction
;END FRAGMENT
;END FRAGMENT CODE - Do not edit anything between this and the begin comment
ETAxPlayerAliasScript Property PlayerScript Auto
Actor Property PlayerRef Auto
FormList Property ETAxGoldList Auto
FormList Property ETAxArrowList Auto
Keyword Property VendorItemOreIngot Auto
MiscObject Property Lockpick Auto
Keyword Property VendorItemAnimalHide Auto