• 🏆 Texturing Contest #33 is OPEN! Contestants must re-texture a SD unit model found in-game (Warcraft 3 Classic), recreating the unit into a peaceful NPC version. 🔗Click here to enter!
  • It's time for the first HD Modeling Contest of 2024. Join the theme discussion for Hive's HD Modeling Contest #6! Click here to post your idea!

xxdingo93xx's Spellpack FINAL - Clan NgO

Author(s)
xxdingo93xx
Tags
Pack, vJASS
Size
224.88 KB
Rating

(12 ratings)

Downloads
5511
Created
Nov 17, 2008
Updated
Jan 10, 2010
Resources
1
State
Approved
This bundle is marked as recommended. It works and satisfies the submission rules.
View usage Statistics Legacy download
  • Like
Reactions: osh, Thanathos, RaidonGod and 9 others
Current Number of Spells: 8

v1.01
-Fixed Dummy bug
-Nulled a forgotten handle (killed a leak)

V2.02
- Added "Thunder Wave"
- Optmizied tooltips and improved tutorial

V2.03
- Fixed bug on "Thunder Wave"
- Fixed tooltip errors

V3.03
- Added "Frost Bomb"

V3.04
- Fixed Damage bug for "Frost Bomb"

V3.05
- Removed dummy leak in "Frost Bomb"
- set all functions private in "Frost Bomb"
- Hid all dummy units on minimap

V4.05
- Added "Power Bash" which originally was created for the Spell Minicontest #17
- Increased Test Map

V5.06
- FixedDummy bug on the ability "Frost Bomb"
- Added the spell "Geyser"
- Added the spell "Blazing Missile"
- Added the spell "Phoenix Tackle"
- Added the spell "Harmonic Theraphy"

V7.08 (Phew, huge update)
- Updated the CostumMotion Script -> increased all spells code efficiency
- Removed the spells "Blazing Missile", "Phoenix Tackle" and "Frost Bomb" due to bugging and their boredom
- Added the spell "Electric Impulse"
- Added the spell "Storm Rage"
- Added the spell "Soul Purity"
- Overwrote all tooltips -> new tooltip style

V8.00
- Removed some spells I didn't even like myself
- overwrote the 4 remaining spells. They now base on TimerUtils
- Improved the 4 remaining spells widely

V8.02
- Fixed"Geyser". It is now MUI
- Fixed "Spike Impact". The puddle of blood is now removed
- Fixed "Cutwave". The code is faster now

V9.05
- Fixed "Spike Impact"
- Deleted transparency changings
- Made the caster to the "stand" animation after finishing the spell
- Fixed "Thunder Wave". The caster now faces the target direction.
- Made all valid functions constant to increase efficiency
- Added "Impulse"
- Added "Impulse" (Passive)

V9.06
- Made the spells 1.24 compatible

V Final
- Fixed "Spike Impact"
- fixed the recoloring bug
- Fixed some mistakes in several tooltips
- Added "Zeroblaster"
- Added "Stormslash"
Latest Update at: January 10th, 2010


Why Spellpack?

The reason for why I made a Spellpack is that I am fed up to always post a new map to the spell section. Well, it also has advantages:
- I don't have to create a new map always but I can use the same
- Specific Systems are alread implented into the map
- Map is initialized already
- Bla bla ... you know the rest ^^
I will update this spellpack instead of making always maps when I invent spells so it would be cool if you'd check it more often.


******************
To the Spells

---------------------

Spike Impact:
The cryptlord burrows into the ground to widely enlarge the spikes on his back. These enlarged spikes have such an enormous speed, that affected enemies are stinged heavily. They receive damage and explode if they die due to this.

JASS: 
//               °                                        Mapmaking since 2006...
//            °
//          °
//         °
//       °°°ÛÜ
//      °°X°ÛÛÛ                          ÛÛÛÛÛÛÛÛ     ÿÜÛÛÛÛÛÛÛÛÜ
//     °°XX° ÛÛÛ        ßÛÛÛÛÛ        ÛÛÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX ° ÛÛÛÛ         ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX °  ÛÛÛÛÛ        ÛÛÛÛ    ÛÛÛÛÛß    ßÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//    °°XXX°° ÛÛÛÛÛÛÜ       ÛÛÛÜ  ÛÛÛÛÛ        ßÛÛÛÛÛ ßÛÛÛÛ    ÛÛÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛ      ÛÛÛÛ  ÛÛÛÛ                 ÛÛÛÛ      ÛÛÛÛÜ
//             ÛÛÛÛÛÛÛÛ     ÛÛÛÛ  ÛÛÛÛ        ÛÛÛÛÛÛÛ  ÛÛÛÛÛÜ     ÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛÛÛ    ÛÛÛÛÜ  ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÜ  ÜÛÛÛÛÛÛ
//   °°XXXXX°   ÛÛÛÛ  ÛÛÛÜ  ÛÛÛÛÛ   ÛÛÛÛÛÛÜ    ßÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//   °°XXXXX °° ÛÛÛÛ   ÛÛÛÛÜ ÛÛÛÛ °°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°° ÛÛÛÛÛÛÛÛÛÛÛÛÛß
//   °  XXXXX °°ÛÛÛÛÛ°°°°ÛÛÛÛÛÛÛÛ°°XX ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ XXX°°ÛÛÛÛÛÛÛÛÛÛÛ     ÛÛÛ
//   °°  XXXXX ÜÛÛÛÛÛÛ X ÛÛÛÛÛÛÛÛÛ XXX ÛÛÛÛÛÛÛÛÛÛÛ  XXXXXX  ÛÛÛÛÛÛÛ°      ÛÛÛ
//    °°  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°°   °°°°
//     °°   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°X°°
//      °°°  XXXXXXXXXX  °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° XXXXXXXXXXXXXXXXX°°
//        °°°°°°°°°°°°°°°°                                  °°°°°°°°  XXXXXXX °°°
//                                                                  °°°°°° XX °°
//   ...2009 and still moving on.                                        °°°°°°°
//                                                                             °°
//   Screen Solution: 1280x1024                             Visit www.ngo.clan.su!
//========================================================================================
scope SpikedImpact initializer Init
//========================================================================================
//====================================SETUP START=========================================
//========================================================================================
    globals
        //Default: 'SpIm'
        private constant integer AID = 'SpIm' //the rawcode of the ability "Spike Impact"
        //Default: 'eSp1'
        private constant integer SPIKED_ONE = 'eSp1' //the rawcode of the unit spike 1
        //Default: 'eSp2'
        private constant integer SPIKED_TWO = 'eSp2' //the rawcode of the unit spike 2
        //Default: 'eSp3'
        private constant integer SPIKED_THREE = 'eSp3' //the rawcode of the unit spike 3
        //Default: 'eSp4'
        private constant integer SPIKED_FOUR = 'eSp4' //the rawcode of the unit spike 4
        //Default: 8
        private constant integer MAX = 8 //the maximal amount of spikes for each heigh
        //Default: "Morph"
        private constant string START_ANIMATION = "Morph" //the animation the caster will play when he casts the spell
        //Default: "Morph Defend"
        private constant string END_ANIMATION = "Morph Defend" //the animation the caster will play when the spell ends
        //Default: 255
        private constant integer RED = 255 //The red RGB color of the affected units from 0 to 255
        //Default: 45
        private constant integer GREEN = 45 //The green RGB color of the affected units from 0 to 255
        //Default: 45
        private constant integer BLUE = 45 //The blue RGB color of the affected units from 0 to 255
        //Default: "Objects\\Spawnmodels\\Orc\\Orcblood\\BattrollBlood.mdl"
        private constant string ENEMY_EFFECT = "Objects\\Spawnmodels\\Orc\\Orcblood\\BattrollBlood.mdl" //the that will be created at the enemy when it is affected, in this case is blood.
        //Default: 0.3
        private constant real SPIKE_GROW = 0.3 //the time the spikes will have to grow before they are paused
        //Default: 1.5
        private constant real SPIKE_PAUSE = 1.5 //the duration of pausing the spikes
        //Default: 1.2
        private constant real SPIKE_DEATH = 1.2 //this is how long the death animation of the spikes lasts
    endglobals

    private constant function Radius takes integer level returns real
        //Default: 650. + level * 50.
        return 650. + level * 50.
    endfunction

    private constant function Damage takes integer level returns real
        //Default: level * 80. + 25.
        return level * 80. + 25.
    endfunction
//========================================================================================
//====================================SETUP END===========================================
//========================================================================================
    globals
        private unit TempCaster = null
    endglobals

    private function Pick takes nothing returns boolean
        return IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(TempCaster)) and (GetWidgetLife(GetFilterUnit()) > 0.405) and not IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE)
    endfunction
  
    private function KillEnemies takes unit caster, unit target, integer level returns nothing
        local real DamageToDeal = Damage(level)

        call PauseUnit(target, false)
        call SetUnitTimeScale(target, 0.00)
        call SetUnitVertexColor(target, 255, 255, 255, 255)
        if(GetWidgetLife(target) <= DamageToDeal) then
            call SetUnitExploded(target, true)
        else
            call DestroyEffect(AddSpecialEffectTarget(ENEMY_EFFECT, target, "chest"))
        endif
        call UnitDamageTarget(caster, target, DamageToDeal, true, true, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
    endfunction
  
    private function RecolorEnemies takes nothing returns nothing
        local unit Enemy = GetEnumUnit()
      
        call PauseUnit(Enemy, true)
        call SetUnitTimeScale(Enemy, 0.00)
        call SetUnitVertexColor(Enemy, RED, GREEN, BLUE, 255)
        call DestroyEffect(AddSpecialEffectTarget(ENEMY_EFFECT, Enemy, "chest"))
        set Enemy = null
    endfunction
  
    private struct SIData
        unit caster
        integer level
        unit array spikes [36]
        timer t
        group g
      
        static method Reset takes nothing returns nothing
            local SIData data = SIData(GetTimerData(GetExpiredTimer()))
            call data.destroy()
        endmethod
      
        static method End takes nothing returns nothing
            local SIData data = SIData(GetTimerData(GetExpiredTimer()))
            local unit f
            local integer i = 0
          
            loop
                set f = FirstOfGroup(data.g)
                exitwhen f == null
                call KillEnemies(data.caster, f, data.level)
                call GroupRemoveUnit(data.g, f)
            endloop
            set i = 0
            loop
                exitwhen (i == MAX * 4)
                call PauseUnit(data.spikes[i], false)
                call UnitApplyTimedLife(data.spikes[i], 'BTLF', 1.00)
                call SetUnitTimeScale(data.spikes[i], 1)
                set i = i + 1
            endloop
          
            call SetTimerData(data.t, integer(data))
            call SetUnitAnimation(data.caster, END_ANIMATION)
            call TimerStart(data.t, 0.5, false, function SIData.Reset)
        endmethod
      
        static method Growth takes nothing returns nothing
            local SIData data = SIData(GetTimerData(GetExpiredTimer()))
            local integer i = 0
          
            loop
                exitwhen (i == MAX * 4)
                call PauseUnit(data.spikes[i], true)
                call SetUnitTimeScale(data.spikes[i], 0.)
                set i = i + 1
            endloop
            set TempCaster = data.caster
            call GroupEnumUnitsInRange(data.g, GetUnitX(data.caster), GetUnitY(data.caster), Radius(data.level), Condition(function Pick))
            call ForGroup(data.g, function RecolorEnemies)
          
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, SPIKE_DEATH, false, function SIData.End)
        endmethod
      
        static method create takes unit aCaster returns SIData
            local SIData data = SIData.allocate()
            local real x
            local real y
            local real Degrees
            local integer SpikeNumber = 0
            local integer i = 0
            local player owner = GetOwningPlayer(aCaster)
          
            set data.caster = aCaster
            set data.level = GetUnitAbilityLevel(aCaster, AID)
            set data.g = CreateGroup()
            loop
                exitwhen (i == MAX)
                set Degrees = (360./MAX * I2R(i))
                set x = GetUnitX(data.caster) + 10.0 * Cos(Degrees * bj_DEGTORAD)
                set y = GetUnitY(data.caster) + 10.0 * Sin(Degrees * bj_DEGTORAD)
                set data.spikes [SpikeNumber]     = CreateUnit(owner, SPIKED_ONE, x, y, Degrees)
                set data.spikes [SpikeNumber + 1] = CreateUnit(owner, SPIKED_TWO, x, y, Degrees)
                set data.spikes [SpikeNumber + 2] = CreateUnit(owner, SPIKED_THREE, x, y, Degrees)
                set data.spikes [SpikeNumber + 3] = CreateUnit(owner, SPIKED_FOUR, x, y, Degrees)
                set SpikeNumber = SpikeNumber + 4
                set i = i + 1
            endloop
            call PauseUnit(data.caster, true)
            call SetUnitAnimation(data.caster, START_ANIMATION)
          
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, SPIKE_GROW, false, function SIData.Growth)
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            local integer Index = 1
          
            loop
                exitwhen Index > 36
                set this.spikes [Index] = null
                set Index = Index + 1
            endloop
            call ReleaseTimer(this.t)
            call IssueImmediateOrder(this.caster, "stop")
            call SetUnitAnimation(this.caster, "stand")
            call PauseUnit(this.caster, false)
            call GroupClear(this.g)
            set this.caster = null
            set this.g = null
        endmethod
    endstruct
//====================================================================================
    private function Conditions takes nothing returns boolean
        return GetSpellAbilityId() == AID
    endfunction
//====================================================================================
    private function Actions takes nothing returns nothing
        call SIData.create(GetSpellAbilityUnit())
    endfunction
//===========================Creating the trigger=====================================
    private function Init takes nothing returns nothing
        local trigger Tri = CreateTrigger()
        call TriggerRegisterAnyUnitEventBJ(Tri, EVENT_PLAYER_UNIT_SPELL_EFFECT)
        call TriggerAddAction(Tri, function Actions)
        call TriggerAddCondition(Tri, Condition(function Conditions))
      
        // this will remove the first cast lag
        call RemoveUnit(CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE),  SPIKED_ONE, 0.00, 0.00, 0.00))
        call RemoveUnit(CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE),  SPIKED_TWO, 0.00, 0.00, 0.00))
        call RemoveUnit(CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE),  SPIKED_THREE, 0.00, 0.00, 0.00))
        call RemoveUnit(CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE),  SPIKED_FOUR, 0.00, 0.00, 0.00))
      
        call Preload(ENEMY_EFFECT)
    endfunction
endscope

---------------------

Thunder Wave:
Calls forth 5 orbs of lightning nearby the caster. Those orbs load up themselves for a short while to instantly discharge to cause a shockwave each in front of the caster. The impact of the discharge damages nearby enemies. They also have a chance to be stunned for a short while.

JASS: 
//               °                                        Mapmaking since 2006...
//            °
//          °
//         °
//       °°°ÛÜ
//      °°X°ÛÛÛ                          ÛÛÛÛÛÛÛÛ     ÿÜÛÛÛÛÛÛÛÛÜ
//     °°XX° ÛÛÛ        ßÛÛÛÛÛ        ÛÛÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX ° ÛÛÛÛ         ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX °  ÛÛÛÛÛ        ÛÛÛÛ    ÛÛÛÛÛß    ßÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//    °°XXX°° ÛÛÛÛÛÛÜ       ÛÛÛÜ  ÛÛÛÛÛ        ßÛÛÛÛÛ ßÛÛÛÛ    ÛÛÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛ      ÛÛÛÛ  ÛÛÛÛ                 ÛÛÛÛ      ÛÛÛÛÜ
//             ÛÛÛÛÛÛÛÛ     ÛÛÛÛ  ÛÛÛÛ        ÛÛÛÛÛÛÛ  ÛÛÛÛÛÜ     ÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛÛÛ    ÛÛÛÛÜ  ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÜ  ÜÛÛÛÛÛÛ
//   °°XXXXX°   ÛÛÛÛ  ÛÛÛÜ  ÛÛÛÛÛ   ÛÛÛÛÛÛÜ    ßÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//   °°XXXXX °° ÛÛÛÛ   ÛÛÛÛÜ ÛÛÛÛ °°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°° ÛÛÛÛÛÛÛÛÛÛÛÛÛß
//   °  XXXXX °°ÛÛÛÛÛ°°°°ÛÛÛÛÛÛÛÛ°°XX ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ XXX°°ÛÛÛÛÛÛÛÛÛÛÛ     ÛÛÛ
//   °°  XXXXX ÜÛÛÛÛÛÛ X ÛÛÛÛÛÛÛÛÛ XXX ÛÛÛÛÛÛÛÛÛÛÛ  XXXXXX  ÛÛÛÛÛÛÛ°      ÛÛÛ
//    °°  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°°   °°°°
//     °°   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°X°°
//      °°°  XXXXXXXXXX  °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° XXXXXXXXXXXXXXXXX°°
//        °°°°°°°°°°°°°°°°                                  °°°°°°°°  XXXXXXX °°°
//                                                                  °°°°°° XX °°
//   ...2009 and still moving on.                                        °°°°°°°
//                                                                             °°
//   Screen Solution: 1280x1024                             Visit www.ngo.clan.su!
//================================================================================
scope ThunderWave initializer Init
//=======================================================================
//========================= SETUP START =================================
//=======================================================================
    globals
        //Default: 'ThWa'
        private constant integer AID = 'ThWa' //The rawcode from the ability "Thunder Wave"
        //Default: 'eDUM'
        private constant integer DUMMY = 'eDUM' //The rawcode from the unit "Dummy Missile"
        //Default: 'TWst'
        private constant integer STUN = 'TWst' //The rawcode from the ability "Thunder Wave (Stun)"
        //Default: "FORK"
        private constant string LGTYPE = "FORK" //The lightning type of the lightning being created
        //Default: "Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl"
        private constant string IMPACTSPX = "Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl" //The path of the impact effect
        //Default: "Abilities\\Weapons\\FarseerMissile\\FarseerMissile.mdl"
        private constant string MAINSPX = "Abilities\\Weapons\\FarseerMissile\\FarseerMissile.mdl" //The path for the orb model
        //Default: "Abilities\\Spells\\Orc\\Purge\\PurgeBuffTarget.mdl"
        private constant string SECSPX = "Abilities\\Spells\\Orc\\Purge\\PurgeBuffTarget.mdl" //The path for the charging effect for the orb model
        //Default: "Abilities\\Weapons\\Bolt\\BoltImpact.mdl"
        private constant string HITSPX = "Abilities\\Weapons\\Bolt\\BoltImpact.mdl" //The effect spawned on enemies when successfully hitting them
        //Default: "spell slam"
        private constant string ANIM = "spell slam" //While casting, the caster is paused and plays this animation
        //Default: 1.5
        private constant real SPELLDURA = 1.5 //The duration for the whole spell
        ///Default: 1.5
        private constant real SIZE = 1.5 //The size for the orb models
        //Defaul: 200.
        private constant real DISTLEVEL = 200. //This variable defines the distance level for the position of the orbs (Has only graphical meaning)
        //Default: 200.
        private constant real HEIGHTLEVEL = 200. //This variable defines the height level for the flying height of the orbs (Has only graphical meaning)
        //Default: 150.
        private constant real DEBUGADD = 150. //If the lightning is created just like that, it will look odd since the lightning doesn't really "touch" the orbs. This value will increase the height of the lightning so it looks realistic.
    endglobals  
  
    private constant function GetDamage takes integer level returns real
        //Default: level * 15. + 15.
        return level * 15. + 15.
    endfunction
  
    private constant function GetMaxDistance takes integer level returns real
        //Default: level * 75. + 400.
        return level * 75. + 400.
    endfunction
  
    private constant function GetStunChance takes integer level returns real
        //Default: level * 1.5 + 2.5
        return level * 1.5 + 2.5
    endfunction
  
    private constant function GetImpactRadius takes integer level returns real
        //Default: level * 50. + 50.
        return level * 50. + 50.
    endfunction
