scope ShadowSuriken {

     #include "cj_types_priv.j"
      
     bool KillDestructablesInRect_Act()
     {
         KillDestructable(GetFilterDestructable());
         return false;
     }
      
     void KillDestructablesInRect(rect r)
     {
         EnumDestructablesInRect(r, Filter(function KillDestructablesInRect_Act), null);
     }
      
     private void Timer()
     {
         var t = GetExpiredTimer();
         var hid = GetHandleId(t);
         var caster = LoadUnitHandle(hash, hid, 0);
         var dummy = LoadUnitHandle(hash, hid, 1);
         var angle = LoadReal(hash, hid, 2);
         var dist = LoadReal(hash, hid, 3) / 9.;
         var x = GetWidgetX(dummy) + dist * Cos(angle);
         var y = GetWidgetY(dummy) + dist * Sin(angle);
         SetUnitPosition(dummy, x, y);
         SaveReal(hash, hid, 2, angle + .25);
         for(unit target; UnitsInRange(x, y, 80.) use temp)
         {
             if (IsUnitEnemy(target, GetOwningPlayer(caster)) && !LoadBoolean(hash, GetHandleId(target), hid))
             {
                 UnitDamageTarget(caster, target, 100., true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS);
                 free AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl", target, "origin");
                 SaveBoolean(hash, GetHandleId(target), hid, true);
             }
         }
         MoveRectTo(tmpR, x, y);
         KillDestructablesInRect(tmpR);
         if (angle >= LoadReal(hash, hid, 5) + 6.12)
         {
             PauseTimer(t);
             free t, dummy;
             FlushChildHashtable(hash, hid);
         }
         flush t, caster, dummy;
     }
      
     callback onUnitSpellEffect('A006')
     {
         new timer t;
         global rect tmpR;
         var hid = GetHandleId(t);
         var caster = GetTriggerUnit();
         var x = GetWidgetX(caster);
         var y = GetWidgetY(caster);
         var dummy = CreateDummy(GetTriggerPlayer(), "BS_Suriken.mdx", 1.5, x, y, 100., 0.);
         var angle = Atan2(GetSpellTargetY() - y, GetSpellTargetX() - x) - 1.02;
         tmpR = Rect(-30, -30, 30., 30.);
         SetUnitVertexColor(dummy, 0, 0, 0, 255);
         SaveAgentHandle(hash, hid, 0, caster);
         SaveAgentHandle(hash, hid, 1, dummy);
         SaveReal(hash, hid, 2, angle);
         SaveReal(hash, hid, 3, VectorGetLength(GetSpellTargetX(), GetSpellTargetY(), 0., x, y, 0.));
         SaveReal(hash, hid, 5, angle);
         SaveAgentHandle(hash, hid, -1, AddSpecialEffectTarget("Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl", dummy, "origin"));
         SaveAgentHandle(hash, hid, -2, AddSpecialEffectTarget("Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl", dummy, "origin"));
         TimerStart(t, .04, true, function Timer);
         flush t, caster, dummy;
     }

}

