Fixed missing damage from spectral arrows, slightly improved precision

scripts/scriptarchiveorder.txt

@@ -4796,3 +4796,4 @@ scripts\prkf__00e_craftquestpotionpe_0300146d.pex
 scripts\pf_mq14_sc06_toriusstandstil_0003c597.pex
 scripts\_00E_UpdateSpeedmult.pex
 scripts\_00E_AutolearnEffectsAlias.pex
+scripts\_00E_ArcaneArrowEffect.pex

source/scripts/_00E_ArcaneArrowEffect.psc

@@ -0,0 +1,9 @@
+Scriptname _00E_ArcaneArrowEffect extends activemagiceffect  
+
+Event OnEffectStart(Actor akTarget, Actor akCaster)
+
+    if akTarget
+		akTarget.DamageActorValue("Health", (Game.GetForm(0x14) as Actor).GetActorValue("Marksman"))
+    endif
+	
+EndEvent

source/scripts/_00e_a2_eyeofthestormsc.psc

@@ -50,8 +50,13 @@ Event OnPlayerBowShot(Weapon akWeapon, Ammo akAmmo, float afPower, bool abSunGaz
 
 	if PlayerREF.HasSpell(_00E_Affinity_AbArcaneArcher)
 		Utility.Wait(0.03)
+		ObjectReference akTarget
+		if SKSE.GetVersion()
+			; Slightly improves precision
+			akTarget = Game.GetCurrentCrosshairRef()
+		endif
 		_00E_AltIshmartepElectroShotSound.Play(PlayerREF)
-		_00E_Affinity_AbSpectralArrowSP.Cast(PlayerREF)
+		_00E_Affinity_AbSpectralArrowSP.Cast(PlayerREF, akTarget)
 	EndIf
   
 EndEvent