//=======================================================================
//=========================  SETUP END  =================================
//=======================================================================
    globals
        private unit TempCaster = null
    endglobals
  
    private function A2PXY takes real x,real y,real xt,real yt returns real
        return ModuloReal(bj_RADTODEG*Atan2(yt-y,xt-x),360.)
    endfunction
  
    private function UnitAllowFly takes unit u returns nothing
        call UnitAddAbility(u, 'Arav')
        call UnitRemoveAbility(u, 'Arav')
    endfunction
  
    private function Pick takes nothing returns boolean
        return IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(TempCaster)) and GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0.405 and IsUnitType(GetFilterUnit(), UNIT_TYPE_GROUND)
    endfunction
//================================================================================
    private function DealDamage takes unit Caster, integer level, real x, real y returns nothing
        local group Enemies = CreateGroup()
        local unit f
        local unit d
      
        set TempCaster = Caster
        call GroupEnumUnitsInRange(Enemies, x, y, GetImpactRadius(level), Condition(function Pick))
      
        loop  
            set f = FirstOfGroup(Enemies)
            exitwhen f == null
            call UnitDamageTarget(Caster, f, GetDamage(level), true, true, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
            call AddSpecialEffect(HITSPX, GetUnitX(f), GetUnitY(f))
            if GetRandomReal(1, 100) < GetStunChance(level) then
                set d = CreateUnit(GetOwningPlayer(Caster), DUMMY, GetUnitX(f), GetUnitY(f), 0.)
                call UnitAddAbility(d, STUN)
                call SetUnitAbilityLevel(d, STUN, level)
                call UnitApplyTimedLife(d, 'BTLK', 0.5)
                call IssueTargetOrder(d, "thunderbolt", f)
            endif
            call GroupRemoveUnit(Enemies, f)
        endloop
      
        call DestroyGroup(Enemies)
        set Enemies = null
    endfunction
//================================================================================
    private struct TWData
        unit array Missiles [6]
        unit caster
        real CenterX
        real CenterY
        real Angle
        timer t
        integer level
        lightning LocLg
        real DistAdd = 0.
        integer Counter
        effect array spx [6]
        effect array spx2 [6]
      
        static method Execute takes nothing returns nothing
            local TWData data = TWData(GetTimerData(GetExpiredTimer()))
            local real x
            local real y
            local integer i = 1
          
            if data.Counter <= 5 then
                set data.Counter = data.Counter + 1
            else
                if data.spx2 [1] != null then
                    loop
                        exitwhen i == 6
                        call DestroyEffect(data.spx2 [i])
                        set i = i + 1
                    endloop
                endif
              
                if data.Counter < 11 then
                    if data.LocLg != null then
                        call DestroyLightning(data.LocLg)
                    endif
                    set data.DistAdd = data.DistAdd + (GetMaxDistance(data.level) / 5)
                    set x = data.CenterX + data.DistAdd * Cos(data.Angle * bj_DEGTORAD)
                    set y = data.CenterY + data.DistAdd * Sin(data.Angle * bj_DEGTORAD)
                    set data.LocLg = AddLightningEx(LGTYPE, false, GetUnitX(data.Missiles [data.Counter - 5]), GetUnitY(data.Missiles [data.Counter - 5]), GetUnitFlyHeight(data.Missiles [data.Counter - 5]) + DEBUGADD, x, y, 0.)
                    call DestroyEffect(AddSpecialEffect(IMPACTSPX, x, y))
                    call DealDamage(data.caster, data.level, x, y)
                    set data.Counter = data.Counter + 1
                else
                    call PauseTimer(data.t)
                    call data.destroy()
                endif
            endif
        endmethod
      
        static method create takes unit Caster, real CenterX, real CenterY, real Angle returns TWData
            local TWData data = TWData.allocate()
            local real Ang = Angle - 90
            local real x = CenterX + DISTLEVEL * Cos(Ang * bj_DEGTORAD)
            local real y = CenterY + DISTLEVEL * Sin(Ang * bj_DEGTORAD)
          
            set data.Angle = Angle
            set data.caster = Caster
            call SetUnitFacing(data.caster, data.Angle)
            set data.CenterX = CenterX
            set data.CenterY = CenterY
            set data.Counter = 1
            set data.level = GetUnitAbilityLevel(data.caster, AID)
            set data.Missiles [1] = CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE), DUMMY, x, y, 0.)
            call UnitAllowFly(data.Missiles [1])
            call SetUnitFlyHeight(data.Missiles [1], GetUnitFlyHeight(Caster) + 50, 0.)
            call SetUnitScale(data.Missiles [1], SIZE, SIZE, SIZE)
            set data.spx [1] = AddSpecialEffectTarget(MAINSPX, data.Missiles [1], "chest")
            set data.spx2 [1] = AddSpecialEffectTarget(SECSPX, data.Missiles [1], "origin")
            set Ang = Angle + 90
            set x = CenterX + DISTLEVEL * Cos(Ang * bj_DEGTORAD)
            set y = CenterY + DISTLEVEL * Sin(Ang * bj_DEGTORAD)
            set data.Missiles [2] = CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE), DUMMY, x, y, 0.)
            call UnitAllowFly(data.Missiles [2])
            call SetUnitFlyHeight(data.Missiles [2], GetUnitFlyHeight(Caster) + 50, 0.)
            call SetUnitScale(data.Missiles [2], SIZE, SIZE, SIZE)
            set data.spx [2] = AddSpecialEffectTarget(MAINSPX, data.Missiles [2], "chest")
            set data.spx2 [2] = AddSpecialEffectTarget(SECSPX, data.Missiles [2], "origin")
            set Ang = Angle - 90
            set x = CenterX + (DISTLEVEL / 2) * Cos(Ang * bj_DEGTORAD)
            set y = CenterY + (DISTLEVEL / 2) * Sin(Ang * bj_DEGTORAD)
            set data.Missiles [3] = CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE), DUMMY, x, y, 0.)
            call UnitAllowFly(data.Missiles [3])
            call SetUnitFlyHeight(data.Missiles [3], GetUnitFlyHeight(Caster) + 50 + (HEIGHTLEVEL / 2), 0.)
            call SetUnitScale(data.Missiles [3], SIZE, SIZE, SIZE)
            set data.spx [3] = AddSpecialEffectTarget(MAINSPX, data.Missiles [3], "chest")
            set data.spx2 [3] = AddSpecialEffectTarget(SECSPX, data.Missiles [3], "origin")
            set Ang = Angle + 90
            set x = CenterX + (DISTLEVEL / 2) * Cos(Ang * bj_DEGTORAD)
            set y = CenterY + (DISTLEVEL / 2) * Sin(Ang * bj_DEGTORAD)
            set data.Missiles [4] = CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE), DUMMY, x, y, 0.)
            call UnitAllowFly(data.Missiles [4])
            call SetUnitFlyHeight(data.Missiles [4], GetUnitFlyHeight(Caster) + 50 +(HEIGHTLEVEL / 2), 0.)
            call SetUnitScale(data.Missiles [4], SIZE, SIZE, SIZE)
            set data.spx [4] = AddSpecialEffectTarget(MAINSPX, data.Missiles [4], "chest")
            set data.spx2 [4] = AddSpecialEffectTarget(SECSPX, data.Missiles [4], "origin")
            set data.Missiles [5] = CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE), DUMMY, CenterX, CenterY, 0.)
            call UnitAllowFly(data.Missiles [5])
            call SetUnitFlyHeight(data.Missiles [5], GetUnitFlyHeight(Caster) + 50 + HEIGHTLEVEL, 0.)
            call SetUnitScale(data.Missiles [5], SIZE, SIZE, SIZE)
            set data.spx [5] = AddSpecialEffectTarget(MAINSPX, data.Missiles [5], "chest")
            set data.spx2 [5] = AddSpecialEffectTarget(SECSPX, data.Missiles [5], "origin")
          
            call PauseUnit(data.caster, true)
            call SetUnitAnimation(data.caster, ANIM)
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, SPELLDURA / 10, true, function TWData.Execute)
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            local integer Index = 1
          
            call ReleaseTimer(this.t)
            call SetUnitAnimation(this.caster, "stand")
            call PauseUnit(this.caster, false)
            loop
                exitwhen Index == 6
                call DestroyEffect(this.spx [Index])
                call UnitApplyTimedLife(this.Missiles [Index], 'BTLK', 0.5)
                set this.Missiles [Index] = null
                set this.spx [Index] = null
                set this.spx2 [Index] = null
                set Index = Index + 1
            endloop
            if this.LocLg != null then
                call DestroyLightning(this.LocLg)
                set this.LocLg = null
            endif
        endmethod
    endstruct
//================================================================================
    private function Conditions takes nothing returns boolean
        return GetSpellAbilityId() == AID
    endfunction
//================================================================================
    private function Actions takes nothing returns nothing
        local unit caster = GetSpellAbilityUnit()
        local location temploc = GetSpellTargetLoc()
        local real TarX = GetLocationX(temploc)
        local real TarY = GetLocationY(temploc)
      
        call TWData.create(caster, GetUnitX(caster), GetUnitY(caster), A2PXY(GetUnitX(caster), GetUnitY(caster), TarX, TarY))
      
        call RemoveLocation(temploc)
        set temploc = null
        set caster = null
    endfunction
//================================================================================
    private function Init takes nothing returns nothing
        local trigger tri = CreateTrigger()
      
        call TriggerRegisterAnyUnitEventBJ(tri, EVENT_PLAYER_UNIT_SPELL_EFFECT)
        call TriggerAddCondition(tri, Condition(function Conditions))
        call TriggerAddAction(tri, function Actions)
      
        // this will remove the first cast lag
        call RemoveUnit(CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE), DUMMY, 0.00, 0.00, 0.00))
      
        //Preloading strings to avoid leaks
        call Preload(LGTYPE)
        call Preload(IMPACTSPX)
        call Preload(MAINSPX)
        call Preload(SECSPX)
        call Preload(ANIM)
    endfunction
endscope

---------------------

Cutwave:
The hero strikes with such an enormous power towards the target direction that his blade sends a razor sharp wave in that direction. This wave disappears after a certain range or when hitting a wall of obstacle.
The first enemied unit touching this wave receives damage and loses health overtime due to bleedings.
Hitting flying units with it is possible if the wave reaches its height.

JASS: 
//               °                                        Mapmaking since 2006...
//            °
//          °
//         °
//       °°°ÛÜ
//      °°X°ÛÛÛ                          ÛÛÛÛÛÛÛÛ     ÿÜÛÛÛÛÛÛÛÛÜ
//     °°XX° ÛÛÛ        ßÛÛÛÛÛ        ÛÛÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX ° ÛÛÛÛ         ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX °  ÛÛÛÛÛ        ÛÛÛÛ    ÛÛÛÛÛß    ßÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//    °°XXX°° ÛÛÛÛÛÛÜ       ÛÛÛÜ  ÛÛÛÛÛ        ßÛÛÛÛÛ ßÛÛÛÛ    ÛÛÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛ      ÛÛÛÛ  ÛÛÛÛ                 ÛÛÛÛ      ÛÛÛÛÜ
//             ÛÛÛÛÛÛÛÛ     ÛÛÛÛ  ÛÛÛÛ        ÛÛÛÛÛÛÛ  ÛÛÛÛÛÜ     ÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛÛÛ    ÛÛÛÛÜ  ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÜ  ÜÛÛÛÛÛÛ
//   °°XXXXX°   ÛÛÛÛ  ÛÛÛÜ  ÛÛÛÛÛ   ÛÛÛÛÛÛÜ    ßÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//   °°XXXXX °° ÛÛÛÛ   ÛÛÛÛÜ ÛÛÛÛ °°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°° ÛÛÛÛÛÛÛÛÛÛÛÛÛß
//   °  XXXXX °°ÛÛÛÛÛ°°°°ÛÛÛÛÛÛÛÛ°°XX ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ XXX°°ÛÛÛÛÛÛÛÛÛÛÛ     ÛÛÛ
//   °°  XXXXX ÜÛÛÛÛÛÛ X ÛÛÛÛÛÛÛÛÛ XXX ÛÛÛÛÛÛÛÛÛÛÛ  XXXXXX  ÛÛÛÛÛÛÛ°      ÛÛÛ
//    °°  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°°   °°°°
//     °°   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°X°°
//      °°°  XXXXXXXXXX  °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° XXXXXXXXXXXXXXXXX°°
//        °°°°°°°°°°°°°°°°                                  °°°°°°°°  XXXXXXX °°°
//                                                                  °°°°°° XX °°
//   ...2009 and still moving on.                                        °°°°°°°
//                                                                             °°
//   Screen Solution: 1280x1024                             Visit www.ngo.clan.su!
//================================================================================
scope Cutwave initializer Init
//===========================================================================
//=============================== SETUP START ===============================
//===========================================================================
    globals
        //Default: 'CuWa'
        private constant integer AID = 'CuWa' //The rawcode of the ability "Cutwave"
        //Default: 'CWbl'
        private constant integer BLEED = 'CWbl' //The rawcode of the ability "Bleed"
        //Default: 'eROT'
        private constant integer DUMMY = 'eROT' //The rawcode of the unit "Dummy Missile (Rotated)"
        //Default: "Abilities\\Weapons\\WingedSerpentMissile\\WingedSerpentMissile.mdl"
        private constant string DUMMYMODEL = "Abilities\\Weapons\\WingedSerpentMissile\\WingedSerpentMissile.mdl" //The model of the dummy unit
        //Default: "Objects\\Spawnmodels\\Human\\HumanBlood\\BloodElfSpellThiefBlood.mdl"
        private constant string ENEMYMODEL = "Objects\\Spawnmodels\\Human\\HumanBlood\\BloodElfSpellThiefBlood.mdl" //The effect being spawned on the enemy when successfully hitting it
        //Default: "Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl"
        private constant string SPX = "Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl" //The effect which appears when the cutwave disappears
        //Default: "attack"
        private constant string ANIM = "attack" //The animation the caster does when casting the ability
        //Default: 2.5
        private constant real SCALE = 2.5 //The scaling value of the dummy unit
        //Default: 76.
        private constant real RADIUS = 76. //The detection range
     endglobals

    private constant function GetDamage takes integer level returns real
        //Default: level * 35
        return level * 35.
    endfunction
  
    private constant function GetMaxDistance takes integer level returns real
        //Default: level * 75. + 475.
        return level * 75. + 475
    endfunction
  
    private constant function GetMissileSpeed takes integer level returns real
        //Default: level * 20. + 2.
        return level * 20. + 2.
    endfunction
