• 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

GuardPosts 1.3 (GUI).w3x
Variables
Unrelated
Description
Melee Initialization
Camera
Resource
Required System
NOTE: Any Unit Indexer will do
Unit Indexer
Guard Post
Guard Post Setup
Guard Post Form
Guard Post Movements
Guard Post Remove
Demo and Instructions
Training
All Units
AI Attacking
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.
//TESH.scrollpos=0
//TESH.alwaysfold=0
Name Type is_array initial_value
GP_Back integer Yes
GP_BackToBase integer Yes
GP_Distance real No
GP_Engage boolean Yes
GP_EngageWhileTraveling boolean No
GP_Fac real Yes
GP_FacingAngle real No
GP_GuardingGroup group No
GP_GuardingUnit unit No
GP_GuardWhere location No
GP_Index integer No
GP_MinimumDelayBackToBase integer No
GP_MinimumPerimeter real No
GP_Per real Yes
GP_Perimeter real No
GP_TempGroup group No
GP_U unit Yes
GP_UI integer No
GP_X real Yes
GP_Y 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
UNRELATED_VARIABLE location Yes
UNRELATED_VARIABLE_UNIT unit No 
//TESH.scrollpos=0
//TESH.alwaysfold=0
[tabs]
[tab=Foreword]
This system allows a unit to guard a certain place or point and attacks any entruders that goes within the guarded perimeter.
[/tab]

[tab=Installation]
- Be sure to check the 'Automatically create unknown variables while pasting trigger data' via File>>>Preferences>>>General tab
- Copy the Unit Indexer to your map (or any Unit Indexer will do)
- Copy the Guard Post folder to your map, be sure to check the ''
[/tab]

[tab=Instructions]
[B]First, set certain variables;[/B]
[COLOR="Orange"]GP_GuardingUnit[/COLOR] = The unit you want to be guarding
[COLOR="Orange"]GP_GuardWhere[/COLOR] = The point where the unit is guarding
[COLOR="orange"]GP_Perimeter[/COLOR] = Guard units will attack any enemy that is in range
[COLOR="orange"]GP_FacingAngle[/COLOR] = This is optional, when unit has no work he will face that angle
[COLOR="orange"]GP_EngageWhileTraveling[/COLOR] = Also optional, default is false, it engages anemy units while going to the place he guards

[B]Then at the last, run the;[/B]
[trigger]Trigger - Run Guard Post Form <gen> (ignoring conditions)[/trigger]

[B]Like this;[/B]
[trigger]
All Units
    Events
        Time - Elapsed game time is 0.00 seconds
    Conditions
    Actions
        Unit Group - Pick every unit in (Units in (Playable map area)) and do (Actions)
            Loop - Actions
                -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
                -------- Sets the Guard unit --------
                -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
                Set GP_GuardingUnit = (Picked unit)
                -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
                -------- Sets the location point of where the unit will guard --------
                -------- You do not need to remove the location coz it will be removed from the system automatically --------
                -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
                Set GP_GuardWhere = (Position of (Picked unit))
                -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
                -------- Sets the range perimeter from the location where the unit is guarding --------
                -------- If an enemy unit is in range, he will engage --------
                -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
                Set GP_Perimeter = 1000.00
                -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
                -------- Facing angle and Engage while traveling are optional --------
                -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
                Set GP_FacingAngle = 30.00
                Set GP_EngageWhileTraveling = True
                -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
                -------- Store the guard unit to the system --------
                -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
                Trigger - Run Guard Post Form <gen> (ignoring conditions)
        -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
        -------- If you want to remove the unit from the system, just do this --------
        -------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
        Set GP_GuardingUnit = Mountain King 0010 <gen>
        Trigger - Run Guard Post Remove <gen> (ignoring conditions)
[/trigger]

[B][I]For more info, check the [COLOR="Orange"]Demo and Instructions [/COLOR]folder[/I][/B]
[/tab]

