scope LaserBeam initializer LaserBeamInit {


    boolean CondLaserBeam() {
    return GetSpellAbilityId() == 'A09R'
    }

    function CastLaserBeam2 takes void returns void
        timer t = GetExpiredTimer()
        int id = GetHandleId(t)
        unit u = LoadUnitHandle(h, id, 0)
        unit d = LoadUnitHandle(h, id, 1)
        real x = GetUnitX(d)
        real y = GetUnitY(d)
        real x1 = LoadReal(h, id, 2)
        real y1 = LoadReal(h, id, 3)
        real a = Atan2(y1 - y, x1 - x)
        player p = GetOwningPlayer(u)
        real dmg = GetHeroStr(u,true)*8
        if SR(x, y, x1, y1) > 52 {
            x = x + 70 * Cos(a)
            y = y + 70 * Sin(a)
            SetUnitX(d, x)
            SetUnitY(d, y)
            SetUnitFacing(d, a * bj_RADTODEG)
            n = CreateUnit(p, 'e04U', x, y, a * bj_RADTODEG)
            UnitApplyTimedLife(n, 0, 1)
            SetUnitTimeScale(n, 0)
            UnitApplyTimedLife(CreateUnit(p, 'e04V', x, y, a * bj_RADTODEG), 0, 1)
        else
            GroupEnumUnitsInRange(G, x1, y1, 400, Base)
            loop
                E = FirstOfGroup(G)
                exitwhen E == null
                if Condition_Base(p,E) {
                    UnitDamageTarget(u, E, dmg, false, false, null, null, null)
                    }
                    GroupRemoveUnit(G, E)
                endloop
                n = CreateUnit(p, 'h019', x, y, a * bj_RADTODEG)
                UnitAddAbility(n,'A00M')
                SetUnitAbilityLevel(n,'A00M',7)
                UnitApplyTimedLife(n, 0, 1)
                IssueImmediateOrderById(n, 852285)
                UnitApplyTimedLife(CreateUnit(p, 'e03W', x1, y1, 0), 0, 5)
                UnitApplyTimedLife(CreateUnit(p, 'e04W', x1, y1, 0), 0, 1)
                UnitApplyTimedLife(CreateUnit(p, 'e04X', x1, y1, 0), 0, 1)
                UnitApplyTimedLife(CreateUnit(p, 'e04Y', x1, y1, 0), 0, 1)
                UnitApplyTimedLife(CreateUnit(p,'e048',x1,y1,0),1,3)
                DestroyEffect(AddSpecialEffect("war3mapImported\\NUKE2.mdx", x1, y1))
                DestroyEffect(AddSpecialEffect("war3mapImported\\NewMassiveEX.mdx", x1, y1))
                DestroyEffect(AddSpecialEffect("war3mapImported\\a-bomb.mdx", x1, y1))
                DestroyEffect(AddSpecialEffect("war3mapImported\\NuclearExplosion.mdx", x1, y1))
                ShakeCamera(0.5, 20)
                RemoveUnit(d)
                PauseTimer(t)
                DestroyTimer(t)
                FlushChildHashtable(h, id)
                }
                p = null
                u = null
                t = null
                d = null
            endfunction

            void CastLaserBeam(){
            timer t = CreateTimer()
            int id = GetHandleId(t)
            unit u = GetTriggerUnit()
            real x = GetUnitX(u)
            real y = GetUnitY(u)
            SaveUnitHandle(h, id, 0, u)
            n = CreateUnit(GetOwningPlayer(u), 'e04U', x, y, GetUnitFacing(u))
            SaveUnitHandle(h, id, 1, n)
            SetUnitTimeScale(n, 0)
            SaveReal(h, id, 2, GetSpellTargetX())
            SaveReal(h, id, 3, GetSpellTargetY())
            DestroyEffect(AddSpecialEffect("war3mapImported\\HolyPhoenixMissle.mdx", x, y))
            TimerStart(t, 0.03, true, function CastLaserBeam2)
            t = null
            u = null
            }

            void LaserBeamInit (){
            trigger t = CreateTrigger()
            integer i = 0
            loop
                TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
                i++ 
                exitwhen i == bj_MAX_PLAYER_SLOTS
            endloop
            TriggerAddAction(t, function CastLaserBeam)
            TriggerAddCondition(t, Condition(function CondLaserBeam))
            t = null
            }
            }