//===========================================================================
//===============================  SETUP END  ===============================
//===========================================================================
    globals
        private unit TempCaster = null
        private item GetWalkable = null
        private constant integer ItemCheckID = 'sehr'
        private location TempLoc = Location(0,0)
    endglobals

    private function IsPointWalkable takes real x,real y returns boolean
        call SetItemPosition(GetWalkable,x,y)
        call SetItemVisible(GetWalkable,false)
        return GetItemX(GetWalkable)== x and GetItemY(GetWalkable)== y
    endfunction
  
    private function UnitAllowFly takes unit u returns nothing
        call UnitAddAbility(u, 'Arav')
        call UnitRemoveAbility(u, 'Arav')
    endfunction
  
    private function A2PXY takes real x,real y,real xt,real yt returns real
        return ModuloReal(bj_RADTODEG*Atan2(yt-y,xt-x),360.)
    endfunction
  
    private function Conditions takes nothing returns boolean
        return GetSpellAbilityId() == AID
    endfunction
 
    private function Pick takes nothing returns boolean
        return GetUnitState(GetFilterUnit(),UNIT_STATE_LIFE) > 0 and not IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE) and IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(TempCaster))
    endfunction

    private function Kill takes unit caster, integer level, unit target returns nothing
        local real DamageToDeal = GetDamage(level)
        local real x = GetUnitX(target)
        local real y = GetUnitY(target)
        local unit u
      
        if(GetWidgetLife(target) <= DamageToDeal) then
            call KillUnit(target)
            call DestroyEffect(AddSpecialEffectTarget(ENEMYMODEL, target, "chest"))
        else
            call UnitDamageTarget(caster, target, DamageToDeal, true, true, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
            call DestroyEffect(AddSpecialEffectTarget(ENEMYMODEL, target, "chest"))
            set u = CreateUnit(GetOwningPlayer(caster), DUMMY, x, y, 0.)
            call UnitAddAbility(u, BLEED)
            call SetUnitAbilityLevel(u, BLEED, level)
            call IssueTargetOrder(u, "rejuvination", target)
            call UnitApplyTimedLife(u, 'BTLK', 0.5)
        endif

        set u = null
    endfunction

   private struct CWData
    unit Caster
    unit Missile
    real Speed
    real Angle
    real Dist
    real MaxDist
    real StartX
    real StartY
    real StartZ
    real CosA
    real SinA
    integer Level
    integer SaveCliffLvL
  
    effect spx
    timer t
    group g
    static method Execute takes nothing returns nothing
        local CWData data = CWData(GetTimerData(GetExpiredTimer()))
        local unit f
        local real x
        local real y
        local real z
        local real MaxZ
        local real MinZ
      
        set data.Dist = data.Dist + data.Speed
        set x = data.StartX + data.Dist * data.CosA
        set y = data.StartY + data.Dist * data.SinA
        if data.SaveCliffLvL < GetTerrainCliffLevel(x, y) then
            call DestroyEffect(AddSpecialEffect(SPX, GetUnitX(data.Missile), GetUnitY(data.Missile)))
            call PauseTimer(data.t)
            call data.destroy()
        endif
        call SetUnitPosition(data.Missile, x, y)
        call MoveLocation(TempLoc, x, y)
        set z = GetLocationZ(TempLoc)
        call SetUnitFlyHeight(data.Missile, data.StartZ - z, 0.)
        set TempCaster = data.Caster
        call GroupEnumUnitsInRange(data.g, GetUnitX(data.Missile), GetUnitY(data.Missile), RADIUS, Condition(function Pick))

        if data.Dist >= data.MaxDist then
            call DestroyEffect(AddSpecialEffect(SPX, GetUnitX(data.Missile), GetUnitY(data.Missile)))
            call PauseTimer(data.t)
            call data.destroy()
        elseif FirstOfGroup(data.g) != null then
            loop
                set f = FirstOfGroup(data.g)
                exitwhen f == null
                set MinZ = GetUnitFlyHeight(f) - RADIUS + 100.
                set MaxZ = GetUnitFlyHeight(f) + RADIUS + 100.
                if GetUnitFlyHeight(data.Missile) >= MinZ and GetUnitFlyHeight(data.Missile) <= MaxZ then
                    call Kill(data.Caster, data.Level, f)
                    call data.destroy()
                    call PauseTimer(data.t)
                    call GroupClear(data.g)
                else
                    call GroupRemoveUnit(data.g, f)
                endif
            endloop
        endif
    endmethod

    static method create takes unit caster, integer level, real TarX, real TarY returns CWData
        local CWData data = CWData.allocate()
      
        set data.Caster = caster
        set data.StartX = GetUnitX(caster)
        set data.StartY = GetUnitY(caster)
        set data.Angle = A2PXY(data.StartX, data.StartY, TarX, TarY)
        set data.CosA = Cos(data.Angle * bj_DEGTORAD)
        set data.SinA = Sin(data.Angle * bj_DEGTORAD)
        set data.Missile = CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE), DUMMY, GetUnitX(caster), GetUnitY(caster), data.Angle)
        set data.spx = AddSpecialEffectTarget(DUMMYMODEL, data.Missile, "origin")
        call UnitAllowFly(data.Missile)
        call SetUnitScale(data.Missile, SCALE, SCALE, SCALE)
        call MoveLocation(TempLoc, data.StartX, data.StartY)
        set data.StartZ = 170. + GetLocationZ(TempLoc)
        set data.Dist = 0.
        set data.Level = level
        set data.MaxDist = GetMaxDistance(level)
        set data.Speed = GetMissileSpeed(level)
        set data.SaveCliffLvL = GetTerrainCliffLevel(data.StartX, data.StartY)
        set data.g = CreateGroup()
        set data.t = NewTimer()
        call SetTimerData(data.t, integer(data))
        call TimerStart(data.t, 0.03, true, function CWData.Execute)
      
        return data
    endmethod

    method onDestroy takes nothing returns nothing
        call ReleaseTimer(this.t)
        call DestroyEffect(this.spx)
        call DestroyGroup(this.g)
        call SetUnitAnimation(this.Missile, "stand")
        call UnitApplyTimedLife(this.Missile, 'BTLK', 0.5)
        set this.spx = null
        set this.Missile = null
        set this.Caster = null
        set this.g = null
    endmethod
   endstruct
//===========================================================================
    private function Actions takes nothing returns nothing
        local location loc = GetSpellTargetLoc()
      
        call CWData.create(GetSpellAbilityUnit(), GetUnitAbilityLevel(GetSpellAbilityUnit(), AID), GetLocationX(loc), GetLocationY(loc))
      
        call RemoveLocation(loc)
        set loc = null
    endfunction
//===========================================================================
    private function Init takes nothing returns nothing
        local trigger tri = CreateTrigger()
      
        call TriggerRegisterAnyUnitEventBJ(tri, EVENT_PLAYER_UNIT_SPELL_EFFECT)
        call TriggerAddAction(tri, function Actions)
        call TriggerAddCondition(tri, Condition(function Conditions))
      
        // this will remove the first cast lag
        call RemoveUnit(CreateUnit(Player(15), DUMMY, 0.00, 0.00, 0.00))
              
        //Preloading to avoid leaks
        call Preload(DUMMYMODEL)
        call Preload(ENEMYMODEL)
        call Preload(SPX)
      
        set GetWalkable = CreateItem(ItemCheckID, 0., 0.)
        call SetItemVisible(GetWalkable,false)
    endfunction
endscope

---------------------

Geyser:
Summons a geyser in the target 300 area which picks every unit it catches and pushes it high up into the air. After that, the affected targets will straightly fall back on the ground and receive damage due to the impact depending on the level of this ability. Structures will be damaged additionally.
|cFFFF0000Works on allied units as well!|r

JASS: 
//               °                                        Mapmaking since 2006...
//            °
//          °
//         °
//       °°°ÛÜ
//      °°X°ÛÛÛ                          ÛÛÛÛÛÛÛÛ     ÿÜÛÛÛÛÛÛÛÛÜ
//     °°XX° ÛÛÛ        ßÛÛÛÛÛ        ÛÛÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX ° ÛÛÛÛ         ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX °  ÛÛÛÛÛ        ÛÛÛÛ    ÛÛÛÛÛß    ßÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//    °°XXX°° ÛÛÛÛÛÛÜ       ÛÛÛÜ  ÛÛÛÛÛ        ßÛÛÛÛÛ ßÛÛÛÛ    ÛÛÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛ      ÛÛÛÛ  ÛÛÛÛ                 ÛÛÛÛ      ÛÛÛÛÜ
//             ÛÛÛÛÛÛÛÛ     ÛÛÛÛ  ÛÛÛÛ        ÛÛÛÛÛÛÛ  ÛÛÛÛÛÜ     ÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛÛÛ    ÛÛÛÛÜ  ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÜ  ÜÛÛÛÛÛÛ
//   °°XXXXX°   ÛÛÛÛ  ÛÛÛÜ  ÛÛÛÛÛ   ÛÛÛÛÛÛÜ    ßÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//   °°XXXXX °° ÛÛÛÛ   ÛÛÛÛÜ ÛÛÛÛ °°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°° ÛÛÛÛÛÛÛÛÛÛÛÛÛß
//   °  XXXXX °°ÛÛÛÛÛ°°°°ÛÛÛÛÛÛÛÛ°°XX ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ XXX°°ÛÛÛÛÛÛÛÛÛÛÛ     ÛÛÛ
//   °°  XXXXX ÜÛÛÛÛÛÛ X ÛÛÛÛÛÛÛÛÛ XXX ÛÛÛÛÛÛÛÛÛÛÛ  XXXXXX  ÛÛÛÛÛÛÛ°      ÛÛÛ
//    °°  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°°   °°°°
//     °°   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°X°°
//      °°°  XXXXXXXXXX  °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° XXXXXXXXXXXXXXXXX°°
//        °°°°°°°°°°°°°°°°                                  °°°°°°°°  XXXXXXX °°°
//                                                                  °°°°°° XX °°
//   ...2009 and still moving on.                                        °°°°°°°
//                                                                             °°
//   Screen Solution: 1280x1024                             Visit www.ngo.clan.su!
//===========================================================================
scope Geyser initializer Init
//===========================================================================
//=========================== SETUP START ===================================
//===========================================================================
    private keyword GData
    globals
        //Default: 'Geys'
        private constant integer AID = 'Geys' //The rawcode of the ability "Geyser"
        //Default: 'eDUM'
        private constant integer DUMMY = 'eDUM' //rawcode of the unit "Dummy Missile"
        //Default: 5
        private constant integer INTERVALS = 5 //this defines how often the geyser stacks on another water strike
        //Default: "Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl"
        private constant string MODEL = "Objects\\Spawnmodels\\Naga\\NagaDeath\\NagaDeath.mdl" //the model for the dummy units
        //Default: "Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl"
        private constant string IMPACT = "Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl" //the impact model
        //Default: 500.
        private constant real MAXHEIGHT = 500. //the maximal height for the geyser
        //Default: 1000.
        private constant real FLYHEIGHT = 1000. //the maximal height for the affected targets
        //Default: 200.
        private constant real RADIUS = 200. //the radius in which the units are affected and the geyser takes place
        //Default: 0.5
        private constant real MAXDURA = 0.5 //the maximal duration for the water geyser
        //Default: 1.08
        private constant real JUMPMAXDURA  = 1.08
        //Default: 0.2
        private constant real SMOOTHFACTOR = 0.2
    endglobals

    private constant function Damage takes integer level returns real
        //Default: 35. + level * 50
        return 35. + level * 50.
    endfunction
  
    private constant function StructuresDamage takes integer level returns real
        //Default: level * 90 + 55
        return level * 90. + 55.
    endfunction
//===========================================================================
//===============================  SETUP END ================================
//===========================================================================
  
    globals
        private unit TempCaster
        private constant real JUMPMAXINT = ((JUMPMAXDURA / 1.6615) / 0.03) // 1.6615 = Deviation
        private constant real UPLIMIT = JUMPMAXINT - JUMPMAXINT * SMOOTHFACTOR
        private constant integer MAXARRAY = INTERVALS * 7
    endglobals
  
    private function UnitAllowFly takes unit u returns nothing
        call UnitAddAbility(u, 'Arav')
        call UnitRemoveAbility(u, 'Arav')
    endfunction
  
    private function AffectedTargets takes nothing returns boolean
        return IsUnitType(GetFilterUnit(), UNIT_TYPE_GROUND) and GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0.405 and not IsUnit(GetFilterUnit(), TempCaster)
    endfunction

    private function Structures takes nothing returns boolean
        return IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE)
    endfunction
  
    private struct JumpData
        unit Target
        unit caster
        integer level
        real CurHeight
        real CurSpeed
        real SpeedReduce
        timer t
        static method Execute takes nothing returns nothing
            local JumpData data = JumpData(GetTimerData(GetExpiredTimer()))
            if data.CurHeight >= UPLIMIT then
                set data.CurSpeed = data.CurSpeed - data.SpeedReduce
            endif
            set data.CurHeight = data.CurHeight + data.CurSpeed
          
            call SetUnitFlyHeight(data.Target, data.CurHeight, 0.)
            if data.CurHeight <= 0. then
                call PauseUnit(data.Target, false)
              
                call UnitDamageTarget(data.caster, data.Target, Damage(data.level), true, true, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
                call DestroyEffect(AddSpecialEffect(IMPACT, GetUnitX(data.Target), GetUnitY(data.Target)))
                set data.CurHeight = 0.
              
                call SetUnitFlyHeight(data.Target, data.CurHeight, 0.)
                call PauseTimer(data.t)
                call data.destroy()
            endif
          
        endmethod
      
        static method create takes unit Target, unit caster returns JumpData
            local JumpData data = JumpData.allocate()
            call PauseUnit(Target, true)
            call UnitAllowFly(Target)
          
            set data.Target = Target
            set data.caster = caster
            set data.level = GetUnitAbilityLevel(caster, AID)
            set data.CurHeight = 0.
            set data.CurSpeed = FLYHEIGHT / (MAXDURA / 0.03)
            set data.SpeedReduce = data.CurSpeed / UPLIMIT
          
            call GroupAddUnit(GData.g, data.Target)
          
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, 0.03, true, function JumpData.Execute)
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            call GroupRemoveUnit(GData.g, this.Target)
            call ReleaseTimer(this.t)
            set this.Target = null
            set this.caster = null
        endmethod
    endstruct
//===========================================================================
    private struct GData
        unit Caster
        unit array Dummies [MAXARRAY]
        real TarX
        real TarY
        real CurZ
        real IncrZ
        integer Interval
        integer Ar
        integer level
        effect array Spx [MAXARRAY]
        timer t
        group GetUnits
        public static group g = CreateGroup()
        JumpData JDat
      
        static method Execute takes nothing returns nothing
            local GData data = GData(GetTimerData(GetExpiredTimer()))
            local real x
            local real y
            local integer i = data.Ar
          
            set data.CurZ = data.CurZ + data.IncrZ
            set data.Interval = data.Interval + 1
            if data.Interval == INTERVALS then
                call PauseTimer(data.t)
                call data.destroy()
            else
                loop
                    exitwhen i > data.Ar + 7
                    set x = data.TarX + RADIUS * Cos(i * 60 * bj_DEGTORAD)
                    set y = data.TarY + RADIUS * Sin(i * 60 * bj_DEGTORAD)
                    set data.Dummies [i] = CreateUnit(GetOwningPlayer(data.Caster), DUMMY, x, y, 0.)
                    set data.Spx [i] = AddSpecialEffectTarget(MODEL, data.Dummies [i], "chest")
                    call SetUnitFlyHeight(data.Dummies [i], data.CurZ, 0.)
                    set i = i + 1
                endloop
                set data.Dummies [data.Interval * 7] = CreateUnit(GetOwningPlayer(data.Caster), DUMMY, data.TarX, data.TarY, 0.)
                set data.Spx [data.Interval * 7] = AddSpecialEffectTarget(MODEL, data.Dummies [data.Interval * 7], "chest")
                call SetUnitFlyHeight(data.Dummies [data.Interval * 7], data.CurZ, 0.)
            endif
        endmethod
      
        static method create takes unit caster, real TarX, real TarY returns GData
            local GData data = GData.allocate()
            local real x
            local real y
            local integer i = 1
            local unit f
            set data.Caster = caster
            set data.TarX = TarX
            set data.TarY = TarY
            set data.Interval = 1
            set data.level = GetUnitAbilityLevel(data.Caster, AID)
            set data.IncrZ = MAXHEIGHT / 7.
          
            if data.GetUnits == null then
                set data.GetUnits = CreateGroup()
            endif
          
            if data.g == null then
                set data.g = CreateGroup()
            endif
          
            loop
                exitwhen i > 6
                set data.Ar = i
                set x = data.TarX + RADIUS * Cos(data.Ar * 60 * bj_DEGTORAD)
                set y = data.TarY + RADIUS * Sin(data.Ar * 60 * bj_DEGTORAD)
                set data.Dummies [data.Ar] = CreateUnit(GetOwningPlayer(caster), DUMMY, x, y, 0.)
                set data.Spx [data.Ar] = AddSpecialEffectTarget(MODEL, data.Dummies [i], "chest")
                set i = i + 1
            endloop
            set data.Dummies [data.Interval * 7] = CreateUnit(GetOwningPlayer(caster), DUMMY, data.TarX, data.TarY, 0.)
            set data.Spx [data.Interval * 7] = AddSpecialEffectTarget(MODEL, data.Dummies [data.Interval * 7], "chest")
          
            call GroupEnumUnitsInRange(data.GetUnits, data.TarX, data.TarY, RADIUS, Condition(function Structures))
            loop
                set f = FirstOfGroup(data.GetUnits)
                exitwhen f == null
                call UnitDamageTarget(data.Caster, f, StructuresDamage(data.level), true, true, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
                call GroupRemoveUnit(data.GetUnits, f)
            endloop
            set TempCaster = data.Caster
            call GroupEnumUnitsInRange(data.GetUnits, data.TarX, data.TarY, RADIUS, Condition(function AffectedTargets))
            loop
                set f = FirstOfGroup(data.GetUnits)
                exitwhen f == null
                if not IsUnitInGroup(f, data.g) then
                    set data.JDat = JumpData.create(f, data.Caster)
                    call GroupAddUnit(data.g, f)
                endif
                call GroupRemoveUnit(data.GetUnits, f)
            endloop
          
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, MAXDURA / 7., true, function GData.Execute)
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            local integer i = 1
            loop
                exitwhen i > MAXARRAY
                call UnitApplyTimedLife(this.Dummies [i], 'BTLK', 0.5)
                call DestroyEffect(this.Spx [i])
                set this.Spx [i] = null
                set this.Dummies [i] = null
                set i = i + 1
            endloop
            call ReleaseTimer(this.t)
            call GroupClear(this.GetUnits)
            call DestroyGroup(this.GetUnits)
            set this.CurZ = 0.
            set this.GetUnits = null
        endmethod
    endstruct
//===========================================================================
    private function Conditions takes nothing returns boolean
        return GetSpellAbilityId() == AID
    endfunction
//===========================================================================
    private function Actions takes nothing returns nothing
        local location Loc = GetSpellTargetLoc()
        call GData.create(GetSpellAbilityUnit(), GetLocationX(Loc), GetLocationY(Loc))
        call RemoveLocation(Loc)
        set Loc = null
    endfunction