[tab=Trigger]
[trigger]
Guard Post Setup
    Events
        Map initialization
    Conditions
    Actions
        -------- All settings here are default and recommended --------
        -------- ======================================= --------
        -------- The minimum perimeter of the location where the unit is guarding --------
        -------- ======================================= --------
        Set GP_MinimumPerimeter = 200.00
        -------- ======================================= --------
        -------- If the unit doesnt have orders or no more enemies around, it will go back to it's guarding post --------
        -------- Calculation is 1x3 since the Movement is every 3 seconds --------
        -------- ======================================= --------
        Set GP_MinimumDelayBackToBase = 1
[/trigger]

[trigger]
Guard Post Form
    Events
    Conditions
    Actions
        -------- ======================================= --------
        -------- Take note that if you cause an error message, the location variable will leak --------
        -------- ======================================= --------
        If (All Conditions are True) then do (Then Actions) else do (Else Actions)
            If - Conditions
                GP_GuardingUnit Equal to No unit
            Then - Actions
                Game - Display to (All players) the text: Guard Post Error: C...
                Skip remaining actions
            Else - Actions
                If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                    If - Conditions
                        GP_Perimeter Less than GP_MinimumPerimeter
                    Then - Actions
                        Game - Display to (All players) the text: (Guard Post Error:  + (Minimum Perimeter should be  + (String(GP_MinimumPerimeter))))
                        Skip remaining actions
                    Else - Actions
                        If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                            If - Conditions
                                (GP_GuardingUnit is in GP_GuardingGroup) Equal to True
                            Then - Actions
                                Game - Display to (All players) the text: (Guard Post Error:  + ((Name of GP_GuardingUnit) +  is already added as a guard, remove it first))
                                Skip remaining actions
                            Else - Actions
        AI - Ignore GP_GuardingUnit's guard position
        Set GP_UI = (Custom value of GP_GuardingUnit)
        Set GP_U[GP_UI] = GP_GuardingUnit
        Set GP_Per[GP_UI] = GP_Perimeter
        Set GP_Fac[GP_UI] = GP_FacingAngle
        Set GP_BackToBase[GP_UI] = GP_MinimumDelayBackToBase
        Set GP_Back[GP_UI] = GP_MinimumDelayBackToBase
        Set GP_Engage[GP_UI] = GP_EngageWhileTraveling
        Set GP_EngageWhileTraveling = False
        Unit - Order GP_GuardingUnit to Attack-Move To GP_GuardWhere
        Custom script:   set udg_GP_X[udg_GP_UI] = GetLocationX(udg_GP_GuardWhere)
        Custom script:   set udg_GP_Y[udg_GP_UI] = GetLocationY(udg_GP_GuardWhere)
        Custom script:   call RemoveLocation(udg_GP_GuardWhere)
        If (All Conditions are True) then do (Then Actions) else do (Else Actions)
            If - Conditions
                GP_Index Equal to 0
            Then - Actions
                Trigger - Turn on Guard Post Movements <gen>
            Else - Actions
        Set GP_Index = (GP_Index + 1)
        Unit Group - Add GP_U[GP_UI] to GP_GuardingGroup
[/trigger]

