RDE - Test 3

ScriptName RDE_DetonationScript extends ObjectReference
{ Detonation Script for RDE. Attached to detonator }

float Property WorkingRadius = 10000.0 Auto
{ what's the trigger range of the detonator }
Projectile Property RDE_Projectile Auto
{ the projectile object of the RDE to blow up }

Function DetonateRDEs()
	ObjectReference[] RDEsToExplode = Self.FindAllReferencesOfType(RDE_Projectile as Form, WorkingRadius)
	int i = 0
	While (i < RDEsToExplode.Length)
		RDEsToExplode[i].DamageObject(100.0)
		i += 1
	EndWhile
EndFunction

Event OnEquipped(Actor akActor)
	If (akActor == Game.GetPlayer())
		; RegisterForAnimationEvent(Self, "WeaponFire")
		RegisterForRemoteEvent(Self, "OnAnimationEvent")
	EndIf
EndEvent

Event OnUnequipped(Actor akActor)
	If (akActor == Game.GetPlayer())
		; UnregisterForAnimationEvent(Self, "WeaponFire")
		UnregisterForRemoteEvent(Self, "OnAnimationEvent")
	EndIf
EndEvent

Event ScriptObject.OnAnimationEvent(RDE_DetonationScript akSender, ObjectReference akSource, string asEventName)
	Debug.Trace("Remote Animation Event received")
	If (akSender == Self && asEventName == "WeaponFire")
		Debug.Trace("Detonator triggered!")
		DetonateRDEs()
	EndIf
EndEvent