• 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

BOEG_Reimagined.w3x
Variables
Classic BOEG
Variables
Initialization
Init
Capitals
Capital Take Over
Bonus Resources
Mage of Darkness Boss
Teleport
Neutral Forces Setting
Spawn Apprentice Wizard
Spells
Devotion Aura
Brilliance Aura
REIMAGINED
OpenGate
GateNorth
GateEast
GateSouth
GateWest
LegionServitorAttack
LegionServitorsHint
LegionServitorsStartAttack
LegionServitor1Spawn
LegionServitor2Spawn
LegionServitorGateRemove
Capital Resources
Enum Capital
Add Capital
Remove Capital
Capital Resources
Capital Shift Control
Hero Slot
Prevent Ally in Slot
AI Activation
Start AI
Blue AI Hero
Rift Defense
Rift Construct
Auto Harvest
Auto Harvest
Hero Requirement
Variables
Hero List
Hero Initialization
Hero Trained
AI Hero Learn Spells
Hero Level
Hero built
Hero Spell Choose
Spells
DuelistCriticalStrike
Variables
DuelistCritConfig
DuelistCritLevelUp
AdvancedHarvestingTechniques
Variables
AHTConfig
AHTRegister
AHTLoop
RaiseShadow
Variables
RaiseShadowConfig
RaiseShadowRaise
LightningEMPPulse
v1.2
v1.1
SpellVar
ConfigVar
LEMPPConfig
LEMPPDamageFilter
LEMPPStunFilter
LEMPPCast
LEMPPAlloc
LEMPPLoop
Freezing Field
Variables
Instruction
Freezing Field
Power of Faith
PowerOfFaith Config
PowerOfFaith Cast
Variables
Daffa the Magician SP
BeamingLight
Variables
BeamingLightConfig
BeamingLightCast
Shredded Fire Ring
Variables
SFRConfig
SFRCast
WarIntellect
Variables
WarIntellectConfig
WarIntellectCast
WarIntellectLoop
HeavenlyLight
Variables
HeavenlyLightConfig
HeavenlyLightCast
Systems
Damage Engine
Make sure to copy this entire folder
Events
- - - Modifier events - - -
- - - Unique events - - -
- - - Non-Modifier events - - -
- - - Wrap-up events - - -
- - - Deprecated - - -
- - - Special Controls - - -
Event getters (read-only)
Event variables (read/write)
Pre-Damage Setters
Filter Types (no longer recommended)
Constants
Unit Classes
Armor Types
Attack Types
Damage Types
Defense Types
Weapon Types
Damage Engine Config
Damage Engine
StunSnippet
v1.3
v1.2
v1.1
Variables
Register
StunSnippetConfig
StunSnippetRegister
StunSnippetStart
StunSnippetLoop
StunSnippetEnd
StunSnippetSampleRegister
PauseUnitEx
PauseUnitEx
TimedSpecialEffect
TSEConfig
TSERegister
TSELoop
TSEEmptyEvent
TSESampleRegisterUnit
TSESampleRegisterPoint
TSEVariables
v1.8.1
v1.8
v1.7
v1.6
v1.5
v1.4
v1.3.1
v1.3
v1.2 Beta
Backward Compatibility
Explanation
System
OnEventVariables
Registration
TimedSpecialEffectLL
TSELLVarRegistration
TSELLVarSystem
Debugger
OnEventVariables
WithSetter
TSELLChangelog
KNOWN ISSUES
ACCESSIBLE VARIABLES
CREDITS
DEV NOTE
FUTURE
v2.2.1
v2.2
v2.1.2
v2.1.1.1
v2.1.1
v2.1
v2.0.6
v2.0.5
v2.0.4
v2.0.3
v2.0.2
v2.0.1
v2.0.A
v2.0.B
v1.7
v1.6
v1.5
v1.4
v1.3.1
v1.3
v1.2 Beta
TSELLTriggers
TSELLConfig
TSELLRegister
TSELLAllocation
TSELLLoop
TSELLDeallocation
TSELLUtilities
RemoveEffect
GetLocationZ
AddSpecialEffectTerrainAligned
TSELLCompatibilities
TimedEffectAlmiaCompat
TimedEffectCompat
UsageTemplate
TSELLSampleRegisterUnit
TSELLSampleRegisterPoint
TimedEventLL
v1.2
v1.1
TELLConfig
TELLRegister
TELLLoop
TELLEmptyEvent
TELLSampleTrigger
TELLVariables
Register
Accessibles
ReadOnly
GUI Spell System
Variables
Read Me
Spell System Config
Spell System
Sample Triggers
Spell System Sample Config
Spell System Sample Trigger
Spell System Sample Filter
Spell System All In One Template
Quests
Play Guide
Credits
Name Type is_array initial_value
AfterDamageEvent real No
AHT_Ability abilcode No
AHT_Counter integer No
AHT_Group group No
AHT_IDValue integer No
AHT_LumberBonus integer No
AHT_LumberClock real No
AHT_LumberTime real No
AHT_LumberTimer timer No
AHT_String string No
AHT_TimeLeft real Yes
AOEDamageEvent real No
AOEDamageSource unit No
Apprentice_Forces group No
ARMOR_TYPE_ETHEREAL integer No
ARMOR_TYPE_FLESH integer No
ARMOR_TYPE_METAL integer No
ARMOR_TYPE_NONE integer No
ARMOR_TYPE_STONE integer No
ARMOR_TYPE_WOOD integer No
ArmorDamageEvent real No
ArmorTypeDebugStr string Yes
ATTACK_TYPE_CHAOS integer No
ATTACK_TYPE_HERO integer No
ATTACK_TYPE_MAGIC integer No
ATTACK_TYPE_NORMAL integer No
ATTACK_TYPE_PIERCE integer No
ATTACK_TYPE_SIEGE integer No
ATTACK_TYPE_SPELLS integer No
AttackTypeDebugStr string Yes
BeamLightAT attacktype No
BeamLightDamage real Yes
BeamLightDamageRadius real Yes
BeamLightDT damagetype No
BeamLightHealIntFactor real Yes
BeamLightSFX string No
BeamLightSFXScaleFactor real No
Capital_Group group No
Capital_Point location No
Capital_PrevOwner player No
Capital_Timer timer No
CONVERTED_ATTACK_TYPE attacktype Yes
CONVERTED_DAMAGE_TYPE damagetype Yes
DAMAGE_TYPE_ACID integer No
DAMAGE_TYPE_COLD integer No
DAMAGE_TYPE_DEATH integer No
DAMAGE_TYPE_DEFENSIVE integer No
DAMAGE_TYPE_DEMOLITION integer No
DAMAGE_TYPE_DISEASE integer No
DAMAGE_TYPE_DIVINE integer No
DAMAGE_TYPE_ENHANCED integer No
DAMAGE_TYPE_FIRE integer No
DAMAGE_TYPE_FORCE integer No
DAMAGE_TYPE_LIGHTNING integer No
DAMAGE_TYPE_MAGIC integer No
DAMAGE_TYPE_MIND integer No
DAMAGE_TYPE_NORMAL integer No
DAMAGE_TYPE_PLANT integer No
DAMAGE_TYPE_POISON integer No
DAMAGE_TYPE_SHADOW_STRIKE integer No
DAMAGE_TYPE_SLOW_POISON integer No
DAMAGE_TYPE_SONIC integer No
DAMAGE_TYPE_SPIRIT_LINK integer No
DAMAGE_TYPE_UNIVERSAL integer No
DAMAGE_TYPE_UNKNOWN integer No
DamageEvent real No
DamageEventAmount real No
DamageEventAOE integer No
DamageEventAOEGroup group No
DamageEventArmorPierced real No
DamageEventArmorT integer No
DamageEventAttackT integer No
DamageEventDamageT integer No
DamageEventDefenseT integer No
DamageEventLevel integer No
DamageEventOverride boolean No
DamageEventPrevAmt real No
DamageEventSource unit No
DamageEventTarget unit No
DamageEventType integer No
DamageEventWeaponT integer No
DamageFilterAttackT integer No
DamageFilterDamageT integer No
DamageFilterFailChance real No
DamageFilterMinAmount real No
DamageFilterRunChance real No
DamageFilterSource unit No
DamageFilterSourceA abilcode No
DamageFilterSourceB buffcode No
DamageFilterSourceC integer No
DamageFilterSourceI itemcode No
DamageFilterSourceT unitcode No
DamageFilterTarget unit No
DamageFilterTargetA abilcode No
DamageFilterTargetB buffcode No
DamageFilterTargetC integer No
DamageFilterTargetI itemcode No
DamageFilterTargetT unitcode No
DamageFilterType integer No
DamageModifierEvent real No
DamageScalingUser real No
DamageScalingWC3 real No
DamageTypeBlocked integer No
DamageTypeCode integer No
DamageTypeCriticalStrike integer No
DamageTypeDebugStr string Yes
DamageTypeExplosive integer No
DamageTypeHeal integer No
DamageTypePure integer No
DamageTypePureExplosive integer No
DamageTypeReduced integer No
DEFENSE_TYPE_DIVINE integer No
DEFENSE_TYPE_FORTIFIED integer No
DEFENSE_TYPE_HEAVY integer No
DEFENSE_TYPE_HERO integer No
DEFENSE_TYPE_LIGHT integer No
DEFENSE_TYPE_MEDIUM integer No
DEFENSE_TYPE_NORMAL integer No
DEFENSE_TYPE_UNARMORED integer No
DefenseTypeDebugStr string Yes
DuelistCritAbil abilcode No
DuelistCritMaxLevel integer No
EnhancedDamageTarget unit No
FF_Group group No
FF_Hashtable hashtable No
Group group No
HeavenlyLightAT attacktype No
HeavenlyLightDamage real No
HeavenlyLightDamagePerInt real Yes
HeavenlyLightDamageRadius real Yes
HeavenlyLightDT damagetype No
HeavenlyLightDummy unit No
HeavenlyLightSFX string No
HeavenlyLightSFXScaleFactor real No
HeavenlyLightSlowAbility abilcode No
HeavenlyLightSlowCalc real No
HeavenlyLightSlowDurCalc real No
HeavenlyLightSlowDurPerInt real Yes
HeavenlyLightSlowPerInt real Yes
HeroReq_DebugMode boolean No
HeroReq_DummyHero unitcode No
HeroReq_Event real No
HeroReq_Hash hashtable No
HeroReq_IsInList boolean No
HeroReq_UnitType unitcode No
HeroReq_UnitTypeList unitcode Yes
HeroReq_UnitTypeListEnum integer No
HeroReq_UnitTypeListIndex integer No
Init_Forces force No
Init_Remove group No
IsDamageAttack boolean No
IsDamageCode boolean No
IsDamageMelee boolean No
IsDamageRanged boolean No
IsDamageSpell boolean No
LegionPoint location No
LegionPointTarget location No
LegionTarget player No
LegionTarget2 player No
LegionTargetInt integer No
LegionTargetInt2 integer No
LegionTimer timer No
LegionTimerShort timer No
LEMPP_Ability abilcode No
LEMPP_BlastDelay real Yes
LEMPP_BlastRadius real Yes
LEMPP_CasterUnit unit No
LEMPP_Damage real Yes
LEMPP_DamageAT attacktype No
LEMPP_DamageDT damagetype No
LEMPP_EfficiencyFactor real No
LEMPP_Level integer No
LEMPP_SFXBlast string No
LEMPP_SFXBlastSizeRatio real No
LEMPP_SFXOrb string No
LEMPP_SFXOrbSizeRatio real No
LEMPP_SFXStun string No
LEMPP_SFXStunAttach string No
LEMPP_SizeChange real Yes
LEMPP_SizeCurrent real Yes
LEMPP_StunDuration real Yes
LEMPP_TargetUnit unit No
LEMPP_TargetValid boolean No
LethalDamageEvent real No
LethalDamageHP real No
NextDamageIsAttack boolean No
NextDamageIsMelee boolean No
NextDamageIsRanged boolean No
NextDamageType integer No
NextDamageWeaponT integer No
OnDamageEvent real No
POF_Ability abilcode No
POF_GainPerLevel integer No
POF_GetLevel integer No
POF_LevelBound integer No
POF_TotalGain integer No
PreDamageEvent real No
Priest_Forces group No
RaiseShadow_FailChance real No
RaiseShadow_HPFailPercent real No
RaiseShadow_ShadowType unitcode No
RemoveDamageEvent boolean No
RiftGroup group No
RiftPoint location No
SFR_AT attacktype No
SFR_Damage real No
SFR_DamagePerInt real Yes
SFR_DamageRadius real Yes
SFR_DegreeCovered real Yes
SFR_DegreeDistance real Yes
SFR_DistanceFromCaster real Yes
SFR_DT damagetype No
SFR_Facing real No
SFR_FacingMax real No
SFR_PickedUnit unit No
SFR_SFX string No
SFR_SFXScaleFactor real No
SourceDamageEvent real No
Spell__Ability abilcode No
Spell__AutoAddTargets boolean No
Spell__BuffAbility abilcode No
Spell__BuffOrder ordercode No
Spell__Caster unit No
Spell__CasterOwner player No
Spell__CastPoint location No
Spell__Channeling boolean No
Spell__Completed boolean No
Spell__DummyOwner player No
Spell__DummyType unitcode No
Spell__Duration real No
Spell__DurationPerLevel real No
Spell__Expired boolean No
Spell__Filter_AllowAlly boolean No
Spell__Filter_AllowDead boolean No
Spell__Filter_AllowEnemy boolean No
Spell__Filter_AllowFlying boolean No
Spell__Filter_AllowHero boolean No
Spell__Filter_AllowLiving boolean No
Spell__Filter_AllowMagicImmune boolean No
Spell__Filter_AllowMechanical boolean No
Spell__Filter_AllowNonHero boolean No
Spell__Filter_AllowStructure boolean No
Spell__Hash hashtable No
Spell__Index integer No
Spell__InRange real No
Spell__InRangeCount integer No
Spell__InRangeGroup group No
Spell__InRangeMax integer No
Spell__InRangePoint location No
Spell__InRangeUnit unit No
Spell__InRangeUnits unit Yes
Spell__Interval real No
Spell__Level integer No
Spell__LevelMultiplier real No
Spell__Running boolean No
Spell__StartDuration boolean No
Spell__Target unit No
Spell__TargetGroup group No
Spell__TargetPoint location No
Spell__Time real No
Spell__Trigger_InRangeFilter trigger No
Spell__Trigger_OnCast trigger No
Spell__Trigger_OnChannel trigger No
Spell__Trigger_OnEffect trigger No
Spell__Trigger_OnFinish trigger No
Spell__Trigger_OnLoop trigger No
Spell__UseTargetGroup boolean No
Spell__WakeTargets boolean No
Spell_i_Abil abilcode Yes
Spell_i_AllowAlly boolean Yes
Spell_i_AllowDead boolean Yes
Spell_i_AllowEnemy boolean Yes
Spell_i_AllowFlying boolean Yes
Spell_i_AllowHero boolean Yes
Spell_i_AllowLiving boolean Yes
Spell_i_AllowMagicImmune boolean Yes
Spell_i_AllowMechanical boolean Yes
Spell_i_AllowNonHero boolean Yes
Spell_i_AllowStructure boolean Yes
Spell_i_AutoAddTargets boolean Yes
Spell_i_BuffAbil abilcode Yes
Spell_i_BuffOrder ordercode Yes
Spell_i_Caster unit Yes
Spell_i_Channeling boolean Yes
Spell_i_Completed boolean Yes
Spell_i_Duration real Yes
Spell_i_EventType integer Yes
Spell_i_GroupN integer No
Spell_i_GroupStack group Yes
Spell_i_Head integer Yes
Spell_i_InRangeFilter trigger Yes
Spell_i_Instances integer No
Spell_i_LastTime real Yes
Spell_i_Level integer Yes
Spell_i_Linked boolean Yes
Spell_i_OnCastStack trigger Yes
Spell_i_OnChannelStack trigger Yes
Spell_i_OnEffectStack trigger Yes
Spell_i_OnFinishStack trigger Yes
Spell_i_OnLoopStack trigger Yes
Spell_i_PreloadDummy unit No
Spell_i_Recycle integer No
Spell_i_RecycleList integer Yes
Spell_i_Stack integer Yes
Spell_i_StackN integer No
Spell_i_StackRef integer Yes
Spell_i_Target unit Yes
Spell_i_TargetGroup group Yes
Spell_i_TargetX real Yes
Spell_i_TargetY real Yes
Spell_i_Time real Yes
Spell_i_Timer timer No
Spell_i_UseTG boolean Yes
StunSnippet__AttachPoint string No
StunSnippet__Duration real No
StunSnippet__SFX string No
StunSnippet__StunnedUnit unit No
StunSnippet_CurrentUnit unit No
StunSnippet_DEFAULTAttachPoint string No
StunSnippet_DEFAULTSFX string No
StunSnippet_OnEventEnd trigger No
StunSnippet_OnEventLoop trigger No
StunSnippet_OnEventStart trigger No
StunSnippet_TEnd trigger No
StunSnippet_TLoop trigger No
StunSnippet_TRegister trigger No
StunSnippet_TStart trigger No
Teleport effect No
TELL__AllocDuration real No
TELL__AllocLoopTimer real No
TELL__Duration real No
TELL__Index integer No
TELL__LoopTimer real No
TELL_Duration real Yes
TELL_InitializationFinish real No
TELL_Instance integer No
TELL_InstanceIterator integer No
TELL_Last integer No
TELL_MaxIndex integer No
TELL_Next integer Yes
TELL_OnEventDealloc trigger Yes
TELL_OnEventLoop trigger Yes
TELL_OnEventLoopDuration real Yes
TELL_OnEventLoopTimer real Yes
TELL_Prev integer Yes
TELL_RecycleSize integer No
TELL_RecycleStack integer Yes
TELL_RegisterID integer No
TELL_TempID integer No
TELL_Timer timer No
TELL_TimerTIMEOUT real No
TELL_TriggerEmptyEvent trigger No
TELL_TriggerLoop trigger No
TELL_TriggerRegister trigger No
TELLDebugMode boolean No
TELLDuration real No
TELLOnEventAlloc trigger No
TELLOnEventDealloc trigger No
TELLOnEventLoop trigger No
TELLOnEventLoopTimer real No
Temp_Point location No
TSE__ActiveIndex integer No
TSE__Point location No
TSE__RemainingDuration real No
TSE__SourceUnit unit No
TSE__SpecialEffect effect No
TSE__TargetUnit unit No
TSE_CTimer timer No
TSE_EmptyEvent trigger No
TSE_I_ActiveInstance boolean Yes
TSE_I_ChanneledOrderID string Yes
TSE_I_Effect effect Yes
TSE_I_IsChanneling boolean Yes
TSE_I_LockInstance boolean Yes
TSE_I_LoopDuration real Yes
TSE_I_OnEndEvent trigger Yes
TSE_I_OnLoopEvent trigger Yes
TSE_I_OnLoopTimer real Yes
TSE_I_Point location Yes
TSE_I_RemainingDuration real Yes
TSE_I_SourceUnit unit Yes
TSE_I_SourceUnitAliveCheck boolean Yes
TSE_I_TargetUnit unit Yes
TSE_I_TargetUnitAliveCheck boolean Yes
TSE_Index integer No
TSE_LoopTrigger trigger No
TSE_MaxCheckOver boolean No
TSE_MaxIndex integer No
TSE_MaxRecursion integer No
TSE_Recursion integer No
TSE_RegisterTrigger trigger No
TSE_ReplacementIndex integer No
TSE_ReplacementIndexFound boolean No
TSE_TIMEOUT real No
TSEAttachPoint string No
TSEChanneledOrderID string No
TSEDuration real No
TSEEffectName string No
TSELL__ActiveIndex integer No
TSELL__AllocActiveIndex integer No
TSELL__AllocInteger integer No
TSELL__AllocLoopTimer real No
TSELL__AllocPoint location No
TSELL__AllocRemainingDuration real No
TSELL__AllocSourceUnit unit No
TSELL__AllocSpecialEffect effect No
TSELL__AllocTargetUnit unit No
TSELL__Integer integer No
TSELL__LoopTimer real No
TSELL__Point location No
TSELL__RemainingDuration real No
TSELL__SourceUnit unit No
TSELL__SpecialEffect effect No
TSELL__TargetUnit unit No
TSELL_AttachPoint string No
TSELL_ChanneledOrderID string No
TSELL_DebugMode boolean No
TSELL_DestroyEffect boolean No
TSELL_Duration real No
TSELL_EffectName string No
TSELL_EmptyEvent trigger No
TSELL_FollowUnit boolean No
TSELL_I_ChanneledOrderID string Yes
TSELL_I_DestroyEffect boolean Yes
TSELL_I_FollowUnit boolean Yes
TSELL_I_Integer integer Yes
TSELL_I_IsChanneling boolean Yes
TSELL_I_OnEndEvent trigger Yes
TSELL_I_OnLoopEvent trigger Yes
TSELL_I_OnLoopTimer real Yes
TSELL_I_Point location Yes
TSELL_I_SourceUnit unit Yes
TSELL_I_SourceUnitAliveCheck boolean Yes
TSELL_I_SpecialEffect effect Yes
TSELL_I_TargetUnit unit Yes
TSELL_I_TargetUnitAliveCheck boolean Yes
TSELL_I_TerrainAligned boolean Yes
TSELL_Index integer No
TSELL_Integer integer No
TSELL_MaxIndex integer No
TSELL_OnEventAllocate trigger No
TSELL_OnEventDeallocate trigger No
TSELL_OnEventLoop trigger No
TSELL_Point location No
TSELL_Scale real No
TSELL_SourceUnit unit No
TSELL_SourceUnitAliveCheck boolean No
TSELL_TargetUnit unit No
TSELL_TargetUnitAliveCheck boolean No
TSELL_TerrainAligned boolean No
TSELL_TimerForLoop real No
TSELL_TriggerAllocation trigger No
TSELL_TriggerDeallocation trigger No
TSELL_TriggerLoop trigger No
TSELL_TriggerRegister trigger No
TSELockInstance boolean No
TSEOnEndEvent trigger No
TSEOnIndexEvent trigger No
TSEOnLoopEvent trigger No
TSEOnLoopTimer real No
TSEPoint location No
TSEScale real No
TSESourceUnit unit No
TSESourceUnitAliveCheck boolean No
TSETargetUnit unit No
TSETargetUnitAliveCheck boolean No
TSEUnit unit No
TSEUnitAliveCheck boolean No
UNIT_CLASS_ANCIENT integer No
UNIT_CLASS_ATTACKS_FLYING integer No
UNIT_CLASS_ATTACKS_GROUND integer No
UNIT_CLASS_DEAD integer No
UNIT_CLASS_ETHEREAL integer No
UNIT_CLASS_FLYING integer No
UNIT_CLASS_GIANT integer No
UNIT_CLASS_GROUND integer No
UNIT_CLASS_HERO integer No
UNIT_CLASS_MAGIC_IMMUNE integer No
UNIT_CLASS_MECHANICAL integer No
UNIT_CLASS_MELEE integer No
UNIT_CLASS_PEON integer No
UNIT_CLASS_PLAGUED integer No
UNIT_CLASS_POISONED integer No
UNIT_CLASS_POLYMORPHED integer No
UNIT_CLASS_RANGED integer No
UNIT_CLASS_RESISTANT integer No
UNIT_CLASS_SAPPER integer No
UNIT_CLASS_SLEEPING integer No
UNIT_CLASS_SNARED integer No
UNIT_CLASS_STRUCTURE integer No
UNIT_CLASS_STUNNED integer No
UNIT_CLASS_SUMMONED integer No
UNIT_CLASS_TAUREN integer No
UNIT_CLASS_TOWNHALL integer No
UNIT_CLASS_UNDEAD integer No
WarIntellectIntBonus integer Yes
WarIntellectSFX string No
WarIntellectSFXAttachPoint string No
WarIntellectSpEffect effect Yes
WEAPON_TYPE_AM_CHOP integer No
WEAPON_TYPE_CH_SLICE integer No
WEAPON_TYPE_CL_SLICE integer No
WEAPON_TYPE_CM_SLICE integer No
WEAPON_TYPE_MH_BASH integer No
WEAPON_TYPE_MH_CHOP integer No
WEAPON_TYPE_MH_SLICE integer No
WEAPON_TYPE_MH_STAB integer No
WEAPON_TYPE_ML_CHOP integer No
WEAPON_TYPE_ML_SLICE integer No
WEAPON_TYPE_MM_BASH integer No
WEAPON_TYPE_MM_CHOP integer No
WEAPON_TYPE_MM_SLICE integer No
WEAPON_TYPE_MM_STAB integer No
WEAPON_TYPE_NONE integer No
WEAPON_TYPE_RH_BASH integer No
WEAPON_TYPE_WH_BASH integer No
WEAPON_TYPE_WH_SLICE integer No
WEAPON_TYPE_WL_BASH integer No
WEAPON_TYPE_WL_SLICE integer No
WEAPON_TYPE_WL_STAB integer No
WEAPON_TYPE_WM_BASH integer No
WEAPON_TYPE_WM_SLICE integer No
WEAPON_TYPE_WM_STAB integer No
WeaponTypeDebugStr string Yes
ZeroDamageEvent real No
Default melee game initialization for all players
Init
Events
Map initialization
Conditions
Actions
Melee Game - Use melee time of day (for all players)
Melee Game - Limit Heroes to 1 per Hero-type (for all players)
Melee Game - Give trained Heroes a Scroll of Town Portal (for all players)
For each (Integer A) from 2 to 11 , do (Actions)
Loop - Actions
Player - Set (Player((Integer A))) . Current gold to 2000
Player - Set (Player((Integer A))) . Current lumber to 500
Melee Game - Remove creeps and critters from used start locations (for all players)
Melee Game - Enforce victory/defeat conditions (for all players)
Set Variable Set Init_Forces = (All allies of Player 1 (Red).)
Player Group - Pick every player in Init_Forces and do (Actions)
Loop - Actions
Player - Set (Picked player) . Food used to 0
Player - Set (Picked player) . Food cap to 300
Player - Make (Picked player) treat Neutral Hostile as an Ally with shared vision
Player - Make Neutral Hostile treat (Picked player) as an Ally with shared vision
Player - Set (Picked player) . Current gold to 1000000
Player - Set (Picked player) . Current lumber to 1000000
Custom script: call DestroyForce(udg_Init_Forces)
Player Group - Pick every player in (All players) and do (Actions)
Loop - Actions
Hero - Make (Picked player) Heroes gain 150.00 % experience from future kills
Player - Limit training of Dark Mage (Classic BOEG) to 1 for (Picked player)
Player - Limit training of Fire Dragon Slayer (Classic BOEG) to 1 for (Picked player)
Player - Limit training of Ice Mage (Classic BOEG) to 1 for (Picked player)
Player - Limit training of Fallen Mage (Classic BOEG) to 1 for (Picked player)
Player - Set the current research level of Rhpt (Unexpected type: 'techcode') to 2 for Neutral Hostile
Player - Disable Art of War (Classic BOEG) for Neutral Hostile
Melee Game - Run melee AI scripts (for computer players)
Custom script: call DestroyTrigger(GetTriggeringTrigger())
Capital Take Over
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacked unit)) Equal to Capital Rift (Classic BOEG)
(Life of (Attacked unit)) Less than or equal to 1000.00
Actions
Unit - Change ownership of (Triggering unit) to (Owner of (Attacking unit)) and Change color
Unit - Set life of (Attacked unit) to 6000.00
Bonus Resources
Events
Time - Every 60.00 seconds of game time
Conditions
Actions
Set Variable Set Init_Remove = (Units of type Capital Rift (Classic BOEG))
Unit Group - Pick every unit in Init_Remove and do (Actions)
Loop - Actions
Player - Add 1000 to (Owner of (Picked unit)) . Current gold
Player - Add 250 to (Owner of (Picked unit)) . Current lumber
Custom script: call DestroyGroup (udg_Init_Remove)
Teleport
Events
Time - Every 3.00 seconds of game time
Conditions
(Life of Dark Mage 0181 <gen>) Less than or equal to 500.00
Actions
Trigger - Turn off (This trigger)
Set Variable Set Temp_Point = (Position of Dark Mage 0181 <gen>)
Unit - Create 25 . Priest for Neutral Hostile at Temp_Point facing Default building facing degrees
Set Variable Set Priest_Forces = (Last created unit group)
Unit Group - Pick every unit in Priest_Forces and do (Actions)
Loop - Actions
Unit - Add Stun (Apprentice) to (Trained unit)
Unit - Add Mana Break (Apprentice) to (Picked unit)
Custom script: call DestroyGroup (udg_Priest_Forces)
Special Effect - Create a special effect at Temp_Point using Abilities\Spells\Human\MassTeleport\MassTeleportCaster.mdl
Custom script: call RemoveLocation(udg_Temp_Point)
Set Variable Set Teleport = (Last created special effect)
Set Variable Set Temp_Point = (Random point in Neutral_SpawnPoint <gen>)
Unit - Move Dark Mage 0181 <gen> instantly to Temp_Point
Special Effect - Destroy Teleport
Unit - Set life of Dark Mage 0181 <gen> to ((Life of Dark Mage 0181 <gen>) + 250.00)
Custom script: call RemoveLocation(udg_Temp_Point)
Spawn Apprentice Wizard
Events
Time - Every 60.00 seconds of game time
Conditions
Actions
Set Variable Set Temp_Point = (Random point in Neutral_SpawnPoint <gen>)
Unit - Create 10 . Apprentice Wizard for Neutral Hostile at Temp_Point facing Default building facing degrees
Set Variable Set Apprentice_Forces = (Last created unit group)
Unit Group - Pick every unit in Apprentice_Forces and do (Actions)
Loop - Actions
Unit - Add Stun (Apprentice) to (Picked unit)
Unit - Add Mana Break (Apprentice) to (Picked unit)
Custom script: call DestroyGroup (udg_Apprentice_Forces)
Custom script: call RemoveLocation(udg_Temp_Point)
Devotion Aura
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to Devotion Aura (Heaven Blessing Ability)
Actions
Unit - Remove Brilliance Aura from (Triggering unit)
Set Variable Set Group = (Units in (Playable map area))
Unit Group - Pick every unit in Group and do (Remove Brilliance Aura buff from (Picked unit))
Unit - Add Devotion Aura to (Triggering unit)
Unit - Set level of Devotion Aura for (Triggering unit) to (Level of Heaven's Blessing (Arthas/Uther Classic BOEG) for (Triggering unit))
Custom script: call DestroyGroup(udg_Group)
Brilliance Aura
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to Brilliance Aura (Heaven Blessing Ability)
Actions
Unit - Remove Devotion Aura from (Triggering unit)
Set Variable Set Group = (Units in (Playable map area))
Unit Group - Pick every unit in Group and do (Remove Devotion Aura buff from (Picked unit))
Unit - Add Brilliance Aura to (Triggering unit)
Unit - Set level of Brilliance Aura for (Triggering unit) to (Level of Heaven's Blessing (Arthas/Uther Classic BOEG) for (Triggering unit))
Custom script: call DestroyGroup(udg_Group)
GateNorth
Events
Unit - Ranger 0293 <gen> Dies
Conditions
Actions
Destructible - Open Massive Ruined Gate 0161 <gen>
GateEast
Events
Unit - Paladin 0292 <gen> Dies
Conditions
Actions
Destructible - Open Massive Ruined Gate 2708 <gen>
GateSouth
Events
Unit - Paladin 0291 <gen> Dies
Conditions
Actions
Destructible - Open Massive Ruined Gate 2725 <gen>
GateWest
Events
Unit - Archmage 0294 <gen> Dies
Conditions
Actions
Destructible - Open Massive Ruined Gate 2808 <gen>
LegionServitorsHint
Events
Time - Elapsed game time is 30.00 seconds
Conditions
Actions
Quest - Display to (All players) the Warning message: |cffff0000WARNING!|rAnomalous energies are detected from Legion Gates! Disable them before Legion Servitors can use them!
LegionServitorsStartAttack
Events
Time - Elapsed game time is 750.00 seconds
Conditions
Actions
Countdown Timer - Start LegionTimer as a Repeating timer that will expire in 8.00 seconds
Countdown Timer - Start LegionTimerShort as a Repeating timer that will expire in 8.00 seconds
Animation - Play Legion Gate 0137 <gen> 's stand work animation
Animation - Play Legion Gate 0093 <gen> 's stand work animation
Set Variable Set LegionTarget = Player 2 (Blue)
Set Variable Set LegionTarget2 = Player 7 (Green)
Quest - Display to (All players) the Warning message: |cffff0000WARNING!|rLegion Servitor has activated multiple Legion Gates! Destroy the gates to stop enemy attacks!
LegionServitor1Spawn
Events
Time - LegionTimer expires
Conditions
(Legion Gate 0137 <gen> is alive) Equal to True
(Player 15 (Turquoise) Food used) Less than 250
Actions
Set Variable Set LegionPoint = (Player 15 (Turquoise) start location)
Set Variable Set LegionPointTarget = (LegionTarget start location)
Unit - Create 1 . (Random level -1 creep unit-type) for Player 16 (Violet) at LegionPoint facing Default building facing degrees
Unit - Order (Last created unit) to Attack-Move To . LegionPointTarget
Custom script: call RemoveLocation(udg_LegionPoint)
Custom script: call RemoveLocation(udg_LegionPointTarget)
Set Variable Set LegionTargetInt = (LegionTargetInt + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
LegionTargetInt Greater than 11
Then - Actions
Set Variable Set LegionTargetInt = "2"
Else - Actions
Set Variable Set LegionTarget = (Player(LegionTargetInt))
LegionServitor2Spawn
Events
Time - LegionTimerShort expires
Conditions
(Legion Gate 0093 <gen> is alive) Equal to True
(Player 16 (Violet) Food used) Less than 250
Actions
Set Variable Set LegionPoint = (Player 16 (Violet) start location)
Set Variable Set LegionPointTarget = (LegionTarget2 start location)
Unit - Create 1 . (Random level -1 creep unit-type) for Player 16 (Violet) at LegionPoint facing Default building facing degrees
Unit - Order (Last created unit) to Attack-Move To . LegionPointTarget
Custom script: call RemoveLocation(udg_LegionPoint)
Custom script: call RemoveLocation(udg_LegionPointTarget)
Set Variable Set LegionTargetInt2 = (LegionTargetInt2 + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
LegionTargetInt2 Greater than 11
Then - Actions
Set Variable Set LegionTargetInt2 = "2"
Else - Actions
Set Variable Set LegionTarget2 = (Player(LegionTargetInt2))
LegionServitorGateRemove
Events
Unit - A unit Dies
Conditions
Or - Any (Conditions) are true
Conditions
(Triggering unit) Equal to Legion Gate 0093 <gen>
(Triggering unit) Equal to Legion Gate 0137 <gen>
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Triggering unit) Equal to Legion Gate 0137 <gen>
Then - Actions
Quest - Display to (All players) the Quest Update message: |cffffdc00UPDATE|rNorth Gate has been sealed!Allied players gained Glyph of Fortification!
Player Group - Pick every player in (All allies of Player 2 (Blue).) and do (Actions)
Loop - Actions
Player - Set the current research level of Rgfo (Unexpected type: 'techcode') to 1 for (Picked player)
Trigger - Turn off LegionServitor1Spawn <gen>
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Triggering unit) Equal to Legion Gate 0093 <gen>
Then - Actions
Quest - Display to (All players) the Quest Update message: |cffffdc00UPDATE|rSouth Gate has been sealed!All players gained Glyph of Ultravision!
Player Group - Pick every player in (All allies of Player 2 (Blue).) and do (Actions)
Loop - Actions
Player - Set the current research level of Rguv (Unexpected type: 'techcode') to 1 for (Picked player)
Trigger - Turn off LegionServitor2Spawn <gen>
Else - Actions
-------- CORE --------
-------- TSELL_Duration is the duration of the effect --------
Set Variable Set TSELL_Duration = "100000.00"
-------- TSELL_EffectName is the string to the effect file --------
Set Variable Set TSELL_EffectName = "Abilities\Spells\NightElf\Tranquility\Tranquility.mdl"
-------- TSELL_Point is the position of the effect created --------
Set Variable Set TSELL_Point = (Position of (Triggering unit))
-------- TSELL_Scale for scaling the effect (point-based only) --------
Set Variable Set TSELL_Scale = "5.00"
-------- After all core variables are set, run TSE_RegisterTrigger --------
Trigger - Run TSELL_TriggerRegister (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Legion Gate 0093 <gen> is dead) Equal to True
(Legion Gate 0137 <gen> is dead) Equal to True
Then - Actions
Trigger - Turn off (This trigger)
Else - Actions
Enum Capital
Events
Time - Elapsed game time is 5.00 seconds
Conditions
Actions
Set Variable Set Capital_Group = (Units of type Capital Rift (Classic BOEG))
Countdown Timer - Start Capital_Timer as a One-shot timer that will expire in 60.00 seconds
Add Capital
Events
Unit - A unit enters (Playable map area)
Conditions
(Unit-type of (Triggering unit)) Equal to Capital Rift (Classic BOEG)
Actions
Unit Group - Add (Triggering unit) to Capital_Group
Remove Capital
Events
Unit - A unit Dies
Conditions
(Unit-type of (Triggering unit)) Equal to Capital Rift (Classic BOEG)
Actions
Unit Group - Remove (Triggering unit) from Capital_Group .
Capital Resources
Events
Time - Capital_Timer expires
Conditions
Actions
Unit Group - Pick every unit in Capital_Group and do (Actions)
Loop - Actions
Player - Add 1000 to (Owner of (Picked unit)) . Current gold
Player - Add 250 to (Owner of (Picked unit)) . Current lumber
Capital Shift Control
Events
Game - LethalDamageEvent becomes Equal to 1.00
Conditions
(Unit-type of DamageEventTarget) Equal to Capital Rift (Classic BOEG)
Actions
Set Variable Set Capital_Point = (Position of DamageEventTarget)
Set Variable Set Capital_PrevOwner = (Owner of DamageEventTarget)
Set Variable Set LethalDamageHP = "5000.00"
Unit - Change ownership of DamageEventTarget to (Owner of DamageEventSource) and Change color
Unit - Create 1 . Shattered Rift (REIMAGINED) for Capital_PrevOwner at Capital_Point facing Default building facing degrees
Unit - Kill (Last created unit)
Custom script: call RemoveLocation(udg_Capital_Point)
Unit - Remove (Last created unit) from the game
Prevent Ally in Slot
Events
Map initialization
Conditions
Actions
Hero - Reserve 6 Hero buttons for the local player
Start AI
Events
Time - Elapsed game time is 0.00 seconds
Conditions
Actions
Player - Set Player 14 (Navy) . Current gold to 100000
Player - Set Player 14 (Navy) . Current lumber to 100000
Set Variable Set RiftGroup = (Units owned by Player 14 (Navy) of type Capital Rift (Classic BOEG))
Game - Display to (All players) the text: |cffffdc00AI Activation|rPlease wait...
AI - Start melee AI script for Player 1 (Red) : human.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 2 (Blue) : war3mapImported\classyhuman.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 3 (Teal) : human.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 4 (Purple) : human.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 5 (Yellow) : human.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 6 (Orange) : human.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 7 (Green) : orc.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 8 (Pink) : orc.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 9 (Gray) : orc.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 10 (Light Blue) : undead.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 11 (Dark Green) : elf.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 12 (Brown) : undead.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 19 (Mint) : orc.ai (Unexpected type: 'aiscript')
AI - Start melee AI script for Player 20 (Lavender) : elf.ai (Unexpected type: 'aiscript')
Player - Disable sleeping for all creeps
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units in Servitor_Zone <gen> owned by Neutral Hostile) and do (Actions)
Loop - Actions
Unit - Change ownership of (Picked unit) to Player 13 (Maroon) and Change color
Player - Change color of Player 1 (Red) to Wheat , Changing color of existing units
Player - Change color of Player 12 (Brown) to Coal , Changing color of existing units
Player - Change color of Player 13 (Maroon) to Lavender , Changing color of existing units
Player - Change color of Player 14 (Navy) to Snow , Changing color of existing units
Player - Change color of Player 15 (Turquoise) to Lavender , Changing color of existing units
Player - Change color of Player 16 (Violet) to Lavender , Changing color of existing units
Player - Set Player 2 (Blue) . Current gold to 100000
Player - Set Player 2 (Blue) . Current lumber to 25000
Player - Hide Player 13 (Maroon) in the post-game score screen
Player - Hide Player 14 (Navy) in the post-game score screen
Player - Hide Player 15 (Turquoise) in the post-game score screen
Player - Hide Player 16 (Violet) in the post-game score screen
Player Group - Pick every player in (All players) and do (Actions)
Loop - Actions
Player - Turn Gives bounty On for (Picked player)
Game - Display to (All players) the text: |cffffdc00AI Activation COMPLETE!|r
Blue AI Hero
Events
Unit - A unit Gains a level
Conditions
(Owner of (Triggering unit)) Equal to Player 2 (Blue)
Actions
Hero - Learn skill for (Triggering unit) : Healing Wave (Rokhan)
Hero - Learn skill for (Triggering unit) : Drunken Brawler (Chen)
Hero - Learn skill for (Triggering unit) : Attribute Bonus
Rift Defense
Events
Time - Every 10.00 seconds of game time
Conditions
(Count structures controlled by Player 14 (Navy) (Exclude incomplete structures)) Greater than 0
Actions
Unit Group - Pick every unit in RiftGroup and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Picked unit)) Equal to Player 14 (Navy)
Then - Actions
Unit - Order (Picked unit) to train/upgrade to a Malformed Rift (Capital Rift)
Else - Actions
Rift Construct
Events
Unit - A unit Finishes training a unit
Conditions
(Unit-type of (Trained unit)) Equal to Malformed Rift (Capital Rift)
Actions
Set Variable Set RiftPoint = (Position of (Trained unit))
Unit - Remove (Trained unit) from the game
Unit - Create 1 . (Random level -1 creep unit-type) for Player 14 (Navy) at RiftPoint facing Default building facing degrees
-------- CORE --------
-------- TSELL_Duration is the duration of the effect --------
Set Variable Set TSELL_Duration = "1.00"
-------- TSELL_EffectName is the string to the effect file --------
Set Variable Set TSELL_EffectName = "Abilities\Spells\Items\AIil\AIilTarget.mdl"
-------- TSELL_Point is the position of the effect created --------
Set Variable Set TSELL_Point = (Position of (Last created unit))
-------- TSELL_Scale for scaling the effect (point-based only) --------
Set Variable Set TSELL_Scale = "1.00"
-------- After all core variables are set, run TSE_RegisterTrigger --------
Trigger - Run TSELL_TriggerRegister (checking conditions)
Custom script: call RemoveLocation(udg_RiftPoint)
Auto Harvest
Events
Map initialization
Conditions
Actions
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units of type Peasant) and do (Actions)
Loop - Actions
Unit - Order (Picked unit) to Harvest Nearby Gold .
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units of type Peon) and do (Actions)
Loop - Actions
Unit - Order (Picked unit) to Harvest Nearby Gold .
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units owned by Player 10 (Light Blue) of type Acolyte) and do (Actions)
Loop - Actions
Unit - Order (Picked unit) to Harvest . Haunted Gold Mine 0996 <gen>
Unit - Order Tree of Eternity 1013 <gen> to Night Elf Tree Of Life - Entangle (Instant) . Gold Mine 0022 <gen>
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units of type Wisp) and do (Actions)
Loop - Actions
Unit - Order (Picked unit) to Harvest . Gold Mine 0022 <gen>
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units owned by Player 12 (Brown) of type Acolyte) and do (Actions)
Loop - Actions
Unit - Order (Picked unit) to Harvest . Haunted Gold Mine 0045 <gen>
Hero List
Events
Map initialization
Conditions
Actions
-------- Dummy Hero --------
Set Variable Set HeroReq_DummyHero = "H00F"
-------- Debug Mode option --------
Set Variable Set HeroReq_DebugMode = "true"
-------- Start System --------
Hashtable - Create a hashtable
Set Variable Set HeroReq_Hash = (Last created hashtable)
-------- Register --------
-------- Classic BOEG --------
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "H00E"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "H00G"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "H00H"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "H00I"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "H00J"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "O002"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "O003"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "O004"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "N004"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "E002"
-------- Holy Alliance --------
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "H00M"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "H00O"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "H00P"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "H00R"
Set Variable Set HeroReq_UnitTypeListIndex = (HeroReq_UnitTypeListIndex + 1)
Set Variable Set HeroReq_UnitTypeList[HeroReq_UnitTypeListIndex] = "H01I"
-------- Enumerate and save to hash for detection --------
For each (Integer HeroReq_UnitTypeListEnum ) from 1 to HeroReq_UnitTypeListIndex , do (Actions)
Loop - Actions
Set Variable Set HeroReq_UnitType = HeroReq_UnitTypeList[HeroReq_UnitTypeListEnum]
Custom script: call SaveBoolean(udg_HeroReq_Hash, udg_HeroReq_UnitType, 0, true)
-------- End Register Event --------
Set Variable Set HeroReq_Event = "1.00"
Set Variable Set HeroReq_Event = "0.00"
Hero Initialization
Events
Game - HeroReq_Event becomes Equal to 1.00
Conditions
Actions
Player Group - Pick every player in (All players) and do (Actions)
Loop - Actions
For each (Integer HeroReq_UnitTypeListEnum ) from 1 to HeroReq_UnitTypeListIndex , do (Actions)
Loop - Actions
Set Variable Set HeroReq_UnitType = HeroReq_UnitTypeList[HeroReq_UnitTypeListEnum]
Player - Limit training of HeroReq_UnitType to 1 for (Picked player)
Critical flaw:
Event begins = cannot cancel
Event ends = spam before end
Hero Trained
Events
Unit - A unit Begins training a unit
Conditions
((Trained unit) is A Hero) Equal to True
Actions
Set Variable Set HeroReq_UnitType = (Unit-type of (Trained unit))
Custom script: set udg_HeroReq_IsInList = LoadBoolean(udg_HeroReq_Hash, udg_HeroReq_UnitType, 0)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
HeroReq_IsInList Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
HeroReq_DebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: (Name of (Trained unit))
Else - Actions
Unit - Create 1 . HeroReq_DummyHero for (Owner of (Trained unit)) at (Center of (Playable map area)) facing Default building facing degrees
Unit - Remove (Last created unit) from the game
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
HeroReq_DebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: Unidentified Hero Entered Battlefield
Else - Actions
Hero Level
Events
Conditions
((Owner of (Triggering unit)) controller) Equal to Computer
Actions
Custom script: call Trig_Choose_Hero_Spell_Actions(GetTriggerUnit())
Hero built
Events
Unit - A unit Finishes training a unit
Conditions
((Trained unit) is A Hero) Equal to True
((Owner of (Trained unit)) controller) Equal to Computer
Actions
Trigger - Add to Hero_Level <gen> the event ((Trained unit) Gains a level)
Custom script: call Trig_Choose_Hero_Spell_Actions(GetTrainedUnit())
function Skill_Paladin takes unit u, integer level returns nothing
	// HOLY LIGHT
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AHhb' )
	// DEVOTION AURA
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AHad' )
	// DIVINE SHIELD
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AHds' )
	// RESURRECTION
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AHre' )
	endif
