;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