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
- [GUI] BunkerSystem V1.4
- BunkerSystem vB4
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
BunkerSystem v1.4.w3x
Variables
Initialization
How to install
Initialization
Bunker
BunkerUnitRegister
BunkerLoad
BunkerUnload
BunkerAtack
Other
Credits to Bribe
Unit Indexer
Unit Event
Purely for testing fun :)
Message
Init
Zombs
Lose
Win
Credits
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 |
| BunkerDummies | unitcode | Yes | |
| BunkerDummy | unit | Yes | |
| BunkerMaxUnits | integer | No | |
| BunkerUnitGroup | group | Yes | |
| BunkerUnits | unitcode | Yes | |
| CargoEvent | real | No | |
| CargoTransportGroup | group | Yes | |
| CargoTransportUnit | unit | Yes | |
| CEvBlock | boolean | Yes | |
| CEvNext | integer | Yes | |
| CEvPrev | integer | Yes | |
| CEvSpecial | boolean | Yes | |
| CEvUnloadTimer | timer | No | |
| Count | integer | Yes | |
| DeathEvent | real | No | |
| DEvAbility | abilcode | No | |
| DEvBlock | boolean | Yes | |
| DEvList | integer | Yes | |
| DEvRemoved | boolean | Yes | |
| DEvTimer | timer | No | |
| HANDLE_INDEX_DELETE | trigger | No | |
| HANDLE_INDEX_GETID | trigger | No | |
| HANDLE_INDEX_ID | integer | No | |
| HANDLE_INDEX_REGISTER | trigger | No | |
| HANDLE_INDEX_UNIT | unit | No | |
| IsUnitAlive | boolean | Yes | |
| IsUnitReincarnating | boolean | Yes | |
| SUPER_DOOPER_GROUP | group | No | |
| SUPER_DOOPER_TIME | real | Yes | |
| TempInteger | integer | No | |
| TempInteger2 | integer | No | |
| TempInteger3 | integer | No | |
| TempLoc | location | No | |
| TempPoint | location | No | |
| TempUnit | unit | No | |
| TempUnit2 | unit | No | |
| TempUnitType | unitcode | No | |
| TempUnitType2 | unitcode | No | |
| UDex | integer | No | |
| UDexGen | integer | No | |
| UDexNext | integer | Yes | |
| UDexPrev | integer | Yes | |
| UDexRecycle | integer | No | |
| UDexUnits | unit | Yes | |
| UDexWasted | integer | No | |
| UNIT_INDEX_GROUP | group | No | |
| UnitIndexerEnabled | boolean | No | |
| UnitIndexEvent | real | No | |
| UnitIndexLock | integer | Yes |
1st - Install the UIS and UES - if you mess up links provoded in the "Credits to Bribe" comment
2nd - Go to File>Preferences Make sure the "Automaticaly create unknown variables" is checked
3rd - Go to Advanced > Gameplay Constants Make sure that "Movement - Unit speed - Minimum" is 0
3rd - Copy "Atack !" ability
4th - Copy the unit actions from "Initialization" trigger to your initialization trigger
5th - Copy the triggers from "Bunker"
You can make your own bunkers it is not a must to use the template one. Just make sure that it has the "Load" "Unload" "Atack !" abilities and a custom "Cargo Hold" ability.
How to make dummy unit for this system?
Coppy the unit you want to be able to fire from the bunker.
Give it "locust" ability.
Set the Model File to "Custom Patch" .mdl
Set Shadow Image to None
If it has more Aquision Range than range set the aquision range to be equal to the range
Set Movement - Speed Base to 0
Set Patching - Collision Size to 0
Set Stats - Food Cost to 0
Set Stats - Hide Minimap Display to True
If you are using the point value for something set it to 0
The last line applies to all other values which don't interupt the concept of "A DUMMY unit doesnt move, shoots from a fixed location and can cast the autocast ablities" If you dont understand this line just ignore it...
2nd - Go to File>Preferences Make sure the "Automaticaly create unknown variables" is checked
3rd - Go to Advanced > Gameplay Constants Make sure that "Movement - Unit speed - Minimum" is 0
3rd - Copy "Atack !" ability
4th - Copy the unit actions from "Initialization" trigger to your initialization trigger
5th - Copy the triggers from "Bunker"
You can make your own bunkers it is not a must to use the template one. Just make sure that it has the "Load" "Unload" "Atack !" abilities and a custom "Cargo Hold" ability.
How to make dummy unit for this system?
Coppy the unit you want to be able to fire from the bunker.
Give it "locust" ability.
Set the Model File to "Custom Patch" .mdl
Set Shadow Image to None
If it has more Aquision Range than range set the aquision range to be equal to the range
Set Movement - Speed Base to 0
Set Patching - Collision Size to 0
Set Stats - Food Cost to 0
Set Stats - Hide Minimap Display to True
If you are using the point value for something set it to 0
The last line applies to all other values which don't interupt the concept of "A DUMMY unit doesnt move, shoots from a fixed location and can cast the autocast ablities" If you dont understand this line just ignore it...
Initialization
Events
Map initialization
Conditions
Actions
Visibility - Create an initially Enabled visibility modifier for Player 1 (Red) emitting Visibility across (Entire map)
-------- ^ ^ ^PURELY FOR MAP TESTING ^ ^ ^ --------
-------- ----------------------------------------------------------------------------------------------------- --------
-------- ---------------------------------------------------------------------UNIT TYPE 1------------------------------------------------------------------------------------------- --------
-------- This is the Unit-Type which can enter the bunker --------
Set Variable Set TempUnitType = "h001"
-------- ----------------------------------------------------------------------------------------------------- --------
-------- And its coresponding dummy --------
Set Variable Set TempUnitType2 = "h004"
-------- ----------------------------------------------------------------------------------------------------- --------
-------- The next line runs the UnitRegister trigger which registers the Unit-Type to the system --------
Trigger - Run BunkerUnitRegister <gen> (ignoring conditions)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------
-------- ---------------------------------------------------------------------UNIT TYPE 2------------------------------------------------------------------------------------------- --------
-------- And now the second Unit-Type --------
Set Variable Set TempUnitType = "h002"
-------- ----------------------------------------------------------------------------------------------------- --------
-------- And its coresponding dummy --------
Set Variable Set TempUnitType2 = "h003"
-------- ----------------------------------------------------------------------------------------------------- --------
-------- And again we register the unit. --------
Trigger - Run BunkerUnitRegister <gen> (ignoring conditions)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------
-------- ---------------------------------------------------------------------UNIT TYPE 3------------------------------------------------------------------------------------------- --------
-------- And now the third Unit-Type --------
Set Variable Set TempUnitType = "h000"
-------- ----------------------------------------------------------------------------------------------------- --------
-------- And its coresponding dummy --------
Set Variable Set TempUnitType2 = "h005"
-------- ----------------------------------------------------------------------------------------------------- --------
-------- And again we register the unit. --------
Trigger - Run BunkerUnitRegister <gen> (ignoring conditions)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------
-------- ---------------------------------------------------------------------You can continue to 8192 unit types but I doubt you'd need that much------------------------------------------------------------------------------------------- --------
BunkerUnitRegister
Events
Conditions
Actions
-------- This sets the index of the unit-type and the number of unit-types which can shoot from a bunker, each time +1 --------
Set Variable Set BunkerMaxUnits = (BunkerMaxUnits + 1)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- This registers the unit-type to the system --------
Set Variable Set BunkerUnits[BunkerMaxUnits] = TempUnitType
-------- ----------------------------------------------------------------------------------------------------- --------
-------- This registers its coresponding dummy to the system --------
Set Variable Set BunkerDummies[BunkerMaxUnits] = TempUnitType2
-------- ----------------------------------------------------------------------------------------------------- --------
Add all the bunkers types you got in the conditions as exampled. If not transports will spam units too.
BunkerLoad
Events
Unit - A unit Is loaded into a transport
Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Transporting unit)) Equal to Bunker
(Unit-type of (Transporting unit)) Equal to Bunker Wooden
Actions
-------- Setting the entering unit and the bunker to variable --------
Set Variable Set TempUnit = (Triggering unit)
Set Variable Set TempUnit2 = (Transporting unit)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Setting the unit-type of the entering unit and the bunker to variable --------
Set Variable Set TempUnitType = (Unit-type of TempUnit)
Set Variable Set TempUnitType2 = (Unit-type of TempUnit2)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- This makes the fire archer unable to fire form wooden bunker. --------
If ((TempUnitType Equal to Fire Archer) and (TempUnitType2 Equal to Bunker Wooden)) then do (Skip remaining actions) else do (Do nothing)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Custom values of the entering unit and the bunker --------
Set Variable Set TempInteger = (Custom value of TempUnit)
Set Variable Set TempInteger2 = (Custom value of TempUnit2)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- The number of units who can enter the bunker --------
For each (Integer TempInteger3 ) from 1 to BunkerMaxUnits , do (Actions)
Loop - Actions
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Then check if the unit can fire from the bunker --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TempUnitType Equal to BunkerUnits[TempInteger3]
Then - Actions
-------- ----------------------------------------------------------------------------------------------------- --------
-------- The point of the bunker --------
Set Variable Set TempPoint = (Position of TempUnit2)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Creating a dummy unit --------
Unit - Create 1 . BunkerDummies[TempInteger3] for (Triggering player) at TempPoint facing Default building facing degrees
-------- ----------------------------------------------------------------------------------------------------- --------
-------- This makes the dummy not to run after the targes and stay in the bunker --------
Custom script: call SetUnitPropWindow(bj_lastCreatedUnit, 0)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Set variable for the dummy unit so we can destroy it in the unload trigger --------
Set Variable Set BunkerDummy[TempInteger] = (Last created unit)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Add the unit to unit group so we can issue it an atack order --------
Unit Group - Add BunkerDummy[TempInteger] to BunkerUnitGroup[TempInteger2]
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Mooving the dummy to the center of the bunker --------
Unit - Move BunkerDummy[TempInteger] instantly to TempPoint
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Setting the mana of a unit if it has (as the fire archer here) --------
Unit - Set mana of BunkerDummy[TempInteger] to (Mana of TempUnit)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Clearing Leaks --------
Custom script: call RemoveLocation(udg_TempPoint)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Skiping all reamining actions so it dont repeat and make more unneeded units :) --------
Skip remaining actions
-------- ----------------------------------------------------------------------------------------------------- --------
Else - Actions
BunkerUnload
Events
Game - CargoEvent becomes Equal to 2.00
Conditions
Actions
-------- Custom values of the entering unit and the bunker --------
-------- For more information check Unit Event System --------
Set Variable Set TempInteger = (Custom value of UDexUnits[UDex])
Set Variable Set TempInteger2 = (Custom value of CargoTransportUnit[UDex])
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Setting the mana of a unit if it has (as the fire archer here) --------
Unit - Set mana of UDexUnits[UDex] to (Mana of BunkerDummy[TempInteger])
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Removing the dummy from the game --------
Unit - Remove BunkerDummy[TempInteger] from the game
-------- ----------------------------------------------------------------------------------------------------- --------
BunkerAtack
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Atack !
Actions
-------- Setting the bunker and the atack target into variables --------
Set Variable Set TempUnit = (Casting unit)
Set Variable Set TempUnit2 = (Target unit of ability being cast)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Setting the custom value of the bunker --------
Set Variable Set TempInteger = (Custom value of TempUnit)
-------- ----------------------------------------------------------------------------------------------------- --------
-------- Picking all the units in the bunker and ordering them to atack --------
Unit Group - Pick every unit in BunkerUnitGroup[TempInteger] and do (Actions)
Loop - Actions
Unit - Order (Picked unit) to Attack . TempUnit2
-------- ----------------------------------------------------------------------------------------------------- --------
The bunker wouldnt have came to life without him.
I had problems instaling the Unit Event System. The DEvTimer didn't copied maybe because it is in some custom script. I had to make it manualy.
If you need more information for UIS or UES heres links.
Link to the Unit Indexing System : http://www.hiveworkshop.com/forums/spells-569/gui-unit-indexer-1-2-0-2-a-197329/
Link to the Unit Event System : http://www.hiveworkshop.com/forums/spells-569/unit-event-v2-0-0-0-a-201641/
I had problems instaling the Unit Event System. The DEvTimer didn't copied maybe because it is in some custom script. I had to make it manualy.
If you need more information for UIS or UES heres links.
Link to the Unit Indexing System : http://www.hiveworkshop.com/forums/spells-569/gui-unit-indexer-1-2-0-2-a-197329/
Link to the Unit Event System : http://www.hiveworkshop.com/forums/spells-569/unit-event-v2-0-0-0-a-201641/
Unit Indexer gives you an array-safe (1-8190) custom value for units, eliminating the need for hashtables to store unit-specific data.
Just use "Set MyArrayData[(Custom value of Unit)] = (Some data)".
--------
If you want to get the unit assigned to an index (reverse lookup) use "UDexUnits[(Index)]".
--------
If you want to detect when an index is created or when it is released, use "UnitIndexEvent Equal to 1.00" (created) or "UnitIndexEvent Equal to 2.00" (released). The index being created/released is called "UDex".
--------
You can enable/disable Unit Indexer to protect some of your undesirable units from being indexed like this:
Trigger - Turn off Unit Indexer <gen>
Unit - Create 1 Dummy for (Triggering player) at TempPoint facing 0.00 degrees
Trigger - Turn on Unit Indexer <gen>
--------
If you want to use a Map Initialization trigger that uses custom value of units, to make sure that UnitIndexer initializes first, use the event "UnitIndexEvent Equal to 3.00". Otherwise the custom value of units may be zero.
--------
Advanced:
--------
If you want to lock the index of a unit, use "Set UnitIndexLock[(Index)] = (UnitIndexLock[(Index)] + 1)". This will prevent the index from being recycled. If you want to unlock it and allow it to be recycled, run the Unit Indexer <gen> trigger.
Note: Make sure if you add a lock that you will eventually remove the lock, otherwise the index will never be recycled.
Just use "Set MyArrayData[(Custom value of Unit)] = (Some data)".
--------
If you want to get the unit assigned to an index (reverse lookup) use "UDexUnits[(Index)]".
--------
If you want to detect when an index is created or when it is released, use "UnitIndexEvent Equal to 1.00" (created) or "UnitIndexEvent Equal to 2.00" (released). The index being created/released is called "UDex".
--------
You can enable/disable Unit Indexer to protect some of your undesirable units from being indexed like this:
Trigger - Turn off Unit Indexer <gen>
Unit - Create 1 Dummy for (Triggering player) at TempPoint facing 0.00 degrees
Trigger - Turn on Unit Indexer <gen>
--------
If you want to use a Map Initialization trigger that uses custom value of units, to make sure that UnitIndexer initializes first, use the event "UnitIndexEvent Equal to 3.00". Otherwise the custom value of units may be zero.
--------
Advanced:
--------
If you want to lock the index of a unit, use "Set UnitIndexLock[(Index)] = (UnitIndexLock[(Index)] + 1)". This will prevent the index from being recycled. If you want to unlock it and allow it to be recycled, run the Unit Indexer <gen> trigger.
Note: Make sure if you add a lock that you will eventually remove the lock, otherwise the index will never be recycled.
Unit Indexer
Events
Map initialization
Conditions
Actions
Custom script: call ExecuteFunc("InitializeUnitIndexer")
Custom script: endfunction
Custom script:
Custom script: function ClearUnitIndex takes nothing returns nothing
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
Set Variable Set UnitIndexLock[UDex] = (UnitIndexLock[UDex] - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitIndexLock[UDex] Equal to 0
Then - Actions
Set Variable Set UDexNext[UDexPrev[UDex]] = UDexNext[UDex]
Set Variable Set UDexPrev[UDexNext[UDex]] = UDexPrev[UDex]
Set Variable Set UDexPrev[UDex] = "0"
Set Variable Set UnitIndexEvent = "0.00"
Set Variable Set UnitIndexEvent = "2.00"
Set Variable Set UnitIndexEvent = "0.00"
Set Variable Set UDexUnits[UDex] = No unit
Set Variable Set UDexNext[UDex] = UDexRecycle
Set Variable Set UDexRecycle = UDex
Else - Actions
Else - Actions
Custom script: endfunction
Custom script:
Custom script: function IndexUnit takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
Custom script: local integer ndex
-------- - --------
-------- You can customize the following block - if conditions are false the (Matching unit) won't be indexed. --------
-------- - --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitIndexerEnabled Equal to True
(Custom value of (Matching unit)) Equal to 0
Then - Actions
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
Custom script: set ndex = udg_UDexNext[udg_UDex]
Custom script: call ClearUnitIndex()
Custom script: set udg_UDex = ndex
Custom script: endloop
Else - Actions
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]
Set Variable Set UDexUnits[UDex] = (Matching unit)
Unit - Set the custom value of UDexUnits[UDex] to UDex
Set Variable Set UDexPrev[UDexNext[0]] = UDex
Set Variable Set UDexNext[UDex] = UDexNext[0]
Set Variable Set UDexNext[0] = UDex
Set Variable Set UnitIndexLock[UDex] = "1"
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
Custom script:
Custom script: function InitializeUnitIndexer takes nothing returns nothing
Custom script: local integer i = 16
Custom script: local boolexpr b = Filter(function IndexUnit)
Custom script: local region re = CreateRegion()
Custom script: local trigger t = GetTriggeringTrigger()
Custom script: local rect r = GetWorldBounds()
Custom script: call RegionAddRect(re, r)
Custom script: call TriggerRegisterEnterRegion(t, re, b)
Custom script: call TriggerClearActions(t)
Custom script: call TriggerAddAction(t, function ClearUnitIndex)
Set Variable Set UnitIndexerEnabled = "true"
Custom script: loop
Custom script: set i = i - 1
Custom script: call GroupEnumUnitsOfPlayer(bj_lastCreatedGroup, Player(i), b)
Custom script: exitwhen i == 0
Custom script: endloop
Custom script: call RemoveRect(r)
Custom script: set re = null
Custom script: set r = null
Custom script: set t = null
Custom script: set b = null
Set Variable Set UnitIndexEvent = "3.00"
Set Variable Set UnitIndexEvent = "0.00"
Unit Event
Events
Game - UnitIndexEvent becomes Equal to 1.00
Game - UnitIndexEvent becomes Equal to 2.00
Conditions
Actions
Custom script: if udg_DEvAbility == 0 then
Set Variable Set DEvAbility = "A002"
Custom script: call ExecuteFunc("InitDeathEvent")
Custom script: endif
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitIndexEvent Equal to 1.00
Then - Actions
Unit - Add DEvAbility to UDexUnits[UDex]
Custom script: call UnitMakeAbilityPermanent(udg_UDexUnits[udg_UDex], true, udg_DEvAbility)
Set Variable Set DEvBlock[UDex] = "true"
Set Variable Set IsUnitAlive[UDex] = "true"
Custom script: call ExecuteFunc("DEvCheckDeathProxy")
Else - Actions
Set Variable Set IsUnitAlive[UDex] = "false"
Set Variable Set IsUnitReincarnating[UDex] = "false"
Set Variable Set DEvRemoved[UDex] = "false"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
CargoTransportUnit[UDex] Not equal to No unit
Then - Actions
Custom script: call ExecuteFunc("CEvFireUnload")
Else - Actions
Custom script: if udg_CargoTransportGroup[udg_UDex] != null then
Custom script: call DestroyGroup(udg_CargoTransportGroup[udg_UDex])
Custom script: set udg_CargoTransportGroup[udg_UDex] = null
Custom script: endif
Custom script: endfunction
Custom script:
Custom script: function CEvFireUnload takes nothing returns nothing
Unit Group - Remove UDexUnits[UDex] from CargoTransportGroup[(Custom value of CargoTransportUnit[UDex])] .
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
CEvSpecial[UDex] Equal to True
Then - Actions
Set Variable Set CEvSpecial[UDex] = "false"
Set Variable Set CEvNext[CEvPrev[UDex]] = CEvNext[UDex]
Set Variable Set CEvPrev[CEvNext[UDex]] = CEvPrev[UDex]
Set Variable Set CEvPrev[UDex] = "0"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
CEvNext[0] Equal to 0
Then - Actions
Countdown Timer - Pause CEvUnloadTimer
Else - Actions
Else - Actions
Set Variable Set CEvBlock[UDex] = "true"
Set Variable Set CargoEvent = "0.00"
Set Variable Set CargoEvent = "2.00"
Set Variable Set CargoEvent = "0.00"
Set Variable Set CEvBlock[UDex] = "false"
Custom script: if not IsUnitLoaded(udg_UDexUnits[udg_UDex]) or IsUnitType(udg_CargoTransportUnit[udg_UDex], UNIT_TYPE_DEAD) or GetUnitTypeId(udg_CargoTransportUnit[udg_UDex]) == 0 then
Set Variable Set CargoTransportUnit[UDex] = No unit
Custom script: endif
Custom script: endfunction
Custom script:
Custom script: function DEvOnDeath takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
Set Variable Set UDex = (Custom value of (Triggering unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UDex Not equal to 0
Then - Actions
Set Variable Set IsUnitAlive[UDex] = "false"
Set Variable Set DeathEvent = "0.00"
Set Variable Set DeathEvent = "1.00"
Set Variable Set DeathEvent = "0.00"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
CargoTransportUnit[UDex] Not equal to No unit
Then - Actions
Custom script: call CEvFireUnload()
Else - Actions
Else - Actions
Custom script: set udg_UDex = pdex
Custom script: return false
Custom script: endfunction
Custom script:
Custom script: function DEvCheckDeath takes nothing returns nothing
Set Variable Set UDex = DEvList[0]
Set Variable Set DEvList[0] = "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
DEvBlock[UDex] Equal to True
Then - Actions
Set Variable Set DEvBlock[UDex] = "false"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IsUnitAlive[UDex] Equal to True
Then - Actions
Set Variable Set IsUnitAlive[UDex] = "false"
Set Variable Set IsUnitReincarnating[UDex] = "true"
Set Variable Set DeathEvent = "0.50"
Set Variable Set DeathEvent = "0.00"
Else - Actions
Set Variable Set UDex = DEvList[UDex]
Custom script: endloop
Custom script: endfunction
Custom script:
Custom script: function DEvCheckDeathProxy takes nothing returns nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DEvList[0] Equal to 0
Then - Actions
Custom script: call TimerStart(udg_DEvTimer, 0, false, function DEvCheckDeath)
Else - Actions
Set Variable Set DEvList[UDex] = DEvList[0]
Set Variable Set DEvList[0] = UDex
Custom script: endfunction
Custom script:
Custom script: function DEvOnOrder takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
Set Variable Set UDex = (Custom value of (Matching unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UDex Not equal to 0
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Level of DEvAbility for UDexUnits[UDex]) Equal to 0
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DEvRemoved[UDex] Equal to False
Then - Actions
Set Variable Set DEvRemoved[UDex] = "true"
Set Variable Set DeathEvent = "0.00"
Set Variable Set DeathEvent = "3.00"
Set Variable Set DeathEvent = "0.00"
Else - Actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IsUnitAlive[UDex] Equal to False
Then - Actions
Set Variable Set IsUnitAlive[UDex] = "true"
Set Variable Set DeathEvent = "0.00"
Set Variable Set DeathEvent = "2.00"
Set Variable Set DeathEvent = "0.00"
Set Variable Set IsUnitReincarnating[UDex] = "false"
Else - Actions
Custom script: if IsUnitType(udg_UDexUnits[udg_UDex], UNIT_TYPE_DEAD) then
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DEvBlock[UDex] Equal to True
Then - Actions
Set Variable Set IsUnitAlive[UDex] = "false"
Set Variable Set DeathEvent = "0.00"
Set Variable Set DeathEvent = "1.00"
Set Variable Set DeathEvent = "0.00"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
CEvSpecial[UDex] Equal to True
(UDexUnits[UDex] is A Hero) Equal to True
Then - Actions
Else - Actions
Custom script: call DEvCheckDeathProxy()
Custom script: endif
Custom script: if udg_CargoTransportUnit[udg_UDex] != null and not udg_CEvBlock[udg_UDex] and not IsUnitLoaded(udg_UDexUnits[udg_UDex]) or IsUnitType(udg_UDexUnits[udg_UDex], UNIT_TYPE_DEAD) then
Custom script: call CEvFireUnload()
Custom script: endif
Else - Actions
Custom script: set udg_UDex = pdex
Custom script: return false
Custom script: endfunction
Custom script:
Custom script: function CEvUnloadChecker takes nothing returns nothing
Set Variable Set UDex = CEvNext[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
(UDexUnits[UDex] is being transported) Equal to False
Then - Actions
Custom script: call CEvFireUnload()
Else - Actions
Set Variable Set UDex = CEvNext[UDex]
Custom script: endloop
Custom script: endfunction
Custom script:
Custom script: function CEvStartChecker takes nothing returns nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
CEvNext[0] Equal to 0
Then - Actions
Custom script: call TimerStart(udg_CEvUnloadTimer, 0.03125, true, function CEvUnloadChecker)
Else - Actions
Set Variable Set CEvSpecial[UDex] = "true"
Set Variable Set CEvPrev[CEvNext[0]] = UDex
Set Variable Set CEvNext[UDex] = CEvNext[0]
Set Variable Set CEvNext[0] = UDex
Custom script: endfunction
Custom script:
Custom script: function CEvOnLoad takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
Custom script: local integer udg_TempInteger
Set Variable Set UDex = (Custom value of (Triggering unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UDex Not equal to 0
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
CargoTransportUnit[UDex] Not equal to No unit
Then - Actions
Custom script: call CEvFireUnload()
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IsUnitAlive[UDex] Equal to False
Then - Actions
Custom script: call CEvStartChecker()
Else - Actions
Set Variable Set CargoTransportUnit[UDex] = (Transporting unit)
Set Variable Set TempInteger = (Custom value of CargoTransportUnit[UDex])
Custom script: if udg_CargoTransportGroup[udg_TempInteger] == null then
Custom script: set udg_CargoTransportGroup[udg_TempInteger] = CreateGroup()
Custom script: endif
Unit Group - Add UDexUnits[UDex] to CargoTransportGroup[TempInteger]
Set Variable Set CargoEvent = "0.00"
Set Variable Set CargoEvent = "1.00"
Set Variable Set CargoEvent = "0.00"
Else - Actions
Custom script: set udg_UDex = pdex
Custom script: return false
Custom script: endfunction
Custom script:
Custom script: function CEvOnPause takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
Set Variable Set UDex = (Custom value of (Matching unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(UDexUnits[UDex] is paused) Equal to True
CargoTransportUnit[UDex] Not equal to No unit
CEvSpecial[UDex] Equal to False
Then - Actions
Custom script: call CEvStartChecker()
Else - Actions
Custom script: set udg_UDex = pdex
Custom script: return false
Custom script: endfunction
Custom script:
Custom script: function InitDeathEvent takes nothing returns nothing
Custom script: local integer i = 15
Custom script: local player p
Custom script: local trigger d = CreateTrigger()
Custom script: local trigger l = CreateTrigger()
Custom script: local trigger t = GetTriggeringTrigger()
Custom script: local boolexpr o = Filter(function DEvOnOrder)
Custom script: local boolexpr u = Filter(function CEvOnPause)
Custom script: call TriggerAddCondition(d, Filter(function DEvOnDeath))
Custom script: call TriggerAddCondition(l, Filter(function CEvOnLoad))
Custom script: loop
Custom script: set p = Player(i)
Custom script: call SetPlayerAbilityAvailable(p, udg_DEvAbility, false)
Custom script: call TriggerRegisterPlayerUnitEvent(t, p, EVENT_PLAYER_UNIT_ISSUED_ORDER, o)
Custom script: call TriggerRegisterPlayerUnitEvent(t, p, EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER, u)
Custom script: call TriggerRegisterPlayerUnitEvent(d, p, EVENT_PLAYER_UNIT_DEATH, null)
Custom script: call TriggerRegisterPlayerUnitEvent(l, p, EVENT_PLAYER_UNIT_LOADED, null)
Custom script: exitwhen i == 0
Custom script: set i = i - 1
Custom script: endloop
Custom script: set d = null
Custom script: set l = null
Custom script: set o = null
Custom script: set p = null
Custom script: set t = null
Custom script: set u = null
Custom script: call DestroyGroup(udg_CargoTransportGroup[0])
Custom script: set udg_CargoTransportGroup[0] = null
Message
Events
Time - Elapsed game time is 5.00 seconds
Conditions
Actions
Game - Display to (All players) the text: BunkerSystem by Nedio95
Wait 5.00 seconds
Game - Display to (All players) the text: You have 50 seconds before the zombies come.
Wait 2.50 seconds
Game - Display to (All players) the text: Will you manage to |CFFFF0303survive|R ?
Init
Events
Time - Elapsed game time is 60.00 seconds
Conditions
Actions
Trigger - Turn on Zombs <gen>
Zombs
Events
Time - Every 2.00 seconds of game time
Conditions
Actions
Set Variable Set TempPoint = (Center of Spawn <gen>)
Unit - Create 1 . Zombie for Player 2 (Blue) at TempPoint facing Default building facing degrees
Custom script: call RemoveLocation(udg_TempPoint)
Set Variable Set TempPoint = (Center of Target <gen>)
Unit - Order (Last created unit) to Attack-Move To . TempPoint
Custom script: call RemoveLocation(udg_TempPoint)
Lose
Events
Unit - Bunker Master 0000 <gen> Dies
Conditions
Actions
Game - Defeat Player 1 (Red) with the message: Defeat!
Win
Events
Time - Elapsed game time is 600.00 seconds
Conditions
Actions
Game - Victory Player 1 (Red) ( Show dialogs, Show scores)
This system wouldnt exist without:
SonicFlare101 - for requesting this system
rulerofiron99 - for finding out how to make a dummy unit stay in the bunker and sharing ideas
Bribe - for creating UIS and UES
SonicFlare101 - for requesting this system
rulerofiron99 - for finding out how to make a dummy unit stay in the bunker and sharing ideas
Bribe - for creating UIS and UES