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
- Very Simple Oil System
- Very Simple Oil System
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
Very Simple Oil System.w3m
Variables
Variables
Unit Indexer
Unit Indexer
Testing
Infinite Gold and Lumber
Instakilling Dragonhawk
Chat Message Testing
Order ID testing
Initialization
Init Var
Oil Leaderboard
Incude Built Shipyards n Platforms
Exclude Destroyed Platforms Shipyards Patches
Oil System
Tanker Platform Build Point Track
Tanker Auto Extract Order on Platform Finish
Tanker Extract Order
Tanker Extract Ability
Oil Platform Destroyed Ship Stop
Oil Platform Extraction Time
Tanker Return Order
Tanker Hidden Return Ability
Tanker Visible Return Ability
Oil Shipyard Destroyed Ship Reorder
Shipyard Return Time
Tanker Order Reset
Advanced Building - Multiplayer
Advanced Building Menu On
Advanced Building Menu Off Order
Advanced Building Menu Cancel on Select
Advanced Building Menu Cancel ESC
Oil Requiring Buildings
Foundry Hotkey Not Enough Oil
Building Start Take Oil Cancel on Insufficient Oil
Building Cancel Return Oil
Oil Requiring Units
Unit Cancel on Insufficient Oil
Unit Train Oil Take
Unit Cancel Oil Back
Unit Disabler Enabler Checker
Oil Requiring Upgrades
Upgrade Cancel on Insufficient Oil
Upgrade Cancel Resources Back
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 except Custom Script Item. Custom Script Item will merge into map script after globals variables declaration with the list order in trigger view.
| Name | Type | is_array | initial_value |
| AdvancedConstruction | unit | No | |
| AdvancedPeasantGroup | group | Yes | |
| AdvancedWorker | unit | No | |
| AdvancedWorkerOn | boolean | Yes | |
| AdvancedWorkerValue | integer | No | |
| ClosestShipyardPlatform | unit | No | |
| CurrentPlayer | player | No | |
| CurrentPlayerNumber | integer | No | |
| ExtractionOrderGroup | group | No | |
| ImprovedCannonsLowOil | boolean | Yes | |
| IsUnitPreplaced | boolean | Yes | |
| NewPlatformPoint | location | Yes | |
| NewPlatformUnit | unit | Yes | |
| OilBoardValue | integer | Yes | |
| OilExtractionGroup | group | No | |
| OilExtractionTime | integer | Yes | |
| OilIndex | integer | No | |
| OilLeaderboard | leaderboard | No | |
| OilPatchAmount | integer | Yes | |
| OilPatchGroup | group | No | |
| OilPatchIndex | integer | No | |
| OilPatchNameValue | string | Yes | |
| OilPatchUnit | unit | No | |
| OilPatchUnitPoint | location | No | |
| OilPlatformAmount | integer | Yes | |
| OilPlatformGroup | group | No | |
| OilPlayerGroup | force | No | |
| OilReturnAmount | integer | No | |
| OilReturnAmountCurrent | integer | Yes | |
| OilReturnGroup | group | No | |
| OilReturnTime | integer | Yes | |
| OilText | texttag | Yes | |
| OilWorkersGroup | group | No | |
| PlatformExtractionIndex | integer | Yes | |
| PlatformIndex | integer | No | |
| PlatformQueuingTankerGroup | group | No | |
| PlatformUnit | unit | No | |
| PlatformUnitPoint | location | No | |
| ReturnOrderGroup | group | No | |
| ShipGroup | group | No | |
| ShipyardGroup | group | No | |
| ShipyardPlatformPosition | location | No | |
| ShipyardQueuingTankerGroup | group | No | |
| ShipyardReturnIndex | integer | Yes | |
| ShipyardUnit | unit | No | |
| ShipyardUnitPoint | location | No | |
| TankerBuildTrackGroup | group | No | |
| TankerPlatform | unit | Yes | |
| TankerPlatformMatch | integer | Yes | |
| TankerPositionPlatf | location | No | |
| TankerPositionShipy | location | No | |
| TankerShipyard | unit | Yes | |
| TankerShipyardMatch | integer | Yes | |
| TankerShipyardPlatformDistance | real | No | |
| TankerSPCompareDistance | real | No | |
| TankerUnit | unit | 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.
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"
Infinite Gold and Lumber
Events
Time - Every 0.10 seconds of game time
Conditions
Actions
Player - Set Player 1 (Red) . Current gold to 9999
Player - Set Player 1 (Red) . Current lumber to 9999
-------- TESTNG STUFF --------
Player - Make Player 1 (Red) treat Player 13 (Maroon) as an Ally with shared vision
Player - Make Player 13 (Maroon) treat Player 1 (Red) as an Ally with shared vision
Instakilling Dragonhawk
Events
Unit - A unit UNKNOWN PRESET: PlayerUnitEventDamaged
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Damage source)) Equal to Dragonhawk Rider
Then - Actions
Unit - Kill (Missing string for 'BlzGetEventDamageTarget')
Else - Actions
Chat Message Testing
Events
Player - Player 1 (Red) types a chat message containing q (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
Order ID testing
Events
Unit - A unit Is issued an order targeting an object
Unit - A unit Is issued an order targeting a point
Unit - A unit Is issued an order with no target
Conditions
Actions
Wait 0.00 seconds
Game - Display to (All players) the text: (String((Issued order)))
Init Var
Events
Game - UnitIndexEvent becomes Equal to 3.00
Conditions
Actions
-------- Set Flexible Variables --------
Set Variable Set OilReturnAmount = "1"
Set Variable Set OilReturnAmount = "300"
-------- Preplaced Platforms and Shipyards --------
Unit Group - Pick every unit in (Units of type Human Shipyard) and do (Actions)
Loop - Actions
Set Variable Set PlatformUnit = (Picked unit)
Unit Group - Add PlatformUnit to OilPlatformGroup
Set Variable Set PlatformIndex = (Custom value of PlatformUnit)
Set Variable Set OilPlatformAmount[PlatformIndex] = (Random integer number between 1000 and 5000)
Unit - Set Name of PlatformUnit to ((Name of PlatformUnit) + ( + ([ + ((String(OilPlatformAmount[PlatformIndex])) + ]))))
Unit Group - Pick every unit in (Units of type Human Shipyard) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to ShipyardGroup
-------- Oil Patches and Resource Amount --------
Unit Group - Pick every unit in (Units of type Circle of Power (medium)) and do (Actions)
Loop - Actions
Set Variable Set OilPatchUnit = (Picked unit)
Unit Group - Add OilPatchUnit to OilPatchGroup
Set Variable Set OilPatchIndex = (Custom value of OilPatchUnit)
Set Variable Set OilPatchAmount[OilPatchIndex] = (Random integer number between 1000 and 5000)
Unit - Set Name of OilPatchUnit to ((Name of OilPatchUnit) + ( + ([ + ((String(OilPatchAmount[OilPatchIndex])) + ]))))
-------- Enable Periodic/Time Triggers --------
Trigger - Turn on Oil_Leaderboard <gen>
Trigger - Turn on Oil_Platform_Extraction_Time <gen>
Trigger - Turn on Shipyard_Return_Time <gen>
Oil Leaderboard
Events
Time - Elapsed game time is 0.10 seconds
Conditions
Actions
-------- Oil Leaderboard --------
Set Variable Set OilPlayerGroup = (All players)
Player Group - Pick every player in OilPlayerGroup and do (Actions)
Loop - Actions
Set Variable Set CurrentPlayerNumber = (Player number of (Picked player))
Leaderboard - Create a leaderboard for OilPlayerGroup titled Oil
Set Variable Set OilLeaderboard = (Last created leaderboard)
Leaderboard - Show OilLeaderboard
Leaderboard - Add (Picked player) to OilLeaderboard with label Amount: and value (OilBoardValue[CurrentPlayerNumber] + 100)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] + 100)
Leaderboard - Add (Picked player) to OilLeaderboard with label Amount: and value (OilBoardValue[CurrentPlayerNumber] + 300)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] + 300)
-------- Oil Patch Hieght Test --------
Incude Built Shipyards n Platforms
Events
Unit - A unit Finishes construction
Unit - A unit Begins construction
Conditions
Actions
-------- Oil Platforms --------
-------- Finished Constructing --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Constructed structure)) Equal to Human Shipyard
((Constructed structure) is in OilPlatformGroup.) Equal to True
Then - Actions
-------- Set Name Oil Amount --------
Set Variable Set PlatformUnit = (Constructed structure)
Unit - Remove Channel from PlatformUnit
Unit Group - Add PlatformUnit to OilPlatformGroup
Set Variable Set PlatformIndex = (Custom value of PlatformUnit)
Set Variable Set PlatformUnitPoint = (Position of PlatformUnit)
Unit Group - Pick every unit in OilPatchGroup and do (Actions)
Loop - Actions
Set Variable Set OilPatchUnit = (Picked unit)
Set Variable Set OilPatchIndex = (Custom value of OilPatchUnit)
Set Variable Set OilPatchUnitPoint = (Position of OilPatchUnit)
-------- Check if Platform is in Oil Patch Region --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between PlatformUnitPoint and OilPatchUnitPoint) Less than or equal to 150.00
Then - Actions
Game - Display to (All players) the text: PLATFORM IN OIL PATCH REGION
Set Variable Set OilPlatformAmount[PlatformIndex] = OilPatchAmount[OilPatchIndex]
Unit - Set Name of PlatformUnit to (Human Oil Platform + ( + ([ + ((String(OilPatchAmount[OilPatchIndex])) + ]))))
Unit Group - Remove OilPatchUnit from OilPatchGroup .
Game - Display to (All players) the text: (String(OilPlatformAmount[PlatformIndex]))
Else - Actions
Custom script: call RemoveLocation (udg_PlatformUnitPoint)
Custom script: call RemoveLocation (udg_OilPatchUnitPoint)
Else - Actions
-------- Shipyards --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Constructed structure)) Equal to Human Shipyard
Then - Actions
Unit Group - Add (Constructed structure) to ShipyardGroup
Else - Actions
-------- Begun Construction --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Constructing structure)) Equal to Human Shipyard
((Constructing structure) is in OilPlatformGroup.) Equal to False
Then - Actions
-------- Set Name Oil Amount --------
Set Variable Set PlatformUnit = (Constructing structure)
Unit - Add Channel to PlatformUnit
Unit Group - Add PlatformUnit to OilPlatformGroup
Set Variable Set PlatformIndex = (Custom value of PlatformUnit)
Set Variable Set PlatformUnitPoint = (Position of PlatformUnit)
Unit Group - Pick every unit in OilPatchGroup and do (Actions)
Loop - Actions
Set Variable Set OilPatchUnit = (Picked unit)
Set Variable Set OilPatchIndex = (Custom value of OilPatchUnit)
Set Variable Set OilPatchUnitPoint = (Position of OilPatchUnit)
-------- Check if Platform is in Oil Patch Region --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between PlatformUnitPoint and OilPatchUnitPoint) Less than or equal to 150.00
Then - Actions
Game - Display to (All players) the text: CONSTRUCTING PLATFORM IN OIL PATCH REGION
Set Variable Set OilPlatformAmount[PlatformIndex] = OilPatchAmount[OilPatchIndex]
Unit - Set Name of PlatformUnit to (Human Oil Platform + ( + ([ + ((String(OilPatchAmount[OilPatchIndex])) + ]))))
Unit Group - Remove OilPatchUnit from OilPatchGroup .
Game - Display to (All players) the text: (String(OilPlatformAmount[PlatformIndex]))
Else - Actions
Custom script: call RemoveLocation (udg_PlatformUnitPoint)
Custom script: call RemoveLocation (udg_OilPatchUnitPoint)
Else - Actions
Exclude Destroyed Platforms Shipyards Patches
Events
Unit - A unit Dies
Conditions
Actions
-------- Oil Platforms --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Dying unit)) Equal to Human Shipyard
Then - Actions
Unit Group - Remove (Dying unit) from OilPlatformGroup .
Else - Actions
-------- Shipyards --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Dying unit)) Equal to Human Shipyard
Then - Actions
Unit Group - Remove (Dying unit) from ShipyardGroup .
Else - Actions
-------- Oil Patches --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Dying unit)) Equal to Circle of Power (medium)
Then - Actions
Unit Group - Remove (Dying unit) from OilPatchGroup .
Game - Display to (All players) the text: OIL PATCH DIED
Else - Actions
Tanker Platform Build Point Track
Events
Unit - A unit Is issued an order targeting an object
Conditions
(Issued order) Equal to (Order(custom_h000))
Actions
-------- Indexing Tanker --------
Set Variable Set TankerUnit = (Ordered unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
-------- Remove Potential Leaks --------
Unit Group - Remove TankerUnit from TankerBuildTrackGroup .
Custom script: call RemoveLocation (udg_NewPlatformPoint[udg_OilIndex])
-------- Continue Indexing --------
Set Variable Set NewPlatformPoint[OilIndex] = (Position of (Target unit of issued order))
Unit Group - Add TankerUnit to TankerBuildTrackGroup
Game - Display to (All players) the text: TRACKING TANKER ORDER POINT
Tanker Auto Extract Order on Platform Finish
Events
Unit - A unit Finishes construction
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Constructed structure)) Equal to Human Shipyard
Then - Actions
Unit Group - Pick every unit in TankerBuildTrackGroup and do (Actions)
Loop - Actions
Set Variable Set TankerUnit = (Picked unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
Set Variable Set NewPlatformUnit[OilIndex] = (Constructed structure)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Region centered at NewPlatformPoint[OilIndex] with size (300.00, 500.00)) contains NewPlatformUnit[OilIndex]) Equal to True
Then - Actions
Unit - Order TankerUnit to Right-Click . NewPlatformUnit[OilIndex]
Unit Group - Remove TankerUnit from TankerBuildTrackGroup .
Custom script: call RemoveLocation (udg_NewPlatformPoint[udg_OilIndex])
Game - Display to (All players) the text: TANKER EXTRACT NEW PLATFORM
Else - Actions
Else - Actions
Tanker Extract Order
Events
Unit - A unit Is issued an order targeting an object
Conditions
(Unit-type of (Ordered unit)) Equal to Human Transport Ship
(Unit-type of (Target unit of issued order)) Equal to Human Shipyard
(Owner of (Ordered unit)) Equal to (Owner of (Target unit of issued order))
(Issued order) Not equal to (Order(harvest))
(Level of Channel for (Ordered unit)) Equal to 1
Actions
Set Variable Set TankerUnit = (Ordered unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
Set Variable Set TankerPlatform[OilIndex] = (Target unit of issued order)
Unit - Order TankerUnit to Harvest . TankerPlatform[OilIndex]
Unit Group - Remove TankerUnit from ReturnOrderGroup .
Unit Group - Add TankerUnit to ExtractionOrderGroup
-------- Index Tanker to Platform --------
Set Variable Set PlatformExtractionIndex[OilIndex] = (Custom value of TankerPlatform[OilIndex])
Set Variable Set TankerPlatformMatch[OilIndex] = PlatformExtractionIndex[OilIndex]
Game - Display to (All players) the text: (matching indices - + (String(TankerPlatformMatch[OilIndex])))
Game - Display to (All players) the text: PLATFORM CHANNEL ORDER
Tanker Extract Ability
Events
Unit - A unit Starts the effect of an ability
Conditions
(Unit-type of (Casting unit)) Equal to Human Transport Ship
(Ability being cast) Equal to Channel
(Unit-type of (Target unit of ability being cast)) Equal to Human Shipyard
(Level of Channel for (Target unit of ability being cast)) Equal to 0
Actions
-------- Platform and Tanker Indexing --------
Set Variable Set TankerUnit = (Casting unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
Set Variable Set TankerPlatform[OilIndex] = (Target unit of ability being cast)
-------- Platform Occupied True --------
Unit - Add Channel to TankerPlatform[OilIndex]
-------- Index Tanker to Platform --------
Set Variable Set PlatformExtractionIndex[OilIndex] = (Custom value of TankerPlatform[OilIndex])
Set Variable Set TankerPlatformMatch[OilIndex] = PlatformExtractionIndex[OilIndex]
-------- Extraction Time Indexing --------
Set Variable Set OilExtractionTime[OilIndex] = "20"
-------- Add Tanker to Oil Extraction Group --------
Unit Group - Add TankerUnit to OilExtractionGroup
-------- Stop Tanker from Channeling / Using the Ability --------
Unit - Order TankerUnit to Stop .
-------- Hide Tanker --------
Unit - Hide TankerUnit
Game - Display to (All players) the text: PLATFORM CHANNEL FX
Oil Platform Destroyed Ship Stop
Events
Unit - A unit Dies
Conditions
(Unit-type of (Dying unit)) Equal to Human Shipyard
Actions
-------- Tanker Extraction Order Stop --------
Unit Group - Pick every unit in ExtractionOrderGroup and do (Actions)
Loop - Actions
-------- Tanker Indexing --------
Set Variable Set TankerUnit = (Picked unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TankerPlatform[OilIndex] is alive) Equal to False
Then - Actions
-------- Order Tanker to Stop --------
Unit - Order TankerUnit to Stop .
Game - Display to (All players) the text: PLATFORM DEAD - STOP
Else - Actions
-------- Recreate Oil Patch if Oil > 0 --------
Set Variable Set PlatformUnit = (Dying unit)
Unit Group - Remove PlatformUnit from OilPlatformGroup .
Set Variable Set PlatformIndex = (Custom value of PlatformUnit)
Set Variable Set PlatformUnitPoint = (Position of PlatformUnit)
Set Variable Set OilPlatformAmount[PlatformIndex] = OilPlatformAmount[PlatformIndex]
Game - Display to (All players) the text: (String(OilPlatformAmount[PlatformIndex]))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilPlatformAmount[PlatformIndex] Greater than 0
Then - Actions
Unit - Create 1 . Circle of Power (medium) for Neutral Passive at PlatformUnitPoint facing Default building facing degrees
Set Variable Set OilPatchUnit = (Last created unit)
Unit Group - Add OilPatchUnit to OilPatchGroup
Set Variable Set OilPatchIndex = (Custom value of OilPatchUnit)
Set Variable Set OilPatchAmount[OilPatchIndex] = OilPlatformAmount[PlatformIndex]
Unit - Set Name of OilPatchUnit to ((Name of OilPatchUnit) + ( + ([ + ((String(OilPatchAmount[OilPatchIndex])) + ]))))
Game - Display to (All players) the text: OIL PATCH REMAKE
Game - Display to (All players) the text: (String(OilPatchAmount[OilPatchIndex]))
Else - Actions
Custom script: call RemoveLocation (udg_PlatformUnitPoint)
Oil Platform Extraction Time
Events
Time - Every 0.10 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in OilExtractionGroup and do (Actions)
Loop - Actions
-------- Tanker Indexing --------
Set Variable Set TankerUnit = (Picked unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
Set Variable Set TankerPositionPlatf = (Position of TankerUnit)
-------- Mining Time Decrease --------
Set Variable Set OilExtractionTime[OilIndex] = (OilExtractionTime[OilIndex] - 1)
-------- Mining Finished --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilExtractionTime[OilIndex] Equal to 0
(TankerPlatform[OilIndex] is alive) Equal to True
Then - Actions
-------- Remove Tanker from Oil Extraction Group --------
Unit Group - Remove TankerUnit from OilExtractionGroup .
-------- Remove Extract Add Return Oil --------
Unit - Remove Channel from TankerUnit
Unit - Add Channel to TankerUnit
Unit - Add Channel to TankerUnit
-------- Unhide Tanker --------
Unit - Unhide TankerUnit
-------- Platform Occupied False --------
Unit - Remove Channel from TankerPlatform[OilIndex]
-------- Order Tanker to Return / Set Distances and Positions --------
Set Variable Set TankerShipyardPlatformDistance = "99999.00"
Set Variable Set TankerPositionPlatf = (Position of TankerUnit)
Set Variable Set ClosestShipyardPlatform = No unit
Unit Group - Pick every unit in ShipyardGroup and do (Actions)
Loop - Actions
-------- Compare Distances --------
Set Variable Set TankerShipyard[OilIndex] = (Picked unit)
Set Variable Set ShipyardPlatformPosition = (Position of TankerShipyard[OilIndex])
Set Variable Set TankerSPCompareDistance = (Distance between TankerPositionPlatf and ShipyardPlatformPosition)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TankerSPCompareDistance Less than or equal to TankerShipyardPlatformDistance
Then - Actions
Set Variable Set ClosestShipyardPlatform = TankerShipyard[OilIndex]
Set Variable Set TankerShipyardPlatformDistance = TankerSPCompareDistance
Else - Actions
Set Variable Set TankerShipyard[OilIndex] = ClosestShipyardPlatform
Unit - Order TankerUnit to Right-Click . ClosestShipyardPlatform
Custom script: call RemoveLocation (udg_ShipyardPlatformPosition)
-------- Subtract Oil from Platform --------
Unit Group - Pick every unit in OilPlatformGroup and do (Actions)
Loop - Actions
Set Variable Set PlatformUnit = (Picked unit)
Set Variable Set PlatformIndex = (Custom value of PlatformUnit)
Set Variable Set PlatformUnitPoint = (Position of PlatformUnit)
Set Variable Set OilPlatformAmount[PlatformIndex] = OilPlatformAmount[PlatformIndex]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between TankerPositionPlatf and PlatformUnitPoint) Less than or equal to 300.00
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilPlatformAmount[PlatformIndex] Greater than or equal to OilReturnAmount
Then - Actions
Set Variable Set OilPlatformAmount[PlatformIndex] = (OilPlatformAmount[PlatformIndex] - OilReturnAmount)
Set Variable Set OilReturnAmountCurrent[OilIndex] = OilReturnAmount
Else - Actions
Set Variable Set OilReturnAmountCurrent[OilIndex] = OilPlatformAmount[PlatformIndex]
Set Variable Set OilPlatformAmount[PlatformIndex] = "0"
Unit - Set Name of TankerPlatform[OilIndex] to (Human Oil Platform + ( + ([ + ((String(OilPlatformAmount[PlatformIndex])) + ]))))
Game - Display to (All players) the text: RIGHT PLATFORM
Game - Display to (All players) the text: (String(OilPlatformAmount[PlatformIndex]))
Else - Actions
-------- Destroy Platform on 0 Oil --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilPlatformAmount[PlatformIndex] Less than 1
Then - Actions
Unit - Kill PlatformUnit
Unit Group - Remove PlatformUnit from OilPlatformGroup .
Else - Actions
Custom script: call RemoveLocation (udg_PlatformUnitPoint)
Custom script: call RemoveLocation (udg_OilPatchUnitPoint)
Custom script: call RemoveLocation (udg_TankerPositionPlatf)
Else - Actions
-------- Kill and Exclude Interior Ships if Platform Destroyed --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilExtractionTime[OilIndex] Equal to 0
(TankerPlatform[OilIndex] is alive) Equal to False
Then - Actions
-------- Remove Tanker from Oil Extraction Group --------
Unit Group - Remove TankerUnit from OilExtractionGroup .
-------- Kill Ship Inside --------
Unit - Kill TankerUnit
Else - Actions
-------- Order Queuing Tankers --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TankerPlatform[OilIndex] is alive) Equal to True
Then - Actions
Set Variable Set PlatformUnitPoint = (Position of TankerPlatform[OilIndex])
Set Variable Set PlatformQueuingTankerGroup = (Units within 300.00 of PlatformUnitPoint matching ((((Matching unit) belongs to an enemy of (Owner of TankerPlatform[OilIndex]).) Equal to False) and ((Unit-type of (Matching unit)) Equal to Human Transport Ship)).)
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in PlatformQueuingTankerGroup and do (Actions)
Loop - Actions
Set Variable Set TankerUnit = (Picked unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
-------- Avoiding the Pain of Matching Condition(s) --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Level of Channel for (Picked unit)) Equal to 1
((Picked unit) is in ExtractionOrderGroup.) Equal to True
TankerPlatformMatch[OilIndex] Equal to PlatformExtractionIndex[OilIndex]
Then - Actions
Game - Display to (All players) the text: (matching indices 2 - + (String(TankerPlatformMatch[OilIndex])))
Unit - Order (Picked unit) to Right-Click . TankerPlatform[OilIndex]
Game - Display to (All players) the text: TANKER AWAITING EXTRACTION
Else - Actions
Custom script: call RemoveLocation (udg_PlatformUnitPoint)
Else - Actions
Tanker Return Order
Events
Unit - A unit Is issued an order targeting an object
Conditions
(Unit-type of (Ordered unit)) Equal to Human Transport Ship
(Unit-type of (Target unit of issued order)) Equal to Human Shipyard
(Owner of (Ordered unit)) Equal to (Owner of (Target unit of issued order))
(Issued order) Not equal to (Order(attack))
(Level of Channel for (Ordered unit)) Equal to 1
Actions
Set Variable Set TankerUnit = (Ordered unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
Set Variable Set TankerShipyard[OilIndex] = (Target unit of issued order)
Unit - Order TankerUnit to Attack . TankerShipyard[OilIndex]
Unit Group - Remove TankerUnit from ExtractionOrderGroup .
Unit Group - Add TankerUnit to ReturnOrderGroup
-------- Index Tanker to Platform --------
Set Variable Set ShipyardReturnIndex[OilIndex] = (Custom value of TankerShipyard[OilIndex])
Set Variable Set TankerShipyardMatch[OilIndex] = ShipyardReturnIndex[OilIndex]
Game - Display to (All players) the text: SHIPYARD CHANNEL ORDER
Tanker Hidden Return Ability
Events
Unit - A unit Starts the effect of an ability
Conditions
(Unit-type of (Casting unit)) Equal to Human Transport Ship
(Ability being cast) Equal to Channel
(Unit-type of (Target unit of ability being cast)) Equal to Human Shipyard
(Level of Channel for (Target unit of ability being cast)) Equal to 0
Actions
-------- Shipyard and Tanker Indexing --------
Set Variable Set TankerUnit = (Casting unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
Set Variable Set TankerShipyard[OilIndex] = (Target unit of ability being cast)
Set Variable Set ShipyardReturnIndex[OilIndex] = (Custom value of TankerShipyard[OilIndex])
-------- Shipyard Occupied True --------
Unit - Add Channel to TankerShipyard[OilIndex]
-------- Return Time Indexing --------
Set Variable Set OilReturnTime[OilIndex] = "20"
-------- Add Tanker to Oil Return Group --------
Unit Group - Add TankerUnit to OilReturnGroup
-------- Stop Tanker from Channeling / Using the Ability --------
Unit - Order TankerUnit to Stop .
-------- Hide Tanker --------
Unit - Hide TankerUnit
-------- Index Tanker to Platform --------
Set Variable Set ShipyardReturnIndex[OilIndex] = (Custom value of TankerShipyard[OilIndex])
Set Variable Set TankerShipyardMatch[OilIndex] = ShipyardReturnIndex[OilIndex]
Game - Display to (All players) the text: SHIPYARD CHANNEL FX
Tanker Visible Return Ability
Events
Unit - A unit Starts the effect of an ability
Conditions
(Unit-type of (Casting unit)) Equal to Human Transport Ship
(Ability being cast) Equal to Channel
Actions
-------- Tanker Indexing --------
Set Variable Set TankerUnit = (Casting unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
-------- Order Tanker to Return / Set Distances and Positions --------
Set Variable Set TankerShipyardPlatformDistance = "99999.00"
Set Variable Set TankerPositionShipy = (Position of TankerUnit)
Set Variable Set ClosestShipyardPlatform = No unit
Unit Group - Pick every unit in ShipyardGroup and do (Actions)
Loop - Actions
-------- Compare Distances --------
Set Variable Set TankerShipyard[OilIndex] = (Picked unit)
Set Variable Set ShipyardPlatformPosition = (Position of TankerShipyard[OilIndex])
Set Variable Set TankerSPCompareDistance = (Distance between TankerPositionPlatf and ShipyardPlatformPosition)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TankerSPCompareDistance Less than or equal to TankerShipyardPlatformDistance
Then - Actions
Set Variable Set ClosestShipyardPlatform = TankerShipyard[OilIndex]
Set Variable Set TankerShipyardPlatformDistance = TankerSPCompareDistance
Else - Actions
Set Variable Set TankerShipyard[OilIndex] = ClosestShipyardPlatform
Unit - Order TankerUnit to Attack . ClosestShipyardPlatform
Custom script: call RemoveLocation (udg_ShipyardPlatformPosition)
Game - Display to (All players) the text: RETURN RESOURCES CLICK
Custom script: call RemoveLocation (udg_TankerPositionShipy)
Oil Shipyard Destroyed Ship Reorder
Events
Unit - A unit Dies
Conditions
(Unit-type of (Dying unit)) Equal to Human Shipyard
Actions
Unit Group - Pick every unit in ReturnOrderGroup and do (Actions)
Loop - Actions
-------- Tanker Indexing --------
Set Variable Set TankerUnit = (Picked unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TankerShipyard[OilIndex] is alive) Equal to False
(Number of units in ShipyardGroup) Greater than 0
(Current order of TankerUnit) Equal to (Order(attack))
Then - Actions
-------- Order Tanker to Return / Set Distances and Positions --------
Set Variable Set TankerShipyardPlatformDistance = "99999.00"
Set Variable Set TankerPositionPlatf = (Position of TankerUnit)
Set Variable Set ClosestShipyardPlatform = No unit
Unit Group - Pick every unit in ShipyardGroup and do (Actions)
Loop - Actions
-------- Compare Distances --------
Set Variable Set TankerShipyard[OilIndex] = (Picked unit)
Set Variable Set ShipyardPlatformPosition = (Position of TankerShipyard[OilIndex])
Set Variable Set TankerSPCompareDistance = (Distance between TankerPositionPlatf and ShipyardPlatformPosition)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TankerSPCompareDistance Less than or equal to TankerShipyardPlatformDistance
Then - Actions
Set Variable Set ClosestShipyardPlatform = TankerShipyard[OilIndex]
Set Variable Set TankerShipyardPlatformDistance = TankerSPCompareDistance
Else - Actions
Set Variable Set TankerShipyard[OilIndex] = ClosestShipyardPlatform
Unit - Order TankerUnit to Attack . ClosestShipyardPlatform
Custom script: call RemoveLocation (udg_ShipyardPlatformPosition)
Game - Display to (All players) the text: RETURN RESOURCES CLICK
Game - Display to (All players) the text: SHIPYARD DEAD - REORDER RETURN
Else - Actions
-------- Tanker Stop if no Shipyards when Returning --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TankerShipyard[OilIndex] is alive) Equal to False
(Number of units in ShipyardGroup) Equal to 0
(Current order of TankerUnit) Equal to (Order(attack))
Then - Actions
Unit - Order TankerUnit to Stop .
Else - Actions
Shipyard Return Time
Events
Time - Every 0.10 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in OilReturnGroup and do (Actions)
Loop - Actions
-------- Tanker Indexing --------
Set Variable Set TankerUnit = (Picked unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
-------- Return Time Decrease --------
Set Variable Set OilReturnTime[OilIndex] = (OilReturnTime[OilIndex] - 1)
-------- Return Finished --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilReturnTime[OilIndex] Equal to 0
(TankerShipyard[OilIndex] is alive) Equal to True
Then - Actions
-------- Remove Tanker from Shipyard Return Group --------
Unit Group - Remove TankerUnit from OilReturnGroup .
-------- Remove Return Oil Add Extract --------
Unit - Remove Channel from TankerUnit
Unit - Remove Channel from TankerUnit
Unit - Add Channel to TankerUnit
-------- Unhide Tanker --------
Unit - Unhide TankerUnit
-------- Add Oil to Player --------
Leaderboard - Change the value for (Owner of TankerUnit) in OilLeaderboard to (OilBoardValue[(Player number of (Owner of TankerUnit))] + OilReturnAmountCurrent[OilIndex])
Set Variable Set OilBoardValue[(Player number of (Owner of TankerUnit))] = (OilBoardValue[(Player number of (Owner of TankerUnit))] + OilReturnAmountCurrent[OilIndex])
-------- Oil Floating Text --------
Floating Text - Create floating text that reads (|cff808080+|r + (String(OilReturnAmountCurrent[OilIndex]))) above TankerShipyard[OilIndex] with Z offset 0 , using font size 10 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Set Variable Set OilText[OilIndex] = (Last created floating text)
Floating Text - Set the velocity of OilText[OilIndex] to 64 towards 90 degrees
Floating Text - Show OilText[OilIndex] for (Player group((Owner of TankerUnit)))
Floating Text - Change OilText[OilIndex] : Disable permanence
Floating Text - Change the fading age of OilText[OilIndex] to 1.00 seconds
Floating Text - Change the lifespan of OilText[OilIndex] to 2.00 seconds
-------- Shipyard Occupied False --------
Unit - Remove Channel from TankerShipyard[OilIndex]
-------- Order Tanker to Resume Extracting / Set Distances and Positions --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TankerPlatform[OilIndex] is alive) Equal to True
Then - Actions
Unit - Order TankerUnit to Right-Click . TankerPlatform[OilIndex]
Else - Actions
Else - Actions
-------- Order Queuing Tankers --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TankerShipyard[OilIndex] is alive) Equal to True
Then - Actions
Set Variable Set ShipyardUnitPoint = (Position of TankerShipyard[OilIndex])
Set Variable Set ShipyardQueuingTankerGroup = (Units within 300.00 of ShipyardUnitPoint matching ((((Matching unit) belongs to an enemy of (Owner of TankerShipyard[OilIndex]).) Equal to False) and ((Unit-type of (Matching unit)) Equal to Human Transport Ship)).)
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in ShipyardQueuingTankerGroup and do (Actions)
Loop - Actions
Set Variable Set TankerUnit = (Picked unit)
Set Variable Set OilIndex = (Custom value of TankerUnit)
-------- Avoiding the Pain of Matching Condition(s) --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Level of Channel for (Picked unit)) Equal to 1
((Picked unit) is in ReturnOrderGroup.) Equal to True
TankerShipyardMatch[OilIndex] Equal to ShipyardReturnIndex[OilIndex]
Then - Actions
Unit - Order (Picked unit) to Right-Click . TankerShipyard[OilIndex]
Game - Display to (All players) the text: TANKER AWAITING RETURN
Else - Actions
Custom script: call RemoveLocation (udg_ShipyardUnitPoint)
Else - Actions
Tanker Order Reset
Events
Unit - A unit Is issued an order targeting an object
Unit - A unit Is issued an order targeting a point
Unit - A unit Is issued an order with no target
Conditions
(Unit-type of (Ordered unit)) Equal to Human Transport Ship
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Target unit of issued order) is in OilPlatformGroup.) Equal to False
Then - Actions
Unit Group - Remove (Ordered unit) from ExtractionOrderGroup .
Game - Display to (All players) the text: NOT IN PLATFORM GROUP
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Target unit of issued order) is in ShipyardGroup.) Equal to False
Then - Actions
Unit Group - Remove (Ordered unit) from ReturnOrderGroup .
Game - Display to (All players) the text: NOT IN SHIPYARD GROUP
Else - Actions
Advanced Building Menu On
Events
Unit - A unit Begins channeling an ability
Conditions
(Ability being cast) Equal to Berserk
Or - Any (Conditions) are true
Conditions
(Unit-type of (Casting unit)) Equal to Peasant
(Unit-type of (Casting unit)) Equal to Peasant
Actions
Set Variable Set AdvancedWorker = (Casting unit)
-------- Peasant --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Casting unit)) Equal to Peasant
(Ability being cast) Equal to Berserk
Then - Actions
Game - Display to (All players) the text: PEASANT ADVANCED BUILDING
-------- Remove Unneeded Buff --------
Unit - Remove Berserk buff from AdvancedWorker
-------- Change to Advanced Peasant --------
Unit - Add Berserker Upgrade to AdvancedWorker
-------- Open Up Regular Build Menu --------
Game - Force (Owner of AdvancedWorker) to press the key B .
-------- Add Advanced Peasant to Group --------
Unit Group - Add AdvancedWorker to AdvancedPeasantGroup[(Player number of (Owner of AdvancedWorker))]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Current order of AdvancedWorker) Not equal to (Order(move))
(Current order of AdvancedWorker) Not equal to (Order(smart))
(Current order of AdvancedWorker) Not equal to (Order(stop))
Then - Actions
Unit - Order AdvancedWorker to Stop .
Else - Actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Casting unit)) Equal to Peasant
(Ability being cast) Equal to Berserk
Then - Actions
Game - Display to (All players) the text: ADVANCED PEASANT BUILDS
-------- Remove Unneeded Buff --------
Unit - Remove Berserk buff from AdvancedWorker
-------- Open Up Regular Build Menu --------
Game - Force (Owner of AdvancedWorker) to press the key B .
Else - Actions
Advanced Building Menu Off Order
Events
Unit - A unit Is issued an order targeting an object
Unit - A unit Is issued an order targeting a point
Conditions
(Issued order) Not equal to (Order(move))
(Issued order) Not equal to (Order(smart))
Or - Any (Conditions) are true
Conditions
(Unit-type of (Ordered unit)) Equal to Peasant
Actions
Set Variable Set AdvancedWorker = (Ordered unit)
-------- Peasant --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in AdvancedPeasantGroup[(Player number of (Owner of AdvancedWorker))]) Greater than 0
Then - Actions
Unit Group - Pick every unit in AdvancedPeasantGroup[(Player number of (Owner of AdvancedWorker))] and do (Actions)
Loop - Actions
Game - Display to (All players) the text: ADVANCED PEASANT ORDER
Set Variable Set AdvancedWorker = (Picked unit)
-------- Remove Advanced Peasant from Group --------
Unit Group - Remove AdvancedWorker from AdvancedPeasantGroup[(Player number of (Owner of AdvancedWorker))] .
-------- Change Back to Normal Peasant --------
Unit - Add Berserker Upgrade to AdvancedWorker
Else - Actions
Advanced Building Menu Cancel on Select
Events
Player - Player 1 (Red) Selects a unit
Player - Player 2 (Blue) Selects a unit
Player - Player 3 (Teal) Selects a unit
Player - Player 4 (Purple) Selects a unit
Player - Player 5 (Yellow) Selects a unit
Player - Player 6 (Orange) Selects a unit
Player - Player 7 (Green) Selects a unit
Player - Player 8 (Pink) Selects a unit
Player - Player 9 (Gray) Selects a unit
Player - Player 10 (Light Blue) Selects a unit
Player - Player 11 (Dark Green) Selects a unit
Player - Player 12 (Brown) Selects a unit
Player - Player 13 (Maroon) Selects a unit
Player - Player 14 (Navy) Selects a unit
Player - Player 15 (Turquoise) Selects a unit
Player - Player 16 (Violet) Selects a unit
Player - Player 17 (Wheat) Selects a unit
Player - Player 18 (Peach) Selects a unit
Player - Player 19 (Mint) Selects a unit
Player - Player 20 (Lavender) Selects a unit
Player - Player 21 (Coal) Selects a unit
Player - Player 22 (Snow) Selects a unit
Player - Player 23 (Emerald) Selects a unit
Player - Player 24 (Peanut) Selects a unit
Conditions
Actions
-------- Peasant --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in AdvancedPeasantGroup[(Player number of (Triggering player))]) Greater than 0
Then - Actions
Unit Group - Pick every unit in AdvancedPeasantGroup[(Player number of (Triggering player))] and do (Actions)
Loop - Actions
Game - Display to (All players) the text: ADVANCED PEASANT UNIT SELECTED
Set Variable Set AdvancedWorker = (Picked unit)
Unit Group - Remove AdvancedWorker from AdvancedPeasantGroup[(Player number of (Triggering player))] .
Unit - Add Berserker Upgrade to AdvancedWorker
Else - Actions
Advanced Building Menu Cancel ESC
Events
Player - Player 1 (Red) skips a cinematic sequence
Player - Player 2 (Blue) skips a cinematic sequence
Player - Player 3 (Teal) skips a cinematic sequence
Player - Player 4 (Purple) skips a cinematic sequence
Player - Player 5 (Yellow) skips a cinematic sequence
Player - Player 6 (Orange) skips a cinematic sequence
Player - Player 7 (Green) skips a cinematic sequence
Player - Player 8 (Pink) skips a cinematic sequence
Player - Player 9 (Gray) skips a cinematic sequence
Player - Player 10 (Light Blue) skips a cinematic sequence
Player - Player 11 (Dark Green) skips a cinematic sequence
Player - Player 12 (Brown) skips a cinematic sequence
Player - Player 13 (Maroon) skips a cinematic sequence
Player - Player 14 (Navy) skips a cinematic sequence
Player - Player 15 (Turquoise) skips a cinematic sequence
Player - Player 16 (Violet) skips a cinematic sequence
Player - Player 17 (Wheat) skips a cinematic sequence
Player - Player 18 (Peach) skips a cinematic sequence
Player - Player 19 (Mint) skips a cinematic sequence
Player - Player 20 (Lavender) skips a cinematic sequence
Player - Player 21 (Coal) skips a cinematic sequence
Player - Player 22 (Snow) skips a cinematic sequence
Player - Player 23 (Emerald) skips a cinematic sequence
Player - Player 24 (Peanut) skips a cinematic sequence
Conditions
Actions
-------- Peasant --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in AdvancedPeasantGroup[(Player number of (Triggering player))]) Greater than 0
Then - Actions
Unit Group - Pick every unit in AdvancedPeasantGroup[(Player number of (Triggering player))] and do (Actions)
Loop - Actions
Game - Display to (All players) the text: ADVANCED PEASANT ESC
Set Variable Set AdvancedWorker = (Picked unit)
Unit Group - Remove AdvancedWorker from AdvancedPeasantGroup[(Player number of (Triggering player))] .
Unit - Add Berserker Upgrade to AdvancedWorker
Else - Actions
Foundry Hotkey Not Enough Oil
Events
Game - Button for build Human Shipyard pressed.
Conditions
Actions
Set Variable Set CurrentPlayerNumber = (Player number of (Triggering player))
Set Variable Set CurrentPlayer = (Player(CurrentPlayerNumber))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Less than 150
((Player(CurrentPlayerNumber)) Current gold) Greater than or equal to 200
((Player(CurrentPlayerNumber)) Current lumber) Greater than or equal to 100
Then - Actions
Game - Force (Player(CurrentPlayerNumber)) to press Escape/Cancel
Set Variable Set OilWorkersGroup = (Units currently selected by (Player(CurrentPlayerNumber)))
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in OilWorkersGroup and do (Actions)
Loop - Actions
Unit - Order (Picked unit) to Stop .
Custom script: call DisplayTimedTextToPlayer(udg_CurrentPlayer, 1, 0, 5, "|cffffcc00Not enough oil.|r")
Else - Actions
Building Start Take Oil Cancel on Insufficient Oil
Events
Unit - A unit Begins construction
Conditions
Actions
-------- Foundry --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Constructing structure)) Equal to Human Shipyard
Then - Actions
Set Variable Set AdvancedConstruction = (Constructing structure)
Set Variable Set CurrentPlayerNumber = (Player number of (Owner of (Constructing structure)))
Set Variable Set CurrentPlayer = (Player(CurrentPlayerNumber))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Greater than or equal to 150
Then - Actions
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] - 150)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] - 150)
Else - Actions
Unit - Kill AdvancedConstruction
Player - Add 200 to CurrentPlayer . Current gold
Player - Add 100 to CurrentPlayer . Current lumber
Custom script: call DisplayTimedTextToPlayer(udg_CurrentPlayer, 1, 0, 5, "|cffffcc00Not enough oil.|r")
Else - Actions
Building Cancel Return Oil
Events
Unit - A unit Cancels construction
Conditions
Actions
-------- Foundry --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Cancelled structure)) Equal to Human Shipyard
Then - Actions
Set Variable Set CurrentPlayerNumber = (Player number of (Owner of (Cancelled structure)))
Set Variable Set CurrentPlayer = (Player(CurrentPlayerNumber))
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] + 150)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] + 150)
Else - Actions
Unit Cancel on Insufficient Oil
Events
Unit - A unit Begins training a unit
Conditions
Or - Any (Conditions) are true
Conditions
(Trained unit-type) Equal to Human Frigate
(Trained unit-type) Equal to Human Battleship
Actions
Set Variable Set CurrentPlayerNumber = (Player number of (Owner of (Triggering unit)))
Set Variable Set CurrentPlayer = (Player(CurrentPlayerNumber))
-------- Frigate --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Less than 200
((Player(CurrentPlayerNumber)) Current gold) Greater than or equal to 250
((Player(CurrentPlayerNumber)) Current lumber) Greater than or equal to 100
(Issued order) Equal to (Order(humandestroyer))
Then - Actions
Game - Display to (All players) the text: FRIGATE TRAINING
Custom script: call DisplayTimedTextToPlayer(udg_CurrentPlayer, 1, 0, 5, "|cffffcc00Not enough oil.|r")
-------- Cancel Doesn't Work Properly without the Dummy Wait --------
Wait 0.00 seconds
Custom script: call IssueImmediateOrderById(GetOrderedUnit(), 851976)
Else - Actions
Trigger - Run Unit_Disabler_Enabler_Checker <gen> (checking conditions)
-------- Battleship --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Less than 400
((Player(CurrentPlayerNumber)) Current gold) Greater than or equal to 500
((Player(CurrentPlayerNumber)) Current lumber) Greater than or equal to 200
(Issued order) Equal to (Order(humanbattleship))
Then - Actions
Game - Display to (All players) the text: BATTLESHIP TRAINING
Custom script: call DisplayTimedTextToPlayer(udg_CurrentPlayer, 1, 0, 5, "|cffffcc00Not enough oil.|r")
-------- Cancel Doesn't Work Properly without the Dummy Wait --------
Wait 0.00 seconds
Custom script: call IssueImmediateOrderById(GetOrderedUnit(), 851976)
Else - Actions
Trigger - Run Unit_Disabler_Enabler_Checker <gen> (checking conditions)
Unit Train Oil Take
Events
Unit - A unit Is issued an order with no target
Conditions
Or - Any (Conditions) are true
Conditions
(Issued order) Equal to (Order(humandestroyer))
(Issued order) Equal to (Order(humanbattleship))
Actions
Set Variable Set CurrentPlayerNumber = (Player number of (Owner of (Triggering unit)))
Set Variable Set CurrentPlayer = (Player(CurrentPlayerNumber))
-------- Frigate --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Greater than or equal to 200
((Player(CurrentPlayerNumber)) Current gold) Greater than or equal to 250
((Player(CurrentPlayerNumber)) Current lumber) Greater than or equal to 100
(Issued order) Equal to (Order(humandestroyer))
Then - Actions
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] - 200)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] - 200)
Else - Actions
-------- Battleship --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Greater than or equal to 400
((Player(CurrentPlayerNumber)) Current gold) Greater than or equal to 500
((Player(CurrentPlayerNumber)) Current lumber) Greater than or equal to 200
(Issued order) Equal to (Order(humanbattleship))
Then - Actions
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] - 400)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] - 400)
Else - Actions
Unit Cancel Oil Back
Events
Unit - A unit Cancels training a unit
Conditions
Actions
Set Variable Set CurrentPlayerNumber = (Player number of (Owner of (Triggering unit)))
-------- Frigate --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Trained unit-type) Equal to Human Frigate
Then - Actions
Game - Display to (All players) the text: FRIGATE CANCELLED CONDITION
-------- Oil Back --------
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] + 200)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] + 200)
Else - Actions
-------- Frigate --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Trained unit-type) Equal to Human Battleship
Then - Actions
Game - Display to (All players) the text: BATTLESHIP CANCELLED CONDITION
-------- Oil Back --------
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] + 400)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] + 400)
Else - Actions
Unit Disabler Enabler Checker
Events
Time - Every 0.03 seconds of game time
Conditions
Actions
Player Group - Pick every player in OilPlayerGroup and do (Actions)
Loop - Actions
Set Variable Set CurrentPlayerNumber = (Player number of (Picked player))
-------- Frigate --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Less than 200
Then - Actions
Player - Set the current research level of R000 (Unexpected type: 'techcode') to 0 for (Player(CurrentPlayerNumber))
Else - Actions
Player - Set the current research level of R000 (Unexpected type: 'techcode') to 1 for (Player(CurrentPlayerNumber))
-------- Battleship --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Less than 400
Then - Actions
Player - Set the current research level of R001 (Unexpected type: 'techcode') to 0 for (Player(CurrentPlayerNumber))
Else - Actions
Player - Set the current research level of R001 (Unexpected type: 'techcode') to 1 for (Player(CurrentPlayerNumber))
Upgrade Cancel on Insufficient Oil
Events
Unit - A unit Begins research
Conditions
Or - Any (Conditions) are true
Conditions
(Researched tech-type) Equal to R002 (Unexpected type: 'techcode')
Actions
Game - Display to (All players) the text: IMPROVED CANNONS STARTED
Set Variable Set CurrentPlayerNumber = (Player number of (Owner of (Triggering unit)))
Set Variable Set CurrentPlayer = (Player(CurrentPlayerNumber))
-------- Improved Cannons --------
-------- Level 1 --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Less than 100
((Player(CurrentPlayerNumber)) Current gold) Greater than or equal to 200
((Player(CurrentPlayerNumber)) Current lumber) Greater than or equal to 100
(Current research level of R002 (Unexpected type: 'techcode') for CurrentPlayer) Equal to 0
Then - Actions
Set Variable Set ImprovedCannonsLowOil[CurrentPlayerNumber] = "true"
Custom script: call IssueImmediateOrderById(GetTriggerUnit(), 851976)
Custom script: call DisplayTimedTextToPlayer(udg_CurrentPlayer, 1, 0, 5, "|cffffcc00Not enough oil.|r")
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Greater than or equal to 100
(Current research level of R002 (Unexpected type: 'techcode') for CurrentPlayer) Equal to 0
Then - Actions
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] - 100)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] - 100)
Else - Actions
-------- Level2 --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Less than 200
((Player(CurrentPlayerNumber)) Current gold) Greater than or equal to 300
((Player(CurrentPlayerNumber)) Current lumber) Greater than or equal to 200
(Current research level of R002 (Unexpected type: 'techcode') for CurrentPlayer) Equal to 1
Then - Actions
Set Variable Set ImprovedCannonsLowOil[CurrentPlayerNumber] = "true"
Custom script: call IssueImmediateOrderById(GetTriggerUnit(), 851976)
Custom script: call DisplayTimedTextToPlayer(udg_CurrentPlayer, 1, 0, 5, "|cffffcc00Not enough oil.|r")
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Greater than or equal to 200
(Current research level of R002 (Unexpected type: 'techcode') for CurrentPlayer) Equal to 1
Then - Actions
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] - 200)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] - 200)
Else - Actions
-------- Level 3 --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Less than 300
((Player(CurrentPlayerNumber)) Current gold) Greater than or equal to 400
((Player(CurrentPlayerNumber)) Current lumber) Greater than or equal to 300
(Current research level of R002 (Unexpected type: 'techcode') for CurrentPlayer) Equal to 2
Then - Actions
Set Variable Set ImprovedCannonsLowOil[CurrentPlayerNumber] = "true"
Custom script: call IssueImmediateOrderById(GetTriggerUnit(), 851976)
Custom script: call DisplayTimedTextToPlayer(udg_CurrentPlayer, 1, 0, 5, "|cffffcc00Not enough oil.|r")
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
OilBoardValue[CurrentPlayerNumber] Greater than or equal to 300
(Current research level of R002 (Unexpected type: 'techcode') for CurrentPlayer) Equal to 2
Then - Actions
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] - 300)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] - 300)
Else - Actions
Upgrade Cancel Resources Back
Events
Unit - A unit Cancels research
Conditions
Or - Any (Conditions) are true
Conditions
(Researched tech-type) Equal to R002 (Unexpected type: 'techcode')
Actions
Game - Display to (All players) the text: IMPROVED CANNONS CANCEL
Set Variable Set CurrentPlayerNumber = (Player number of (Owner of (Triggering unit)))
Set Variable Set CurrentPlayer = (Player(CurrentPlayerNumber))
-------- Improved Cannons --------
-------- Level 1 --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Current research level of R002 (Unexpected type: 'techcode') for CurrentPlayer) Equal to 0
Then - Actions
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] + 100)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] + 100)
-------- Oil Back on Low Oil Cancel --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
ImprovedCannonsLowOil[CurrentPlayerNumber] Equal to True
Then - Actions
Set Variable Set ImprovedCannonsLowOil[CurrentPlayerNumber] = "false"
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] - 100)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] - 100)
Else - Actions
Else - Actions
-------- Level2 --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Current research level of R002 (Unexpected type: 'techcode') for CurrentPlayer) Equal to 1
Then - Actions
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] + 200)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] + 200)
-------- Oil Back on Low Oil Cancel --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
ImprovedCannonsLowOil[CurrentPlayerNumber] Equal to True
Then - Actions
Set Variable Set ImprovedCannonsLowOil[CurrentPlayerNumber] = "false"
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] - 200)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] - 200)
Else - Actions
Else - Actions
-------- Level 3 --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Current research level of R002 (Unexpected type: 'techcode') for CurrentPlayer) Equal to 2
Then - Actions
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] + 300)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] + 300)
-------- Oil Back on Low Oil Cancel --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
ImprovedCannonsLowOil[CurrentPlayerNumber] Equal to True
Then - Actions
Set Variable Set ImprovedCannonsLowOil[CurrentPlayerNumber] = "false"
Leaderboard - Change the value for CurrentPlayer in OilLeaderboard to (OilBoardValue[CurrentPlayerNumber] - 300)
Set Variable Set OilBoardValue[CurrentPlayerNumber] = (OilBoardValue[CurrentPlayerNumber] - 300)
Else - Actions
Else - Actions