• Listen to a special audio message from Bill Roper to the Hive Workshop community (Bill is a former Vice President of Blizzard Entertainment, Producer, Designer, Musician, Voice Actor) 🔗Click here to hear his message!
  • Read Evilhog's interview with Gregory Alper, the original composer of the music for WarCraft: Orcs & Humans 🔗Click here to read the full interview.

Triggers

THWS - Magic absorption.w3x
Variables
Map configuration
A1
A3
Requirements
Damage Engine
Unit Indexer
SPELL
MA - - - READ THIS
MA Globals
MA
//TESH.scrollpos=0
//TESH.alwaysfold=0
Name Type is_array initial_value
DamageBlockingAbility abilcode No
DamageEvent real No
DamageEventAmount real No
DamageEventExplodesUnit boolean No
DamageEventOverride boolean No
DamageEventPrevAmt real No
DamageEventSource unit No
DamageEventsWasted integer No
DamageEventTarget unit No
DamageEventTrigger trigger No
DamageEventType integer No
DamageModifierEvent real No
DamageTypeDOT integer No
DamageTypeRanged integer No
DamageTypeSpell integer No
DemoVelocity real No
DmgEvLife real No
DmgEvN integer No
DmgEvStack unit Yes
DmgEvTimer timer No
DmgTypPrev integer No
FS_HashTable hashtable No
MA_MagicCount integer Yes
Point location No
TempUnit unit No
UDex integer No
UDexGen integer No
UDexNext integer Yes
UDexPrev integer Yes
UDexRecycle integer No
UDexUnits unit Yes
UDexWasted integer No
uinidne integer No
UnitDamageRegistered boolean Yes
UnitIndexerEnabled boolean No
UnitIndexEvent real No
UnitIndexLock integer Yes
Valor integer No 
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_A1_Actions takes nothing returns nothing
local unit u
call GroupEnumUnitsInRect(bj_lastCreatedGroup,bj_mapInitialPlayableArea,null)
loop
set u=FirstOfGroup(bj_lastCreatedGroup)
exitwhen u==null
call GroupRemoveUnit(bj_lastCreatedGroup,u)
if IsUnitEnemy(u,Player(0)) then
call UnitRemoveAbility(u,'Aatk')
call UnitRemoveAbility(u,'Amov')
else
//call UnitRemoveAbility(u,'Aatk')
call SelectUnitAddForPlayer(u, GetOwningPlayer(u))
call SetHeroLevel(u,10,false)
endif
endloop
call TriggerSleepAction(0.5)
call StopMusicBJ(false)
call EndThematicMusicBJ()
call PlayThematicMusicBJ("KhaosMachine.mp3")
call CreateFogModifierRectBJ(true,Player(0),FOG_OF_WAR_VISIBLE,GetPlayableMapRect())
endfunction
function InitTrig_A1 takes nothing returns nothing
set gg_trg_A1=CreateTrigger()
call TriggerAddAction(gg_trg_A1,function Trig_A1_Actions)
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_A3_Actions takes nothing returns nothing
call StopMusicBJ(false)
call EndThematicMusicBJ()
call PlayThematicMusicBJ("KhaosMachine.mp3")
endfunction
function InitTrig_A3 takes nothing returns nothing
set gg_trg_A3=CreateTrigger()
call TriggerRegisterTimerEventPeriodic(gg_trg_A3,6.85)
call TriggerAddAction(gg_trg_A3,function Trig_A3_Actions)
endfunction
Damage Engine lets you detect, amplify, block or nullify damage, and lets you cause special or undetectable damage. Just reference DamageEventAmount/Source/Target, to get the necessary damage event data.
--------
Detect damage: use the event "DamageEvent Equal to 1.00"
Detect zero-damage: use the event "DamageEvent Equal to 2.00"
To change damage before it's dealt: use the event "DamageModifierEvent Equal to 1.00"
--------
Modify DamageEventAmount/ExplodesUnit/Override from a "DamageModifierEvent Equal to 1.00" trigger. To prevent your script's damage stacking with others, include the condition "DamageEventOverride Equal to false".

Likewise, set "DamageEventOverride" to true if you don't want other scripts to stack with it.

If you need to reference the original in-game damage, use the variable "DamageEventPrevAmt".
--------
If you trigger all non-attack damage in the game, you can tell the difference between in-game damage and triggered damage, and you can customize the type of triggered damage as well. You set the variable "DamageEventType" accordingly, <before> triggering the damage.