//===========================================================================
    private function Init takes nothing returns nothing
        local trigger tri = CreateTrigger()
        call TriggerRegisterAnyUnitEventBJ(tri, EVENT_PLAYER_UNIT_SPELL_EFFECT)
        call TriggerAddCondition(tri, Condition(function Conditions))
        call TriggerAddAction(tri, function Actions)
      
        // this will remove the first cast lag
        call RemoveUnit(CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE),  DUMMY, 0.00, 0.00, 0.00))
      
        // prealoading strings to avoid leaks
        call Preload(MODEL)
        call Preload(IMPACT)
    endfunction
endscope

---------------------

Impulse:

Causes an Impulse which knockbacks and damages nearby enemied units per second.

JASS: 
//               °                                        Mapmaking since 2006...
//            °
//          °
//         °
//       °°°ÛÜ
//      °°X°ÛÛÛ                          ÛÛÛÛÛÛÛÛ     ÿÜÛÛÛÛÛÛÛÛÜ
//     °°XX° ÛÛÛ        ßÛÛÛÛÛ        ÛÛÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX ° ÛÛÛÛ         ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX °  ÛÛÛÛÛ        ÛÛÛÛ    ÛÛÛÛÛß    ßÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//    °°XXX°° ÛÛÛÛÛÛÜ       ÛÛÛÜ  ÛÛÛÛÛ        ßÛÛÛÛÛ ßÛÛÛÛ    ÛÛÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛ      ÛÛÛÛ  ÛÛÛÛ                 ÛÛÛÛ      ÛÛÛÛÜ
//             ÛÛÛÛÛÛÛÛ     ÛÛÛÛ  ÛÛÛÛ        ÛÛÛÛÛÛÛ  ÛÛÛÛÛÜ     ÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛÛÛ    ÛÛÛÛÜ  ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÜ  ÜÛÛÛÛÛÛ
//   °°XXXXX°   ÛÛÛÛ  ÛÛÛÜ  ÛÛÛÛÛ   ÛÛÛÛÛÛÜ    ßÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//   °°XXXXX °° ÛÛÛÛ   ÛÛÛÛÜ ÛÛÛÛ °°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°° ÛÛÛÛÛÛÛÛÛÛÛÛÛß
//   °  XXXXX °°ÛÛÛÛÛ°°°°ÛÛÛÛÛÛÛÛ°°XX ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ XXX°°ÛÛÛÛÛÛÛÛÛÛÛ     ÛÛÛ
//   °°  XXXXX ÜÛÛÛÛÛÛ X ÛÛÛÛÛÛÛÛÛ XXX ÛÛÛÛÛÛÛÛÛÛÛ  XXXXXX  ÛÛÛÛÛÛÛ°      ÛÛÛ
//    °°  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°°   °°°°
//     °°   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°X°°
//      °°°  XXXXXXXXXX  °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° XXXXXXXXXXXXXXXXX°°
//        °°°°°°°°°°°°°°°°                                  °°°°°°°°  XXXXXXX °°°
//                                                                  °°°°°° XX °°
//   ...2009 and still moving on.                                        °°°°°°°
//                                                                             °°
//   Screen Solution: 1280x1024                             Visit www.ngo.clan.su!
//================================================================================
scope Impulse initializer Init
private keyword KBData
//===========================================================================
//=========================== SETUP START ===================================
//===========================================================================
    globals
        //Default: 'ImpA'
        private constant integer AID = 'ImpA' //The rawcode for the ability "Impulse (Passive)"
        //Default: 12
        private constant integer POLY = 12 //The polycount for the lightning ring. This is the amount of "attach points" the ring has.(The more polys, the rounder the circle will look. Better stay between 10 and 15 due to bugging danger.)
        //Default: "CLSB"
        private constant string LGTYPE = "CLSB" //The lightning type for the ring.
        //Default: 4.
        private constant real SPINSPEED = 4. //The impulse consists out of 2 single rings which spin around, each in another direction. This value defines how fast they spin.
        //Default: 75.
        private constant real DETECT = 75. //The detection range for the ring picking the enemied units. Detection takes place at the "attach points" from the impulse.
        //Default: "Abilities\\Weapons\\Bolt\\BoltImpact.mdl"
        private constant string HITSPX = "Abilities\\Weapons\\Bolt\\BoltImpact.mdl" //The lightning effect bein spawned when knockbacking enemied units.
        //Default:"Abilities\\Weapons\\ChimaeraLightningMissile\\ChimaeraLightningMissile.mdl"
        private constant string DISAPPEAR = "Abilities\\Weapons\\ChimaeraLightningMissile\\ChimaeraLightningMissile.mdl" //If the rings disappear, this effect will spawn.
        //Default: 0.5
        private constant real FADEDURA = 0.5 //The fading-out duration. This won't support picking enemies and damaging them, it is for eyecandy.
    endglobals
  
    private constant function GetMaxRange takes integer level returns real
        //Default: 125. + level * 75.
        return 125. + level * 75.
    endfunction
  
    private constant function GetSpeed takes integer level returns real
        //Default: level * 2. + 15.
        return level * 2. + 15.
    endfunction
  
    private constant function GetKBDamage takes integer level returns real
        //Default: level * 2.
        return level * 2.
    endfunction