[trigger]
Guard Post Movements
    Events
        Time - Every 3.00 seconds of game time
    Conditions
    Actions
        Unit Group - Pick every unit in GP_GuardingGroup and do (Actions)
            Loop - Actions
                Custom script:   local unit first
                Custom script:   local real xGuard
                Custom script:   local real yGuard
                Set GP_UI = (Custom value of (Picked unit))
                If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                    If - Conditions
                        (GP_U[GP_UI] is alive) Equal to True
                    Then - Actions
                        Custom script:   set xGuard = GetUnitX(udg_GP_U[udg_GP_UI])
                        Custom script:   set yGuard = GetUnitY(udg_GP_U[udg_GP_UI])
                        Custom script:   set udg_GP_Distance = (udg_GP_X[udg_GP_UI] - xGuard)*(udg_GP_X[udg_GP_UI] - xGuard)+(udg_GP_Y[udg_GP_UI] - yGuard*(udg_GP_Y[udg_GP_UI] - yGuard))
                        If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                            If - Conditions
                                GP_Distance Greater than or equal to (GP_Per[GP_UI] x GP_Per[GP_UI])
                            Then - Actions
                                -------- ======================================= --------
                                -------- Engage enemies while going to base if the condition is true --------
                                -------- Or just moves to the base if away from perimeter --------
                                -------- ======================================= --------
                                If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                                    If - Conditions
                                        GP_Engage[GP_UI] Equal to True
                                    Then - Actions
                                        Custom script:   call IssuePointOrderById(udg_GP_U[udg_GP_UI], 851983, udg_GP_X[udg_GP_UI], udg_GP_Y[udg_GP_UI])
                                    Else - Actions
                                        Custom script:   call IssuePointOrderById(udg_GP_U[udg_GP_UI], 851986, udg_GP_X[udg_GP_UI], udg_GP_Y[udg_GP_UI])
                            Else - Actions
                                -------- ======================================= --------
                                -------- Searches for enemy units within the perimeter --------
                                -------- ======================================= --------
                                Custom script:   call GroupEnumUnitsInRange(udg_GP_TempGroup, udg_GP_X[udg_GP_UI], udg_GP_Y[udg_GP_UI], udg_GP_Per[udg_GP_UI], null)
                                Custom script:   loop
                                Custom script:   set first = FirstOfGroup(udg_GP_TempGroup)
                                Custom script:   exitwhen first==null
                                Custom script:   if not IsUnitType(first, UNIT_TYPE_DEAD) and IsUnitEnemy(udg_GP_U[udg_GP_UI], GetOwningPlayer(first)) then
                                Custom script:   call IssuePointOrderById(udg_GP_U[udg_GP_UI], 851983, GetUnitX(first), GetUnitY(first))
                                Custom script:   endif
                                Custom script:   call GroupRemoveUnit(udg_GP_TempGroup, first)
                                Custom script:   endloop
                                -------- ======================================= --------
                                -------- Setting unit's facing angle if no order is available --------
                                -------- ======================================= --------
                                Custom script:   if GetUnitCurrentOrder(udg_GP_U[udg_GP_UI])==0 then
                                Custom script:   call SetUnitFacing(udg_GP_U[udg_GP_UI], udg_GP_Fac[udg_GP_UI])
                                -------- ======================================= --------
                                -------- Back to base, recycles every XXX seconds if order is 0 --------
                                -------- ======================================= --------
                                Set GP_BackToBase[GP_UI] = (GP_BackToBase[GP_UI] - GP_Back[GP_UI])
                                If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                                    If - Conditions
                                        GP_BackToBase[GP_UI] Equal to 0
                                    Then - Actions
                                        Set GP_BackToBase[GP_UI] = GP_Back[GP_UI]
                                        Custom script:   call IssuePointOrderById(udg_GP_U[udg_GP_UI], 851983, udg_GP_X[udg_GP_UI], udg_GP_Y[udg_GP_UI])
                                    Else - Actions
                                Custom script:   endif
                    Else - Actions
                        Unit Group - Remove GP_U[GP_UI] from GP_GuardingGroup
                        Set GP_Index = (GP_Index - 1)
                        If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                            If - Conditions
                                GP_Index Equal to 0
                            Then - Actions
                                Trigger - Turn off (This trigger)
                            Else - Actions
[/trigger]

[trigger]
Guard Post Remove
    Events
    Conditions
    Actions
        If (All Conditions are True) then do (Then Actions) else do (Else Actions)
            If - Conditions
                (GP_GuardingUnit is in GP_GuardingGroup) Equal to True
            Then - Actions
                Unit Group - Remove GP_GuardingUnit from GP_GuardingGroup
                Set GP_Index = (GP_Index - 1)
                If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                    If - Conditions
                        GP_Index Equal to 0
                    Then - Actions
                        Game - Display to (All players) the text: adasdadadOFF
                        Trigger - Turn off Guard Post Movements <gen>
                    Else - Actions
            Else - Actions
                Game - Display to (All players) the text: (Guard Post Error:  + ((Name of GP_GuardingUnit) +  is not recognized to be removed from system.))