scope Sotryasenie
{

     include "cj_types_priv.j"

     define
     {
         private ABILITY = 'A011'
         private ABILITY_STUN = 'A010'
         private STUN_BUFF = 'B00B'
         private DUMMY = 'n009'
         private STUN(lvl) = 1.0 + 0.5 * lvl
         private DAMAGE(lvl) = 40. + 60. * lvl
     }
      
     private void Timer()
     {
         timer t = GetExpiredTimer()
         unit c = LoadUnitHandle(udg_Hash, GetHandleId(t), 0)
          
         UnitRemoveAbility(c, STUN_BUFF)
         DestroyTimer(t)
         FlushChildHashtable(udg_Hash, GetHandleId(t))
          
         flush locals
     }
      
     private void Shaking()
     {
         timer t = GetExpiredTimer()
         unit c = LoadUnitHandle(udg_Hash, GetHandleId(t), 0)
         unit u = LoadUnitHandle(udg_Hash, GetHandleId(t), 6)
         int i = LoadInteger(udg_Hash, GetHandleId(t), 1)
         float a = LoadReal(udg_Hash, GetHandleId(t), 2)
         float d = LoadReal(udg_Hash, GetHandleId(t), 3)
         float x = GetWidgetX(c) + Cos(a) * d
         float y = GetWidgetY(c) + Sin(a) * d
         group g = new group
         group g2 = LoadGroupHandle(udg_Hash, GetHandleId(t), 4)
         unit p = null
         float damage = LoadReal(udg_Hash, GetHandleId(t), 5)
         int id = GetPlayerId(GetOwningPlayer(u))
          
         if i != 0
         {
             SafeMove(c, x, y)
             SaveInteger(udg_Hash, GetHandleId(t), 1, i - 1)
             SaveReal(udg_Hash, GetHandleId(t), 3, d - 10.0)
              
             GroupEnumUnitsInRange(g, GetWidgetX(c), GetWidgetY(c), 100.0, null)
             loop
             {
                 p = FirstOfGroup(g)
                 exitwhen p == null
                 if ChekSpellUnit(u, p) == true || IsUnitInGroup(p, g2) == false
                 {
                     UnitDamageTargetByType(u, p, damage, DAMAGE_TYPE_MAGIC)
                     GroupAddUnit(g2, p)
                 }
                 GroupRemoveUnit(g, p)
             }
             DestroyGroup(g)
         } else {
             SetUnitPathing(c, true)
             DestroyGroup(g2)
             DestroyTimer(t)
             FlushChildHashtable(udg_Hash, GetHandleId(t))
         }
          
         flush locals
     }

     callback onUnitSpellEffect(ABILITY)
     {
         unit u = GetTriggerUnit(); unit c = GetSpellTargetUnit()
         unit d = CreateUnit(GetOwningPlayer(u), DUMMY, GetWidgetX(c), GetWidgetY(c), 0)
         int level = GetUnitAbilityLevel(u, ABILITY)
         int str = GetHeroStr(c, true)
         float strx = I2R(GetHeroStr(c, true)) * 0.01
         float stun = STUN(level)
         float damage = DAMAGE(level); float damageX = (damage + GetHeroStr(u, true)) / 2
         timer t = new timer; timer t2 = new timer
         group g = new group; group g2 = new group
         unit p = null
         int id = GetPlayerId(GetOwningPlayer(u))
      
         if IsUnitType(c, UNIT_TYPE_HERO) == true
         {
             if strx >= stun
             {
                 stun = 0.01
             } else {
                 stun -= strx
             }
             if str >= damage {
                 damage = 0.0
             } else {
                 damage -= str
             }
         }
          
         SaveUnitHandle(udg_Hash, GetHandleId(t), 0, c)
         SaveUnitHandle(udg_Hash, GetHandleId(t2), 0, c)
         SaveInteger(udg_Hash, GetHandleId(t2), 1, 4)
         SaveReal(udg_Hash, GetHandleId(t2), 2, GetUnitFacing(u) * .017)
         SaveReal(udg_Hash, GetHandleId(t2), 3, 50.0)
          
         TimerStart(t, stun, false, function Timer)
         TimerStart(t2, 0.04, true, function Shaking)
          
         UnitAddAbility(d, ABILITY_STUN)
         UnitApplyTimedLife(d, 'BTLF', 1.0)
         IssueTargetOrderById(d, order_thunderbolt, c)
         UnitDamageTargetByType(u, c, damage + GetHeroStr(u, true), DAMAGE_TYPE_MAGIC)
         PlaySoundOnUnit(gg_snd_Sotryasenie, u)
         PlaySoundOnUnit(gg_snd_Sotryasenie2, c)
         SetUnitPathing(c, false)
         SafeMove(c, GetWidgetX(c) + Cos(GetUnitFacing(u) * .017) * 60.0, GetWidgetY(c) + Sin(GetUnitFacing(u) * .017) * 60.0)
         GroupEnumUnitsInRange(g, GetWidgetX(c), GetWidgetY(c), 100.0, null)
          
         loop
         {
             p = FirstOfGroup(g)
             exitwhen p == null
             if ChekSpellUnit(u, p) == true || IsUnitInGroup(p, g2) == false
             {
                 UnitDamageTargetByType(u, p, damageX, DAMAGE_TYPE_MAGIC)
                 GroupAddUnit(g2, p)
             }
             GroupRemoveUnit(g, p)
         }
         DestroyGroup(g)
         SaveGroupHandle(udg_Hash, GetHandleId(t2), 4, g2)
         SaveReal(udg_Hash, GetHandleId(t2), 5, damageX)
         SaveUnitHandle(udg_Hash, GetHandleId(t2), 6, u)
      
         flush locals
     }
}