• 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

Dark Forest.w3x
Variables
Spells
Unit Indexer
Variables
Unit Indexer
Dash
Variables
Dash Cast Point
Dash Cast Instant
Dash Loop
Apotheosis
Sudden Impact
Variables
Monkey King Bar
Initialization
Melee Initialization
Name Type is_array initial_value
Dash__Checks_Pathing boolean Yes
Dash__Duration real Yes
Dash__Interval real Yes
Dash__Speed real Yes
Dash_Angle real Yes
Dash_Caster unit No
Dash_Group group No
Dash_Id integer No
Dash_Is_Stunned boolean Yes
Dash_Item item No
Dash_Point location Yes
Dash_Time real Yes
IsUnitPreplaced boolean Yes
MKB_Angle real No
MKB_Point location Yes
SI_Point location No
tempPoint location No
UDex integer No
UDexGen integer No
UDexNext integer Yes
UDexPrev integer Yes
UDexRecycle integer No
UDexUnits unit Yes
UDexWasted integer No
UnitIndexerEnabled boolean No
UnitIndexEvent real No
This trigger works in two key phases:

1) During map initialization, enumerate all existing units of all players to give them an index.
2) Adds a second event to itself to index new units as they enter the map.

As a unit enters the map, check for any old units that may have been removed at some point in order to free their index.
Unit Indexer
Events
Map initialization
Conditions
Actions
Custom script: call ExecuteFunc("InitializeUnitIndexer")
Custom script: endfunction
-------- --------
-------- This is the core function - it provides an index all existing units and for units as they enter the map --------
-------- --------
Custom script: function IndexUnit takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
Custom script: local integer ndex
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IsUnitPreplaced[0] Equal to False
Then - Actions
-------- --------
-------- Check for removed units for every (32) new units created --------
-------- --------
Set Variable Set UDexWasted = (UDexWasted + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UDexWasted Equal to 32
Then - Actions
Set Variable Set UDexWasted = "0"
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
(Custom value of UDexUnits[UDex]) Equal to 0
Then - Actions
-------- --------
-------- Remove index from linked list --------
-------- --------
Custom script: set ndex = udg_UDexNext[udg_UDex]
Custom script: set udg_UDexNext[udg_UDexPrev[udg_UDex]] = ndex
Custom script: set udg_UDexPrev[ndex] = udg_UDexPrev[udg_UDex]
Set Variable Set UDexPrev[UDex] = "0"
Set Variable Set IsUnitPreplaced[UDex] = "false"
-------- --------
-------- Fire deindex event for UDex --------
-------- --------
Set Variable Set UnitIndexEvent = "2.00"
Set Variable Set UnitIndexEvent = "0.00"
-------- --------
-------- Recycle the index for later use --------
-------- --------
Set Variable Set UDexUnits[UDex] = No unit
Set Variable Set UDexNext[UDex] = UDexRecycle
Set Variable Set UDexRecycle = UDex
Custom script: set udg_UDex = ndex
Else - Actions
Set Variable Set UDex = UDexNext[UDex]
Custom script: endloop
Else - Actions
Else - Actions
-------- --------
-------- You can use the boolean UnitIndexerEnabled to protect some of your undesirable units from being indexed --------
-------- - Example: --------
-------- -- Set UnitIndexerEnabled = False --------
-------- -- Unit - Create 1 Dummy for (Triggering player) at TempLoc facing 0.00 degrees --------
-------- -- Set UnitIndexerEnabled = True --------
-------- --------
-------- You can also 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
-------- --------
-------- Generate a unique integer index for this unit --------
-------- --------
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]
-------- --------
-------- Link index to unit, unit to index --------
-------- --------
Set Variable Set UDexUnits[UDex] = (Matching unit)
Unit - Set the custom value of UDexUnits[UDex] to UDex
Set Variable Set IsUnitPreplaced[UDex] = IsUnitPreplaced[0]
-------- --------
-------- Use a doubly-linked list to store all active indexes --------
-------- --------
Set Variable Set UDexPrev[UDexNext[0]] = UDex
Set Variable Set UDexNext[UDex] = UDexNext[0]
Set Variable Set UDexNext[0] = UDex
-------- --------
-------- Fire index event for UDex --------
-------- --------
Set Variable Set UnitIndexEvent = "0.00"
Set Variable Set UnitIndexEvent = "1.00"
Set Variable Set UnitIndexEvent = "0.00"
Else - Actions
Custom script: set udg_UDex = pdex
Custom script: return false
Custom script: endfunction
-------- --------
-------- The next function initializes the core of the system --------
-------- --------
Custom script: function InitializeUnitIndexer takes nothing returns nothing
Custom script: local integer i = 0
Custom script: local region re = CreateRegion()
Custom script: local rect r = GetWorldBounds()
Custom script: local boolexpr b = Filter(function IndexUnit)
Set Variable Set UnitIndexEvent = "-1.00"
Set Variable Set UnitIndexerEnabled = "true"
Set Variable Set IsUnitPreplaced[0] = "true"
Custom script: call RegionAddRect(re, r)
Custom script: call TriggerRegisterEnterRegion(CreateTrigger(), re, b)
Custom script: call RemoveRect(r)
Custom script: set re = null
Custom script: set r = null
Custom script: loop
Custom script: call GroupEnumUnitsOfPlayer(bj_lastCreatedGroup, Player(i), b)
Custom script: set i = i + 1
Custom script: exitwhen i == bj_MAX_PLAYER_SLOTS
Custom script: endloop
Custom script: set b = null
-------- --------
-------- This is the "Unit Indexer Initialized" event, use it instead of "Map Initialization" for best results --------
-------- --------
Set Variable Set IsUnitPreplaced[0] = "false"
Set Variable Set UnitIndexEvent = "3.00"
Dash Cast Point
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Flare
Actions
Set Variable Set Dash_Caster = (Triggering unit)
Set Variable Set Dash_Id = (Custom value of Dash_Caster)
-------- --------
Set Variable Set Dash_Point[0] = (Position of Dash_Caster)
Set Variable Set Dash_Point[1] = (Target point of ability being cast)
Set Variable Set Dash_Angle[Dash_Id] = (Angle from Dash_Point[0] to Dash_Point[1])
Set Variable Set Dash_Is_Stunned[Dash_Id] = "false"
Custom script: set udg_Dash_Time[udg_Dash_Id] = 0.001
-------- --------
-------- Item used to test pathing: --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Dash_Item Equal to No item
Then - Actions
Item - Create Wirt's Leg at Dash_Point[0]
Set Variable Set Dash_Item = (Last created item)
Item - Make Dash_Item Invulnerable
Item - Hide Dash_Item
Else - Actions
Custom script: call RemoveLocation( udg_Dash_Point[0] )
Custom script: call RemoveLocation( udg_Dash_Point[1] )
-------- --------
-------- Define duration, speed, and interval (caster moves offset by speed per interval): --------
Set Variable Set Dash__Duration[Dash_Id] = "1.00"
Set Variable Set Dash__Speed[Dash_Id] = "10.00"
Set Variable Set Dash__Interval[Dash_Id] = "0.02"
Set Variable Set Dash__Checks_Pathing[Dash_Id] = "true"
-------- --------
Unit Group - Add Dash_Caster to Dash_Group
Trigger - Turn on Dash_Loop <gen>
Dash Cast Instant
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to
Actions
Set Variable Set Dash_Caster = (Triggering unit)
Set Variable Set Dash_Id = (Custom value of Dash_Caster)
-------- --------
Set Variable Set Dash_Angle[Dash_Id] = (Facing of Dash_Caster)
Set Variable Set Dash_Is_Stunned[Dash_Id] = "false"
Custom script: set udg_Dash_Time[udg_Dash_Id] = 0.001
-------- --------
-------- Item used to test pathing: --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Dash_Item Equal to No item
Then - Actions
Set Variable Set Dash_Point[0] = (Position of Dash_Caster)
Item - Create Wirt's Leg at Dash_Point[0]
Set Variable Set Dash_Item = (Last created item)
Item - Make Dash_Item Invulnerable
Item - Hide Dash_Item
Custom script: call RemoveLocation( udg_Dash_Point[0] )
Else - Actions
-------- --------
-------- Define duration, speed, and interval (caster moves offset by speed per interval): --------
Set Variable Set Dash__Duration[Dash_Id] = "1.00"
Set Variable Set Dash__Speed[Dash_Id] = "10.00"
Set Variable Set Dash__Interval[Dash_Id] = "0.02"
Set Variable Set Dash__Checks_Pathing[Dash_Id] = "true"
-------- --------
Unit Group - Add Dash_Caster to Dash_Group
Trigger - Turn on Dash_Loop <gen>
Dash Loop
Events
Time - Every 0.01 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in Dash_Group and do (Actions)
Loop - Actions
Set Variable Set Dash_Caster = (Picked unit)
Set Variable Set Dash_Id = (Custom value of Dash_Caster)
Set Variable Set Dash_Time[Dash_Id] = (Dash_Time[Dash_Id] + Dash__Interval[Dash_Id])
-------- --------
-------- Play an ANIMATION of your choice and disable the caster: --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Dash_Is_Stunned[Dash_Id] Equal to False
Then - Actions
Set Variable Set Dash_Is_Stunned[Dash_Id] = "true"
Custom script: call BlzPauseUnitEx( udg_Dash_Caster, true )
Animation - Play Dash_Caster 's attack animation
Animation - Queue Dash_Caster 's walk animation
Else - Actions
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Dash_Time[Dash_Id] Greater than or equal to Dash__Interval[Dash_Id]
Then - Actions
Custom script: set udg_Dash_Time[udg_Dash_Id] = 0.001
Set Variable Set Dash_Point[0] = (Position of Dash_Caster)
Set Variable Set Dash_Point[1] = (Dash_Point[0] offset by Dash__Speed[Dash_Id] towards Dash_Angle[Dash_Id] degrees.)
-------- --------
-------- Move the unit to the new point (if able): --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Dash__Checks_Pathing[Dash_Id] Equal to False
Then - Actions
Custom script: call SetUnitX( udg_Dash_Caster, GetLocationX( udg_Dash_Point[1] ) )
Custom script: call SetUnitY( udg_Dash_Caster, GetLocationY( udg_Dash_Point[1] ) )
Else - Actions
Item - Move Dash_Item to Dash_Point[1]
Set Variable Set Dash_Point[2] = (Position of Dash_Item)
Item - Hide Dash_Item
-------- --------
-------- NOTE: Adjust the distance check value (15.00 by default) to make the pathing check more+ or less- lenient! --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between Dash_Point[1] and Dash_Point[2]) Less than or equal to 15.00
Then - Actions
Custom script: call SetUnitX( udg_Dash_Caster, GetLocationX( udg_Dash_Point[1] ) )
Custom script: call SetUnitY( udg_Dash_Caster, GetLocationY( udg_Dash_Point[1] ) )
Else - Actions
Custom script: call RemoveLocation( udg_Dash_Point[2] )
-------- --------
Custom script: call RemoveLocation( udg_Dash_Point[0] )
Custom script: call RemoveLocation( udg_Dash_Point[1] )
-------- --------
Set Variable Set Dash__Duration[Dash_Id] = (Dash__Duration[Dash_Id] - Dash__Interval[Dash_Id])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Dash__Duration[Dash_Id] Less than or equal to 0.01
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Dash_Is_Stunned[Dash_Id] Equal to True
Then - Actions
Set Variable Set Dash_Is_Stunned[Dash_Id] = "false"
Custom script: call BlzPauseUnitEx( udg_Dash_Caster, false )
Else - Actions
Unit Group - Remove Dash_Caster from Dash_Group .
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in Dash_Group) Equal to 0
Then - Actions
Trigger - Turn off Dash_Loop <gen>
Else - Actions
Else - Actions
Else - Actions
Apotheosis
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to Metamorphosis
Actions
Set Variable Set tempPoint = (Position of (Triggering unit))
Special Effect - Create a special effect at tempPoint using Abilities\Spells\Human\Resurrect\ResurrectTarget.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation(udg_tempPoint)
Sudden Impact
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to War Stomp
Actions
Set Variable Set SI_Point = (Position of (Triggering unit))
Special Effect - Create a special effect attached to the weapon (Unexpected type: 'attachpoint') of (Triggering unit) using war3mapImported\animeslashfinal.mdx
Wait 0.50 seconds
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation(udg_SI_Point)
Monkey King Bar
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Impale
Actions
-------- Get offsets: --------
Set Variable Set MKB_Point[0] = (Position of (Triggering unit))
Set Variable Set MKB_Point[1] = (Target point of ability being cast)
Set Variable Set MKB_Angle = (Angle from MKB_Point[0] to MKB_Point[1])
Set Variable Set MKB_Point[2] = (MKB_Point[0] offset by 100.00 towards MKB_Angle degrees.)
-------- --------
-------- Boundless Strike: --------
Special Effect - Create a special effect at MKB_Point[0] using war3mapImported\BoundlessStrike-1.mdx
Special Effect - Set Yaw of (Last created special effect) to: (Radians(MKB_Angle))
Special Effect - Destroy (Last created special effect)
-------- --------
-------- War Stomp: --------
Special Effect - Create a special effect at MKB_Point[2] using Abilities\Spells\Orc\WarStomp\WarStompCaster.mdl
Special Effect - Destroy (Last created special effect)
-------- --------
-------- Clean up memory leaks: --------
Custom script: call RemoveLocation( udg_MKB_Point[0] )
Custom script: call RemoveLocation( udg_MKB_Point[1] )
Custom script: call RemoveLocation( udg_MKB_Point[2] )
Default melee game initialization for all players
Melee Initialization
Events
Map initialization
Conditions
Actions
Player Group - Pick every player in (All players) and do (Limit training of Blademaster to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Paladin to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Dark Ranger to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Blood Mage to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Tinker to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Brewmaster to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Brewmaster to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Brewmaster to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Warden to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Dark Ranger to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Warden to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Warden to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Archmage to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Paladin to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Keeper of the Grove to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Blood Mage to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Dark Ranger to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Tauren Chieftain to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Warden to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Mountain King to 1 for (Picked player))
Player Group - Pick every player in (All players) and do (Limit training of Archmage to 1 for (Picked player))
Melee Game - Use melee time of day (for all players)
Melee Game - Limit Heroes to 1 per Hero-type (for all players)
Melee Game - Give trained Heroes a Scroll of Town Portal (for all players)
Melee Game - Set starting resources (for all players)
Melee Game - Remove creeps and critters from used start locations (for all players)
Melee Game - Create starting units (for all players)
Melee Game - Run melee AI scripts (for computer players)
Melee Game - Enforce victory/defeat conditions (for all players)
Top