xT.UnequipItem(xT.GetEquippedObject(0), false, true)
xT.UnequipItem(xT.GetEquippedObject(1), false, true)
xT.RemoveAllItems()
    ; Экипированное после смерти актера оружие не удаляется (?).
    ; Предметы Outfit, не имеющие флага Playable, не удаляются в некоторых (или во всех?) случаях.
    ; Квестовые предметы в этом случае не удаляются.
iC = xT.GetNumItems()
WHILE iC
    iC -= 1
    Armor xA = xT.GetNthForm(iC) AS Armor
    IF !xA || xA.IsPlayable()
        iC = -1
    ENDIF
ENDWHILE
IF iC < 0
    ; Есть квестовые вещи - испепелить.
ELSE
    ; Нет - изгнать.
ENDIF

ActorBase2.SetName(ActorBase1.GetName())

Event onupdate()
    if (Player.HasMagicEffect_WisplHealerLightFFSelf)) ; Это маг. эффект со скриптом? Если да, эта проверка не нужна. Обновление авто-отменяется после завершения эффекта.
        if (Player.GetActorValuePercentage("health") < Health50)
            GrandHealing.Cast(Player, Player) ; Сильно Лечим
        elseif (Player.GetActorValuePercentage("health") < Health95)
            HealOther.Cast(Player, Player) ; Лечим
        EndIf
    EndIf
    RegisterForSingleUpdate(2.0)
EndEvent

MyActor.DispelSpell(MySpell)

Scriptname _MySCRIPT3 extends activemagiceffect

Activator Property FXEmptyActivator Auto
Activator Property ORD_Smh_DwarvenAutocannon_Activator Auto
Float Property ORD_ShootZ Auto
Float Property ORD_DistanceInFront Auto
Float Property ORD_UpdateRate Auto
Float Property ORD_DistanceZ Auto
Spell Property ORD_Smh_DwarvenAutocannon_Spell_Proc Auto
Sound Property ORD_Smh_DwarvenAutocannon_Marker_Deploy Auto
Sound Property ORD_Smh_DwarvenAutocannon_Marker_Destroyed Auto

Perk Property ORD_Smh30_RemoteControl_Perk_30 Auto
Activator Property ORD_Smh_DwarvenAutocannon_Activator_RemoteControl Auto
Float Property ORD_RemoteControlDist Auto

Int Property ORD_Electrobolt Auto
Spell Property ORD_Smh_DwarvenAutocannon_Spell_Proc_Electrobolt Auto
Explosion Property ORD_Smh_DwarvenAutocannon_Explosion_Electrobolt Auto
Perk Property ORD_Smh50_Electrobolt_Perk_50 Auto

Perk Property ORD_Smh80_SpinUp_Perk_80 Auto
Float Property ORD_SpeedUpDelta Auto

Perk Property ORD_Smh70_FiringLine_Perk_70 Auto
Float Property ORD_AngleDelta Auto
Float Property ORD_Min Auto

MiscObject Property ORD_Smh_DwarvenAutocannon_Misc Auto

Actor TargetActor
Int iC = 5                     ; Количество пушек.
Bool bF

Event OnEffectStart(Actor akTarget, Actor akCaster)
    TargetActor = akTarget
    RegisterForSingleUpdate(0.0)
EndEvent

Event OnEffectFinish(Actor akTarget, Actor akCaster)
    bF = true
EndEvent

EVENT OnUpdate()
    IF !iC
        RETURN
    ENDIF
    iC -= 1
    RegisterForSingleUpdate(0.1)
    Bool SpinUp
    Int ShotCount
    ObjectReference TheCannon
    Bool IsRemoteControl
    Float CharacterAngle
    Float ShootRate = ORD_UpdateRate
    If TargetActor.HasPerk(ORD_Smh50_Electrobolt_Perk_50)
        ShotCount = 0
    Else
        ShotCount = -9999
    EndIf
    ORD_Smh_DwarvenAutocannon_Marker_Deploy.Play(TargetActor)
    If TargetActor.HasPerk(ORD_Smh30_RemoteControl_Perk_30)
        IsRemoteControl = true
        If TargetActor.HasPerk(ORD_Smh70_FiringLine_Perk_70)
            CharacterAngle = TargetActor.GetAngleZ() + ORD_AngleDelta
        Else
            CharacterAngle = TargetActor.GetAngleZ()
        EndIf
        TheCannon = TargetActor.PlaceAtMe(ORD_Smh_DwarvenAutocannon_Activator_RemoteControl)
        TheCannon.MoveTo(TargetActor,ORD_DistanceInFront*Math.Sin(CharacterAngle),ORD_DistanceInFront*Math.Cos(CharacterAngle),ORD_DistanceZ)
        TheCannon.SetAngle(0,0,CharacterAngle)
    Else
        IsRemoteControl = false
        If TargetActor.HasPerk(ORD_Smh70_FiringLine_Perk_70)
            CharacterAngle = TargetActor.GetAngleZ() + ORD_AngleDelta
        Else
            CharacterAngle = TargetActor.GetAngleZ()
        EndIf
        TheCannon = TargetActor.PlaceAtMe(ORD_Smh_DwarvenAutocannon_Activator)
        TheCannon.MoveTo(TargetActor,ORD_DistanceInFront*Math.Sin(CharacterAngle),ORD_DistanceInFront*Math.Cos(CharacterAngle),ORD_DistanceZ)
        TheCannon.SetAngle(0,0,CharacterAngle)
    EndIf
    ObjectReference ShootStart = TheCannon.PlaceAtMe(FXEmptyActivator)
    ShootStart.MoveTo(TheCannon, 0, 0, ORD_ShootZ)
    ObjectReference ShootAim = TheCannon.PlaceAtMe(FXEmptyActivator)
    ShootAim.MoveTo(TheCannon, 0, 0, ORD_ShootZ)
    TargetActor.RemoveItem(ORD_Smh_DwarvenAutocannon_Misc, 1, true)
    If TargetActor.HasPerk(ORD_Smh80_SpinUp_Perk_80)
        SpinUp = true
    Else
        SpinUp = false
    EndIf
    WHILE !bF
        Utility.Wait(ShootRate)
        If IsRemoteControl || TheCannon.GetDistance(TargetActor) <= ORD_RemoteControlDist
            ShotCount += 1
            ShootAim.MoveTo(ShootStart,ORD_DistanceInFront*Math.Sin(TargetActor.GetAngleZ()),ORD_DistanceInFront*Math.Cos(TargetActor.GetAngleZ()),(ORD_DistanceInFront*Math.Tan(-TargetActor.GetAngleX()) + 0))
            If ShotCount >= ORD_Electrobolt
                ShotCount = 0
                ShootStart.PlaceAtMe(ORD_Smh_DwarvenAutocannon_Explosion_Electrobolt)
                ORD_Smh_DwarvenAutocannon_Spell_Proc_Electrobolt.RemoteCast(ShootStart, TargetActor, ShootAim)
            Else
                ORD_Smh_DwarvenAutocannon_Spell_Proc.RemoteCast(ShootStart, TargetActor, ShootAim)
            EndIf
        EndIf
        If SpinUp == true && ShootRate > ORD_Min
            ShootRate -= ORD_SpeedUpDelta
        EndIf
    ENDWHILE
    ORD_Smh_DwarvenAutocannon_Marker_Destroyed.Play(TheCannon)
    TheCannon.Disable(true)
    TheCannon.Delete()
    ShootStart.Delete()
    TargetActor.AddItem(ORD_Smh_DwarvenAutocannon_Misc, 1, true)
ENDEVENT