[/trigger]
[/tab]

[tab=Credits]
Bribe for his [thread=197329]UnitIndexer[/thread]
[/tab]

[tab=Bugs]
-
[/tab]

[tab=Changelogs]
v 1.3
- All jass codes are converted to GUI
- Simple constant guarding of location is applied
[/tab]
[/tabs]
Default melee game initialization for all players
Melee Initialization
Events
Map initialization
Conditions
Actions
Visibility - Disable fog of war
Visibility - Disable black mask
Game - Display to (All players) for 2000.00 seconds the text: All units are registered as Guard except the mountain king
Game - Display to (All players) for 2000.00 seconds the text: Train units and it will guard the guard towers randomly
Set Variable Set UNRELATED_VARIABLE[0] = (Center of Region_000 <gen>)
Set Variable Set UNRELATED_VARIABLE[1] = (Center of Region_001 <gen>)
Set Variable Set UNRELATED_VARIABLE[2] = (Center of Region_002 <gen>)
Set Variable Set UNRELATED_VARIABLE[3] = (Center of Region_003 <gen>)
Camera
Events
Time - Every 0.03 seconds of game time
Conditions
Actions
Camera - Set Player 1 (Red) 's camera Distance to target to 2700.00 over 0.03 seconds
Resource
Events
Map initialization
Conditions
Actions
Player - Set Player 1 (Red) . Current gold to 750000
Player - Set Player 1 (Red) . Current lumber to 750000
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"
Guard Post Setup
Events
Map initialization
Conditions
Actions
-------- All settings here are default and recommended --------
-------- ======================================= --------
-------- The minimum perimeter of the location where the unit is guarding --------
-------- ======================================= --------
Set Variable Set GP_MinimumPerimeter = "200.00"
-------- ======================================= --------
-------- If the unit doesnt have orders or no more enemies around, it will go back to it's guarding post --------
-------- Calculation is 1x3 since the Movement is every 3 seconds --------
-------- ======================================= --------
Set Variable Set GP_MinimumDelayBackToBase = "1"
Guard Post Form
Events
Conditions
Actions
-------- ======================================= --------
-------- Take note that if you cause an error message, the location variable will leak --------
-------- ======================================= --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
GP_GuardingUnit Equal to No unit
Then - Actions
Game - Display to (All players) the text: Guard Post Error: Cannot assign a null unit!
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
GP_Perimeter Less than GP_MinimumPerimeter
Then - Actions
Game - Display to (All players) the text: (Guard Post Error: + (Minimum Perimeter should be + (String(GP_MinimumPerimeter))))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(GP_GuardingUnit is in GP_GuardingGroup.) Equal to True
Then - Actions
Game - Display to (All players) the text: (Guard Post Error: + ((Name of GP_GuardingUnit) + is already added as a guard, remove it first))
Skip remaining actions
Else - Actions
AI - Ignore GP_GuardingUnit 's guard position
Set Variable Set GP_UI = (Custom value of GP_GuardingUnit)
Set Variable Set GP_U[GP_UI] = GP_GuardingUnit
Set Variable Set GP_Per[GP_UI] = GP_Perimeter
Set Variable Set GP_Fac[GP_UI] = GP_FacingAngle
Set Variable Set GP_BackToBase[GP_UI] = GP_MinimumDelayBackToBase
Set Variable Set GP_Back[GP_UI] = GP_MinimumDelayBackToBase
Set Variable Set GP_Engage[GP_UI] = GP_EngageWhileTraveling
Set Variable Set GP_EngageWhileTraveling = "false"
Unit - Order GP_GuardingUnit to Attack-Move To . GP_GuardWhere
Custom script: set udg_GP_X[udg_GP_UI] = GetLocationX(udg_GP_GuardWhere)
Custom script: set udg_GP_Y[udg_GP_UI] = GetLocationY(udg_GP_GuardWhere)
Custom script: call RemoveLocation(udg_GP_GuardWhere)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
GP_Index Equal to 0
Then - Actions
Trigger - Turn on Guard_Post_Movements <gen>
Else - Actions
Set Variable Set GP_Index = (GP_Index + 1)
Unit Group - Add GP_U[GP_UI] to GP_GuardingGroup
Guard Post Movements
Events
Time - Every 3.00 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in GP_GuardingGroup and do (Actions)
Loop - Actions
Custom script: local unit first
Custom script: local real xGuard
Custom script: local real yGuard
Set Variable Set GP_UI = (Custom value of (Picked unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(GP_U[GP_UI] is alive) Equal to True
Then - Actions
Custom script: set xGuard = GetUnitX(udg_GP_U[udg_GP_UI])
Custom script: set yGuard = GetUnitY(udg_GP_U[udg_GP_UI])
Custom script: set udg_GP_Distance = (udg_GP_X[udg_GP_UI] - xGuard)*(udg_GP_X[udg_GP_UI] - xGuard)+(udg_GP_Y[udg_GP_UI] - yGuard*(udg_GP_Y[udg_GP_UI] - yGuard))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
GP_Distance Greater than or equal to (GP_Per[GP_UI] x GP_Per[GP_UI])
Then - Actions
-------- ======================================= --------
-------- Engage enemies while going to base if the condition is true --------
-------- Or just moves to the base if away from perimeter --------
-------- ======================================= --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
GP_Engage[GP_UI] Equal to True
Then - Actions
Custom script: call IssuePointOrderById(udg_GP_U[udg_GP_UI], 851983, udg_GP_X[udg_GP_UI], udg_GP_Y[udg_GP_UI])
Else - Actions
Custom script: call IssuePointOrderById(udg_GP_U[udg_GP_UI], 851986, udg_GP_X[udg_GP_UI], udg_GP_Y[udg_GP_UI])
Else - Actions
-------- ======================================= --------
-------- Searches for enemy units within the perimeter --------
-------- ======================================= --------
Custom script: call GroupEnumUnitsInRange(udg_GP_TempGroup, udg_GP_X[udg_GP_UI], udg_GP_Y[udg_GP_UI], udg_GP_Per[udg_GP_UI], null)
Custom script: loop
Custom script: set first = FirstOfGroup(udg_GP_TempGroup)
Custom script: exitwhen first==null
Custom script: if not IsUnitType(first, UNIT_TYPE_DEAD) and IsUnitEnemy(udg_GP_U[udg_GP_UI], GetOwningPlayer(first)) then
Custom script: call IssuePointOrderById(udg_GP_U[udg_GP_UI], 851983, GetUnitX(first), GetUnitY(first))
Custom script: endif
Custom script: call GroupRemoveUnit(udg_GP_TempGroup, first)
Custom script: endloop
-------- ======================================= --------
-------- Setting unit's facing angle if no order is available --------
-------- ======================================= --------
Custom script: if GetUnitCurrentOrder(udg_GP_U[udg_GP_UI])==0 then
Custom script: call SetUnitFacing(udg_GP_U[udg_GP_UI], udg_GP_Fac[udg_GP_UI])
-------- ======================================= --------
-------- Back to base, recycles every XXX seconds if order is 0 --------
-------- ======================================= --------
Set Variable Set GP_BackToBase[GP_UI] = (GP_BackToBase[GP_UI] - GP_Back[GP_UI])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
GP_BackToBase[GP_UI] Equal to 0
Then - Actions
Set Variable Set GP_BackToBase[GP_UI] = GP_Back[GP_UI]
Custom script: call IssuePointOrderById(udg_GP_U[udg_GP_UI], 851983, udg_GP_X[udg_GP_UI], udg_GP_Y[udg_GP_UI])
Else - Actions
Custom script: endif
Else - Actions
Unit Group - Remove GP_U[GP_UI] from GP_GuardingGroup .
Set Variable Set GP_Index = (GP_Index - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
GP_Index Equal to 0
Then - Actions
Trigger - Turn off (This trigger)
Else - Actions
Guard Post Remove
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(GP_GuardingUnit is in GP_GuardingGroup.) Equal to True
Then - Actions
Unit Group - Remove GP_GuardingUnit from GP_GuardingGroup .
Set Variable Set GP_Index = (GP_Index - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
GP_Index Equal to 0
Then - Actions
Game - Display to (All players) the text: adasdadadOFF
Trigger - Turn off Guard_Post_Movements <gen>
Else - Actions
Else - Actions
Game - Display to (All players) the text: (Guard Post Error: + ((Name of GP_GuardingUnit) + is not recognized to be removed from system.))
Training
Events
Unit - A unit Finishes training a unit
Conditions
Actions
Custom script: local integer random = GetRandomInt(0,3)
Unit - Change ownership of (Trained unit) to Player 2 (Blue) and Change color
Set Variable Set GP_GuardingUnit = (Trained unit)
Custom script: if random==0 then
Set Variable Set GP_GuardWhere = (Position of Guard Tower 0023 <gen>)
Custom script: elseif random==1 then
Set Variable Set GP_GuardWhere = (Position of Guard Tower 0003 <gen>)
Custom script: elseif random==2 then
Set Variable Set GP_GuardWhere = (Position of Guard Tower 0002 <gen>)
Custom script: elseif random==3 then
Set Variable Set GP_GuardWhere = (Position of Guard Tower 0015 <gen>)
Custom script: endif
Set Variable Set GP_Perimeter = "1000.00"
Set Variable Set GP_FacingAngle = "50.00"
Trigger - Run Guard_Post_Form <gen> (ignoring conditions)
All Units
Events
Time - Elapsed game time is 0.00 seconds
Conditions
Actions
Unit Group - Pick every unit in (Units in (Playable map area)) and do (Actions)
Loop - Actions
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
-------- Sets the Guard unit --------
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
Set Variable Set GP_GuardingUnit = (Picked unit)
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
-------- Sets the location point of where the unit will guard --------
-------- You do not need to remove the location coz it will be removed from the system automatically --------
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
Set Variable Set GP_GuardWhere = (Position of (Picked unit))
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
-------- Sets the range perimeter from the location where the unit is guarding --------
-------- If an enemy unit is in range, he will engage --------
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
Set Variable Set GP_Perimeter = "1000.00"
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
-------- Facing angle and Engage while traveling are optional --------
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
Set Variable Set GP_FacingAngle = "30.00"
Set Variable Set GP_EngageWhileTraveling = "true"
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
-------- Store the guard unit to the system --------
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
Trigger - Run Guard_Post_Form <gen> (ignoring conditions)
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
-------- If you want to remove the unit from the system, just do this --------
-------- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx --------
Set Variable Set GP_GuardingUnit = Mountain King 0010 <gen>
Trigger - Run Guard_Post_Remove <gen> (ignoring conditions)
AI Attacking
Events
Time - Every 2 seconds of game time
Conditions
Actions
Unit - Create 1 . Furbolg Shaman for Player 3 (Teal) at UNRELATED_VARIABLE[(Random integer number between 0 and 3)] facing Default building facing degrees
Set Variable Set GP_GuardingUnit = (Last created unit)
Set Variable Set GP_GuardWhere = (Position of Barracks 0018 <gen>)
Set Variable Set GP_Perimeter = "1000.00"
Set Variable Set GP_FacingAngle = "50.00"
Set Variable Set GP_EngageWhileTraveling = "true"
Trigger - Run Guard_Post_Form <gen> (ignoring conditions)
Top