endfunction

function Skill_Archmage takes unit u, integer level returns nothing
	// WATER ELEMENTAL
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AHwe' )
	// BRILLIANCE AURA
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AHbz' )
	// BLIZZARD
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AHab' )
	// MASS TELEPORT
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AHmt' )
	endif
endfunction

function Skill_MountainKing takes unit u, integer level returns nothing
	// STORM BOLT
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AHtb' )
	// BASH
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AHbh' )
	// THUNDER CLAP
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AHtc' )
	// AVATAR
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AHav' )
	endif
endfunction

function Skill_Bloodmage takes unit u, integer level returns nothing
	// FLAME STRIKE
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AHfs' )
	// SIPHON MANA
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AHdr' )
	// BANISH
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AHbn' )
	// PHOENIX
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AHpx' )
	endif
endfunction

function Skill_Blademaster takes unit u, integer level returns nothing
	// WINDWALK
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AOwk' )
	// CRITICAL STRIKE
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AOcr' )
	// MIRROR IMAGE
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AOmi' )
	// BLADESTORM
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AOww' )
	endif
endfunction

function Skill_Farseer takes unit u, integer level returns nothing
	// FERAL SPIRIT
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AOsf' )
	// CHAIN LIGHTNING
	elseif (level == 2 or level == 4 or level == 7) then
		call SelectHeroSkill( u, 'AOcl' )
	// FAR SIGHT
	elseif (level == 8 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AOfs' )
	// EARTHQUAKE
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AOeq' )
	endif
endfunction

function Skill_Chieftain takes unit u, integer level returns nothing
	// WARSTOMP
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AOws' )
	// ENDURENCE AURA
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AOae' )
	// SHOCKWAVE
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AOsh' )
	// REINCARNATION
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AOre' )
	endif
endfunction

function Skill_ShadowHunter takes unit u, integer level returns nothing
	// HEALING WAVE
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AOhw' )
	// HEX
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AOhx' )
	// SERPENT WARD
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AOsw' )
	// BIG BAD VODOO
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AOvd' )
	endif
endfunction

function Skill_DeathKnight takes unit u, integer level returns nothing
	// DEATH COIL
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AUdc' )
	// UNHOLY AURA
	elseif (level == 2 or level == 4 or level == 7) then
		call SelectHeroSkill( u, 'AUau' )
	// DEATH PACT
	elseif (level == 8 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AUdp' )
	// ANIMATE DEAD
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AUan' )
	endif
endfunction

function Skill_Lich takes unit u, integer level returns nothing
	// FROST NOVA
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AUfn' )
	// DARK RITUAL
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AUdr' )
	// FROST ARMOR
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AUfu' )
	// DEATH AND DECAY
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AUdd' )
	endif
endfunction

function Skill_Dreadlord takes unit u, integer level returns nothing
	// CARRION SWARM
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AUcs' )
	// VAMPIRIC AURA
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AUav' )
	// SLEEP
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AUsl' )
	// INFERNO
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AUin' )
	endif
endfunction

function Skill_CryptLord takes unit u, integer level returns nothing
	// CARRION BEETLES
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AUcb' )
	// SPIKED CARAPACE
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AUts' )
	// IMPALE
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AUim' )
	// LOCUST SWARM
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AUls' )
	endif
endfunction

function Skill_Priestress takes unit u, integer level returns nothing
	// SEARING ARROW
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AEfa' )
	// TRUESHOT AURA
	elseif (level == 2 or level == 4 or level == 7) then
		call SelectHeroSkill( u, 'AEar' )
	// SCOUT
	elseif (level == 8 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AEst' )
	// STARFALL
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AEsf' )
	endif
endfunction

function Skill_Keeper takes unit u, integer level returns nothing
	// FORCE OF NATURE
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AEfn' )
	// ENTANGLING ROOTS
	elseif (level == 2 or level == 4 or level == 7) then
		call SelectHeroSkill( u, 'AEer' )
	// THORNS AURA
	elseif (level == 8 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AEah' )
	// TRANQUILITY
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AEtq' )
	endif
endfunction

function Skill_DemonHunter takes unit u, integer level returns nothing
	// MANA BURN
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AEmb' )
	// EVASION
	elseif (level == 2 or level == 4 or level == 7) then
		call SelectHeroSkill( u, 'AEev' )
	// IMMOLATION
	elseif (level == 8 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AEim' )
	// METAMORPHOSIS
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AEme' )
	endif
endfunction

function Skill_Warden takes unit u, integer level returns nothing
	// SHADOW STRIKE
	if (level == 1 or level == 3 or level == 5) then
		call SelectHeroSkill( u, 'AEsh' )
	// BLINK
	elseif (level == 2 or level == 4 or level == 8) then
		call SelectHeroSkill( u, 'AEbl' )
	// FAN OF KNIVES
	elseif (level == 7 or level == 9 or level == 10) then
		call SelectHeroSkill( u, 'AEfk' )
	// VENGEANCE
	elseif (level == 6) then
		call SelectHeroSkill( u, 'AEsv' )
	endif
endfunction

////////////////////////////////////////////////////////////////////////////////////////
//
//	Find hero and level
//
////////////////////////////////////////////////////////////////////////////////////////


function Trig_Choose_Hero_Spell_Actions takes unit u returns nothing
	local integer level
	set level = GetHeroLevel(u)
	
	//////////////////////////////
	//	HUMAN
	if (GetUnitRace(u) == RACE_HUMAN) then
	//////////////////////////////
	//	PALADIN
		if (GetUnitTypeId(u) == 'Hpal' ) then
			call Skill_Paladin(u, level)
	//	ARCHMAGE
		elseif (GetUnitTypeId(u) == 'Hamg' ) then
			call Skill_Archmage(u, level)
	//	MOUNTAIN KING
		elseif (GetUnitTypeId(u) == 'Hmkg' ) then
			call Skill_MountainKing(u, level)
	//	BLOODMAGE
		elseif (GetUnitTypeId(u) == 'Hblm' ) then
			call Skill_Bloodmage(u, level)
		endif
	//////////////////////////////
	//	ORC
	elseif (GetUnitRace(u) == RACE_ORC) then
	//////////////////////////////
	//	BLADEMASTER
		if (GetUnitTypeId(u) == 'Obla' ) then
			call Skill_Blademaster(u, level)
	//	FARSEER
		elseif (GetUnitTypeId(u) == 'Ofar' ) then
			call Skill_Farseer(u, level)
	//	TAUREN CHIEFTAIN
		elseif (GetUnitTypeId(u) == 'Otch' ) then
			call Skill_Chieftain(u, level)
	//	SHADOW HUNTER
		elseif (GetUnitTypeId(u) == 'Oshd' ) then
			call Skill_ShadowHunter(u, level)
		endif
	//////////////////////////////
	//	UNDEAD
	elseif (GetUnitRace(u) == RACE_UNDEAD) then
	//////////////////////////////
	// 	DEATH KNIGHT
		if (GetUnitTypeId(u) == 'Udea' ) then
			call Skill_DeathKnight(u, level)
	//	LICH
		elseif (GetUnitTypeId(u) == 'Ulic' ) then
			call Skill_Lich(u, level)
	//	DREADLORD
		elseif (GetUnitTypeId(u) == 'Udre' ) then
			call Skill_Dreadlord(u, level)
	//	CRYPT LORD
		elseif (GetUnitTypeId(u) == 'Ucrl' ) then
			call Skill_CryptLord(u, level)
		endif
	//////////////////////////////
	//	NIGHT ELF
	elseif (GetUnitRace(u) == RACE_NIGHTELF) then
	//////////////////////////////
	//	KEEPER OF THE GROVE
		if (GetUnitTypeId(u) == 'Ekee' ) then
			call Skill_Keeper(u, level)
	//	PRIESTRESS OF THE M
		elseif (GetUnitTypeId(u) == 'Emoo' ) then
			call Skill_Priestress(u, level)
	//	DEMON HUNTER
		elseif (GetUnitTypeId(u) == 'Edem' ) then
			call Skill_DemonHunter(u, level)
	//	WARDEN
		elseif (GetUnitTypeId(u) == 'Ewar' ) then
			call Skill_Warden(u, level)
		endif
	//////////////////////////////
	endif
endfunction

//===========================================================================
//function InitTrig_Choose_Hero_Spell takes nothing returns nothing
//    set gg_trg_Choose_Hero_Spell = CreateTrigger(  )
//    call TriggerAddAction( gg_trg_Choose_Hero_Spell, function Trig_Choose_Hero_Spell_Actions )
//endfunction
DuelistCritConfig
Events
Map initialization
Conditions
Actions
Set Variable Set DuelistCritAbil = "A02F"
Set Variable Set DuelistCritMaxLevel = "4"
DuelistCritLevelUp
Events
Unit - A unit Dies
Conditions
(Level of DuelistCritAbil for (Killing unit)) Greater than 0
(Level of DuelistCritAbil for (Killing unit)) Less than DuelistCritMaxLevel
Actions
Unit - Increase level of DuelistCritAbil for (Killing unit)
AHTConfig
Events
Map initialization
Conditions
Actions
Set Variable Set AHT_Ability = "A027"
Set Variable Set AHT_LumberBonus = "200"
Set Variable Set AHT_LumberTime = "60.00"
Set Variable Set AHT_LumberClock = (1 / 32.00)
Set Variable Set AHT_String = (+ + (String(AHT_LumberBonus)))
AHTRegister
Events
Unit - A unit Finishes construction
Conditions
(Level of AHT_Ability for (Constructed structure)) Greater than 0
Actions
Unit Group - Add (Constructed structure) to AHT_Group
Set Variable Set AHT_IDValue = (Custom value of (Constructed structure))
Set Variable Set AHT_TimeLeft[AHT_IDValue] = AHT_LumberTime
Set Variable Set AHT_Counter = (AHT_Counter + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
AHT_Counter Equal to 1
Then - Actions
Countdown Timer - Start AHT_LumberTimer as a Repeating timer that will expire in AHT_LumberClock seconds
Else - Actions
AHTLoop
Events
Time - AHT_LumberTimer expires
Conditions
Actions
Unit Group - Pick every unit in AHT_Group and do (Actions)
Loop - Actions
Set Variable Set AHT_IDValue = (Custom value of (Picked unit))
Set Variable Set AHT_TimeLeft[AHT_IDValue] = (AHT_TimeLeft[AHT_IDValue] - AHT_LumberClock)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
AHT_TimeLeft[AHT_IDValue] Less than or equal to 0.00
Then - Actions
Set Variable Set AHT_TimeLeft[AHT_IDValue] = AHT_LumberTime
Player - Add AHT_LumberBonus to (Owner of (Picked unit)) . Current lumber
Floating Text - Create floating text that reads AHT_String above (Picked unit) with Z offset 0 , using font size 12.00 , color ( 10.00 %, 100 %, 10.00 %), and 0 % transparency
Floating Text - Show (Last created floating text) for (All players)
Floating Text - Set the velocity of (Last created floating text) to 64 towards 90 degrees
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Change the lifespan of (Last created floating text) to 8.00 seconds
Floating Text - Change the fading age of (Last created floating text) to 4 seconds
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is dead) Equal to True
Then - Actions
Unit Group - Remove (Picked unit) from AHT_Group .
Set Variable Set AHT_Counter = (AHT_Counter - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
AHT_Counter Equal to 0
Then - Actions
Countdown Timer - Pause AHT_LumberTimer
Else - Actions
Else - Actions
RaiseShadowConfig
Events
Map initialization
Conditions
Actions
Set Variable Set RaiseShadow_ShadowType = "u004"
Set Variable Set RaiseShadow_HPFailPercent = "20.00"
Set Variable Set RaiseShadow_FailChance = "50.00"
RaiseShadowRaise
Events
Unit - A unit Spawns a summoned unit
Conditions
(Unit-type of (Summoned unit)) Equal to RaiseShadow_ShadowType
(Percentage life of (Summoning unit)) Less than or equal to RaiseShadow_HPFailPercent
(Random real number between 0 and 100.00) Less than or equal to RaiseShadow_FailChance
Actions
Unit - Kill (Summoned unit)
- Fixed dependency issues with some of the requirements
- Added LEMPP_EfficiencyFactor to allow modification of damage and stun efficiency by utilizing damage and stun filters provided
- Added example implementation of the efficiency factor
- Fixes the description video link
LEMPPConfig
Events
Map initialization
Conditions
Actions
-------- Ability --------
Set Variable Set LEMPP_Ability = "A01O"
-------- SFX --------
Set Variable Set LEMPP_SFXOrb = "war3mapImported\OrbLightningX.mdx"
Set Variable Set LEMPP_SFXOrbSizeRatio = "100.00"
Set Variable Set LEMPP_SFXBlast = "war3mapImported\EMPBubble.mdx"
Set Variable Set LEMPP_SFXBlastSizeRatio = "100.00"
Set Variable Set LEMPP_SFXStun = "Abilities\Spells\Orc\Purge\PurgeBuffTarget.mdl"
Set Variable Set LEMPP_SFXStunAttach = "origin"
-------- Blast Delay --------
Set Variable Set LEMPP_BlastDelay[1] = "2.00"
Set Variable Set LEMPP_BlastDelay[2] = "2.00"
Set Variable Set LEMPP_BlastDelay[3] = "2.00"
-------- Blast Radius --------
Set Variable Set LEMPP_BlastRadius[1] = "400.00"
Set Variable Set LEMPP_BlastRadius[2] = "400.00"
Set Variable Set LEMPP_BlastRadius[3] = "400.00"
-------- Damage --------
Set Variable Set LEMPP_Damage[1] = "150.00"
Set Variable Set LEMPP_Damage[2] = "250.00"
Set Variable Set LEMPP_Damage[3] = "350.00"
Set Variable Set LEMPP_DamageAT = Spells
Set Variable Set LEMPP_DamageDT = Normal
-------- Stun --------
Set Variable Set LEMPP_StunDuration[1] = "8.00"
Set Variable Set LEMPP_StunDuration[2] = "8.00"
Set Variable Set LEMPP_StunDuration[3] = "8.00"
LEMPPDamageFilter
Events
Conditions
Actions
-------- DO NOT TOUCH THIS PORTION --------
Set Variable Set LEMPP_TargetValid = "false"
Set Variable Set LEMPP_EfficiencyFactor = "1.00"
-------- START BELOW THIS LINE --------
-------- LEMPP_Level = level of Lightning EMP Pulse ability --------
-------- LEMPP_CasterUnit = Caster of the spell --------
-------- LEMPP_TargetUnit = Unit hit by the spell radius --------
-------- Edit the following conditions for filtering valid targets --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(LEMPP_TargetUnit belongs to an enemy of (Owner of LEMPP_CasterUnit).) Equal to True
(LEMPP_TargetUnit is Magic Immune) Equal to False
Then - Actions
Set Variable Set LEMPP_TargetValid = "true"
Else - Actions
-------- LEMPP_Efficiency factor decides the percentage of damage efficiency, with 1.00 deals 100% damage --------
-------- In this example, heroes takes 80% damage --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(LEMPP_TargetUnit is A Hero) Equal to True
Then - Actions
Set Variable Set LEMPP_EfficiencyFactor = "0.60"
Else - Actions
LEMPPStunFilter
Events
Conditions
Actions
-------- DO NOT TOUCH THIS PORTION --------
Set Variable Set LEMPP_TargetValid = "false"
Set Variable Set LEMPP_EfficiencyFactor = "1.00"
-------- START BELOW THIS LINE --------
-------- LEMPP_Level = level of Lightning EMP Pulse ability --------
-------- LEMPP_CasterUnit = Caster of the spell --------
-------- LEMPP_TargetUnit = Unit hit by the spell radius --------
-------- Edit the following conditions for filtering valid targets --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(LEMPP_TargetUnit is Mechanical) Equal to True
(LEMPP_TargetUnit is Magic Immune) Equal to False
Then - Actions
Set Variable Set LEMPP_TargetValid = "true"
Else - Actions
-------- LEMPP_Efficiency factor decides the percentage of stun efficiency, with 1.00 inflict 100% stun duration --------
LEMPPCast
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to LEMPP_Ability
Actions
Set Variable Set LEMPP_Level = (Level of LEMPP_Ability for (Triggering unit))
-------- CORE --------
-------- TSELL_Duration is the duration of the effect --------
Set Variable Set TSELL_Duration = LEMPP_BlastDelay[LEMPP_Level]
-------- TSELL_EffectName is the string to the effect file --------
Set Variable Set TSELL_EffectName = LEMPP_SFXOrb
-------- TSELL_Point is the position of the effect created --------
Set Variable Set TSELL_Point = (Target point of ability being cast)
-------- TSELL_Scale for scaling the effect (point-based only) --------
Set Variable Set TSELL_Scale = "0.00"
-------- EXTENSION --------
-------- TSELL_SourceUnit refers to the source of the buff, useful if the TargetUnit and SourceUnit are two different units --------
Set Variable Set TSELL_SourceUnit = (Triggering unit)
-------- TSELL_SourceUnitAliveCheck whether the SourceUnit must be alive or not --------
Set Variable Set TSELL_SourceUnitAliveCheck = "false"
-------- TSELL_ChanneledOrderID is used for buff tied with channeling spells --------
-------- The buff immediately ceased if the channeling spell ends --------
Set Variable Set TSELL_ChanneledOrderID = ""
-------- TSELL_ChanneledOrderID is used for buff tied with channeling spells --------
-------- TSELL_OnEventAllocate is an event that runs when the effect is created (directly at moment of effect creation). Refer to data with TSELL__ActiveIndex. --------
Set Variable Set TSELL_OnEventAllocate = LEMPPAlloc <gen>
-------- TSELL_OnEventLoop is an event that runs every TSELL_TimerOnLoop seconds. Refer to data with TSELL__ActiveIndex. --------
Set Variable Set TSELL_OnEventLoop = LEMPPLoop <gen>
-------- TSELL_TimerOnLoop is the duration between each tick of the loop --------
-------- Setting this allows better control over the OnLoopEvent instead of dealing with TELL_TimerTIMEOUT global --------
-------- This variable cannot be lower than TELL_TimerTIMEOUT --------
Set Variable Set TSELL_TimerForLoop = TELL_TimerTIMEOUT
-------- TSELL_OnEventDeallocate is an event that runs when the effect is about to be destroyed. Refer to data with TSELL__ActiveIndex. --------
Set Variable Set TSELL_OnEventDeallocate = TSELL_OnEventDeallocate
-------- TSELL_Integer for loading integer into the instance --------
Set Variable Set TSELL_Integer = LEMPP_Level
-------- END --------
-------- After all core variables are set, run TSE_RegisterTrigger --------
Trigger - Run TSELL_TriggerRegister (checking conditions)
LEMPPAlloc
Events
Conditions
Actions
Special Effect - Play Special Effect: TSELL__AllocSpecialEffect , Animation: Stand
Set Variable Set LEMPP_Level = TSELL__AllocInteger
Set Variable Set LEMPP_SizeCurrent[TSELL__AllocActiveIndex] = "0.00"
Set Variable Set LEMPP_SizeChange[TSELL__AllocActiveIndex] = ((LEMPP_BlastRadius[LEMPP_Level] / LEMPP_SFXOrbSizeRatio) / LEMPP_BlastDelay[LEMPP_Level])
Set Variable Set LEMPP_SizeChange[TSELL__AllocActiveIndex] = (LEMPP_SizeChange[TSELL__AllocActiveIndex] x TELL_TimerTIMEOUT)
LEMPPLoop
Events
Conditions
Actions
Set Variable Set LEMPP_Level = TSELL__AllocInteger
Set Variable Set LEMPP_SizeCurrent[TSELL__ActiveIndex] = (LEMPP_SizeCurrent[TSELL__ActiveIndex] + LEMPP_SizeChange[TSELL__ActiveIndex])
Special Effect - Set Scale of TSELL__SpecialEffect to LEMPP_SizeCurrent[TSELL__ActiveIndex]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL__RemainingDuration Less than or equal to 0.00
Then - Actions
Special Effect - Create a special effect at TSELL__Point using LEMPP_SFXBlast
Special Effect - Set Scale of (Last created special effect) to (LEMPP_BlastRadius[LEMPP_Level] / LEMPP_SFXBlastSizeRatio)
Special Effect - Destroy (Last created special effect)
Set Variable Set LEMPP_CasterUnit = TSELL__SourceUnit
Unit Group - Pick every unit in (Units within LEMPP_BlastRadius[LEMPP_Level] of TSELL__Point.) and do (Actions)
Loop - Actions
Set Variable Set LEMPP_TargetUnit = (Picked unit)
Trigger - Run LEMPPDamageFilter <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
LEMPP_TargetValid Equal to True
Then - Actions
Unit - Cause LEMPP_CasterUnit to damage LEMPP_TargetUnit , dealing (LEMPP_EfficiencyFactor x LEMPP_Damage[LEMPP_Level]) damage of attack type LEMPP_DamageAT and damage type LEMPP_DamageDT
Else - Actions
Unit Group - Pick every unit in (Units within LEMPP_BlastRadius[LEMPP_Level] of TSELL__Point.) and do (Actions)
Loop - Actions
Set Variable Set LEMPP_TargetUnit = (Picked unit)
Trigger - Run LEMPPStunFilter <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
LEMPP_TargetValid Equal to True
Then - Actions
-------- Unit that will get stunned --------
Set Variable Set StunSnippet__StunnedUnit = LEMPP_TargetUnit
-------- Stun duration --------
Set Variable Set StunSnippet__Duration = (LEMPP_EfficiencyFactor x LEMPP_StunDuration[LEMPP_Level])
-------- Effect shown, if <empty string> will fall back to default --------
Set Variable Set StunSnippet__SFX = LEMPP_SFXStun
-------- Attach point for the effect shown, if <empty string> will fall back to default --------
Set Variable Set StunSnippet__AttachPoint = LEMPP_SFXStunAttach
-------- Register the stun effect --------
Trigger - Run StunSnippet_TRegister (checking conditions)
Else - Actions
Else - Actions
Installation prequisites:
+ A hashtable. In this spell we will need udg_FF_Hashtable
+ A basic understanding of JASS.

How to import:
Step 1: Create the hashtable.
Step 2: Copy the spell trigger (Freezing Field).
Step 3: Modify the values in the configuration part of the spell as you like.

Give proper credit where it is due if you use my resources. Thanks.
-Doomlord
// CONFIGURATION

// Constants

// Main spell raw code
constant function FF_GetSpellID takes nothing returns integer
    return 'A01K'
endfunction

// Field Effect
constant function FF_FieldFx takes nothing returns string
    return "war3mapimported\\FreezingField.mdx" 
endfunction

// Explosion Effect
constant function FF_ExpFx takes nothing returns string
    return "war3mapimported\\SnowyBlizzardTarget.mdx"
endfunction

// Explosion Effect delay
constant function FF_ExpDelay takes nothing returns real
    return 0.8
endfunction

// Explosion Interval
constant function FF_Interval takes nothing returns real
    return 0.05
endfunction

// Booleans

function FF_FilterUnit takes player casterowner, unit u returns boolean
    return IsUnitEnemy(u, casterowner) and not IsUnitType (u, UNIT_TYPE_DEAD) and GetUnitAbilityLevel(u, 'Avul') == 0 and not IsUnitType (u, UNIT_TYPE_MAGIC_IMMUNE)
endfunction

// Get spell level

function FF_SpellLvl takes unit caster returns integer
    return GetUnitAbilityLevel (caster, FF_GetSpellID()) // Get the spell level of the caster
endfunction

// Level dependable values

function FF_Duration takes integer level returns real
    return 5.
endfunction

function FF_ExpDmg takes integer level returns real
    return 100. + level*20.
endfunction

function FF_ExpAoE takes integer level returns real
    return 100. + level*20.
endfunction

function FF_FieldAoe takes integer level returns real
    return 400. + level*50.
endfunction

// Attack - Damage - Weapon type

function FF_AttackType takes nothing returns attacktype
    return ATTACK_TYPE_NORMAL
endfunction

function FF_DamageType takes nothing returns damagetype
    return DAMAGE_TYPE_MAGIC
endfunction

function FF_WeaponType takes nothing returns weapontype
    return WEAPON_TYPE_WHOKNOWS
endfunction

// END CONFIGURATION

// SPELL FUNCTIONS

// This is the main function of the spell

function FF_TimerLoop takes nothing returns nothing
    local integer ID
    local integer ID2
    local integer listmax = LoadInteger(udg_FF_Hashtable, -1, 0 )
    local unit caster
    local integer i = 0
    local unit u
    local real x
    local real y
    local real x1
    local real y1
    local integer level
    local real t
    local integer j
    local integer modifier
    local real r

    // Now we start looping through all the spell instances
    loop
        exitwhen i >= listmax

        // First we load the saved values of a spell instance
        set i = i + 1
        set ID = LoadInteger(udg_FF_Hashtable, -1, i)
        set caster = LoadUnitHandle(udg_FF_Hashtable, ID, 1)
        set x = LoadReal(udg_FF_Hashtable, ID, 2)
        set y = LoadReal(udg_FF_Hashtable, ID, 3)
        set level = FF_SpellLvl(caster)
        set t = LoadReal(udg_FF_Hashtable, ID, 5)
        set j = LoadInteger(udg_FF_Hashtable, ID, 6)

        if t >= FF_Duration(level) then
            call DestroyEffect(LoadEffectHandle(udg_FF_Hashtable, ID, 4))

            if listmax != i then
                call SaveInteger(udg_FF_Hashtable, LoadInteger(udg_FF_Hashtable, -1, listmax), 0, i)
                call SaveInteger(udg_FF_Hashtable, -1, i, LoadInteger(udg_FF_Hashtable, -1, listmax))
                call RemoveSavedInteger(udg_FF_Hashtable, -1, listmax)
                set i = i - 1
            endif

            set listmax = listmax - 1
            call SaveInteger(udg_FF_Hashtable, -1, 0, listmax)

            if LoadInteger(udg_FF_Hashtable, 0, 0) + 1 == LoadInteger(udg_FF_Hashtable, 0, -1) then
                call FlushChildHashtable(udg_FF_Hashtable, 0)
                call PauseTimer(LoadTimerHandle(udg_FF_Hashtable, -2, 0))
            else
                call SaveInteger (udg_FF_Hashtable, 0, 0, LoadInteger(udg_FF_Hashtable, 0, 0) + 1)
                call SaveInteger(udg_FF_Hashtable, 0, LoadInteger(udg_FF_Hashtable, 0, 0), ID)
            endif

            call FlushChildHashtable(udg_FF_Hashtable, ID)

        else
 
            if LoadBoolean(udg_FF_Hashtable, ID, 7) then
                set r = LoadReal(udg_FF_Hashtable, ID, 10)

                if r >= FF_ExpDelay() then
                    call GroupEnumUnitsInRange(udg_FF_Group, LoadReal(udg_FF_Hashtable, ID, 8), LoadReal(udg_FF_Hashtable, ID, 9), FF_ExpAoE(level), null)

                    loop
                        set u = FirstOfGroup(udg_FF_Group)
                        exitwhen u == null

                        if FF_FilterUnit (GetOwningPlayer(caster), u) and IsUnitVisible(u, GetOwningPlayer(caster)) then
                            call UnitDamageTarget(caster, u, FF_ExpDmg(level), false, false, FF_AttackType(), FF_DamageType(), FF_WeaponType())
                        endif

                        call GroupRemoveUnit(udg_FF_Group, u)
                    endloop

                    if listmax != i then
                        call SaveInteger (udg_FF_Hashtable, LoadInteger (udg_FF_Hashtable, -1, listmax), 0, i)
                        call SaveInteger (udg_FF_Hashtable, -1, i, LoadInteger (udg_FF_Hashtable,-1, listmax))
                        call RemoveSavedInteger (udg_FF_Hashtable, -1, listmax)
                        set i = i - 1
                    endif

                    set listmax = listmax - 1
                    call SaveInteger (udg_FF_Hashtable, -1, 0, listmax )

                    if LoadInteger (udg_FF_Hashtable, 0, 0) + 1 == LoadInteger (udg_FF_Hashtable, 0, -1) then
                        call FlushChildHashtable (udg_FF_Hashtable, 0) 
                        call PauseTimer (LoadTimerHandle (udg_FF_Hashtable, -2, 0))
                    else
                        call SaveInteger (udg_FF_Hashtable, 0, 0, LoadInteger(udg_FF_Hashtable, 0, 0) + 1)
                        call SaveInteger (udg_FF_Hashtable, 0, LoadInteger(udg_FF_Hashtable, 0, 0), ID)
                    endif

                    call FlushChildHashtable (udg_FF_Hashtable, ID)
                else
                    call SaveReal(udg_FF_Hashtable, ID, 10, r + FF_Interval())
                endif

            else

                set modifier = j - (j/4)*4
                set x1 = x + GetRandomReal (135, FF_FieldAoe(FF_SpellLvl(caster)))*Cos(GetRandomReal(-90, 0) + modifier*90.)
                set y1 = y + GetRandomReal (135, FF_FieldAoe(FF_SpellLvl(caster)))*Sin(GetRandomReal(-90, 0) + modifier*90.)
                call DestroyEffect(AddSpecialEffect (FF_ExpFx(), x1, y1))
                set ID2 = LoadInteger (udg_FF_Hashtable, 0, 0)

                if ID2 > 0 then
                    call SaveInteger (udg_FF_Hashtable, 0, 0, ID2 - 1)
                    set ID2 = LoadInteger (udg_FF_Hashtable, 0, ID2)
                else
                    set ID2 = LoadInteger (udg_FF_Hashtable, 0, -1) + 1
                    call SaveInteger (udg_FF_Hashtable, 0,-1, ID2)
                endif

                call SaveUnitHandle (udg_FF_Hashtable, ID2, 1, caster)
                call SaveReal (udg_FF_Hashtable, ID2, 8, x1)
                call SaveReal (udg_FF_Hashtable, ID2, 9, y1)
                call SaveReal(udg_FF_Hashtable, ID2, 10, 0)
                call SaveBoolean (udg_FF_Hashtable, ID2, 7, true)
                set listmax = listmax + 1
                call SaveInteger (udg_FF_Hashtable, -1, 0, listmax )
                call SaveInteger (udg_FF_Hashtable, -1, listmax, ID2)
                call SaveInteger (udg_FF_Hashtable, ID2, 0, listmax)

                call SaveReal(udg_FF_Hashtable, ID, 5, t + FF_Interval())
                call SaveInteger(udg_FF_Hashtable, ID, 6, j + 1)
            endif
        endif

        set caster = null
    endloop
endfunction

function Trig_FF_Conditions takes nothing returns boolean
    local unit caster
    local integer ID
    local integer listmax
    local real x
    local real y

    if GetSpellAbilityId() == FF_GetSpellID() then
        set caster = GetTriggerUnit()
        set x = GetSpellTargetX()
        set y = GetSpellTargetY()
        set ID = LoadInteger(udg_FF_Hashtable, 0, 0)

        // Now we start indexing the spell
        if ID>0 then
            call SaveInteger(udg_FF_Hashtable, 0, 0, ID - 1)
            set ID = LoadInteger (udg_FF_Hashtable, 0, ID)
        else
            set ID = LoadInteger(udg_FF_Hashtable, 0, -1) + 1
            call SaveInteger(udg_FF_Hashtable,0 ,-1, ID)
            if ID == 1 then
                call TimerStart (LoadTimerHandle(udg_FF_Hashtable, -2, 0), FF_Interval(), true, function FF_TimerLoop)
            endif
        endif

        // Save the values related to this spell instance
        call SaveUnitHandle(udg_FF_Hashtable, ID, 1, caster)
        call SaveReal(udg_FF_Hashtable, ID, 2, x)
        call SaveReal(udg_FF_Hashtable, ID, 3, y)
        call SaveEffectHandle(udg_FF_Hashtable, ID, 4, AddSpecialEffect (FF_FieldFx(), x, y))
        call SaveReal(udg_FF_Hashtable, ID, 5, 0)
        call SaveInteger(udg_FF_Hashtable, ID, 6, 0)

        set listmax = LoadInteger (udg_FF_Hashtable, -1, 0) + 1
        call SaveInteger (udg_FF_Hashtable, -1, 0, listmax )
        call SaveInteger (udg_FF_Hashtable, -1, listmax, ID)
        call SaveInteger (udg_FF_Hashtable, ID, 0, listmax)

        set caster = null
    endif
    return false
endfunction

//===========================================================================
function InitTrig_Freezing_Field takes nothing returns nothing
    local trigger FF = CreateTrigger()
    set udg_FF_Hashtable = InitHashtable ()
    call SaveTimerHandle (udg_FF_Hashtable, -2, 0, CreateTimer())
    call TriggerRegisterAnyUnitEventBJ(FF, EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(FF, Condition( function Trig_FF_Conditions))
    set FF = null
endfunction
PowerOfFaith Config
Events
Map initialization
Conditions
Actions
-------- Power of Faith ability --------
Set Variable Set POF_Ability = "A01G"
-------- Stat gained per level --------
Set Variable Set POF_GainPerLevel = "4"
-------- Must exceed this level to start gaining stats --------
Set Variable Set POF_LevelBound = "10"
PowerOfFaith Cast
Events
Unit - A unit Gains a level
Conditions
(Hero level of (Triggering unit)) Greater than POF_LevelBound
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Level of POF_Ability for (Triggering unit)) Equal to 0
Then - Actions
Unit - Add POF_Ability to (Triggering unit)
Else - Actions
Set Variable Set POF_GetLevel = (Hero level of (Triggering unit))
Set Variable Set POF_TotalGain = (POF_GainPerLevel x (POF_GetLevel - POF_LevelBound))
Ability - Set Ability: (Unit: (Triggering unit)'s Ability with Ability Code: POF_Ability) 's Integer Level Field: Agility Bonus ('Iagi') of Level: 0 to POF_TotalGain
Ability - Set Ability: (Unit: (Triggering unit)'s Ability with Ability Code: POF_Ability) 's Integer Level Field: Intelligence Bonus ('Iint') of Level: 0 to POF_TotalGain
Ability - Set Ability: (Unit: (Triggering unit)'s Ability with Ability Code: POF_Ability) 's Integer Level Field: Strength Bonus ('Istr') of Level: 0 to POF_TotalGain
Unit - Increase level of POF_Ability for (Triggering unit)
Unit - Decrease level of POF_Ability for (Triggering unit)
BeamingLightConfig
Events
Map initialization
Conditions
Actions
-------- Set to Beaming Light ability --------
Set Variable Set Spell__Ability = "A01A"
-------- Set to BeamingLightCast --------
Set Variable Set Spell__Trigger_OnEffect = BeamingLightCast <gen>
-------- Heal Intelligence Factor --------
Set Variable Set BeamLightHealIntFactor[1] = "10.00"
Set Variable Set BeamLightHealIntFactor[2] = "20.00"
Set Variable Set BeamLightHealIntFactor[3] = "30.00"
-------- Damage to enemy --------
Set Variable Set BeamLightDamage[1] = "100.00"
Set Variable Set BeamLightDamage[2] = "200.00"
Set Variable Set BeamLightDamage[3] = "300.00"
Set Variable Set BeamLightAT = Spells
Set Variable Set BeamLightDT = Divine
-------- Damage range --------
Set Variable Set BeamLightDamageRadius[1] = "250.00"
Set Variable Set BeamLightDamageRadius[2] = "250.00"
Set Variable Set BeamLightDamageRadius[3] = "250.00"
-------- Damage filter --------
Set Variable Set Spell__Filter_AllowEnemy = "true"
Set Variable Set Spell__Filter_AllowLiving = "true"
Set Variable Set Spell__Filter_AllowHero = "true"
Set Variable Set Spell__Filter_AllowNonHero = "true"
Set Variable Set Spell__Filter_AllowAlly = "false"
Set Variable Set Spell__Filter_AllowDead = "false"
Set Variable Set Spell__Filter_AllowFlying = "false"
Set Variable Set Spell__Filter_AllowMechanical = "false"
Set Variable Set Spell__Filter_AllowStructure = "false"
Set Variable Set Spell__Filter_AllowMagicImmune = "false"
-------- SFX --------
Set Variable Set BeamLightSFX = "Abilities\Spells\Human\HolyBolt\HolyBoltSpecialArt.mdl"
-------- The SFX size is altered to radius/scale factor --------
Set Variable Set BeamLightSFXScaleFactor = "100.00"
-------- END CONFIG --------
Trigger - Run Spell_System <gen> (ignoring conditions)
BeamingLightCast
Events
Conditions
Actions
Special Effect - Create a special effect at Spell__TargetPoint using BeamLightSFX
Special Effect - Set Scale of (Last created special effect) to (BeamLightDamageRadius[Spell__Level] / BeamLightSFXScaleFactor)
Special Effect - Destroy (Last created special effect)
Unit - Set life of Spell__Target to ((Life of Spell__Target) + ((Real((Intelligence of Spell__Caster (Include bonuses)))) x BeamLightHealIntFactor[Spell__Level]))
Set Variable Set Spell__InRangePoint = Spell__TargetPoint
Set Variable Set Spell__InRange = BeamLightDamageRadius[Spell__Level]
Unit Group - Pick every unit in Spell__InRangeGroup and do (Actions)
Loop - Actions
Unit - Cause Spell__Caster to damage (Picked unit) , dealing BeamLightDamage[Spell__Level] damage of attack type BeamLightAT and damage type BeamLightDT
SFRConfig
Events
Map initialization
Conditions
Actions
-------- Set to Shredded Fire Ring ability --------
Set Variable Set Spell__Ability = "A01B"
-------- Set to SFRCast --------
Set Variable Set Spell__Trigger_OnEffect = SFRCast <gen>
-------- Damage amount per intelligence point --------
Set Variable Set SFR_DamagePerInt[1] = "10.00"
Set Variable Set SFR_DamagePerInt[2] = "20.00"
Set Variable Set SFR_DamagePerInt[3] = "30.00"
Set Variable Set SFR_AT = Spells
Set Variable Set SFR_DT = Fire
-------- Damage radius --------
Set Variable Set SFR_DamageRadius[1] = "200.00"
Set Variable Set SFR_DamageRadius[2] = "200.00"
Set Variable Set SFR_DamageRadius[3] = "200.00"
-------- Distance from caster position --------
Set Variable Set SFR_DistanceFromCaster[1] = "250.00"
Set Variable Set SFR_DistanceFromCaster[2] = "250.00"
Set Variable Set SFR_DistanceFromCaster[3] = "250.00"
-------- Covered degree --------
-------- This account both to the left and right, so the total covered is multiplied by 2 --------
-------- If you want full circle, set this to 180 --------
Set Variable Set SFR_DegreeCovered[1] = "40.00"
Set Variable Set SFR_DegreeCovered[2] = "60.00"
Set Variable Set SFR_DegreeCovered[3] = "80.00"
-------- This is degree difference between explosion --------
Set Variable Set SFR_DegreeDistance[1] = "15.00"
Set Variable Set SFR_DegreeDistance[2] = "15.00"
Set Variable Set SFR_DegreeDistance[3] = "15.00"
-------- Damage filter --------
Set Variable Set Spell__Filter_AllowEnemy = "true"
Set Variable Set Spell__Filter_AllowLiving = "true"
Set Variable Set Spell__Filter_AllowHero = "true"
Set Variable Set Spell__Filter_AllowNonHero = "true"
Set Variable Set Spell__Filter_AllowAlly = "false"
Set Variable Set Spell__Filter_AllowDead = "false"
Set Variable Set Spell__Filter_AllowFlying = "false"
Set Variable Set Spell__Filter_AllowMechanical = "true"
Set Variable Set Spell__Filter_AllowStructure = "false"
Set Variable Set Spell__Filter_AllowMagicImmune = "false"
-------- SFX --------
Set Variable Set SFR_SFX = "Abilities\Spells\Other\Doom\DoomDeath.mdl"
-------- The SFX size is altered to radius/scale factor --------
Set Variable Set SFR_SFXScaleFactor = "100.00"
-------- END CONFIG --------
Set Variable Set Spell__UseTargetGroup = "true"
Trigger - Run Spell_System <gen> (ignoring conditions)
SFRCast
Events
Conditions
Actions
Set Variable Set SFR_Facing = (Facing of Spell__Caster)
Set Variable Set SFR_FacingMax = (SFR_Facing + SFR_DegreeCovered[Spell__Level])
Set Variable Set SFR_Facing = (SFR_Facing - SFR_DegreeCovered[Spell__Level])
-------- The idea is a custom loop checking SFR_Facing if it had exceeded the max value --------
Custom script: loop
Custom script: exitwhen udg_SFR_Facing > udg_SFR_FacingMax
Set Variable Set Spell__InRangePoint = (Spell__CastPoint offset by SFR_DistanceFromCaster[Spell__Level] towards SFR_Facing degrees.)
Special Effect - Create a special effect at Spell__InRangePoint using SFR_SFX
Special Effect - Set Scale of (Last created special effect) to (SFR_DamageRadius[Spell__Level] / SFR_SFXScaleFactor)
Special Effect - Destroy (Last created special effect)
Set Variable Set Spell__InRange = SFR_DamageRadius[Spell__Level]
Set Variable Set SFR_Damage = (SFR_DamagePerInt[Spell__Level] x (Real((Intelligence of Spell__Caster (Include bonuses)))))
Unit Group - Pick every unit in Spell__InRangeGroup and do (Actions)
Loop - Actions
Set Variable Set SFR_PickedUnit = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(SFR_PickedUnit is in Spell__TargetGroup.) Equal to False
Then - Actions
Unit - Cause Spell__Caster to damage SFR_PickedUnit , dealing SFR_Damage damage of attack type SFR_AT and damage type SFR_DT
Unit Group - Add SFR_PickedUnit to Spell__TargetGroup
Else - Actions
Set Variable Set SFR_Facing = (SFR_Facing + SFR_DegreeDistance[Spell__Level])
Custom script: endloop
WarIntellectConfig
Events
Map initialization
Conditions
Actions
-------- Set to War Intellect ability --------
Set Variable Set Spell__Ability = "A01C"
-------- Set to WarIntellectCast --------
Set Variable Set Spell__Trigger_OnEffect = WarIntellectCast <gen>
-------- Set to WarIntellectLoop --------
Set Variable Set Spell__Trigger_OnLoop = WarIntellectLoop <gen>
-------- Duration of the effect --------
-------- Always reduce the duration with time due to time delaying the duration --------
-------- For example: 15 in object editor is 14 Spell__Duration if Spell__Time is 1 --------
Set Variable Set Spell__Time = "1.00"
Set Variable Set Spell__Duration = "14.00"
Set Variable Set Spell__DurationPerLevel = "0.00"
-------- Intelligence Bonus --------
Set Variable Set WarIntellectIntBonus[1] = "10"
Set Variable Set WarIntellectIntBonus[2] = "20"
Set Variable Set WarIntellectIntBonus[3] = "30"
-------- SFX --------
Set Variable Set WarIntellectSFX = "Abilities\Spells\Human\MagicSentry\MagicSentryCaster.mdl"
Set Variable Set WarIntellectSFXAttachPoint = "overhead"
-------- END CONFIG --------
Trigger - Run Spell_System <gen> (ignoring conditions)
WarIntellectCast
Events
Conditions
Actions
Hero - Modify Intelligence of Spell__Caster : Add WarIntellectIntBonus[Spell__Level] .
Special Effect - Create a special effect attached to the WarIntellectSFXAttachPoint of Spell__Caster using WarIntellectSFX
Set Variable Set WarIntellectSpEffect[Spell__Index] = (Last created special effect)
Set Variable Set Spell__StartDuration = "true"
WarIntellectLoop
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Spell__Duration Less than or equal to 0.00
Then - Actions
Special Effect - Destroy WarIntellectSpEffect[Spell__Index]
Hero - Modify Intelligence of Spell__Caster : Subtract WarIntellectIntBonus[Spell__Level] .
Else - Actions
HeavenlyLightConfig
Events
Map initialization
Conditions
Actions
-------- Set to Heavenly Light ability --------
Set Variable Set Spell__Ability = "A01D"
-------- Set to Slow (Heavenly Light) ability --------
Set Variable Set HeavenlyLightSlowAbility = "A01E"
-------- Set to HeavenlyLightCast --------
Set Variable Set Spell__Trigger_OnEffect = HeavenlyLightCast <gen>
-------- Damage radius --------
Set Variable Set HeavenlyLightDamageRadius[1] = "600.00"
-------- Damage per intelligence point --------
Set Variable Set HeavenlyLightDamagePerInt[1] = "25.00"
Set Variable Set HeavenlyLightAT = Spells
Set Variable Set HeavenlyLightDT = Universal
-------- Slow per intelligence point --------
-------- 0.01 = 1%, 1.00 = 100% --------
Set Variable Set HeavenlyLightSlowPerInt[1] = "0.01"
-------- Slow Duration per intelligence point --------
-------- Calculated in seconds --------
Set Variable Set HeavenlyLightSlowDurPerInt[1] = "0.50"
-------- Damage filter --------
Set Variable Set Spell__Filter_AllowEnemy = "true"
Set Variable Set Spell__Filter_AllowLiving = "true"
Set Variable Set Spell__Filter_AllowHero = "true"
Set Variable Set Spell__Filter_AllowNonHero = "true"
Set Variable Set Spell__Filter_AllowAlly = "false"
Set Variable Set Spell__Filter_AllowDead = "false"
Set Variable Set Spell__Filter_AllowFlying = "true"
Set Variable Set Spell__Filter_AllowMechanical = "true"
Set Variable Set Spell__Filter_AllowStructure = "false"
Set Variable Set Spell__Filter_AllowMagicImmune = "false"
-------- SFX --------
Set Variable Set HeavenlyLightSFX = "Abilities\Spells\Other\Awaken\Awaken.mdl"
-------- SFX Scale Factor --------
Set Variable Set HeavenlyLightSFXScaleFactor = "100.00"
-------- END CONFIG --------
Set Variable Set Spell__UseTargetGroup = "true"
Trigger - Run Spell_System <gen> (ignoring conditions)
HeavenlyLightCast
Events
Conditions
Actions
Special Effect - Create a special effect at Spell__TargetPoint using HeavenlyLightSFX
Special Effect - Set Scale of (Last created special effect) to (HeavenlyLightDamageRadius[Spell__Level] / HeavenlyLightSFXScaleFactor)
Special Effect - Destroy (Last created special effect)
Set Variable Set Spell__InRangePoint = Spell__TargetPoint
Set Variable Set Spell__InRange = HeavenlyLightDamageRadius[Spell__Level]
Set Variable Set HeavenlyLightDamage = (HeavenlyLightDamagePerInt[Spell__Level] x (Real((Intelligence of Spell__Caster (Include bonuses)))))
Set Variable Set HeavenlyLightSlowCalc = (HeavenlyLightSlowPerInt[Spell__Level] x (Real((Intelligence of Spell__Caster (Include bonuses)))))
Set Variable Set HeavenlyLightSlowDurCalc = (HeavenlyLightSlowDurPerInt[Spell__Level] x (Real((Intelligence of Spell__Caster (Include bonuses)))))
Unit Group - Pick every unit in Spell__InRangeGroup and do (Actions)
Loop - Actions
Unit - Create 1 . Spell__DummyType for Spell__DummyOwner at Spell__TargetPoint facing Default building facing degrees
Set Variable Set HeavenlyLightDummy = (Last created unit)
Unit - Add a 1.00 second Generic expiration timer to HeavenlyLightDummy
Unit - Add HeavenlyLightSlowAbility to HeavenlyLightDummy
Ability - Set Ability: (Unit: HeavenlyLightDummy's Ability with Ability Code: HeavenlyLightSlowAbility) 's Real Level Field: Movement Speed Factor ('Slo1') of Level: 0 to HeavenlyLightSlowCalc
Ability - Set Ability: (Unit: HeavenlyLightDummy's Ability with Ability Code: HeavenlyLightSlowAbility) 's Real Level Field: Attack Speed Factor ('Slo2') of Level: 0 to HeavenlyLightSlowCalc
Ability - Set Ability: (Unit: HeavenlyLightDummy's Ability with Ability Code: HeavenlyLightSlowAbility) 's Real Level Field: Duration - Normal ('adur') of Level: 0 to HeavenlyLightSlowDurCalc
Ability - Set Ability: (Unit: HeavenlyLightDummy's Ability with Ability Code: HeavenlyLightSlowAbility) 's Real Level Field: Duration - Hero ('ahdu') of Level: 0 to HeavenlyLightSlowDurCalc
Unit - Increase level of HeavenlyLightSlowAbility for HeavenlyLightDummy
Unit - Decrease level of HeavenlyLightSlowAbility for HeavenlyLightDummy
Unit - Order HeavenlyLightDummy to Human Sorceress - Slow . (Picked unit)
Unit - Cause Spell__Caster to damage (Picked unit) , dealing HeavenlyLightDamage damage of attack type HeavenlyLightAT and damage type HeavenlyLightDT
PreDamageEvent
==============
Issued before any armor is applied. This event uses the new 'DAMAGING' event.


ArmorDamageEvent
================
Issued after armor/mana shield type things are applied. This event uses the classic 'DAMAGED' event.
ZeroDamageEvent
===============
Occurs when a debuff is applied to a target unit. It's mainly useful in case someone wants to check if a unit has gained a specific debuff.

LethalDamageEvent
================
When a unit is about to die from the damage, this event intercepts that moment and allows the LethalDamageHP to be increased (if desired) to prevent death.
OnDamageEvent
===============
Does not allow the damage to be modified at this point. It's mainly used for cognitive distinction from the other events. Useful for analysis or for basic responses.

AfterDamageEvent
===============
Like OnDamageEvent, but occurs after the unit's HP has been changed.
SourceDamageEvent
=================
Occurs when a source has completed dealing damage to a unit or to a group of units. The indicator for this distinction is an asynchronous (0 second) timer, or when an attack from a different unit is resolved.

AOEDamageEvent < DEPRECATED > Not recommended due to likelyhood of being useless.
===============
An early attempt to try to extract data from events that Blizzard didn't originally provide. It tracks when damage has hit multiple units in the same instant, but does not determine which one was the primary attacked unit. It also does not determine if splash damage hit only one unit.
DamageModifierEvent & DamageEvent
===============================
These were the original events I created. I made a major API mistake when I introduced the PreDamageEvent by having it extend off of the existing DamageModifierEvent. DamageEvent was also split into the OnDamageEvent and ZeroDamageEvent, so these two events are now renamed to better suit their purposes.

DamageModifierEvent
=================
(real value < 4.00) is now is renamed to PreDamageEvent (with any real value)
(real value >= 4.00) is now renamed to ArmorDamageEvent (with any real value)

DamageEvent
===========
(real value == 2.00) is now renamed to ZeroDamageEvent
(real value == any other real value) is now renamed to OnDamageEvent
RemoveDamageEvent
==================
(Very advanced) Run this trigger to un-register the current trigger from the system. Use at your own risk and only if you know what you're doing and why you're doing it.

DamageEventOverride
==================
Let's say you want to deal 'Pure' damage. Set this variable to 'true' from a PreDamageEvent, and you will prevent the execution of any higher-real-value events from being executed, as well as tell Damage Engine to ignore all normal WarCraft 3 modifications to that damage amount.
Damage Engine Config
Events
Map initialization
Game - DamageModifierEvent becomes Greater than 0
Game - LethalDamageEvent becomes Less than or equal to 0
Game - DamageEvent becomes Not equal to 0.00
Game - AfterDamageEvent becomes Less than 0
Game - AOEDamageEvent becomes Greater than or equal to 0
Game - SourceDamageEvent becomes Equal to 0
Game - PreDamageEvent becomes Equal to 0
Game - ArmorDamageEvent becomes Equal to 0
Game - ZeroDamageEvent becomes Equal to 0
Conditions
Actions
-------- You can add extra classifications here if you want to differentiate between your triggered damage --------
-------- Use DamageTypeExplosive (or any negative value damage type) if you want a unit killed by that damage to explode --------
-------- - --------
-------- The pre-defined type Code might be set by Damage Engine if Unit - Damage Target is detected and the user didn't define a type of their own. --------
-------- "Pure" is especially important because it overrides both the Damage Engine as well as WarCraft 3 damage modification. --------
-------- I therefore gave the user "Explosive Pure" in case one wants to combine the functionality of the two. --------
-------- - --------
Set Variable Set DamageTypePureExplosive = "-2"
Set Variable Set DamageTypeExplosive = "-1"
Set Variable Set DamageTypeCode = "1"
Set Variable Set DamageTypePure = "2"
-------- - --------
-------- The following types are custom for the user only and do not have any significance to Damage Engine --------
-------- other than telling it that the damage source is 'code' if setting NextDamageType to one of them --------
-------- - --------
Set Variable Set DamageTypeHeal = "3"
Set Variable Set DamageTypeBlocked = "4"
Set Variable Set DamageTypeReduced = "5"
Set Variable Set DamageTypeCriticalStrike = "6"
-------- - --------
-------- Inform the DamageEngine source code to initialize the debug strings. --------
-------- This cannot be done during library/struct initialization because InitGlobals had not been called yet. --------
-------- Due to weird GUI-vJass conflicts, I created Total Initialization for Lua. --------
-------- - --------
Custom script: call DamageEngine_DebugStr()
/*
    vJass Damage Engine 5.A.0.0 
    
    This update enables compatibility with AttackIndexer.
*/
/*
JASS API:

    struct Damage extends array
        readonly static unit source // udg_DamageEventSource in real-time
        readonly static unit target // udg_DamageEventTarget in real-time
        static real          amount // udg_DamageEventAmount in real-time

        readonly unit    sourceUnit   // udg_DamageEventSource by index
        readonly unit    targetUnit   // udg_DamageEventTarget by index
        real             damage       // udg_DamageEventAmount by index
        readonly real    prevAmt      // udg_DamageEventPrevAmt by index
        attacktype       attackType   // udg_DamageEventAttackT by index
        damagetype       damageType   // udg_DamageEventDamageT by index
        weapontype       weaponType   // udg_DamageEventWeaponT by index
        integer          userType     // udg_DamageEventType by index
        readonly boolean isAttack     // udg_IsDamageAttack by index
        readonly boolean isCode       // udg_IsDamageCode by index
        readonly boolean isMelee      // udg_IsDamageMelee by index
        readonly boolean isRanged     // udg_IsDamageRanged by index
        readonly boolean isSpell      // udg_IsDamageSpell by index
        real             armorPierced // udg_DamageEventArmorPierced by index
        integer          armorType    // udg_DamageEventArmorT by index
        integer          defenseType  // udg_DamageEventDefenseT by index

        readonly integer eFilter

    Set to false to disable the damage event triggers or to true to reverse that:
        static boolean operator enabled

    Same arguments as "UnitDamageTarget" but has the benefit of being performance-friendly during recursive events.
    Will automatically cause the damage to be registered as Code damage.

        static method apply takes
            unit source,
            unit target,
            real amount,
            boolean isAttack,
            boolean isRanged,
            attacktype at,
            damagetype dt,
            weapontype wt
        returns Damage

    A simplified version of the above function that autofills each boolean, attacktype and weapontype.
    
        static method applySpell takes
            unit src,
            unit tgt,
            real amt,
            damagetype dt
        returns Damage

    A different variation of the above which autofills the "isAttack" boolean
    and populates damagetype as DAMAGE_TYPE_NORMAL.

        static method applyAttack takes
            unit src,
            unit tgt,
            real amt,
            boolean ranged,
            attacktype at,
            weapontype wt
        returns Damage

    struct DamageTrigger extends array
        method operator filter= takes integer filter returns nothing
        // Apply primary filters such as DamageEngine_FILTER_MELEE/RANGED/SPELL which are based off of limitop handles to enable easier access for GUI folks
        // Full filter list:
        - integer DamageEngine_FILTER_ATTACK
        - integer DamageEngine_FILTER_MELEE
        - integer DamageEngine_FILTER_OTHER
        - integer DamageEngine_FILTER_RANGED
        - integer DamageEngine_FILTER_SPELL
        - integer DamageEngine_FILTER_CODE

        boolean configured //set to True after configuring any filters listed below.

    Apply custom filters after setting any desired udg_DamageFilter variables (for GUI).
    Alternatively, vJass users can set these instead. Just be mindful to set the variable
    "configured" to true after settings these:
      unit    source
      unit    target
      integer sourceType
      integer targetType
      integer sourceBuff
      integer targetBuff
      real    damageMin
      integer attackType
      integer damageType
      integer userType

        method configure takes nothing returns nothing

    The string in the aruments below requires the following API:
      "" for standard damage event
      "Modifier(or Mod if you prefer)/After/Lethal/AOE" for the others

        static method registerTrigger takes
            trigger whichTrig, 
            string var, 
            real value 
        returns nothing
        
            static method unregister takes 
            trigger whichTrig, 
            string eventName, 
            real value, 
            boolean reset 
        returns boolean

        static method getIndex takes 
            trigger fromTrigger, 
            string eventName, 
            real value 
        returns integer

    If you already have the index of the trigger you want to unregister:
        
        method unregisterByIndex takes 
            boolean reset
        returns boolean

    Converts a code argument to a trigger, while checking if the same code had already been registered before.
      Use it via DamageTrigger[function MyCallbackFunction]
    
        static method operator [] takes 
            code callback
        returns trigger

    The accepted strings here use the same criteria as DamageTrigger.getIndex/registerTrigger/unregister:

        function TriggerRegisterDamageEngineEx takes
            trigger whichTrig,
            string eventName,
            real value,
            integer opId 
        returns nothing

        function TriggerRegisterDamageEngine takes 
            trigger whichTrig, 
            string eventName, 
            real value
        returns nothing
        
        function RegisterDamageEngineEx takes 
            code callback, 
            string eventName, 
            real value, 
            integer opId 
        returns nothing
        
            function RegisterDamageEngine takes 
            code callback, 
            string eventName, 
            real value 
        returns nothing
*/

//===========================================================================
library DamageEngine requires optional AttackIndexer
globals
    private constant boolean USE_GUI = true //If you don't use any of the GUI events, set to false to slightly improve performance

    private constant boolean USE_SCALING     = USE_GUI   //If you don't need or want to use DamageScalingUser/WC3 then set this to false
    private constant boolean USE_EXTRA       = true      //If you don't use DamageEventLevel or SourceDamageEvent, set this to false
    private constant boolean USE_ARMOR_MOD   = true      //If you do not modify nor detect armor/defense, set this to false
    private constant boolean USE_MELEE_RANGE = true      //If you do not detect melee nor ranged damage, set this to false
    private constant boolean USE_LETHAL      = true      //If you do not use LethalDamageEvent nor negative damage (explosive) types, set this to false

/*
    When manually-enabled recursion is enabled via DamageEngine_inception, 
    the engine will never go deeper than MAX_RECURSIVE_TOLERANCE:
*/
    private constant integer MAX_RECURSIVE_TOLERANCE = 16

    public constant integer TYPE_CODE = 1         //Must be the same as udg_DamageTypeCode, or 0 if you prefer to disable the automatic flag.
    public constant integer TYPE_PURE = 2         //Must be the same as udg_DamageTypePure
    private constant real   DEATH_VAL = 0.405     //In case M$ ever changes this, it'll be a quick fix here.

    private timer           async = null
    private boolean         timerStarted = false

    //Values to track the original pre-spirit Link/defensive damage values
    private Damage lastInstance = 0

    private boolean isNotNativeRecursiveDamage = true
    private boolean waitingForDamageEventToRun = false

    private boolean array attacksImmune
    private boolean array damagesImmune

    //Primary triggers used to handle all damage events.
    private trigger damagingTrigger = null
    private trigger damagedTrigger = null
    private trigger recursiveTrigger = null //Catches, stores recursive events

/*
    These variables coincide with Blizzard's "limitop" type definitions
    so as to enable GUI users with some performance perks - however,
    these optimizations need to be tested
*/
    public constant integer FILTER_ATTACK = 0     //LESS_THAN
    public constant integer FILTER_MELEE  = 1     //LESS_THAN_OR_EQUAL
    public constant integer FILTER_OTHER  = 2     //EQUAL
    public constant integer FILTER_RANGED = 3     //GREATER_THAN_OR_EQUAL
    public constant integer FILTER_SPELL  = 4     //GREATER_THAN
    public constant integer FILTER_CODE   = 5     //NOT_EQUAL
    public constant integer FILTER_MAX    = 6
    private integer         eventFilter   = FILTER_OTHER

/*
    When true, it allows your trigger to go recursively up to 
    MAX_RECURSIVE_TOLERANCE (if needed). It must be set before dealing damage.
*/
    public boolean  inception = false

    private boolean callbacksInProgress = false
    private integer recursiveCallbackDepth = 0
    private group   recursionSources = null
    private group   recursionTargets = null
    private boolean recursiveCallbaksInProgress = false
    private boolean nativeEventsCompleted = false
    private boolean atLeastOneLethalDamageEventRegistered = false

    // Struct members made private to this library.
    private keyword run
    private keyword trigFrozen
    private keyword ownRecursiveDepth
    private keyword manualRecursionRequested
endglobals

native UnitAlive takes unit u returns boolean

//GUI Vars:
/*
    Retained from 3.8 and prior:
    ----------------------------
    unit            udg_DamageEventSource
    unit            udg_DamageEventTarget
    unit            udg_EnhancedDamageTarget
    group           udg_DamageEventAOEGroup
    integer         udg_DamageEventAOE
    integer         udg_DamageEventLevel
    real            udg_DamageModifierEvent
    real            udg_DamageEvent
    real            udg_AfterDamageEvent
    real            udg_DamageEventAmount
    real            udg_DamageEventPrevAmt
    real            udg_AOEDamageEvent
    boolean         udg_DamageEventOverride
    boolean         udg_NextDamageType
    boolean         udg_DamageEventType
    boolean         udg_IsDamageSpell

    //Added in 5.0:
    boolean          udg_IsDamageMelee
    boolean          udg_IsDamageRanged
    unit             udg_AOEDamageSource
    real             udg_LethalDamageEvent
    real             udg_LethalDamageHP
    real             udg_DamageScalingWC3
    integer          udg_DamageEventAttackT
    integer          udg_DamageEventDamageT
    integer          udg_DamageEventWeaponT

    //Added in 5.1:
    boolean          udg_IsDamageCode

    //Added in 5.2:
    integer          udg_DamageEventArmorT
    integer          udg_DamageEventDefenseT

    //Addded in 5.3:
    real             DamageEventArmorPierced
    real             udg_DamageScalingUser

    //Added in 5.4.2 to allow GUI users to re-issue the exact same attack and damage type at the attacker.
    attacktype array udg_CONVERTED_ATTACK_TYPE
    damagetype array udg_CONVERTED_DAMAGE_TYPE

    //Added after Reforged introduced the new native BlzGetDamageIsAttack
    boolean         udg_IsDamageAttack

    //Added in 5.6 to give GUI users control over the "IsDamageAttack", "IsDamageRanged" and "DamageEventWeaponT" field
    boolean         udg_NextDamageIsAttack  //The first boolean value in the UnitDamageTarget native
    boolean         udg_NextDamageIsMelee   //Flag the damage classification as melee
    boolean         udg_NextDamageIsRanged  //The second boolean value in the UnitDamageTarget native
    integer         udg_NextDamageWeaponT   //Allows control over damage sound effect

    //Added in 5.7 to enable efficient, built-in filtering (see the below "checkConfig" method - I recommend commenting-out anything you don't need in your map)
    integer udg_DamageFilterAttackT
    integer udg_DamageFilterDamageT     //filter for a specific attack/damage type
    unit    udg_DamageFilterSource
    unit    udg_DamageFilterTarget      //filter for a specific source/target
    integer udg_DamageFilterSourceT
    integer udg_DamageFilterTargetT     //unit type of source/target
    integer udg_DamageFilterType        //which DamageEventType was used
    integer udg_DamageFilterSourceB
    integer udg_DamageFilterTargetB     //if source/target has a buff
    real    udg_DamageFilterMinAmount   //only allow a minimum damage threshold

    //Added in 5.8:
    boolean udg_RemoveDamageEvent       //Allow GUI users to more fully unregister a damage event trigger. Can only be used from within a damage event (of any kind).
    integer udg_DamageFilterSourceA
    integer udg_DamageFilterTargetA     //Check if a source or target have a specific ability (will overwrite any source or target buff check, I need to use this because GUI differentiates ability ID and buff ID)
    integer udg_DamageFilterSourceI
    integer udg_DamageFilterTargetI     //Check if a source or target have a specific type of item
    integer udg_DamageFilterSourceC
    integer udg_DamageFilterTargetC     //Classification of source/target (e.g. hero, treant, ward)

    //Added in 5.9
    real udg_SourceDamageEvent          //Like AOEDamageEvent, fires each time the source unit has finished dealing damage, but doesn't care if the damage hit multiple units.
    real udg_PreDamageEvent             //Like DamageModifierEvent 3.99 or less, except can be any real value.
    real udg_ArmorDamageEvent           //Like DamageModifierEvent 4.00 or more, except can be any real value.
    real udg_OnDamageEvent              //Like DamageEvent equal to 1.00 or some non-zero/non-2 value, except can be any real value.
    real udg_ZeroDamageEvent            //Like DamageEvent equal to 0.00 or 2.00, except can be any real value.
*/

struct DamageTrigger extends array

    static method checkItem takes unit u, integer id returns boolean
        local integer i
        if IsUnitType(u, UNIT_TYPE_HERO) then
            set i = UnitInventorySize(u)
            loop
                exitwhen i <= 0
                set i = i - 1
                if GetItemTypeId(UnitItemInSlot(u, i)) == id then
                    return true
                endif
            endloop
        endif
        return false
    endmethod

/*
    Map makers should probably not use these filters,
    unless someone tests performance to see
    if such an ugly hack is even worth it.
*/
    method checkConfig takes nothing returns boolean

        //call BJDebugMsg("Checking configuration")

        if this.sourceType      != 0 and GetUnitTypeId(udg_DamageEventSource) != this.sourceType then
        elseif this.targetType  != 0 and GetUnitTypeId(udg_DamageEventTarget) != this.targetType then
        elseif this.sourceBuff  != 0 and GetUnitAbilityLevel(udg_DamageEventSource, this.sourceBuff) == 0 then
        elseif this.targetBuff  != 0 and GetUnitAbilityLevel(udg_DamageEventTarget, this.targetBuff) == 0 then
        elseif this.failChance  > 0.00 and GetRandomReal(0.00, 1.00) <= this.failChance then
        elseif this.userType    != 0 and udg_DamageEventType != this.userType then
        elseif this.source      != null and this.source != udg_DamageEventSource then
        elseif this.target      != null and this.target != udg_DamageEventTarget then
        elseif this.attackType  >= 0 and this.attackType != udg_DamageEventAttackT then
        elseif this.damageType  >= 0 and this.damageType != udg_DamageEventDamageT then
        elseif this.sourceItem  != 0 and not .checkItem(udg_DamageEventSource, this.sourceItem) then
        elseif this.targetItem  != 0 and not .checkItem(udg_DamageEventTarget, this.targetItem) then
        elseif this.sourceClass >= 0 and not IsUnitType(udg_DamageEventSource, ConvertUnitType(this.sourceClass)) then
        elseif this.targetClass >= 0 and not IsUnitType(udg_DamageEventTarget, ConvertUnitType(this.targetClass)) then
        elseif udg_DamageEventAmount >= this.damageMin then
            //call BJDebugMsg("Configuration passed")
            return true
        endif
        //call BJDebugMsg("Checking failed")
        return false
    endmethod

    //The below variables are to be treated as constant
    readonly static thistype MOD    = 1
    readonly static thistype SHIELD = 4
    readonly static thistype DAMAGE = 5
    readonly static thistype ZERO   = 6
    readonly static thistype AFTER  = 7
    readonly static thistype LETHAL = 8
    readonly static thistype AOE    = 9
    private  static integer  count  = 9

    static thistype lastRegistered  = 0

    private static thistype array   trigIndexStack

    static thistype eventIndex = 0

    static boolean array filters
    readonly string eventStr
    readonly real weight
    boolean usingGUI

    private thistype next
    private trigger rootTrig

    //The below variables are to be treated as private
    boolean trigFrozen          //Whether the trigger is currently disabled due to recursion
    integer ownRecursiveDepth   //How deep the user recursion currently is.
    boolean manualRecursionRequested       //Added in 5.4.2 to simplify the inception variable for very complex DamageEvent triggers.

    //configuration variables:
    boolean configured
    unit    source
    unit    target
    integer sourceType
    integer targetType
    integer sourceBuff
    integer targetBuff
    integer sourceItem
    integer targetItem
    integer sourceClass
    integer targetClass
    real    damageMin
    real    failChance
    integer attackType
    integer damageType
    integer userType

    // getter:
    method operator runChance takes nothing returns real
        return 1.00 - this.failChance
    endmethod

    // setter:
    method operator runChance= takes real chance returns nothing
        set this.failChance = 1.00 - chance
    endmethod

    method configure takes nothing returns nothing
        set this.attackType  = udg_DamageFilterAttackT
        set this.damageType  = udg_DamageFilterDamageT
        set this.source      = udg_DamageFilterSource
        set this.target      = udg_DamageFilterTarget
        set this.sourceType  = udg_DamageFilterSourceT
        set this.targetType  = udg_DamageFilterTargetT
        set this.sourceItem  = udg_DamageFilterSourceI
        set this.targetItem  = udg_DamageFilterTargetI
        set this.sourceClass = udg_DamageFilterSourceC
        set this.targetClass = udg_DamageFilterTargetC
        set this.userType    = udg_DamageFilterType
        set this.damageMin   = udg_DamageFilterMinAmount
        set this.failChance  = 1.00 - (udg_DamageFilterRunChance - udg_DamageFilterFailChance)

        if udg_DamageFilterSourceA > 0 then
            set this.sourceBuff = udg_DamageFilterSourceA
            set udg_DamageFilterSourceA = 0
        else
            set this.sourceBuff = udg_DamageFilterSourceB
        endif

        if udg_DamageFilterTargetA > 0 then
            set this.targetBuff = udg_DamageFilterTargetA
            set udg_DamageFilterTargetA = 0
        else
            set this.targetBuff = udg_DamageFilterTargetB
        endif

        set udg_DamageFilterSource = null
        set udg_DamageFilterTarget = null

        //These handles can have a valid value of 0, so we need to distinguish them.
        set udg_DamageFilterAttackT = -1
        set udg_DamageFilterDamageT = -1
        set udg_DamageFilterSourceC = -1
        set udg_DamageFilterTargetC = -1

        set udg_DamageFilterSourceT = 0
        set udg_DamageFilterTargetT = 0
        set udg_DamageFilterType    = 0
        set udg_DamageFilterSourceB = 0
        set udg_DamageFilterTargetB = 0
        set udg_DamageFilterSourceI = 0
        set udg_DamageFilterTargetI = 0
        
        set udg_DamageFilterMinAmount  = 0.00
        set udg_DamageFilterFailChance = 0.00
        set udg_DamageFilterRunChance  = 1.00

        set this.configured = true
    endmethod

    static method setGUIFromStruct takes boolean full returns nothing
        set udg_DamageEventAmount  = Damage.index.damage
        set udg_DamageEventAttackT = GetHandleId(Damage.index.attackType)
        set udg_DamageEventDamageT = GetHandleId(Damage.index.damageType)
        set udg_DamageEventWeaponT = GetHandleId(Damage.index.weaponType)
        set udg_DamageEventType    = Damage.index.userType
        
        static if USE_ARMOR_MOD then
            set udg_DamageEventArmorPierced = Damage.index.armorPierced
            set udg_DamageEventArmorT       = Damage.index.armorType
            set udg_DamageEventDefenseT     = Damage.index.defenseType
        endif
        if full then
            set udg_DamageEventSource  = Damage.index.sourceUnit
            set udg_DamageEventTarget  = Damage.index.targetUnit
            set udg_DamageEventPrevAmt = Damage.index.prevAmt
            set udg_IsDamageAttack     = Damage.index.isAttack
            set udg_IsDamageCode       = Damage.index.isCode
            set udg_IsDamageSpell      = Damage.index.isSpell
            
            //! runtextmacro optional ATTACK_INDEXER_GUI_VARS()

            static if USE_MELEE_RANGE then
                set udg_IsDamageMelee  = Damage.index.isMelee
                set udg_IsDamageRanged = Damage.index.isRanged
            endif
        endif
    endmethod

    static method setStructFromGUI takes nothing returns nothing
        set Damage.index.damage     = udg_DamageEventAmount
        set Damage.index.attackType = ConvertAttackType(udg_DamageEventAttackT)
        set Damage.index.damageType = ConvertDamageType(udg_DamageEventDamageT)
        set Damage.index.weaponType = ConvertWeaponType(udg_DamageEventWeaponT)
        set Damage.index.userType   = udg_DamageEventType
        
        static if USE_ARMOR_MOD then
            set Damage.index.armorPierced = udg_DamageEventArmorPierced
            set Damage.index.armorType    = udg_DamageEventArmorT
            set Damage.index.defenseType  = udg_DamageEventDefenseT
        endif
    endmethod

    static method getVerboseStr takes string eventName returns string
        if eventName == "Modifier" or eventName == "Mod" then
            return "udg_DamageModifierEvent"
        endif
        return "udg_" + eventName + "DamageEvent"
    endmethod

    private static method getStrIndex takes string var, real lbs returns thistype
        local integer root = R2I(lbs)
        if (var == "udg_DamageModifierEvent" and root < 4) or var == "udg_PreDamageEvent" then
            set root = MOD
        elseif var == "udg_DamageModifierEvent" or var == "udg_ArmorDamageEvent" then
            set root = SHIELD
        elseif (var == "udg_DamageEvent" and root == 2 or root == 0) or var == "udg_ZeroDamageEvent" then
            set root = ZERO
        elseif var == "udg_DamageEvent" or var == "udg_OnDamageEvent" then
            set root = DAMAGE
        elseif var == "udg_AfterDamageEvent" then
            set root = AFTER
        elseif var == "udg_LethalDamageEvent" then
            set root = LETHAL
        elseif var == "udg_AOEDamageEvent" or var == "udg_SourceDamageEvent" then
            set root = AOE
        else
            set root = 0
            //! runtextmacro optional DAMAGE_EVENT_REG_PLUGIN_GDD()
            //! runtextmacro optional DAMAGE_EVENT_REG_PLUGIN_PDD()
            //! runtextmacro optional DAMAGE_EVENT_REG_PLUGIN_01()
            //! runtextmacro optional DAMAGE_EVENT_REG_PLUGIN_02()
            //! runtextmacro optional DAMAGE_EVENT_REG_PLUGIN_03()
            //! runtextmacro optional DAMAGE_EVENT_REG_PLUGIN_04()
            //! runtextmacro optional DAMAGE_EVENT_REG_PLUGIN_05()
        endif
        return root
    endmethod

    private method toggleAllFilters takes boolean flag returns nothing
        set filters[this + FILTER_ATTACK] = flag
        set filters[this + FILTER_MELEE] = flag
        set filters[this + FILTER_OTHER] = flag
        set filters[this + FILTER_RANGED] = flag
        set filters[this + FILTER_SPELL] = flag
        set filters[this + FILTER_CODE] = flag
    endmethod

    method operator filter= takes integer opId returns nothing
        set this = this * FILTER_MAX
        if opId == FILTER_OTHER then
            call this.toggleAllFilters(true)
        else
            if opId == FILTER_ATTACK then
                set filters[this + FILTER_ATTACK] = true
                set filters[this + FILTER_MELEE] = true
                set filters[this + FILTER_RANGED] = true
            else
                set filters[this + opId] = true
            endif
        endif
    endmethod

    static method registerVerbose takes /*
        */ trigger whichTrig, /*
        */ string var, /*
        */ real lbs, /*
        */ boolean GUI, /*
        */ integer filt /*
    */ returns thistype
        local thistype index = getStrIndex(var, lbs)
        local thistype i = 0
        local thistype id = 0

        if index == 0 then
            return 0
        elseif lastRegistered.rootTrig == whichTrig and lastRegistered.usingGUI then
            //allows GUI to register multiple different types of Damage filters to the same trigger
            set filters[lastRegistered*FILTER_MAX + filt] = true
            return 0
        endif

        set atLeastOneLethalDamageEventRegistered = /*
            */ atLeastOneLethalDamageEventRegistered or index == LETHAL

        if trigIndexStack[0] == 0 then
            set count = count + 1   //List runs from index 10 and up
            set id = count
        else
            set id = trigIndexStack[0]
            set trigIndexStack[0] = trigIndexStack[id]
        endif
        set lastRegistered = id
        set id.filter = filt
        set id.rootTrig = whichTrig
        set id.usingGUI = GUI
        set id.weight = lbs
        set id.eventStr = var

        //Next 2 lines added to fix a bug when using manual vJass configuration,
        //discovered and solved by lolreported
        set id.attackType = -1
        set id.damageType = -1

        //they will probably bug out with class types as well, so I should add them, just in case:
        set id.sourceClass = -1
        set id.targetClass = -1

        loop
            set i = index.next
            exitwhen i == 0 or lbs < i.weight
            set index = i
        endloop
        set index.next = id
        set id.next = i

        //call BJDebugMsg("Registered " + I2S(id) + " to " + I2S(index) + " and before " + I2S(i))
        return lastRegistered
    endmethod

    static method registerTrigger takes trigger t, string var, real lbs returns thistype
        return registerVerbose(t, DamageTrigger.getVerboseStr(var), lbs, false, FILTER_OTHER)
    endmethod

    private static thistype prev = 0
    static method getIndex takes /* 
        */ trigger t, /* 
        */ string eventName, /* 
        */ real lbs /* 
    */ returns thistype
        local thistype index = getStrIndex(getVerboseStr(eventName), lbs)
        loop
            set prev = index
            set index = index.next
            exitwhen index == 0 or index.rootTrig == t
        endloop
        return index
    endmethod

    method unregisterByIndex takes boolean reset returns boolean
        if this == 0 then
            return false
        endif
        set prev.next = this.next

        set trigIndexStack[this] = trigIndexStack[0]
        set trigIndexStack[0] = this

        if reset then
            call this.configure()
            set this.configured = false
            call thistype(this*FILTER_MAX).toggleAllFilters(false)
        endif
        return true
    endmethod

    static method unregister takes /*
        */ trigger t, /*
        */ string eventName, /*
        */ real lbs, /*
        */ boolean reset /*
    */ returns boolean
        return getIndex(t, eventName, lbs).unregisterByIndex(reset)
    endmethod

    method run takes nothing returns nothing
        local integer cat = this
        local Damage d = Damage.index

        static if USE_GUI then
            local boolean structUnset = false
            local boolean guiUnset = false
            local boolean mod = cat <= DAMAGE
        endif

        if callbacksInProgress then
            return
        endif
        set callbacksInProgress = true
        call DisableTrigger(damagingTrigger)
        call DisableTrigger(damagedTrigger)
        call EnableTrigger(recursiveTrigger)
        //call BJDebugMsg("Start of event running")
        loop
            set this = this.next
            exitwhen this == 0
            exitwhen cat == MOD and (udg_DamageEventOverride or udg_DamageEventType == TYPE_PURE)
            exitwhen cat == SHIELD and udg_DamageEventAmount <= 0.00

            static if USE_LETHAL then
                exitwhen cat == LETHAL and udg_LethalDamageHP > DEATH_VAL
            endif

            set eventIndex = this
            if (not this.trigFrozen) and /*
                */ filters[this*FILTER_MAX + d.eFilter] and /*
                */ IsTriggerEnabled(this.rootTrig) and /*
                */ ((not this.configured) or (this.checkConfig())) and /*
                */ (cat != AOE or udg_DamageEventAOE > 1 or this.eventStr == "udg_SourceDamageEvent") /*
            */ then
                static if USE_GUI then
                    if mod then
                        if this.usingGUI then
                            if guiUnset then
                                set guiUnset = false
                                call setGUIFromStruct(false)
                            endif
                            //! runtextmacro optional DAMAGE_EVENT_FILTER_PLUGIN_PDD()
                        elseif structUnset then
                            set structUnset = false
                            call setStructFromGUI()
                        endif
                    endif
                endif
                //! runtextmacro optional DAMAGE_EVENT_FILTER_PLUGIN_01()
                //! runtextmacro optional DAMAGE_EVENT_FILTER_PLUGIN_02()
                //! runtextmacro optional DAMAGE_EVENT_FILTER_PLUGIN_03()
                //! runtextmacro optional DAMAGE_EVENT_FILTER_PLUGIN_04()
                //! runtextmacro optional DAMAGE_EVENT_FILTER_PLUGIN_05()

                //JASS users who do not use actions can modify the below block to just evaluate.
                //It should not make any perceptable difference in terms of performance.
                if TriggerEvaluate(this.rootTrig) then
                    call TriggerExecute(this.rootTrig)
                endif
                //! runtextmacro optional DAMAGE_EVENT_MOD_PLUGIN_01()
                //! runtextmacro optional DAMAGE_EVENT_MOD_PLUGIN_02()
                //! runtextmacro optional DAMAGE_EVENT_MOD_PLUGIN_03()
                //! runtextmacro optional DAMAGE_EVENT_MOD_PLUGIN_04()
                //! runtextmacro optional DAMAGE_EVENT_MOD_PLUGIN_05()
                static if USE_GUI then
                    if mod then
                        if this.usingGUI then
                            //! runtextmacro optional DAMAGE_EVENT_MOD_PLUGIN_PDD()
                            if cat != MOD then
                                set d.damage = udg_DamageEventAmount
                            else
                                set structUnset = true
                            endif
                        elseif cat != MOD then
                            set udg_DamageEventAmount = d.damage
                        else
                            set guiUnset = true
                        endif
                    endif
                    if udg_RemoveDamageEvent then
                        set udg_RemoveDamageEvent = false
                        call this.unregisterByIndex(true)
                    endif
                endif
            endif
        endloop

        static if USE_GUI then
            if structUnset then
                call setStructFromGUI()
            endif
            if guiUnset then
                call setGUIFromStruct(false)
            endif
        else
            call setGUIFromStruct(false)
        endif

        //call BJDebugMsg("End of event running")

        call DisableTrigger(recursiveTrigger)
        call EnableTrigger(damagingTrigger)
        call EnableTrigger(damagedTrigger)
        set callbacksInProgress = false
    endmethod

/*
    Used by RegisterDamageEngineEx to create triggers behind-the-scenes,
    allowing the user to simply pass the function they want to execute.
*/
    static trigger array autoTriggers
    static boolexpr array autoFuncs
    static integer autoN = 0

    static method operator [] takes code callback returns trigger
        local integer i = 0
        local boolexpr b = Filter(callback)
        loop
            if i == autoN then
                set autoTriggers[i] = CreateTrigger()
                set autoFuncs[i] = b
                call TriggerAddCondition(autoTriggers[i], b)
                exitwhen true
            endif
            set i = i + 1
            exitwhen b == autoFuncs[i]
        endloop
        return autoTriggers[i]
    endmethod
endstruct

//! runtextmacro optional DAMAGE_EVENT_USER_STRUCT_PLUGIN_01()
//! runtextmacro optional DAMAGE_EVENT_USER_STRUCT_PLUGIN_02()
//! runtextmacro optional DAMAGE_EVENT_USER_STRUCT_PLUGIN_03()
//! runtextmacro optional DAMAGE_EVENT_USER_STRUCT_PLUGIN_04()
//! runtextmacro optional DAMAGE_EVENT_USER_STRUCT_PLUGIN_05()

struct Damage extends array
    readonly unit    sourceUnit
    readonly unit    targetUnit
    real             damage
    readonly real    prevAmt
    attacktype       attackType
    damagetype       damageType
    weapontype       weaponType
    integer          userType
    readonly boolean isAttack
    readonly boolean isCode
    readonly boolean isSpell

    static if USE_MELEE_RANGE then
        readonly boolean isMelee       //stores udg_IsDamageMelee
    endif

    readonly boolean isRanged      //stores udg_IsDamageRanged
    readonly integer eFilter       //stores the previous eventFilter variable

    static if USE_ARMOR_MOD then
        real    armorPierced  //stores udg_DamageEventArmorPierced
        integer armorType     //stores udg_DamageEventArmorT
        integer defenseType   //stores udg_DamageEventDefenseT
    endif

    readonly static Damage index = 0

    private static Damage damageStack = 0

    private static Damage prepped = 0

    private static integer count = 0 //The number of currently-running queued or sequential damage instances

    private Damage stackRef
    private DamageTrigger recursiveTrig

    private integer prevArmorT
    private integer prevDefenseT

    static method operator source takes nothing returns unit
        return udg_DamageEventSource
    endmethod

    static method operator target takes nothing returns unit
        return udg_DamageEventTarget
    endmethod

    static method operator amount takes nothing returns real
        return Damage.index.damage
    endmethod

    static method operator amount= takes real r returns nothing
        set Damage.index.damage = r
    endmethod

    static if USE_ARMOR_MOD then
        private method setArmor takes boolean reset returns nothing
            local real pierce
            local integer at
            local integer dt

            if reset then
                set pierce = udg_DamageEventArmorPierced
                set at = Damage.index.prevArmorT
                set dt = Damage.index.prevDefenseT
                set udg_DamageEventArmorPierced = 0.00
                set this.armorPierced = 0.00
            else
                set pierce = -udg_DamageEventArmorPierced
                set at = udg_DamageEventArmorT
                set dt = udg_DamageEventDefenseT
            endif

            if not (pierce == 0.00) then //Changed from != to not == due to bug reported by BLOKKADE
                call BlzSetUnitArmor(udg_DamageEventTarget, BlzGetUnitArmor(udg_DamageEventTarget) + pierce)
            endif

            if Damage.index.prevArmorT != udg_DamageEventArmorT then
                call BlzSetUnitIntegerField(udg_DamageEventTarget, UNIT_IF_ARMOR_TYPE, at)
            endif
            if Damage.index.prevDefenseT != udg_DamageEventDefenseT then
                call BlzSetUnitIntegerField(udg_DamageEventTarget, UNIT_IF_DEFENSE_TYPE, dt)
            endif
        endmethod
    endif

    static if USE_EXTRA then
        private static method onAOEEnd takes nothing returns nothing
            call DamageTrigger.AOE.run()
            set udg_DamageEventAOE = 1
            set udg_DamageEventLevel = 1
            set udg_EnhancedDamageTarget = null
            set udg_AOEDamageSource = null
            call GroupClear(udg_DamageEventAOEGroup)
        endmethod
    endif

    private static method afterDamage takes nothing returns nothing
        if udg_DamageEventDamageT != 0 and not (udg_DamageEventPrevAmt == 0.00) then
            call DamageTrigger.AFTER.run()
            set udg_DamageEventDamageT  = 0
            set udg_DamageEventPrevAmt  = 0.00
        endif
    endmethod

    private method runDamagingEvents takes boolean natural returns boolean

        static if USE_ARMOR_MOD then
            set this.armorType    = BlzGetUnitIntegerField(this.targetUnit, UNIT_IF_ARMOR_TYPE)
            set this.defenseType  = BlzGetUnitIntegerField(this.targetUnit, UNIT_IF_DEFENSE_TYPE)
            set this.prevArmorT   = this.armorType
            set this.prevDefenseT = this.defenseType
            set this.armorPierced = 0.00
        endif

        set Damage.index = this
        call DamageTrigger.setGUIFromStruct(true)

        call GroupAddUnit(recursionSources, udg_DamageEventSource)
        call GroupAddUnit(recursionTargets, udg_DamageEventTarget)

        //! runtextmacro optional DAMAGE_EVENT_PRE_VARS_PLUGIN_01()
        //! runtextmacro optional DAMAGE_EVENT_PRE_VARS_PLUGIN_02()
        //! runtextmacro optional DAMAGE_EVENT_PRE_VARS_PLUGIN_03()
        //! runtextmacro optional DAMAGE_EVENT_PRE_VARS_PLUGIN_04()
        //! runtextmacro optional DAMAGE_EVENT_PRE_VARS_PLUGIN_05()

        // Using not == instead of !=; the idea is to eliminate floating point bugs when two numbers are very close to 0,
        // because JASS uses a less-strict comparison for checking if a number is equal than when it is unequal.
        if not (udg_DamageEventAmount == 0.00) then
            set udg_DamageEventOverride = udg_DamageEventDamageT == 0

            call DamageTrigger.MOD.run()

            static if not USE_GUI then
                call DamageTrigger.setGUIFromStruct(false)
            endif

            if natural then
                call BlzSetEventAttackType(this.attackType)
                call BlzSetEventDamageType(this.damageType)
                call BlzSetEventWeaponType(this.weaponType)
                call BlzSetEventDamage(udg_DamageEventAmount)
            endif

            static if USE_ARMOR_MOD then
                call this.setArmor(false)
            endif

            return false
        endif
        return true //return value is based on whether the event is a 0 damage event (true) or not (false).
    endmethod

    private static method unfreeze takes nothing returns nothing
        local Damage i = damageStack

        loop
            exitwhen i == 0
            set i = i - 1
            set i.stackRef.recursiveTrig.trigFrozen = false
            set i.stackRef.recursiveTrig.ownRecursiveDepth = 0
        endloop

        call EnableTrigger(damagingTrigger)
        call EnableTrigger(damagedTrigger)

        set recursiveCallbaksInProgress = false
        set damageStack = 0
        set prepped = 0
        set callbacksInProgress = false
        set recursiveCallbackDepth = 0
        call GroupClear(recursionSources)
        call GroupClear(recursionTargets)

        //call BJDebugMsg("Cleared up the groups")
    endmethod

    static method runAfterDamageEvents takes nothing returns nothing
        local Damage i = 0
        local integer exit

        if nativeEventsCompleted then
            set nativeEventsCompleted = false
            call afterDamage()
        endif

        if isNotNativeRecursiveDamage and not recursiveCallbaksInProgress then
            if damageStack != 0 then
                set recursiveCallbaksInProgress = true
                loop
                /*
                    Use two loops. The outer loop handles all normal event
                    execution, while the inner loop intelligently handles
                    recursive execution (when it's used).
                */
                    set recursiveCallbackDepth = recursiveCallbackDepth + 1
                    set exit = damageStack
                    loop
                        set prepped = i.stackRef

                        if UnitAlive(prepped.targetUnit) then

                            // We don't need to trigger `damagingTrigger` itself, so just call its handler directly.
                            call prepped.runDamagingEvents(false)

                            if prepped.damage > 0.00 then
                                call DisableTrigger(damagingTrigger) // Disallow `damagingTrigger` because we only want `damageTrigger` to run.
                                call EnableTrigger(damagedTrigger)   // Re-enable `damagedTrigger` in case the user forgot to do so.

                                set waitingForDamageEventToRun = true

                                call UnitDamageTarget( /*
                                    */ prepped.sourceUnit, /*
                                    */ prepped.targetUnit, /*
                                    */ prepped.damage, /*
                                    */ prepped.isAttack, /*
                                    */ prepped.isRanged, /*
                                    */ prepped.attackType, /*
                                    */ prepped.damageType, /*
                                    */ prepped.weaponType /*
                                */ )
                            else
                                if udg_DamageEventDamageT != 0 then
                                    //No native events run at all in this case
                                    call DamageTrigger.DAMAGE.run()
                                endif

                                if prepped.damage < 0.00 then
                                /*
                                    No need for BlzSetEventDamage/UnitDamageTarget here,
                                    because we can safely adjust the unit's life instead.
                                */
                                    call SetWidgetLife( /*
                                        */ prepped.targetUnit, /*
                                        */ GetWidgetLife(prepped.targetUnit) - prepped.damage /*
                                    */ )
                                endif

                                static if USE_ARMOR_MOD then
                                    call prepped.setArmor(true)
                                endif
                            endif
                            call afterDamage()
                        endif
                        set i = i + 1
                        exitwhen i == exit
                    endloop
                    exitwhen i == damageStack
                endloop
            endif
            call unfreeze()
        endif
    endmethod

    private static method failsafeClear takes nothing returns nothing
        static if USE_ARMOR_MOD then
            call Damage.index.setArmor(true)
        endif
        set isNotNativeRecursiveDamage = true
        set recursiveCallbaksInProgress = false

        set waitingForDamageEventToRun = false

        if udg_DamageEventDamageT != 0 then
            call DamageTrigger.DAMAGE.run()
            set nativeEventsCompleted = true
        endif

        call runAfterDamageEvents()
    endmethod

    static method operator enabled= takes boolean b returns nothing
        if b then
            if callbacksInProgress then
                call EnableTrigger(recursiveTrigger)
            else
                call EnableTrigger(damagingTrigger)
                call EnableTrigger(damagedTrigger)
            endif
        else
            if callbacksInProgress then
                call DisableTrigger(recursiveTrigger)
            else
                call DisableTrigger(damagingTrigger)
                call DisableTrigger(damagedTrigger)
            endif
        endif
    endmethod

    static method operator enabled takes nothing returns boolean
        return IsTriggerEnabled(damagingTrigger)
    endmethod

    private static boolean threadCompleted = false

    private static method asyncCallbackSafeCallback takes nothing returns nothing
        if waitingForDamageEventToRun then
        /*
            This means that WarCraft 3 didn't run the DAMAGED event despite running the DAMAGING event.
        */
            call failsafeClear()
        else
            set isNotNativeRecursiveDamage = true
            set recursiveCallbaksInProgress = false
            call runAfterDamageEvents()
        endif

        static if USE_EXTRA then
            call onAOEEnd()
        endif

        set threadCompleted = true
    endmethod

    private static method asyncCallback takes nothing returns nothing
        set callbacksInProgress = false
        set Damage.enabled = true
    /*
        Open a new thread in case of a thread crash during callback.
    */
        call ForForce(bj_FORCE_PLAYER[0], function thistype.asyncCallbackSafeCallback)

        if not threadCompleted then
            //call BJDebugMsg("DamageEngine issue: thread crashed!")
            call unfreeze()
        else
            set threadCompleted = false
        endif

        set Damage.count = 0
        set Damage.index = 0
        set timerStarted = false

        //call BJDebugMsg("Timer wrapped up")
    endmethod

    private method addRecursive takes nothing returns nothing
        local DamageTrigger currentIndex

        if not (this.damage == 0.00) then

            set currentIndex = DamageTrigger.eventIndex

            set this.recursiveTrig = currentIndex

            if not this.isCode then
            /*
                If the recursive damage trigger is executed, this can only
                mean that the user has manually dealt damage from a trigger.
                Hence flag the damage as being 'code' if they didn't already
                manually do this.
            */
                set this.isCode = true
                set this.userType = TYPE_CODE
            endif

            set inception = inception or /*
                */ currentIndex.manualRecursionRequested

            if recursiveCallbaksInProgress and /*
                */ IsUnitInGroup(this.sourceUnit, recursionSources) and /*
                */ IsUnitInGroup(this.targetUnit, recursionTargets) /*
            */ then
                if not inception then
                    set currentIndex.trigFrozen = true

                elseif not currentIndex.trigFrozen then
                    
                    set currentIndex.manualRecursionRequested = true

                    if currentIndex.ownRecursiveDepth < recursiveCallbackDepth then

                        set currentIndex.ownRecursiveDepth = /*
                            */ currentIndex.ownRecursiveDepth + 1

                        if currentIndex.ownRecursiveDepth >= MAX_RECURSIVE_TOLERANCE then
                            set currentIndex.trigFrozen = true
                        endif
                    endif
                endif
            endif

            // push the reference to the top of the damage stack.
            set damageStack.stackRef = this
            set damageStack = damageStack + 1

            //call BJDebugMsg("damageStack: " + I2S(damageStack) + " ownRecursiveDepth: " + I2S(currentIndex.ownRecursiveDepth) + " recursiveCallbackDepth: " + I2S(recursiveCallbackDepth))
        endif
        set inception = false
    endmethod

    private static method clearNexts takes nothing returns nothing
        set udg_NextDamageIsAttack = false
        set udg_NextDamageType = 0
        set udg_NextDamageWeaponT = 0

        static if USE_MELEE_RANGE then
            set udg_NextDamageIsMelee = false
            set udg_NextDamageIsRanged = false
        endif
    endmethod

    static method create takes /*
        */ unit src, /*
        */ unit tgt, /*
        */ real amt, /*
        */ boolean isAttack, /*
        */ attacktype at, /*
        */ damagetype dt, /*
        */ weapontype wt /*
    */ returns Damage
        local Damage d = Damage.count + 1
        set Damage.count = d
        
        set d.sourceUnit = src
        set d.targetUnit = tgt
        set d.damage = amt
        set d.prevAmt = amt

        set d.damageType = dt
        set d.attackType = at
        set d.weaponType = wt

        set d.isAttack = udg_NextDamageIsAttack or isAttack
        set d.isSpell = d.attackType == null and not d.isAttack
        return d
    endmethod

    private static method createFromEvent takes nothing returns Damage
        local Damage d = thistype.create( /*
            */ GetEventDamageSource(), /*
            */ GetTriggerUnit(), /*
            */ GetEventDamage(), /*
            */ BlzGetEventDamageType() == DAMAGE_TYPE_NORMAL, /*
            */ BlzGetEventAttackType(), /*
            */ BlzGetEventDamageType(), /*
            */ BlzGetEventWeaponType() /*
        */ )

        set d.isCode = udg_NextDamageType != 0 or /*
            */ udg_NextDamageIsAttack or /*
            */ udg_NextDamageIsRanged or /*
            */ udg_NextDamageIsMelee or /*
            */ d.damageType == DAMAGE_TYPE_MIND or /*
            */ udg_NextDamageWeaponT != 0 or /*
            */ (d.damageType == DAMAGE_TYPE_UNKNOWN and not (d.damage == 0.00))

        if d.isCode then
            if udg_NextDamageType != 0 then
                set d.userType = udg_NextDamageType
            else
                set d.userType = TYPE_CODE
            endif

            static if USE_MELEE_RANGE then
                set d.isMelee = udg_NextDamageIsMelee
                set d.isRanged = udg_NextDamageIsRanged
            endif

            set d.eFilter = FILTER_CODE

            if udg_NextDamageWeaponT != 0 then
                set d.weaponType = ConvertWeaponType(udg_NextDamageWeaponT)
                set udg_NextDamageWeaponT = 0
            endif
        else
            set d.userType = 0

            if d.damageType == DAMAGE_TYPE_NORMAL and d.isAttack then

                // Added in version 5.A in order to allow an optional external 
                // Attack Indexer system to reset the event weapon type to normal.
                //! runtextmacro optional ATTACK_INDEXER_ADJUSTMENTS()

                static if USE_MELEE_RANGE then
                    set d.isMelee = IsUnitType(d.sourceUnit, UNIT_TYPE_MELEE_ATTACKER)
                    set d.isRanged = IsUnitType(d.sourceUnit, UNIT_TYPE_RANGED_ATTACKER)

                    if d.isMelee and d.isRanged then
                        // Melee units always play a sound when damaging in WC3, 
                        // so this is an easy check.
                        set d.isMelee = d.weaponType != null

                        // In the case where a unit is both ranged and melee,
                        // the ranged attack plays no sound.
                        set d.isRanged = not d.isMelee
                    endif

                    if d.isMelee then
                        set d.eFilter = FILTER_MELEE
                    elseif d.isRanged then
                        set d.eFilter = FILTER_RANGED
                    else
                        set d.eFilter = FILTER_ATTACK
                    endif
                else
                    set d.eFilter = FILTER_ATTACK
                endif
            else
                if d.isSpell then
                    set d.eFilter = FILTER_SPELL
                else
                    set d.eFilter = FILTER_OTHER
                endif

                static if USE_MELEE_RANGE then
                    // Spells are neither melee nor ranged.
                    set d.isMelee = false
                    set d.isRanged = false
                endif
            endif
        endif
        call clearNexts()
        return d
    endmethod

    private static method onRecursiveDamageCallback takes nothing returns boolean
        local Damage d  = Damage.createFromEvent()
        call d.addRecursive()
        call BlzSetEventDamage(0.00)
        return false
    endmethod

    private static method onDamagingCallback takes nothing returns boolean
        local Damage d = Damage.createFromEvent()

        //call BJDebugMsg("Pre-damage event running for " + GetUnitName(GetTriggerUnit()))

        if timerStarted then
            if waitingForDamageEventToRun then
                //WarCraft 3 didn't run the DAMAGED event despite running the DAMAGING event.

                if d.damageType == DAMAGE_TYPE_SPIRIT_LINK or /*
                    */ d.damageType == DAMAGE_TYPE_DEFENSIVE or /*
                    */ d.damageType == DAMAGE_TYPE_PLANT /*
                */ then
                    set waitingForDamageEventToRun = false
                    set lastInstance = Damage.index
                    set isNotNativeRecursiveDamage = false
                else
                    call failsafeClear() //Not an overlapping event - just wrap it up
                endif
            else
                call runAfterDamageEvents() //wrap up any previous damage index
            endif

            static if USE_EXTRA then
                if d.sourceUnit != udg_AOEDamageSource then

                    call onAOEEnd()
                    set udg_AOEDamageSource = d.sourceUnit
                    set udg_EnhancedDamageTarget = d.targetUnit

                elseif d.targetUnit == udg_EnhancedDamageTarget then

                    set udg_DamageEventLevel= udg_DamageEventLevel + 1

                elseif not IsUnitInGroup(d.targetUnit, udg_DamageEventAOEGroup) then
                    set udg_DamageEventAOE  = udg_DamageEventAOE + 1
                endif
            endif
        else
            call TimerStart(async, 0.00, false, function Damage.asyncCallback)
            set timerStarted = true

            static if USE_EXTRA then
                set udg_AOEDamageSource     = d.sourceUnit
                set udg_EnhancedDamageTarget= d.targetUnit
            endif
        endif

        static if USE_EXTRA then
            call GroupAddUnit(udg_DamageEventAOEGroup, d.targetUnit)
        endif

        if d.runDamagingEvents(true) then
            call DamageTrigger.ZERO.run()
            set isNotNativeRecursiveDamage = true
            call runAfterDamageEvents()
        endif

        set waitingForDamageEventToRun = lastInstance == 0 or /*
            */ attacksImmune[udg_DamageEventAttackT] or /*
            */ damagesImmune[udg_DamageEventDamageT] or /*
            */ not IsUnitType(udg_DamageEventTarget, UNIT_TYPE_MAGIC_IMMUNE)

        return false
    endmethod

    private static method onDamagedCallback takes nothing returns boolean
        local real r = GetEventDamage()
        local Damage d = Damage.index

        //call BJDebugMsg("Second damage event running for " + GetUnitName(GetTriggerUnit()))

        if prepped > 0 then
            set prepped = 0
        elseif callbacksInProgress or d.prevAmt == 0.00 then
            return false
        elseif waitingForDamageEventToRun then
            set waitingForDamageEventToRun = false
        else
        /*
            This should only happen for native recursive WarCraft 3 damage
            such as Spirit Link, Thorns Aura, or Spiked Carapace / Barricades.
        */    
            call afterDamage()
            set Damage.index = lastInstance
            set lastInstance = 0
            set d = Damage.index

        /*
            Since the native recursive damage has now wrapped up, we can resume
            handling events as normal at this point. This means that the original
            target that the DAMAGING event was triggered for is now finally getting
            its DAMAGED event.
        */
            set isNotNativeRecursiveDamage = true

            call DamageTrigger.setGUIFromStruct(true)
        endif

        static if USE_ARMOR_MOD then
            call d.setArmor(true)
        endif

        static if USE_SCALING then
            if not (udg_DamageEventAmount == 0.00) and not (r == 0.00) then
                set udg_DamageScalingWC3 = r / udg_DamageEventAmount
            elseif udg_DamageEventAmount > 0.00 then
                set udg_DamageScalingWC3 = 0.00
            else
                set udg_DamageScalingWC3 = 1.00
                if udg_DamageEventPrevAmt == 0.00 then
                    set udg_DamageScalingUser = 0.00
                else
                    set udg_DamageScalingUser = /*
                        */ udg_DamageEventAmount / udg_DamageEventPrevAmt
                endif
            endif
        endif
        set udg_DamageEventAmount = r
        set d.damage = r

        //! runtextmacro optional DAMAGE_EVENT_VARS_PLUGIN_GDD()
        //! runtextmacro optional DAMAGE_EVENT_VARS_PLUGIN_PDD()
        //! runtextmacro optional DAMAGE_EVENT_VARS_PLUGIN_01()
        //! runtextmacro optional DAMAGE_EVENT_VARS_PLUGIN_02()
        //! runtextmacro optional DAMAGE_EVENT_VARS_PLUGIN_03()
        //! runtextmacro optional DAMAGE_EVENT_VARS_PLUGIN_04()
        //! runtextmacro optional DAMAGE_EVENT_VARS_PLUGIN_05()

        if udg_DamageEventAmount > 0.00 then

            call DamageTrigger.SHIELD.run()

            static if not USE_GUI then
                set udg_DamageEventAmount = d.damage
            endif

            static if USE_LETHAL then
                if atLeastOneLethalDamageEventRegistered or udg_DamageEventType < 0 then
                    set udg_LethalDamageHP = /*
                        */ GetWidgetLife(udg_DamageEventTarget) - udg_DamageEventAmount

                    if udg_LethalDamageHP <= DEATH_VAL then
                        if atLeastOneLethalDamageEventRegistered then
                            call DamageTrigger.LETHAL.run()

                            set udg_DamageEventAmount = /*
                                */ GetWidgetLife(udg_DamageEventTarget) - udg_LethalDamageHP
                            set d.damage = udg_DamageEventAmount
                        endif
                        if udg_DamageEventType < 0 and /*
                            */ udg_LethalDamageHP <= DEATH_VAL /*
                        */ then
                            call SetUnitExploded(udg_DamageEventTarget, true)
                        endif
                    endif
                endif
            endif

            static if USE_SCALING then
                if udg_DamageEventPrevAmt == 0.00 or /*
                    */ udg_DamageScalingWC3 == 0.00 /*
                */ then
                    set udg_DamageScalingUser = 0.00
                else
                    set udg_DamageScalingUser = /*
                        */ udg_DamageEventAmount / udg_DamageEventPrevAmt / udg_DamageScalingWC3
                endif
            endif
        endif

        if udg_DamageEventDamageT != 0 then
            call DamageTrigger.DAMAGE.run()
        endif

        call BlzSetEventDamage(udg_DamageEventAmount)

        set nativeEventsCompleted = true

        if udg_DamageEventAmount == 0.00 then
            call runAfterDamageEvents()
        endif

        // This return statement was needed years ago to avoid potential crashes on Mac.
        // I am not sure if that's still a thing.
        return false
    endmethod

    static method apply takes /*
        */ unit src, /*
        */ unit tgt, /*
        */ real amt, /*
        */ boolean a, /*
        */ boolean r, /*
        */ attacktype at, /*
        */ damagetype dt, /*
        */ weapontype wt /*
    */ returns Damage
        local Damage d

        if udg_NextDamageType == 0 then
           set udg_NextDamageType = TYPE_CODE
        endif

        if callbacksInProgress then
            set d = create(src, tgt, amt, a, at, dt, wt)
            set d.isCode = true
            set d.eFilter = FILTER_CODE

            set d.userType = udg_NextDamageType

            static if USE_MELEE_RANGE then
                if not d.isSpell then
                    set d.isRanged = udg_NextDamageIsRanged or r
                    set d.isMelee  = not d.isRanged
                endif
            endif

            call d.addRecursive()
        else
            call UnitDamageTarget(src, tgt, amt, a, r, at, dt, wt)

            set d = Damage.index

            call runAfterDamageEvents()
        endif

        call clearNexts()

        return d
    endmethod

    static method applySpell takes /*
        */ unit src, /*
        */ unit tgt, /*
        */ real amt, /*
        */ damagetype dt /*
    */ returns Damage
        return apply(src, tgt, amt, false, false, null, dt, null)
    endmethod

    static method applyAttack takes /*
        */ unit src, /*
        */ unit tgt, /*
        */ real amt, /*
        */ boolean ranged, /*
        */ attacktype at, /*
        */ weapontype wt /*
    */ returns Damage
        return apply(src, tgt, amt, true, ranged, at, DAMAGE_TYPE_NORMAL, wt)
    endmethod

/*
    This part is the most critical to get things kicked off. All the code we've seen up until now
    is related to event handling, trigger assignment, edge cases, etc. But it's the following that
    is really quite esesntial for any damage engine - not just this one.
*/
    private static method onInit takes nothing returns nothing
        set async = CreateTimer()

        set recursionSources = CreateGroup()
        set recursionTargets = CreateGroup()

        set damagingTrigger  = CreateTrigger()
        set damagedTrigger   = CreateTrigger()
        set recursiveTrigger = CreateTrigger() //Moved from globals block as per request of user Ricola3D

        call TriggerRegisterAnyUnitEventBJ(damagingTrigger, EVENT_PLAYER_UNIT_DAMAGING)
        call TriggerAddCondition(damagingTrigger, Filter(function Damage.onDamagingCallback))

        call TriggerRegisterAnyUnitEventBJ(damagedTrigger, EVENT_PLAYER_UNIT_DAMAGED)
        call TriggerAddCondition(damagedTrigger, Filter(function Damage.onDamagedCallback))

        //For recursion
        call TriggerRegisterAnyUnitEventBJ(recursiveTrigger, EVENT_PLAYER_UNIT_DAMAGING)
        call TriggerAddCondition(recursiveTrigger, Filter(function Damage.onRecursiveDamageCallback))
        call DisableTrigger(recursiveTrigger) //starts disabled. Will be enabled during recursive event handling.

    /*
        For preventing Thorns/Defensive glitch.
        Data gathered from https://www.hiveworkshop.com/threads/repo-in-progress-mapping-damage-types-to-their-abilities.316271/
    */        
        set attacksImmune[0]  = false //ATTACK_TYPE_NORMAL
        set attacksImmune[1]  = true  //ATTACK_TYPE_MELEE
        set attacksImmune[2]  = true  //ATTACK_TYPE_PIERCE
        set attacksImmune[3]  = true  //ATTACK_TYPE_SIEGE
        set attacksImmune[4]  = false //ATTACK_TYPE_MAGIC
        set attacksImmune[5]  = true  //ATTACK_TYPE_CHAOS
        set attacksImmune[6]  = true  //ATTACK_TYPE_HERO

        set damagesImmune[0]  = true  //DAMAGE_TYPE_UNKNOWN
        set damagesImmune[4]  = true  //DAMAGE_TYPE_NORMAL
        set damagesImmune[5]  = true  //DAMAGE_TYPE_ENHANCED
        set damagesImmune[8]  = false //DAMAGE_TYPE_FIRE
        set damagesImmune[9]  = false //DAMAGE_TYPE_COLD
        set damagesImmune[10] = false //DAMAGE_TYPE_LIGHTNING
        set damagesImmune[11] = true  //DAMAGE_TYPE_POISON
        set damagesImmune[12] = true  //DAMAGE_TYPE_DISEASE
        set damagesImmune[13] = false //DAMAGE_TYPE_DIVINE
        set damagesImmune[14] = false //DAMAGE_TYPE_MAGIC
        set damagesImmune[15] = false //DAMAGE_TYPE_SONIC
        set damagesImmune[16] = true  //DAMAGE_TYPE_ACID
        set damagesImmune[17] = false //DAMAGE_TYPE_FORCE
        set damagesImmune[18] = false //DAMAGE_TYPE_DEATH
        set damagesImmune[19] = false //DAMAGE_TYPE_MIND
        set damagesImmune[20] = false //DAMAGE_TYPE_PLANT
        set damagesImmune[21] = false //DAMAGE_TYPE_DEFENSIVE
        set damagesImmune[22] = true  //DAMAGE_TYPE_DEMOLITION
        set damagesImmune[23] = true  //DAMAGE_TYPE_SLOW_POISON
        set damagesImmune[24] = false //DAMAGE_TYPE_SPIRIT_LINK
        set damagesImmune[25] = false //DAMAGE_TYPE_SHADOW_STRIKE
        set damagesImmune[26] = true  //DAMAGE_TYPE_UNIVERSAL
    endmethod

    //! runtextmacro optional DAMAGE_EVENT_STRUCT_PLUGIN_DMGPKG()
    //! runtextmacro optional DAMAGE_EVENT_STRUCT_PLUGIN_01()
    //! runtextmacro optional DAMAGE_EVENT_STRUCT_PLUGIN_02()
    //! runtextmacro optional DAMAGE_EVENT_STRUCT_PLUGIN_03()
    //! runtextmacro optional DAMAGE_EVENT_STRUCT_PLUGIN_04()
    //! runtextmacro optional DAMAGE_EVENT_STRUCT_PLUGIN_05()

endstruct

// Called from the GUI configuration trigger once the assignments are in place.
public function DebugStr takes nothing returns nothing
    local integer i = 0
    loop
        set udg_CONVERTED_ATTACK_TYPE[i] = ConvertAttackType(i)
        exitwhen i == 6
        set i = i + 1
    endloop

    set i = 0
    loop
        set udg_CONVERTED_DAMAGE_TYPE[i] = ConvertDamageType(i)
        exitwhen i == 26
        set i = i + 1
    endloop

    set udg_AttackTypeDebugStr[0]  = "SPELLS"   //ATTACK_TYPE_NORMAL in JASS
    set udg_AttackTypeDebugStr[1]  = "NORMAL"   //ATTACK_TYPE_MELEE in JASS
    set udg_AttackTypeDebugStr[2]  = "PIERCE"
    set udg_AttackTypeDebugStr[3]  = "SIEGE"
    set udg_AttackTypeDebugStr[4]  = "MAGIC"
    set udg_AttackTypeDebugStr[5]  = "CHAOS"
    set udg_AttackTypeDebugStr[6]  = "HERO"
    set udg_DamageTypeDebugStr[0]  = "UNKNOWN"
    set udg_DamageTypeDebugStr[4]  = "NORMAL"
    set udg_DamageTypeDebugStr[5]  = "ENHANCED"
    set udg_DamageTypeDebugStr[8]  = "FIRE"
    set udg_DamageTypeDebugStr[9]  = "COLD"
    set udg_DamageTypeDebugStr[10] = "LIGHTNING"
    set udg_DamageTypeDebugStr[11] = "POISON"
    set udg_DamageTypeDebugStr[12] = "DISEASE"
    set udg_DamageTypeDebugStr[13] = "DIVINE"
    set udg_DamageTypeDebugStr[14] = "MAGIC"
    set udg_DamageTypeDebugStr[15] = "SONIC"
    set udg_DamageTypeDebugStr[16] = "ACID"
    set udg_DamageTypeDebugStr[17] = "FORCE"
    set udg_DamageTypeDebugStr[18] = "DEATH"
    set udg_DamageTypeDebugStr[19] = "MIND"
    set udg_DamageTypeDebugStr[20] = "PLANT"
    set udg_DamageTypeDebugStr[21] = "DEFENSIVE"
    set udg_DamageTypeDebugStr[22] = "DEMOLITION"
    set udg_DamageTypeDebugStr[23] = "SLOW_POISON"
    set udg_DamageTypeDebugStr[24] = "SPIRIT_LINK"
    set udg_DamageTypeDebugStr[25] = "SHADOW_STRIKE"
    set udg_DamageTypeDebugStr[26] = "UNIVERSAL"
    set udg_WeaponTypeDebugStr[0]  = "NONE"    //WEAPON_TYPE_WHOKNOWS in JASS
    set udg_WeaponTypeDebugStr[1]  = "METAL_LIGHT_CHOP"
    set udg_WeaponTypeDebugStr[2]  = "METAL_MEDIUM_CHOP"
    set udg_WeaponTypeDebugStr[3]  = "METAL_HEAVY_CHOP"
    set udg_WeaponTypeDebugStr[4]  = "METAL_LIGHT_SLICE"
    set udg_WeaponTypeDebugStr[5]  = "METAL_MEDIUM_SLICE"
    set udg_WeaponTypeDebugStr[6]  = "METAL_HEAVY_SLICE"
    set udg_WeaponTypeDebugStr[7]  = "METAL_MEDIUM_BASH"
    set udg_WeaponTypeDebugStr[8]  = "METAL_HEAVY_BASH"
    set udg_WeaponTypeDebugStr[9]  = "METAL_MEDIUM_STAB"
    set udg_WeaponTypeDebugStr[10] = "METAL_HEAVY_STAB"
    set udg_WeaponTypeDebugStr[11] = "WOOD_LIGHT_SLICE"
    set udg_WeaponTypeDebugStr[12] = "WOOD_MEDIUM_SLICE"
    set udg_WeaponTypeDebugStr[13] = "WOOD_HEAVY_SLICE"
    set udg_WeaponTypeDebugStr[14] = "WOOD_LIGHT_BASH"
    set udg_WeaponTypeDebugStr[15] = "WOOD_MEDIUM_BASH"
    set udg_WeaponTypeDebugStr[16] = "WOOD_HEAVY_BASH"
    set udg_WeaponTypeDebugStr[17] = "WOOD_LIGHT_STAB"
    set udg_WeaponTypeDebugStr[18] = "WOOD_MEDIUM_STAB"
    set udg_WeaponTypeDebugStr[19] = "CLAW_LIGHT_SLICE"
    set udg_WeaponTypeDebugStr[20] = "CLAW_MEDIUM_SLICE"
    set udg_WeaponTypeDebugStr[21] = "CLAW_HEAVY_SLICE"
    set udg_WeaponTypeDebugStr[22] = "AXE_MEDIUM_CHOP"
    set udg_WeaponTypeDebugStr[23] = "ROCK_HEAVY_BASH"
    set udg_DefenseTypeDebugStr[0] = "LIGHT"
    set udg_DefenseTypeDebugStr[1] = "MEDIUM"
    set udg_DefenseTypeDebugStr[2] = "HEAVY"
    set udg_DefenseTypeDebugStr[3] = "FORTIFIED"
    set udg_DefenseTypeDebugStr[4] = "NORMAL"   //Typically deals flat damage to all armor types
    set udg_DefenseTypeDebugStr[5] = "HERO"
    set udg_DefenseTypeDebugStr[6] = "DIVINE"
    set udg_DefenseTypeDebugStr[7] = "UNARMORED"
    set udg_ArmorTypeDebugStr[0]   = "NONE"      //ARMOR_TYPE_WHOKNOWS in JASS, added in 1.31
    set udg_ArmorTypeDebugStr[1]   = "FLESH"
    set udg_ArmorTypeDebugStr[2]   = "METAL"
    set udg_ArmorTypeDebugStr[3]   = "WOOD"
    set udg_ArmorTypeDebugStr[4]   = "ETHEREAL"
    set udg_ArmorTypeDebugStr[5]   = "STONE"
    
    // Added 25 July 2017 to allow detection of things like Bash or Pulverize or AOE spread
    set udg_DamageEventAOE = 1
    set udg_DamageEventLevel = 1
/*
    In-game World Editor doesn't allow Attack Type and Damage Type comparisons.
    Therefore, I need to code them as integers into GUI
*/
    set udg_ATTACK_TYPE_SPELLS = 0
    set udg_ATTACK_TYPE_NORMAL = 1
    set udg_ATTACK_TYPE_PIERCE = 2
    set udg_ATTACK_TYPE_SIEGE = 3
    set udg_ATTACK_TYPE_MAGIC = 4
    set udg_ATTACK_TYPE_CHAOS = 5
    set udg_ATTACK_TYPE_HERO = 6
    // -
    set udg_DAMAGE_TYPE_UNKNOWN = 0
    set udg_DAMAGE_TYPE_NORMAL = 4
    set udg_DAMAGE_TYPE_ENHANCED = 5
    set udg_DAMAGE_TYPE_FIRE = 8
    set udg_DAMAGE_TYPE_COLD = 9
    set udg_DAMAGE_TYPE_LIGHTNING = 10
    set udg_DAMAGE_TYPE_POISON = 11
    set udg_DAMAGE_TYPE_DISEASE = 12
    set udg_DAMAGE_TYPE_DIVINE = 13
    set udg_DAMAGE_TYPE_MAGIC = 14
    set udg_DAMAGE_TYPE_SONIC = 15
    set udg_DAMAGE_TYPE_ACID = 16
    set udg_DAMAGE_TYPE_FORCE = 17
    set udg_DAMAGE_TYPE_DEATH = 18
    set udg_DAMAGE_TYPE_MIND = 19
    set udg_DAMAGE_TYPE_PLANT = 20
    set udg_DAMAGE_TYPE_DEFENSIVE = 21
    set udg_DAMAGE_TYPE_DEMOLITION = 22
    set udg_DAMAGE_TYPE_SLOW_POISON = 23
    set udg_DAMAGE_TYPE_SPIRIT_LINK = 24
    set udg_DAMAGE_TYPE_SHADOW_STRIKE = 25
    set udg_DAMAGE_TYPE_UNIVERSAL = 26
    
/*
    The below variables don't affect damage amount, but do affect the sound played
    They also give important information about the type of attack used.
    They can differentiate between ranged and melee for units who are both
*/    
    
    set udg_WEAPON_TYPE_NONE = 0

    // Metal Light/Medium/Heavy
    set udg_WEAPON_TYPE_ML_CHOP = 1
    set udg_WEAPON_TYPE_MM_CHOP = 2
    set udg_WEAPON_TYPE_MH_CHOP = 3
    set udg_WEAPON_TYPE_ML_SLICE = 4
    set udg_WEAPON_TYPE_MM_SLICE = 5
    set udg_WEAPON_TYPE_MH_SLICE = 6
    set udg_WEAPON_TYPE_MM_BASH = 7
    set udg_WEAPON_TYPE_MH_BASH = 8
    set udg_WEAPON_TYPE_MM_STAB = 9
    set udg_WEAPON_TYPE_MH_STAB = 10

    // Wood Light/Medium/Heavy
    set udg_WEAPON_TYPE_WL_SLICE = 11
    set udg_WEAPON_TYPE_WM_SLICE = 12
    set udg_WEAPON_TYPE_WH_SLICE = 13
    set udg_WEAPON_TYPE_WL_BASH = 14
    set udg_WEAPON_TYPE_WM_BASH = 15
    set udg_WEAPON_TYPE_WH_BASH = 16
    set udg_WEAPON_TYPE_WL_STAB = 17
    set udg_WEAPON_TYPE_WM_STAB = 18

    // Claw Light/Medium/Heavy
    set udg_WEAPON_TYPE_CL_SLICE = 19
    set udg_WEAPON_TYPE_CM_SLICE = 20
    set udg_WEAPON_TYPE_CH_SLICE = 21

    // Axe Medium
    set udg_WEAPON_TYPE_AM_CHOP = 22

    // Rock Heavy
    set udg_WEAPON_TYPE_RH_BASH = 23

/*
    Since GUI still doesn't provide Defense Type and Armor Types,
    I needed to include the below:
*/
    set udg_ARMOR_TYPE_NONE = 0
    set udg_ARMOR_TYPE_FLESH = 1
    set udg_ARMOR_TYPE_METAL = 2
    set udg_ARMOR_TYPE_WOOD = 3
    set udg_ARMOR_TYPE_ETHEREAL = 4
    set udg_ARMOR_TYPE_STONE = 5

    set udg_DEFENSE_TYPE_LIGHT = 0
    set udg_DEFENSE_TYPE_MEDIUM = 1
    set udg_DEFENSE_TYPE_HEAVY = 2
    set udg_DEFENSE_TYPE_FORTIFIED = 3
    set udg_DEFENSE_TYPE_NORMAL = 4
    set udg_DEFENSE_TYPE_HERO = 5
    set udg_DEFENSE_TYPE_DIVINE = 6
    set udg_DEFENSE_TYPE_UNARMORED = 7

/*
    The remaining stuff is an ugly 'optimization' that I did a long
    time ago, thinking that it would improve performance for GUI users
    by not having so many different triggerconditions evaluating per
    damage event. I am not sure if it even worked; in Lua it might
    perform worse, but in vJass it remains to be tested.
*/

    set udg_UNIT_CLASS_HERO = 0
    set udg_UNIT_CLASS_DEAD = 1
    set udg_UNIT_CLASS_STRUCTURE = 2

    set udg_UNIT_CLASS_FLYING = 3
    set udg_UNIT_CLASS_GROUND = 4

    set udg_UNIT_CLASS_ATTACKS_FLYING = 5
    set udg_UNIT_CLASS_ATTACKS_GROUND = 6

    set udg_UNIT_CLASS_MELEE = 7
    set udg_UNIT_CLASS_RANGED = 8

    set udg_UNIT_CLASS_GIANT = 9
    set udg_UNIT_CLASS_SUMMONED = 10
    set udg_UNIT_CLASS_STUNNED = 11
    set udg_UNIT_CLASS_PLAGUED = 12
    set udg_UNIT_CLASS_SNARED = 13

    set udg_UNIT_CLASS_UNDEAD = 14
    set udg_UNIT_CLASS_MECHANICAL = 15
    set udg_UNIT_CLASS_PEON = 16
    set udg_UNIT_CLASS_SAPPER = 17
    set udg_UNIT_CLASS_TOWNHALL = 18
    set udg_UNIT_CLASS_ANCIENT = 19

    set udg_UNIT_CLASS_TAUREN = 20
    set udg_UNIT_CLASS_POISONED = 21
    set udg_UNIT_CLASS_POLYMORPHED = 22
    set udg_UNIT_CLASS_SLEEPING = 23
    set udg_UNIT_CLASS_RESISTANT = 24
    set udg_UNIT_CLASS_ETHEREAL = 25
    set udg_UNIT_CLASS_MAGIC_IMMUNE = 26

    set udg_DamageFilterAttackT = -1
    set udg_DamageFilterDamageT = -1
    set udg_DamageFilterSourceC = -1
    set udg_DamageFilterTargetC = -1
    set udg_DamageFilterRunChance = 1.00
endfunction

public function RegisterFromHook takes /*
    */ trigger whichTrig, /*
    */ string var, /*
    */ limitop op, /*
    */ real value /*
*/ returns nothing
    call DamageTrigger.registerVerbose(whichTrig, var, value, true, GetHandleId(op))
endfunction
hook TriggerRegisterVariableEvent RegisterFromHook

function TriggerRegisterDamageEngineEx takes /*
    */ trigger whichTrig, /*
    */ string eventName, /*
    */ real value, /*
    */ integer opId /*
*/ returns DamageTrigger
    return DamageTrigger.registerVerbose( /*
        */ whichTrig, /*
        */ DamageTrigger.getVerboseStr(eventName), /*
        */ value, /*
        */ false, /*
        */ opId /*
    */ )
endfunction

function TriggerRegisterDamageEngine takes /*
    */ trigger whichTrig, /*
    */ string eventName, /*
    */ real value /*
*/ returns DamageTrigger
    return DamageTrigger.registerTrigger(whichTrig, eventName, value)
endfunction

function RegisterDamageEngineEx takes /*
    */ code callback, /*
    */ string eventName, /*
    */ real value, /*
    */ integer opId /*
*/ returns DamageTrigger
    return TriggerRegisterDamageEngineEx(DamageTrigger[callback], eventName, value, opId)
endfunction

//Similar to TriggerRegisterDamageEvent, but takes code instead of trigger as the first argument.
function RegisterDamageEngine takes /*
    */ code callback, /*
    */ string eventName, /*
    */ real value /*
*/ returns DamageTrigger
    return RegisterDamageEngineEx(callback, eventName, value, FILTER_OTHER)
endfunction

/*
    The below macros are for GUI to tap into more powerful vJass event filtering:
*/

//! textmacro DAMAGE_TRIGGER_CONFIG
    if not DamageTrigger.eventIndex.configured then
//! endtextmacro

//! textmacro DAMAGE_TRIGGER_CONFIG_END
        call DamageTrigger.eventIndex.configure()
    endif
    if not DamageTrigger.eventIndex.checkConfig() then
        return
    endif
//! endtextmacro

endlibrary
- Updated TimedSpecialEffect to v1.8.1
- Added a player message on start to know how to test
- Added an alive check so the effect automatically cleaned on death
- Updated TimedSpellEffect from v1.5 to v1.7
- Added StunSnippetStart and StunSnippetLoop for users
StunSnippetConfig
Events
Map initialization
Conditions
Actions
Set Variable Set StunSnippet_DEFAULTAttachPoint = "overhead"
Set Variable Set StunSnippet_DEFAULTSFX = "Abilities\Spells\Human\Thunderclap\ThunderclapTarget.mdl"
Set Variable Set StunSnippet_TStart = StunSnippetStart <gen>
Set Variable Set StunSnippet_TLoop = StunSnippetLoop <gen>
Set Variable Set StunSnippet_TEnd = StunSnippetEnd <gen>
Set Variable Set StunSnippet_TRegister = StunSnippetRegister <gen>
-------- Variable Initialization --------
Set Variable Set StunSnippet__Duration = "0.00"
Set Variable Set StunSnippet__AttachPoint = StunSnippet_DEFAULTAttachPoint
Set Variable Set StunSnippet__SFX = StunSnippet_DEFAULTSFX
StunSnippetRegister
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
StunSnippet__SFX Equal to
Then - Actions
Set Variable Set StunSnippet__SFX = StunSnippet_DEFAULTSFX
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
StunSnippet__AttachPoint Equal to
Then - Actions
Set Variable Set StunSnippet__AttachPoint = StunSnippet_DEFAULTAttachPoint
Else - Actions
Custom script: call PauseUnitEx(udg_StunSnippet__StunnedUnit, true)
-------- TSEDuration is the duration of the effect --------
Set Variable Set TSEDuration = StunSnippet__Duration
-------- TSETargetUnit determine which unit has this effect attached --------
Set Variable Set TSETargetUnit = StunSnippet__StunnedUnit
-------- TSEAttachPoint is only used in conjunction with TargetUnit to determine in which part of unit it is placed --------
Set Variable Set TSEAttachPoint = StunSnippet__AttachPoint
-------- EffectName is the string to the effect file --------
Set Variable Set TSEEffectName = StunSnippet__SFX
-------- Refer to TSE Documentation from official TimedSpecialEffect page --------
Set Variable Set TSETargetUnitAliveCheck = "true"
Set Variable Set TSEOnIndexEvent = StunSnippet_TStart
Set Variable Set TSEOnLoopEvent = StunSnippet_TLoop
Set Variable Set TSEOnLoopTimer = TSE_TIMEOUT
Set Variable Set TSEOnEndEvent = StunSnippet_TEnd
Set Variable Set TSELockInstance = "true"
-------- END --------
-------- After all core variables are set, run TSE_RegisterTrigger --------
Trigger - Run TSE_RegisterTrigger (checking conditions)
-------- Reset stun variables --------
Set Variable Set StunSnippet__Duration = "0.00"
Set Variable Set StunSnippet__AttachPoint = StunSnippet_DEFAULTAttachPoint
Set Variable Set StunSnippet__SFX = StunSnippet_DEFAULTSFX
StunSnippetStart
Events
Conditions
Actions
Set Variable Set StunSnippet_CurrentUnit = TSE__TargetUnit
StunSnippetLoop
Events
Conditions
Actions
Set Variable Set StunSnippet_CurrentUnit = TSE__TargetUnit
StunSnippetEnd
Events
Conditions
Actions
Set Variable Set StunSnippet_CurrentUnit = TSE__TargetUnit
Custom script: call PauseUnitEx(udg_StunSnippet_CurrentUnit, false)
StunSnippetSampleRegister
Events
Conditions
Actions
-------- Unit that will get stunned --------
Set Variable Set StunSnippet__StunnedUnit = No unit
-------- Stun duration --------
Set Variable Set StunSnippet__Duration = "0.00"
-------- Effect shown, if <empty string> will fall back to default --------
Set Variable Set StunSnippet__SFX = ""
-------- Attach point for the effect shown, if <empty string> will fall back to default --------
Set Variable Set StunSnippet__AttachPoint = ""
-------- Register the stun effect --------
Trigger - Run StunSnippet_TRegister (checking conditions)
library PauseUnitEx /*
    --------------
    */ requires /*
    --------------
        --------------------
        */ optional Table /*
        --------------------
            Link: "hiveworkshop.com/forums/showthread.php?t=188084"
        --------------------
        |   PauseUnitEx    |
        |    - MyPad       |
        --------------------
            A simple snippet that grants additional functionality
            to BlzPauseUnitEx that mimics PauseUnit
        ---------
        | API   |
        ---------
            function PauseUnitEx(unit whichUnit, boolean flag)
                - Internally calls BlzPauseUnitEx
            function IsUnitPausedEx(unit whichUnit) -> boolean
                - Checks if the unit is paused.
                - This does not return accurate values when
                  BlzPauseUnitEx is called directly.
            function GetUnitPauseExCounter(unit whichUnit) -> integer
                - Returns the pause counter of the unit.
            function SetUnitPauseExCounter(unit whichUnit, integer new)
                - Sets the pause counter of the unit to the
                  new value. Internally calls BlzPauseUnitEx
                  when appropriate.
                - Time Complexity: O(n)
    */
private module PauseM
    static if LIBRARY_Table then
        static Table map        = 0
        private static method onInit takes nothing returns nothing
            set thistype.map    = Table.create()
        endmethod
    else
        static hashtable map    = InitHashtable()
    endif
    static method getPauseCounter takes unit whichUnit returns integer
        local integer counter   = 0
        local integer unitId    = GetHandleId(whichUnit)
        static if LIBRARY_Table then
            set counter     = map[unitId]
        else
            set counter     = LoadInteger(map, 0, unitId)
        endif
        return counter
    endmethod
    static method pauseUnit takes unit whichUnit, boolean flag returns nothing
        local integer counter   = thistype.getPauseCounter(whichUnit)
        local integer unitId    = GetHandleId(whichUnit)
        local integer incr      = IntegerTertiaryOp(flag, 1, -1)
       
        set counter = counter + incr
        static if LIBRARY_Table then
            set map[unitId] = counter
        else
            call SaveInteger(map, 0, unitId, counter)
        endif
        call BlzPauseUnitEx(whichUnit, flag)
    endmethod
    static method isPaused takes unit whichUnit returns boolean
        local integer counter   = thistype.getPauseCounter(whichUnit)
        return counter > 0
    endmethod
    static method setPauseCounter takes unit whichUnit, integer new returns nothing
        local integer counter   = thistype.getPauseCounter(whichUnit)
        local integer sign      = 0
        local integer unitId    = GetHandleId(whichUnit)
        local boolean flag      = false
        if new < counter then
            set sign    = -1
            set flag    = false
        elseif new > counter then
            set sign    = 1
            set flag    = true
        endif
        loop
            exitwhen counter == new
            set counter = counter + sign
            call BlzPauseUnitEx(whichUnit, flag)
        endloop
        static if LIBRARY_Table then
            set map[unitId] = counter
        else
            call SaveInteger(map, 0, unitId, counter)
        endif
    endmethod
endmodule
private struct Pause extends array
    implement PauseM
endstruct
function PauseUnitEx takes unit whichUnit, boolean flag returns nothing
    call Pause.pauseUnit(whichUnit, flag)
endfunction
function SetUnitPauseExCounter takes unit whichUnit, integer new returns nothing
    call Pause.setPauseCounter(whichUnit, new)
endfunction
function IsUnitPausedEx takes unit whichUnit returns boolean
    return Pause.isPaused(whichUnit)
endfunction
function GetUnitPauseExCounter takes unit whichUnit returns integer
    return Pause.getPauseCounter(whichUnit)
endfunction
endlibrary
TSEConfig
Events
Map initialization
Conditions
Actions
-------- CORE --------
-------- Set to TSELoop trigger --------
Set Variable Set TSE_LoopTrigger = TSELoop <gen>
-------- Set to TSERegister trigger --------
Set Variable Set TSE_RegisterTrigger = TSERegister <gen>
-------- Set to TSEEmptyEvent trigger --------
Set Variable Set TSE_EmptyEvent = TSEEmptyEvent <gen>
-------- DO NOT CHANGE --------
-------- UNLESS YOU KNOW WHAT YOU ARE DOING --------
-------- Default timeout for effect check --------
-------- Recommended value: 0.03-0.10 --------
-------- Default: 0.03125 (1/32) --------
-------- Low End Performance: 0.1, 0.05 --------
-------- Extreme Precision: 1/64, 1/128 --------
Set Variable Set TSE_TIMEOUT = (1.00 / 32.00)
-------- Recursion for Lock Instance tolerance --------
-------- A safety feature if infinite loops happened when Lock Instance is utilized, although theorically it should not be triggered at all --------
-------- It is recommended to keep this at numbers ideally higher than generally possible instances until TSE is suspected of freezing the map due to loops --------
Set Variable Set TSE_MaxRecursion = "32767"
-------- END CONFIG --------
-------- Default values for some variables --------
Set Variable Set TSEScale = "1.00"
TSERegister
Events
Conditions
Actions
-------- Backward compatibility --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSEUnit Not equal to No unit
TSETargetUnit Equal to No unit
Then - Actions
Set Variable Set TSETargetUnit = TSEUnit
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
TSETargetUnitAliveCheck Equal to True
TSEUnitAliveCheck Equal to True
Then - Actions
Set Variable Set TSETargetUnitAliveCheck = "true"
Else - Actions
-------- Register effect instance --------
Set Variable Set TSE_MaxIndex = (TSE_MaxIndex + 1)
Set Variable Set TSE_I_RemainingDuration[TSE_MaxIndex] = TSEDuration
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSETargetUnit Not equal to No unit
Then - Actions
Special Effect - Create a special effect attached to the TSEAttachPoint of TSETargetUnit using TSEEffectName
Set Variable Set TSE_I_TargetUnitAliveCheck[TSE_MaxIndex] = TSETargetUnitAliveCheck
Else - Actions
Special Effect - Create a special effect at TSEPoint using TSEEffectName
Set Variable Set TSE_I_TargetUnitAliveCheck[TSE_MaxIndex] = "false"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSESourceUnit Not equal to No unit
Then - Actions
Set Variable Set TSE_I_SourceUnitAliveCheck[TSE_MaxIndex] = TSESourceUnitAliveCheck
Else - Actions
Set Variable Set TSE_I_Effect[TSE_MaxIndex] = (Last created special effect)
Special Effect - Set Scale of TSE_I_Effect[TSE_MaxIndex] to TSEScale
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSEChanneledOrderID Not equal to
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSESourceUnit Not equal to No unit
Then - Actions
Set Variable Set TSE_I_IsChanneling[TSE_MaxIndex] = "true"
Else - Actions
Game - Display to (All players) the text: |cffff0000WARNING: A Channeling Spell without Source Unit detected!|r
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSEOnLoopTimer Less than TSE_TIMEOUT
Then - Actions
Set Variable Set TSEOnLoopTimer = TSE_TIMEOUT
Else - Actions
Set Variable Set TSE_I_SourceUnit[TSE_MaxIndex] = TSESourceUnit
Set Variable Set TSE_I_TargetUnit[TSE_MaxIndex] = TSETargetUnit
Set Variable Set TSE_I_ChanneledOrderID[TSE_MaxIndex] = TSEChanneledOrderID
Set Variable Set TSE_I_OnLoopEvent[TSE_MaxIndex] = TSEOnLoopEvent
Set Variable Set TSE_I_OnLoopTimer[TSE_MaxIndex] = TSEOnLoopTimer
Set Variable Set TSE_I_LoopDuration[TSE_MaxIndex] = TSEOnLoopTimer
Set Variable Set TSE_I_OnEndEvent[TSE_MaxIndex] = TSEOnEndEvent
Set Variable Set TSE_I_LockInstance[TSE_MaxIndex] = TSELockInstance
Set Variable Set TSE_I_ActiveInstance[TSE_MaxIndex] = "true"
Set Variable Set TSE_I_Point[TSE_MaxIndex] = TSEPoint
-------- OnEvent Variables --------
Set Variable Set TSE__ActiveIndex = TSE_MaxIndex
Set Variable Set TSE__RemainingDuration = TSE_I_RemainingDuration[TSE__ActiveIndex]
Set Variable Set TSE__SourceUnit = TSE_I_SourceUnit[TSE__ActiveIndex]
Set Variable Set TSE__TargetUnit = TSE_I_TargetUnit[TSE__ActiveIndex]
Set Variable Set TSE__Point = TSE_I_Point[TSE__ActiveIndex]
Set Variable Set TSE__SpecialEffect = TSE_I_Effect[TSE__ActiveIndex]
-------- Run OnIndexEvent --------
Trigger - Run TSEOnIndexEvent (checking conditions)
Set Variable Set TSE_I_RemainingDuration[TSE__ActiveIndex] = TSE__RemainingDuration
-------- Loop Check --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSE_MaxIndex Equal to 1
Then - Actions
Countdown Timer - Start TSE_CTimer as a Repeating timer that will expire in TSE_TIMEOUT seconds
Trigger - Turn on TSE_LoopTrigger
Else - Actions
-------- Clean information for next registration --------
Set Variable Set TSETargetUnit = No unit
Set Variable Set TSETargetUnitAliveCheck = "false"
Set Variable Set TSEScale = "1.00"
Set Variable Set TSEChanneledOrderID = ""
Set Variable Set TSESourceUnit = No unit
Set Variable Set TSEOnIndexEvent = TSE_EmptyEvent
Set Variable Set TSEOnLoopEvent = TSE_EmptyEvent
Set Variable Set TSEOnLoopTimer = TSE_TIMEOUT
Set Variable Set TSEOnEndEvent = TSE_EmptyEvent
Set Variable Set TSELockInstance = "false"
-------- DEPRECATED --------
Set Variable Set TSEUnit = No unit
Set Variable Set TSEUnitAliveCheck = "false"
TSELoop
Events
Time - TSE_CTimer expires
Conditions
Actions
For each (Integer TSE_Index ) from 1 to TSE_MaxIndex , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSE_I_ActiveInstance[TSE_Index] Equal to True
Then - Actions
Set Variable Set TSE_I_RemainingDuration[TSE_Index] = (TSE_I_RemainingDuration[TSE_Index] - TSE_TIMEOUT)
Set Variable Set TSE_I_LoopDuration[TSE_Index] = (TSE_I_LoopDuration[TSE_Index] - TSE_TIMEOUT)
-------- Check if this is time for loop event --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSE_I_LoopDuration[TSE_Index] Less than or equal to 0.00
Then - Actions
-------- OnEvent Variables --------
Set Variable Set TSE__ActiveIndex = TSE_Index
Set Variable Set TSE__RemainingDuration = TSE_I_RemainingDuration[TSE__ActiveIndex]
Set Variable Set TSE__SourceUnit = TSE_I_SourceUnit[TSE__ActiveIndex]
Set Variable Set TSE__TargetUnit = TSE_I_TargetUnit[TSE__ActiveIndex]
Set Variable Set TSE__Point = TSE_I_Point[TSE__ActiveIndex]
Set Variable Set TSE__SpecialEffect = TSE_I_Effect[TSE__ActiveIndex]
-------- OnLoopEvent --------
Trigger - Run TSE_I_OnLoopEvent[TSE_Index] (checking conditions)
Set Variable Set TSE_I_RemainingDuration[TSE__ActiveIndex] = TSE__RemainingDuration
-------- Reset Loop Timer --------
Set Variable Set TSE_I_LoopDuration[TSE_Index] = TSE_I_OnLoopTimer[TSE_Index]
Else - Actions
-------- Loop conditional check --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSE_I_TargetUnitAliveCheck[TSE_Index] Equal to True
(TSE_I_TargetUnit[TSE_Index] is alive) Equal to False
Then - Actions
Set Variable Set TSE_I_RemainingDuration[TSE_Index] = "0.00"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSE_I_SourceUnitAliveCheck[TSE_Index] Equal to True
(TSE_I_SourceUnit[TSE_Index] is alive) Equal to False
TSE_I_SourceUnit[TSE_Index] Not equal to No unit
Then - Actions
Set Variable Set TSE_I_RemainingDuration[TSE_Index] = "0.00"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSE_I_IsChanneling[TSE_Index] Equal to True
(Current order of TSE_I_SourceUnit[TSE_Index]) Not equal to (Order(TSE_I_ChanneledOrderID[TSE_Index]))
Then - Actions
Set Variable Set TSE_I_RemainingDuration[TSE_Index] = "0.00"
Else - Actions
-------- End phase check --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSE_I_RemainingDuration[TSE_Index] Less than or equal to 0.00
Then - Actions
-------- OnEvent Variables --------
Set Variable Set TSE__ActiveIndex = TSE_Index
Set Variable Set TSE__RemainingDuration = TSE_I_RemainingDuration[TSE__ActiveIndex]
Set Variable Set TSE__SourceUnit = TSE_I_SourceUnit[TSE__ActiveIndex]
Set Variable Set TSE__TargetUnit = TSE_I_TargetUnit[TSE__ActiveIndex]
Set Variable Set TSE__Point = TSE_I_Point[TSE__ActiveIndex]
Set Variable Set TSE__SpecialEffect = TSE_I_Effect[TSE__ActiveIndex]
-------- OnEndEvent --------
Trigger - Run TSE_I_OnEndEvent[TSE_Index] (checking conditions)
-------- De-indexing Phase --------
Special Effect - Destroy TSE_I_Effect[TSE_Index]
Set Variable Set TSE_ReplacementIndexFound = "false"
Set Variable Set TSE_ReplacementIndex = TSE_MaxIndex
Set Variable Set TSE_Recursion = "0"
Custom script: loop
Set Variable Set TSE_Recursion = (TSE_Recursion + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
TSE_Recursion Greater than or equal to TSE_MaxRecursion
And - All (Conditions) are true
Conditions
TSE_I_LockInstance[TSE_ReplacementIndex] Equal to False
TSE_I_ActiveInstance[TSE_ReplacementIndex] Equal to True
TSE_ReplacementIndex Equal to TSE_Index
Then - Actions
Set Variable Set TSE_ReplacementIndexFound = "true"
Else - Actions
Set Variable Set TSE_ReplacementIndex = (TSE_ReplacementIndex - 1)
Custom script: exitwhen udg_TSE_ReplacementIndexFound == true
Custom script: endloop
Custom script: call RemoveLocation(udg_TSE_I_Point[udg_TSE_Index])
Set Variable Set TSE_I_Point[TSE_Index] = TSE_I_Point[TSE_ReplacementIndex]
Set Variable Set TSE_I_RemainingDuration[TSE_Index] = TSE_I_RemainingDuration[TSE_ReplacementIndex]
Set Variable Set TSE_I_Effect[TSE_Index] = TSE_I_Effect[TSE_ReplacementIndex]
Set Variable Set TSE_I_ChanneledOrderID[TSE_Index] = TSE_I_ChanneledOrderID[TSE_ReplacementIndex]
Set Variable Set TSE_I_IsChanneling[TSE_Index] = TSE_I_IsChanneling[TSE_ReplacementIndex]
Set Variable Set TSE_I_SourceUnit[TSE_Index] = TSE_I_SourceUnit[TSE_ReplacementIndex]
Set Variable Set TSE_I_SourceUnitAliveCheck[TSE_Index] = TSE_I_SourceUnitAliveCheck[TSE_ReplacementIndex]
Set Variable Set TSE_I_TargetUnitAliveCheck[TSE_Index] = TSE_I_TargetUnitAliveCheck[TSE_ReplacementIndex]
Set Variable Set TSE_I_TargetUnit[TSE_Index] = TSE_I_TargetUnit[TSE_ReplacementIndex]
Set Variable Set TSE_I_OnLoopEvent[TSE_Index] = TSE_I_OnLoopEvent[TSE_ReplacementIndex]
Set Variable Set TSE_I_OnLoopTimer[TSE_Index] = TSE_I_OnLoopTimer[TSE_ReplacementIndex]
Set Variable Set TSE_I_LoopDuration[TSE_Index] = TSE_I_LoopDuration[TSE_ReplacementIndex]
Set Variable Set TSE_I_OnEndEvent[TSE_Index] = TSE_I_OnEndEvent[TSE_ReplacementIndex]
Set Variable Set TSE_I_LockInstance[TSE_Index] = TSE_I_LockInstance[TSE_ReplacementIndex]
Set Variable Set TSE_I_LockInstance[TSE_ReplacementIndex] = "false"
Set Variable Set TSE_I_ActiveInstance[TSE_Index] = TSE_I_ActiveInstance[TSE_ReplacementIndex]
Set Variable Set TSE_I_ActiveInstance[TSE_ReplacementIndex] = "false"
Set Variable Set TSE_Index = (TSE_Index - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
TSE_ReplacementIndex Equal to TSE_MaxIndex
TSE_I_ActiveInstance[TSE_MaxIndex] Equal to False
Then - Actions
Set Variable Set TSE_MaxCheckOver = "false"
Custom script: loop
Set Variable Set TSE_MaxIndex = (TSE_MaxIndex - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
TSE_I_ActiveInstance[TSE_MaxIndex] Equal to True
TSE_MaxIndex Less than or equal to 0
Then - Actions
Set Variable Set TSE_MaxCheckOver = "true"
Else - Actions
Custom script: exitwhen udg_TSE_MaxCheckOver == true
Custom script: endloop
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSE_MaxIndex Less than or equal to 0
Then - Actions
Countdown Timer - Pause TSE_CTimer
Trigger - Turn off TSE_LoopTrigger
Else - Actions
Else - Actions
Else - Actions
TSEEmptyEvent
Events
Conditions
Actions
TSESampleRegisterUnit
Events
Conditions
Actions
-------- CORE --------
-------- TSEDuration is the duration of the effect --------
Set Variable Set TSEDuration = "10.00"
-------- TSETargetUnit determine which unit has this effect attached --------
Set Variable Set TSETargetUnit = (Triggering unit)
-------- TSEAttachPoint is only used in conjunction with TargetUnit to determine in which part of unit it is placed --------
Set Variable Set TSEAttachPoint = "left hand"
-------- EffectName is the string to the effect file --------
Set Variable Set TSEEffectName = "war3mapImported/Soul Bow Enchantment Necro.mdx"
-------- EXTENSION --------
-------- TSETargetUnitAliveCheck refers to whether the attached effect account whether the unit is alive or not --------
Set Variable Set TSETargetUnitAliveCheck = "false"
-------- TSESourceUnit refers to the source of the buff, useful if the TargetUnit and SourceUnit are two different units --------
-------- KNOWN ISSUE TILL V1.5: If SourceUnit is set to a unit and the SourceUnit is killed, the buff will immediately ceased --------
-------- KNOWN ISSUE TILL V1.5: (cont) so if the buff is not tied to the state of the source, it is preferred to not be set --------
Set Variable Set TSESourceUnit = (Triggering unit)
-------- TSESourceUnitAliveCheck is to troubleshoot the KNOWN ISSUE for v1.5 --------
-------- Since it is considered an issue, the default state is now to ignore SourceUnit state (False) --------
Set Variable Set TSESourceUnitAliveCheck = "false"
-------- TSEChanneledOrderID is used for buff tied with channeling spells --------
-------- The buff immediately ceased if the channeling spell ends --------
Set Variable Set TSEChanneledOrderID = "blizzard"
-------- TSEChanneledOrderID is used for buff tied with channeling spells --------
-------- TSEOnIndexEvent is an event that runs when the effect is created (directly at moment of effect creation). Refer to data with TSE__ActiveIndex. --------
-------- Read TSELockInstance notes if external array variables uses TSE__ActiveIndex. --------
Set Variable Set TSEOnIndexEvent = TSEOnIndexEvent
-------- TSEOnLoopEvent is an event that runs every TSEOnLoopTimer seconds. Refer to data with TSE__ActiveIndex. --------
-------- Read TSELockInstance notes if external array variables uses TSE__ActiveIndex. --------
Set Variable Set TSEOnLoopEvent = TSEOnLoopEvent
-------- TSEOnLoopTimer is the duration between each tick of the loop --------
-------- Setting this allows better control over the OnLoopEvent instead of dealing with TSE_TIMEOUT global --------
-------- This variable cannot be lower than TSE_TIMEOUT --------
Set Variable Set TSEOnLoopTimer = "1.00"
-------- TSEOnEndEvent is an event that runs when the effect is about to be destroyed. Refer to data with TSE__ActiveIndex. --------
-------- Read TSELockInstance notes if external array variables uses TSE__ActiveIndex. --------
Set Variable Set TSEOnEndEvent = TSEOnEndEvent
-------- If you utilize external array variables tied to TSE__ActiveIndex (v1.6+) OR TSE_Index /TSE_MaxIndex (v1.5-) in any of the event, YOU MUST SET LOCK INSTANCE TO TRUE --------
-------- Else, it is recommended to set this to false so the system performs better --------
Set Variable Set TSELockInstance = "false"
-------- END --------
-------- After all core variables are set, run TSE_RegisterTrigger --------
Trigger - Run TSE_RegisterTrigger (checking conditions)
TSESampleRegisterPoint
Events
Conditions
Actions
-------- CORE --------
-------- TSEDuration is the duration of the effect --------
Set Variable Set TSEDuration = "16.00"
-------- TSEEffectName is the string to the effect file --------
Set Variable Set TSEEffectName = "Abilities\Spells\Human\CloudOfFog\CloudOfFog.mdl"
-------- TSEPoint is the position of the effect created --------
Set Variable Set TSEPoint = (Target point of ability being cast)
-------- TSEScale for scaling position-based effect --------
Set Variable Set TSEScale = "1.00"
-------- EXTENSION --------
-------- TSESourceUnit refers to the source of the buff, useful if the TargetUnit and SourceUnit are two different units --------
-------- KNOWN ISSUE TILL V1.5: If SourceUnit is set to a unit and the SourceUnit is killed, the buff will immediately ceased --------
-------- KNOWN ISSUE TILL V1.5: (cont) so if the buff is not tied to the state of the source, it is preferred to not be set --------
Set Variable Set TSESourceUnit = (Triggering unit)
-------- TSESourceUnitAliveCheck is to troubleshoot the KNOWN ISSUE for v1.5 --------
-------- Since it is considered an issue, the default state is now to ignore SourceUnit state (False) --------
Set Variable Set TSESourceUnitAliveCheck = "false"
-------- TSEChanneledOrderID is used for buff tied with channeling spells --------
-------- The buff immediately ceased if the channeling spell ends --------
Set Variable Set TSEChanneledOrderID = "blizzard"
-------- TSEChanneledOrderID is used for buff tied with channeling spells --------
-------- TSEOnIndexEvent is an event that runs when the effect is created (directly at moment of effect creation). Refer to data with TSE__ActiveIndex. --------
-------- Read TSELockInstance notes if external array variables uses TSE__ActiveIndex. --------
Set Variable Set TSEOnIndexEvent = TSEOnIndexEvent
-------- TSEOnLoopEvent is an event that runs every TSEOnLoopTimer seconds. Refer to data with TSE__ActiveIndex. --------
-------- Read TSELockInstance notes if external array variables uses TSE__ActiveIndex. --------
Set Variable Set TSEOnLoopEvent = TSEOnLoopEvent
-------- TSEOnLoopTimer is the duration between each tick of the loop --------
-------- Setting this allows better control over the OnLoopEvent instead of dealing with TSE_TIMEOUT global --------
-------- This variable cannot be lower than TSE_TIMEOUT --------
Set Variable Set TSEOnLoopTimer = "1.00"
-------- TSEOnEndEvent is an event that runs when the effect is about to be destroyed. Refer to data with TSE__ActiveIndex. --------
-------- Read TSELockInstance notes if external array variables uses TSE__ActiveIndex. --------
Set Variable Set TSEOnEndEvent = TSEOnEndEvent
-------- If you utilize external array variables tied to TSE__ActiveIndex (v1.6+) OR TSE_Index /TSE_MaxIndex (v1.5-) in any of the event, YOU MUST SET LOCK INSTANCE TO TRUE --------
-------- Else, it is recommended to set this to false so the system performs better --------
Set Variable Set TSELockInstance = "false"
-------- END --------
-------- After all core variables are set, run TSE_RegisterTrigger --------
Trigger - Run TSE_RegisterTrigger (checking conditions)
- Improved TSESampleRegisterPoint by adding TSEScale into the sample
> It has been available for multiple versions, but I missed it on 1.6 update for the samples
- Fixed an issue with TimedSpecialEffect loop
- TSE__RemainingDuration can now be altered to modify the duration of the effect for OnIndex and OnLoop
- Fixed a bug that if the first effect created by TSE is a point effect, it will be affected by the new scale native and rendered it invisible
- Added a disabled theory trigger to showcase that Set Scale does not affect unit-attached effects
- Added an example of register event for both unit and point
- Added SourceUnitAliveCheck --> Solution for an issue discovered in v1.5
- Added OnEvent variables that allowed better readability of OnEvent triggers --> all are READ-ONLY
- MAJOR FIX: Resolve a hidden issue where indexes of TSE are not properly deallocated at times, especially after dealing with instances that has LockInstance = True
- Changed the timer scheme from using the add event to a Countdown Timer based approach due to 1.32+ patches having a limit of 100 Hz
- Point is now preserved into the TSE data if declared and can be accessed via TSE_I_Point
- Added LockInstance capability
- Provided some Recursion safety for the Lock Instance feature, although it is more of additional safety layers
- Fixed a critical bug with the newly added event feature
- Added ability to register triggers on events: OnIndexEvent, OnLoopEvent, OnEndEvent
> OnIndexEvent runs once the system finish indexing (register) all relevant data
> OnLoopEvent runs every TSE_TIMEOUT while the effect is active
> OnEndEvent runs when the system is about to deindex the instance
- Changed TSEUnit to TSETargetUnit
- Added backward compatibility to v1.1 and earlier (TSE_Unit should not be used for those using v1.2 forward)
- Changed TSEMaxIndex to TSE_MaxIndex
- Changed TSEUnitAliveChecks to TSE_I_UnitAliveCheck
- Changed TSEIsChannelings to TSE_I_IsChanneling
- Changed TSESourceUnits to TSE_I_SourceUnit
- Changed TSEChanneledOrderIDs to TSE_I_ChanneledOrderID
- Changed TSEEffects to TSE_I_Effect
- Changed TSERemainingDurs to TSE_I_RemainingDuration
- Changed TSETimeout to TSE_TIMEOUT
- Changed TSERegister to TSE_RegisterTrigger
- Changed TSETargetUnits to TSE_I_TargetUnit
- Changed TSEIndexLoop to TSE_Index
This folder contain variables from past versions that have been deprecated for one reason or another
It is provided as a safety measure when people changed versions of TSE
- [MAJOR] Cannot create a new instance on deallocation
- TSELL__RemainingDuration: Get/Set the remaining time of the effect (yes, set, which means changing this value changes the remaining duration)
- TSELL__LoopTimer: Get/Set the period for each loop execution (yes, set, which means changing this value changes the period of the loop trigger)
- TSELL__Integer: Get/Set a free to use integer variable for your need (yes, set, which means changing this value changes it for the rest of the effect duration)
- TSELL__SpecialEffect: Get control of your effect, so any modification that you want to do to it can easily be done during any of the events
- TSELL__ActiveIndex: Get the index of the instance easily without knowing the detailed intricacies of TimedSpecialEffect
- TSELL__TargetUnit: Get the unit affected by TimedSpecialEffect, returns no unit if TargetUnit is not specified when registering
- TSELL__SourceUnit: Get the registered source unit of this TimedSpecialEffect, returns no unit if SourceUnit is not specified
- TSELL__Point: Get the point of the effect, returns position of TargetUnit when TargetUnit is used
NOTE: Use TSELL__Alloc** (** is the variable name on the above list) when accessing during the Allocation (START) phase
Antares: GetLocationZ and AddSpecialEffectTerrainAligned libraries/snippets
stalkerfox: FollowUnit concept of SpecialEffect
Pyrogasm: RemoveEffect library/snippet
Bribe: RemoveEffect library/snippet
MyPad: v1.x Review
Wrda: v2.x Review and subsequent helps I requested regarding the system compat issues
Almia: TimedEffect library/snippet

Map Specific:
Vinz: Bow Enhancement effects
> Whenever adding new features, provide the arrayless setting and array variant
> OnAllocate, set array to arrayless, and set arrayless to default
> OnDeallocate, set array to default
> If accessible during event phases from user (like Integer), provide arrayless = array with arrayless using two "_"
> If accessible and modifiable, remember to modify the value after the event
TODO:
[POINT]
- TSELL__PositionX to manipulate the effect's X point
- TSELL__PositionY to manipulate the effect's Y point
- TSELL__PositionZ to manipulate the effect's Z point
- TSELL__PositionOffsetX to manipulate the effect's X point offset
- TSELL__PositionOffsetY to manipulate the effect's Y point offset
- TSELL__PositionOffsetZ to manipulate the effect's Z point offset
[UNIT/POINT]
- TSELL__ColorRed to manipulate the effect's color RED
- TSELL__ColorGreen to manipulate the effect's color GREEN
- TSELL__ColorBlue to manipulate the effect's color BLUE
- TSELL__ColorAlpha to manipulate the effect's ALPHA channel
- Update TELL to v1.2 (might have fixed issue with not allowing instances on Deallocation, but need verification before making claims)
- Disabled Theory 2 (forgot this one during Wrda review)
- Default all event triggers to TSELL_EmptyEvent during initialization
- Added new booleans on register (not accessible during events): DestroyEffect, FollowUnit
- DestroyEffect boolean: if TRUE, use DestroyEffect instead of RemoveEffect library (compare Far Sight cloud and Silence cloud for the difference)
- FollowUnit boolean: if TRUE, the special effect is created as a point effect following the unit, allowing greater degree of manipulation (refer to Theory 2 documents)
- TerrainAligned boolean: using Antares' TerrainAligned resources for Point based effect to be created with perfect terrain alignment
- Wrapped TimedEffect inside a library

NOTES:
- FollowUnit updates every TimerForLoop interval, this means for smooth follower the duration should be kept as low as possible, preferably 1/32 which is the default timeout (anything lower will be overriden by TELL Timeout default value)
- fixes an issue with Dealloc not having access to Integer variable
- Fixes a very minor comment error
(this is technically exact same as v2.1.1, just have clearer documentation)
- Cleaned left-overs of TSECompat feature for cleaner and faster code
- Removed support for backward compatibility with TimedSpecialEffect v1.x
>> refer to https://www.hiveworkshop.com/threads/timed-special-effect-v2-0-6.332579/#post-3614576 for more information
MANDATORY UPDATE FOR THOSE WHO USE VERSION 2.X WITH TSECompat TRIGGERS!
- Fixed a major issue with TSECompat
- Fixes TSECompat triggers
- Fix overlooked variables that not pointing to the right data in the allocation
- Final fix on bug from TimedEventLinkedList
- For checking data during allocation (START) phase, use TSELL__Alloc** instead of TSELL__**
- Further fix on the critical bug
- Reduces trigger by removing TSELLEmptyEvent and bind it to TELLEmptyEvent
- Fixed a critical bug from TimedEventLinkedList
[This changelog is compared to v1.7 since v2.0 development began around v1.7 release]
- New Requirement: TimedEventLinkedList (TELL)
- Deprecated LockInstance and variables related to this feature
- Rewrite the entire API of TimedSpecialEffect for better readability
- Point variable is now always usable, and point toward TargetUnit when TargetUnit is defined
- Fixed an issue with TimedSpecialEffect loop that existed within v1.7 version (technically, it is auto fixed due to TELL requirement)
- Additional variable for storing information: TSE_Integer
> It has come to my attention that spells using TSE has a hidden minor issue regarding level handling where the level stored might not be equal to the original level at time of cast if the registration is done long after spell has been cast
> TSE_Integer is added to allow storing a single integer data to resolve this, it can be for level or other uses (specifically data that needs to be passed between effects created at separate times)
> This issue is not present when the data is stored immediately OnIndexEvent (v1.7) during the casting phase of the spell (all past resources with TSE uses this method)
> To be clear, this issue arise when the following scenario happened:
[1] Hero cast ability
[2] Ability only create effect for visual
[3] After a delay, the effect create ANOTHER effect
[4] The ANOTHER effect deals damage based on level after another delay
> It is impossible to get the level at time of cast to attach for effect at [3] since the ability might have been levelled during the delay between [2] and [3]
- Improve effect removal with Pyrogasm RemoveEffect snippet
- Added TSECompat for backward compatibility support (please report if any resources that use TSE v1.x still breaks when you update to TSE v2.x)
> Be aware that TSELL-TSECompat is slower than TSE at the moment
- Added TimedEffectAlmiaCompat
KNOWN ISSUES:
- TSELL is slower due to more overhead compared to TSE v1.x, especially with TELL requirement underneath
> I plan to switch to vJass and remove TELL dependency if possible, but for the moment the overhead can be reduced by removing TSECompat aspect of this resources
- TSE__RemainingDuration can now be modified to alter the remaining duration of the effect
- Fixed a bug that if the first effect created by TSE is a point effect, it will be affected by the new scale native and rendered it invisible
- Added a disabled theory trigger to showcase that Set Scale does not affect unit-attached effects
- Added an example of register event for both unit and point
- Added SourceUnitAliveCheck --> Solution for an issue discovered in v1.5
- Added OnEvent variables that allowed better readability of OnEvent triggers --> all are READ-ONLY
- MAJOR FIX: Resolve a hidden issue where indexes of TSE are not properly deallocated at times, especially after dealing with instances that has LockInstance = True
- Changed the timer scheme from using the add event to a Countdown Timer based approach due to 1.32+ patches having a limit of 100 Hz
- Point is now preserved into the TSE data if declared and can be accessed via TSE_I_Point
- Added LockInstance capability
- Provided some Recursion safety for the Lock Instance feature, although it is more of additional safety layers
- Fixed a critical bug with the newly added event feature
- Added ability to register triggers on events: OnIndexEvent, OnLoopEvent, OnEndEvent
> OnIndexEvent runs once the system finish indexing (register) all relevant data
> OnLoopEvent runs every TSE_TIMEOUT while the effect is active
> OnEndEvent runs when the system is about to deindex the instance
- Changed TSEUnit to TSETargetUnit
- Added backward compatibility to v1.1 and earlier (TSE_Unit should not be used for those using v1.2 forward)
- Changed TSEMaxIndex to TSE_MaxIndex
- Changed TSEUnitAliveChecks to TSE_I_UnitAliveCheck
- Changed TSEIsChannelings to TSE_I_IsChanneling
- Changed TSESourceUnits to TSE_I_SourceUnit
- Changed TSEChanneledOrderIDs to TSE_I_ChanneledOrderID
- Changed TSEEffects to TSE_I_Effect
- Changed TSERemainingDurs to TSE_I_RemainingDuration
- Changed TSETimeout to TSE_TIMEOUT
- Changed TSERegister to TSE_RegisterTrigger
- Changed TSETargetUnits to TSE_I_TargetUnit
- Changed TSEIndexLoop to TSE_Index
TSELLConfig
Events
Game - TELL_InitializationFinish becomes Equal to 1.00
Conditions
Actions
-------- START CONFIG --------
-------- CORE --------
-------- Set to Loop trigger --------
Set Variable Set TSELL_TriggerLoop = TSELLLoop <gen>
-------- Set to Register trigger --------
Set Variable Set TSELL_TriggerRegister = TSELLRegister <gen>
-------- Set to Allocation trigger --------
Set Variable Set TSELL_TriggerAllocation = TSELLAllocation <gen>
-------- Set to Deallocation trigger --------
Set Variable Set TSELL_TriggerDeallocation = TSELLDeallocation <gen>
-------- Set to EmptyEvent trigger --------
Set Variable Set TSELL_EmptyEvent = TELL_TriggerEmptyEvent
-------- DEBUGGING --------
-------- For debugging purposes, default to False --------
-------- If for some reason this is True when you first install to your map, please set to False --------
Set Variable Set TSELL_DebugMode = "false"
-------- END CONFIG --------
-------- Default values for some variables --------
Set Variable Set TSELL_Scale = "1.00"
Set Variable Set TSELL_OnEventAllocate = TSELL_EmptyEvent
Set Variable Set TSELL_OnEventLoop = TSELL_EmptyEvent
Set Variable Set TSELL_OnEventDeallocate = TSELL_EmptyEvent
TSELLRegister
Events
Conditions
Actions
-------- TimedEventLinkedList works by having a specified duration --------
Set Variable Set TELLDuration = TSELL_Duration
-------- OnEventAlloc is equal to OnIndexEvent, where TimedEventLinkedList started to allocate an instance --------
-------- Setting values to be used later on is best done during OnAllocEvent --------
Set Variable Set TELLOnEventAlloc = TSELL_TriggerAllocation
-------- The loop event is triggered every TELLOnEventLoopTimer duration --------
Set Variable Set TELLOnEventLoop = TSELL_TriggerLoop
-------- If OnEventLoopTimer is lower than TimerTIMEOUT, it is automatically set to the timeout value --------
Set Variable Set TELLOnEventLoopTimer = TSELL_TimerForLoop
-------- OnEventDealloc is equal to OnDeindexEvent or OnEndEvent, where the instance has been deallocated and cleaning up can be done --------
-------- NEITHER OnEventLoopTimer NOR Duration CAN BE MODIFIED DURING OnEventDealloc --------
-------- Check the duration during OnEventLoop instead if you need them --------
Set Variable Set TELLOnEventDealloc = TSELL_TriggerDeallocation
-------- Register to system at the end --------
Trigger - Run TELL_TriggerRegister (checking conditions)
TSELLAllocation
Events
Conditions
Actions
Set Variable Set TSELL_MaxIndex = TELL__Index
-------- Register effect instance --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_DebugMode Equal to True
TSELL_TerrainAligned Equal to True
Then - Actions
Game - Display to (All players) the text: |cffff0000Terrain Alignment Detected!|r
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_TargetUnit Not equal to No unit
Then - Actions
Set Variable Set TSELL_Point = (Position of TSELL_TargetUnit)
Set Variable Set TSELL_I_TargetUnitAliveCheck[TSELL_MaxIndex] = TSELL_TargetUnitAliveCheck
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_FollowUnit Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_TerrainAligned Equal to True
Then - Actions
Custom script: set udg_TSELL_I_SpecialEffect[udg_TSELL_MaxIndex] = AddSpecialEffectTerrainAligned(udg_TSELL_EffectName, GetLocationX(udg_TSELL_Point), GetLocationY(udg_TSELL_Point), 0)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_DebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: |cffffff00Follow Unit Aligned|r
Else - Actions
Else - Actions
Special Effect - Create a special effect at TSELL_Point using TSELL_EffectName
Set Variable Set TSELL_I_SpecialEffect[TSELL_MaxIndex] = (Last created special effect)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_DebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: |cff80ff80Normal Follow Unit|r
Else - Actions
Else - Actions
Special Effect - Create a special effect attached to the TSELL_AttachPoint of TSELL_TargetUnit using TSELL_EffectName
Set Variable Set TSELL_I_SpecialEffect[TSELL_MaxIndex] = (Last created special effect)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_DebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: |cff80ff80Normal Unit|r
Else - Actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_TerrainAligned Equal to True
Then - Actions
Custom script: set udg_TSELL_I_SpecialEffect[udg_TSELL_MaxIndex] = AddSpecialEffectTerrainAligned(udg_TSELL_EffectName, GetLocationX(udg_TSELL_Point), GetLocationY(udg_TSELL_Point), 0)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_DebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: |cffffff00Point Aligned|r
Else - Actions
Else - Actions
Special Effect - Create a special effect at TSELL_Point using TSELL_EffectName
Set Variable Set TSELL_I_SpecialEffect[TSELL_MaxIndex] = (Last created special effect)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_DebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: |cff80ff80Normal Point|r
Else - Actions
Set Variable Set TSELL_I_TargetUnitAliveCheck[TSELL_MaxIndex] = "false"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_SourceUnit Not equal to No unit
Then - Actions
Set Variable Set TSELL_I_SourceUnitAliveCheck[TSELL_MaxIndex] = TSELL_SourceUnitAliveCheck
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
TSELL_TargetUnit Equal to No unit
TSELL_FollowUnit Equal to True
Then - Actions
Special Effect - Set Scale of TSELL_I_SpecialEffect[TSELL_MaxIndex] to TSELL_Scale
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_ChanneledOrderID Not equal to
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_SourceUnit Not equal to No unit
Then - Actions
Set Variable Set TSELL_I_IsChanneling[TSELL_MaxIndex] = "true"
Else - Actions
Game - Display to (All players) the text: |cffff0000WARNING: A Channeling Spell without Source Unit detected!|r
Else - Actions
Set Variable Set TSELL_I_SourceUnit[TSELL_MaxIndex] = TSELL_SourceUnit
Set Variable Set TSELL_I_TargetUnit[TSELL_MaxIndex] = TSELL_TargetUnit
Set Variable Set TSELL_I_ChanneledOrderID[TSELL_MaxIndex] = TSELL_ChanneledOrderID
Set Variable Set TSELL_I_OnLoopEvent[TSELL_MaxIndex] = TSELL_OnEventLoop
Set Variable Set TSELL_I_OnLoopTimer[TSELL_MaxIndex] = TSELL_TimerForLoop
Set Variable Set TSELL_I_OnEndEvent[TSELL_MaxIndex] = TSELL_OnEventDeallocate
Set Variable Set TSELL_I_Point[TSELL_MaxIndex] = TSELL_Point
Set Variable Set TSELL_I_Integer[TSELL_MaxIndex] = TSELL_Integer
Set Variable Set TSELL_I_DestroyEffect[TSELL_MaxIndex] = TSELL_DestroyEffect
Set Variable Set TSELL_I_FollowUnit[TSELL_MaxIndex] = TSELL_FollowUnit
Set Variable Set TSELL_I_TerrainAligned[TSELL_MaxIndex] = TSELL_TerrainAligned
-------- OnEvent Variables --------
Set Variable Set TSELL__AllocActiveIndex = TSELL_MaxIndex
Set Variable Set TSELL__AllocRemainingDuration = TELL__AllocDuration
Set Variable Set TSELL__AllocLoopTimer = TELL__AllocLoopTimer
Set Variable Set TSELL__AllocSourceUnit = TSELL_I_SourceUnit[TSELL__AllocActiveIndex]
Set Variable Set TSELL__AllocTargetUnit = TSELL_I_TargetUnit[TSELL__AllocActiveIndex]
Set Variable Set TSELL__AllocPoint = TSELL_I_Point[TSELL__AllocActiveIndex]
Set Variable Set TSELL__AllocSpecialEffect = TSELL_I_SpecialEffect[TSELL__AllocActiveIndex]
Set Variable Set TSELL__AllocInteger = TSELL_I_Integer[TSELL__AllocActiveIndex]
-------- Run OnIndexEvent --------
Trigger - Run TSELL_OnEventAllocate (checking conditions)
Set Variable Set TELL__AllocDuration = TSELL__AllocRemainingDuration
Set Variable Set TELL__AllocLoopTimer = TSELL__AllocLoopTimer
Set Variable Set TSELL_I_Integer[TSELL__AllocActiveIndex] = TSELL__AllocInteger
-------- Clean information for next registration --------
Set Variable Set TSELL__AllocActiveIndex = "0"
Set Variable Set TSELL_TargetUnit = No unit
Set Variable Set TSELL_TargetUnitAliveCheck = "false"
Set Variable Set TSELL_Scale = "1.00"
Set Variable Set TSELL_ChanneledOrderID = ""
Set Variable Set TSELL_SourceUnit = No unit
Set Variable Set TSELL_OnEventAllocate = TSELL_EmptyEvent
Set Variable Set TSELL_OnEventLoop = TSELL_EmptyEvent
Set Variable Set TSELL_TimerForLoop = "0.00"
Set Variable Set TSELL_OnEventDeallocate = TSELL_EmptyEvent
Set Variable Set TSELL_Integer = "0"
Set Variable Set TSELL_DestroyEffect = "false"
Set Variable Set TSELL_FollowUnit = "false"
Set Variable Set TSELL_TerrainAligned = "false"
TSELLLoop
Events
Conditions
Actions
Set Variable Set TSELL_Index = TELL__Index
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_I_TargetUnit[TSELL_Index] Not equal to No unit
Then - Actions
Set Variable Set TSELL__Point = TSELL_I_Point[TSELL_Index]
Custom script: call RemoveLocation(udg_TSELL__Point)
Set Variable Set TSELL_I_Point[TSELL_Index] = (Position of TSELL_I_TargetUnit[TSELL_Index])
Set Variable Set TSELL__Point = TSELL_I_Point[TSELL_Index]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_I_FollowUnit[TSELL_Index] Equal to True
Then - Actions
Special Effect - Set Position of TSELL_I_SpecialEffect[TSELL_Index] to TSELL__Point
Special Effect - Set Position - Z of TSELL_I_SpecialEffect[TSELL_Index] to (Position - Z of TSELL_I_TargetUnit[TSELL_Index])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_I_TerrainAligned[TSELL_Index] Equal to True
Then - Actions
Custom script: call TerrainAlignEffect(udg_TSELL_I_SpecialEffect[udg_TSELL_Index])
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_DebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: (X: + (String((X of TSELL_Point))))
Game - Display to (All players) the text: (Y: + (String((Y of TSELL__Point))))
Game - Display to (All players) the text: (Zu: + (String((Position - Z of TSELL_I_TargetUnit[TSELL_Index]))))
Game - Display to (All players) the text: (Zr: + (String((Position - Z of TSELL__SpecialEffect.))))
Else - Actions
Else - Actions
Else - Actions
-------- OnEvent Variables --------
Set Variable Set TSELL__ActiveIndex = TSELL_Index
Set Variable Set TSELL__RemainingDuration = TELL__Duration
Set Variable Set TSELL__SourceUnit = TSELL_I_SourceUnit[TSELL__ActiveIndex]
Set Variable Set TSELL__TargetUnit = TSELL_I_TargetUnit[TSELL__ActiveIndex]
Set Variable Set TSELL__Point = TSELL_I_Point[TSELL__ActiveIndex]
Set Variable Set TSELL__SpecialEffect = TSELL_I_SpecialEffect[TSELL__ActiveIndex]
Set Variable Set TSELL__Integer = TSELL_I_Integer[TSELL__ActiveIndex]
Set Variable Set TSELL__LoopTimer = TELL__LoopTimer
-------- OnLoopEvent --------
Trigger - Run TSELL_I_OnLoopEvent[TSELL_Index] (checking conditions)
Set Variable Set TELL__Duration = TSELL__RemainingDuration
Set Variable Set TELL__LoopTimer = TSELL__LoopTimer
Set Variable Set TSELL_I_Integer[TSELL__ActiveIndex] = TSELL__Integer
-------- Loop conditional check --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_I_TargetUnitAliveCheck[TSELL_Index] Equal to True
(TSELL_I_TargetUnit[TSELL_Index] is alive) Equal to False
Then - Actions
Set Variable Set TELL__Duration = "0.00"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_I_SourceUnitAliveCheck[TSELL_Index] Equal to True
(TSELL_I_SourceUnit[TSELL_Index] is alive) Equal to False
TSELL_I_SourceUnit[TSELL_Index] Not equal to No unit
Then - Actions
Set Variable Set TELL__Duration = "0.00"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_I_IsChanneling[TSELL_Index] Equal to True
(Current order of TSELL_I_SourceUnit[TSELL_Index]) Not equal to (Order(TSELL_I_ChanneledOrderID[TSELL_Index]))
Then - Actions
Set Variable Set TELL__Duration = "0.00"
Else - Actions
TSELLDeallocation
Events
Conditions
Actions
Set Variable Set TSELL_Index = TELL__Index
-------- OnEvent Variables --------
Set Variable Set TSELL__ActiveIndex = TSELL_Index
Set Variable Set TSELL__RemainingDuration = TELL__Duration
Set Variable Set TSELL__SourceUnit = TSELL_I_SourceUnit[TSELL__ActiveIndex]
Set Variable Set TSELL__TargetUnit = TSELL_I_TargetUnit[TSELL__ActiveIndex]
Set Variable Set TSELL__Point = TSELL_I_Point[TSELL__ActiveIndex]
Set Variable Set TSELL__SpecialEffect = TSELL_I_SpecialEffect[TSELL__ActiveIndex]
Set Variable Set TSELL__Integer = TSELL_I_Integer[TSELL__ActiveIndex]
-------- OnEndEvent --------
Trigger - Run TSELL_I_OnEndEvent[TSELL_Index] (checking conditions)
-------- De-indexing Phase --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TSELL_I_DestroyEffect[TSELL_Index] Equal to True
Then - Actions
Special Effect - Destroy TSELL_I_SpecialEffect[TSELL_Index]
Else - Actions
Custom script: call RemoveEffect(udg_TSELL_I_SpecialEffect[udg_TSELL_Index])
Custom script: call RemoveLocation(udg_TSELL_I_Point[udg_TSELL_Index])
Set Variable Set TSELL_I_ChanneledOrderID[TSELL_Index] = ""
Set Variable Set TSELL_I_IsChanneling[TSELL_Index] = "false"
Set Variable Set TSELL_I_SourceUnit[TSELL_Index] = No unit
Set Variable Set TSELL_I_SourceUnitAliveCheck[TSELL_Index] = "false"
Set Variable Set TSELL_I_TargetUnitAliveCheck[TSELL_Index] = "false"
Set Variable Set TSELL_I_TargetUnit[TSELL_Index] = No unit
Set Variable Set TSELL_I_OnLoopEvent[TSELL_Index] = TSELL_EmptyEvent
Set Variable Set TSELL_I_OnLoopTimer[TSELL_Index] = "0.00"
Set Variable Set TSELL_I_OnEndEvent[TSELL_Index] = TSELL_EmptyEvent
Set Variable Set TSELL_I_Integer[TSELL_Index] = "0"
Set Variable Set TSELL_I_DestroyEffect[TSELL_Index] = "false"
Set Variable Set TSELL_I_FollowUnit[TSELL_Index] = "false"
Set Variable Set TSELL_I_TerrainAligned[TSELL_Index] = "false"
library RemoveEffect
//Destroying an effect always plays its death animation and any associated sounds.
//This library fixes it in a simple way: move the effect to a location where nobody can see or hear it.

//By Pyrogasm, additional help by Bribe
//v1.1

globals
    private real SAFE_X = -3900.
    private real SAFE_Y =  3900.
    private real SAFE_Z = -1000.

    private real TIMESCALE = 10. //doesn't really matter what this is but we set it to > 0 so the animations actually finish
endglobals

function RemoveEffect takes effect e returns nothing
    call BlzSetSpecialEffectAlpha(e, 255)
    call BlzSetSpecialEffectZ(e, SAFE_Z)
    call BlzSetSpecialEffectPosition(e, SAFE_X, SAFE_Y, SAFE_Z)
    call BlzSetSpecialEffectTimeScale(e, TIMESCALE)
    call DestroyEffect(e)
endfunction
endlibrary
library GetLocZ
    globals
        private location moveableLoc = Location(0, 0)
    endglobals

    function GetLocZ takes real x, real y returns real
        call MoveLocation(moveableLoc, x, y)
        return GetLocationZ(moveableLoc)
    endfunction
endlibrary


library AddSpecialEffectTerrainAligned requires GetLocZ
    function AddSpecialEffectTerrainAligned takes string effectPath, real x, real y, real yaw returns effect
        local effect newEffect = AddSpecialEffect(effectPath, x, y)
        local real dzdx = (GetLocZ(x + 1, y) - GetLocZ(x - 1, y))/2
        local real dzdy = (GetLocZ(x, y + 1) - GetLocZ(x, y - 1))/2
        local real nx = -dzdx
        local real ny = -dzdy
        local real totalAngle = Acos(1/SquareRoot(nx*nx + ny*ny + 1))
        local real phiNormal = Atan2(ny, nx)
        local real pitch = totalAngle*Cos(yaw - phiNormal)
        local real roll = totalAngle*Sin(yaw - phiNormal)

        call BlzSetSpecialEffectOrientation(newEffect, yaw, pitch, roll)

        return newEffect
    endfunction

    function TerrainAlignEffect takes effect whichEffect returns nothing
        local real x = BlzGetLocalSpecialEffectX(whichEffect)
        local real y = BlzGetLocalSpecialEffectY(whichEffect)
        local real dzdx = (GetLocZ(x + 1, y) - GetLocZ(x - 1, y))/2
        local real dzdy = (GetLocZ(x, y + 1) - GetLocZ(x, y - 1))/2
        local real nx = -dzdx
        local real ny = -dzdy
        local real totalAngle = Acos(1/SquareRoot(nx*nx + ny*ny + 1))
        local real phiNormal = Atan2(ny, nx)
        local real pitch = totalAngle*Cos(-phiNormal)
        local real roll = totalAngle*Sin(-phiNormal)

        call BlzSetSpecialEffectOrientation(whichEffect, 0, pitch, roll)
    endfunction


endlibrary
//Place these functions at map header (Jass) or in a library/module (vJass)
library TimedEffect
function CreateTimedEffectOnUnit takes string mdl, unit target, string attach, real duration returns nothing
	set udg_TSELL_EffectName = mdl
	set udg_TSELL_TargetUnit = target
	set udg_TSELL_AttachPoint = attach
	set udg_TSELL_Duration = duration
	call ConditionalTriggerExecute( udg_TSELL_TriggerRegister )
endfunction

function CreateTimedEffectOnLoc takes string mdl, real x, real y, real duration returns nothing
	set udg_TSELL_EffectName = mdl
	set udg_TSELL_Point = Location(x,y)
	set udg_TSELL_Duration = duration
	call ConditionalTriggerExecute( udg_TSELL_TriggerRegister )
endfunction
endlibrary
TSELLSampleRegisterUnit
Events
Conditions
Actions
-------- CORE --------
-------- TSELL_Duration is the duration of the effect --------
Set Variable Set TSELL_Duration = "10.00"
-------- TSELL_TargetUnit determine which unit has this effect attached --------
Set Variable Set TSELL_TargetUnit = (Triggering unit)
-------- TSELL_AttachPoint is only used in conjunction with TargetUnit to determine in which part of unit it is placed --------
Set Variable Set TSELL_AttachPoint = "left hand"
-------- TSELL_EffectName is the string to the effect file --------
Set Variable Set TSELL_EffectName = "war3mapImported/Soul Bow Enchantment Necro.mdx"
-------- EXTENSION --------
-------- TSELL_TargetUnitAliveCheck refers to whether the attached effect account whether the unit is alive or not --------
Set Variable Set TSELL_TargetUnitAliveCheck = "false"
-------- TSELL_SourceUnit refers to the source of the buff, useful if the TargetUnit and SourceUnit are two different units --------
Set Variable Set TSELL_SourceUnit = (Triggering unit)
-------- TSELL_SourceUnitAliveCheck whether the SourceUnit must be alive or not --------
Set Variable Set TSELL_SourceUnitAliveCheck = "false"
-------- TSELL_ChanneledOrderID is used for buff tied with channeling spells --------
-------- The buff immediately ceased if the channeling spell ends --------
Set Variable Set TSELL_ChanneledOrderID = "blizzard"
-------- TSELL_ChanneledOrderID is used for buff tied with channeling spells --------
-------- TSELL_OnEventAllocate is an event that runs when the effect is created (directly at moment of effect creation). Refer to data with TSELL__ActiveIndex. --------
Set Variable Set TSELL_OnEventAllocate = TSELL_OnEventAllocate
-------- TSELL_OnEventLoop is an event that runs every TSELL_TimerForLoop seconds. Refer to data with TSELL__ActiveIndex. --------
Set Variable Set TSELL_OnEventLoop = TSELL_OnEventLoop
-------- TSELL_TimerForLoop is the duration between each tick of the loop --------
-------- Setting this allows better control over the OnLoopEvent instead of dealing with TELL_TimerTIMEOUT global --------
-------- This variable cannot be lower than TELL_TimerTIMEOUT --------
Set Variable Set TSELL_TimerForLoop = "1.00"
-------- TSELL_OnEventDeallocate is an event that runs when the effect is about to be destroyed. Refer to data with TSELL__ActiveIndex. --------
Set Variable Set TSELL_OnEventDeallocate = TSELL_OnEventDeallocate
-------- TSELL_Integer for storing an integer data for future use of this instance. Refer to data put here with TSELL__Integer. --------
Set Variable Set TSELL_Integer = "0"
-------- TSELL_DestroyEffect --------
-------- If set to TRUE, the effect is destroyed instead of being removed --------
-------- Default to FALSE to take advantage of RemoveEffect --------
Set Variable Set TSELL_DestroyEffect = "false"
-------- TSELL_FollowUnit --------
-------- If set to TRUE, the effect is placed as if it is a point effect --------
-------- The effect default position is the position of unit at ground level (Z=0) --------
-------- This gives higher degree of triggering freedom, but disables AttachmentPoint --------
-------- Default to FALSE to avoid confusion for newcomers --------
Set Variable Set TSELL_FollowUnit = "false"
-------- ===================================================== --------
-------- BELOW THIS LINE IS ONLY AVAILABLE IF FollowUnit IS SET TO TRUE --------
-------- ===================================================== --------
-------- TSELL_TerrainAligned --------
-------- If set to TRUE, the effect is adjusted to terrain elevation --------
-------- Default to FALSE to avoid confusion --------
Set Variable Set TSELL_TerrainAligned = "false"
-------- TSELL_Scale for scaling the effect (point-based only) --------
Set Variable Set TSELL_Scale = "1.00"
-------- END --------
-------- After all core variables are set, run TSELL_RegisterTrigger --------
Trigger - Run TSELL_TriggerRegister (checking conditions)
TSELLSampleRegisterPoint
Events
Conditions
Actions
-------- CORE --------
-------- TSELL_Duration is the duration of the effect --------
Set Variable Set TSELL_Duration = "16.00"
-------- TSELL_EffectName is the string to the effect file --------
Set Variable Set TSELL_EffectName = "Abilities\Spells\Human\CloudOfFog\CloudOfFog.mdl"
-------- TSELL_Point is the position of the effect created --------
Set Variable Set TSELL_Point = (Target point of ability being cast)
-------- TSELL_Scale for scaling the effect (point-based only) --------
Set Variable Set TSELL_Scale = "1.00"
-------- EXTENSION --------
-------- TSELL_SourceUnit refers to the source of the buff, useful if the TargetUnit and SourceUnit are two different units --------
Set Variable Set TSELL_SourceUnit = (Triggering unit)
-------- TSELL_SourceUnitAliveCheck whether the SourceUnit must be alive or not --------
Set Variable Set TSELL_SourceUnitAliveCheck = "false"
-------- TSELL_ChanneledOrderID is used for buff tied with channeling spells --------
-------- The buff immediately ceased if the channeling spell ends --------
Set Variable Set TSELL_ChanneledOrderID = "blizzard"
-------- TSELL_ChanneledOrderID is used for buff tied with channeling spells --------
-------- TSELL_OnEventAllocate is an event that runs when the effect is created (directly at moment of effect creation). Refer to data with TSELL__ActiveIndex. --------
Set Variable Set TSELL_OnEventAllocate = TSELL_OnEventAllocate
-------- TSELL_OnEventLoop is an event that runs every TSELL_TimerForLoop seconds. Refer to data with TSELL__ActiveIndex. --------
Set Variable Set TSELL_OnEventLoop = TSELL_OnEventLoop
-------- TSELL_TimerForLoop is the duration between each tick of the loop --------
-------- Setting this allows better control over the OnLoopEvent instead of dealing with TELL_TimerTIMEOUT global --------
-------- This variable cannot be lower than TELL_TimerTIMEOUT --------
Set Variable Set TSELL_TimerForLoop = "1.00"
-------- TSELL_OnEventDeallocate is an event that runs when the effect is about to be destroyed. Refer to data with TSELL__ActiveIndex. --------
Set Variable Set TSELL_OnEventDeallocate = TSELL_OnEventDeallocate
-------- TSELL_Integer for storing an integer data for future use of this instance. Refer to data put here with TSELL__Integer. --------
Set Variable Set TSELL_Integer = "0"
-------- TSELL_DestroyEffect --------
-------- If set to TRUE, the effect is destroyed instead of being removed --------
-------- Default to FALSE to take advantage of RemoveEffect --------
Set Variable Set TSELL_DestroyEffect = "false"
-------- TSELL_TerrainAligned --------
-------- If set to TRUE, the effect is adjusted to terrain elevation --------
-------- Default to FALSE to avoid confusion --------
Set Variable Set TSELL_TerrainAligned = "false"
-------- END --------
-------- After all core variables are set, run TSE_RegisterTrigger --------
Trigger - Run TSELL_TriggerRegister (checking conditions)
- Added a reset of TELL__Index before Deallocation section is executed (CRITICAL: Fix a bug that occurs when creating an instance on 0.00 TELL duration)
- Shifted all TELLLoop trigger variables to use TELL_TempID instead of TELL__Index for additional safety layer against TELL__Index accidental manipulations (since it is meant as a getter, but some people might thought they can set it by accident)
- The '_' in variables indicate their accessibility:
> no '_' = register variable only
> '_' = DO NOT TOUCH AT ALL COST
> '__' = OnEventAllocate, OnEventLoop, and OnEventDealloc variables
- Fix a critical bug when instantiating an instance inside another instance (a major bug for TimedSpecialEffect)
- During Allocation, use the TELL__Alloc** instead of TELL__** variables when using setters! TELL__Index is safe for use during Allocation
TELLConfig
Events
Map initialization
Conditions
Actions
-------- Naturally, this event runs before the system starts registering --------
-------- Might be useful for some specific cases --------
Set Variable Set TELL_InitializationFinish = "0.50"
Set Variable Set TELL_InitializationFinish = "0.00"
-------- START CONFIG --------
-------- The register trigger of TimedEventLinkedList --------
Set Variable Set TELL_TriggerRegister = TELLRegister <gen>
-------- The loop trigger of TimedEventLinkedList --------
Set Variable Set TELL_TriggerLoop = TELLLoop <gen>
-------- The empty trigger of TimedEventLinkedList --------
Set Variable Set TELL_TriggerEmptyEvent = TELLEmptyEvent <gen>
-------- A global timeout used by TimedEventLinkedList --------
-------- It is recommended to keep this at low values, since this is the global system timer --------
-------- The default value is 1/32 which is a commonly-used value for Hive Spell Section --------
Set Variable Set TELL_TimerTIMEOUT = (1 / 32.00)
-------- END CONFIG --------
-------- Initialize register variables default values --------
Set Variable Set TELLDuration = "0.00"
Set Variable Set TELLOnEventAlloc = TELL_TriggerEmptyEvent
Set Variable Set TELLOnEventLoop = TELL_TriggerEmptyEvent
Set Variable Set TELLOnEventLoopTimer = "0.00"
Set Variable Set TELLOnEventDealloc = TELL_TriggerEmptyEvent
-------- System that depends on TimedEventLinkedList should be initialized with the following event --------
-------- This ensure that the core of the system has been initialized properly --------
Set Variable Set TELL_InitializationFinish = "1.00"
Set Variable Set TELL_InitializationFinish = "0.00"
-------- DEBUG MODE --------
Set Variable Set TELLDebugMode = "false"
TELLRegister
Events
Conditions
Actions
Set Variable Set TELL_Instance = (TELL_Instance + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELL_Instance Equal to 1
Then - Actions
Countdown Timer - Start TELL_Timer as a Repeating timer that will expire in TELL_TimerTIMEOUT seconds
Trigger - Turn on TELL_TriggerLoop
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELL_RecycleSize Equal to 0
Then - Actions
Set Variable Set TELL_MaxIndex = (TELL_MaxIndex + 1)
Set Variable Set TELL_RegisterID = TELL_MaxIndex
Else - Actions
Set Variable Set TELL_RecycleSize = (TELL_RecycleSize - 1)
Set Variable Set TELL_RegisterID = TELL_RecycleStack[TELL_RecycleSize]
Set Variable Set TELL_Next[TELL_RegisterID] = "0"
Set Variable Set TELL_Next[TELL_Last] = TELL_RegisterID
Set Variable Set TELL_Prev[TELL_RegisterID] = TELL_Last
Set Variable Set TELL_Last = TELL_RegisterID
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELLDebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: (ALLOC + (String(TELL_RegisterID)))
Else - Actions
-------- Set data here --------
-------- For convenience, TELL_TempID is renamed into TELL__Index to reduce confusion for end users --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELLOnEventLoopTimer Less than or equal to TELL_TimerTIMEOUT
Then - Actions
Set Variable Set TELLOnEventLoopTimer = TELL_TimerTIMEOUT
Else - Actions
Set Variable Set TELL__Index = TELL_RegisterID
Set Variable Set TELL_Duration[TELL__Index] = TELLDuration
Set Variable Set TELL_OnEventLoop[TELL__Index] = TELLOnEventLoop
Set Variable Set TELL_OnEventLoopTimer[TELL__Index] = TELLOnEventLoopTimer
Set Variable Set TELL_OnEventLoopDuration[TELL__Index] = TELLOnEventLoopTimer
Set Variable Set TELL_OnEventDealloc[TELL__Index] = TELLOnEventDealloc
-------- Accessibles --------
Set Variable Set TELL__AllocDuration = TELL_Duration[TELL__Index]
Set Variable Set TELL__AllocLoopTimer = TELL_OnEventLoopTimer[TELL__Index]
Trigger - Run TELLOnEventAlloc (checking conditions)
-------- Accessibles Update --------
Set Variable Set TELL_Duration[TELL_RegisterID] = TELL__AllocDuration
Set Variable Set TELL_OnEventLoopTimer[TELL_RegisterID] = TELL__AllocLoopTimer
-------- END --------
-------- Reset values --------
Set Variable Set TELLDuration = "0.00"
Set Variable Set TELLOnEventAlloc = TELL_TriggerEmptyEvent
Set Variable Set TELLOnEventLoop = TELL_TriggerEmptyEvent
Set Variable Set TELLOnEventLoopTimer = "0.00"
Set Variable Set TELLOnEventDealloc = TELL_TriggerEmptyEvent
TELLLoop
Events
Time - TELL_Timer expires
Conditions
Actions
Set Variable Set TELL_TempID = "0"
For each (Integer TELL_InstanceIterator ) from 1 to TELL_Instance , do (Actions)
Loop - Actions
Set Variable Set TELL_TempID = TELL_Next[TELL_TempID]
-------- Safeguard against null access --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELL_TempID Equal to 0
Then - Actions
Skip remaining actions
Else - Actions
-------- Data manipulation here --------
Set Variable Set TELL_Duration[TELL_TempID] = (TELL_Duration[TELL_TempID] - TELL_TimerTIMEOUT)
Set Variable Set TELL_OnEventLoopDuration[TELL_TempID] = (TELL_OnEventLoopDuration[TELL_TempID] - TELL_TimerTIMEOUT)
-------- For convenience, TELL_TempID is renamed into TELL__Index to reduce confusion for end users --------
Set Variable Set TELL__Index = TELL_TempID
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELL_OnEventLoopDuration[TELL_TempID] Less than or equal to 0.00
Then - Actions
-------- Accessibles --------
Set Variable Set TELL__Duration = TELL_Duration[TELL_TempID]
Set Variable Set TELL__LoopTimer = TELL_OnEventLoopTimer[TELL_TempID]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELLDebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: (LOOP + (String(TELL_TempID)))
Else - Actions
Trigger - Run TELL_OnEventLoop[TELL_TempID] (checking conditions)
-------- Accessibles Update --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELLDebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: (AFTER EVENT + (String(TELL_TempID)))
Else - Actions
Set Variable Set TELL_OnEventLoopTimer[TELL_TempID] = TELL__LoopTimer
Set Variable Set TELL_Duration[TELL_TempID] = TELL__Duration
Set Variable Set TELL_OnEventLoopDuration[TELL_TempID] = TELL_OnEventLoopTimer[TELL_TempID]
Else - Actions
-------- End data manipulation --------
-------- TELL__Index MUST be reset to TELL_TempID in case instance creation is done during OnLoopEvent --------
Set Variable Set TELL__Index = TELL_TempID
-------- Same goes for all accessibles --------
Set Variable Set TELL__Duration = TELL_Duration[TELL_TempID]
Set Variable Set TELL__LoopTimer = TELL_OnEventLoopTimer[TELL_TempID]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELL_Duration[TELL_TempID] Less than or equal to 0.00
Then - Actions
-------- Instance dealloc --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELLDebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: (DEALLOC + (String(TELL_TempID)))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELL_Last Equal to TELL_TempID
Then - Actions
Set Variable Set TELL_Last = TELL_Prev[TELL_TempID]
Else - Actions
Set Variable Set TELL_RecycleStack[TELL_RecycleSize] = TELL_TempID
Set Variable Set TELL_RecycleSize = (TELL_RecycleSize + 1)
Set Variable Set TELL_Next[TELL_Prev[TELL_TempID]] = TELL_Next[TELL_TempID]
Set Variable Set TELL_Prev[TELL_Next[TELL_TempID]] = TELL_Prev[TELL_TempID]
Set Variable Set TELL_Instance = (TELL_Instance - 1)
Trigger - Run TELL_OnEventDealloc[TELL_TempID] (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELL_Instance Equal to 0
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
TELLDebugMode Equal to True
Then - Actions
Game - Display to (All players) the text: No Instance
Else - Actions
Trigger - Turn off (This trigger)
Countdown Timer - Pause TELL_Timer
Else - Actions
Else - Actions
TELLEmptyEvent
Events
Conditions
Actions
TELLSampleTrigger
Events
Conditions
Actions
-------- TimedEventLinkedList works by having a specified duration --------
Set Variable Set TELLDuration = "0.00"
-------- OnEventAlloc is equal to OnIndexEvent, where TimedEventLinkedList started to allocate an instance --------
-------- Setting values to be used later on is best done during OnAllocEvent --------
Set Variable Set TELLOnEventAlloc = TELL_TriggerEmptyEvent
-------- The loop event is triggered every TELLOnEventLoopTimer duration --------
Set Variable Set TELLOnEventLoop = TELL_TriggerEmptyEvent
-------- If OnEventLoopTimer is lower than TimerTIMEOUT, it is automatically set to the timeout value --------
Set Variable Set TELLOnEventLoopTimer = "0.00"
-------- OnEventDealloc is equal to OnDeindexEvent or OnEndEvent, where the instance has been deallocated and cleaning up can be done --------
-------- NEITHER OnEventLoopTimer NOR Duration CAN BE MODIFIED DURING OnEventDealloc --------
-------- Check the duration during OnEventLoop instead if you need them --------
Set Variable Set TELLOnEventDealloc = TELL_TriggerEmptyEvent
-------- Register to system at the end --------
Trigger - Run TELL_TriggerRegister (checking conditions)
GUI Spell System by Bribe from HiveWorkshop.com
version 1.6.1.0

The main goal of this system is to have organized, readable, intuitive spells that don't have to have the same components rewritten for each spell.

To set up a spell to work with this system, there are a few necessary things to keep in mind. You must have a configuration trigger with the event "map initialization" to set up the spell. You must set the ability you base your spell on to the variable Spell__Ability. You must set the trigger(s) you want to run during an event of the spell to a Spell__Trigger_OnEvent variable. Finally, you must run the trigger Spell System <gen> once all of your variables are set.

Each configuration for a spell is going to include a minimum of this (though you only need one of the four Spell__Trigger_OnEvent variables):

Spell Configuration
Events
Map initialization
Conditions
Actions
Set Spell__Ability = <Your Ability>

Set Spell__Trigger_OnChannel = <When a unit starts channeling an ability>
Set Spell__Trigger_OnCast = <When a unit starts casting an ability>
Set Spell__Trigger_OnEffect = <When a unit starts the effect of an ability>
Set Spell__Trigger_OnFinish = <When a unit stops casting an ability>

Trigger - Run Spell System <gen> (ignoring conditions)

Unlike the configuration trigger, an event trigger isn't required to do anything specific with its variables. Here is what you need for an OnEvent trigger:

OnEvent Trigger
Events
Conditions
Actions

For a full list of configurable variables and functional variables, review the two triggers under "Sample Triggers" in the GUI Spell System trigger category on the left sidebar. I've commented the code wherever I've felt it was needed, though I can add more if requested. For those savvy in JASS, there are a load of comments in the all-JASS Spell System trigger.
Spell System Config
Events
Conditions
Actions
-------- Only one dummy unit type is needed as you can attach an effect to it of any kind --------
-------- --------
Set Variable Set Spell__DummyType = "n00D"
Set Variable Set Spell__DummyOwner = Neutral Extra
Set Variable Set Spell__Interval = (1 / 32.00)
-------- --------
-------- Configure default values for the unit filter: --------
-------- --------
Set Variable Set Spell__Filter_AllowEnemy = "true"
Set Variable Set Spell__Filter_AllowLiving = "true"
Set Variable Set Spell__Filter_AllowHero = "true"
Set Variable Set Spell__Filter_AllowNonHero = "true"
Set Variable Set Spell__Filter_AllowAlly = "false"
Set Variable Set Spell__Filter_AllowDead = "false"
Set Variable Set Spell__Filter_AllowFlying = "false"
Set Variable Set Spell__Filter_AllowMechanical = "false"
Set Variable Set Spell__Filter_AllowStructure = "false"
-------- --------
-------- Magic immunity is a great thing to block, as it also discludes invulnerable units from being picked --------
-------- --------
Set Variable Set Spell__Filter_AllowMagicImmune = "false"
-------- --------
-------- Normal WC3 abilities, like Channel, wake sleeping creeps - even if they don't deal damage or apply buffs. --------
-------- Because of this, I provided an option to wake up creeps when they are enumerated by an InRange command. --------
-------- --------
Set Variable Set Spell__WakeTargets = "true"
-------- --------
-------- Do not enable the following lines as they are variable declarations which make copying this system easier --------
-------- --------
Set Variable Set Spell_i_Level[(Integer(Spell__LevelMultiplier))] = (Spell__Level + (Player number of Spell__CasterOwner))
Set Variable Set Spell_i_TargetX[(Integer(Spell_i_TargetY[(Integer(Spell_i_Time[(Integer(Spell__Time))]))]))] = ((X of Spell__CastPoint) + (X of Spell__TargetPoint))
Set Variable Set Spell__Caster = Spell_i_Caster[(Custom value of Spell_i_Target[(Custom value of Spell__Target)])]
Unit Group - Add all units of Spell_i_TargetGroup[0] to Spell__TargetGroup
Set Variable Set Spell__Running = Spell__UseTargetGroup
Set Variable Set Spell__Completed = Spell_i_UseTG[Spell_i_Level[(Integer((Elapsed time for Spell_i_Timer)))]]
Set Variable Set Spell_i_Completed[0] = Spell_i_Linked[Spell_i_EventType[0]]
Set Variable Set Spell__Trigger_OnLoop = Spell_i_OnLoopStack[(Load 0 of 0 from Spell__Hash.)]
Set Variable Set Spell__Trigger_OnFinish = Spell_i_OnFinishStack[Spell__Index]
Set Variable Set Spell__Trigger_OnEffect = Spell_i_OnEffectStack[0]
Set Variable Set Spell__Trigger_OnChannel = Spell_i_OnChannelStack[0]
Set Variable Set Spell__Trigger_OnCast = Spell_i_OnCastStack[Spell_i_Recycle]
Set Variable Set Spell_i_Instances = Spell_i_Head[Spell_i_RecycleList[Spell_i_Stack[Spell_i_StackRef[Spell_i_StackN]]]]
Set Variable Set Spell_i_PreloadDummy = No unit
Set Variable Set Spell__Ability = Spell_i_Abil[0]
Set Variable Set Spell__InRangeGroup = (Units within Spell__InRange of Spell__InRangePoint.)
Set Variable Set Spell_i_AllowAlly[0] = Spell__Filter_AllowAlly
Set Variable Set Spell_i_AllowDead[0] = Spell__Filter_AllowDead
Set Variable Set Spell_i_AllowEnemy[0] = Spell__Filter_AllowEnemy
Set Variable Set Spell_i_AllowFlying[0] = Spell__Filter_AllowFlying
Set Variable Set Spell_i_AllowHero[0] = Spell__Filter_AllowHero
Set Variable Set Spell_i_AllowMagicImmune[0] = Spell__Filter_AllowMagicImmune
Set Variable Set Spell_i_AllowMechanical[0] = Spell__Filter_AllowMechanical
Set Variable Set Spell_i_AllowNonHero[0] = Spell__Filter_AllowNonHero
Set Variable Set Spell_i_AllowStructure[0] = Spell__Filter_AllowStructure
Set Variable Set Spell_i_AllowLiving[0] = Spell__Filter_AllowLiving
Set Variable Set Spell__Channeling = Spell_i_Channeling[0]
Set Variable Set Spell_i_GroupN = (Number of units in Spell_i_GroupStack[0])
Set Variable Set Spell__InRangeUnits[Spell__InRangeCount] = No unit
Set Variable Set Spell__Duration = (Spell_i_Duration[(Integer(Spell__DurationPerLevel))] + Spell_i_LastTime[0])
Set Variable Set Spell__Expired = Spell__StartDuration
Set Variable Set Spell__InRangeMax = ((Supply used by Spell__InRangeUnit) + ((Evaluation count of Spell__Trigger_InRangeFilter) + (Evaluation count of Spell_i_InRangeFilter[0])))
Set Variable Set Spell__AutoAddTargets = Spell_i_AutoAddTargets[0]
Set Variable Set Spell__BuffOrder = Spell_i_BuffOrder[0]
Set Variable Set Spell__BuffAbility = Spell_i_BuffAbil[0]
function SpellIndexGetVars takes integer i returns nothing
    set udg_Spell__Ability = udg_Spell_i_Abil[udg_Spell_i_Head[i]]
    set udg_Spell__Index = i
    set udg_Spell__Caster = udg_Spell_i_Caster[i]
    set udg_Spell__CasterOwner = GetOwningPlayer(udg_Spell__Caster)
    set udg_Spell__Level = udg_Spell_i_Level[i]
    set udg_Spell__LevelMultiplier = udg_Spell__Level //Spell__LevelMultiplier is a real variable.
    set udg_Spell__Target = udg_Spell_i_Target[i]
    
    //Magic to ensure the locations never leak.
    call MoveLocation(udg_Spell__CastPoint, GetUnitX(udg_Spell__Caster), GetUnitY(udg_Spell__Caster))
    if udg_Spell__Target == null then
        call MoveLocation(udg_Spell__TargetPoint, udg_Spell_i_TargetX[i], udg_Spell_i_TargetY[i])
    else
        call MoveLocation(udg_Spell__TargetPoint, GetUnitX(udg_Spell__Target), GetUnitY(udg_Spell__Target))
    endif
    set udg_Spell__TargetGroup = udg_Spell_i_TargetGroup[i]
    set udg_Spell__Completed = udg_Spell_i_Completed[i]
    set udg_Spell__Channeling = udg_Spell_i_Channeling[i]
endfunction

function SpellSetFilters takes integer i returns nothing
    set udg_Spell_i_AllowEnemy[i]       = udg_Spell__Filter_AllowEnemy
    set udg_Spell_i_AllowAlly[i]        = udg_Spell__Filter_AllowAlly
    set udg_Spell_i_AllowDead[i]        = udg_Spell__Filter_AllowDead
    set udg_Spell_i_AllowLiving[i]      = udg_Spell__Filter_AllowLiving
    set udg_Spell_i_AllowMagicImmune[i] = udg_Spell__Filter_AllowMagicImmune
    set udg_Spell_i_AllowMechanical[i]  = udg_Spell__Filter_AllowMechanical
    set udg_Spell_i_AllowStructure[i]   = udg_Spell__Filter_AllowStructure
    set udg_Spell_i_AllowFlying[i]      = udg_Spell__Filter_AllowFlying
    set udg_Spell_i_AllowHero[i]        = udg_Spell__Filter_AllowHero
    set udg_Spell_i_AllowNonHero[i]     = udg_Spell__Filter_AllowNonHero
endfunction

function SpellIndexDestroy takes integer i returns nothing
    local integer indexOf
    local integer index
    if udg_Spell_i_RecycleList[i] >= 0 then
        return
    endif
    //If the caster is still channeling on the spell, don't destroy until it's finished:
    if not udg_Spell_i_Channeling[i] then
        set index = udg_Spell_i_Head[i]
        set udg_Spell_i_RecycleList[i] = udg_Spell_i_Recycle
        set udg_Spell_i_Recycle = i
        
        //Reset things to defaults:
        set udg_Spell_i_Time[i] = 0.00
        set udg_Spell_i_LastTime[i] = 0.00
        set udg_Spell_i_Duration[i] = 0.00
        set udg_Spell_i_Completed[i] = false
        set udg_Spell_i_Caster[i] = null
        set udg_Spell_i_Target[i] = null
        set udg_Spell_i_OnLoopStack[i] = null
        
        //Recycle any applicable target unit group.
        if udg_Spell_i_TargetGroup[i] != null then
            call GroupClear(udg_Spell_i_TargetGroup[i])
            set udg_Spell_i_GroupStack[udg_Spell_i_GroupN] = udg_Spell_i_TargetGroup[i]
            set udg_Spell_i_GroupN = udg_Spell_i_GroupN + 1
            set udg_Spell_i_TargetGroup[i] = null
        endif
        
        //Clear any user-specified data in the hashtable:
        call FlushChildHashtable(udg_Spell__Hash, i)
        //call BJDebugMsg("Destroying index: " + I2S(i))
    endif
    
    set indexOf = udg_Spell_i_StackRef[i]
    if indexOf >= 0 then
        set index = udg_Spell_i_StackN - 1
        set udg_Spell_i_StackN = index
        
        set udg_Spell_i_StackRef[udg_Spell_i_Stack[index]] = indexOf
        set udg_Spell_i_Stack[indexOf] = udg_Spell_i_Stack[index]
        if index == 0 then
            //If no more spells require the timer, pause it.
            call PauseTimer(udg_Spell_i_Timer)
        endif
        set udg_Spell_i_StackRef[i] = -1
    endif
endfunction

function SpellTriggerExecute takes integer i, trigger t returns real
    local real d = udg_Spell_i_Duration[i]
    local boolean b = false
    set udg_Spell__Duration = d
    set udg_Spell__Time = 0.00
    if t != null then
        set udg_Spell__Trigger_OnLoop = null
        set udg_Spell__Expired = d <= 0.00 //If the duration is <= 0, the spell has expired.
        call SpellIndexGetVars(i)
        if TriggerEvaluate(t) then
            call TriggerExecute(t)
        endif
        if udg_Spell__Trigger_OnLoop != null then
            set udg_Spell_i_OnLoopStack[i] = udg_Spell__Trigger_OnLoop
        endif
        //The remaining lines in this function process the duration specified by the user.
        if udg_Spell__StartDuration then
            set udg_Spell__StartDuration = false
            set udg_Spell__Duration = udg_Spell_i_Duration[udg_Spell_i_Head[i]] + udg_Spell_i_LastTime[udg_Spell_i_Head[i]]*udg_Spell__LevelMultiplier
        elseif (udg_Spell__Expired and d > 0.00) or (udg_Spell__Duration <= 0.00) then
            set udg_Spell__Duration = 0.00
            return udg_Spell__Time
            //The user manually expired the spell or the spell duration ended on its own.
        endif
        if d != udg_Spell__Duration then
            //A new duration has been assigned
            set d = udg_Spell__Duration
            set b = true
        endif
        set udg_Spell__Duration = 0.00
        if udg_Spell__Time == 0.00 then
            if udg_Spell_i_LastTime[i] == 0.00 then
                if udg_Spell_i_Time[udg_Spell_i_Head[i]] > 0.00 then
                    //The user specified a default interval to follow:
                    set udg_Spell__Time = udg_Spell_i_Time[udg_Spell_i_Head[i]]
                else
                    //Set the spell time to the minimum.
                    set udg_Spell__Time = udg_Spell__Interval
                endif
            else
                //Otherwise, set it to what it was before.
                set udg_Spell__Time = udg_Spell_i_LastTime[i]
            endif
        //else, the user is specifying a new time for the spell.
        endif
        set udg_Spell_i_LastTime[i] = udg_Spell__Time //Whatever the case, remember this time for next time.
        if b then
            //The duration was just assigned
            set udg_Spell_i_Duration[i] = d
        else
            //The duration has been ongoing
            set udg_Spell_i_Duration[i] = d - udg_Spell__Time
        endif
    endif
    return udg_Spell__Time
endfunction

//===========================================================================
// Runs every Spell__Interval seconds and handles all of the timed events.
// 
function SpellTimerLoop takes nothing returns nothing
    local integer i = udg_Spell_i_StackN
    local integer node
    local real time
    set udg_Spell__Running = true
    
    //Run stack top to bottom to avoid skipping slots when destroying.
    loop
        set i = i - 1
        exitwhen i < 0
        set node = udg_Spell_i_Stack[i]
        set time = udg_Spell_i_Time[node] - udg_Spell__Interval
        if time <= 0.00 then
            set time = SpellTriggerExecute(node, udg_Spell_i_OnLoopStack[node])
        endif
        if time <= 0.00 then
            call SpellIndexDestroy(node)
        else
            set udg_Spell_i_Time[node] = time
        endif
    endloop
    set udg_Spell__Running = false
endfunction

//===========================================================================
// This is the meat of the system as it handles the event responses.
// 
function RunSpellEvent takes nothing returns boolean
    local boolean b
    local integer aid = GetSpellAbilityId()
    local integer head = LoadInteger(udg_Spell__Hash, 0, aid)
    local integer i
    local integer id
    local trigger t
    local playerunitevent eid
    if head == 0 then
        //Nothing for this ability has been registered. Skip the sequence.
        return false
    endif
    set eid = ConvertPlayerUnitEvent(GetHandleId(GetTriggerEventId()))
    set udg_Spell__Caster = GetTriggerUnit()
    set id = GetHandleId(udg_Spell__Caster)
    set i = LoadInteger(udg_Spell__Hash, aid, id)
    if i == 0 then
        //This block will almost always happen with the OnChannel event. In the
        //case of Charge Gold and Lumber, only an OnEffect event will run.
        set i = udg_Spell_i_Recycle
        if i == 0 then
            //Create a new, unique index
            set i = udg_Spell_i_Instances + 1
            set udg_Spell_i_Instances = i
        else
            //Repurpose an existing one
            set udg_Spell_i_Recycle = udg_Spell_i_RecycleList[i]
        endif
        //call BJDebugMsg("Creating index: " + I2S(i))
        set udg_Spell_i_RecycleList[i] = -1
        set udg_Spell_i_StackRef[i] = -1
        set udg_Spell_i_Head[i] = head
        
        if eid == EVENT_PLAYER_UNIT_SPELL_CHANNEL then
            set udg_Spell_i_Channeling[i] = true
            call SaveInteger(udg_Spell__Hash, aid, id, i)
            set t = udg_Spell_i_OnChannelStack[head]
        else //eid == EVENT_PLAYER_UNIT_SPELL_EFFECT
            set t = udg_Spell_i_OnEffectStack[head]
        endif
        set udg_Spell_i_Caster[i] = udg_Spell__Caster
        set udg_Spell_i_Level[i] = GetUnitAbilityLevel(udg_Spell__Caster, aid)
        set udg_Spell_i_Target[i] = GetSpellTargetUnit()
        set udg_Spell_i_TargetX[i] = GetSpellTargetX()
        set udg_Spell_i_TargetY[i] = GetSpellTargetY()
        
        set udg_Spell_i_OnLoopStack[i] = udg_Spell_i_OnLoopStack[head]
        if udg_Spell_i_UseTG[head] then
            //Get a recycled unit group or create a new one.
            set id = udg_Spell_i_GroupN - 1
            if id >= 0 then
                set udg_Spell_i_GroupN = id
                set udg_Spell_i_TargetGroup[i] = udg_Spell_i_GroupStack[id]
            else
                set udg_Spell_i_TargetGroup[i] = CreateGroup()
            endif
        endif
    elseif eid == EVENT_PLAYER_UNIT_SPELL_CAST then
        set t = udg_Spell_i_OnCastStack[head]
    elseif eid == EVENT_PLAYER_UNIT_SPELL_EFFECT then
        set t = udg_Spell_i_OnEffectStack[head]
    elseif eid == EVENT_PLAYER_UNIT_SPELL_FINISH then
        set udg_Spell_i_Completed[i] = true
        return true
    else //eid == EVENT_PLAYER_UNIT_SPELL_ENDCAST
        set udg_Spell_i_Channeling[i] = false
        call RemoveSavedInteger(udg_Spell__Hash, aid, id)
        set t = udg_Spell_i_OnFinishStack[head]
    endif
    if SpellTriggerExecute(i, t) > 0.00 then
        //Set the spell time to the user-specified one.
        set udg_Spell_i_Time[i] = udg_Spell__Time
        if udg_Spell_i_StackRef[i] < 0 then
            //Allocate the spell index onto the loop stack.
            set aid = udg_Spell_i_StackN
            set udg_Spell_i_Stack[aid] = i
            set udg_Spell_i_StackRef[i] = aid
            set udg_Spell_i_StackN = aid + 1
            if aid == 0 then
                //If this is the first spell index using the timer, start it up:
                call TimerStart(udg_Spell_i_Timer, udg_Spell__Interval, true, function SpellTimerLoop)
            endif
        endif
    elseif (not udg_Spell_i_Channeling[i]) and (t != null or udg_Spell_i_Time[i] <= 0.00) then
        call SpellIndexDestroy(i)
    endif
    set t = null
    return true
endfunction

//This function is invoked if an event was launched recursively by another event's callback.
function RunPreSpellEvent takes nothing returns nothing
    local integer i = udg_Spell__Index
    local real time = udg_Spell__Time
    local real d = udg_Spell__Duration
    local boolean expired = udg_Spell__Expired
    if udg_Spell__Trigger_OnLoop != null then
        set udg_Spell_i_OnLoopStack[i] = udg_Spell__Trigger_OnLoop
    endif
    if RunSpellEvent() then
        set udg_Spell__Time = time
        set udg_Spell__Duration = d
        set udg_Spell__Expired = expired
        call SpellIndexGetVars(i)
    endif
endfunction

//===========================================================================
// Base function of the system: runs when an ability event does something.
// 
function SpellSystemEvent takes nothing returns boolean
    if udg_Spell__Running then
        call RunPreSpellEvent()
    else
        set udg_Spell__Running = true
        call RunSpellEvent()
        set udg_Spell__Running = false
    endif
    return false
endfunction

//===========================================================================
// Set Spell__Ability to your spell's ability
// Set Spell__Trigger_OnChannel/Cast/Effect/Finish/Loop to any trigger(s) you
// want to automatically run.
// 
// GUI-friendly: Run Spell System <gen> (ignoring conditions)
// 
function SpellSystemRegister takes nothing returns nothing
    local integer aid = udg_Spell__Ability
    local integer head = udg_Spell_i_Instances + 1
    
    if HaveSavedInteger(udg_Spell__Hash, 0, aid) or aid == 0 then
        //The system rejects duplicate or unassigned abilities.
        return
    endif
    set udg_Spell_i_Instances = head
    set udg_Spell_i_Abil[head] = aid
    
    //Preload the ability on dummy unit to help prevent first-instance lag
    call UnitAddAbility(udg_Spell_i_PreloadDummy, aid)
    
    //Save head index to the spell ability so it be referenced later.
    call SaveInteger(udg_Spell__Hash, 0, aid, head)
    
    //Set any applicable event triggers.
    set udg_Spell_i_OnChannelStack[head]= udg_Spell__Trigger_OnChannel
    set udg_Spell_i_OnCastStack[head]   = udg_Spell__Trigger_OnCast
    set udg_Spell_i_OnEffectStack[head] = udg_Spell__Trigger_OnEffect
    set udg_Spell_i_OnFinishStack[head] = udg_Spell__Trigger_OnFinish
    set udg_Spell_i_OnLoopStack[head]   = udg_Spell__Trigger_OnLoop
    set udg_Spell_i_InRangeFilter[head] = udg_Spell__Trigger_InRangeFilter
    
    //Set any customized filter variables:
    call SpellSetFilters(head)
    
    //Tell the system to automatically create target groups, if needed
    set udg_Spell_i_AutoAddTargets[head] = udg_Spell__AutoAddTargets
    set udg_Spell_i_UseTG[head] = udg_Spell__UseTargetGroup or udg_Spell__AutoAddTargets
    
    //Handle automatic buff assignment
    set udg_Spell_i_BuffAbil[head] = udg_Spell__BuffAbility
    set udg_Spell_i_BuffOrder[head] = udg_Spell__BuffOrder
    
    //Set the default time sequences if a duration is used:
    set udg_Spell_i_Time[head]     = udg_Spell__Time
    set udg_Spell_i_Duration[head] = udg_Spell__Duration
    set udg_Spell_i_LastTime[head] = udg_Spell__DurationPerLevel
    
    //Set variables back to their defaults:
    set udg_Spell__Trigger_OnChannel    = null
    set udg_Spell__Trigger_OnCast       = null
    set udg_Spell__Trigger_OnEffect     = null
    set udg_Spell__Trigger_OnFinish     = null
    set udg_Spell__Trigger_OnLoop       = null
    set udg_Spell__Trigger_InRangeFilter= null
    set udg_Spell__AutoAddTargets       = false
    set udg_Spell__UseTargetGroup       = false
    set udg_Spell__Time                 = 0.00
    set udg_Spell__Duration             = 0.00
    set udg_Spell__DurationPerLevel     = 0.00
    set udg_Spell__BuffAbility          = 0
    set udg_Spell__BuffOrder            = 0
    
    set udg_Spell__Filter_AllowEnemy        = udg_Spell_i_AllowEnemy[0]
    set udg_Spell__Filter_AllowAlly         = udg_Spell_i_AllowAlly[0]
    set udg_Spell__Filter_AllowDead         = udg_Spell_i_AllowDead[0]
    set udg_Spell__Filter_AllowMagicImmune  = udg_Spell_i_AllowMagicImmune[0]
    set udg_Spell__Filter_AllowMechanical   = udg_Spell_i_AllowMechanical[0]
    set udg_Spell__Filter_AllowStructure    = udg_Spell_i_AllowStructure[0]
    set udg_Spell__Filter_AllowFlying       = udg_Spell_i_AllowFlying[0]
    set udg_Spell__Filter_AllowHero         = udg_Spell_i_AllowHero[0]
    set udg_Spell__Filter_AllowNonHero      = udg_Spell_i_AllowNonHero[0]
    set udg_Spell__Filter_AllowLiving       = udg_Spell_i_AllowLiving[0]
endfunction

function SpellFilterCompare takes boolean is, boolean yes, boolean no returns boolean
    return (is and yes) or ((not is) and no)
endfunction

//===========================================================================
// Before calling this function, set Spell__InRangePoint to whatever point
// you need, THEN set Spell__InRange to the radius you need. The system will
// enumerate the units matching the configured filter and fill them into
// Spell_InRangeGroup.
// 
function SpellGroupUnitsInRange takes nothing returns boolean
    local integer i = udg_Spell_i_Head[udg_Spell__Index]
    local integer j = 0
    local unit u
    local real padding = 64.00
    if udg_Spell_i_AllowStructure[i] then
        //A normal unit can only have up to size 64.00 collision, but if the
        //user needs to check for structures we need a padding big enough for
        //the "fattest" ones: Tier 3 town halls.
        set padding = 197.00
    endif
    call GroupEnumUnitsInRangeOfLoc(udg_Spell__InRangeGroup, udg_Spell__InRangePoint, udg_Spell__InRange + padding, null)
    loop
        set u = FirstOfGroup(udg_Spell__InRangeGroup)
        exitwhen u == null
        call GroupRemoveUnit(udg_Spell__InRangeGroup, u)
        loop
            exitwhen udg_Spell_i_AutoAddTargets[i] and IsUnitInGroup(u, udg_Spell__TargetGroup)
            exitwhen not IsUnitInRangeLoc(u, udg_Spell__InRangePoint, udg_Spell__InRange)
            exitwhen not SpellFilterCompare(IsUnitType(u, UNIT_TYPE_DEAD), udg_Spell_i_AllowDead[i], udg_Spell_i_AllowLiving[i])
            exitwhen not SpellFilterCompare(IsUnitAlly(u, udg_Spell__CasterOwner), udg_Spell_i_AllowAlly[i], udg_Spell_i_AllowEnemy[i])
            exitwhen not SpellFilterCompare(IsUnitType(u, UNIT_TYPE_HERO) or IsUnitType(u, UNIT_TYPE_RESISTANT), udg_Spell_i_AllowHero[i], udg_Spell_i_AllowNonHero[i])
            exitwhen IsUnitType(u, UNIT_TYPE_STRUCTURE) and not udg_Spell_i_AllowStructure[i]
            exitwhen IsUnitType(u, UNIT_TYPE_FLYING) and not udg_Spell_i_AllowFlying[i]
            exitwhen IsUnitType(u, UNIT_TYPE_MECHANICAL) and not udg_Spell_i_AllowMechanical[i]
            exitwhen IsUnitType(u, UNIT_TYPE_MAGIC_IMMUNE) and not udg_Spell_i_AllowMagicImmune[i]
            set udg_Spell__InRangeUnit = u
            //Run the user's designated filter, if one exists.
            exitwhen udg_Spell_i_InRangeFilter[i] != null and not TriggerEvaluate(udg_Spell_i_InRangeFilter[i])
            set j = j + 1
            set udg_Spell__InRangeUnits[j] = u
            exitwhen true
        endloop
    endloop
    if j > udg_Spell__InRangeMax and udg_Spell__InRangeMax > 0 then
        //The user has defined a maximum number of units allowed in the group.
        //Remove a random unit until the total does not exceed capacity.
        loop
            set i = GetRandomInt(1, j)
            set udg_Spell__InRangeUnits[i] = udg_Spell__InRangeUnits[j]
            set j = j - 1
            exitwhen j == udg_Spell__InRangeMax
        endloop
    endif
    set udg_Spell__InRangeCount = j
    set udg_Spell__InRangeMax = 0
    set udg_Spell__InRange = 0.00
    set i = udg_Spell_i_Head[udg_Spell__Index]
    loop
        exitwhen j == 0
        set u = udg_Spell__InRangeUnits[j]
        call GroupAddUnit(udg_Spell__InRangeGroup, u)
        if udg_Spell_i_AutoAddTargets[i] then
            call GroupAddUnit(udg_Spell__TargetGroup, u)
        endif
        if udg_Spell__WakeTargets and UnitIsSleeping(u) then
            call UnitWakeUp(u)
        endif
        if udg_Spell_i_BuffAbil[i] != 0 and udg_Spell_i_BuffOrder[i] != 0 then
            //Auto-buff units added to group:
            call UnitAddAbility(udg_Spell_i_PreloadDummy, udg_Spell_i_BuffAbil[i])
            call IssueTargetOrderById(udg_Spell_i_PreloadDummy, udg_Spell_i_BuffOrder[i], u)
            call UnitRemoveAbility(udg_Spell_i_PreloadDummy, udg_Spell_i_BuffAbil[i])
        endif
        set j = j - 1
    endloop
    set u = null
    return false
endfunction

function SpellPreloadEnd takes nothing returns nothing
    local integer i = udg_Spell_i_Instances
    loop
        exitwhen i == 0
        //Remove preloaded abilities so they don't interfere with orders
        call UnitRemoveAbility(udg_Spell_i_PreloadDummy, udg_Spell_i_Abil[udg_Spell_i_Head[i]])
        set i = i - 1
    endloop
endfunction

//===========================================================================
function InitTrig_Spell_System takes nothing returns nothing
    local integer i = bj_MAX_PLAYER_SLOTS
    local player p
    local trigger t
    
    if gg_trg_Spell_System != null then
        //A JASS function call already initialized the system.
        return
    endif
    
    //This runs before map init events so the hashtable is ready before then.
    set udg_Spell__Hash = InitHashtable()
    
    //Initialize these two locations which will never get removed
    set udg_Spell__CastPoint = Location(0, 0)
    set udg_Spell__TargetPoint = Location(0, 0)
    
    //Recycle existing unit groups into the recycle stack to avoid needing to destroy any extras.
    set udg_Spell_i_GroupStack[2] = udg_Spell__TargetGroup
    set udg_Spell_i_GroupStack[3] = udg_Spell_i_TargetGroup[0]
    set udg_Spell_i_GroupStack[4] = udg_Spell_i_TargetGroup[1]
    set udg_Spell_i_GroupN = 5 //There are already five valid unit groups thanks to Variable Editor.
    
    set t = CreateTrigger()
    call TriggerRegisterVariableEvent(t, "udg_Spell__InRange", GREATER_THAN, 0.00)
    call TriggerAddCondition(t, Filter(function SpellGroupUnitsInRange))
    
    set t = CreateTrigger()
    call TriggerAddCondition(t, Filter(function SpellSystemEvent))
    loop
        set i = i - 1
        set p = Player(i)
        call TriggerRegisterPlayerUnitEvent(t, p, EVENT_PLAYER_UNIT_SPELL_CHANNEL, null)
        call TriggerRegisterPlayerUnitEvent(t, p, EVENT_PLAYER_UNIT_SPELL_CAST, null)
        call TriggerRegisterPlayerUnitEvent(t, p, EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
        call TriggerRegisterPlayerUnitEvent(t, p, EVENT_PLAYER_UNIT_SPELL_FINISH, null)
        call TriggerRegisterPlayerUnitEvent(t, p, EVENT_PLAYER_UNIT_SPELL_ENDCAST, null)
        exitwhen i == 0
    endloop
    set p = null
    set t = null
    
    //Run the configuration trigger so its variables are ready before the
    //map initialization events run.
    call TriggerExecute(gg_trg_Spell_System_Config)
    call SpellSetFilters(0)
    
    //Create this trigger so it's GUI-friendly.
    set gg_trg_Spell_System = CreateTrigger()
    call TriggerAddAction(gg_trg_Spell_System, function SpellSystemRegister)
    set gg_trg_Spell_System_Config = gg_trg_Spell_System //In case the user accidentally picks this one
    
    //Create a dummy unit for preloading abilities and casting buffs.
    set udg_Spell_i_PreloadDummy = CreateUnit(udg_Spell__DummyOwner, udg_Spell__DummyType, 0, 0, 0)
    
    //Start the timer to remove its abilities:
    call TimerStart(udg_Spell_i_Timer, 0.00, false, function SpellPreloadEnd)
    call UnitRemoveAbility(udg_Spell_i_PreloadDummy, 'Amov') //Force it to never move to cast spells
endfunction
Spell System Sample Config
Events
Map initialization
Conditions
Actions
-------- --------
-------- I have created this trigger as a means to show users what can (or must) be configured for each spell --------
-------- --------
-------- You must assign an ability ID to let the system know which spell you're using: --------
-------- --------
Set Variable Set Spell__Ability = (Ability being cast)
-------- --------
-------- Next, you must pick at least one of the following types of triggers to run at a phase of the spell: --------
-------- --------
Set Variable Set Spell__Trigger_OnChannel = (This trigger)
Set Variable Set Spell__Trigger_OnCast = (This trigger)
Set Variable Set Spell__Trigger_OnEffect = (This trigger)
Set Variable Set Spell__Trigger_OnFinish = (This trigger)
-------- --------
-------- Next, you can specify a trigger to run periodically, if you want that type of behavior. --------
-------- --------
Set Variable Set Spell__Trigger_OnLoop = (This trigger)
-------- --------
-------- Added 28 Feb 2016: You can now specify Spell__Time, Spell__Duration and Spell__DurationPerLevel from the Config trigger. --------
-------- NOTE: With these settings, the OnLoop trigger will run every 1 second for 4/5/6 seconds --------
-------- --------
Set Variable Set Spell__Time = "1.00"
Set Variable Set Spell__Duration = "3.00"
Set Variable Set Spell__DurationPerLevel = "1.00"
-------- --------
-------- The next ones are for the InRange filter, if you use it. You don't have to include any of these for many typical spells. --------
-------- TIPS: --------
-------- > For healing spells, you'll want to set AllowAllies to True and AllowEnemies to False. --------
-------- > If you are creating a "kill unit" spell, you'll want to set AllowHero to False. --------
-------- > If you are making a custom "Resurrect", you'll want to set AllowDead to True and AllowLiving to False. --------
-------- > AllowMagicImmune as False also prevents invulnerable units from being picked, which is a plus in my opinion. --------
-------- --------
Set Variable Set Spell__Filter_AllowEnemy = "true"
Set Variable Set Spell__Filter_AllowLiving = "true"
Set Variable Set Spell__Filter_AllowHero = "true"
Set Variable Set Spell__Filter_AllowNonHero = "true"
Set Variable Set Spell__Filter_AllowAlly = "false"
Set Variable Set Spell__Filter_AllowDead = "false"
Set Variable Set Spell__Filter_AllowFlying = "false"
Set Variable Set Spell__Filter_AllowMechanical = "false"
Set Variable Set Spell__Filter_AllowStructure = "false"
Set Variable Set Spell__Filter_AllowMagicImmune = "false"
-------- --------
-------- NEW: Added 17 May 2016 - you can specify your own trigger conditions to add to the InRange check --------
-------- The trigger conditions reference the unit "Spell__InRangeUnit" --------
-------- --------
Set Variable Set Spell__Trigger_InRangeFilter = Spell_System_Sample_Filter <gen>
-------- --------
-------- If you want to keep track of which units have already been hit by the spell, set UseTargetGroup to True --------
-------- TIPS: --------
-------- > The group is called Spell__TargetGroup. It starts empty and will destroy itself when the spell is finished --------
-------- > After using a Spell__InRange check, you can use "Add all units in Spell__InRangeGroup to Spell__TargetGroup" --------
-------- --------
Set Variable Set Spell__UseTargetGroup = "true"
-------- --------
-------- When everything is set the way you want it, run Spell System <gen>: --------
-------- --------
Trigger - Run Spell_System <gen> (ignoring conditions)
-------- --------
-------- To recap, you MUST set Spell__Ability and you MUST have an OnChannel/Cast/Effect or Finish trigger --------
-------- --------
Spell System Sample Trigger
Events
Conditions
Actions
-------- --------
-------- I have created this sample to show what you can do from Spell__Trigger_OnEffect/Loop/Channel/Cast/Finish. --------
-------- --------
-------- The following variables are set so you can see what they represent, but in a real spell they will already be set to these values --------
-------- TIPS: --------
-------- > Spell__CastPoint and Spell__TargetPoint should never be removed as they do not leak --------
-------- > Spell__CasterOwner will change if the caster changes ownership during the spell due to "Charm" or "Possession" --------
-------- > Spell__Level will stay the same even if the ability was leveled up during the spell --------
-------- > Unlike in normal WC3 events, Spell__Target and Spell__TargetPoint actually work from an OnFinish event. --------
-------- --------
Set Variable Set Spell__Caster = (Casting unit)
Set Variable Set Spell__CastPoint = (Position of Spell__Caster)
Set Variable Set Spell__CasterOwner = (Owner of Spell__Caster)
Set Variable Set Spell__Level = (Level of (Ability being cast) for Spell__Caster)
Set Variable Set Spell__LevelMultiplier = (Real(Spell__Level))
Set Variable Set Spell__Target = (Target unit of ability being cast)
Set Variable Set Spell__TargetPoint = (Target point of ability being cast)
-------- --------
-------- I present to you the unique integer index for this particular cast of the spell: Spell__Index --------
-------- TIPS: --------
-------- > Spell__Index is used as an array index so that you can store your spell data using it --------
-------- > This number is unique per-spell, making everything which uses this fully-MUI. --------
-------- > This number is automatically recycled when the spell is finished or the Spell__Time has expired. --------
-------- --------
Set Variable Set Dipper_Phases[Spell__Index] =
-------- --------
-------- Specify how long to wait before the OnLoop trigger runs (or runs again, if reset from an OnLoop trigger) --------
-------- TIPS: --------
-------- > This is only required if you use the OnLoop trigger --------
-------- > If you want a spell index to not be destroyed when the OnFinish event runs, you will need to set a Spell__Time to an above-0 value --------
-------- > If you don't use an OnLoop trigger but want Spell__Index around longer than the channel time, set Spell__Time to how long you'll need that index --------
-------- --------
Set Variable Set Spell__Time = "2.00"
-------- --------
-------- Alternatively (or additionally), you can set the Spell__Duration to how long the OnLoop trigger should repeat --------
-------- TIPS: --------
-------- > If you don't specify a Spell__Time, the OnLoop trigger will run every Spell__Interval (0.03125) seconds --------
-------- > From the OnLoop trigger, you can check if the spell is about to end via the condition "Spell__Expired Equal to True". --------
-------- --------
Set Variable Set Spell__Duration = "10.00"
-------- --------
-------- Alternatively, if you set the Spell__Duration (or at least Spell__DurationPerLevel) from the Config trigger, --------
-------- you can tell the system to start the duration with the Spell__StartDuration boolean: --------
-------- --------
Set Variable Set Spell__StartDuration = "true"
-------- --------
-------- You can change (or even add, if it wasn't yet assigned) your periodic trigger during any phase of the spell, like so: --------
-------- --------
Set Variable Set Spell__Trigger_OnLoop = (This trigger)
-------- --------
-------- If you set a Spell__Duration and want to know if it's about to expire, check if Spell__Duration is less than or equal to 0.00 --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Spell__Duration Less than or equal to 0.00
Then - Actions
-------- The loop trigger will no longer run at this point, unless you specify a new spell time --------
Else - Actions
-------- The loop trigger will keep going, as the duration hasn't yet ended --------
-------- --------
-------- You can even force the duration to come to a premature end by setting Spell__Duration to 0.00, yourself. --------
-------- --------
Set Variable Set Spell__Duration = "0.00"
-------- --------
-------- Spell__Completed lets you know if the spell was interrupted (False) or the unit completed channeling it (True) --------
-------- Spell__Channeling lets you know if the spell is still being channelled (True) or the caster has stopped (False). --------
-------- NOTE: These booleans should be used only from Spell__Trigger_OnFinish or Spell__Trigger_OnLoop. --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Spell__Channeling Equal to False
Then - Actions
-------- The unit is no longer channeling the spell --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Spell__Completed Equal to True
Then - Actions
-------- The spell finished normally --------
Else - Actions
-------- The spell was interrupted --------
Else - Actions
-------- The unit is still working on it --------
-------- --------
-------- Spell__TargetGroup is a nice one to have if you're keeping track of different units hit by this spell instance --------
-------- NOTE: This group is unique per spell instance, but you must first Set Spell__UseTargetGroup = True from your config trigger --------
-------- --------
Unit Group - Add Spell__Target to Spell__TargetGroup
-------- --------
-------- The Spell__InRange feature picks all units in range and adds them to Spell__InRangeGroup --------
-------- NOTE: Spell__InRangePoint must be set first, then the Spell__InRange real value. --------
-------- Additionally, Spell__InRangeGroup does not leak and should never be destroyed. --------
-------- --------
-------- NEW: Added 17 May 2016, you can also set Spell__InRangeMax to limit the group to that many units --------
-------- - Extra units are removed from the group at random --------
-------- - Make sure to still set Spell__InRange after setting the first two. --------
-------- --------
Set Variable Set Spell__InRangePoint = Spell__CastPoint
Set Variable Set Spell__InRangeMax = "5"
Set Variable Set Spell__InRange = "300.00"
Unit Group - Add all units of Spell__InRangeGroup to Spell__TargetGroup
-------- --------
-------- Just to show how much time that saves, those four lines are a replacement to the following tedious stuff: --------
-------- --------
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 300.00 of Spell__CastPoint.) and do (Actions)
Loop - Actions
-------- --------
-------- The following conditions should have the same output as the default filter that Spell System uses. --------
-------- However, (Unit is Alive) does not have guaranteed accuracy in GUI as a corpse's HP can be above 0. --------
-------- Additionally, these conditions are buried within the code instead of made available in the configuration trigger. --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is A structure) Equal to False
((Picked unit) is A ground unit) Equal to True
((Picked unit) is Mechanical) Equal to False
((Picked unit) is Magic Immune) Equal to False
((Picked unit) is alive) Equal to True
((Picked unit) belongs to an enemy of Spell__CasterOwner.) Equal to True
Then - Actions
Unit Group - Add (Picked unit) to Spell__InRangeGroup
Else - Actions
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Random 5 units from Spell__InRangeGroup) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is sleeping) Equal to True
Then - Actions
-------- This is something I added to Spell System as units targeted by object editor spells are also awoken. --------
Unit - Wake up (Picked unit)
Else - Actions
Unit Group - Add (Picked unit) to Spell__TargetGroup
-------- --------
-------- Alternatively, instead of (or in addition to) using Spell__InRangeGroup, --------
-------- you have access to Spell__InRangeUnits and Spell__InRangeCount. --------
-------- --------
-------- To loop through the unit list instead of picking them, loop from 1 to (Spell__InRangeCount) --------
-------- NOTE: I skip index 0 on purpose to make it easier to loop through it in GUI --------
-------- --------
For each (Integer A) from 1 to Spell__InRangeCount , do (Actions)
Loop - Actions
-------- --------
Game - Display to (All players) the text: (Name of Spell__InRangeUnits[(Integer A)])
-------- --------
-------- --------
-------- Having it in array format, you can easily pick a random unit, like so: --------
-------- --------
Unit - Kill Spell__InRangeUnits[(Random integer number between 1 and Spell__InRangeCount)]
-------- --------
-------- And, finally, I've made it so you have access to Spell__Hash --------
-------- NOTE: Only save as (anything you need) of (Spell__Index) into Spell__Hash. --------
-------- Additionally, the child hashtable of Spell__Index will be flushed when the spell is over, so you don't have to worry about that, either --------
-------- --------
Hashtable - Save 9000.10 as 1 of Spell__Index in Spell__Hash .
Hashtable - Save Pi as 2 of Spell__Index in Spell__Hash .
-------- --------
-------- When the unit is finished channeling the spell and you haven't set a Spell__Time nor Spell__Duration, --------
-------- the trigger will no longer be run. This means all the indexing and deindexing is done behind the scenes. --------
-------- --------
Spell System Sample Filter
Events
Conditions
(Spell__InRangeUnit is in Spell__TargetGroup.) Equal to False
Actions
-------- The above condition makes it so only units who weren't already added to Spell__TargetGroup are picked --------
-------- The unit being filtered is Spell__InRangeUnit --------
Spell System All In One Template
Events
Map initialization
Conditions
Actions
-------- --------
-------- Making configuration and OnEffect in one trigger for simplicity --------
-------- This is intended for very simple spells which don't require an OnLoop trigger. --------
-------- I don't recommend this way if you have a lot of configurables, as they are easier to track in a separate trigger --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Spell__Running Equal to False
Then - Actions
-------- --------
-------- If Spell__Running is true, the spell has been cast. --------
-------- If it is false, then the original event - map initialization - for this trigger has run --------
-------- Spell__Trigger_OnEffect will point to (This trigger) --------
-------- --------
Set Variable Set Spell__Ability = "ANab"
Set Variable Set Spell__Trigger_OnEffect = (This trigger)
Trigger - Run Spell_System <gen> (ignoring conditions)
-------- Don't do anything else --------
Skip remaining actions
Else - Actions
-------- --------
-------- The spell has been cast normally; do what you need to do from this point on. --------
-------- --------
Play Guide
Events
Time - Elapsed game time is 0.01 seconds
Conditions
Actions
Quest - Create a Required quest titled REIMAGINED with the description Many additional units have been added. There is also a special item in player shop that grants a Generic Town Hall that can transform into any T1 Town Hall, which with enough effort, allows player to access entire combined tech tree of all four factions. , using icon path ReplaceableTextures\CommandButtons\BTNCaptainFalric.blp
Quest - Create a Required quest titled BOEG Classic with the description Any unit that has 'Classic BOEG' in their description are not rebalanced in REIMAGINED to respect their origins. These units might give unfair advantage or straight up weaker than REIMAGINED armies. , using icon path ReplaceableTextures\CommandButtons\BTNSpellBookBLS.blp
Quest - Flash the quest dialog button
Credits
Events
Time - Elapsed game time is 0.02 seconds
Conditions
Actions
Quest - Create a Optional quest titled v3.0A REIMAGINED with the description |cffffdc00REIMAGINED ALLIANCE RELEASE|r , using icon path ReplaceableTextures\CommandButtons\BTNAbyssRiftPurple.blp
Quest - Create a Optional quest titled REIMAGINED Credits with the description minidreschi, Aldeia, johnwar, Zephyrius2412, Skipper, Darkminnion, kola, Ujimasa Hojo, NO_exe, Gumberbunbder, loktar, Evading Self, Doomlord, Dota 1 Team, Tranquil, Beta Baby, General Frank, AlienAtSystem, Xetanth87, Canucks_rock, Blizzard Entertainment, Verskon, Sin'dorei300, Izualizm, r.ace613, 67chrome, MangakaDark, NFWar, Carefree World, Mister_Haudrauf, AndrewOverload519, D.ee, Doomlord, Himperion, GladiatorKing, Retera, ILH, Simooy, Paladon, Dethadow , using icon path ReplaceableTextures\CommandButtons\BTNPeonB.blp
Quest - Create a Optional quest titled Classic Special Credits with the description 1. Archian2. ShadowDaemon3. Hive Workshop4. Blizzards Entertaiment , using icon path ReplaceableTextures\CommandButtons\BTNSpellBookBLS.blp
Quest - Create a Optional quest titled Classic Tester Credits with the description 1. PKCrafty 2. LIOR aka Best Player 883. Orcnet , using icon path ReplaceableTextures\CommandButtons\BTNSpellBookBLS.blp
Quest - Create a Optional quest titled Classic Models Credits with the description 1. Simooy (Altar of Elder) , using icon path ReplaceableTextures\CommandButtons\BTNSpellBookBLS.blp
Quest - Flash the quest dialog button
Top