Triggers

ThisPOTs Simple GUI Build System V2.2.w3x
Variables
ThisPOT's Simple GUI Build System
ThisPOT Build EZ READ ME
---------------------------
TPBS System
TPBS Build Go
ThisPOT Build Clean
---------------------------
ThisPOT Build Construction Start
ThisPOT Build Construction End
Demo Stuff
Remove this in your map
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
TPBS_Ability_DistanceChecker abilcode No
TPBS_Base group No
TPBS_Building_DistanceChecker unit No
TPBS_Cleaner_Group group No
TPBS_Cleaner_Timer timer No
TPBS_Constructing group No
TPBS_MaxRange real No
TPBS_MaxRange_AppliesToAllies boolean No
TPBS_Order string No
TPBS_Point location No
TPBS_Point_Ok boolean No
TPBS_Point_Temp location No
TPBS_Point_Temp_2 location No
TPBS_Real_Temp real No
TPBS_TooFarMessage string No
TPBS_TooFarMessage_Force force No
TPBS_Unit_BuildDummy unit No
TPBS_Unit_DummyType unitcode No
TPBS_Unit_DummyType_2 unitcode No
EZ READ ME:
1) Copy/Paste the "Building..". unit into your map (in the Object Editor).
2) Give this "Building..." unit all the buildings of your map that can be constructed by ANYONE (all races, everything). ***
3) Give your buildings whatever other buildings you want them to construct (don't give them the repair ability, unless you want to).
4) Set the system values to whatever fits your map in this trigger right here below.

