• 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

Pentagram v1.0.1.w3x
Variables
Pentagram
Pentagram Cast
Pentagram Loop
Unit Indexer
Unit Indexer
Name Type is_array initial_value
ID integer No
PentaEdge1 location Yes
PentaEdge2 location Yes
PentaEdge3 location Yes
PentaEdge4 location Yes
PentaEdge5 location Yes
PentaEdgeRadius real Yes
PG_Caster unit No
PG_Damage real Yes
PG_Integer integer No
PG_NoOfStars integer Yes
PG_Player player No
PG_Point location Yes
PG_SpecialEffect string No
PG_TargetUnit unit No
PGCaster_CurrentPosition location No
PGCaster_Effect effect Yes
PGCaster_Group group No
PGCaster_Position location No
PGCaster_Propwindow real Yes
PGCasterPosition location Yes
StarCreation real Yes
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
How to import:
1. Enable the automatically create unkown variables when pasting trigger; found in File: Preferences
2. Copy the triggers including the Unit Indexer
3. Copy the Dummy Unit
4. Copy the Abilities Pentagram and Dummy Slow
5. Add the Pentagram ability to desired unit
6. You're good to go!

Credits to Bribe for the MUI Spell template, seriously this is my first MUI Spell I'm really grateful to him!
Also for his Unit Indexer
Pentagram Cast
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Pentagram
Actions
-------- --------
-------- Configuration --------
-------- --------
Unit - Make (Triggering unit) Invulnerable
Set Variable Set PG_Caster = (Triggering unit)
-------- Changes the Special Effect used in each edges --------
Set Variable Set PG_SpecialEffect = "Abilities\Spells\Undead\AnimateDead\AnimateDeadTarget.mdl"
Set Variable Set ID = (Custom value of PG_Caster)
Set Variable Set PGCasterPosition[ID] = (Position of PG_Caster)
-------- Tells the damage done every strike --------
Set Variable Set PG_Damage[ID] = "25.00"
-------- Radius affected each strike --------
Set Variable Set PentaEdgeRadius[ID] = "400.00"
-------- Position of caster --------
Set Variable Set PGCaster_Position = (Position of PG_Caster)
-------- Special Effect used for the trail, feel free to change --------
Special Effect - Create a special effect attached to the chest (Unexpected type: 'attachpoint') of PG_Caster using Abilities\Weapons\IllidanMissile\IllidanMissile.mdl
Set Variable Set PGCaster_Effect[ID] = (Last created special effect)
-------- Creates the points for a star --------
Set Variable Set PentaEdge1[ID] = (PGCasterPosition[ID] offset by 256 towards (90.00 + (72.00 x 1)) degrees.)
Set Variable Set PentaEdge2[ID] = (PGCasterPosition[ID] offset by 256 towards (90.00 + (72.00 x 2.00)) degrees.)
Set Variable Set PentaEdge3[ID] = (PGCasterPosition[ID] offset by 256 towards (90.00 + (72.00 x 3.00)) degrees.)
Set Variable Set PentaEdge4[ID] = (PGCasterPosition[ID] offset by 256 towards (90.00 + (72.00 x 4.00)) degrees.)
Set Variable Set PentaEdge5[ID] = (PGCasterPosition[ID] offset by 256 towards (90.00 + (72.00 x 5.00)) degrees.)
-------- How many stars it will create NOTE: 1 is an incomplete star --------
Set Variable Set PG_NoOfStars[ID] = ((Level of Pentagram for (Triggering unit)) + 2)
-------- DON'T EDIT THIS ONE, This tells the creation of a star --------
Set Variable Set StarCreation[ID] = "5.00"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(PGCaster_Group is empty) Equal to True
Then - Actions
Trigger - Turn on Pentagram_Loop <gen>
Else - Actions
Unit Group - Add PG_Caster to PGCaster_Group
Pentagram Loop
Events
Time - Every 0.07 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in PGCaster_Group and do (Actions)
Loop - Actions
Set Variable Set PG_Caster = (Picked unit)
Set Variable Set ID = (Custom value of PG_Caster)
Set Variable Set PG_Player = (Owner of PG_Caster)
Set Variable Set PGCaster_CurrentPosition = (Position of PG_Caster)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
PG_NoOfStars[ID] Greater than 0
Then - Actions
Special Effect - Create a special effect at PGCaster_CurrentPosition using PG_SpecialEffect
Special Effect - Destroy (Last created special effect)
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within PentaEdgeRadius[ID] of PGCaster_CurrentPosition.) and do (Actions)
Loop - Actions
Set Variable Set PG_TargetUnit = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(PG_TargetUnit belongs to an enemy of PG_Player.) Equal to True
Then - Actions
Unit - Create 1 . Dummy (Vexorian, Anitarf, Infrane) for PG_Player at PGCaster_Position facing Default building facing degrees
Unit - Add a 1.00 second Generic expiration timer to (Last created unit)
Unit - Add Dummy Slow to (Last created unit)
Unit - Order (Last created unit) to Human Sorceress - Slow . PG_TargetUnit
Unit - Cause PG_Caster to damage PG_TargetUnit , dealing PG_Damage[ID] damage of attack type Spells and damage type Unknown
Else - Actions
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within PentaEdgeRadius[ID] of PGCaster_Position.) and do (Actions)
Loop - Actions
Set Variable Set PG_TargetUnit = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(PG_TargetUnit belongs to an enemy of PG_Player.) Equal to True
Then - Actions
Unit - Create 1 . Dummy (Vexorian, Anitarf, Infrane) for PG_Player at PGCaster_Position facing Default building facing degrees
Unit - Add a 1.00 second Generic expiration timer to (Last created unit)
Unit - Add Dummy Slow to (Last created unit)
Unit - Order (Last created unit) to Human Sorceress - Slow . PG_TargetUnit
Unit - Cause PG_Caster to damage PG_TargetUnit , dealing PG_Damage[ID] damage of attack type Spells and damage type Unknown
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
StarCreation[ID] Equal to 5.00
Then - Actions
Animation - Play PG_Caster 's attack animation
Unit - Move PG_Caster instantly to PentaEdge4[ID] , facing PentaEdge4[ID]
Set Variable Set StarCreation[ID] = "4.00"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
StarCreation[ID] Equal to 4.00
Then - Actions
Special Effect - Create a special effect at PentaEdge1[ID] using PG_SpecialEffect
Special Effect - Destroy (Last created special effect)
Animation - Play PG_Caster 's attack animation
Unit - Move PG_Caster instantly to PentaEdge1[ID] , facing PentaEdge3[ID]
Set Variable Set StarCreation[ID] = "3.00"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
StarCreation[ID] Equal to 3.00
Then - Actions
Special Effect - Create a special effect at PentaEdge3[ID] using PG_SpecialEffect
Special Effect - Destroy (Last created special effect)
Animation - Play PG_Caster 's attack animation
Unit - Move PG_Caster instantly to PentaEdge3[ID] , facing PentaEdge5[ID]
Set Variable Set StarCreation[ID] = "2.00"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
StarCreation[ID] Equal to 2.00
Then - Actions
Special Effect - Create a special effect at PentaEdge5[ID] using PG_SpecialEffect
Special Effect - Destroy (Last created special effect)
Animation - Play PG_Caster 's attack animation
Unit - Move PG_Caster instantly to PentaEdge5[ID] , facing PentaEdge2[ID]
Set Variable Set StarCreation[ID] = "1.00"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
StarCreation[ID] Equal to 1.00
Then - Actions
Special Effect - Create a special effect at PentaEdge2[ID] using PG_SpecialEffect
Special Effect - Destroy (Last created special effect)
Animation - Play PG_Caster 's attack animation
Unit - Move PG_Caster instantly to PentaEdge2[ID] , facing PentaEdge4[ID]
Set Variable Set StarCreation[ID] = "0.00"
Set Variable Set PG_NoOfStars[ID] = (PG_NoOfStars[ID] - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
PG_NoOfStars[ID] Greater than 0
Then - Actions
Set Variable Set StarCreation[ID] = "5.00"
Else - Actions
Unit - Move PG_Caster instantly to PGCasterPosition[ID] , facing PGCaster_Position
Else - Actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
PG_NoOfStars[ID] Equal to 0
Then - Actions
Special Effect - Destroy PGCaster_Effect[ID]
Unit - Make PG_Caster Vulnerable
Unit - Unpause PG_Caster
Unit Group - Remove PG_Caster from PGCaster_Group .
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(PGCaster_Group is empty) Equal to True
Then - Actions
Custom script: call RemoveLocation(udg_PGCaster_Position)
Custom script: call RemoveLocation(udg_PentaEdge1[udg_ID])
Custom script: call RemoveLocation(udg_PentaEdge2[udg_ID])
Custom script: call RemoveLocation(udg_PentaEdge3[udg_ID])
Custom script: call RemoveLocation(udg_PentaEdge4[udg_ID])
Custom script: call RemoveLocation(udg_PentaEdge5[udg_ID])
Trigger - Turn off Pentagram_Loop <gen>
Else - Actions
Else - Actions
This trigger works in two key phases:

1) During map initialization, enumerate all 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 most important function - it provides an index for units as they enter the map --------
-------- --------
Custom script: function IndexUnit takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
-------- --------
-------- 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
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
-------- --------
-------- 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"
Custom script: set udg_UDex = pdex
Else - Actions
Custom script: return false
Custom script: endfunction
-------- --------
-------- The next function is called each time a unit enters the map --------
-------- --------
Custom script: function IndexNewUnit takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
Custom script: local integer ndex
-------- --------
-------- Recycle indices of units no longer in-play every (15) 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 15
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"
-------- --------
-------- 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
Custom script: set udg_UDex = pdex
Else - Actions
-------- --------
-------- Handle the entering unit (Matching unit) --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Custom value of (Matching unit)) Equal to 0
Then - Actions
Custom script: call IndexUnit()
Else - Actions
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()
Set Variable Set UnitIndexerEnabled = "true"
Custom script: call RegionAddRect(re, r)
Custom script: call TriggerRegisterEnterRegion(CreateTrigger(), re, Filter(function IndexNewUnit))
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), Filter(function IndexUnit))
Custom script: set i = i + 1
Custom script: exitwhen i == 16
Custom script: endloop
-------- --------
-------- This is the "Unit Indexer Initialized" event, use it instead of "Map Initialization" for best results --------
-------- --------
Set Variable Set UnitIndexEvent = "3.00"
Set Variable Set UnitIndexEvent = "0.00"
Top