Community
Maps
Tutorials
Gallery
Support Us
Install the app
-
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.
- Home
- Forums
- Warcraft III
- Maps & Resources
- Spells and Systems
- Commander System v1.00
- Commander System v1.0
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
Triggers
Commander System v1.0.w3x
Variables
Test
Periodic
Melee Initialization
Unit Indexer
System
TroopInit
TroopEnter
TroopLeave
CommanderCheck
TroopGet
CommanderDeath
TroopCheck
Enter map-specific custom script code below. This text will be included in the map script after variables are declared and before any trigger code.
| Name | Type | is_array | initial_value |
| Commanders | group | No | |
| CommanderStatusAbil | abilcode | No | |
| CommanderTroopCount | integer | Yes | |
| CommanderTroops | group | Yes | |
| LoopIntA | integer | No | |
| MaxTroopDistance | real | No | |
| MaxTroops | integer | No | |
| TempPointA | location | No | |
| TempPointB | location | No | |
| TempUnitA | unit | No | |
| TempUnitB | unit | No | |
| TroopGetRange | real | No | |
| Troops | group | No | |
| TroopStatusAbil | abilcode | No | |
| UDex | integer | No | |
| UDexGen | integer | No | |
| UDexNext | integer | Yes | |
| UDexPrev | integer | Yes | |
| UDexRecycle | integer | No | |
| UDexUnits | unit | Yes | |
| UDexWasted | integer | No | |
| UnitCommander | unit | Yes | |
| UnitIndexerEnabled | boolean | No | |
| UnitIndexEvent | real | No |
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Periodic_Actions takes nothing returns nothing
local location l = Location(0,0)
call DisplayTextToPlayer(GetLocalPlayer(),0,0,I2S(GetHandleId(l)-1000000))
call RemoveLocation(l)
set l = null
endfunction
//===========================================================================
function InitTrig_Periodic takes nothing returns nothing
set gg_trg_Periodic = CreateTrigger( )
call TriggerRegisterTimerEventPeriodic( gg_trg_Periodic, 1.00 )
call TriggerAddAction( gg_trg_Periodic, function Trig_Periodic_Actions )
endfunction
Default melee game initialization for all players
Melee Initialization
Events
Map initialization
Conditions
Actions
Unit Group - Add Footman 0000 <gen> to Commanders
Unit - Add CommanderStatus to Footman 0000 <gen>
Unit Group - Add Footman 0021 <gen> to Commanders
Unit - Add CommanderStatus to Footman 0021 <gen>
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.
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 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"
TroopInit
Events
Map initialization
Conditions
Actions
-------- Configurables --------
Set Variable Set MaxTroopDistance = "1280.00"
Set Variable Set MaxTroops = "6"
Set Variable Set TroopGetRange = "256.00"
Set Variable Set TroopStatusAbil = "A001"
Set Variable Set CommanderStatusAbil = "A000"
-------- Picking all previously placed units --------
Set Variable Set TempPointA = (Point(0, 0))
Custom script: call DestroyGroup(udg_Troops)
Set Variable Set Troops = (Units within 90000.00 of TempPointA matching ((Level of TroopStatus for (Matching unit)) Greater than 0).)
Custom script: call DestroyGroup(udg_Commanders)
Set Variable Set Commanders = (Units within 90000.00 of TempPointA matching ((Level of CommanderStatus for (Matching unit)) Greater than 0).)
Custom script: call RemoveLocation(udg_TempPointA)
-------- All done. Display debug message to prove it. --------
Game - Display to (All players) the text: Commander System Init finished!
TroopEnter
Events
Unit - A unit enters (Playable map area)
Conditions
Actions
Set Variable Set TempUnitA = (Triggering unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TempUnitA is in Commanders.) Equal to False
(Level of CommanderStatusAbil for TempUnitA) Greater than 0
Then - Actions
Unit Group - Add TempUnitA to Commanders
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TempUnitA is in Troops.) Equal to False
(Level of TroopStatusAbil for TempUnitA) Greater than 0
Then - Actions
Unit Group - Add TempUnitA to Troops
Else - Actions
Set Variable Set TempUnitA = No unit
TroopLeave
Events
Unit - A unit Dies
Conditions
Actions
Set Variable Set TempUnitA = (Triggering unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TempUnitA is in Commanders.) Equal to True
Then - Actions
Unit Group - Remove TempUnitA from Commanders .
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TempUnitA is in Troops.) Equal to True
Then - Actions
Unit Group - Remove TempUnitA from Troops .
Else - Actions
CommanderCheck
Events
Time - Every 5.00 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in Commanders and do (Actions)
Loop - Actions
Set Variable Set TempUnitA = (Picked unit)
Unit Group - Pick every unit in CommanderTroops[(Custom value of TempUnitA)] and do (Actions)
Loop - Actions
Set Variable Set TempUnitB = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of TempUnitB) Not equal to (Owner of TempUnitA)
Then - Actions
Unit Group - Remove TempUnitB from CommanderTroops[(Custom value of TempUnitA)] .
Set Variable Set CommanderTroopCount[(Custom value of TempUnitA)] = (CommanderTroopCount[(Custom value of TempUnitA)] - 1)
Set Variable Set UnitCommander[(Custom value of TempUnitB)] = No unit
Else - Actions
TroopGet
Events
Time - Every 0.59 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in Commanders and do (Actions)
Loop - Actions
Set Variable Set TempUnitA = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in CommanderTroops[(Custom value of TempUnitA)]) Less than MaxTroops
Then - Actions
Set Variable Set TempPointA = (Position of TempUnitA)
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within TroopGetRange of TempPointA.) and do (Actions)
Loop - Actions
Set Variable Set TempUnitB = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
CommanderTroopCount[(Custom value of TempUnitA)] Less than MaxTroops
UnitCommander[(Custom value of TempUnitB)] Equal to No unit
TempUnitB Not equal to TempUnitA
(Level of TroopStatusAbil for TempUnitB) Greater than 0
Then - Actions
Unit - Change ownership of TempUnitB to (Owner of TempUnitA) and Change color
Unit Group - Add TempUnitB to CommanderTroops[(Custom value of TempUnitA)]
Set Variable Set CommanderTroopCount[(Custom value of TempUnitA)] = (CommanderTroopCount[(Custom value of TempUnitA)] + 1)
Set Variable Set UnitCommander[(Custom value of TempUnitB)] = TempUnitA
Else - Actions
Custom script: call RemoveLocation(udg_TempPointA)
Else - Actions
CommanderDeath
Events
Unit - A unit Dies
Conditions
((Triggering unit) is in Commanders.) Equal to True
Actions
Set Variable Set TempUnitA = (Triggering unit)
Unit Group - Remove TempUnitA from Commanders .
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in CommanderTroops[(Custom value of TempUnitA)] and do (Actions)
Loop - Actions
Unit Group - Remove (Picked unit) from CommanderTroops[(Custom value of TempUnitA)] .
Set Variable Set CommanderTroopCount[(Custom value of TempUnitA)] = (CommanderTroopCount[(Custom value of TempUnitA)] - 1)
TroopCheck
Events
Time - Every 3.01 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in Troops and do (Actions)
Loop - Actions
Set Variable Set TempUnitA = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of UnitCommander[(Custom value of TempUnitA)]) Equal to No unit-type
UnitCommander[(Custom value of TempUnitA)] Not equal to No unit
Then - Actions
Unit - Change ownership of TempUnitA to Neutral Passive and Change color
Set Variable Set UnitCommander[(Custom value of TempUnitA)] = No unit
Else - Actions
Set Variable Set TempPointA = (Position of TempUnitA)
Set Variable Set TempPointB = (Position of UnitCommander[(Custom value of TempUnitA)])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between TempPointA and TempPointB) Greater than MaxTroopDistance
Then - Actions
Unit Group - Remove TempUnitA from CommanderTroops[(Custom value of UnitCommander[(Custom value of TempUnitA)])] .
Set Variable Set CommanderTroopCount[(Custom value of UnitCommander[(Custom value of TempUnitA)])] = ((Custom value of UnitCommander[(Custom value of TempUnitA)]) - 1)
Unit - Change ownership of TempUnitA to Neutral Passive and Change color
Set Variable Set UnitCommander[(Custom value of TempUnitA)] = No unit
Else - Actions
Custom script: call RemoveLocation(udg_TempPointA)
Custom script: call RemoveLocation(udg_TempPointB)