* Does not work with Night Elf buildings
* When using the normal editor, you need to set structures to "Is a Building: False", add the "Structures Built", then set back to "Is a Building: True".
ThisPOT Build EZ READ ME
Events
Time - Elapsed game time is 0.00 seconds
Conditions
Actions
-------- This is the maximum distance that you can build from any other building in your base. --------
-------- 1) Must have the Structure classification (in object editor). --------
-------- 2) Must set Is A Building to TRUE (in object editor). --------
-------- 3) Must have finished building (cannot be under construction). --------
Set Variable Set TPBS_MaxRange = "500.00"
-------- --- --------
-------- Check TRUE if you want to allow building near allies buildings too --------
Set Variable Set TPBS_MaxRange_AppliesToAllies = "false"
-------- --- --------
-------- This is the message that is played when you try to build too far (can use wc3 color code). --------
Set Variable Set TPBS_TooFarMessage = "|cffFF0000Too far!|r"
-------- --- --------
-------- Set the value below to the unit type "Building..." --------
-------- @ Human / Custom Units --------
Set Variable Set TPBS_Unit_DummyType = "h000"
-------- --- --------
-------- Set the value below to the unit type "TPBS Distance Checker" --------
-------- @ Human / Custom Buildings --------
Set Variable Set TPBS_Unit_DummyType_2 = "h001"
-------- --- --------
-------- Set the value below to the ability type "TPBS Check" --------
-------- @ Human / Custom Abilities --------
Set Variable Set TPBS_Ability_DistanceChecker = "A000"
-------- --- --------
TPBS System
Events
Unit - A unit Is issued an order targeting a point
Conditions
((Triggering unit) is A structure) Equal to True
(Unit-type((String((Issued order))))) Not equal to No unit-type
Actions
Set Variable Set TPBS_Point_Ok = "false"
Set Variable Set TPBS_Point = (Target point of issued order)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TPBS_MaxRange_AppliesToAllies Equal to True
Then - Actions
Set Variable Set TPBS_Base = (Units in (Playable map area) matching ((((Owner of (Matching unit)) Equal to (Owner of (Triggering unit))) or (((Matching unit) belongs to an ally of (Owner of (Triggering unit)).) Equal to True)) and ((((Matching unit) is A structure) Equal to True) and ((((Matching unit) is alive) Equal to True) and (((Matching unit) is in TPBS_Constructing.) Not equal to True)))))
Else - Actions
Set Variable Set TPBS_Base = (Units owned by (Owner of (Triggering unit)) matching ((((Matching unit) is A structure) Equal to True) and ((((Matching unit) is alive) Equal to True) and (((Matching unit) is in TPBS_Constructing.) Not equal to True))).)
Set Variable Set TPBS_Real_Temp = "1000000000.00"
Unit Group - Pick every unit in TPBS_Base and do (Actions)
Loop - Actions
Set Variable Set TPBS_Point_Temp = (Position of (Picked unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between TPBS_Point and TPBS_Point_Temp) Less than TPBS_Real_Temp
Then - Actions
Set Variable Set TPBS_Real_Temp = (Distance between TPBS_Point and TPBS_Point_Temp)
Set Variable Set TPBS_Building_DistanceChecker = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between TPBS_Point and TPBS_Point_Temp) Less than or equal to TPBS_MaxRange
Then - Actions
Set Variable Set TPBS_Point_Ok = "true"
Else - Actions
Else - Actions
Custom script: call RemoveLocation(udg_TPBS_Point_Temp)
Custom script: call DestroyGroup(udg_TPBS_Base)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TPBS_Point_Ok Equal to True
Then - Actions
Trigger - Run TPBS_Build_Go <gen> (checking conditions)
Else - Actions
Set Variable Set TPBS_Point_Temp = (Position of TPBS_Building_DistanceChecker)
Set Variable Set TPBS_Point_Temp_2 = (TPBS_Point offset by (TPBS_MaxRange - 50.00) towards (Angle from TPBS_Point to TPBS_Point_Temp) degrees.)
Unit - Create 1 TPBS_Unit_DummyType_2 for (Owner of (Triggering unit)) at TPBS_Point_Temp_2 facing TPBS_Point
Custom script: call RemoveLocation(udg_TPBS_Point_Temp)
Custom script: call RemoveLocation(udg_TPBS_Point_Temp_2)
Unit - Add TPBS Check (Dummy) to (Last created unit)
Unit - Order (Last created unit) to Human Priest - Inner Fire . TPBS_Building_DistanceChecker
Unit Group - Add (Last created unit) to TPBS_Constructing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(String((Current order of (Last created unit)))) Equal to
Then - Actions
Unit - Remove (Last created unit) from the game
Set Variable Set TPBS_TooFarMessage_Force = (Player group((Owner of (Triggering unit))))
Floating Text - Create floating text that reads TPBS_TooFarMessage at TPBS_Point with Z offset 0 , using font size 10 , color ( 100 %, 100.00 %, 100.00 %), and 0 % transparency
Floating Text - Hide (Last created floating text) for (All players)
Floating Text - Show (Last created floating text) for TPBS_TooFarMessage_Force
Custom script: call DestroyForce(udg_TPBS_TooFarMessage_Force)
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Change the lifespan of (Last created floating text) to 0.50 seconds
Floating Text - Change the fading age of (Last created floating text) to 0.35 seconds
Else - Actions
Unit - Remove (Last created unit) from the game
Trigger - Run TPBS_Build_Go <gen> (checking conditions)
-------- --- --------
Unit - Order (Triggering unit) to Stop .
Custom script: call RemoveLocation(udg_TPBS_Point)
TPBS Build Go
Events
Conditions
Actions
Set Variable Set TPBS_Order = (String((Issued order)))
Unit - Create 1 . TPBS_Unit_DummyType for (Owner of (Triggering unit)) at TPBS_Point facing Default building facing degrees
Set Variable Set TPBS_Unit_BuildDummy = (Last created unit)
Unit Group - Add TPBS_Unit_BuildDummy to TPBS_Cleaner_Group
Custom script: call IssuePointOrderLoc(udg_TPBS_Unit_BuildDummy, udg_TPBS_Order, udg_TPBS_Point)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Remaining time for TPBS_Cleaner_Timer) Equal to 0.00
Then - Actions
Countdown Timer - Start TPBS_Cleaner_Timer as a One-shot timer that will expire in 1.00 seconds
Else - Actions
ThisPOT Build Clean
Events
Time - TPBS_Cleaner_Timer expires
Conditions
Actions
Unit Group - Pick every unit in TPBS_Cleaner_Group and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(String((Current order of (Picked unit)))) Equal to
Then - Actions
Unit - Remove (Picked unit) from the game
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in TPBS_Cleaner_Group) Not equal to 0
Then - Actions
Countdown Timer - Start TPBS_Cleaner_Timer as a One-shot timer that will expire in 1.00 seconds
Else - Actions
ThisPOT Build Construction Start
Events
Unit - A unit Begins construction
Conditions
Actions
Unit Group - Add (Triggering unit) to TPBS_Constructing
ThisPOT Build Construction End
Events
Unit - A unit Finishes construction
Conditions
Actions
Unit Group - Remove (Triggering unit) from TPBS_Constructing .
This is not needed and can be deleted for your map.

It is just to show how the system works.
Remove this in your map
Events
Map initialization
Conditions
Actions
Game - Set the time of day to 12
Player - Add 10000 to Player 1 (Red) . Current gold
Player - Add 10000 to Player 1 (Red) . Current lumber
Top