//===========================================================================
//===========================  SETUP END  ===================================
//===========================================================================
    globals
        private unit TempCaster = null
        private item GetWalkable = null
        private constant integer ItemCheckID = 'sehr'
        private constant real MAXINT = (FADEDURA / 0.03)
    endglobals

    private function IsPointWalkable takes real x,real y returns boolean
        call SetItemPosition(GetWalkable,x,y)
        call SetItemVisible(GetWalkable,false)
        return GetItemX(GetWalkable) == x and GetItemY(GetWalkable) == y
    endfunction
  
    private function Pick takes nothing returns boolean
        return IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(TempCaster)) and GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0.045 and IsUnitType(GetFilterUnit(), UNIT_TYPE_GROUND)
    endfunction
  
    private function A2PXY takes real x,real y,real xt,real yt returns real
        return ModuloReal(bj_RADTODEG*Atan2(yt-y,xt-x),360.)
    endfunction
  
    private struct KBData
      
        unit Caster
        unit Target
        real LockX
        real LockY
        real Speed
        real Dist
        real MaxDist
        real Damage
        real CosA
        real SinA
      
        public static group g = CreateGroup()
        timer t
        static method Execute takes nothing returns nothing
            local KBData data = KBData(GetTimerData(GetExpiredTimer()))
            local real x
            local real y
          
            set data.Dist = data.Dist + data.Speed
            set x = data.LockX + data.Dist * data.CosA
            set y = data.LockY + data.Dist * data.SinA
          
            if data.Dist < data.MaxDist and IsPointWalkable(x, y) then
                call SetUnitPosition(data.Target, x, y)
                call UnitDamageTarget(data.Caster, data.Target, data.Damage, true, true, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
                if GetRandomInt(1, 3) == 1 then
                    call DestroyEffect(AddSpecialEffect(HITSPX , x, y))
                endif
            else
                call PauseTimer(data.t)
                call data.destroy()
            endif
        endmethod
      
        static method create takes unit Caster, unit Target, real LockX, real LockY, integer level, real RemainDist, real Angle, real Speed returns KBData
            local KBData data = KBData.allocate()
          
            set data.Caster = Caster
            set data.Target = Target
            set data.Speed = Speed
            set data.LockX = LockX
            set data.LockY = LockY
            set data.Damage = GetKBDamage(level)
            set data.Dist = 0.
            set data.MaxDist = RemainDist
            set data.CosA = Cos(Angle * bj_DEGTORAD)
            set data.SinA = Sin(Angle * bj_DEGTORAD)
          
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, 0.03, true, function KBData.Execute)
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            call ReleaseTimer(this.t)
            call GroupRemoveUnit(KBData.g, this.Target)
            set this.Target = null
        endmethod
    endstruct

    private struct ImpulseData
        unit Caster
        real LockX
        real LockY
        real Dist
        real MaxDist
        real Speed
        real SpeedReduce
        real array SaveAngOne [POLY]
        real array SaveAngTwo [POLY]
        lightning array RingOne [POLY]
        lightning array RingTwo [POLY]
        group g
        timer t
      
        static method Execute takes nothing returns nothing
            local ImpulseData data = ImpulseData(GetTimerData(GetExpiredTimer()))
            local real x1
            local real y1
            local real x2
            local real y2
            local real AngHelp = 360./POLY
            local integer i = 0
            local unit f = null
          
            if (data.Dist < data.MaxDist) then
                set data.Dist = data.Dist + data.Speed
                set TempCaster = data.Caster
              
                 loop //Ring One
                    exitwhen i > POLY
                    set data.SaveAngOne [i] = data.SaveAngOne [i] + SPINSPEED
                    set x1 = data.LockX + data.Dist * Cos(data.SaveAngOne [i] * bj_DEGTORAD)
                    set y1 = data.LockY + data.Dist * Sin(data.SaveAngOne [i] * bj_DEGTORAD)
                    set x2 = data.LockX + data.Dist * Cos((data.SaveAngOne [i] + AngHelp) * bj_DEGTORAD)
                    set y2 = data.LockY + data.Dist * Sin((data.SaveAngOne [i] + AngHelp) * bj_DEGTORAD)
                  
                    call MoveLightning(data.RingOne [i], false, x1, y1, x2, y2)
                  
                    set i = i + 1
                endloop
                set i = 1
                loop //Ring Two
                    exitwhen i > POLY
                    set data.SaveAngTwo [i] = data.SaveAngTwo [i] - SPINSPEED
                    set x1 = data.LockX + data.Dist * Cos(data.SaveAngTwo [i] * bj_DEGTORAD)
                    set y1 = data.LockY + data.Dist * Sin(data.SaveAngTwo [i] * bj_DEGTORAD)
                    set x2 = data.LockX + data.Dist * Cos((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                    set y2 = data.LockY + data.Dist * Sin((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                    call MoveLightning(data.RingTwo [i], false, x1, y1, x2, y2)
                    //Since the lightnings are so close together, picking units in one ring is enough
                    call GroupEnumUnitsInRange(data.g, x1, y1, (data.Dist * 3) / (POLY / 2), Condition(function Pick))
                    loop
                        set f = FirstOfGroup(data.g)
                        exitwhen f == null
                        if not IsUnitInGroup(f, KBData.g) then
                            if not (data.MaxDist - data.Dist <= 0.) then
                                call GroupAddUnit(KBData.g, f)
                                call KBData.create(data.Caster, f, x1, y1, GetUnitAbilityLevel(data.Caster, AID), (data.MaxDist - data.Dist), A2PXY(x1, y1, GetUnitX(f), GetUnitY(f)), data.Speed)
                            endif
                        endif
                        call GroupRemoveUnit(data.g, f)
                    endloop
          
                    set i = i + 1
                endloop
            else
                if data.Speed <= 0. then
                    call PauseTimer(data.t)
                    call data.destroy()
                  
                    loop
                        exitwhen i > 32
                        set x1 = data.LockX + data.Dist * Cos((11.25 * i) * bj_DEGTORAD)
                        set y1 = data.LockY + data.Dist * Sin((11.25 * i) * bj_DEGTORAD)
                        call DestroyEffect(AddSpecialEffect(DISAPPEAR, x1, y1))
                        set i = i + 1
                    endloop
                else
                    set data.Speed = data.Speed - data.SpeedReduce
                    set data.Dist = data.Dist + data.Speed
              
                    loop //Ring One
                        exitwhen i > POLY
                        set data.SaveAngOne [i] = data.SaveAngOne [i] + SPINSPEED
                        set x1 = data.LockX + data.Dist * Cos(data.SaveAngOne [i] * bj_DEGTORAD)
                        set y1 = data.LockY + data.Dist * Sin(data.SaveAngOne [i] * bj_DEGTORAD)
                        set x2 = data.LockX + data.Dist * Cos((data.SaveAngOne [i] + AngHelp) * bj_DEGTORAD)
                        set y2 = data.LockY + data.Dist * Sin((data.SaveAngOne [i] + AngHelp) * bj_DEGTORAD)
                        call MoveLightning(data.RingOne [i], false, x1, y1, x2, y2)
                        set i = i + 1
                    endloop
                    set i = 1
                    loop //Ring Two
                        exitwhen i > POLY
                        set data.SaveAngTwo [i] = data.SaveAngTwo [i] - SPINSPEED
                        set x1 = data.LockX + data.Dist * Cos(data.SaveAngTwo [i] * bj_DEGTORAD)
                        set y1 = data.LockY + data.Dist * Sin(data.SaveAngTwo [i] * bj_DEGTORAD)
                        set x2 = data.LockX + data.Dist * Cos((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                        set y2 = data.LockY + data.Dist * Sin((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                        call MoveLightning(data.RingTwo [i], false, x1, y1, x2, y2)
                        set i = i + 1
                    endloop
                endif
            endif
        endmethod
      
        static method create takes unit Caster returns ImpulseData
            local ImpulseData data = ImpulseData.allocate()
            local integer i = 1
            local real x1
            local real y1
            local real x2
            local real y2
            local real AngHelp = 360./POLY
          
            set data.Caster = Caster
            set data.LockX = GetUnitX(Caster)
            set data.LockY = GetUnitY(Caster)
            set data.Dist = 10.
            set data.g = CreateGroup()
            set data.MaxDist = GetMaxRange(GetUnitAbilityLevel(Caster, AID))
            set data.Speed = GetSpeed(GetUnitAbilityLevel(Caster, AID))
            set data.SpeedReduce = data.Speed / MAXINT
          
            loop
                exitwhen i > POLY
                set data.SaveAngOne [i] = AngHelp * i
                set data.SaveAngTwo [i] = data.SaveAngOne [i]

                set x1 = GetUnitX(Caster) + 10. * Cos(data.SaveAngOne [i] * bj_DEGTORAD)
                set y1 = GetUnitY(Caster) + 10. * Sin(data.SaveAngOne [i] * bj_DEGTORAD)
                set x2 = GetUnitX(Caster) + 10. * Cos((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                set y2 = GetUnitY(Caster) + 10. * Sin((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                set data.RingOne [i] = AddLightning(LGTYPE, false, x1, y1, x2, y2)
                set data.RingTwo [i] = AddLightning(LGTYPE, false, x1, y1, x2, y2)
                set i = i + 1
            endloop
          
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, 0.03, true, function ImpulseData.Execute)
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            local integer i = 1
            call ReleaseTimer(this.t)
            call DestroyGroup(this.g)
            loop
                exitwhen i > POLY
                call DestroyLightning(this.RingOne [i])
                call DestroyLightning(this.RingTwo [i])
                set this.RingOne [i] = null
                set this.RingTwo [i] = null
                set i = i + 1
            endloop
            set this.g = null
        endmethod
    endstruct
//===========================================================================
    private function Actions takes nothing returns nothing
        call ImpulseData.create(GetSpellAbilityUnit())
    endfunction
//===========================================================================
    private function Conditions takes nothing returns boolean
        return AID == GetSpellAbilityId()
    endfunction
//===========================================================================
    private function Init takes nothing returns nothing
        local trigger tri = CreateTrigger()
      
        call TriggerRegisterAnyUnitEventBJ(tri, EVENT_PLAYER_UNIT_SPELL_EFFECT)
        call TriggerAddAction(tri, function Actions)
        call TriggerAddCondition(tri, Condition(function Conditions))

        //Preloading to avoid leaks
        call Preload(LGTYPE)
        call Preload(HITSPX)
      
        set GetWalkable = CreateItem(ItemCheckID, 0., 0.)
        call SetItemVisible(GetWalkable,false)
    endfunction
endscope

Impulse (Passive):

Grants a chance to cause an Impulse on attack which knockbacks and damages nearby enemies.
This only will be caused if at least a certain amount of damage was dealt to the hero.

JASS: 
//               °                                        Mapmaking since 2006...
//            °
//          °
//         °
//       °°°ÛÜ
//      °°X°ÛÛÛ                          ÛÛÛÛÛÛÛÛ     ÿÜÛÛÛÛÛÛÛÛÜ
//     °°XX° ÛÛÛ        ßÛÛÛÛÛ        ÛÛÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX ° ÛÛÛÛ         ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX °  ÛÛÛÛÛ        ÛÛÛÛ    ÛÛÛÛÛß    ßÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//    °°XXX°° ÛÛÛÛÛÛÜ       ÛÛÛÜ  ÛÛÛÛÛ        ßÛÛÛÛÛ ßÛÛÛÛ    ÛÛÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛ      ÛÛÛÛ  ÛÛÛÛ                 ÛÛÛÛ      ÛÛÛÛÜ
//             ÛÛÛÛÛÛÛÛ     ÛÛÛÛ  ÛÛÛÛ        ÛÛÛÛÛÛÛ  ÛÛÛÛÛÜ     ÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛÛÛ    ÛÛÛÛÜ  ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÜ  ÜÛÛÛÛÛÛ
//   °°XXXXX°   ÛÛÛÛ  ÛÛÛÜ  ÛÛÛÛÛ   ÛÛÛÛÛÛÜ    ßÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//   °°XXXXX °° ÛÛÛÛ   ÛÛÛÛÜ ÛÛÛÛ °°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°° ÛÛÛÛÛÛÛÛÛÛÛÛÛß
//   °  XXXXX °°ÛÛÛÛÛ°°°°ÛÛÛÛÛÛÛÛ°°XX ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ XXX°°ÛÛÛÛÛÛÛÛÛÛÛ     ÛÛÛ
//   °°  XXXXX ÜÛÛÛÛÛÛ X ÛÛÛÛÛÛÛÛÛ XXX ÛÛÛÛÛÛÛÛÛÛÛ  XXXXXX  ÛÛÛÛÛÛÛ°      ÛÛÛ
//    °°  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°°   °°°°
//     °°   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°X°°
//      °°°  XXXXXXXXXX  °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° XXXXXXXXXXXXXXXXX°°
//        °°°°°°°°°°°°°°°°                                  °°°°°°°°  XXXXXXX °°°
//                                                                  °°°°°° XX °°
//   ...2009 and still moving on.                                        °°°°°°°
//                                                                             °°
//   Screen Solution: 1280x1024                             Visit www.ngo.clan.su!
//================================================================================
scope ImpulsePassive initializer Init
private keyword KBData
//===========================================================================
//=========================== SETUP START ===================================
//===========================================================================
    globals
        //Default: 'ImpP'
        private constant integer AID = 'ImpP' //The rawcode for the ability "Impulse (Passive)"
        //Default: 12
        private constant integer POLY = 12 //The polycount for the lightning ring. This is the amount of "attach points" the ring has.(The more polys, the rounder the circle will look. Better stay between 10 and 15 due to bugging danger.)
        //Default: "CLSB"
        private constant string LGTYPE = "CLSB" //The lightning type for the ring.
        //Default: 4.
        private constant real SPINSPEED = 4. //The impulse consists out of 2 single rings which spin around, each in another direction. This value defines how fast they spin.
        //Default: 75.
        private constant real DETECT = 75. //The detection range for the ring picking the enemied units. Detection takes place at the "attach points" from the impulse.
        //Default: "Abilities\\Weapons\\Bolt\\BoltImpact.mdl"
        private constant string HITSPX = "Abilities\\Weapons\\Bolt\\BoltImpact.mdl" //The lightning effect bein spawned when knockbacking enemied units.
        //Default:"Abilities\\Weapons\\ChimaeraLightningMissile\\ChimaeraLightningMissile.mdl"
        private constant string DISAPPEAR = "Abilities\\Weapons\\ChimaeraLightningMissile\\ChimaeraLightningMissile.mdl" //If the rings disappear, this effect will spawn.
        //Default: 0.5
        private constant real FADEDURA = 0.5 //The fading-out duration. This won't support picking enemies and damaging them, it is for eyecandy.
    endglobals
  
    private constant function GetChance takes integer level returns integer
        //Default: level * 3
        return level * 3
    endfunction
  
    private constant function GetMinDamage takes integer level returns real
        //Default: 8. + level * 8.
        return 8. + level * 8.
    endfunction
  
    private constant function GetMaxRange takes integer level returns real
        //Default: 125. + level * 75.
        return 125. + level * 75.
    endfunction
  
    private constant function GetSpeed takes integer level returns real
        //Default:  level * 2. + 15.
        return  level * 2. + 15.
    endfunction
  
    private constant function GetKBDamage takes integer level returns real
        //Default: level * 2.
        return level * 2.
    endfunction
//===========================================================================
//===========================  SETUP END  ===================================
//===========================================================================
    globals
        private unit TempCaster = null
        private item GetWalkable = null
        private constant integer ItemCheckID = 'sehr'
        private constant real MAXINT = (FADEDURA / 0.03)
    endglobals

    private function IsPointWalkable takes real x,real y returns boolean
        call SetItemPosition(GetWalkable,x,y)
        call SetItemVisible(GetWalkable,false)
        return GetItemX(GetWalkable) == x and GetItemY(GetWalkable) == y
    endfunction
  
    private function Pick takes nothing returns boolean
        return IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(TempCaster)) and GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0.045 and IsUnitType(GetFilterUnit(), UNIT_TYPE_GROUND)
    endfunction
  
    private function A2PXY takes real x,real y,real xt,real yt returns real
        return ModuloReal(bj_RADTODEG*Atan2(yt-y,xt-x),360.)
    endfunction
  
    private struct KBData
      
        unit Caster
        unit Target
        real LockX
        real LockY
        real Speed
        real Dist
        real MaxDist
        real Damage
        real CosA
        real SinA
      
        public static group g = CreateGroup()
        timer t
        static method Execute takes nothing returns nothing
            local KBData data = KBData(GetTimerData(GetExpiredTimer()))
            local real x
            local real y
          
            set data.Dist = data.Dist + data.Speed
            set x = data.LockX + data.Dist * data.CosA
            set y = data.LockY + data.Dist * data.SinA
          
            if data.Dist < data.MaxDist and IsPointWalkable(x, y) then
                call SetUnitPosition(data.Target, x, y)
                call UnitDamageTarget(data.Caster, data.Target, data.Damage, true, true, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
                if GetRandomInt(1, 3) == 1 then
                    call DestroyEffect(AddSpecialEffect(HITSPX , x, y))
                endif
            else
              
                call PauseTimer(data.t)
                call data.destroy()
            endif
        endmethod
      
        static method create takes unit Caster, unit Target, real LockX, real LockY, integer level, real RemainDist, real Angle, real Speed returns KBData
            local KBData data = KBData.allocate()
          
            set data.Caster = Caster
            set data.Target = Target
            set data.Speed = Speed
            set data.LockX = LockX
            set data.LockY = LockY
            set data.Damage = GetKBDamage(level)
            set data.Dist = 0.
            set data.MaxDist = RemainDist
            set data.CosA = Cos(Angle * bj_DEGTORAD)
            set data.SinA = Sin(Angle * bj_DEGTORAD)
          
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, 0.03, true, function KBData.Execute)
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            call ReleaseTimer(this.t)
            call GroupRemoveUnit(KBData.g, this.Target)
            set this.Target = null
        endmethod
    endstruct

    private struct ImpulseData
        unit Caster
        real LockX
        real LockY
        real Dist
        real MaxDist
        real Speed
        real SpeedReduce
      
        real array SaveAngOne [POLY]
        real array SaveAngTwo [POLY]
        lightning array RingOne [POLY]
        lightning array RingTwo [POLY]
        group g
        timer t
      
        static method Execute takes nothing returns nothing
            local ImpulseData data = ImpulseData(GetTimerData(GetExpiredTimer()))
            local real x1
            local real y1
            local real x2
            local real y2
            local real AngHelp = 360./POLY
            local integer i = 0
            local unit f = null
          
            if (data.Dist < data.MaxDist) then
                set data.Dist = data.Dist + data.Speed
                set TempCaster = data.Caster
              
                 loop //Ring One
                    exitwhen i > POLY
                    set data.SaveAngOne [i] = data.SaveAngOne [i] + SPINSPEED
                    set x1 = data.LockX + data.Dist * Cos(data.SaveAngOne [i] * bj_DEGTORAD)
                    set y1 = data.LockY + data.Dist * Sin(data.SaveAngOne [i] * bj_DEGTORAD)
                    set x2 = data.LockX + data.Dist * Cos((data.SaveAngOne [i] + AngHelp) * bj_DEGTORAD)
                    set y2 = data.LockY + data.Dist * Sin((data.SaveAngOne [i] + AngHelp) * bj_DEGTORAD)
                  
                    call MoveLightning(data.RingOne [i], false, x1, y1, x2, y2)
                  
                    set i = i + 1
                endloop
                set i = 1
                loop //Ring Two
                    exitwhen i > POLY
                    set data.SaveAngTwo [i] = data.SaveAngTwo [i] - SPINSPEED
                    set x1 = data.LockX + data.Dist * Cos(data.SaveAngTwo [i] * bj_DEGTORAD)
                    set y1 = data.LockY + data.Dist * Sin(data.SaveAngTwo [i] * bj_DEGTORAD)
                    set x2 = data.LockX + data.Dist * Cos((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                    set y2 = data.LockY + data.Dist * Sin((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                    call MoveLightning(data.RingTwo [i], false, x1, y1, x2, y2)
                    //Since the lightnings are so close together, picking units in one ring is enough
                  
                    call GroupEnumUnitsInRange(data.g, x1, y1, (data.Dist * 3) / (POLY / 2), Condition(function Pick))
                  
                    loop
                        set f = FirstOfGroup(data.g)
                        exitwhen f == null
                        if not IsUnitInGroup(f, KBData.g) then
                            if not (data.MaxDist - data.Dist <= 0.) then
                                call GroupAddUnit(KBData.g, f)
                                call KBData.create(data.Caster, f, x1, y1, GetUnitAbilityLevel(data.Caster, AID), (data.MaxDist - data.Dist), A2PXY(x1, y1, GetUnitX(f), GetUnitY(f)), data.Speed)
                            endif
                        endif
                        call GroupRemoveUnit(data.g, f)
                    endloop
          
                    set i = i + 1
                endloop
            else
                if data.Speed <= 0. then
                    call PauseTimer(data.t)
                    call data.destroy()
                  
                    loop
                        exitwhen i > 32
                        set x1 = data.LockX + data.Dist * Cos((11.25 * i) * bj_DEGTORAD)
                        set y1 = data.LockY + data.Dist * Sin((11.25 * i) * bj_DEGTORAD)
                        call DestroyEffect(AddSpecialEffect(DISAPPEAR, x1, y1))
                        set i = i + 1
                    endloop
                else
                    set data.Speed = data.Speed - data.SpeedReduce
                    set data.Dist = data.Dist + data.Speed
              
                    loop //Ring One
                        exitwhen i > POLY
                        set data.SaveAngOne [i] = data.SaveAngOne [i] + SPINSPEED
                        set x1 = data.LockX + data.Dist * Cos(data.SaveAngOne [i] * bj_DEGTORAD)
                        set y1 = data.LockY + data.Dist * Sin(data.SaveAngOne [i] * bj_DEGTORAD)
                        set x2 = data.LockX + data.Dist * Cos((data.SaveAngOne [i] + AngHelp) * bj_DEGTORAD)
                        set y2 = data.LockY + data.Dist * Sin((data.SaveAngOne [i] + AngHelp) * bj_DEGTORAD)
                        call MoveLightning(data.RingOne [i], false, x1, y1, x2, y2)
                        set i = i + 1
                    endloop
                    set i = 1
                    loop //Ring Two
                        exitwhen i > POLY
                        set data.SaveAngTwo [i] = data.SaveAngTwo [i] - SPINSPEED
                        set x1 = data.LockX + data.Dist * Cos(data.SaveAngTwo [i] * bj_DEGTORAD)
                        set y1 = data.LockY + data.Dist * Sin(data.SaveAngTwo [i] * bj_DEGTORAD)
                        set x2 = data.LockX + data.Dist * Cos((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                        set y2 = data.LockY + data.Dist * Sin((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                        call MoveLightning(data.RingTwo [i], false, x1, y1, x2, y2)
                        set i = i + 1
                    endloop
                endif
            endif
        endmethod
      
        static method create takes unit Caster returns ImpulseData
            local ImpulseData data = ImpulseData.allocate()
            local integer i = 1
            local real x1
            local real y1
            local real x2
            local real y2
            local real AngHelp = 360./POLY
          
            set data.Caster = Caster
            set data.LockX = GetUnitX(Caster)
            set data.LockY = GetUnitY(Caster)
            set data.Dist = 10.
            set data.g = CreateGroup()
            set data.MaxDist = GetMaxRange(GetUnitAbilityLevel(Caster, AID))
            set data.Speed = GetSpeed(GetUnitAbilityLevel(Caster, AID))
            set data.SpeedReduce = data.Speed / MAXINT
            loop
                exitwhen i > POLY
                set data.SaveAngOne [i] = AngHelp * i
                set data.SaveAngTwo [i] = data.SaveAngOne [i]

                set x1 = GetUnitX(Caster) + 10. * Cos(data.SaveAngOne [i] * bj_DEGTORAD)
                set y1 = GetUnitY(Caster) + 10. * Sin(data.SaveAngOne [i] * bj_DEGTORAD)
                set x2 = GetUnitX(Caster) + 10. * Cos((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                set y2 = GetUnitY(Caster) + 10. * Sin((data.SaveAngTwo [i] + AngHelp) * bj_DEGTORAD)
                set data.RingOne [i] = AddLightning(LGTYPE, false, x1, y1, x2, y2)
                set data.RingTwo [i] = AddLightning(LGTYPE, false, x1, y1, x2, y2)
                set i = i + 1
            endloop
          
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, 0.03, true, function ImpulseData.Execute)
          
            return data
        endmethod
      
        static method DoEffect takes nothing returns boolean
            local unit Target = GetTriggerUnit()
            local real Damage = GetEventDamage()
            local real Life = GetWidgetLife(Target)
            local integer Level = GetUnitAbilityLevel(Target, AID)
            local integer Random = GetRandomInt(1, 100)
          
            if Level > 0 then
                if not (Damage < GetMinDamage(Level)) and not (Life < 0.045) and Random <= GetChance(Level) then
                    call ImpulseData.create(Target)
                endif
            endif
          
            set Target = null
            return false
        endmethod
      
        method onDestroy takes nothing returns nothing
            local integer i = 1
            call ReleaseTimer(this.t)
            call DestroyGroup(this.g)
            loop
                exitwhen i > POLY
                call DestroyLightning(this.RingOne [i])
                call DestroyLightning(this.RingTwo [i])
                set this.RingOne [i] = null
                set this.RingTwo [i] = null
                set i = i + 1
            endloop
            set this.g = null
        endmethod
    endstruct
//===========================================================================
    private function Conditions takes nothing returns boolean
        return AID == GetSpellAbilityId()
    endfunction
//===========================================================================
    private function Init takes nothing returns nothing
        set GetWalkable = CreateItem(ItemCheckID, 0., 0.)
        call SetItemVisible(GetWalkable,false)
        call AddDamageCondition(Condition(function ImpulseData.DoEffect))
      
        //Preloading to avoid leaks
        call Preload(LGTYPE)
        call Preload(HITSPX)
    endfunction
endscope

---------------------

Zeroblaster:

Lets the hero blow an arctic wind towards the target direction which reduces enemied units' move and attackspeed. This wind is filled with icy crystals which explode when reaching the ground. Nearby enemies take damage and have a chance to be frozen for a few seconds.

JASS: 
//               °                                        Mapmaking since 2006...
//            °
//          °
//         °
//       °°°ÛÜ
//      °°X°ÛÛÛ                          ÛÛÛÛÛÛÛÛ     ÿÜÛÛÛÛÛÛÛÛÜ
//     °°XX° ÛÛÛ        ßÛÛÛÛÛ        ÛÛÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX ° ÛÛÛÛ         ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX °  ÛÛÛÛÛ        ÛÛÛÛ    ÛÛÛÛÛß    ßÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//    °°XXX°° ÛÛÛÛÛÛÜ       ÛÛÛÜ  ÛÛÛÛÛ        ßÛÛÛÛÛ ßÛÛÛÛ    ÛÛÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛ      ÛÛÛÛ  ÛÛÛÛ                 ÛÛÛÛ      ÛÛÛÛÜ
//             ÛÛÛÛÛÛÛÛ     ÛÛÛÛ  ÛÛÛÛ        ÛÛÛÛÛÛÛ  ÛÛÛÛÛÜ     ÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛÛÛ    ÛÛÛÛÜ  ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÜ  ÜÛÛÛÛÛÛ
//   °°XXXXX°   ÛÛÛÛ  ÛÛÛÜ  ÛÛÛÛÛ   ÛÛÛÛÛÛÜ    ßÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//   °°XXXXX °° ÛÛÛÛ   ÛÛÛÛÜ ÛÛÛÛ °°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°° ÛÛÛÛÛÛÛÛÛÛÛÛÛß
//   °  XXXXX °°ÛÛÛÛÛ°°°°ÛÛÛÛÛÛÛÛ°°XX ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ XXX°°ÛÛÛÛÛÛÛÛÛÛÛ     ÛÛÛ
//   °°  XXXXX ÜÛÛÛÛÛÛ X ÛÛÛÛÛÛÛÛÛ XXX ÛÛÛÛÛÛÛÛÛÛÛ  XXXXXX  ÛÛÛÛÛÛÛ°      ÛÛÛ
//    °°  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°°   °°°°
//     °°   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°X°°
//      °°°  XXXXXXXXXX  °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° XXXXXXXXXXXXXXXXX°°
//        °°°°°°°°°°°°°°°°                                  °°°°°°°°  XXXXXXX °°°
//                                                                  °°°°°° XX °°
//   ...2010 and still moving on.                                        °°°°°°°
//                                                                             °°
//   Screen Solution: 1280x1024                             Visit www.ngo.clan.su!
//================================================================================
scope Zeroblaster initializer Init
//===========================================================================
//===========================================================================
//===========================================================================
    globals
        //Default: 3
        private constant integer LEVELS = 3 //The amount of levels the spell can get
        //Default: 'ZeBl'
        private constant integer AID = 'ZeBl' //The rawcode for the ability "Zeroblaster"
        //Default: 'eDUM'
        private constant integer DUMMY = 'eDUM' //The rawcode for the unit "Dummy Missile"
        //Default: 'ZBsl'
        private constant integer SLOW = 'ZBsl' //The rawcode for the ability "Zeroblaster (Slow)"
        //Default: 'ZBst'
        private constant integer FREEZE = 'ZBst' //The rawcode for the ability "Zeroblaster (Freeze)"
        //Default: "war3mapImported\\FrozenOrb.MDX"
        private constant string MISSILE = "war3mapImported\\FrozenOrb.MDX" //The model path for the missiles being fired
        //Default: "war3mapImported\\cone of cold.mdx"
        private constant string BREATH = "war3mapImported\\cone of cold.mdx" //the model path for the "ice breath" effect
        //Default: 0.8
        private constant real DURATION = 0.8 //The duration of the spell
        //Default: 1.5
        private constant real BREATH_SIZE = 1.5 //The breath effect's size
        //Default: 0.8
        private constant real MISSILE_SIZE = 0.8 //The missile's size
        //Default: 200.
        private constant real MAX_MISSILE_HEIGHT = 100. //the maximum height the missiles can take
        //Default: (1./40.)
        private constant real TICK = (1./40.) //The timer interval
        //Default: 75.
        private constant real MISSILE_DETECT_RANGE = 125. //the detection range to damage/freeze enemies when the missiles reach the ground
        //Default: 225.
        private constant real BREATH_DETECT_RANGE = 225. //the detection range for the breath's slowing effect
        //Default: 25.
        private constant real SPREAD_INC = 35. //this spreads the angle the missiles fly towards to the left and to the right so that the missiles don't just fly upon the same line
        //Default: ATTACK_TYPE_MAGIC
        private constant attacktype ATK_TYPE = ATTACK_TYPE_MAGIC //the attacktype for the damage enemies receive
        //Default: DAMAGE_TYPE_COLD
        private constant damagetype DMG_TYPE = DAMAGE_TYPE_COLD //the damagetype for the damage enemies receive
        //Default: WEAPON_TYPE_WHOKNOWS
        private constant weapontype WEP_TYPE = WEAPON_TYPE_WHOKNOWS //the weapontype for the damage enemies receive
      
        //=========================================
        private real array Damage [LEVELS]
        private real array MaxDist [LEVELS]
        private integer array Missiles [LEVELS]
        private integer array Chance [LEVELS]
    endglobals

    private function Settings takes nothing returns nothing
        //Damage Settings
        set Damage [1] = 10
        set Damage [2] = 15
        set Damage [3] = 20
        //Maximal Distance Settings
        set MaxDist [1] = 400
        set MaxDist [2] = 500
        set MaxDist [3] = 600
        //Amount of Missiles Settings
        set Missiles [1] = 10
        set Missiles [2] = 12
        set Missiles [3] = 15
        //Chance Settings
        set Chance [1] = 5
        set Chance [2] = 7
        set Chance [3] = 9
    endfunction
//===========================================================================
  
    globals
        private constant real MAX_INTERVAL = (DURATION / TICK)
        private unit TempCaster = null
        private group TempGroup = CreateGroup()       
      
    endglobals
  
    private function ParabolaZ takes real h, real d, real x returns real
      return (4 * h / d) * (d - x) * (x / d)
    endfunction
  
    private function Enum takes nothing returns boolean
        return IsUnitType(GetFilterUnit(), UNIT_TYPE_GROUND) == true and GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0.405 and IsUnitType(GetFilterUnit(), UNIT_TYPE_MAGIC_IMMUNE) == false and IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(TempCaster))
    endfunction
  
    private function A2PXY takes real x,real y,real xt,real yt returns real
        return ModuloReal(bj_RADTODEG*Atan2(yt-y,xt-x),360.)
    endfunction
  
    private function Rnd takes real value returns integer
        if R2I(value) == R2I(value + 0.5) then
            return R2I(value)
        else
            return R2I(value + 0.5)
        endif
    endfunction
  
    private function GetMaxDist takes integer lvl returns real
        return MaxDist [lvl]
    endfunction
  
    private function GetMissiles takes integer lvl returns integer
        return Missiles [lvl]
    endfunction
  
    private function UnitAllowFly takes unit u returns nothing
        call UnitAddAbility(u, 'Arav')
        call UnitRemoveAbility(u, 'Arav')
    endfunction

    private struct MissileData
        unit Caster
        unit Dummy
        effect Spx
        real MaxHeight
        real CurHeight
        real CurDist
        real MaxDist
        real Speed
        real LockX
        real LockY
        real CosA
        real SinA
        group g
        timer t
      
        static method Execute takes nothing returns nothing
            local thistype data = thistype(GetTimerData(GetExpiredTimer()))
            local real x
            local real y
            local real z
            local unit f = null
            local unit d = null
            if not (data.CurDist >= data.MaxDist) then
                set data.CurDist = data.CurDist + data.Speed
                set x = data.LockX + data.CurDist * data.CosA
                set y = data.LockY + data.CurDist * data.SinA
                set z = ParabolaZ(MAX_MISSILE_HEIGHT, data.MaxDist, data.CurDist)
              
                call SetUnitFlyHeight(data.Dummy, z, 0.)
                call SetUnitPosition(data.Dummy, x, y)
            else
                set TempCaster = data.Caster
                call GroupEnumUnitsInRange(data.g, GetUnitX(data.Dummy), GetUnitY(data.Dummy), MISSILE_DETECT_RANGE, Condition(function Enum))
              
                loop
                    set f = FirstOfGroup(data.g)
                    exitwhen f == null
                    call UnitDamageTarget(data.Caster, f, Damage[GetUnitAbilityLevel(data.Caster, AID)], true, true, ATK_TYPE, DMG_TYPE, WEP_TYPE)
                  
                    if GetRandomInt(1, 100) < Chance [GetUnitAbilityLevel(data.Caster, AID)] then
                        set d = CreateUnit(GetOwningPlayer(data.Caster), DUMMY, GetUnitX(f), GetUnitY(f), 0.)
                        call UnitAddAbility(d, FREEZE)
                        call IssueTargetOrder(d, "thunderbolt", f)
                        call UnitApplyTimedLife(d, 'BTLK', 0.6)
                    endif
                  
                    call GroupRemoveUnit(data.g, f)
                endloop
              
                call PauseTimer(data.t)
                call data.destroy()
            endif
        endmethod
      
        static method create takes unit Caster, real Angle, real Height, real Dist returns thistype
            local thistype data = thistype.allocate()
          
            set data.Caster = Caster
            set data.LockX = GetUnitX(Caster)
            set data.LockY = GetUnitY(Caster)
            set data.CosA = Cos(Angle * bj_DEGTORAD)
            set data.SinA = Sin(Angle * bj_DEGTORAD)
            set data.Dummy = CreateUnit(GetOwningPlayer(data.Caster), DUMMY, data.LockX, data.LockY, Angle)
            call UnitAllowFly(data.Dummy)
            call SetUnitScale(data.Dummy, MISSILE_SIZE, MISSILE_SIZE, MISSILE_SIZE)
            set data.Spx = AddSpecialEffectTarget(MISSILE, data.Dummy, "chest")
            set data.MaxHeight = MAX_MISSILE_HEIGHT
            set data.CurHeight = 0.
            set data.MaxDist = Dist
            set data.Speed = Dist / MAX_INTERVAL
            set data.g = CreateGroup()
          
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, TICK, true, function thistype.Execute)
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            call ReleaseTimer(this.t)
            call UnitApplyTimedLife(this.Dummy, 'BTLK', 1.)
            call DestroyEffect(this.Spx)
            call DestroyGroup(this.g)
            set this.Spx = null
            set this.Dummy = null
            set this.CurDist = 0.
            set this.Speed = 0.
            set this.CurHeight = 0.
        endmethod
    endstruct

    private struct ZBData
        unit Caster
        unit Dummy
        real Angle
        real LockX
        real LockY
        integer Counter
        integer MaxCount
        effect Spx
        timer t
        static method Execute takes nothing returns nothing
            local thistype data = thistype(GetTimerData(GetExpiredTimer()))
            local real Angle
            local real x
            local real y
            local integer i = 0
            local unit f = null
            local unit d = null
            set data.Counter = data.Counter + 1
          
            if data.Counter == 2 then
                loop
                    exitwhen i >= Rnd(GetMaxDist(GetUnitAbilityLevel(data.Caster, AID)) / BREATH_DETECT_RANGE)
                  
                    set x = data.LockX + (BREATH_DETECT_RANGE * i) * Cos(data.Angle * bj_DEGTORAD)
                    set y = data.LockY + (BREATH_DETECT_RANGE * i) * Sin(data.Angle * bj_DEGTORAD)
                    call GroupEnumUnitsInRange(TempGroup, x, y, BREATH_DETECT_RANGE, Condition(function Enum))
                  
                    set i = i + 1
                endloop
              
                loop
                    set f = FirstOfGroup(TempGroup)
                    exitwhen f == null
                    set d = CreateUnit(GetOwningPlayer(data.Caster), DUMMY, GetUnitX(f), GetUnitY(f), 0.)
                    call UnitAddAbility(d, SLOW)
                    call IssueTargetOrder(d, "frostnova", f)
                    call UnitApplyTimedLife(d, 'BTLK', 0.6)
                    call GroupRemoveUnit(TempGroup, f)
                endloop
            endif
          
            if GetRandomInt(1, 2) == 1 then
                set Angle = data.Angle - (GetRandomReal(0, SPREAD_INC))
            else
                set Angle = data.Angle + (GetRandomReal(0, SPREAD_INC))
            endif
          
            call MissileData.create(data.Caster, Angle, MAX_MISSILE_HEIGHT, GetRandomReal(0, GetMaxDist(GetUnitAbilityLevel(data.Caster, AID))))
          
            if data.Counter >= data.MaxCount then
                call PauseTimer(data.t)
                call data.destroy()
            endif
        endmethod
      
        static method create takes unit Caster, real Angle returns thistype
            local thistype data = thistype.allocate()
          
            set data.Caster = Caster
            set data.LockX = GetUnitX(Caster)
            set data.LockY = GetUnitY(Caster)
            set data.Dummy = CreateUnit(GetOwningPlayer(data.Caster), DUMMY, GetUnitX(Caster), GetUnitY(Caster), Angle)
            call SetUnitScale(data.Dummy, BREATH_SIZE, BREATH_SIZE, BREATH_SIZE)
            set data.Spx = AddSpecialEffectTarget(BREATH, data.Dummy, "origin")
            set data.Counter = 0
            set data.MaxCount = GetMissiles(GetUnitAbilityLevel(Caster, AID))
            set data.Angle = Angle
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, (DURATION/data.MaxCount), true, function thistype.Execute)
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            call ReleaseTimer(this.t)
            call UnitApplyTimedLife(this.Dummy, 'BTLK', 0.5)
            call DestroyEffect(this.Spx)
            set this.Spx = null
            set this.Dummy = null
            set this.Caster = null
            set this.Counter = 0
        endmethod
    endstruct

//===========================================================================
    private function Conditions takes nothing returns boolean
        return GetSpellAbilityId() == AID
    endfunction
//===========================================================================
    private function Actions takes nothing returns nothing
        local real x = GetUnitX(GetSpellAbilityUnit())
        local real y = GetUnitY(GetSpellAbilityUnit())
        call ZBData.create(GetSpellAbilityUnit(), A2PXY(x,y,GetSpellTargetX(), GetSpellTargetY()))
    endfunction
//===========================================================================
    private function Init takes nothing returns nothing
        local trigger tri = CreateTrigger()
      
        call TriggerRegisterAnyUnitEventBJ(tri, EVENT_PLAYER_UNIT_SPELL_EFFECT)
        call TriggerAddCondition(tri, Condition(function Conditions))
        call TriggerAddAction(tri, function Actions)
      
        call Settings()
        call Preload(MISSILE)
        call Preload(BREATH)
    endfunction
endscope

---------------------

Stormslash:

The blademaster moves so incredibly fast in a wide range towards the target direction that only dust of his moves is seeable. While rushing, the blademaster cuts nearby enemies dealing damage to them.

JASS: 
//               °                                        Mapmaking since 2006...
//            °
//          °
//         °
//       °°°ÛÜ
//      °°X°ÛÛÛ                          ÛÛÛÛÛÛÛÛ     ÿÜÛÛÛÛÛÛÛÛÜ
//     °°XX° ÛÛÛ        ßÛÛÛÛÛ        ÛÛÛÛÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX ° ÛÛÛÛ         ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//     °XX °  ÛÛÛÛÛ        ÛÛÛÛ    ÛÛÛÛÛß    ßÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//    °°XXX°° ÛÛÛÛÛÛÜ       ÛÛÛÜ  ÛÛÛÛÛ        ßÛÛÛÛÛ ßÛÛÛÛ    ÛÛÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛ      ÛÛÛÛ  ÛÛÛÛ                 ÛÛÛÛ      ÛÛÛÛÜ
//             ÛÛÛÛÛÛÛÛ     ÛÛÛÛ  ÛÛÛÛ        ÛÛÛÛÛÛÛ  ÛÛÛÛÛÜ     ÛÛÛÛ
//   °°°°°°°°  ÛÛÛÛÛÛÛÛÛ    ÛÛÛÛÜ  ÛÛÛÛÜ     ÛÛÛÛÛÛÛÛ   ÛÛÛÛÛÜ  ÜÛÛÛÛÛÛ
//   °°XXXXX°   ÛÛÛÛ  ÛÛÛÜ  ÛÛÛÛÛ   ÛÛÛÛÛÛÜ    ßÛÛÛÛÛ   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
//   °°XXXXX °° ÛÛÛÛ   ÛÛÛÛÜ ÛÛÛÛ °°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°° ÛÛÛÛÛÛÛÛÛÛÛÛÛß
//   °  XXXXX °°ÛÛÛÛÛ°°°°ÛÛÛÛÛÛÛÛ°°XX ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ XXX°°ÛÛÛÛÛÛÛÛÛÛÛ     ÛÛÛ
//   °°  XXXXX ÜÛÛÛÛÛÛ X ÛÛÛÛÛÛÛÛÛ XXX ÛÛÛÛÛÛÛÛÛÛÛ  XXXXXX  ÛÛÛÛÛÛÛ°      ÛÛÛ
//    °°  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°°   °°°°
//     °°   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX °°°°°X°°
//      °°°  XXXXXXXXXX  °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° XXXXXXXXXXXXXXXXX°°
//        °°°°°°°°°°°°°°°°                                  °°°°°°°°  XXXXXXX °°°
//                                                                  °°°°°° XX °°
//   ...2010 and still moving on.                                        °°°°°°°
//                                                                             °°
//   Screen Solution: 1280x1024                             Visit www.ngo.clan.su!
//================================================================================
scope Stormslash initializer Init
//===========================================================================
//===========================================================================
//===========================================================================
    globals
        //Default: 3
        private constant integer LEVELS = 3 //The amount of levels the spell can get
        //Default: 'StSl'
        private constant integer AID = 'StSl' //The rawcode for the ability "Stormslash"
        //Default: 'eDUM'
        private constant integer DUMMY = 'eDUM' //The rawcode for the unit "Dummy Missile"
        //Default: "war3mapImported\\SandBreathDamage.mdx"
        private constant string SAND_MODEL = "war3mapImported\\SandBreathDamage.mdx" //The model path for the sand effect
        //Default: "Abilities\\Spells\\Orc\\MirrorImage\\MirrorImageCaster.mdl"
        private constant string SWIFT_MODEL = "Abilities\\Spells\\Orc\\MirrorImage\\MirrorImageCaster.mdl" //The model path for the mirror image effect
        //Default: "Objects\\Spawnmodels\\Critters\\Albatross\\CritterBloodAlbatross.mdl"
        private constant string BLOOD_MODEL = "Objects\\Spawnmodels\\Critters\\Albatross\\CritterBloodAlbatross.mdl" //The model path for the blood effect being created on enemies
        //Default: "Stand Ready"
        private constant string CASTER_ANI = "Stand Ready" //The caster's animation during the cast of the spell
        //Default: 3.
        private constant real SAND_SIZE = 3. //the scaling value for the sand effects
        //Default: 30.
        private constant real SLASH_SPEED = 33. //the speed for the single slashs
        //Default: (1./40.)
        private constant real TICK = (1./40.) //the timer interval
        //Default: 0.2
        private constant real TIME_BETWEEN = 0.15 //the duration between each slash (please keep in mind that the duration of the spell changes with this. Ergo: You have to change the duration for the spell in the object editor as well)
        //Default: 100.
        private constant real SLASH_DETECT = 100. //the detection range for the slash to damage enemies
        //Default: ATTACK_TYPE_HERO
        private constant attacktype ATK_TYPE = ATTACK_TYPE_HERO //the attacktype for the damage enemies receive
        //Default: DAMAGE_TYPE_SHADOW_STRIKE
        private constant damagetype DMG_TYPE = DAMAGE_TYPE_SHADOW_STRIKE//the damagetype for the damage enemies receive
        //Default: WEAPON_TYPE_WHOKNOWS
        private constant weapontype WEP_TYPE = WEAPON_TYPE_WHOKNOWS//the weapontype for the damage enemies receive
      
        //=========================================
        private real array Radius [LEVELS]
        private real array DamagePerStrike [LEVELS]
        private integer array SlashAmount [LEVELS]
        private real array Distance [LEVELS]
    endglobals
  
    private function Settings takes nothing returns nothing
        //Radius Settings
        set Radius [1] = 400
        set Radius [2] = 500
        set Radius [3] = 600
        //Slash Amount Settings
        set SlashAmount [1] = 20
        set SlashAmount [2] = 27
        set SlashAmount [3] = 34
        //Slash Distance Settings
        set Distance [1] = 300
        set Distance [2] = 350
        set Distance [3] = 400
        //Damage Settings
        set DamagePerStrike [1] = 2
        set DamagePerStrike [2] = 4
        set DamagePerStrike [3] = 6
    endfunction
//===========================================================================
    globals
        private unit TempCaster = null
        private item GetWalkable = null
        private constant integer ItemCheckID = 'sehr'
        private hashtable ht
        private group TempGroup
    endglobals

    private function A2PXY takes real x,real y,real xt,real yt returns real
        return ModuloReal(bj_RADTODEG*Atan2(yt-y,xt-x),360.)
    endfunction
  
    private function Enum takes nothing returns boolean
        return IsUnitType(GetFilterUnit(), UNIT_TYPE_GROUND) == true and GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0.405 and IsUnitType(GetFilterUnit(), UNIT_TYPE_MAGIC_IMMUNE) == false and IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(TempCaster))
    endfunction
  
    private function IsPointWalkable takes real x,real y returns boolean
        call SetItemPosition(GetWalkable,x,y)
        call SetItemVisible(GetWalkable,false)
        return GetItemX(GetWalkable)== x and GetItemY(GetWalkable)== y
    endfunction
  
    private struct Slash
        unit Caster
        unit Dummy
        real LockX
        real LockY
        real CurDist
        real MaxDist
        real CosA
        real SinA
        timer t
        group g
        effect Spx
        static method Execute takes nothing returns nothing
            local thistype data = thistype(GetTimerData(GetExpiredTimer()))
            local real x
            local real y
            local unit f
          
            set data.CurDist = data.CurDist + SLASH_SPEED
          
            set x = data.LockX + data.CurDist * data.CosA
            set y = data.LockY + data.CurDist * data.SinA
            set TempCaster = data.Caster
            call GroupEnumUnitsInRange(TempGroup, x, y, SLASH_DETECT, Condition(function Enum))
          
            loop
                set f = FirstOfGroup(TempGroup)
                exitwhen f == null
                call UnitDamageTarget(data.Caster, f, DamagePerStrike [GetUnitAbilityLevel(data.Caster, AID)], true, true, ATK_TYPE, DMG_TYPE, WEP_TYPE)
                if GetRandomInt(1,2) == 1 then
                    call DestroyEffect(AddSpecialEffect(SWIFT_MODEL, x, y))
                endif
                call DestroyEffect(AddSpecialEffect(BLOOD_MODEL, GetUnitX(f), GetUnitY(f)))
                call GroupRemoveUnit(TempGroup, f)
            endloop
          
            call SetUnitPosition(data.Dummy, x, y)
          
            if data.CurDist >= data.MaxDist then
                call ReleaseTimer(data.t)
                call data.destroy()
            endif
        endmethod
      
        static method create takes unit Caster, real x, real y, real Angle, real Dist returns thistype
            local thistype data = thistype.allocate()
          
            set data.Caster = Caster
            set data.LockX = x
            set data.LockY = y
            set data.Dummy = CreateUnit(GetOwningPlayer(data.Caster), DUMMY, x, y, Angle)
            set data.Spx = AddSpecialEffectTarget(SAND_MODEL, data.Dummy, "origin")
            set data.CosA = Cos(Angle * bj_DEGTORAD)
            set data.SinA = Sin(Angle * bj_DEGTORAD)
            set data.g = CreateGroup()
            call SetUnitScale(data.Dummy, SAND_SIZE, SAND_SIZE, SAND_SIZE)
            set data.CurDist = 0.
            set data.MaxDist = Dist
          
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, TICK, true, function thistype.Execute)
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            call ReleaseTimer(this.t)
            call UnitApplyTimedLife(this.Dummy, 'BTLK', 0.8)
            call DestroyEffect(this.Spx)
            call DestroyGroup(this.g)
            set this.g = null
            set this.Dummy = null
            set this.Spx = null
        endmethod
    endstruct
  
    private struct SSData
        unit Caster
        real LockX
        real LockY
        real Angle
        real MaxRadius
        integer Count
        integer lvl
        integer MaxCount
        timer t
      
        static method Execute takes nothing returns nothing
            local thistype data = thistype(GetTimerData(GetExpiredTimer()))
            local real x
            local real y
            local real RndmDist = GetRandomReal(1., data.MaxRadius)
            local real RndmAng  = GetRandomReal(1., 360.)
          
            set data.Count = data.Count + 1
          
            set x = data.LockX + RndmDist * Cos(RndmAng * bj_DEGTORAD)
            set y = data.LockY + RndmDist * Sin(RndmAng * bj_DEGTORAD)
            call DestroyEffect(AddSpecialEffect(SWIFT_MODEL, GetUnitX(data.Caster) + GetRandomReal(-50, 50), GetUnitY(data.Caster) + GetRandomReal(-50, 50)))
            call Slash.create(data.Caster, x, y, data.Angle, Distance [data.lvl])
          
            if data.Count >= data.MaxCount then
                call PauseTimer(data.t)
                call data.destroy()
            endif
        endmethod
      
        static method create takes unit Caster, real TarX, real TarY returns thistype
            local thistype data = thistype.allocate()
          
            set data.Caster = Caster
            call SetUnitAnimation(data.Caster, CASTER_ANI)
            set data.lvl = GetUnitAbilityLevel(data.Caster, AID)
            set data.LockX = TarX
            set data.LockY = TarY
            set data.Angle = A2PXY(GetUnitX(Caster), GetUnitY(Caster), TarX, TarY)
            set data.MaxRadius = Radius [data.lvl]
            set data.Count = 0
            set data.MaxCount = SlashAmount [data.lvl]
          
            set data.t = NewTimer()
            call SetTimerData(data.t, integer(data))
            call TimerStart(data.t, TIME_BETWEEN, true, function thistype.Execute)
          
          
            return data
        endmethod
      
        method onDestroy takes nothing returns nothing
            call ReleaseTimer(this.t)
            call SetUnitAnimation(this.Caster, "stand")
        endmethod
    endstruct
//===========================================================================
    private function onCast takes nothing returns boolean
        local SSData data
        if GetSpellAbilityId() == AID then
            set data = SSData.create(GetSpellAbilityUnit(), GetSpellTargetX(), GetSpellTargetY())
            call SaveInteger(ht, 0, GetHandleId(GetSpellAbilityUnit()), data)
          
        endif
        return false
    endfunction

    private function onStop takes nothing returns boolean
        local SSData data
        if GetSpellAbilityId() == AID then
            set data = LoadInteger(ht, 0, GetHandleId(GetSpellAbilityUnit()))
            call PauseTimer(data.t)
            call data.destroy()
        endif
        return false
    endfunction
//===========================================================================
    private function Init takes nothing returns nothing
        local trigger tri = CreateTrigger()
      
        call TriggerRegisterAnyUnitEventBJ(tri, EVENT_PLAYER_UNIT_SPELL_EFFECT)
        call TriggerAddCondition(tri, Condition(function onCast))
      
        set tri = CreateTrigger()
        call TriggerRegisterAnyUnitEventBJ(tri, EVENT_PLAYER_UNIT_SPELL_ENDCAST)
        call TriggerAddCondition(tri, Condition(function onStop))
      
        set ht = InitHashtable()
        set TempGroup = CreateGroup()
        call Settings()
      
        call Preload(SAND_MODEL)
        call Preload(CASTER_ANI)
        call Preload(BLOOD_MODEL)
        call Preload(SWIFT_MODEL)
    endfunction
endscope
******************

This video below contains the older spells (most of them are deleted already)


This video below contains the latest spells


Note:
This spellpack is "finished" ... more or less. I think my duty here on hive is done with this spellpack. I am happy and proud of all these spells. If there appear updates they will obviously only be to fix remaining bugs. I don't say I quit making spells, I just say that I take a break now! If I'm bored enough and I have some ideas, I will probably add a spell but I won't gurantee! So, thanks to all who use these spells!
Do you want to learn how to make such spells by yourself?
Easy - join Clan NgO and learn how to make awesome spells!

Greetz fly out to:
My Clan NgO - m8ts (marked in blue)
Hanky
Darkt3mpl3r
-JohnNny
Paladon
Grievous1
CoderCow
Eccho
Yixx
Dark_Dragon
-BerZeKeR-
JASS: 
How to import these spells? Just follow the steps matching the spell.
No worries, it is really easy! However, before you start with anything,
you have to make sure you use JNGP. If you don't, go to www.wc3campaigns.net
and download it or just go on the thread from my spellpack on www.hiveworkshop.com
and click on the given link to JNGP.
Also, you have to go to the Import-Manager (F12) and export the resource "dummy.mdx". After exporting,
import it into your map under the same name.


//============
//============ SPIKE IMPACT
//============

'Step 1:
Copy the spell "Spike Impact" and paste it into your map. RAWCODE ALARM!
If you paste it, you will be asked for a 4 character long code. That is the rawcode of this instance.
Take "SpIm" as code (without the "").
'Step 2:
Go into the Import-Manager (F12) and export the model "ImpaleTargetNoBlood.mdx". After exporting, import it into your map under the same name.
'Step 3:
Copy the units "Spike 1", "Spike 2", "Spike 3" and "Spike 4" into your map. RAWCODE ALARM!
Give the units following rawcodes.
Spike 1: "eSp1"
Spike 2: "eSp2"
Spike 3: "eSp3"
Spike 4: "eSp4"
(Again, without the "")
'Step 4:
If you already have the system "TimerUtils" in your map, you can ignore this step. If not ...
Copy the trigger "TimerUtils" into your map.
'Step 5:
Copy the trigger "SpikeImpact" into your map.
'Step 6:
Give proper credits and have fun with the spell!


//============
//============ CUTWAVE
//============

'Step 1:
Copy the buff "Bleed" into your map. The rawcode doesn't matter.
'Step 2:
Copy the spell "Cutwave (Bleed)" into your map. RAWCODE ALARM!
If you paste it, you will be asked for a 4 character long code. That is the rawcode of this instance.
Take "CWbl" as code (without the "").
'Step 3:
Copy the spell "Cutwave" into your map. RAWCODE ALARM!
Take "CuWa" as code.
'Step 4:
Copy the unit "Dummy Missile (Rotated)" into your map. RAWCODE ALARM!
Take "eROT" as code.
'Step 5:
If you already have the system "TimerUtils" in your map, you can ignore this step. If not ...
Copy the trigger "TimerUtils" into your map.
'Step 6:
Copy the trigger "Cutwave" into your map.
'Step 7:
Give proper credits and have fun with the spell!

//============
//============ Thunder Wave
//============

'Step 1:
Copy the buff "Thunder Wave" into your map. The rawcode doesn't matter.
'Step 2:
Copy the spell "Thunder Wave (Stun)" into your map. RAWCODE ALARM!
If you paste it, you will be asked for a 4 character long code. That is the rawcode of this instance.
Take "TWst" as code (without the "").
'Step 3:
Copy the spell "Thunder Wave" into your map. RAWCODE ALARM!
Take "ThWa" as code.
'Step 4:
Copy the unit "Dummy Missile" into your map. RAWCODE ALARM!
Take "eDUM" as code.
'Step 5:
If you already have the system "TimerUtils" in your map, you can ignore this step. If not ...
Copy the trigger "TimerUtils" into your map.
'Step 6:
Copy the trigger "ThunderWave" into your map.
'Step 7:
Give proper credits and have fun with the spell!

//============
//============ Geyser
//============

'Step 1:
Copy the buff "Nothing" into your map. The rawcode doesn't matter.
'Step 2:
Copy the spell "Geyser" into your map. RAWCODE ALARM!
Take "Geys" as code.
'Step 3:
Copy the unit "Dummy Missile" into your map. RAWCODE ALARM!
Take "eDUM" as code.
'Step 4:
If you already have the system "TimerUtils" in your map, you can ignore this step. If not ...
Copy the trigger "TimerUtils" into your map.
'Step 5:
Copy the trigger "Geyser" into your map.
'Step 6:
Give proper credits and have fun with the spell!

//============
//============ Impulse
//============

'Step 1:
Copy the spell "Impulse" into your map. RAWCODE ALARM!
If you paste it, you will be asked for a 4 character long code. That is the rawcode of this instance.
Take "ImpA" as code (without the "").
'Step 2:
If you already have the system "TimerUtils" in your map, you can ignore this step. If not ...
Copy the trigger "TimerUtils" into your map.
'Step 3:
Copy the trigger "Impulse" into your map.
'Step 4:
Give proper credits and have fun with the spell!

//============
//============ Impulse (Passive)
//============

'Step 1:
Copy the spell "Impulse (Passive)" into your map. RAWCODE ALARM!
If you paste it, you will be asked for a 4 character long code. That is the rawcode of this instance.
Take "ImpP" as code (without the "").
'Step 2:
If you already have the system "TimerUtils" in your map, you can ignore this step. If not ...
Copy the trigger "TimerUtils" into your map.
'Step 3:
Copy the trigger "DamageDetection" into your map.
'Step 4:
Copy the trigger "ImpulsePassive" into your map.
'Step 5:
Give proper credits and have fun with the spell!

//============
//============ Zeroblaster
//============

'Step 1:
Copy the buff "Frozen" into your map.
'Step 2:
Copy the spell "Zeroblaster (Freeze)" into your map. RAWCODE ALARM!
If you paste it, you will be asked for a 4 character long code. That is the rawcode of this instance.
Take "ZBst" as code (without the "").
'Step 3:
Copy the spell "Zeroblaster Slow" into your map. RAWCODE ALARM!
Take "ZBsl" as code (without the "").
'Step 4:
Copy the spell "Zeroblaster" into your map. RAWCODE ALARM!
Take "ZeBl" as code (without the "").
'Step 5:
Copy the unit "Dummy Missile" into your map. RAWCODE ALARM!
Take "eDUM" as code (without the "").
'Step 6:
If you already have the system "TimerUtils" in your map, you can ignore this step. If not ...
Copy the trigger "TimerUtils" into your map.
'Step 7:
Copy the trigger "Zeroblaster" into your map.
'Step 8:
If you want the same models/icon as the spell has currently, export it to your desktop (or somewhere you can find it back)
and import the resources into your map. Otherwise you would have to configure the given variables by yourself.
'Step 9:
Give proper credits and have fun with the spell!

//============
//============ Stormslash
//============

'Step 1:
Copy the spell "Stormslash" into your map. RAWCODE ALARM!
If you paste it, you will be asked for a 4 character long code. That is the rawcode of this instance.
Take "StSl" as code (without the "").
'Step 2:
Copy the unit "Dummy Missile" into your map. RAWCODE ALARM!
Take "eDUM" as code (without the "").
'Step 3:
If you already have the system "TimerUtils" in your map, you can ignore this step. If not ...
Copy the trigger "TimerUtils" into your map.
'Step 4:
Copy the trigger "Stormslash" into your map.
'Step 5:
If you want the same models/icon as the spell has currently, export it to your desktop (or somewhere you can find it back)
and import the resources into your map. Otherwise you would have to configure the given variables by yourself.
'Step 6:
Give proper credits and have fun with the spell!

My Editor bugs when I try to save my map. It gives a number of errors in the script. What is the problem?
You obviously don't use JNGP (JassNewGenPack). Without it, you don't allow the vJass Syntax and then the editor shows it as bugs.

There are no graphics for the spell, for the rest they work well! Why are the graphics hidden?
You probably know that these graphics are spawned on dummy units with different fly heights. Units with no model can't be targeted by graphics since they have NO model,
this makes attaching impossible.
To solve this problem, make sure you have imported the "dummy.mdx" into your map as said in the tutorial.
Still does not work? Contact me.

When I try to cast the spell, nothing happens or it does not do what it should. What can I do?
Well, the only thing you can do is to check whether you typed in the correct rawcodes for the matching instances.
You obviously typed in a wrong code!


Requirements:
- NewGen WE (JNGP)
- TimerUtils
- Damage Detection System by moyack

Credits:
To: Mc !, I am using his Icon for the spell Thunder Wave, it fits so well to it :D
To: Anachron, I am using his Icon for the spell Geyser.
To: KelThuzad, I am using his Icon for the spells Impulse and Impulse (Passive).
To: Child_0f_Bodom for editing the impale model.
To: Pyritie for the frost breath model.
To: Daelin for the icy orb with spikes model.
To: JetFangInferno for the dust model.
To: Palaslayer for the Icon I am using for the spell "Stormslash"
To: 67chrome for the Icon I am using for the spell "Zeroblaster"

Keywords:
Spike, Impact, Fire, Bomb, Cut, Wave, xxdingo93xx, Spellpack, Flame, Blaze, Death, Blademaster, Blade, Force, Kaboom, Ice, Frost, Orb, Cold, Dota, Sla
Contents

xxxdingo93xx's Spellpack (Map)

Author
xxdingo93xx
Filename
xxdingo93xx's Spellpack.w3x
Suggested players
N/A
Players
1
Required game
Warcraft 3
Recommended version
1.19 - 1.21b
Dimensions
52x52 (64x64)
Size
224.88 KB
Uploaded
Nov 17, 2008
Updated
Jan 10, 2010
Map Info View Resources In Use Preview Triggers Download
Reviews
07:26, 18th Nov 2008 Hanky: Great job with spells, I hope you continue your spellpack soon with some more spells but back to the topic. The use of effects is really well done and also the scripting is very effective. Your spells are leakless and...
Read full review...

Giantr

Giantr

Giantr

Level 5
Joined
Dec 4, 2007
Messages
111
Awesome spells but frost bomb bugs the dummy is not destroyed (if you knew that .... my bad)

Edit : what i mean is that you can select the dummy unit
 

Cihparg

Cihparg

Cihparg

Level 16
Joined
Jul 4, 2008
Messages
1,106
I may have found the Dummy Unit error =) Look at this...
Not sure tho, not good with jass, and I see now... its set... Lemme see more :)
Line 92 - 104

Ok... That I understand... It's all SET..
JASS: 
        static method create takes unit aCaster returns SpellData
            local SpellData data = SpellData.allocate()
            local location loc = GetSpellTargetLoc()
            
            set data.caster  = aCaster
            set data.casterX = GetUnitX(data.caster)
            set data.casterY = GetUnitY(data.caster)
            set data.targetX = GetLocationX(loc)
            set data.targetY = GetLocationY(loc)
            set data.missile = CreateUnit(GetOwningPlayer(data.caster), DUMMY, data.casterX, data.casterY, 0.)
            set data.spx1    = AddSpecialEffectTarget(MODEL_1, data.missile, ATTACH_1)
            set data.spx2    = AddSpecialEffectTarget(MODEL_2, data.missile, ATTACH_2)
            set data.lvl     = GetUnitAbilityLevel(data.caster, AID)
 

xxdingo93xx

xxdingo93xx

xxdingo93xx

Level 17
Joined
Sep 8, 2007
Messages
994
OffGraphic said:
I may have found the Dummy Unit error =) Look at this...
Not sure tho, not good with jass, and I see now... its set... Lemme see more :)
Line 92 - 104

Ok... That I understand... It's all SET..
JASS: 
        static method create takes unit aCaster returns SpellData
            local SpellData data = SpellData.allocate()
            local location loc = GetSpellTargetLoc()
            
            set data.caster  = aCaster
            set data.casterX = GetUnitX(data.caster)
            set data.casterY = GetUnitY(data.caster)
            set data.targetX = GetLocationX(loc)
            set data.targetY = GetLocationY(loc)
            set data.missile = CreateUnit(GetOwningPlayer(data.caster), DUMMY, data.casterX, data.casterY, 0.)
            set data.spx1    = AddSpecialEffectTarget(MODEL_1, data.missile, ATTACH_1)
            set data.spx2    = AddSpecialEffectTarget(MODEL_2, data.missile, ATTACH_2)
            set data.lvl     = GetUnitAbilityLevel(data.caster, AID)
Click to expand...

Ok, you really don't seem to have good knowledge about Jass ^^ btw, this is vJass, so it is even harder for you. And no, there is not the dummy bug.
 

xxdingo93xx

xxdingo93xx

xxdingo93xx

Level 17
Joined
Sep 8, 2007
Messages
994
To Dynasti:
Ehh, these spells I added were actually made for another map ...
I did not specialize them to upload them to my spellpack. Actually I first wanted to hold these spells "secret" but anyway, I decided to upload them

To Masterofpuppets:
private message you sent to me:
thanks. you used my way to hide the dummy unit at your skill frost bomb without even say "thank you" to me...
Click to expand...

OH MY GAWWWD THANK YOU SOOO MUCH FOR TELLING ME I SHOULD HIDE THE DUMMIES!!!! NOW MY LIFE FINALLY GETS A SENSE!!!!!!!!! ..... now happy? -.-
 

Dark_Dragon

Dark_Dragon

Dark_Dragon

Level 15
Joined
Jul 19, 2007
Messages
618
hi again xxdingo93xx its Dark Dragon!

well i checked your spell pack and there are some nice spells but most importantly u got 10 spells now thats a lot!

well about dummy i was not checking that but i saw you actually did not fix the bug with dummy it still leaks in map for each cast but its only unselectable. To Masterofpuppets its not about hiding the dummy but removing or stop creating which is way i told xxdingo93xx but duno why it still is there well unselectable... but its your choice do you want to fix it or not since its your spell pack :p

anyway nice spells, see ya around :D
 

xxdingo93xx

xxdingo93xx

xxdingo93xx

Level 17
Joined
Sep 8, 2007
Messages
994
Well, the problem with the Ice Bomb dummy selectable bug was just a stupid mistake inside the spell itself ...
I was using the spell summon infernal and I set the lifetime for the summoned unit which was a dummy unit to 0. which means it won't expire. now it is set to 0.01 so it is removed.

Well, I can't figure out what you mean with still leaks in map. Hmm, I really didn't remove all first-cast-lags if thats what you mean ... I will do that later ^^

Hm, I really have to fix all the rest bugs. I think there remain a lot! But well, gonna do that tomorrow or someday! :D
~xxdingo93xx
 

Dark_Dragon

Dark_Dragon

Dark_Dragon

Level 15
Joined
Jul 19, 2007
Messages
618
yeah glade to hear that just note i was talking that it would be faster if you change that dummy missile to no unit type so its not even created but well what you said is true it will expire in 0.01 seconds and die after that game will automatically after some type remove the leak so its ok. About preloading i agree that you should add that when you find time.

One again greets!
~Dark Dragon
 

xxdingo93xx

xxdingo93xx

xxdingo93xx

Level 17
Joined
Sep 8, 2007
Messages
994
Well, I prefer to work with unit types instead of making thousands of different dummies with seperate models. Would make it clearless and I hate that ^^ and also it would destroy my current system for my spells. I don't wanna rewrite all spells now. Btw, that isn't that big deal, no need to get rid of it ^^
 

Giantr

Giantr

Giantr

Level 5
Joined
Dec 4, 2007
Messages
111
For some reason hte phoenix spell bugged the first time I casted it

Meaning the hero after the cast began to float around, wasn't flying ,but floating. Anyway after another cast the hero returned to normal
 
Last edited:

Archangel_Tidusx

Archangel_Tidusx

Archangel_Tidusx

Level 16
Joined
Feb 24, 2007
Messages
1,098
I liked all of the spells but there's a few things I think should be changed.
-The cut wave spell didn't seem to do much of anything. Instead of stopping at the first enemy, i think it should damage enemies in a line, but deal less and less damage as it goes through enemies. Sort of like a chain lightning and shockwave combination.
-Phoenix tackle didnt look all that great. Maybe use the phoenix model as the damage effect. The death would look pretty good.
-Power bash was more damaging than it was helpful. I loved the idea for the spell, but i didnt find it very useful. When the hero doesnt hit it, i think it should damage any unit in the aoe, not just allies. I think just doing that would make it more effective. Also i think it should be an ultimate ability, not a levellable one. (Im not sure whether it was or not)
-Spike bomb was awesome; However, I would remove the blood because it leaves a nasty stain in the air.

Overall the spells were good. I dont remember the tooltips being all that great. The spells were versatile, and also useful. I would rate this a 4/5
 

timcanpy93

timcanpy93

timcanpy93

Level 1
Joined
Mar 7, 2009
Messages
3
is it possible to use a different model character but still be able to use spells or is this just implemented in that specific map
 

THEMUTE417

THEMUTE417

THEMUTE417

Level 1
Joined
Mar 11, 2009
Messages
4
i like this spell pack but i have noticed a leak on the lich, frozen orb thing the orb its self does no damage other than that id give it a 10/10
 

xxdingo93xx

xxdingo93xx

xxdingo93xx

Level 17
Joined
Sep 8, 2007
Messages
994
-The cut wave spell didn't seem to do much of anything. Instead of stopping at the first enemy, i think it should damage enemies in a line, but deal less and less damage as it goes through enemies. Sort of like a chain lightning and shockwave combination.
Click to expand...
Hmm...I think about that.
-Power bash was more damaging than it was helpful. I loved the idea for the spell, but i didnt find it very useful. When the hero doesnt hit it, i think it should damage any unit in the aoe, not just allies. I think just doing that would make it more effective. Also i think it should be an ultimate ability, not a levellable one. (Im not sure whether it was or not)
Click to expand...
That spell can be made easily as ultimate. You can just set it to one level since these spells are MUI and JESP, it is configurable everywhere in the spellcode. Just give it a try! Oh, and it was meant to hurt allies only if the spell fails. That means it is meant to be a MUST BE - ranged spell else there will be consequences ;P
-Phoenix tackle didnt look all that great. Maybe use the phoenix model as the damage effect. The death would look pretty good.
Click to expand...
I think I am gonna remove that spell, don't like it either xD
-Spike bomb was awesome; However, I would remove the blood because it leaves a nasty stain in the air.
Click to expand...
Well, the puddle of blood is the spike model itself ^^
This discussion is to find anywhere deep inside this thread already. I need somebody to remove the puddle of blood from the spike model to remove it ingame.

is it possible to use a different model character but still be able to use spells or is this just implemented in that specific map
Click to expand...
Sure.

i like this spell pack but i have noticed a leak on the lich, frozen orb thing the orb its self does no damage
Click to expand...
Damage can be configured in the spellcode if you mean dat ... o_O
 

Newbestyle

Newbestyle

Newbestyle

Level 3
Joined
Nov 3, 2008
Messages
44
Bad news, Dingo...
I tried the spellpack one more time and recognized a little bug...
Power Bash:
There is a short time after the caster raised his hammer in which he can move, attack, or something. When he moves forwards in this time, the missile hits himself. It isn't supposed to do that, right?..
If not you have to get over your laziness once again! :p

Good Luck with this one...
 

xxdingo93xx

xxdingo93xx

xxdingo93xx

Level 17
Joined
Sep 8, 2007
Messages
994
Calm down, it was meant to be like that ;) I want it to be a ranged spell and if it isn't used like that it will hurt allies only MUAHAHAHAH!!

Well, I got worse news. I can't update this. I only get error messages if I try to save this map. Ergo -> No future updates. I am maybe planning to remove this spellpack and start to make seperate spells (to get some more space filled in my resource list ... ).
 

Dark_Dragon

Dark_Dragon

Dark_Dragon

Level 15
Joined
Jul 19, 2007
Messages
618
hi dingo!

nice spell pack seems code on some spells are updated so they less bug. thats great! i found out that when casting Harmonic Theraphy the icon turns green...

well there are some other little things which i think are bugs but not sure so ill say that its great spell pack.

the only thing it is now is i am not sure but was it in older version some more spells i think some spells are missing did you remove them or is it just me?

well all in all i like this spell pack special lightning one which i am sure is your favorite one. its a wolf xD, but i still wonder should dingo be a dog :D

ahh back to the topic its 5/5 they are great spells but i dont like some of systems like TimerUtils coz they are limited which means after a lot of usage they will bug and if crossing max storage they can crash the game... but that is only me so once again great work!

~Dark Dragon
 

xxdingo93xx

xxdingo93xx

xxdingo93xx

Level 17
Joined
Sep 8, 2007
Messages
994
i found out that when casting Harmonic Theraphy the icon turns green...
Click to expand...
Yes, noticed that too :/
I can't imagine what I did wrong, the disabled Icon is imported as well.

the only thing it is now is i am not sure but was it in older version some more spells i think some spells are missing did you remove them or is it just me?
Click to expand...
Yup, you're right. I removed 3 spells, therefore I added 3 other spells ;)
You can see that in the History.

its a wolf xD, but i still wonder should dingo be a dog :D
Click to expand...
Awww another one coming with that xD
Ye, a dingo is a dog. (Actually a wolf is a dog too lol. They are both "Canis Lupus") However, I use dingo as name and I don't mean the animal with that ^^
White wolves are my favorite animals as you can surely infer from my avatar and all that.

ahh back to the topic its 5/5 they are great spells but i dont like some of systems like TimerUtils coz they are limited which means after a lot of usage they will bug and if crossing max storage they can crash the game... but that is only me so once again great work!
Click to expand...
Hmm, well you are right, TimerUtils is limited. However, it would need some time until the limit is exceeded :p so it is not that bad.

Well, thanks a lot for your comment! +Rep
 

darkreapers

darkreapers

darkreapers

Level 4
Joined
Jun 1, 2009
Messages
87
hey dingo question, is there any lines u can change in frost bomb so it doesnt hit own structure? i jsut tested it out with some scout towers n it hits, allies, structures and enemies
 

Dark_Dragon

Dark_Dragon

Dark_Dragon

Level 15
Joined
Jul 19, 2007
Messages
618
well awesome as always + you improved coding it seems (sry lol i cant remember how exactly was your spells coded before nor your own style of coding since i see a lots of them every day :S) i did not saw you upload new spells and so.. i thought you stoped coding. but seems not, it was lazyness :) anyway coding is acceptable its quite good enough and spells are good as well. best of all is that i was thinking on doing the same thing in my spell pack. like removing Slash Strike spell... coz for some reason its not that awesome spell duno but its my first vjass spell so i feel sry for it :D

anyway gj and keep it up (when u get rid of lazyness add some more spells ;)

Greets +rep!
~Dark Dragon
 

Yixx

Yixx

Yixx

Level 16
Joined
Oct 12, 2008
Messages
1,570
Good coding! Great spells!
Some improvements on the coding side:
Cutwave
Cos() and Sin(), i heard they were very slow and can best be avoided. That is why i recommend to put the Cos(data.Angle * bj_DEGTORAD) and the Sin(data.Angle *bj_DEGTORAD) in a struct member, this will avoid calculating it alot of times, all with the same effect.
spike impact
impossible due to a loop.
Thunder Wave
You do unnessecary stuff again, Like this:
JASS: 
local real Ang = ....
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
set Ang = Ang + 90
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
set Ang = Ang - 90
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
set Ang = Ang + 90
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
Why not like this:
JASS: 
local real Ang = ....
local real cos = Cos(Ang * bj_DEGTORAD)
local real sin = Sin(Ang * bj_DEGTORAD)
// use cos & sin
// use cos & sin again
set Ang = Ang + 90
set cos = Cos(Ang * bj_DEGTORAD)
set sin = Sin(Ang * bj_DEGTORAD)
// use cos & sin
// use cos & sin again
saves 2 Cos() and 2 Sin() calculations.
I know you did it like above for organization purposes, so you first create [1], then [2], then [3] and then [4], but this seems more efficient to me.
 

xxdingo93xx

xxdingo93xx

xxdingo93xx

Level 17
Joined
Sep 8, 2007
Messages
994
Yixx said:
Good coding! Great spells!
Some improvements on the coding side:
Cutwave
Cos() and Sin(), i heard they were very slow and can best be avoided. That is why i recommend to put the Cos(data.Angle * bj_DEGTORAD) and the Sin(data.Angle *bj_DEGTORAD) in a struct member, this will avoid calculating it alot of times, all with the same effect.
spike impact
impossible due to a loop.
Thunder Wave
You do unnessecary stuff again, Like this:
JASS: 
local real Ang = ....
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
set Ang = Ang + 90
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
set Ang = Ang - 90
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
set Ang = Ang + 90
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
Why not like this:
JASS: 
local real Ang = ....
local real cos = Cos(Ang * bj_DEGTORAD)
local real sin = Sin(Ang * bj_DEGTORAD)
// use cos & sin
// use cos & sin again
set Ang = Ang + 90
set cos = Cos(Ang * bj_DEGTORAD)
set sin = Sin(Ang * bj_DEGTORAD)
// use cos & sin
// use cos & sin again
saves 2 Cos() and 2 Sin() calculations.
I know you did it like above for organization purposes, so you first create [1], then [2], then [3] and then [4], but this seems more efficient to me.
Click to expand...

I don't know where you heared it, but I don't trust it. Cos and Sin are natives so the can't be extremely slow. I know I made it some wierd but to keep the clear order from Index 1 to 4 I made it like this! ;)

Anyway thx for comment +rep as soon as I can rep again.
 

Lambdadelta

Lambdadelta

Lambdadelta

Level 15
Joined
Jul 6, 2009
Messages
889
... Geyser is SO LAG... REALLY LAG. How could you possible use it? It lags. That's all :D

The Wolf's Lightning spell.... if you press ESC to restore, the spell will never end as long as you keep pressing ESC, as in, the Wolf will unpause after and then cast it again.

Just because its a native doesn't mean its fast, eg, CreateUnit.
 

Dark_Dragon

Dark_Dragon

Dark_Dragon

Level 15
Joined
Jul 19, 2007
Messages
618
Yixx said:
Good coding! Great spells!
Some improvements on the coding side:
Cutwave
Cos() and Sin(), i heard they were very slow and can best be avoided. That is why i recommend to put the Cos(data.Angle * bj_DEGTORAD) and the Sin(data.Angle *bj_DEGTORAD) in a struct member, this will avoid calculating it alot of times, all with the same effect.
spike impact
impossible due to a loop.
Thunder Wave
You do unnessecary stuff again, Like this:
JASS: 
local real Ang = ....
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
set Ang = Ang + 90
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
set Ang = Ang - 90
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
set Ang = Ang + 90
// use Cos(Ang *bj_DEGTORAD) & Sin(Ang*bj_DEGTORAD)
Why not like this:
JASS: 
local real Ang = ....
local real cos = Cos(Ang * bj_DEGTORAD)
local real sin = Sin(Ang * bj_DEGTORAD)
// use cos & sin
// use cos & sin again
set Ang = Ang + 90
set cos = Cos(Ang * bj_DEGTORAD)
set sin = Sin(Ang * bj_DEGTORAD)
// use cos & sin
// use cos & sin again
saves 2 Cos() and 2 Sin() calculations.
I know you did it like above for organization purposes, so you first create [1], then [2], then [3] and then [4], but this seems more efficient to me.
Click to expand...

cos and sin and createunit are natives which are slower then some other natives by 2-3 nanoseconds... so its a waste of time to add new members which will increase scripts size by great number when every spell uses dx, dy members... i am sure you know but any structs member will become global array variable with name like: s__scopeName__structName__varname[structSize/varSize]

indeed it would be faster but at cost of script size and extra variables...
however that little amount of speed is really unneccessary...

readability of script is a top priority.

xBlackRose said:
... Geyser is SO LAG... REALLY LAG. How could you possible use it? It lags. That's all :D

The Wolf's Lightning spell.... if you press ESC to restore, the spell will never end as long as you keep pressing ESC, as in, the Wolf will unpause after and then cast it again.

Just because its a native doesn't mean its fast, eg, CreateUnit.
Click to expand...

hmm to me it does not lag... well i guess its coz of CPU... but yeah performances of spell could be improved.

the spell will never end as long as you keep pressing ESC
Click to expand...

then stop pressing ESC?

if you wanted to say its not MUI or bugged then it seems you are correct but i did not use esc and did not test MUI-nes!

dingo here is what you did wrong!
JASS: 
set data.JDat = JumpData.create(f, data.Caster)

before doing that check if unit is already in jumpdata!
coz lets say you cast it two times then unit will be 2 times effected...
so you need to get that JumpData on unit and swap it with new data or simply let old data finish and ignore curren cast action. both ways would work.

Greets!
~DD
 

Yixx

Yixx

Yixx

Level 16
Joined
Oct 12, 2008
Messages
1,570
Ok, the thing on Thunder Wave is negligible. But on Cutwave, 2-3 nanoseconds every 0.03 seconds can be quite some. That is why i think that it should be a structmember, because it will always return the exact same, for you do not change the angle. Just my opinion.
And the Global Array thing is known to me, yeah.

BTW: DD, Tan() and Pow() are also slower, i thought. (And in addition of that, Acos(), Asin(), Atan() and Atan2(), but of those i am not sure at all, just seems logical to me.)
 
You must log in or register to reply here.

Similar threads

Bob27
  • Locked
  • Poll
Clan Name Final
Replies
20
Views
2K
Shados
Shados
Zack1996
[SpellPack]- Elemental SpellPack v1.07b
2
Replies
96
Views
64K
Uyarrr
Uyarrr
Neet
Enterprise Spellpack
Replies
2
Views
3K
Daffa
Daffa
Kazeon
Swashbuckler Spellpack
Replies
16
Views
9K
Kyrbi0
Kyrbi0
DeathStar
Jellal SpellPack
Replies
4
Views
4K
kruzerg
kruzerg
Top