DamageEventType will be 0 if the damage was dealt in-game or if you didn't set it right before causing the damage. You can create your own special damage types and add them to the list, and/or you can reference the existing ones (DamageTypeSpell/DOT/Ranged).
Damage Engine
Events
Game - UnitIndexEvent becomes Equal to 1.00
Game - UnitIndexEvent becomes Equal to 2.00
Conditions
Actions
-------- Copy the Cheat Death Ability from Object Editor into your map and set the following variable respectively: --------
Set Variable Set DamageBlockingAbility = "A001"
-------- - --------
Set Variable Set DamageTypeSpell = "1"
Set Variable Set DamageTypeDOT = "2"
Set Variable Set DamageTypeRanged = "3"
-------- - --------
Custom script: call ExecuteFunc("InitDamageEvent")
Custom script: endfunction
Custom script:
Custom script: function DmgEvFilter takes nothing returns boolean
-------- - --------
-------- The next conditions let you filter out unwanted units. By default, units with Locust will not pass the check. --------
-------- - --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TempUnit is A structure) Equal to False
Then - Actions
Custom script: return true
Else - Actions
Custom script: return false
Custom script: endfunction
Custom script:
Custom script: function DmgEvRemoveAbilities takes nothing returns nothing
Custom script: local real r
Custom script: loop
Set Variable Set DmgEvN = (DmgEvN - 1)
Custom script: set r = GetWidgetLife(udg_DmgEvStack[udg_DmgEvN])
Unit - Remove DamageBlockingAbility from DmgEvStack[DmgEvN]
Custom script: call SetWidgetLife(udg_DmgEvStack[udg_DmgEvN], r)
Set Variable Set DmgEvStack[DmgEvN] = No unit
Custom script: exitwhen udg_DmgEvN == 0
Custom script: endloop
Custom script: endfunction
Custom script:
Custom script: function DmgEvSetVars takes nothing returns nothing
Set Variable Set DamageEventAmount = (Damage taken)
Set Variable Set DamageEventSource = (Damage source)
Set Variable Set DamageEventTarget = (Triggering unit)
Custom script: endfunction
Custom script:
Custom script: function FireDmgEv takes nothing returns nothing
Custom script: local boolean b = GetUnitAbilityLevel(udg_DamageEventTarget, udg_DamageBlockingAbility) > 0
Custom script: local real life = 0
Custom script: local real pain = 0
Custom script: if b then
Custom script: set life = GetWidgetLife(udg_DamageEventTarget)
Unit - Remove DamageBlockingAbility from DamageEventTarget
Custom script: call SetWidgetLife(udg_DamageEventTarget, life)
Custom script: set pain = GetWidgetLife(udg_DamageEventTarget)
Custom script: endif
Set Variable Set DamageEventPrevAmt = DamageEventAmount
Set Variable Set DamageEventExplodesUnit = "false"
Set Variable Set DamageEventOverride = "false"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DamageEventAmount Equal to 0.00
Then - Actions
Set Variable Set DamageEvent = "2.00"
Else - Actions
Set Variable Set DamageModifierEvent = "1.00"
Set Variable Set DamageEvent = "1.00"
Custom script: if b then
Unit - Add DamageBlockingAbility to DamageEventTarget
Custom script: call SetWidgetLife(udg_DamageEventTarget, life + GetWidgetLife(udg_DamageEventTarget) - pain)
Custom script: endif
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DamageEventAmount Not equal to DamageEventPrevAmt
Then - Actions
Set Variable Set DmgEvLife = ((Life of DamageEventTarget) + (DamageEventPrevAmt - DamageEventAmount))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DamageEventAmount Greater than DamageEventPrevAmt
Then - Actions
Unit - Set life of DamageEventTarget to (Max(0.41, DmgEvLife))
Custom script: if udg_DmgEvLife <= .405 then
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DamageEventExplodesUnit Equal to True
Then - Actions
Unit - Make DamageEventTarget Explode on death
Else - Actions
Trigger - Turn off DamageEventTrigger
Custom script: call UnitDamageTarget(udg_DamageEventSource, udg_DamageEventTarget, 999, false, false, null, null, null)
Trigger - Turn on DamageEventTrigger
Custom script: endif
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Max life of DamageEventTarget) Less than DmgEvLife
Then - Actions
Unit - Add DamageBlockingAbility to DamageEventTarget
Set Variable Set DmgEvStack[DmgEvN] = DamageEventTarget
Set Variable Set DmgEvN = (DmgEvN + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DmgEvN Equal to 1
Then - Actions
Custom script: call TimerStart(udg_DmgEvTimer, 0, false, function DmgEvRemoveAbilities)
Else - Actions
Else - Actions
Unit - Set life of DamageEventTarget to DmgEvLife
Else - Actions
Custom script: endfunction
Custom script:
Custom script: function FireRecursiveDmgEv takes nothing returns nothing
Custom script: local real d = udg_DamageEventAmount
Custom script: local unit s = udg_DamageEventSource
Custom script: local unit t = udg_DamageEventTarget
Custom script: local integer ptype = udg_DmgTypPrev
Custom script: local boolean explode = udg_DamageEventExplodesUnit
Custom script: local boolean override = udg_DamageEventOverride
Custom script: local real prev = udg_DamageEventPrevAmt
Custom script: call DmgEvSetVars()
Custom script: if udg_DamageEventTarget != t or udg_DamageEventSource != s or udg_DamageEventAmount != d or udg_DamageEventType != ptype then
Set Variable Set DamageEvent = "0.00"
Set Variable Set DamageModifierEvent = "0.00"
Custom script: call FireDmgEv()
-------- - --------
-------- Delete the next three lines to disable the in-game recursion crash warnings --------
-------- - --------
Custom script: else
Cinematic - Clear the screen of text messages for (All players) .
Game - Display to (All players) for 999.00 seconds the text: WARNING: Recursion error when dealing damage! Make sure when you deal damage from within a DamageEvent trigger, do it like this: Trigger - Turn off DamageEventTrigger Unit - Cause... Trigger - Turn on DamageEventTrigger
-------- - --------
Custom script: endif
Custom script: set udg_DamageEventOverride = override
Custom script: set udg_DamageEventExplodesUnit = explode
Custom script: set udg_DamageEventPrevAmt = prev
Custom script: set udg_DmgTypPrev = ptype
Custom script: set udg_DamageEventAmount = d
Custom script: set udg_DamageEventSource = s
Custom script: set udg_DamageEventTarget = t
Custom script: set s = null
Custom script: set t = null
Custom script: endfunction
Custom script:
Custom script: function OnDmgEv takes nothing returns boolean
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DamageEvent Equal to 0.00
Then - Actions
Set Variable Set DmgTypPrev = DamageEventType
Custom script: call DmgEvSetVars()
Custom script: call FireDmgEv()
Set Variable Set DamageModifierEvent = "0.00"
Set Variable Set DamageEvent = "0.00"
Set Variable Set DamageEventType = "0"
Else - Actions
Custom script: call FireRecursiveDmgEv()
Custom script: return false
Custom script: endfunction
Custom script:
Custom script: function CreateDmgEv takes nothing returns nothing
Custom script: set udg_DamageEventTrigger = CreateTrigger()
Custom script: call TriggerAddCondition(udg_DamageEventTrigger, Filter(function OnDmgEv))
Custom script: endfunction
Custom script:
Custom script: function SetupDmgEv takes nothing returns boolean
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitIndexEvent Equal to 1.00
Then - Actions
Set Variable Set TempUnit = UDexUnits[UDex]
Custom script: if GetUnitAbilityLevel(udg_TempUnit, 'Aloc') == 0 and DmgEvFilter() then
Set Variable Set UnitDamageRegistered[UDex] = "true"
Trigger - Add to DamageEventTrigger the event (TempUnit Takes damage)
Custom script: endif
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitDamageRegistered[UDex] Equal to True
Then - Actions
Set Variable Set UnitDamageRegistered[UDex] = "false"
Set Variable Set DamageEventsWasted = (DamageEventsWasted + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DamageEventsWasted Equal to 15
Then - Actions
Set Variable Set DamageEventsWasted = "0"
Custom script: call DestroyTrigger(udg_DamageEventTrigger)
Custom script: call CreateDmgEv()
Set Variable Set UDex = UDexNext[0]
Custom script: loop
Custom script: exitwhen udg_UDex == 0
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitDamageRegistered[UDex] Equal to True
Then - Actions
Trigger - Add to DamageEventTrigger the event (UDexUnits[UDex] Takes damage)
Else - Actions
Set Variable Set UDex = UDexNext[UDex]
Custom script: endloop
Else - Actions
Else - Actions
Custom script: return false
Custom script: endfunction
Custom script:
Custom script: function InitDamageEvent takes nothing returns nothing
Custom script: call CreateDmgEv()
Custom script: call TriggerAddCondition(GetTriggeringTrigger(), Filter(function SetupDmgEv))
Set Variable Set UnitIndexerEnabled = "false"
Custom script: set udg_TempUnit = CreateUnit(Player(15), 'uloc', 0, 0, 0)
Set Variable Set UnitIndexerEnabled = "true"
Unit - Add DamageBlockingAbility to TempUnit
Unit - Remove TempUnit from the game
Trigger - Run (This trigger) (checking conditions)
Unit Indexer gives you an array-safe (1-8190) custom value for units, eliminating the need for hashtables to store unit-specific data.
Just use "Set MyArrayData[(Custom value of Unit)] = (Some data)".
--------
If you want to get the unit assigned to an index (reverse lookup) use "UDexUnits[(Index)]".
--------
If you want to detect when an index is created or when it is released, use "UnitIndexEvent Equal to 1.00" (created) or "UnitIndexEvent Equal to 2.00" (released). The index being created/released is called "UDex".
--------
You can enable/disable Unit Indexer to protect some of your undesirable units from being indexed like this:

Trigger - Turn off Unit Indexer <gen>
Unit - Create 1 Dummy for (Triggering player) at TempPoint facing 0.00 degrees
Trigger - Turn on Unit Indexer <gen>
--------
If you want to use a Map Initialization trigger that uses custom value of units, to make sure that UnitIndexer initializes first, use the event "UnitIndexEvent Equal to 3.00". Otherwise the custom value of units may be zero.
--------
Advanced:
--------
If you want to lock the index of a unit, use "Set UnitIndexLock[(Index)] = (UnitIndexLock[(Index)] + 1)". This will prevent the index from being recycled. If you want to unlock it and allow it to be recycled, run the Unit Indexer <gen> trigger.

Note: Make sure if you add a lock that you will eventually remove the lock, otherwise the index will never be recycled.
Unit Indexer
Events
Map initialization
Conditions
Actions
Custom script: call ExecuteFunc("InitializeUnitIndexer")
Custom script: endfunction
Custom script:
Custom script: function ClearUnitIndex takes nothing returns nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Custom value of UDexUnits[UDex]) Equal to 0
Then - Actions
Set Variable Set UnitIndexLock[UDex] = (UnitIndexLock[UDex] - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitIndexLock[UDex] Equal to 0
Then - Actions
Set Variable Set UDexNext[UDexPrev[UDex]] = UDexNext[UDex]
Set Variable Set UDexPrev[UDexNext[UDex]] = UDexPrev[UDex]
Set Variable Set UDexPrev[UDex] = "0"
Set Variable Set UnitIndexEvent = "0.00"
Set Variable Set UnitIndexEvent = "2.00"
Set Variable Set UnitIndexEvent = "0.00"
Set Variable Set UDexUnits[UDex] = No unit
Set Variable Set UDexNext[UDex] = UDexRecycle
Set Variable Set UDexRecycle = UDex
Else - Actions
Else - Actions
Custom script: endfunction
Custom script:
Custom script: function IndexUnit takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
Custom script: local integer ndex
-------- - --------
-------- You can customize the following block - if conditions are false the (Matching unit) won't be indexed. --------
-------- - --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitIndexerEnabled Equal to True
(Custom value of (Matching unit)) Equal to 0
Then - Actions
Set Variable Set UDexWasted = (UDexWasted + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UDexWasted Equal to 15
Then - Actions
Set Variable Set UDexWasted = "0"
Set Variable Set UDex = UDexNext[0]
Custom script: loop
Custom script: exitwhen udg_UDex == 0
Custom script: set ndex = udg_UDexNext[udg_UDex]
Custom script: call ClearUnitIndex()
Custom script: set udg_UDex = ndex
Custom script: endloop
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UDexRecycle Equal to 0
Then - Actions
Set Variable Set UDex = (UDexGen + 1)
Set Variable Set UDexGen = UDex
Else - Actions
Set Variable Set UDex = UDexRecycle
Set Variable Set UDexRecycle = UDexNext[UDex]
Set Variable Set UDexUnits[UDex] = (Matching unit)
Unit - Set the custom value of UDexUnits[UDex] to UDex
Set Variable Set UDexPrev[UDexNext[0]] = UDex
Set Variable Set UDexNext[UDex] = UDexNext[0]
Set Variable Set UDexNext[0] = UDex
Set Variable Set UnitIndexLock[UDex] = "1"
Set Variable Set UnitIndexEvent = "0.00"
Set Variable Set UnitIndexEvent = "1.00"
Set Variable Set UnitIndexEvent = "0.00"
Custom script: set udg_UDex = pdex
Else - Actions
Custom script: return false
Custom script: endfunction
Custom script:
Custom script: function InitializeUnitIndexer takes nothing returns nothing
Custom script: local integer i = 16
Custom script: local boolexpr b = Filter(function IndexUnit)
Custom script: local region re = CreateRegion()
Custom script: local trigger t = GetTriggeringTrigger()
Custom script: local rect r = GetWorldBounds()
Custom script: call RegionAddRect(re, r)
Custom script: call TriggerRegisterEnterRegion(t, re, b)
Custom script: call TriggerClearActions(t)
Custom script: call TriggerAddAction(t, function ClearUnitIndex)
Set Variable Set UnitIndexerEnabled = "true"
Custom script: loop
Custom script: set i = i - 1
Custom script: call GroupEnumUnitsOfPlayer(bj_lastCreatedGroup, Player(i), b)
Custom script: exitwhen i == 0
Custom script: endloop
Custom script: call RemoveRect(r)
Custom script: set re = null
Custom script: set r = null
Custom script: set t = null
Custom script: set b = null
Set Variable Set UnitIndexEvent = "3.00"
Set Variable Set UnitIndexEvent = "0.00"
Magic absorption ability:

To import this ability you have to copy all custom abilities/units/etc. on this map, and the folders named "Requirements"and "SPELL".
MA Globals
Events
Conditions
Actions
Set Variable Set MA_MagicCount[0] = "0"
//*********************************************************************************************************************//
// Ability: Magic absorption //
// Level: 1 / 2 / 3 //
// //
// Effect: the hero begins to absorb magical energy when attack the enemies, //
you can free up the energy for obtain AS and MS or damage. Can absorb up to 20/35/50 times. //
// //
// ____/¯\__\|/__/\ //
// / \ //
//*********************************************************************************************************************//
// Enjoy!!! | O 0 | //
// | ____o__ | //
// | |__ | | //
// \ \__\__/ / Date: 18/04/2012 //
//*********************************************************************************************************************//
// | KHAOS | //
// | | MACHINE | | //
// | \ | | //
// \_|_|_/__ ____\_|/ //
// / o \ / o \ //
// | o o | | o o | //
// \_______/\_/\______/ //
//*********************************************************************************************************************//
//TESH.scrollpos=51
//TESH.alwaysfold=0
//*************************************************************
//TEST THE SPELL FIRST TO CONFIGURE ANYTHING BELOW THIS
//*************************************************************

function MA_HeroAbility takes nothing returns integer
    return 'A001'
//Rawcode of the hero spell
endfunction

function MA_DMGBonusAbilityInfo takes nothing returns integer
    return 'A002'
//Rawcode of the damage bonus ability for the hero
endfunction

function MA_SPDBonusAbilityInfo takes nothing returns integer
    return 'A003'
//Rawcode of the speed bonus ability for the hero
endfunction

function MA_DamageAbility takes nothing returns integer
    return 'A005'
//Rawcode of the ability that gives the damage bonus to the hero
endfunction

function MA_SpeedAbility takes nothing returns integer
    return 'A004'
//Rawcode of the ability that gives the speed bonus to the hero
endfunction

function MA_Dummy takes nothing returns integer
    return 'u000'
//Rawcode of the dummy that cast the bonus spells
endfunction

function MA_DamageOrder takes nothing returns string
    return "innerfire"
//The order to cast the damage bonus spell
endfunction

function MA_SpeedOrder takes nothing returns string
    return "bloodlust"
//The order to cast the speed bonus spell
endfunction

function MA_ChargesPerLevel takes integer level returns integer
    return 5 + 15 * level
//Max charges per level, you can change this relationated with the bonus spells on the object editor
endfunction

//*************************************************************
//TOUCH ANYTHING BELOW THIS ONLY IF YOU KNOW JASS
//*************************************************************

function MA1_Actions takes nothing returns boolean
    local unit u = GetTriggerUnit()
    if GetLearnedSkill() == MA_HeroAbility() and GetLearnedSkillLevel() == 1 then
        call UnitAddAbility(u, MA_DMGBonusAbilityInfo())
        call UnitAddAbility(u, MA_SPDBonusAbilityInfo())
    endif
    set u = null
    return false
endfunction

function MA2_Actions takes nothing returns boolean
    local unit a = udg_DamageEventSource
    local unit t = udg_DamageEventTarget
    local texttag tt
    local integer i
    local integer level
    local string st
    if IsUnitEnemy(a, GetOwningPlayer(t)) and GetUnitAbilityLevel(a, MA_HeroAbility()) > 0 and not IsUnitType(t, UNIT_TYPE_DEAD) and not IsUnitType(t, UNIT_TYPE_STRUCTURE) and not IsUnitType(t, UNIT_TYPE_MAGIC_IMMUNE) then
        set i = GetUnitUserData(a)
        set level = GetUnitAbilityLevel(a, MA_HeroAbility())
        if udg_MA_MagicCount[i] < MA_ChargesPerLevel(level) then
            set udg_MA_MagicCount[i] = udg_MA_MagicCount[i] + 1
            if GetLocalPlayer() == GetOwningPlayer(a) then
                set st = I2S(udg_MA_MagicCount[i])
            endif
            set tt = CreateTextTag()
            call SetTextTagText(tt, st, 0.028)
            call SetTextTagPos(tt, GetUnitX(a), GetUnitY(a) + 75, 160)
            call SetTextTagColor(tt, 100, 180, 255, 255)
            call SetTextTagVisibility(tt, true)
            call SetTextTagVelocity(tt, 0, 0.03)
            call SetTextTagFadepoint(tt, 0.25)
            call SetTextTagLifespan(tt, 0.4)
            call SetTextTagPermanent(tt, false)
        endif
    endif
    set a = null
    set t = null
    return false
endfunction

function MA3_Actions takes nothing returns boolean
    local unit caster = GetTriggerUnit()
    local integer unitId = GetUnitUserData(caster)
    local integer abilityId
    local unit dummy
    
    if udg_MA_MagicCount[unitId] > 0 then
        set abilityId = GetSpellAbilityId()

        if abilityId == MA_DMGBonusAbilityInfo() then

            set dummy = CreateUnit(GetOwningPlayer(caster), MA_Dummy(), GetUnitX(caster), GetUnitY(caster), 0)
            call UnitAddAbility(dummy, MA_DamageAbility())
            call SetUnitAbilityLevel(dummy, MA_DamageAbility(), udg_MA_MagicCount[unitId])
            call IssueTargetOrder(dummy, MA_DamageOrder(), caster)
            call UnitApplyTimedLife(dummy, 'BTLF', 0.5)
            set udg_MA_MagicCount[unitId] = 0
            set dummy = null

        elseif abilityId == MA_SPDBonusAbilityInfo() then

            set dummy = CreateUnit(GetOwningPlayer(caster), MA_Dummy(), GetUnitX(caster), GetUnitY(caster), 0)
            call UnitAddAbility(dummy, MA_SpeedAbility())
            call SetUnitAbilityLevel(dummy, MA_SpeedAbility(), udg_MA_MagicCount[unitId])
            call IssueTargetOrder(dummy, MA_SpeedOrder(), caster)
            call UnitApplyTimedLife(dummy, 'BTLF', 0.5)
            set udg_MA_MagicCount[unitId] = 0
            set dummy = null

        endif

    endif

    set caster = null
    return false
endfunction

function InitTrig_MA takes nothing returns nothing
    local trigger t = CreateTrigger()
    local unit u = CreateUnit(Player(0), MA_Dummy(), 0, 0, 0)
    call UnitAddAbility(u, MA_DMGBonusAbilityInfo())
    call UnitAddAbility(u, MA_SPDBonusAbilityInfo())
    call UnitAddAbility(u, MA_SpeedAbility())
    call UnitAddAbility(u, MA_DamageAbility())
    call RemoveUnit(u)
    set u = null
    call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_HERO_SKILL)
    call TriggerAddCondition(t, Condition(function MA1_Actions))
    set t = CreateTrigger()
    call TriggerRegisterVariableEvent(t, "udg_DamageEvent", EQUAL, 1.00)
    call TriggerAddCondition(t, Condition(function MA2_Actions))
    set t = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(t, Condition(function MA3_Actions))
    set t = null
endfunction
Top