• Listen to a special audio message from Bill Roper to the Hive Workshop community (Bill is a former Vice President of Blizzard Entertainment, Producer, Designer, Musician, Voice Actor) 🔗Click here to hear his message!
  • Read Evilhog's interview with Gregory Alper, the original composer of the music for WarCraft: Orcs & Humans 🔗Click here to read the full interview.

Triggers

Stealth System 1.02.w3x
Variables
Requirements
Unit Indexer System
Unit Indexer
-------------------------
Stealth System
Instructions
How to Import
Read me
User Config
UNITDATA Hashtable Values
STESYS Pre Config
Stealth System Default Configuration
User doesn't need to touch this
STESYS Initialize
STESYS Initialize 2
STESYS Periodic
STESYS Day and Night
STESYS Vision Adjust
-------------------------------------
Configuration
These are configuration triggers
You don't need to copy them
Starting Setup
Enter map-specific custom script code below. This text will be included in the map script after variables are declared and before any trigger code.
Name Type is_array initial_value
STESYS_CheckGroup group No
STESYS_DefaultVision integer No
STESYS_IsDay boolean No
STESYS_IsNight boolean No
STESYS_Loop_Integer integer No
STESYS_PERIODIC_TIMEOUT real No
STESYS_SightAbility abilcode No
STESYS_TempBool boolean Yes
STESYS_TempGroup group Yes
STESYS_TempInteger integer Yes
STESYS_TempLoc location Yes
STESYS_TempPlayer player No
STESYS_TempReal real Yes
STESYS_TempVis fogmodifier Yes
STESYS_TempVis1 fogmodifier Yes
STESYS_TempVis2 fogmodifier Yes
STESYS_TempVis3 fogmodifier Yes
STESYS_TempVis4 fogmodifier Yes
STESYS_TempVis5 fogmodifier Yes
STESYS_TimeDay real No
STESYS_TimeNight real No
STESYS_Trigger trigger Yes
STESYS_Unit unit Yes
STESYS_VisionInteger integer No
UDex integer No
UDexGen integer No
UDexNext integer Yes
UDexPrev integer Yes
UDexRecycle integer No
UDexUnits unit Yes
UDexWasted integer No
UNITDATA_Hash hashtable No
UNITDATA_SIGHTDAY integer No 1
UNITDATA_SIGHTNIGHT integer No 2
UNITDATA_UnitType unitcode No
UNITDATA_UnitTypeInteger integer No
UnitIndexerEnabled boolean No
UnitIndexEvent real No
UnitIndexLock integer Yes
VisionAdjust boolean Yes
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.
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 32
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"
How to Import
Events
Conditions
Actions
-------- -------------------------------------- --------
-------- Import "STESYS_SightAbility" custom ability into your map --------
-------- Then Import "Requirements" and "Stealth System" folders --------
-------- After that proceed to the Read me trigger --------
-------- -------------------------------------- --------
Read me
Events
Conditions
Actions
-------- Hello this is my stealth system --------
-------- First you need to know that using the action: --------
Melee Game - Use melee time of day (for all players)
-------- Will cause the system to stop working --------
-------- ---------------------------------------- --------
-------- It is necessary that you use the following functions to add the unit's sight range value into the UNITDATA Hashtable --------
-------- Example: --------
-------- PEASANT --------
Set Variable Set UNITDATA_UnitType = "hpea"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 500 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- This will save 800 as the Peasant's Sight Radius (day) and 500 as the Peasant's Sight Radius (night) on our hashtable. --------
UNITDATA Hashtable Values
Events
Conditions
Actions
-------- ----------------------------------------------------------------------------- --------
-------- -----------------------------------------------------------------------------HUMAN --------
-------- ----------------------------------------------------------------------------- --------
-------- UNITS --------
-------- PEASANT --------
Set Variable Set UNITDATA_UnitType = "hpea"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 500 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- - --------
-------- FOOTMAN --------
Set Variable Set UNITDATA_UnitType = "hfoo"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- KNIGHT --------
Set Variable Set UNITDATA_UnitType = "hkni"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- RIFLEMAN --------
Set Variable Set UNITDATA_UnitType = "hrif"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- MORTAR TEAM --------
Set Variable Set UNITDATA_UnitType = "hmtm"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 1200 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- FLYING MACHINE --------
Set Variable Set UNITDATA_UnitType = "hgyr"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 1100 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- GRYPHON RIDER --------
Set Variable Set UNITDATA_UnitType = "hgry"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1600 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 900 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- PRIEST --------
Set Variable Set UNITDATA_UnitType = "hmpr"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- SORCERER --------
Set Variable Set UNITDATA_UnitType = "hsor"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- SIEGE ENGINE --------
Set Variable Set UNITDATA_UnitType = "hmtt"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- SPELL BREAKER --------
Set Variable Set UNITDATA_UnitType = "hspt"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- DRAGONHAWK RIDER --------
Set Variable Set UNITDATA_UnitType = "hdhw"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1600 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 900 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- HEROES --------
-------- PALADIN --------
Set Variable Set UNITDATA_UnitType = "Hpal"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- ARCHMAGE --------
Set Variable Set UNITDATA_UnitType = "Hamg"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- MONTAIN KING --------
Set Variable Set UNITDATA_UnitType = "Hmkg"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- BLOOD MAGE --------
Set Variable Set UNITDATA_UnitType = "Hblm"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- SPECIAL (HUMAN) --------
-------- SIEGE ENGINE (BARRAGE) --------
Set Variable Set UNITDATA_UnitType = "hrtt"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- MILITIA --------
Set Variable Set UNITDATA_UnitType = "hmil"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- WATER ELEMENTAL 1 --------
Set Variable Set UNITDATA_UnitType = "hwat"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1200 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- WATER ELEMENTAL 2 --------
Set Variable Set UNITDATA_UnitType = "hwt2"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- WATER ELEMENTAL 3 --------
Set Variable Set UNITDATA_UnitType = "hwt3"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- PHOENIX --------
Set Variable Set UNITDATA_UnitType = "hphx"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1600 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 900 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- ---- --------
-------- PHOENIX EGG --------
Set Variable Set UNITDATA_UnitType = "hpxe"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 600 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 600 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- ----------------------------------------------------------------------------- --------
-------- -----------------------------------------------------------------------------ORC --------
-------- ----------------------------------------------------------------------------- --------
-------- UNITS --------
-------- PEON --------
Set Variable Set UNITDATA_UnitType = "opeo"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 600 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- GRUNT --------
Set Variable Set UNITDATA_UnitType = "ogru"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- RAIDER --------
Set Variable Set UNITDATA_UnitType = "orai"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- TAUREN --------
Set Variable Set UNITDATA_UnitType = "otau"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- HEADHUNTER --------
Set Variable Set UNITDATA_UnitType = "ohun"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- DEMOLISHER --------
Set Variable Set UNITDATA_UnitType = "ocat"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 1200 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- KODO BEAST --------
Set Variable Set UNITDATA_UnitType = "okod"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- WIND RIDER --------
Set Variable Set UNITDATA_UnitType = "owyv"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1600 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- TROLL BATRIDER --------
Set Variable Set UNITDATA_UnitType = "otbr"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 1400 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- TROLL WITCH DOCTOR --------
Set Variable Set UNITDATA_UnitType = "odoc"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- SHAMAN --------
Set Variable Set UNITDATA_UnitType = "oshm"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- SPIRIT WALKER --------
Set Variable Set UNITDATA_UnitType = "ospw"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- HEROES --------
-------- BLADEMASTER --------
Set Variable Set UNITDATA_UnitType = "Obla"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- FAR SEER --------
Set Variable Set UNITDATA_UnitType = "Ofar"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- TAUREN CHIEFTAIN --------
Set Variable Set UNITDATA_UnitType = "Otch"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- SHADOWHUNTER --------
Set Variable Set UNITDATA_UnitType = "Oshd"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- ----------------------------------------------------------------------------- --------
-------- -----------------------------------------------------------------------------UNDEAD --------
-------- ----------------------------------------------------------------------------- --------
-------- ACOLYTE --------
Set Variable Set UNITDATA_UnitType = "uaco"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 600 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- SHADE --------
Set Variable Set UNITDATA_UnitType = "ushd"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1900 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- GHOUL --------
Set Variable Set UNITDATA_UnitType = "ugho"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- ABOMINATION --------
Set Variable Set UNITDATA_UnitType = "uabo"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- MEAT WAGON --------
Set Variable Set UNITDATA_UnitType = "umtw"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 1200 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- CRYPT FIEND --------
Set Variable Set UNITDATA_UnitType = "ucry"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- GARGOYLE --------
Set Variable Set UNITDATA_UnitType = "ugar"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- BANSHEE --------
Set Variable Set UNITDATA_UnitType = "uban"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- NECROMANCER --------
Set Variable Set UNITDATA_UnitType = "unec"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- OBSIDIAN STATUE --------
Set Variable Set UNITDATA_UnitType = "uobs"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1200 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- FROST WYRM --------
Set Variable Set UNITDATA_UnitType = "ufro"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1600 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- HEROES --------
-------- DEATH KNIGHT --------
Set Variable Set UNITDATA_UnitType = "Udea"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- LICH --------
Set Variable Set UNITDATA_UnitType = "Ulic"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- DREADLORD --------
Set Variable Set UNITDATA_UnitType = "Udre"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- CRYPT LORD --------
Set Variable Set UNITDATA_UnitType = "Ucrl"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- ----------------------------------------------------------------------------- --------
-------- -----------------------------------------------------------------------------NIGHT ELF --------
-------- ----------------------------------------------------------------------------- --------
-------- WISP --------
Set Variable Set UNITDATA_UnitType = "ewsp"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1000 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 750 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- ARCHER --------
Set Variable Set UNITDATA_UnitType = "earc"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- HUNTRESS --------
Set Variable Set UNITDATA_UnitType = "esen"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- DRYAD --------
Set Variable Set UNITDATA_UnitType = "edry"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- GLAIVE THROWER --------
Set Variable Set UNITDATA_UnitType = "ebal"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 1200 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- HIPPOGRYPH --------
Set Variable Set UNITDATA_UnitType = "ehip"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1600 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- HIPPOGRYPH RIDER --------
Set Variable Set UNITDATA_UnitType = "ehpr"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1600 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- CHIMERA --------
Set Variable Set UNITDATA_UnitType = "echm"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1600 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- DRUID OF THE TALON --------
Set Variable Set UNITDATA_UnitType = "edot"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- DRUID OF THE CLAW --------
Set Variable Set UNITDATA_UnitType = "edoc"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- MONTAIN GIANT --------
Set Variable Set UNITDATA_UnitType = "emtg"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1200 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- FAERIE DRAGON --------
Set Variable Set UNITDATA_UnitType = "efdr"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1600 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- HEROES --------
-------- KEEPER OF THE GROVE --------
Set Variable Set UNITDATA_UnitType = "Ekee"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 900 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- PRIESTESS OF THE MOON --------
Set Variable Set UNITDATA_UnitType = "Emoo"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- DEMON HUNTER --------
Set Variable Set UNITDATA_UnitType = "Edem"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
-------- WARDEN --------
Set Variable Set UNITDATA_UnitType = "Ewar"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1800 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
-------- ---- --------
STESYS Pre Config
Events
Game - UnitIndexEvent becomes Equal to 3.00
Conditions
Actions
Set Variable Set UNITDATA_SIGHTDAY = "1"
Set Variable Set UNITDATA_SIGHTNIGHT = "2"
Set Variable Set STESYS_DefaultVision = "128"
Set Variable Set STESYS_PERIODIC_TIMEOUT = "0.33"
Set Variable Set STESYS_TimeDay = "6.00"
Set Variable Set STESYS_TimeNight = "18.00"
Set Variable Set STESYS_Trigger[1] = UNITDATA_Hashtable_Values <gen>
Set Variable Set STESYS_Trigger[2] = STESYS_Periodic <gen>
Set Variable Set STESYS_Trigger[3] = STESYS_Day_and_Night <gen>
Set Variable Set STESYS_Trigger[4] = STESYS_Vision_Adjust <gen>
Set Variable Set STESYS_SightAbility = "A000"
Hashtable - Create a hashtable
Set Variable Set UNITDATA_Hash = (Last created hashtable)
Trigger - Run STESYS_Trigger[1] (ignoring conditions)
Trigger - Add to STESYS_Trigger[2] the event (Every STESYS_PERIODIC_TIMEOUT seconds of game time)
Trigger - Add to STESYS_Trigger[3] the event (The in-game time of day becomes Greater than STESYS_TimeDay)
Trigger - Add to STESYS_Trigger[3] the event (The in-game time of day becomes Greater than STESYS_TimeNight)
STESYS Initialize
Events
Game - UnitIndexEvent becomes Equal to 1.00
Conditions
Actions
-------- Here we add the unit to the group on which we will pick units to adjust it's vision --------
Set Variable Set STESYS_Unit[1] = UDexUnits[UDex]
Unit Group - Add STESYS_Unit[1] to STESYS_CheckGroup
Trigger - Run STESYS_Trigger[4] (ignoring conditions)
-------- -------------------------------------------- --------
STESYS Initialize 2
Events
Game - UnitIndexEvent becomes Equal to 3.00
Conditions
Actions
-------- Here we pick pre-placed units and adjust their vision --------
Set Variable Set STESYS_TempGroup[1] = (Units in (Playable map area))
Unit Group - Pick every unit in STESYS_TempGroup[1] and do (Actions)
Loop - Actions
Set Variable Set STESYS_Unit[1] = (Picked unit)
Trigger - Run STESYS_Trigger[4] (ignoring conditions)
Custom script: call DestroyGroup(udg_STESYS_TempGroup[1])
-------- -------------------------------------------- --------
STESYS Periodic
Events
Conditions
Actions
-------- We pick the units on the Assigned group --------
Unit Group - Pick every unit in STESYS_CheckGroup and do (Actions)
Loop - Actions
Set Variable Set STESYS_Unit[1] = (Picked unit)
Set Variable Set STESYS_TempInteger[1] = (Custom value of STESYS_Unit[1])
Set Variable Set STESYS_TempBool[1] = (STESYS_Unit[1] is alive)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
STESYS_TempBool[1] Equal to True
Then - Actions
Set Variable Set STESYS_TempPlayer = (Owner of STESYS_Unit[1])
-------- On the next functions we get the unit's value of SIGHT RADIUS from our UNITDATA Hashtable --------
-------- --------------------------------------------- --------
-------- UNITDATA Hashtable Functions --------
-------- --------------------------------------------- --------
Set Variable Set UNITDATA_UnitType = (Unit-type of STESYS_Unit[1])
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
-------- --------------------------------------------- --------
-------- If it's day we pick the SIGHTDAY value, if it's night we use SIGHTNIGHT --------
Set Variable Set STESYS_TempReal[0] = (In-game time of day)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
STESYS_TempReal[0] Greater than 6.00
STESYS_TempReal[0] Less than 18.00
Then - Actions
Set Variable Set STESYS_TempReal[1] = (Real((Load UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger from UNITDATA_Hash.)))
Else - Actions
Set Variable Set STESYS_TempReal[1] = (Real((Load UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger from UNITDATA_Hash.)))
-------- Defining radius and locations for the visibility modifier --------
Set Variable Set STESYS_TempReal[2] = (STESYS_TempReal[1] / 2.00)
Set Variable Set STESYS_TempReal[3] = (Facing of STESYS_Unit[1])
Set Variable Set STESYS_TempLoc[1] = (Position of STESYS_Unit[1])
Set Variable Set STESYS_TempLoc[2] = (STESYS_TempLoc[1] offset by STESYS_TempReal[2] towards STESYS_TempReal[3] degrees.)
Set Variable Set STESYS_TempVis[STESYS_TempInteger[1]] = STESYS_TempVis1[STESYS_TempInteger[1]]
-------- Create a new visibility modifier in front of the unit --------
Visibility - Create an initially Enabled visibility modifier for STESYS_TempPlayer emitting Visibility from STESYS_TempLoc[2] to a radius of STESYS_TempReal[2] .
Set Variable Set STESYS_TempVis1[STESYS_TempInteger[1]] = (Last created visibility modifier)
-------- --------------------------------------------- --------
-------- Destroy the last one --------
Visibility - Destroy STESYS_TempVis[STESYS_TempInteger[1]]
Set Variable Set STESYS_TempVis2[STESYS_TempInteger[1]] = STESYS_TempVis1[STESYS_TempInteger[1]]
-------- --------------------------------------------- --------
-------- --------------------------------------------- --------
-------- --------------------------------------------- --------
-------- --------------------------------------------- --------
-------- Create a new visibility modifier arround the unit --------
Set Variable Set STESYS_TempVis3[STESYS_TempInteger[1]] = STESYS_TempVis4[STESYS_TempInteger[1]]
Visibility - Create an initially Enabled visibility modifier for STESYS_TempPlayer emitting Visibility from STESYS_TempLoc[1] to a radius of (Real(STESYS_DefaultVision)) .
Set Variable Set STESYS_TempVis4[STESYS_TempInteger[1]] = (Last created visibility modifier)
-------- --------------------------------------------- --------
-------- Destroy the last one --------
Visibility - Destroy STESYS_TempVis3[STESYS_TempInteger[1]]
Set Variable Set STESYS_TempVis5[STESYS_TempInteger[1]] = STESYS_TempVis4[STESYS_TempInteger[1]]
-------- --------------------------------------------- --------
-------- --------------------------------------------- --------
-------- Removing location leak --------
Custom script: call RemoveLocation(udg_STESYS_TempLoc[1])
-------- --------------------------------------------- --------
Else - Actions
-------- If the unit is dead it is then removed from our group and it's visibility modifier is destroyed --------
Unit Group - Remove STESYS_Unit[1] from STESYS_CheckGroup .
Visibility - Destroy STESYS_TempVis1[STESYS_TempInteger[1]]
-------- --------------------------------------------- --------
STESYS Day and Night
Events
Conditions
Actions
-------- Here we adjust ALL unit's sight radius throught day/night cycle --------
Unit Group - Pick every unit in STESYS_CheckGroup and do (Actions)
Loop - Actions
Set Variable Set STESYS_Unit[1] = (Picked unit)
Trigger - Run STESYS_Trigger[4] (ignoring conditions)
-------- ------------------------- --------
STESYS Vision Adjust
Events
Conditions
Actions
-------- --------------------------------------------- --------
-------- On this trigger we use the cumulative ability method to adjust the unit's vision using our custom ability based on goblin night scope --------
-------- --------------------------------------------- --------
-------- UNITDATA Hashtable Functions --------
-------- --------------------------------------------- --------
Set Variable Set UNITDATA_UnitType = (Unit-type of STESYS_Unit[1])
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
-------- --------------------------------------------- --------
Set Variable Set STESYS_TempReal[0] = (In-game time of day)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
STESYS_TempReal[0] Greater than STESYS_TimeDay
STESYS_TempReal[0] Less than STESYS_TimeNight
Then - Actions
Set Variable Set STESYS_VisionInteger = (STESYS_DefaultVision - (Load UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger from UNITDATA_Hash.))
Else - Actions
Set Variable Set STESYS_VisionInteger = (STESYS_DefaultVision - (Load UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger from UNITDATA_Hash.))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
STESYS_VisionInteger Greater than 0
Then - Actions
Set Variable Set STESYS_Loop_Integer = ((STESYS_VisionInteger - (STESYS_VisionInteger mod 100)) / 100)
For each (Integer A) from 1 to STESYS_Loop_Integer , do (Actions)
Loop - Actions
Unit - Add STESYS_SightAbility to STESYS_Unit[1]
Unit - Set level of STESYS_SightAbility for STESYS_Unit[1] to 4
Unit - Remove STESYS_SightAbility from STESYS_Unit[1]
Set Variable Set STESYS_VisionInteger = (STESYS_VisionInteger mod 100)
Set Variable Set STESYS_Loop_Integer = ((STESYS_VisionInteger - (STESYS_VisionInteger mod 10)) / 10)
For each (Integer A) from 1 to STESYS_Loop_Integer , do (Actions)
Loop - Actions
Unit - Add STESYS_SightAbility to STESYS_Unit[1]
Unit - Set level of STESYS_SightAbility for STESYS_Unit[1] to 3
Unit - Remove STESYS_SightAbility from STESYS_Unit[1]
Set Variable Set STESYS_VisionInteger = (STESYS_VisionInteger mod 10)
For each (Integer A) from 1 to STESYS_VisionInteger , do (Actions)
Loop - Actions
Unit - Add STESYS_SightAbility to STESYS_Unit[1]
Unit - Set level of STESYS_SightAbility for STESYS_Unit[1] to 2
Unit - Remove STESYS_SightAbility from STESYS_Unit[1]
Else - Actions
Set Variable Set STESYS_VisionInteger = (0 - STESYS_VisionInteger)
Set Variable Set STESYS_Loop_Integer = ((STESYS_VisionInteger - (STESYS_VisionInteger mod 100)) / 100)
For each (Integer A) from 1 to STESYS_Loop_Integer , do (Actions)
Loop - Actions
Unit - Add STESYS_SightAbility to STESYS_Unit[1]
Unit - Set level of STESYS_SightAbility for STESYS_Unit[1] to 7
Unit - Remove STESYS_SightAbility from STESYS_Unit[1]
Set Variable Set STESYS_VisionInteger = (STESYS_VisionInteger mod 100)
Set Variable Set STESYS_Loop_Integer = ((STESYS_VisionInteger - (STESYS_VisionInteger mod 10)) / 10)
For each (Integer A) from 1 to STESYS_Loop_Integer , do (Actions)
Loop - Actions
Unit - Add STESYS_SightAbility to STESYS_Unit[1]
Unit - Set level of STESYS_SightAbility for STESYS_Unit[1] to 6
Unit - Remove STESYS_SightAbility from STESYS_Unit[1]
Set Variable Set STESYS_VisionInteger = (STESYS_VisionInteger mod 10)
For each (Integer A) from 1 to STESYS_VisionInteger , do (Actions)
Loop - Actions
Unit - Add STESYS_SightAbility to STESYS_Unit[1]
Unit - Set level of STESYS_SightAbility for STESYS_Unit[1] to 5
Unit - Remove STESYS_SightAbility from STESYS_Unit[1]
Starting Setup
Events
Time - Elapsed game time is 2.00 seconds
Conditions
Actions
Quest - Create a Required quest titled Credits with the description -Bribe (Unit Indexer); , using icon path ReplaceableTextures\CommandButtons\BTNAmbush.blp
Quest - Display to (All players) the Hint message: -Follow the path of darkness, it will lead to your treasure. Try not to get caught by the king's guards! Once you take the treasure, you have to come out of there in one piece!
Set Variable Set UNITDATA_UnitType = "h000"
Custom script: set udg_UNITDATA_UnitTypeInteger = udg_UNITDATA_UnitType
Hashtable - Save 1400 as UNITDATA_SIGHTDAY of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Hashtable - Save 800 as UNITDATA_SIGHTNIGHT of UNITDATA_UnitTypeInteger in UNITDATA_Hash .
Set Variable Set STESYS_Unit[1] = Spy 0010 <gen>
Trigger - Run STESYS_Trigger[4] (ignoring conditions)
Top