enderalse/source/scripts/prkf_tsc_pickupammoperk_0407e724.psc

20 lines
583 B
Plaintext

;BEGIN FRAGMENT CODE - Do not edit anything between this and the end comment
;NEXT FRAGMENT INDEX 16
Scriptname PRKF_Tsc_PickupAmmoPerk_0407E724 Extends Perk Hidden
;BEGIN FRAGMENT Fragment_5
Function Fragment_5(ObjectReference akTargetRef, Actor akActor)
;BEGIN CODE
Int i = AmmoList.Find(akTargetRef.GetBaseObject())
if (i > -1)
akActor.AddItem(AmmoItemList.GetAt(i))
endIf
akTargetRef.Delete()
;END CODE
EndFunction
;END FRAGMENT
;END FRAGMENT CODE - Do not edit anything between this and the begin comment
FormList Property AmmoList Auto
FormList Property AmmoItemList Auto