ScriptName _TESTProjSetAngleSCPTREFR Extends ObjectReference ; Multigone.

Float Property MaxDist = 10000.0 Auto ; Макс. дистанция снаряда от игрока.
Float Property MaxAim = 2000.0 Auto ; Расстояние управляющей точки от игрока.
Float Property MaxAngle = 9.0 Auto ; Макс. угол реакции снаряда за 0.05 сек.

EVENT OnTriggerEnter(ObjectReference xC)
    IF xC.GetBaseObject() AS Projectile
        GoToState("S")
        ObjectReference xT = Game.GetPlayer()
        WHILE xC.Is3DLoaded() && xC.GetDistance(xT) < MaxDist
            Float fX = -xT.GetAngleX()
            Float fZ = 90.0 - xT.GetAngleZ()
            Float fDX = MaxAim * Math.Cos(fZ) * Math.Cos(fX) + xT.X - xC.X
            Float fDY = MaxAim * Math.Cos(fX) * Math.Sin(fZ) + xT.Y - xC.Y
            Float fDZ = MaxAim * Math.Sin(fX) + xT.Z + 90.0 - xC.Z
            fX = xC.GetAngleX()
            fZ = xC.GetAngleZ()
            Float fDAZ = 90.0 - Math.Atan(fDY / fDX) - fZ
            IF fDX < 0.0
                fDAZ += 180.0
            ENDIF
            IF fDAZ > 180.0
                fDAZ -= 360.0
            ELSEIF fDAZ < -180.0
                fDAZ += 360.0
            ENDIF
            xC.SetAngle(fInt(fX + fInt(-Math.Atan(fDZ / Math.Sqrt(fDX * fDX + fDY * fDY)) - fX, MaxAngle, -MaxAngle), 90.0, -90.0), 0.0, fZ + fInt(fDAZ, MaxAngle, -MaxAngle))
            Utility.Wait(0.05)
        ENDWHILE
        GoToState("")
    ENDIF
ENDEVENT

Float FUNCTION fInt(Float A, Float B = 1.0, Float C = 0.0)
    IF B > C
        IF A >= B
            RETURN B
        ELSEIF A < C
            RETURN C
        ENDIF
    ELSEIF A <= B
        RETURN B
    ELSEIF A > C
        RETURN C
    ENDIF
    RETURN A
ENDFUNCTION

STATE S
    EVENT OnTriggerEnter(ObjectReference xR)
    ENDEVENT
ENDSTATE

Scriptname _TESTTEST35 extends activemagiceffect ; SKSE

ObjectReference Property MindXMarkerREF Auto ; Маркер локации.

 ; Автозаполнение.
Static Property XMarker Auto
Spell Property GhostAbility Auto
Spell Property MG08ParalysisAbility Auto

Event OnEffectStart(Actor xT, Actor xC)
    xT.SetGhost()
    xT.BlockActivation()
    xT.EnableAI(false)
    xC = Game.GetPlayer()
    ObjectReference XPlayPos = xC.PlaceAtMe(XMarker)
    Actor xA = MindXMarkerREF.PlaceAtMe(xT.GetBaseObject()) AS Actor
    xA.BlockActivation()
    xA.RemoveAllItems()
    xA.RemoveFromAllFactions()
    Int iC = xT.GetNumItems()
    WHILE iC
        Form xF = xT.GetNthForm(iC)
        IF xT.IsEquipped(xF)
            xA.AddItem(xF, 99)
            xA.EquipItem(xF, true)
        ENDIF
        iC -= 1
    ENDWHILE
    xC.MoveTo(MindXMarkerREF)
    xA.AddSpell(GhostAbility)
    xC.AddSpell(GhostAbility, false)
    xA.StartCombat(xC)
    WHILE !xA.IsDead() && iC < 60 ; Минута на бой.
        Utility.Wait(1.0)
        iC += 1
    ENDWHILE
    iC = xA.IsDead() AS Int
    xC.RemoveSpell(GhostAbility)
    xC.MoveTo(XPlayPos)
    XPlayPos.Delete()
    xA.Disable()
    xA.Delete()
    xT.SetGhost(false)
    xT.BlockActivation(false)
    xT.EnableAI()
    xT.PushActorAway(xT, 0.0)
    IF iC
        Utility.Wait(0.5)
        xT.AddSpell(MG08ParalysisAbility)
            ; для НПС - после выгрузки локации маг. эффект добавленных заклинаний типа Ability перестает работать (и его скрипт тоже), но само заклинание остается.
    ENDIF
ENDEVENT

; SKSE additions built 2015-05-24 00:46:48.937000 UTC
; Returns the number of refs in the cell
int Function GetNumRefs(int formTypeFilter = 0) native

; returns the ref at the specified index
ObjectReference Function GetNthRef(int n, int formTypeFilter = 0) native