• 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

WarCraft in a NutShell.w3x
Variables
Initialization
Melee Initialization Copy
Artillery Strike
GoldLumbCost
BOOM
BOOM Copy
BOOM Copy 2
Readme
Hashtable
Fly
Credits
Normal
Artillery Cast Normal
Artillery Continue Normal
Straight
Artillery Cast Straight
Artillery Continue Straight
Circle
Artillery Cast Circle Copy
Artillery Cast Circle Copy Copy
Artillery Cast Circle Copy Copy 2
Artillery Cast Circle Copy Copy 3
Artillery Cast Circle Copy Copy 4
Artillery Continue Circle Copy
Antimag
Triger AM
Untitled Trigger 001
paladin strike
PalUndStr
PalUndStr nonhero
Untitled Trigger 002 Copy
horses
Animation
tirion
spawn
VOZHDb
spawn vozhdb
Archmond
spawn archi
SOUL
spawn SOUL
Gnom
Untitled Trigger 002
FAtal desease
KILLIF
Volatile Light
VL readme
VL Config
VL Cast
VL Loop
Holy Dragging Spell
|ZZZZZZ| README |ZZZZZZ|
Holy Dragging Spell Init
Holy Dragging Spell
Holy Dragging Spell Group
Holy Dragging Spell Lightning
Holy Dragging Spell Cancel
|ZZZZZZZZZZZZZZZZZZZZ|
KB3D System ( Jad )
---------------------------
KB3D Features GUI
KB3D Variable Creator
KB3D
---------------------------
Unit Indexer System ( Bribe )
---------------------------
Unit Indexer
---------------------------
Revolving Hammers v1.1 - GUI
---------------------------
Spell Information: Revolving Hammers
Revolving Hammers Configuration
Revolving Hammers Execution
Revolving Hammers Loop
---------------------------
Blademaster ULT
Rapid Slash
RS Configuration
RS Cast
RS Loop
Nature Walk
Inforamtion
Nature Walk Settings
Nature Walk Cast
Nature Walk Loop
Sparky Aura
Sparky aura
Enter map-specific custom script code below. This text will be included in the map script after variables are declared and before any trigger code.
Name Type is_array initial_value
AM unit No
archi location No
archi_owner player No
ArtilleryGroup group No
ArtilleryPlace location No
ArtilleryPoint location No
ArtilleryPointRand location No
Atriller unit No
CasterPoint location No
Circle_lvl abilcode No A00E
CP_HiddenItems item Yes
CP_HiddenItemsIndex integer No
CP_Item item No
CP_PointIsWalkable boolean No
CP_Rect rect No
CT_dummygrp group No
CT_dummygrp2 group No
CT_int integer No
CT_int2 integer No
CT_int3 integer No
CT_real real No
CT_real2 real No
CT_temppt location No
CT_temppt2 location No
CT_tempunit unit No
Damage real No
DamagePoint location No
Degrees real No
FlyGroup group No
Hashtable hashtable No
HDS_Ability abilcode No
HDS_Catch_Range real No
HDS_Damage real No
HDS_Damage_Range real No
HDS_Drag_Speed real No
HDS_Dummy unitcode No
HDS_Duration real No
HDS_Pulls_Allies boolean No
HDS_Slow_Buff buffcode No
Holy_Dragging_Spell_Group group No
Holy_Dragging_Spell_Hash hashtable No
Holy_Dragging_Spell_Lightning group No
KB3D_Accel real No
KB3D_AllowOutSiding boolean No
KB3D_Angle real No
KB3D_AoE real No
KB3D_AoEDamage real No
KB3D_AoEEndDamage real No
KB3D_AoEEndFx string No
KB3D_AoEKB boolean No
KB3D_AoEKB_Power real No
KB3D_Arc real No
KB3D_Attach string No
KB3D_AttackType attacktype No
KB3D_B boolean No
KB3D_Bounce_Fx string No
KB3D_Bounce_Power real No
KB3D_Bounce_Target boolean No
KB3D_Bounce_Unit boolean No
KB3D_Counter integer No
KB3D_D_ALLY boolean No
KB3D_D_ENEMY boolean No
KB3D_D_FLYING boolean No
KB3D_D_MAGIC_IMMINUE boolean No
KB3D_D_MECHANICAL boolean No
KB3D_D_RESISTANT boolean No
KB3D_D_STRUCTURE boolean No
KB3D_Damager unit No
KB3D_DamageType damagetype No
KB3D_DestroyDestructables boolean No
KB3D_DestroyTree boolean No
KB3D_DisableUnit boolean No
KB3D_EndFx string No
KB3D_EndOnObstacle boolean No
KB3D_EndOnTargetBounce boolean No
KB3D_EndTrigger trigger No
KB3D_EndwhenDead boolean No
KB3D_EndWhenHit boolean No
KB3D_FaceAngle boolean No
KB3D_Fx string No
KB3D_Fx_Attach string No
KB3D_g group No
KB3D_GroundDamage boolean No
KB3D_HA hashtable No
KB3D_Harvester unit No
KB3D_HomingMissile boolean No
KB3D_iKB boolean No
KB3D_ImpactDamage real No
KB3D_Instances integer No
KB3D_JumpOverCliff boolean No
KB3D_KBTarget boolean No
KB3D_KillatEnd boolean No
KB3D_KillatTime real No
KB3D_KillifOutSider boolean No
KB3D_KillWhenHit boolean No
KB3D_Line_Fx string No
KB3D_LineDamage real No
KB3D_LoopDamage real No
KB3D_Range real No
KB3D_Reals real Yes
KB3D_Registration trigger No
KB3D_Speed real No
KB3D_Speed_Changer boolean No
KB3D_StopTime real No
KB3D_TargetDamage real No
KB3D_Targeted_Unit unit No
KB3D_Time real No
KB3D_Timer timer No
KB3D_TrailFx string No
KB3D_Unit unit No
KB3D_UnpathableStop boolean No
KB3D_Zoffset real No
KnockbackCurrentPoint location No
KnockbackMovePoint location No
Message button No
NW_Ability abilcode No
NW_Angle real Yes
NW_AoE1 real No
NW_AoE2 real No
NW_Caster unit Yes
NW_Check1 boolean No
NW_Check2 boolean Yes
NW_Distance real Yes
NW_DistanceGain real Yes
NW_DistanceMax real No
NW_Dummy unit No
NW_DummyAbility abilcode Yes
NW_Duration real Yes
NW_EndPoint location Yes
NW_Index integer No
NW_Index2 integer No
NW_Index3 integervar No
NW_Modifier real Yes
NW_Point1 location No
NW_Point2 location No
NW_Point3 location No
NW_Real real Yes
NW_SolidModifier real Yes
NW_Speed real Yes
NW_Speed2 real Yes
NW_SpeedBase real No
NW_Time real No
NW_X real Yes
NW_Y real Yes
Offset real No
PALADIN unit No
RH_Ability abilcode No
RH_AbilityMaxLevel integer No
RH_AttackType attacktype No
RH_Caster unit Yes
RH_CasterPlayer player Yes
RH_CasterX real Yes
RH_CasterY real Yes
RH_ChannelDuration real Yes
RH_ChannelDurationCounter real Yes
RH_ChannelOrder string No
RH_CustomInteger integervar No
RH_CustomLocation location No
RH_CustomReal real Yes
RH_CustomReal2 real Yes
RH_DamageType damagetype No
RH_DestroyTrees boolean No
RH_DummyPlayerColor boolean No
RH_DummyType unitcode No
RH_Effect string Yes
RH_EffectAttach string Yes
RH_EffectCount integer No
RH_Group group No
RH_HammerCollisionSize real Yes
RH_HammerCount integer Yes
RH_HammerCustomBoolean boolean Yes
RH_HammerHeight real Yes
RH_HammerHitDamage real Yes
RH_HammerHitKnockback boolean No
RH_HammerModelHandler effect Yes
RH_HammerMotionEffectChance integer No
RH_HammerRevolve boolean Yes
RH_HammerRevolveAngle real Yes
RH_HammerRevolveAngleSpeed real Yes
RH_HammerRotate boolean No
RH_HammerSize real Yes
RH_HammerSpreadAngle real Yes
RH_HammerSpreadDistance real Yes
RH_HammerSpreadDistanceCounter real Yes
RH_HammerSpreadSpeed real Yes
RH_HammerTrailHandler effect Yes
RH_HammerUnit unit No
RH_ID integer No
RH_KB_Acceleration real No
RH_KB_DestroyTrees boolean No
RH_KB_OnCast boolean No
RH_KB_OnCastAcceleration real No
RH_KB_OnCastRange real No
RH_KB_OnCastSpeed real No
RH_KB_Range real No
RH_KB_Speed real No
RH_KB_Unit unit No
RH_Level integer Yes
RH_LoopInterval real No
RH_Map real Yes
RH_TreeChecker unit No
RH_Trees destructable No
RH_Unit unit No
RS_Animation_Speed real No
RS_Attack_Type attacktype No
RS_Caster unit Yes
RS_Current_Index integer No
RS_Damage real Yes
RS_Damage_Type damagetype No
RS_Effect string Yes
RS_Index integer Yes
RS_Index_Size integer No
RS_Level integer No
RS_Loop integervar No
RS_Max_Index integer No
RS_Slashes integer Yes
RS_Target unit Yes
RS_Transparency real No
RS_Weapon_Effect effect Yes
Shown boolean No
soul location No
soul_p player No
SparkyUnit unit No
Temp_Group_1 group No
Temp_Loc_1 location No
Temp_Loc_2 location No
Temp_Point location No
Temp_Point2 location No
Temp_Real_1 real No
Temp_Real_2 real No
Temp_Real_3 real No
Temp_Real_4 real No
Temp_Real_5 real No
Temp_Unit_1 unit No
Temp_Unit_2 unit No
Temp_Unit_3 unit No
Tirion location No
Tirionowner player No
UDex integer No
UDexGen integer No
UDexNext integer Yes
UDexPrev integer Yes
UDexRecycle integer No
UDexUnits unit Yes
UDexWasted integer No
UnitIndexerEnabled boolean No
UnitIndexEvent real No
UnitPoint location No
VL_Ability abilcode No
VL_AbilityCurse abilcode No
VL_AbilityHeal abilcode No
VL_AbilityLvl integer Yes
VL_AoE real Yes
VL_Buff buffcode No
VL_C_Amount integer No
VL_C_Even real No
VL_C_GrowRate real Yes
VL_C_GrowTime real No
VL_C_MoveRate real Yes
VL_C_SFX string No
VL_C_Speed real No
VL_Caster unit Yes
VL_CounterDuration real Yes
VL_CurrentAoE real Yes
VL_Debuff buffcode No
VL_Degree real No
VL_Dummy unitcode No
VL_DummyCaster unit No
VL_Duration real Yes
VL_GroupEnemy group Yes
VL_L lightning Yes
VL_L_Amount integer No
VL_L_CheckSFX boolean Yes
VL_L_Counter real Yes
VL_L_Direction real No
VL_L_Distance real No
VL_L_Duration real No
VL_L_Height real No
VL_L_ID integer No
VL_L_SFX lightningtype No
VL_L_SFX_EndPoint string No
VL_LoopInt integervar No
VL_MaxIndex integer No
VL_MaxLevel integer No
VL_NodeNext integer Yes
VL_NodePrev integer Yes
VL_Owner player Yes
VL_PeriodicTimer real No
VL_RecycledSize integer No
VL_RecycledStack integer Yes
VL_SFX string No
VL_Spell_ID integer No
VL_SpellCount integer No
VL_TargetLoc location Yes
VL_TempInt integervar No
VL_TempLoc location No
VL_TempReal real No
VL_TempUnit unit No
VOzhdb location No
Vozhdbowner player No
Default melee game initialization for all players
Melee Initialization Copy
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)
Melee Game - Set starting resources (for all players)
Melee Game - Remove creeps and critters from used start locations (for all players)
Melee Game - Create starting units (for all players)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 4 (Purple) controller) Equal to Computer
(Race of Player 4 (Purple)) Equal to Human
Then - Actions
AI - Start melee AI script for Player 4 (Purple) : war3mapImported\AI(Alliance).ai (Unexpected type: 'aiscript')
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player 4 (Purple)) Equal to Undead
Then - Actions
AI - Start melee AI script for Player 4 (Purple) : war3mapImported\AI(undead).ai.ai (Unexpected type: 'aiscript')
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player 4 (Purple)) Equal to Night Elf
Then - Actions
AI - Start melee AI script for Player 4 (Purple) : war3mapImported\AI(Elves).ai.ai (Unexpected type: 'aiscript')
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player 4 (Purple)) Equal to Orc
Then - Actions
AI - Start melee AI script for Player 4 (Purple) : war3mapImported\AI(orcs).ai.ai (Unexpected type: 'aiscript')
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 3 (Teal) controller) Equal to Computer
(Race of Player 3 (Teal)) Equal to Human
Then - Actions
AI - Start melee AI script for Player 3 (Teal) : war3mapImported\AI(Alliance).ai (Unexpected type: 'aiscript')
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player 3 (Teal)) Equal to Undead
Then - Actions
AI - Start melee AI script for Player 3 (Teal) : war3mapImported\AI(undead).ai.ai (Unexpected type: 'aiscript')
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player 3 (Teal)) Equal to Night Elf
Then - Actions
AI - Start melee AI script for Player 3 (Teal) : war3mapImported\AI(Elves).ai.ai (Unexpected type: 'aiscript')
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player 3 (Teal)) Equal to Orc
Then - Actions
AI - Start melee AI script for Player 3 (Teal) : war3mapImported\AI(orcs).ai.ai (Unexpected type: 'aiscript')
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 2 (Blue) controller) Equal to Computer
(Race of Player 2 (Blue)) Equal to Human
Then - Actions
AI - Start melee AI script for Player 2 (Blue) : war3mapImported\AI(Alliance).ai (Unexpected type: 'aiscript')
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player 2 (Blue)) Equal to Undead
Then - Actions
AI - Start melee AI script for Player 2 (Blue) : war3mapImported\AI(undead).ai.ai (Unexpected type: 'aiscript')
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player 2 (Blue)) Equal to Night Elf
Then - Actions
AI - Start melee AI script for Player 2 (Blue) : war3mapImported\AI(Elves).ai.ai (Unexpected type: 'aiscript')
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player 2 (Blue)) Equal to Orc
Then - Actions
AI - Start melee AI script for Player 2 (Blue) : war3mapImported\AI(orcs).ai.ai (Unexpected type: 'aiscript')
Else - Actions
Do nothing
Melee Game - Enforce victory/defeat conditions (for all players)
Game - Display to (All players) the text: Map created by PavelKap. Enjoy!
GoldLumbCost
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Поповнення боєзапасу
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Level of Поповнення боєзапасу for (Triggering unit)) Equal to 1
((Owner of (Triggering unit)) Current gold) Greater than or equal to 10
((Owner of (Triggering unit)) Current lumber) Greater than or equal to 10
Then - Actions
Player - Add -10 to (Owner of (Triggering unit)) . Current gold
Player - Add -10 to (Owner of (Triggering unit)) . Current lumber
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Level of Поповнення боєзапасу for (Triggering unit)) Equal to 2
((Owner of (Triggering unit)) Current gold) Greater than or equal to 100
((Owner of (Triggering unit)) Current lumber) Greater than or equal to 200
Then - Actions
Player - Add -100 to (Owner of (Triggering unit)) . Current gold
Player - Add -200 to (Owner of (Triggering unit)) . Current lumber
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Level of Поповнення боєзапасу for (Triggering unit)) Equal to 3
((Owner of (Triggering unit)) Current gold) Greater than or equal to 500
((Owner of (Triggering unit)) Current lumber) Greater than or equal to 1000
Then - Actions
Player - Add -500 to (Owner of (Triggering unit)) . Current gold
Player - Add -1000 to (Owner of (Triggering unit)) . Current lumber
Else - Actions
Unit - Order (Casting unit) to Stop .
BOOM
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to ОДИН ТОЧНИЙ!
Actions
Set Variable Set Atriller = (Casting unit)
Animation - Play Atriller 's Attack animation
Sound - Play smartsound_WEAPONS_ARTILLERY_Heavy_Close_01__mp3cut_net_u <gen> at 100 % volume, attached to Atriller
Set Variable Set Atriller = No unit
BOOM Copy
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to В ЛІНІЮ!
Actions
Set Variable Set Atriller = (Casting unit)
Animation - Play Atriller 's Attack animation
Sound - Play smartsound_WEAPONS_ARTILLERY_Heavy_Close_01__mp3cut_net_u <gen> at 100 % volume, attached to Atriller
Set Variable Set Atriller = No unit
BOOM Copy 2
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to ШРАПНЕЛЬ!
Actions
Set Variable Set Atriller = (Casting unit)
Animation - Play Atriller 's Attack animation
Sound - Play smartsound_WEAPONS_ARTILLERY_Heavy_Close_01__mp3cut_net_u <gen> at 100 % volume, attached to Atriller
Set Variable Set Atriller = No unit
Readme
Artillery Strike V 2.00

---Importing the spell---
Copy this whole category into your map.
Also copy the Artillery and Marker units from the Object Editor, and don't forget to copy the abilty Artillery Strike aswell.
Remember to give credits! Use the Trigger allready made or give your own credits, which preferable should be under the Quests.
If you are going to make your own credits, the maker of this spell's name (Me) is Laserdude.
The modelmaker's name is WILL THE ALMIGHTY.

---How do I change this spell?---
If you don't know how you can change this spell, then read this.

To change the damage, go into the Artillery Cast trigger and edit the Action with the Hashtable which saves the number 50. Change the number 50 to whatever you want. The damage will be doubled for ability level 2, and trippled for level 3.

To change the cast range, go into the Object Editor and under the Ability tag, edit the "Cast Range" to whatever you want.

To change the possible area of effect, change the "Set Offset" action in the Artillery Continue trigger to whatever you want.

To change the duration between the artillery rounds, go into the Artillery Continue trigger and change the "Unit - Add expiration timer" to whatever you want.

To change the knockback speed, go into the Artillery Continue trigger and change the Hashtable which has the word "Speed" in it, (There is 3 of them!) and change the value, which is either 12.50, 10.00 or 7.50 to whatever you want.
If you want the units to be knocked back further the closer to the impact they are, set them in the same order as they currently are, for example: 20.00, 15.00, 10.00 in that order, from top to bottom.

To change the knockback duration and decrease, go into the Fly trigger and change the actions with the words "Hashtable" and "Increase" in them, and change them to whatever you want. Tip: Make them the same value.

If you have any questions, PM me (Laserdude) on www.hiveworkshop.com

I hope this has helped you.
Enjoy my spell!
/Laserdude
Hashtable
Events
Time - Elapsed game time is 0.01 seconds
Conditions
Actions
Hashtable - Create a hashtable
Set Variable Set Hashtable = (Last created hashtable)
Fly
Events
Time - Every 0.05 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in FlyGroup and do (Actions)
Loop - Actions
Hashtable - Save ((Load (Key Speed.) of (Key (Picked unit).) from Hashtable.) - 0.10) as (Key Speed.) of (Key (Picked unit).) in Hashtable .
Set Variable Set KnockbackCurrentPoint = (Position of (Picked unit))
Set Variable Set KnockbackMovePoint = (KnockbackCurrentPoint offset by (Load (Key Speed.) of (Key (Picked unit).) from Hashtable.) towards (Load (Key Degrees.) of (Key (Picked unit).) from Hashtable.) degrees.)
Unit - Move (Picked unit) instantly to KnockbackMovePoint
Hashtable - Save ((Load (Key Increase.) of (Key (Picked unit).) from Hashtable.) + 0.40) as (Key Increase.) of (Key (Picked unit).) in Hashtable .
Animation - Change (Picked unit) flying height to (((Current flying height of (Picked unit)) + 10.00) - (Load (Key Increase.) of (Key (Picked unit).) from Hashtable.)) at 0.00
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Load (Key Speed.) of (Key (Picked unit).) from Hashtable.) Less than or equal to 0.40
Then - Actions
Unit Group - Remove (Picked unit) from FlyGroup .
Unit - Turn collision for (Picked unit) On .
Hashtable - Clear all child hashtables of child (Key (Picked unit).) in Hashtable .
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in FlyGroup) Equal to 0
Then - Actions
Trigger - Turn off (This trigger)
Else - Actions
Custom script: call RemoveLocation ( udg_KnockbackCurrentPoint )
Custom script: call RemoveLocation ( udg_KnockbackMovePoint )
Credits
Events
Time - Elapsed game time is 0.01 seconds
Conditions
Actions
Quest - Create a Optional quest titled Artillery Strike with the description The Artillery Strike spell is made by Laserdude.The credits for that spell goes to him.The credits for the Artillery Strike model goes to WILL THE ALMIGHTY. , using icon path ReplaceableTextures\CommandButtons\BTNScatterRockets.blp
The triggers beneath this comment is for the normal Artillery Strike.
Artillery Cast Normal
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to ОДИН ТОЧНИЙ!
Actions
Set Variable Set ArtilleryPoint = (Target point of ability being cast)
Unit - Create 1 . Marker (Normal) for (Owner of (Triggering unit)) at ArtilleryPoint facing 90.00 degrees
Unit - Add a 3.00 second Generic expiration timer to (Last created unit)
Hashtable - Save Handle Of (Target point of ability being cast) as (Key Point.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Level of ОДИН ТОЧНИЙ! for (Triggering unit)) x 1) as (Key Strikes.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Real((Level of ОДИН ТОЧНИЙ! for (Triggering unit)))) x 225.00) as (Key Damage.) of (Key (Last created unit).) in Hashtable .
Custom script: call RemoveLocation ( udg_ArtilleryPoint )
Artillery Continue Normal
Events
Unit - A unit Dies
Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Dying unit)) Equal to Artillery (Normal)
(Unit-type of (Dying unit)) Equal to Marker (Normal)
Actions
Set Variable Set Offset = (Random real number between 0 and 200.00)
Set Variable Set Degrees = (Random real number between 0 and 360.00)
Set Variable Set Damage = (Load (Key Damage.) of (Key (Triggering unit).) from Hashtable.)
Set Variable Set ArtilleryPlace = (Load (Key Point.) of (Key (Triggering unit).) in Hashtable.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Load (Key Strikes.) of (Key (Triggering unit).) from Hashtable.) Less than or equal to 0
Then - Actions
Else - Actions
Unit - Create 1 . Artillery (Normal) for (Owner of (Triggering unit)) at (ArtilleryPlace offset by Offset towards Degrees degrees.) facing Default building facing degrees
Set Variable Set ArtilleryPlace = (Position of (Last created unit))
Unit - Add a 0.30 second Generic expiration timer to (Last created unit)
Hashtable - Save Handle Of (Load (Key Point.) of (Key (Triggering unit).) in Hashtable.) as (Key Point.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Load (Key Strikes.) of (Key (Triggering unit).) from Hashtable.) - 1) as (Key Strikes.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save (Load (Key Damage.) of (Key (Triggering unit).) from Hashtable.) as (Key Damage.) of (Key (Last created unit).) in Hashtable .
Environment - Create a 3.00 second Temporary crater deformation at ArtilleryPlace with radius 100.00 and depth 100.00
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 100.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to False) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Set Variable Set DamagePoint = (Position of (Picked unit))
Unit - Add Crow Form to (Picked unit)
Unit - Remove Crow Form from (Picked unit)
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing Damage damage of attack type Chaos and damage type Universal
Animation - Change (Picked unit) flying height to (Default flying height of (Picked unit)) at 0.00
Hashtable - Save 12.50 as (Key Speed.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save (Angle from ArtilleryPlace to DamagePoint) as (Key Degrees.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save 1.00 as (Key Increase.) of (Key (Picked unit).) in Hashtable .
Unit Group - Add (Picked unit) to FlyGroup
Unit - Turn collision for (Picked unit) Off .
Custom script: call RemoveLocation ( udg_DamagePoint )
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 200.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to False) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Set Variable Set DamagePoint = (Position of (Picked unit))
Unit - Add Crow Form to (Picked unit)
Unit - Remove Crow Form from (Picked unit)
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 2.00) damage of attack type Chaos and damage type Universal
Animation - Change (Picked unit) flying height to (Default flying height of (Picked unit)) at 0.00
Hashtable - Save 10.00 as (Key Speed.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save (Angle from ArtilleryPlace to DamagePoint) as (Key Degrees.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save 1.00 as (Key Increase.) of (Key (Picked unit).) in Hashtable .
Unit Group - Add (Picked unit) to FlyGroup
Unit - Turn collision for (Picked unit) Off .
Custom script: call RemoveLocation ( udg_DamagePoint )
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 300.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to False) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Set Variable Set DamagePoint = (Position of (Picked unit))
Unit - Add Crow Form to (Picked unit)
Unit - Remove Crow Form from (Picked unit)
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 3.00) damage of attack type Chaos and damage type Universal
Animation - Change (Picked unit) flying height to (Default flying height of (Picked unit)) at 0.00
Hashtable - Save 7.50 as (Key Speed.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save (Angle from ArtilleryPlace to DamagePoint) as (Key Degrees.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save 1.00 as (Key Increase.) of (Key (Picked unit).) in Hashtable .
Unit Group - Add (Picked unit) to FlyGroup
Unit - Turn collision for (Picked unit) Off .
Custom script: call RemoveLocation ( udg_DamagePoint )
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 100.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing Damage damage of attack type Chaos and damage type Universal
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 200.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 2.00) damage of attack type Chaos and damage type Universal
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 300.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 3.00) damage of attack type Chaos and damage type Universal
Special Effect - Create a special effect at ArtilleryPlace using Objects\Spawnmodels\Other\NeutralBuildingExplosion\NeutralBuildingExplosion.mdl
Special Effect - Destroy (Last created special effect)
Trigger - Turn on Fly <gen>
Custom script: call RemoveLocation ( udg_ArtilleryPlace )
Hashtable - Clear all child hashtables of child (Key (Triggering unit).) in Hashtable .
The triggers beneath this comment is for the straight Artillery Strike.
Artillery Cast Straight
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to В ЛІНІЮ!
Actions
Set Variable Set CasterPoint = (Position of (Triggering unit))
Set Variable Set ArtilleryPoint = (Target point of ability being cast)
Unit - Create 1 . Marker (Straight) for (Owner of (Triggering unit)) at ArtilleryPoint facing 90.00 degrees
Unit - Add a 3.00 second Generic expiration timer to (Last created unit)
Hashtable - Save (Angle from CasterPoint to ArtilleryPoint) as (Key Facing.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save Handle Of (Target point of ability being cast) as (Key Point.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Level of В ЛІНІЮ! for (Triggering unit)) x 5) as (Key Strikes.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Real((Level of В ЛІНІЮ! for (Triggering unit)))) x 100.00) as (Key Damage.) of (Key (Last created unit).) in Hashtable .
Custom script: call RemoveLocation ( udg_ArtilleryPoint )
Custom script: call RemoveLocation ( udg_CasterPoint )
Artillery Continue Straight
Events
Unit - A unit Dies
Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Dying unit)) Equal to Artillery (Straight)
(Unit-type of (Dying unit)) Equal to Marker (Straight)
Actions
Set Variable Set Offset = (Load (Key Offset.) of (Key (Triggering unit).) from Hashtable.)
Set Variable Set Degrees = (Load (Key Facing.) of (Key (Triggering unit).) from Hashtable.)
Set Variable Set Damage = (Load (Key Damage.) of (Key (Triggering unit).) from Hashtable.)
Set Variable Set ArtilleryPlace = (Load (Key Point.) of (Key (Triggering unit).) in Hashtable.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Load (Key Strikes.) of (Key (Triggering unit).) from Hashtable.) Less than or equal to 0
Then - Actions
Else - Actions
Unit - Create 1 . Artillery (Straight) for (Owner of (Triggering unit)) at (ArtilleryPlace offset by Offset towards Degrees degrees.) facing Default building facing degrees
Set Variable Set ArtilleryPlace = (Position of (Last created unit))
Unit - Add a 0.30 second Generic expiration timer to (Last created unit)
Hashtable - Save Handle Of (Load (Key Point.) of (Key (Triggering unit).) in Hashtable.) as (Key Point.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Load (Key Strikes.) of (Key (Triggering unit).) from Hashtable.) - 1) as (Key Strikes.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save (Load (Key Damage.) of (Key (Triggering unit).) from Hashtable.) as (Key Damage.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Load (Key Offset.) of (Key (Triggering unit).) from Hashtable.) + 150.00) as (Key Offset.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save (Load (Key Facing.) of (Key (Triggering unit).) from Hashtable.) as (Key Facing.) of (Key (Last created unit).) in Hashtable .
Environment - Create a 3.00 second Temporary crater deformation at ArtilleryPlace with radius 100.00 and depth 100.00
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 100.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to False) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Set Variable Set DamagePoint = (Position of (Picked unit))
Unit - Add Crow Form to (Picked unit)
Unit - Remove Crow Form from (Picked unit)
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing Damage damage of attack type Chaos and damage type Universal
Animation - Change (Picked unit) flying height to (Default flying height of (Picked unit)) at 0.00
Hashtable - Save 12.50 as (Key Speed.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save (Angle from ArtilleryPlace to DamagePoint) as (Key Degrees.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save 1.00 as (Key Increase.) of (Key (Picked unit).) in Hashtable .
Unit Group - Add (Picked unit) to FlyGroup
Unit - Turn collision for (Picked unit) Off .
Custom script: call RemoveLocation ( udg_DamagePoint )
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 200.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to False) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Set Variable Set DamagePoint = (Position of (Picked unit))
Unit - Add Crow Form to (Picked unit)
Unit - Remove Crow Form from (Picked unit)
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 2.00) damage of attack type Chaos and damage type Universal
Animation - Change (Picked unit) flying height to (Default flying height of (Picked unit)) at 0.00
Hashtable - Save 10.00 as (Key Speed.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save (Angle from ArtilleryPlace to DamagePoint) as (Key Degrees.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save 1.00 as (Key Increase.) of (Key (Picked unit).) in Hashtable .
Unit Group - Add (Picked unit) to FlyGroup
Unit - Turn collision for (Picked unit) Off .
Custom script: call RemoveLocation ( udg_DamagePoint )
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 300.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to False) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Set Variable Set DamagePoint = (Position of (Picked unit))
Unit - Add Crow Form to (Picked unit)
Unit - Remove Crow Form from (Picked unit)
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 3.00) damage of attack type Chaos and damage type Universal
Animation - Change (Picked unit) flying height to (Default flying height of (Picked unit)) at 0.00
Hashtable - Save 7.50 as (Key Speed.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save (Angle from ArtilleryPlace to DamagePoint) as (Key Degrees.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save 1.00 as (Key Increase.) of (Key (Picked unit).) in Hashtable .
Unit Group - Add (Picked unit) to FlyGroup
Unit - Turn collision for (Picked unit) Off .
Custom script: call RemoveLocation ( udg_DamagePoint )
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 100.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing Damage damage of attack type Chaos and damage type Universal
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 200.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 2.00) damage of attack type Chaos and damage type Universal
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 300.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 3.00) damage of attack type Chaos and damage type Universal
Special Effect - Create a special effect at ArtilleryPlace using Objects\Spawnmodels\Other\NeutralBuildingExplosion\NeutralBuildingExplosion.mdl
Special Effect - Destroy (Last created special effect)
Trigger - Turn on Fly <gen>
Custom script: call RemoveLocation ( udg_ArtilleryPlace )
Hashtable - Clear all child hashtables of child (Key (Triggering unit).) in Hashtable .
The triggers beneath this comment is for the circular Artillery Strike.
Artillery Cast Circle Copy
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to ШРАПНЕЛЬ!
Actions
Set Variable Set ArtilleryPoint = (Target point of ability being cast)
Set Variable Set ArtilleryPointRand = (ArtilleryPoint offset by (Random real number between 1.00 and 1000.00) towards (Random angle) degrees.)
Unit - Create 1 . Marker (Circle) for (Owner of (Triggering unit)) at ArtilleryPointRand facing 90.00 degrees
Unit - Add a 3.00 second Generic expiration timer to (Last created unit)
Hashtable - Save Handle Of (Position of (Last created unit)) as (Key Point.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save 0.00 as (Key Facing.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Level of ШРАПНЕЛЬ! for (Triggering unit)) x 1) as (Key Strikes.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Real((Level of ШРАПНЕЛЬ! for (Triggering unit)))) x 75.00) as (Key Damage.) of (Key (Last created unit).) in Hashtable .
Custom script: call RemoveLocation ( udg_ArtilleryPoint )
Custom script: call RemoveLocation ( udg_ArtilleryPointRand )
Artillery Cast Circle Copy Copy
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to ШРАПНЕЛЬ!
Actions
Set Variable Set ArtilleryPoint = (Target point of ability being cast)
Set Variable Set ArtilleryPointRand = (ArtilleryPoint offset by (Random real number between 1.00 and 1000.00) towards (Random angle) degrees.)
Unit - Create 1 . Marker (Circle) for (Owner of (Triggering unit)) at ArtilleryPointRand facing 90.00 degrees
Unit - Add a 3.00 second Generic expiration timer to (Last created unit)
Hashtable - Save Handle Of (Position of (Last created unit)) as (Key Point.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save 0.00 as (Key Facing.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Level of ШРАПНЕЛЬ! for (Triggering unit)) x 1) as (Key Strikes.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Real((Level of ШРАПНЕЛЬ! for (Triggering unit)))) x 75.00) as (Key Damage.) of (Key (Last created unit).) in Hashtable .
Custom script: call RemoveLocation ( udg_ArtilleryPoint )
Custom script: call RemoveLocation ( udg_ArtilleryPointRand )
Artillery Cast Circle Copy Copy 2
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to ШРАПНЕЛЬ!
Actions
Set Variable Set ArtilleryPoint = (Target point of ability being cast)
Set Variable Set ArtilleryPointRand = (ArtilleryPoint offset by (Random real number between 1.00 and 1000.00) towards (Random angle) degrees.)
Unit - Create 1 . Marker (Circle) for (Owner of (Triggering unit)) at ArtilleryPointRand facing 90.00 degrees
Unit - Add a 3.00 second Generic expiration timer to (Last created unit)
Hashtable - Save Handle Of (Position of (Last created unit)) as (Key Point.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save 0.00 as (Key Facing.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Level of ШРАПНЕЛЬ! for (Triggering unit)) x 1) as (Key Strikes.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Real((Level of ШРАПНЕЛЬ! for (Triggering unit)))) x 75.00) as (Key Damage.) of (Key (Last created unit).) in Hashtable .
Custom script: call RemoveLocation ( udg_ArtilleryPoint )
Custom script: call RemoveLocation ( udg_ArtilleryPointRand )
Artillery Cast Circle Copy Copy 3
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to ШРАПНЕЛЬ!
Actions
Set Variable Set ArtilleryPoint = (Target point of ability being cast)
Set Variable Set ArtilleryPointRand = (ArtilleryPoint offset by (Random real number between 1.00 and 1000.00) towards (Random angle) degrees.)
Unit - Create 1 . Marker (Circle) for (Owner of (Triggering unit)) at ArtilleryPointRand facing 90.00 degrees
Unit - Add a 3.00 second Generic expiration timer to (Last created unit)
Hashtable - Save Handle Of (Position of (Last created unit)) as (Key Point.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save 0.00 as (Key Facing.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Level of ШРАПНЕЛЬ! for (Triggering unit)) x 1) as (Key Strikes.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Real((Level of ШРАПНЕЛЬ! for (Triggering unit)))) x 75.00) as (Key Damage.) of (Key (Last created unit).) in Hashtable .
Custom script: call RemoveLocation ( udg_ArtilleryPoint )
Custom script: call RemoveLocation ( udg_ArtilleryPointRand )
Artillery Cast Circle Copy Copy 4
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to ШРАПНЕЛЬ!
Actions
Set Variable Set ArtilleryPoint = (Target point of ability being cast)
Set Variable Set ArtilleryPointRand = (ArtilleryPoint offset by (Random real number between 1.00 and 1000.00) towards (Random angle) degrees.)
Unit - Create 1 . Marker (Circle) for (Owner of (Triggering unit)) at ArtilleryPointRand facing 90.00 degrees
Unit - Add a 3.00 second Generic expiration timer to (Last created unit)
Hashtable - Save Handle Of (Position of (Last created unit)) as (Key Point.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save 0.00 as (Key Facing.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Level of ШРАПНЕЛЬ! for (Triggering unit)) x 1) as (Key Strikes.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Real((Level of ШРАПНЕЛЬ! for (Triggering unit)))) x 75.00) as (Key Damage.) of (Key (Last created unit).) in Hashtable .
Custom script: call RemoveLocation ( udg_ArtilleryPoint )
Custom script: call RemoveLocation ( udg_ArtilleryPointRand )
Artillery Continue Circle Copy
Events
Unit - A unit Dies
Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Dying unit)) Equal to Artillery (Circle)
(Unit-type of (Dying unit)) Equal to Marker (Circle)
Actions
Set Variable Set Offset = (Load (Key Offset.) of (Key (Triggering unit).) from Hashtable.)
Set Variable Set Degrees = (Load (Key Facing.) of (Key (Triggering unit).) from Hashtable.)
Set Variable Set Damage = (Load (Key Damage.) of (Key (Triggering unit).) from Hashtable.)
Set Variable Set ArtilleryPlace = (Load (Key Point.) of (Key (Triggering unit).) in Hashtable.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Load (Key Strikes.) of (Key (Triggering unit).) from Hashtable.) Less than or equal to 0
Then - Actions
Else - Actions
Unit - Create 1 . Artillery (Circle) for (Owner of (Triggering unit)) at (ArtilleryPlace offset by Offset towards Degrees degrees.) facing Default building facing degrees
Set Variable Set ArtilleryPlace = (Position of (Last created unit))
Unit - Add a 0.30 second Generic expiration timer to (Last created unit)
Hashtable - Save Handle Of (Load (Key Point.) of (Key (Triggering unit).) in Hashtable.) as (Key Point.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Load (Key Strikes.) of (Key (Triggering unit).) from Hashtable.) - 1) as (Key Strikes.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save (Load (Key Damage.) of (Key (Triggering unit).) from Hashtable.) as (Key Damage.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Load (Key Offset.) of (Key (Triggering unit).) from Hashtable.) + 50.00) as (Key Offset.) of (Key (Last created unit).) in Hashtable .
Hashtable - Save ((Load (Key Facing.) of (Key (Triggering unit).) from Hashtable.) + 45.00) as (Key Facing.) of (Key (Last created unit).) in Hashtable .
Environment - Create a 3.00 second Temporary crater deformation at ArtilleryPlace with radius 100.00 and depth 100.00
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 100.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to False) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Set Variable Set DamagePoint = (Position of (Picked unit))
Unit - Add Crow Form to (Picked unit)
Unit - Remove Crow Form from (Picked unit)
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing Damage damage of attack type Chaos and damage type Universal
Animation - Change (Picked unit) flying height to (Default flying height of (Picked unit)) at 0.00
Hashtable - Save 12.50 as (Key Speed.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save (Angle from ArtilleryPlace to DamagePoint) as (Key Degrees.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save 1.00 as (Key Increase.) of (Key (Picked unit).) in Hashtable .
Unit Group - Add (Picked unit) to FlyGroup
Unit - Turn collision for (Picked unit) Off .
Custom script: call RemoveLocation ( udg_DamagePoint )
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 200.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to False) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Set Variable Set DamagePoint = (Position of (Picked unit))
Unit - Add Crow Form to (Picked unit)
Unit - Remove Crow Form from (Picked unit)
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 2.00) damage of attack type Chaos and damage type Universal
Animation - Change (Picked unit) flying height to (Default flying height of (Picked unit)) at 0.00
Hashtable - Save 10.00 as (Key Speed.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save (Angle from ArtilleryPlace to DamagePoint) as (Key Degrees.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save 1.00 as (Key Increase.) of (Key (Picked unit).) in Hashtable .
Unit Group - Add (Picked unit) to FlyGroup
Unit - Turn collision for (Picked unit) Off .
Custom script: call RemoveLocation ( udg_DamagePoint )
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 300.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to False) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Set Variable Set DamagePoint = (Position of (Picked unit))
Unit - Add Crow Form to (Picked unit)
Unit - Remove Crow Form from (Picked unit)
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 3.00) damage of attack type Chaos and damage type Universal
Animation - Change (Picked unit) flying height to (Default flying height of (Picked unit)) at 0.00
Hashtable - Save 7.50 as (Key Speed.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save (Angle from ArtilleryPlace to DamagePoint) as (Key Degrees.) of (Key (Picked unit).) in Hashtable .
Hashtable - Save 1.00 as (Key Increase.) of (Key (Picked unit).) in Hashtable .
Unit Group - Add (Picked unit) to FlyGroup
Unit - Turn collision for (Picked unit) Off .
Custom script: call RemoveLocation ( udg_DamagePoint )
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 100.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing Damage damage of attack type Chaos and damage type Universal
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 200.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 2.00) damage of attack type Chaos and damage type Universal
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within 300.00 of ArtilleryPlace matching ((((Matching unit) is alive) Equal to True) and ((((Matching unit) is A structure) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of (Dying unit)).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Cause (Triggering unit) to damage (Picked unit) , dealing (Damage / 3.00) damage of attack type Chaos and damage type Universal
Special Effect - Create a special effect at ArtilleryPlace using Objects\Spawnmodels\Other\NeutralBuildingExplosion\NeutralBuildingExplosion.mdl
Special Effect - Destroy (Last created special effect)
Trigger - Turn on Fly <gen>
Custom script: call RemoveLocation ( udg_ArtilleryPlace )
Hashtable - Clear all child hashtables of child (Key (Triggering unit).) in Hashtable .
Triger AM
Events
Unit - A unit Learns a skill
Conditions
СЖ (Spellbreaker) Equal to (Learned Hero Skill)
Actions
Set Variable Set AM = (Learning Hero)
Untitled Trigger 001
Events
Unit - A unit Dies
Conditions
(Killing unit) Equal to AM
(Race of (Triggering unit)) Not equal to Night Elf
Actions
Hero - Modify Strength of AM : Add 1 .
PalUndStr
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Паладін
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Attacked unit)) Equal to Undead
Then - Actions
Unit - Remove Удар по героям (паладін) from (Attacking unit)
Unit - Add Святий молот(герої) to (Attacking unit)
Else - Actions
Unit - Remove Святий молот(герої) from (Attacking unit)
Unit - Add Удар по героям (паладін) to (Attacking unit)
PalUndStr nonhero
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Паладін
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Attacked unit)) Equal to Undead
Then - Actions
Unit - Add Святий молот to (Attacking unit)
Else - Actions
Unit - Remove Святий молот from (Attacking unit)
Untitled Trigger 002 Copy
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Паладін
(Race of (Attacked unit)) Equal to Undead
Actions
Wait 0.50 seconds
Special Effect - Create a special effect at (Position of (Attacked unit)) using Abilities\Spells\Human\HolyBolt\HolyBoltSpecialArt.mdl
Animation
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to По коням
Actions
Wait 0.60 seconds
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Triggering unit) is A melee attacker) Equal to True
Then - Actions
Unit - Set (Triggering unit) movement speed to 120.00
Wait 0.50 seconds
Unit - Set (Triggering unit) movement speed to 170.00
Wait 0.50 seconds
Unit - Set (Triggering unit) movement speed to 220.00
Wait 0.50 seconds
Unit - Set (Triggering unit) movement speed to 270.00
Wait 0.50 seconds
Unit - Set (Triggering unit) movement speed to 320.00
Wait 0.50 seconds
Unit - Set (Triggering unit) movement speed to 370.00
Wait 0.50 seconds
Unit - Set (Triggering unit) movement speed to 420.00
Else - Actions
Do nothing
spawn
Events
Unit - A unit Finishes research
Conditions
(Researched tech-type) Equal to R001 (Unexpected type: 'techcode')
Actions
Set Variable Set Tirion = ((Owner of (Triggering unit)) start location)
Set Variable Set Tirionowner = (Owner of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . Ефект Тіріон for (Owner of (Triggering unit)) at Tirion facing 90.00 degrees
Unit - Add a 1.00 second Generic expiration timer to (Last created unit)
Wait 1.00 seconds
Unit - Create 1 . Тіріон Фордрінг for Tirionowner at Tirion facing 180.00 degrees
Custom script: call RemoveLocation ( udg_Tirion )
Set Variable Set Tirionowner = (Owner of No unit)
spawn vozhdb
Events
Unit - A unit Finishes research
Conditions
(Researched tech-type) Equal to R002 (Unexpected type: 'techcode')
Actions
Set Variable Set VOzhdb = ((Owner of (Triggering unit)) start location)
Set Variable Set Vozhdbowner = (Owner of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . ORC EFFECT for (Owner of (Triggering unit)) at VOzhdb facing 90.00 degrees
Unit - Add a 4.00 second Generic expiration timer to (Last created unit)
Wait 1.00 seconds
Wait 1.00 seconds
Wait 1.00 seconds
Wait 1.00 seconds
Unit - Create 1 . Вождь for Vozhdbowner at VOzhdb facing 180.00 degrees
Custom script: call RemoveLocation ( udg_VOzhdb )
Set Variable Set Vozhdbowner = (Owner of No unit)
spawn archi
Events
Unit - A unit Finishes research
Conditions
(Researched tech-type) Equal to R003 (Unexpected type: 'techcode')
Actions
Set Variable Set archi = ((Owner of (Triggering unit)) start location)
Set Variable Set archi_owner = (Owner of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . undead EFFECT for (Owner of (Triggering unit)) at archi facing 90.00 degrees
Wait 5.00 seconds
Unit - Explode (Last created unit) .
Unit - Create 1 . ДЕМОН for archi_owner at archi facing 90.00 degrees
Custom script: call RemoveLocation ( udg_archi )
Set Variable Set archi_owner = (Owner of No unit)
spawn SOUL
Events
Unit - A unit Finishes research
Conditions
(Researched tech-type) Equal to R004 (Unexpected type: 'techcode')
Actions
Set Variable Set soul = ((Owner of (Triggering unit)) start location)
Set Variable Set soul_p = (Owner of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . elves effect for (Owner of (Triggering unit)) at soul facing 90.00 degrees
Unit - Add a 5.00 second Generic expiration timer to (Last created unit)
Wait 5.00 seconds
Unit - Create 1 . Душа лісу for soul_p at soul facing 90.00 degrees
Custom script: call RemoveLocation ( udg_soul )
Set Variable Set soul_p = (Owner of No unit)
Untitled Trigger 002
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Святий Ствол
(Mana of (Attacking unit)) Greater than or equal to 200.00
Actions
Wait 0.50 seconds
Special Effect - Create a special effect at (Position of (Attacked unit)) using Abilities\Spells\Human\HolyBolt\HolyBoltSpecialArt.mdl
KILLIF
Events
Time - Every 1.00 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in (Units in (Playable map area) matching ((((Matching unit) has buff Disease) Equal to True) and ((Life of (Matching unit)) Less than or equal to 15.00))) and do (Kill (Picked unit))
//TESH.scrollpos=0
//TESH.alwaysfold=0
/*
    Volatile Light
    v2.01
    By KILLCIDE
 
    Making this spell gave me so many problems ._. this spell went through A LOT (an understatement) of changes

    Requirements:
    --------
 
        - dummy.mdx
 
    Credits:
    -------
    
        - Vexorian for dummy.mdx
    
    How to Install:
    --------------
 
         1. Under Preferences, make sure you have "Automatically create unknown variables while pasting trigger data" checked
         2. Import dummy.mdx, then copy and paste the dummy unit, three abilities, and two buffs into your map
            NOTE: If you already have dummy.mdx imported into your map, you DO NOT have to reimport it
                  If you already have a global dummy unit in your map, you can skip this step
         3. Copy and paste the Volatile Light folder into your map
         4. Go to the VL Config trigger, and change the Ability, Dummy, AbilityCurse, AbilityHeal, Debuff, & Buff variables to the 
            corresponding objects you just imported
 
         NOTE: Make sure that AbilityCurse & AbilityHeal have the correct buff data fields!
    
    Changelog:
    ---------
 
        - v2.01 (March 18, 2016):     Added an optional Volatile Light folder that is integrated with GUI Spell System
                                      Fixed inaccuracy of GrowRate incrementing inside the circle creation loop
                                      Removed unnecesary NodeLast[] variable for linked list; last spell instance now stores into NodePrev[0]
                                      Removed If/Then/Else that would set NodeLast = NodePrev[Spell_ID] if NodeLast == Spell_ID
 
        - v2.00 (January 25, 2016):   Changed data structure to linked listing
                                      Fixed bug of debuff effect not being removed on dead enemy units until the end of the duration
 
        - v1.03 (December 04, 2015):  Changed Owner[] variable to now use Triggering Player instead of Owner of (Unit)
                                      Changed spell to now use one global dummy caster instead of one dummy caster per spell instance
                                      Changed loop to check if it is time to deindex before starting
                                      Changed name of VL Init trigger to VL Cast
                                      Removed unnecessary function call when turning off VL Loop (Turn off (This trigger) -> (Turn off VL Loop)) 
                                      
        - v1.02 (November 26, 2015):  Changed the way the lightning effects are created
                                      Changed names of some variables
                                      Removed the Lightning Effects ability
                                      Removed unneccesary variables
 
        - v1.01 (October 1, 2015):    Added a configurable to change the origin and angle of the lightning effects
                                      Fixed GrowSpeed to GrowTime (lets you decide how long it will take for effects to reach max radius)
                                      Removed KillUnit function and replaced it with RemoveUnit
                                      Removed VL Dummy Cleaner trigger
                                   
        - v1.00 (September 29, 2015): Uploaded onto Hive
VL Config
Events
Map initialization
Conditions
Actions
-------- !! CONFIG START !! --------
-------- Abilities & Dummy Unit --------
Set Variable Set VL_Ability = "A01E"
-------- Dummy Unit --------
Set Variable Set VL_Dummy = "n008"
-------- Miss on Attacks Ability --------
Set Variable Set VL_AbilityCurse = "A01C"
-------- Buff for VL_AbilityMiss --------
-------- NOTE: If you want to change debuff SFX, refer to this buff --------
Set Variable Set VL_Debuff = "B000"
-------- Healing Ability --------
Set Variable Set VL_AbilityHeal = "A01D"
-------- Buff for VL_AbilityHeal --------
-------- NOTE: If you want to change the buff SFX, refer to this buff --------
Set Variable Set VL_Buff = "B001"
-------- --------
-------- Max Level VL_Ability Will Have --------
-------- NOTE: THIS IS REALLY IMPORTANT IF YOU WANT AOE TO WORK PROPERLY --------
Set Variable Set VL_MaxLevel = "3"
-------- --------
-------- Special Effect for Lightning --------
Set Variable Set VL_L_SFX = Healing Wave - Primary
Set Variable Set VL_L_Amount = "3"
Set Variable Set VL_L_Duration = "1.00"
Set Variable Set VL_L_Distance = "800.00"
Set Variable Set VL_L_Height = "1500.00"
-------- --------
-------- Duration of Spell Per Level --------
Set Variable Set VL_Duration[1] = "8.00"
Set Variable Set VL_Duration[2] = "10.00"
Set Variable Set VL_Duration[3] = "12.00"
-------- --------
-------- Radius of Spell Per Level --------
-------- NOTE: Make sure to match the AoE values of VL_Ability --------
Set Variable Set VL_AoE[1] = "300.00"
Set Variable Set VL_AoE[2] = "350.00"
Set Variable Set VL_AoE[3] = "400.00"
-------- --------
-------- Special Effect for AoE Indicator --------
Set Variable Set VL_C_SFX = "Abilities\Spells\Other\Transmute\GoldBottleMissile.mdl"
Set Variable Set VL_C_Speed = "4.00"
Set Variable Set VL_C_Amount = "3"
Set Variable Set VL_C_GrowTime = "2.00"
-------- --------
-------- Special Effect from Caster At Start of Ability --------
Set Variable Set VL_SFX = "Abilities\Spells\Human\ThunderClap\ThunderClapCaster.mdl"
-------- --------
-------- Special Effect for Lightning Points --------
Set Variable Set VL_L_SFX_EndPoint = "Abilities\Spells\Human\HolyBolt\HolyBoltSpecialArt.mdl"
-------- !! CONFIG END !! --------
-------- --------
Set Variable Set VL_PeriodicTimer = "0.03"
Trigger - Add to VL_Loop <gen> the event (Every VL_PeriodicTimer seconds of game time)
-------- --------
Set Variable Set VL_TempLoc = (Center of (Playable map area))
Unit - Create 1 . VL_Dummy for Neutral Passive at VL_TempLoc facing Default building facing degrees
Set Variable Set VL_DummyCaster = (Last created unit)
Unit - Add VL_AbilityCurse to VL_DummyCaster
Unit - Add VL_AbilityHeal to VL_DummyCaster
Custom script: call UnitRemoveAbility(udg_VL_DummyCaster, 'Amov')
Custom script: call RemoveLocation(udg_VL_TempLoc)
Set Variable Set VL_TempReal = (Real(VL_C_Amount))
Set Variable Set VL_C_Even = (360.00 / VL_TempReal)
For each (Integer VL_TempInt ) from 1 to VL_MaxLevel , do (Actions)
Loop - Actions
Set Variable Set VL_C_GrowRate[VL_TempInt] = (VL_AoE[VL_TempInt] / (VL_C_GrowTime / VL_PeriodicTimer))
VL Cast
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to VL_Ability
Actions
Custom script: local real x1
Custom script: local real y1
Custom script: local real z1
Custom script: local real x2
Custom script: local real y2
Custom script: local real z2
-------- --------
Set Variable Set VL_SpellCount = (VL_SpellCount + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
VL_SpellCount Equal to 1
Then - Actions
Trigger - Turn on VL_Loop <gen>
Else - Actions
-------- loop is already on; do nothing --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
VL_RecycledSize Equal to 0
Then - Actions
Set Variable Set VL_MaxIndex = (VL_MaxIndex + 1)
Set Variable Set VL_Spell_ID = VL_MaxIndex
Else - Actions
Set Variable Set VL_RecycledSize = (VL_RecycledSize - 1)
Set Variable Set VL_Spell_ID = VL_RecycledStack[VL_RecycledSize]
Set Variable Set VL_NodeNext[VL_Spell_ID] = "0"
Set Variable Set VL_NodeNext[VL_NodePrev[0]] = VL_Spell_ID
Set Variable Set VL_NodePrev[VL_Spell_ID] = VL_NodePrev[0]
Set Variable Set VL_NodePrev[0] = VL_Spell_ID
-------- --------
Set Variable Set VL_Caster[VL_Spell_ID] = (Triggering unit)
Set Variable Set VL_Owner[VL_Spell_ID] = (Triggering player)
Set Variable Set VL_AbilityLvl[VL_Spell_ID] = (Level of VL_Ability for VL_Caster[VL_Spell_ID])
Set Variable Set VL_TargetLoc[VL_Spell_ID] = (Target point of ability being cast)
Set Variable Set VL_C_MoveRate[VL_Spell_ID] = "0.00"
Set Variable Set VL_CounterDuration[VL_Spell_ID] = "0.00"
Set Variable Set VL_L_Counter[VL_Spell_ID] = "0.00"
Set Variable Set VL_CurrentAoE[VL_Spell_ID] = "0.00"
Set Variable Set VL_L_CheckSFX[VL_Spell_ID] = "true"
-------- --------
Custom script: if udg_VL_GroupEnemy[udg_VL_Spell_ID] == null then
Custom script: set udg_VL_GroupEnemy[udg_VL_Spell_ID] = CreateGroup()
Custom script: endif
-------- --------
Set Variable Set VL_TempLoc = (Position of VL_Caster[VL_Spell_ID])
Set Variable Set VL_L_Direction = (Angle from VL_TargetLoc[VL_Spell_ID] to VL_TempLoc)
Custom script: call RemoveLocation(udg_VL_TempLoc)
Set Variable Set VL_TempLoc = (VL_TargetLoc[VL_Spell_ID] offset by VL_L_Distance towards VL_L_Direction degrees.)
Special Effect - Create a special effect at VL_TargetLoc[VL_Spell_ID] using VL_SFX
Special Effect - Destroy (Last created special effect)
Custom script: set x1 = GetLocationX(udg_VL_TempLoc)
Custom script: set y1 = GetLocationY(udg_VL_TempLoc)
Custom script: set z1 = GetLocationZ(udg_VL_TempLoc) + udg_VL_L_Height
Custom script: set x2 = GetLocationX(udg_VL_TargetLoc[udg_VL_Spell_ID])
Custom script: set y2 = GetLocationY(udg_VL_TargetLoc[udg_VL_Spell_ID])
Custom script: set z2 = GetLocationZ(udg_VL_TargetLoc[udg_VL_Spell_ID])
Custom script: call RemoveLocation(udg_VL_TempLoc)
For each (Integer VL_TempInt ) from 1 to VL_L_Amount , do (Actions)
Loop - Actions
Set Variable Set VL_L_ID = ((VL_Spell_ID x VL_L_Amount) + VL_TempInt)
Custom script: set udg_VL_L[udg_VL_L_ID] = AddLightningEx(udg_VL_L_SFX, true, x1, y1, z1, x2, y2, z2)
Special Effect - Create a special effect at VL_TargetLoc[VL_Spell_ID] using VL_L_SFX_EndPoint
Special Effect - Destroy (Last created special effect)
VL Loop
Events
Conditions
Actions
Set Variable Set VL_Spell_ID = "0"
For each (Integer VL_LoopInt ) from 1 to VL_SpellCount , do (Actions)
Loop - Actions
Set Variable Set VL_Spell_ID = VL_NodeNext[VL_Spell_ID]
Set Variable Set VL_CounterDuration[VL_Spell_ID] = (VL_CounterDuration[VL_Spell_ID] + VL_PeriodicTimer)
-------- checking if the instance duration has ended --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
VL_CounterDuration[VL_Spell_ID] Greater than or equal to VL_Duration[VL_AbilityLvl[VL_Spell_ID]]
Then - Actions
Unit Group - Pick every unit in VL_GroupEnemy[VL_Spell_ID] and do (Actions)
Loop - Actions
Set Variable Set VL_TempUnit = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(VL_TempUnit has buff VL_Debuff) Equal to True
Then - Actions
Unit - Remove VL_Debuff buff from VL_TempUnit
Else - Actions
-------- TempUnit does not have debuff; do nothing --------
Custom script: call DestroyGroup(udg_VL_GroupEnemy[udg_VL_Spell_ID])
Custom script: set udg_VL_GroupEnemy[udg_VL_Spell_ID] = null
Custom script: call RemoveLocation(udg_VL_TargetLoc[udg_VL_Spell_ID])
-------- --------
Set Variable Set VL_RecycledStack[VL_RecycledSize] = VL_Spell_ID
Set Variable Set VL_RecycledSize = (VL_RecycledSize + 1)
Set Variable Set VL_NodeNext[VL_NodePrev[VL_Spell_ID]] = VL_NodeNext[VL_Spell_ID]
Set Variable Set VL_NodePrev[VL_NodeNext[VL_Spell_ID]] = VL_NodePrev[VL_Spell_ID]
-------- --------
Set Variable Set VL_SpellCount = (VL_SpellCount - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
VL_SpellCount Equal to 0
Then - Actions
Trigger - Turn off VL_Loop <gen>
Else - Actions
-------- there is still a spell instance running; do not turn loop off --------
Else - Actions
-------- checking if lightning effects are still active --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
VL_L_CheckSFX[VL_Spell_ID] Equal to True
Then - Actions
Set Variable Set VL_L_Counter[VL_Spell_ID] = (VL_L_Counter[VL_Spell_ID] + VL_PeriodicTimer)
-------- checking if the lightning effects have reached their max duration of visibility --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
VL_L_Counter[VL_Spell_ID] Greater than or equal to VL_L_Duration
Then - Actions
For each (Integer VL_TempInt ) from 1 to VL_L_Amount , do (Actions)
Loop - Actions
Set Variable Set VL_L_ID = ((VL_Spell_ID x VL_L_Amount) + VL_TempInt)
Lightning - Destroy VL_L[VL_L_ID]
Set Variable Set VL_L_CheckSFX[VL_Spell_ID] = "false"
Else - Actions
-------- lightning effects have not reached their max duration of visibility; do not destroy them --------
Else - Actions
-------- lightning effects are no longer active; do nothing --------
-------- creating the circle effect --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
VL_CurrentAoE[VL_Spell_ID] Less than or equal to VL_AoE[VL_AbilityLvl[VL_Spell_ID]]
Then - Actions
Set Variable Set VL_CurrentAoE[VL_Spell_ID] = (VL_CurrentAoE[VL_Spell_ID] + VL_C_GrowRate[VL_AbilityLvl[VL_Spell_ID]])
Else - Actions
-------- effects have already reached max AoE; do not continue to grow --------
For each (Integer VL_TempInt ) from 1 to VL_C_Amount , do (Actions)
Loop - Actions
Set Variable Set VL_TempReal = (Real(VL_TempInt))
Set Variable Set VL_Degree = (VL_C_MoveRate[VL_Spell_ID] + (VL_C_Even x VL_TempReal))
Set Variable Set VL_TempLoc = (VL_TargetLoc[VL_Spell_ID] offset by VL_CurrentAoE[VL_Spell_ID] towards VL_Degree degrees.)
Special Effect - Create a special effect at VL_TempLoc using VL_C_SFX
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation(udg_VL_TempLoc)
Set Variable Set VL_C_MoveRate[VL_Spell_ID] = (VL_C_MoveRate[VL_Spell_ID] + VL_C_Speed)
-------- --------
Unit - Change ownership of VL_DummyCaster to VL_Owner[VL_Spell_ID] and Change color
Unit - Move VL_DummyCaster instantly to VL_TargetLoc[VL_Spell_ID]
Unit - Set level of VL_AbilityCurse for VL_DummyCaster to VL_AbilityLvl[VL_Spell_ID]
Unit - Set level of VL_AbilityHeal for VL_DummyCaster to VL_AbilityLvl[VL_Spell_ID]
-------- --------
-------- finding all units inside effect --------
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within VL_CurrentAoE[VL_Spell_ID] of VL_TargetLoc[VL_Spell_ID].) and do (Actions)
Loop - Actions
Set Variable Set VL_TempUnit = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(VL_TempUnit is A structure) Equal to False
(VL_TempUnit is alive) Equal to True
Or - Any (Conditions) are true
Conditions
And - All (Conditions) are true
Conditions
(VL_TempUnit has buff VL_Buff) Equal to False
(VL_TempUnit belongs to an ally of VL_Owner[VL_Spell_ID].) Equal to True
And - All (Conditions) are true
Conditions
(VL_TempUnit has buff VL_Debuff) Equal to False
(VL_TempUnit is Magic Immune) Equal to False
(VL_TempUnit belongs to an enemy of VL_Owner[VL_Spell_ID].) Equal to True
Then - Actions
-------- healing friendly units that don't have buff --------
-------- cursing enemy units that don't have buff --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(VL_TempUnit belongs to an ally of VL_Owner[VL_Spell_ID].) Equal to True
Then - Actions
Unit - Order VL_DummyCaster to Night Elf Druid Of The Claw - Rejuvenation . VL_TempUnit
Else - Actions
Unit - Order VL_DummyCaster to Undead Banshee - Curse . VL_TempUnit
Unit Group - Add VL_TempUnit to VL_GroupEnemy[VL_Spell_ID]
Else - Actions
-------- TempUnit did not pass filters; do nothing --------
-------- checking if any enemy units left the radius with debuff active --------
Unit Group - Pick every unit in VL_GroupEnemy[VL_Spell_ID] and do (Actions)
Loop - Actions
Set Variable Set VL_TempUnit = (Picked unit)
Set Variable Set VL_TempLoc = (Position of VL_TempUnit)
Set Variable Set VL_TempReal = (Distance between VL_TempLoc and VL_TargetLoc[VL_Spell_ID])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(VL_TempUnit is dead) Equal to True
VL_TempReal Greater than or equal to VL_CurrentAoE[VL_Spell_ID]
Then - Actions
Unit - Remove VL_Debuff buff from VL_TempUnit
Unit Group - Remove VL_TempUnit from VL_GroupEnemy[VL_Spell_ID] .
Else - Actions
-------- TempUnit is still in radius; keep debuff --------
Custom script: call RemoveLocation(udg_VL_TempLoc)
============================================

Holy Dragging Spell by Maker @ hiveworkshop.com

The idea for the spell by Revolve @ hiveworkshop.com

============================================

HOW TO IMPORT:
1. Copy Slow - (HDS) buff
2. Copy Holy Dragging Spell ability and Cripple - (HDS) ability
3. Copy Footman - (HDS_Dummy) unit
4. Make sure File -> Prefenrences -> Automatically create unknown variables is ticked. Then copy Holy Dragging spell trigger folder
5. In Holy Dragging Spell Init trigger, set the ability, dummy and buff variables.
6. You can configure the other settings if you want to.

============================================
Set HDS_Duration = How long the spell lasts. If you edit this, you also have to edit the base ability. The ability is based off of Blizzard. Set number of waves to the duration in seconds. 6 waves -> lasts 6 seconds.
Set HDS_Damage = How much damage the spell does per second. At level 2 it does 2x damage, at level 3 it does 3x damage and so on. The spell has 2 levels by default.
Set HDS_Catch_Range = From how far units get dragged in. If you get outside this range, you stop getting pulled in. Chanhe the AoE of the ability in object editor too.
Set HDS_Damage_Range = Inside this radius, units get damaged/healed.
Set HDS_Drag_Speed = The speed of the dragging.


============================================
Holy Dragging Spell Init
Events
Map initialization
Conditions
Actions
-------- -------------------- --------
Hashtable - Create a hashtable
Set Variable Set Holy_Dragging_Spell_Hash = (Last created hashtable)
-------- -------------------- --------
Set Variable Set HDS_Ability = "A01F"
Set Variable Set HDS_Dummy = "h00J"
Set Variable Set HDS_Slow_Buff = "B002"
Set Variable Set HDS_Pulls_Allies = "false"
-------- -------------------- --------
Set Variable Set HDS_Duration = "6.00"
Set Variable Set HDS_Damage = "50.00"
Set Variable Set HDS_Drag_Speed = "4.50"
Set Variable Set HDS_Catch_Range = "500.00"
Set Variable Set HDS_Damage_Range = "175.00"
-------- -------------------- --------
Holy Dragging Spell
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to HDS_Ability
Actions
Set Variable Set Temp_Unit_1 = (Triggering unit)
-------- -------------------- --------
Set Variable Set Temp_Loc_1 = (Target point of ability being cast)
-------- -------------------- --------
-------- Create a dummy unit at the center of the beacon --------
-------- -------------------- --------
Unit - Create 1 . HDS_Dummy for Neutral Passive at Temp_Loc_1 facing Default building facing degrees
Set Variable Set Temp_Unit_3 = (Last created unit)
-------- -------------------- --------
-------- Scale the dummy, so the special effect gets scaled too --------
-------- -------------------- --------
Animation - Change Temp_Unit_3 's size to ( 200.00 %, 200.00 %, 200.00 %) of its original size
-------- -------------------- --------
-------- Set the time for the beacon --------
-------- -------------------- --------
Unit - Add a HDS_Duration second Generic expiration timer to Temp_Unit_3
-------- -------------------- --------
Unit Group - Add Temp_Unit_3 to Holy_Dragging_Spell_Lightning
-------- -------------------- --------
-------- Store things we need to know about the spell --------
-------- -------------------- --------
-------- Timer used for the life time of the beacon --------
Hashtable - Save (HDS_Duration + 0.01) as (Key timer.) of (Key (Last created unit).) in Holy_Dragging_Spell_Hash .
-------- Store the caster of the beacon --------
Hashtable - Save Handle Of Temp_Unit_1 as (Key caster.) of (Key (Last created unit).) in Holy_Dragging_Spell_Hash .
-------- Store the beacon unit for the triggering unit --------
Hashtable - Save Handle Of (Last created unit) as (Key beacon.) of (Key (Triggering unit).) in Holy_Dragging_Spell_Hash .
-------- -------------------- --------
Set Variable Set Temp_Group_1 = (Units within HDS_Catch_Range of Temp_Loc_1 matching (((((Matching unit) is alive) Equal to True) and ((Matching unit) Not equal to Temp_Unit_1)) and (((Matching unit) Not equal to Temp_Unit_1) and (((Unit-type of (Matching unit)) Not equal to Козак-розбійник) and (((Matching unit) is A structure) Equal to False)))).)
Unit Group - Pick every unit in Temp_Group_1 and do (Actions)
Loop - Actions
Set Variable Set Temp_Unit_2 = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Temp_Unit_2 belongs to an enemy of (Triggering player).) Equal to True
Then - Actions
Set Variable Set Temp_Loc_2 = (Position of Temp_Unit_2)
Set Variable Set Temp_Real_2 = (Angle from Temp_Loc_2 to Temp_Loc_1)
-------- -------------------- --------
-------- Create a dummy that casts slow on picked unit --------
-------- -------------------- --------
Unit - Create 1 . HDS_Dummy for Neutral Passive at Temp_Loc_2 facing Temp_Real_2 degrees
Unit - Order (Last created unit) to Undead Necromancer - Cripple . Temp_Unit_2
Unit - Add a 1.00 second Generic expiration timer to (Last created unit)
-------- -------------------- --------
Unit Group - Add Temp_Unit_2 to Holy_Dragging_Spell_Group
-------- -------------------- --------
Hashtable - Save HDS_Drag_Speed as (Key escape_timer.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save Temp_Real_2 as (Key angle.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save ((HDS_Damage x (1 x 0.03)) x (Real((Level of СЖ (Spellbreaker) for Temp_Unit_1)))) as (Key damage.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save Handle Of Temp_Loc_1 as (Key center.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save (Distance between Temp_Loc_1 and Temp_Loc_2) as (Key distance.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save Handle Of Temp_Unit_1 as (Key caster.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save Handle Of Temp_Unit_3 as (Key beacon.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
-------- -------------------- --------
Custom script: call RemoveLocation(udg_Temp_Loc_2)
-------- -------------------- --------
Else - Actions
-------- -------------------- --------
-------- Turn on triggers that need to be turned on --------
-------- -------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Holy_Dragging_Spell_Group <gen> is on) Equal to False
Then - Actions
Trigger - Turn on Holy_Dragging_Spell_Group <gen>
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Holy_Dragging_Spell_Lightning <gen> is on) Equal to False
Then - Actions
Trigger - Turn on Holy_Dragging_Spell_Lightning <gen>
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Holy_Dragging_Spell_Cancel <gen> is on) Equal to False
Then - Actions
Trigger - Turn on Holy_Dragging_Spell_Cancel <gen>
Else - Actions
-------- -------------------- --------
-------- Remove leak --------
-------- -------------------- --------
Custom script: call DestroyGroup(udg_Temp_Group_1)
-------- -------------------- --------
Holy Dragging Spell Group
Events
Time - Every 0.03 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in Holy_Dragging_Spell_Group and do (Actions)
Loop - Actions
Set Variable Set Temp_Unit_1 = (Picked unit)
Set Variable Set Temp_Unit_2 = (Load (Key beacon.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash.)
Set Variable Set Temp_Real_1 = (Load (Key distance.) of (Key (Picked unit).) from Holy_Dragging_Spell_Hash.)
-------- -------------------- --------
-------- If beacon isn't there or unit has escaped the dragging distance, remove from group --------
-------- -------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Temp_Unit_2 is alive) Equal to True
Temp_Real_1 Less than HDS_Catch_Range
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Temp_Real_1 Greater than or equal to 33.00
Then - Actions
Set Variable Set Temp_Loc_1 = (Position of Temp_Unit_1)
-------- -------------------- --------
Set Variable Set Temp_Real_3 = (Load (Key angle.) of (Key (Picked unit).) from Holy_Dragging_Spell_Hash.)
-------- -------------------- --------
Set Variable Set Temp_Real_4 = (X of Temp_Loc_1)
Set Variable Set Temp_Real_5 = (Y of Temp_Loc_1)
-------- -------------------- --------
Set Variable Set Temp_Real_4 = (Temp_Real_4 + (HDS_Drag_Speed x (Cos(Temp_Real_3))))
Set Variable Set Temp_Real_5 = (Temp_Real_5 + (HDS_Drag_Speed x (Sin(Temp_Real_3))))
-------- -------------------- --------
Set Variable Set Temp_Loc_2 = (Point(Temp_Real_4, Temp_Real_5))
-------- -------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain pathing at Temp_Loc_2 of type Walkability is off) Equal to False
Then - Actions
Custom script: call SetUnitX(udg_Temp_Unit_1, udg_Temp_Real_4)
Custom script: call SetUnitY(udg_Temp_Unit_1, udg_Temp_Real_5)
Else - Actions
-------- -------------------- --------
Custom script: call RemoveLocation(udg_Temp_Loc_1)
Custom script: call RemoveLocation(udg_Temp_Loc_2)
-------- -------------------- --------
Else - Actions
-------- -------------------- --------
-------- Check if unit´is close enough to the beacon to be damaged or healed --------
-------- -------------------- --------
Set Variable Set Temp_Loc_1 = (Position of Temp_Unit_1)
Set Variable Set Temp_Loc_2 = (Load (Key center.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash.)
-------- -------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between Temp_Loc_1 and Temp_Loc_2) Less than HDS_Damage_Range
Then - Actions
Set Variable Set Temp_Unit_2 = (Load (Key caster.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash.)
-------- -------------------- --------
-------- Damage enemies, heal allies --------
-------- -------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Owner of Temp_Unit_1) is an enemy of (Owner of Temp_Unit_2).) Equal to True
Then - Actions
Unit - Cause Temp_Unit_2 to damage Temp_Unit_1 , dealing (Load (Key damage.) of (Key (Picked unit).) from Holy_Dragging_Spell_Hash.) damage of attack type Chaos and damage type Normal
Else - Actions
Unit - Set life of Temp_Unit_1 to ((Life of Temp_Unit_1) + ((Max life of Temp_Unit_1) x (0.01 / 8.00)))
Else - Actions
-------- -------------------- --------
Hashtable - Save (Angle from Temp_Loc_1 to Temp_Loc_2) as (Key angle.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save (Distance between Temp_Loc_2 and Temp_Loc_1) as (Key distance.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
-------- -------------------- --------
Custom script: call RemoveLocation(udg_Temp_Loc_1)
Else - Actions
Set Variable Set Temp_Loc_2 = (Load (Key center.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash.)
Custom script: call RemoveLocation(udg_Temp_Loc_2)
-------- -------------------- --------
Unit - Remove HDS_Slow_Buff buff from (Picked unit)
-------- -------------------- --------
Hashtable - Clear all child hashtables of child (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
-------- -------------------- --------
Unit Group - Remove Temp_Unit_1 from Holy_Dragging_Spell_Group .
-------- -------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Holy_Dragging_Spell_Group is empty) Equal to True
Then - Actions
Trigger - Turn off (This trigger)
Else - Actions
Holy Dragging Spell Lightning
Events
Time - Every 0.25 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in Holy_Dragging_Spell_Lightning and do (Actions)
Loop - Actions
Set Variable Set Temp_Unit_1 = (Picked unit)
Set Variable Set Temp_Unit_2 = (Load (Key caster.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash.)
Set Variable Set Temp_Real_1 = (Load (Key timer.) of (Key (Picked unit).) from Holy_Dragging_Spell_Hash.)
-------- -------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Temp_Real_1 Greater than 0.01
(Temp_Unit_1 is alive) Equal to True
Then - Actions
Set Variable Set Temp_Loc_1 = (Position of Temp_Unit_1)
Set Variable Set Temp_Group_1 = (Units within HDS_Catch_Range of Temp_Loc_1 matching (((((Matching unit) is alive) Equal to True) and ((Matching unit) Not equal to Temp_Unit_2)) and (((Matching unit) Not equal to Temp_Unit_1) and (((Unit-type of (Matching unit)) Not equal to Козак-розбійник) and (((Matching unit) is A structure) Equal to False)))).)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Temp_Group_1 is empty) Equal to False
Then - Actions
Unit Group - Pick every unit in Temp_Group_1 and do (Actions)
Loop - Actions
Set Variable Set Temp_Unit_3 = (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Temp_Unit_3 is in Holy_Dragging_Spell_Group.) Equal to False
(Temp_Unit_3 belongs to an enemy of (Owner of Temp_Unit_2).) Equal to True
Then - Actions
Set Variable Set Temp_Loc_2 = (Position of Temp_Unit_3)
-------- -------------------- --------
Unit - Create 1 . HDS_Dummy for Neutral Passive at Temp_Loc_2 facing Temp_Real_2 degrees
Unit - Order (Last created unit) to Undead Necromancer - Cripple . Temp_Unit_3
Unit - Add a 1.00 second Generic expiration timer to (Last created unit)
-------- -------------------- --------
Set Variable Set Temp_Real_2 = (Angle from Temp_Loc_2 to Temp_Loc_1)
-------- -------------------- --------
Unit Group - Add Temp_Unit_2 to Holy_Dragging_Spell_Group
-------- -------------------- --------
Hashtable - Save Handle Of Temp_Loc_1 as (Key center.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save Temp_Real_2 as (Key angle.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save HDS_Drag_Speed as (Key escape_timer.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save (Distance between Temp_Loc_1 and Temp_Loc_2) as (Key distance.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save ((HDS_Damage x (1 x 0.03)) x (Real((Level of СЖ (Spellbreaker) for Temp_Unit_2)))) as (Key damage.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save Handle Of Temp_Unit_1 as (Key beacon.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Hashtable - Save Handle Of Temp_Unit_2 as (Key caster.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
-------- -------------------- --------
Unit Group - Add Temp_Unit_3 to Holy_Dragging_Spell_Group
-------- -------------------- --------
Custom script: call RemoveLocation(udg_Temp_Loc_2)
-------- -------------------- --------
Trigger - Turn on Holy_Dragging_Spell_Group <gen>
Else - Actions
Custom script: call RemoveLocation(udg_Temp_Loc_1)
Else - Actions
Custom script: call RemoveLocation(udg_Temp_Loc_1)
Custom script: call DestroyGroup(udg_Temp_Group_1)
-------- -------------------- --------
Special Effect - Create a special effect attached to the origin (Unexpected type: 'attachpoint') of Temp_Unit_1 using Abilities\Spells\Human\HolyBolt\HolyBoltSpecialArt.mdl
Special Effect - Destroy (Last created special effect)
Special Effect - Create a special effect attached to the origin (Unexpected type: 'attachpoint') of Temp_Unit_1 using Abilities\Spells\Other\Monsoon\MonsoonBoltTarget.mdl
Special Effect - Destroy (Last created special effect)
-------- -------------------- --------
Hashtable - Save (Temp_Real_1 - 0.25) as (Key timer.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
Else - Actions
Set Variable Set Temp_Loc_1 = (Load (Key center.) of (Key (Picked unit).) in Holy_Dragging_Spell_Hash.)
Custom script: call RemoveLocation(udg_Temp_Loc_1)
-------- -------------------- --------
Hashtable - Clear all child hashtables of child (Key (Picked unit).) in Holy_Dragging_Spell_Hash .
-------- -------------------- --------
Unit Group - Remove Temp_Unit_1 from Holy_Dragging_Spell_Lightning .
-------- -------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Holy_Dragging_Spell_Lightning is empty) Equal to True
Then - Actions
Trigger - Turn off (This trigger)
Trigger - Turn off Holy_Dragging_Spell_Cancel <gen>
Else - Actions
Holy Dragging Spell Cancel
Events
Unit - A unit Stops casting an ability
Conditions
(Ability being cast) Equal to СЖ (Spellbreaker)
Actions
Unit - Kill (Load (Key beacon.) of (Key (Triggering unit).) in Holy_Dragging_Spell_Hash.)
Hashtable - Clear all child hashtables of child (Key (Triggering unit).) in Holy_Dragging_Spell_Hash .
============================================

Holy Dragging Spell by Maker @ hiveworkshop.com

The idea for the spell by Revolve @ hiveworkshop.com

============================================

Set HDS_Duration = 6.00
Set HDS_Damage = 50.00
Set HDS_Drag_Ratio = 0.66
Set HDS_Drag_Time = 1.00
Set HDS_Catch_Range = 600.00
Set HDS_Damage_Range = 200.00
Just the list of the KB3D features in GUI
KB3D Features GUI
Events
Conditions
Actions
-------- Those Values are Required for the KB --------
-------- ------------------------------------------------ --------
-------- ------------------------ --------
-------- Knock-Backed Unit, the Knock-Backed Unit who all actions orbit around --------
Set Variable Set KB3D_Unit = No unit
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Max Range, Maximum Range possible of the Knock-Back --------
Set Variable Set KB3D_Range = "0.00"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Base KB Speed, Base Speed when starting the Knock-Back --------
Set Variable Set KB3D_Speed = "0.00"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Angle, The KB's line angle, this will be useless if KB3D_Targeted_Unit is not null --------
Set Variable Set KB3D_Angle = "0.00"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- ------------------------------------------------ --------
-------- Those Values are Optional for the KB --------
-------- NOTE: some values may depend on other to function, like LineDamage that needs "Damager, AttackType, DamageType, AoE" to function --------
-------- ------------------------------------------------ --------
-------- ------------------------ --------
-------- Targets Allowed --------
-------- ------------------------ --------
-------- Filter Damages and AoEKB with those values, if true, each one will allow filtering of Structures, Mechanicals, Magic Imminues, Allies --------
-------- ------------------------ --------
Set Variable Set KB3D_D_MAGIC_IMMINUE = "false"
Set Variable Set KB3D_D_ALLY = "false"
Set Variable Set KB3D_D_MECHANICAL = "false"
Set Variable Set KB3D_D_STRUCTURE = "false"
Set Variable Set KB3D_D_ENEMY = "true"
Set Variable Set KB3D_D_FLYING = "false"
Set Variable Set KB3D_D_RESISTANT = "false"
-------- Requires: AoEKB, or, Damagers, or, BounceTarget --------
-------- ------------------------ --------
-------- Speed Changer, makes the unit move forward with a bonus speed equal to the KB speed, negative speed also works --------
Set Variable Set KB3D_Speed_Changer = "false"
-------- Requires: NONE, Disables Angle --------
-------- ------------------------ --------
-------- Homing Missile, automatically sets needed features of KB3D for a homing missile --------
Set Variable Set KB3D_HomingMissile = "true"
-------- Requires: NONE, Disables Angle --------
-------- ------------------------ --------
-------- Bounce Unit, Makes the KBed unit bounce on unpathable areas and units --------
Set Variable Set KB3D_Bounce_Unit = "false"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Bounce Targets, Bounces units that encounter the KBed unit --------
Set Variable Set KB3D_Bounce_Target = "false"
-------- Requires: AoE --------
-------- ------------------------ --------
-------- End on Target Bounce, when hits a unit, ends the KB --------
Set Variable Set KB3D_EndOnTargetBounce = "false"
-------- Requires: Bounce_Target --------
-------- ------------------------ --------
-------- Bounce Power, intensity of the Bounce --------
Set Variable Set KB3D_Bounce_Power = "1.00"
-------- Requires: Bounce --------
-------- ------------------------ --------
-------- Bounce Effect, Effect created on units that get Bounced --------
Set Variable Set KB3D_Bounce_Fx = ""
-------- Requires: Bounce --------
-------- ------------------------ --------
-------- Destroy Destructibles, Destroys any destructibles on the path of the KB, does not destroy platforms, bridges, elevators --------
Set Variable Set KB3D_DestroyDestructables = "false"
-------- Requires: Line Damage --------
-------- ------------------------ --------
-------- Line Effect, Effect created on units damaged by Line Damage --------
Set Variable Set KB3D_Line_Fx = ""
-------- Requires: Line Damage --------
-------- ------------------------ --------
-------- End Trigger, This trigger will be excecuted at the end of the KB, you can use KB3D_Unit and KB3D_Targeted_Unit variables in the trigger --------
Set Variable Set KB3D_EndTrigger = KB3D_EndTrigger
-------- Requires: NONE --------
-------- ------------------------ --------
-------- End on Obstacle, Immediatly Ends the KB if the KBed unit encounters an unpathable area --------
Set Variable Set KB3D_EndOnObstacle = "false"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Arc, Arc of the Angle of the KB, does not work with homing KB --------
Set Variable Set KB3D_Arc = "0.00"
-------- Requires: Angle --------
-------- ------------------------ --------
-------- Ending Effect, an Effect created at the End of the KB on the KBed Unit --------
Set Variable Set KB3D_EndFx = ""
-------- Requires: AoE --------
-------- ------------------------ --------
-------- AoE End Damage, Damage dealt to enemy units in the AoE at the End of the KB --------
Set Variable Set KB3D_AoEEndDamage = "0.00"
-------- Requires: AoE, Damager, AType, DType --------
-------- ------------------------ --------
-------- AoE KB, if true, KBs Enemy units within the AoE, Range, Speed, Angle, are automatic --------
Set Variable Set KB3D_AoEKB = "false"
-------- Requires: AoE --------
-------- ------------------------ --------
-------- AoE KB Power, The Power of the AoE KB, default value is 1.00 (normal), Min value: 0.01, Max value: 3.00 --------
Set Variable Set KB3D_AoEKB_Power = "0.00"
-------- Requires: AoEKB --------
-------- ------------------------ --------
-------- End when Dead, if true, the KB will end if the KBed unit is dead, TRUE by default --------
Set Variable Set KB3D_EndwhenDead = "true"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Ground Damage, Damages the Unit When it hits the Ground, Damage dealt is KB3D_ImpactDamage --------
Set Variable Set KB3D_GroundDamage = "false"
-------- Requires: Damager, ImpactDamage, AType, DType --------
-------- ------------------------ --------
-------- KB the Target, When the Targeted Unit is hit, it will be KBed depending on the speed of the original KB --------
Set Variable Set KB3D_KBTarget = "false"
-------- Requires: Targeted_Unit --------
-------- ------------------------ --------
-------- Stop Time, Maximum Time the KB will last, Note that if the KBed unit is flying at this time, it will be stuck --------
Set Variable Set KB3D_StopTime = "0.00"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Kill at End, Kills the KBed Unit at the End of the KB --------
Set Variable Set KB3D_KillatEnd = "false"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Kill at Time, When this time is reached, the KBed unit will be killed, if this number is higher than KB3D_StopTime, EndWhenDead will be automatically turned on no matter what --------
Set Variable Set KB3D_KillatTime = "0.00"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Acceleration, Speed Added/s to the KB speed --------
Set Variable Set KB3D_Accel = "0.00"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Allow going outside playable bounds, Allows the KBed unit to go out of the Playable Bounds, SAFETY notice: this will not crash the game --------
Set Variable Set KB3D_AllowOutSiding = "false"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Area of Effect, Range where the Line Damage is applied to units --------
Set Variable Set KB3D_AoE = "0.00"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Area of Effect Damage, Makes the KB3D_Damager, damage enemy units within KB3D_AoE by this value as a DPS --------
Set Variable Set KB3D_AoEDamage = "0.00"
-------- Requires: AoE, Damager, DType, AType --------
-------- ------------------------ --------
-------- Attack Type, Attack type of ALL damagings in the Instance --------
Set Variable Set KB3D_AttackType = Normal
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Damage Type, Damage type of ALL damagings in the Instance --------
Set Variable Set KB3D_DamageType = Magic
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Damager, Source of ALL damagings in the Instance --------
Set Variable Set KB3D_Damager = No unit
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Destroy Trees?, Destroy Trees around the KBed unit while he is KBed? --------
Set Variable Set KB3D_DestroyTree = "true"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Disable Unit?, Disable the KBed Unit's Movement and Turning? --------
Set Variable Set KB3D_DisableUnit = "false"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- End When Hit?, Ends the KB if the KBed Unit hits the Targeted Unit --------
Set Variable Set KB3D_EndWhenHit = "false"
-------- Requires: Targeted_Unit --------
-------- ------------------------ --------
-------- Face KB Anlge, makes the KBed Unit Face the Anlge of the KB during the KB --------
Set Variable Set KB3D_FaceAngle = "false"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Effect, Effect created on the Unit's Location if he is not flying, and applied on the Unit if he is flying on the Attach Point --------
Set Variable Set KB3D_Fx = ""
-------- Requires: Attach --------
-------- ------------------------ --------
-------- Attachment Point, location on the KBed unit where Effects are attached --------
Set Variable Set KB3D_Attach = ""
-------- Requires: NONE --------
-------- ------------------------ --------
-------- AoE End Effect, Effect Created on target units in the AoE at the End of the KB --------
Set Variable Set KB3D_AoEEndFx = ""
-------- Requires: AoE, Attach --------
-------- ------------------------ --------
-------- Impact Damage, Damaged dealt to the KBed Unit if he hits an obstacle --------
Set Variable Set KB3D_ImpactDamage = "0.00"
-------- Requires: Damager --------
-------- ------------------------ --------
-------- intelligent KB, Enables the intelligent features of KB3D, see Main Code Comments for more info --------
Set Variable Set KB3D_iKB = "true"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Kill When Hit?, Kills the KBed Unit if he hits the Targeted Unit, Automatically set EndWhenHit to true --------
Set Variable Set KB3D_KillWhenHit = "false"
-------- Requires: Targeted_Unit --------
-------- ------------------------ --------
-------- Kill if Out of Playable Bounds, Kills the KBed Unit if he gets out of Playable Bounds, this automatically sets KB3D_AllowOutSiding to TRUE --------
Set Variable Set KB3D_KillifOutSider = "false"
-------- Requires: AllowOutSiding --------
-------- ------------------------ --------
-------- Line Damage, Damage dealt to enemy units in the AoE around the KBed Unit --------
Set Variable Set KB3D_LineDamage = "0.00"
-------- Requires: Damager, AoE --------
-------- ------------------------ --------
-------- Loop Damage, DPS dealt to the KBed Unit --------
Set Variable Set KB3D_LoopDamage = "0.00"
-------- Requires: Damager, AoE --------
-------- ------------------------ --------
-------- Jump over Cliff, Allows the KBed unit to go over cliffs if he has more than 150 fly height and IF there is a possible location where he can land in a pathable point, not recommended with >0 Acceleration --------
Set Variable Set KB3D_JumpOverCliff = "false"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Target Damage, Damage dealt to the Targeted Unit when both KBed Unit and Targeted Unit hit each other, only happens once --------
Set Variable Set KB3D_TargetDamage = "0.00"
-------- Requires: Targeted_Unit, Damager --------
-------- ------------------------ --------
-------- Targeted Unit, if not null, makes the KBed Unit act like a homing missile targeting this unit, it also used for other functions --------
Set Variable Set KB3D_Targeted_Unit = No unit
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Trail Effect, Effect Attached on the KBed Unit all along the Knock-Back and Destroyed at the end of the KB --------
Set Variable Set KB3D_TrailFx = ""
-------- Requires: Attach --------
-------- ------------------------ --------
-------- Stop at Unpathable, Makes it impossible for the KBed Unit to path throught Unpathable Terrain --------
Set Variable Set KB3D_UnpathableStop = "true"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- Z Offset, Max Flying Height reached while Knockbacking --------
Set Variable Set KB3D_Zoffset = "0.00"
-------- Requires: NONE --------
-------- ------------------------ --------
-------- ------------------------------------------------ --------
-------- Registed All of the Settings --------
Custom script: call ExecuteFunc( "KB3D_Registration" )
-------- You can use the following to know how much the knock-back will last -- this can vary if the KB is homed on a moving unit --------
Set Variable Set KB3D_Time = KB3D_Time
Delete this trigger after importing the System into your map
KB3D Variable Creator
Events
Conditions
Actions
Skip remaining actions
Set Variable Set KB3D_HomingMissile = "false"
Set Variable Set KB3D_D_ENEMY = "true"
Set Variable Set KB3D_D_FLYING = "false"
Set Variable Set KB3D_D_RESISTANT = "false"
Set Variable Set KB3D_Bounce_Unit = "false"
Set Variable Set KB3D_Bounce_Target = "false"
Set Variable Set KB3D_Bounce_Power = "1.00"
Set Variable Set KB3D_Bounce_Fx = ""
Set Variable Set KB3D_Line_Fx = ""
Set Variable Set KB3D_EndOnObstacle = "false"
Set Variable Set KB3D_DestroyDestructables = "false"
Set Variable Set KB3D_EndTrigger = KB3D_EndTrigger
Set Variable Set KB3D_KillatEnd = "false"
Set Variable Set KB3D_JumpOverCliff = "false"
Set Variable Set KB3D_iKB = "false"
Set Variable Set KB3D_AoEKB_Power = "0.00"
Set Variable Set KB3D_AoEEndDamage = "0.00"
Set Variable Set KB3D_AoEKB = "false"
Set Variable Set KB3D_EndwhenDead = "false"
Set Variable Set KB3D_KBTarget = "false"
Set Variable Set KB3D_StopTime = "0.00"
Set Variable Set KB3D_KillatTime = "0.00"
Set Variable Set KB3D_AllowOutSiding = "false"
Set Variable Set KB3D_KillifOutSider = "false"
Set Variable Set KB3D_Accel = "0.00"
Set Variable Set KB3D_AllowOutSiding = "false"
Set Variable Set KB3D_Angle = "0.00"
Set Variable Set KB3D_AoE = "0.00"
Set Variable Set KB3D_AoEDamage = "0.00"
Set Variable Set KB3D_AttackType = Normal
Set Variable Set KB3D_DamageType = Magic
Set Variable Set KB3D_Damager = No unit
Set Variable Set KB3D_DestroyTree = "true"
Set Variable Set KB3D_DisableUnit = "false"
Set Variable Set KB3D_EndWhenHit = "false"
Set Variable Set KB3D_Fx = ""
Set Variable Set KB3D_Attach = ""
Set Variable Set KB3D_ImpactDamage = "0.00"
Set Variable Set KB3D_KillWhenHit = "false"
Set Variable Set KB3D_KillifOutSider = "false"
Set Variable Set KB3D_LineDamage = "0.00"
Set Variable Set KB3D_LoopDamage = "0.00"
Set Variable Set KB3D_Range = "0.00"
Set Variable Set KB3D_Speed = "0.00"
Set Variable Set KB3D_TargetDamage = "0.00"
Set Variable Set KB3D_Targeted_Unit = No unit
Set Variable Set KB3D_TrailFx = ""
Set Variable Set KB3D_Unit = No unit
Set Variable Set KB3D_UnpathableStop = "true"
Set Variable Set KB3D_Zoffset = "0.00"
Set Variable Set KB3D_Registration = KB3D_Registration
Set Variable Set KB3D_Time = KB3D_Time
Set Variable Set KB3D_HA = KB3D_HA
Set Variable Set KB3D_Harvester = No unit
Set Variable Set CP_HiddenItemsIndex = "0"
Set Variable Set CP_HiddenItems[0] = No item
Set Variable Set KB3D_B = "false"
Set Variable Set CP_Rect = No region
Set Variable Set CP_Item = No item
Set Variable Set CP_PointIsWalkable = "false"
Set Variable Set KB3D_Reals[0] = "0.00"
Set Variable Set KB3D_Instances = "0"
Set Variable Set KB3D_Counter = "0"
Set Variable Set KB3D_Timer = KB3D_Timer
Set Variable Set KB3D_Arc = "0.00"
Set Variable Set KB3D_FaceAngle = "false"
Set Variable Set KB3D_EndFx = ""
Set Variable Set KB3D_GroundDamage = "false"
Set Variable Set KB3D_D_MAGIC_IMMINUE = "false"
Set Variable Set KB3D_D_ALLY = "false"
Set Variable Set KB3D_D_MECHANICAL = "false"
Set Variable Set KB3D_D_STRUCTURE = "false"
Set Variable Set KB3D_AoEEndFx = ""
Set Variable Set KB3D_g = KB3D_g
Set Variable Set KB3D_Fx_Attach = ""
Set Variable Set KB3D_EndOnTargetBounce = "false"
Knock-Back 3D ------- Multi-Movement System 3D

For more information about the System, Ask me:
http://www.hiveworkshop.com/forums/private.php?do=newpm&u=225233
//TESH.scrollpos=0
//TESH.alwaysfold=1
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//           Knock-Back 3D               [JASS - GUI]                      //
//     Multi-Movement System 3D                                            //
//                                                by Jad aka DotCa         //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//           System's Hidden Features:                                     //
//                                                                         //
//     1. To know if a unit is being KBed by the System, Use:              //
//        - LoadBoolean(udg_KB3D_HA, GetHandleId(Unit), GetHandleId(Unit)) //
//        True means that the unit is being KBed, also works in GUI        //
//     2. Use udg_KB3D_Time variable after registring the KB to actually   //
//        know how much the KB will last, NOTE that this the time may      //
//        varry if you have a Homing KB (using KB3D_Targeted_Unit)         //
//     3. Some Variables in the System has default values, but useful;     //
//        in Example, "udg_KB3D_Attach" is "origin" even without setting   //
//        it, so you won't need to change it before Registering a KB       //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//           System Informations:                                          //
//                                                                         //
//  The System is a well performing, ultra-purpose knockback (see uses     //
//  below ) Coded in JASS making it possible for all users to take         //
//  advantage of it, and GUI friendly to use, see Examples in the triggers //
//  above                                                                  //
//            Configurations that have default values:                     //
//                                                                         //
//     - KB3D_EndWhenDead        ==> TRUE                 by default       //
//     - KB3D_UnpathableStop     ==> TRUE                 by default       //
//     - KB3D_iKB                ==> TRUE                 by default       //
//     - KB3D_D_ENEMY            ==> TRUE                 by default       //
//     - KB3D_DestroyTree        ==> TRUE                 by default       //
//     - KB3D_AttackType         ==> ATTACK_TYPE_NORMAL   by default       //
//     - KB3D_DamageType         ==> DAMAGE_TYPE_MAGIC    by default       //
//     - KB3D_AoEKB_Power        ==> 1.00                 by default       //
//     - KB3D_Attach             ==> "origin"             by default       //
//     - Other Booleans          ==> FALSE                by default       //
//                                                                         //
//  The System also uses Always positive values for some configurations    //
//  to not make the knockback go wrong, those configurations are:          //
//                                                                         //
//      "KB3D_Range" - "KB3D_Speed" - "KB3D_ZOffset" - "KB3D_AoE"          //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//            HomingMissile, Accessibility feature                         //
//                                                                         //
//    When true, there will be no need to set the range and some other     //
//    features, since they will be automatically set to fit a homing       //
//    missile:                                                             //
//     - KB3D_Zoffset - KB3D_Range - KB3D_KillatEnd - KB3D_EndWhenHit -    //
//     - KB3D_FaceAngle - KB3D_UnpathableStop - KB3D_KillWhenHit -         //
//                                                                         //
//    This feature allows to skip the configurations of some features      //
//    needed for a homing missile, Note that Targeted_Unit needs to be set //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//            iKB, intelligent KB informations:                            //
//                                                                         //
//     iKB, makes some features in KB3D act intelligently, those features: //
//                                                                         //
//       -Range: usually always positive, it will be available in negative //
//               values, it will, if negative, flip the Angle (+180 d)     //
//       -Speed: usually always positive, it will be available in negative //
//               values, it will act normally, just the KBed unit will     //
//               move backward if the current speed is negative            //
//       -Height: usually always positive, it will be available in negative//
//               values, it will, if negative, make the unit go down       //
//               instead of up                                             //
//       -Damages:                                                         //
//       AoEEndDamage, AoEDamage, LineDamage, ImpactDamage, TargetDamage   //
//                                                                         //
//             All those values ^ will turn intelligent, by this, it means //
//             that if the Target of the Damage is not in approximated     //
//             height (Z) of the KBed Unit, the damage won't occur         //
//       -AoEKB, usually KBs all units in the AoE, it will choose only     //
//        Units that are close to it by the height, Z offset               //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//           System Requirements:   Basic WE - (NONE)                      //
//                                                                         //
//  The System uses implemented CheckWalkability System by PurgeandFire    //
//  You "can" remove the initialization trigger of PnF's System since      //
//  it is directly implemented in the System, all will work fine with or   //
//  without removing your Initializer trigger                              //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//           Credits:                                                      //
//                                                                         //
//    *WEHZ & TS Helpers Group for helping in Script Fixes                 //
//    *Barry the Moose for helping in main codes and fixes                 //
//    *PurgeandFire for his CheckWalkability System                        //
//    *Vexorian / Nestharus for the GetCollision function                  //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//           How to Import?                                                //
//                                                                         //
//  1. Check that Create Unknown Variables is ticked in your WE Settings   //
//  2. Copy the Paste the Knock-Back 3D Folder                             //
//  3. Delete the Variable Creator Trigger and learn how to use the System //
//     by reading the documentation in the 2 Features Triggers (GUI - JASS)//
//     Congratulations, the System is now implemented in your map          //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//           How to Use?                                                   //
//                                                                         //
//  1. There are many Examples of use in the KB3D Example Folder           //
//  2. Documentations are there in the Features Triggers to help you       //
//  3. The KB3D System is an Ultra-Purpose System where you can use it for://
//     -Projectiles, the system supports homing so a projectile is easy    //
//     -Jump, the System's smoothness in the fly is useful for a jump spell//
//     -And of course, a 2D Knock-Back                                     //
//     -And More depending on your imagination                             //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////
//                                                                         //
//           Bug Reports - Feedbacks                                       //
//                                                                         //
//  * We count on you to report bugs in the system, also telling the source//
//  * Feedbacks about the system are much appreciated                      //
//  * We mostly hope suggestions about enhancements for the System         //
//                                                                         //
/////////////////////////////////////////////////////////////////////////////

function KB3D_AlwaysNeg takes real R returns real
    if R > 0 then
        return -R
    endif
    return R
endfunction

function KB3D_InBetween takes real Min, real R, real Max returns real
    return RMaxBJ(RMinBJ(R, Max), Min)
endfunction

function KB3D_IsInBetween takes real Min, real R, real Max returns boolean
    return R > Min and R < Max
endfunction

function KB3D_CW_Loop takes nothing returns nothing
    if IsItemVisible(GetEnumItem()) then
        set udg_CP_HiddenItems[udg_CP_HiddenItemsIndex] = GetEnumItem()
        call SetItemVisible(udg_CP_HiddenItems[udg_CP_HiddenItemsIndex], false)
        set udg_CP_HiddenItemsIndex = ( udg_CP_HiddenItemsIndex + 1 )
    endif
endfunction

function KB3D_CW takes real x, real y returns boolean
    local real x2 = 0
    local real y2 = 0
    //---------------------------
    call MoveRectTo(udg_CP_Rect, x, y)
    call EnumItemsInRect(udg_CP_Rect, null, function KB3D_CW_Loop )
    call SetItemPosition(udg_CP_Item, x, y)
    set x2 = GetItemX(udg_CP_Item)
    set y2 = GetItemY(udg_CP_Item)
    call SetItemVisible(udg_CP_Item, false)
    //---------------------------
    loop
        exitwhen udg_CP_HiddenItemsIndex == 0
        set udg_CP_HiddenItemsIndex = udg_CP_HiddenItemsIndex - 1
        call SetItemVisible(udg_CP_HiddenItems[udg_CP_HiddenItemsIndex], true)
        set udg_CP_HiddenItems[udg_CP_HiddenItemsIndex] = null
    endloop
    //---------------------------
    return (((x2-x)*(x2-x) + (y2-y)*(y2-y) <= 75) and (not IsTerrainPathable(x, y, PATHING_TYPE_WALKABILITY)))
endfunction

function KB3D_GetCoordinatesZ takes real x, real y returns real
    local location L = Location(x,y)
    local real r = GetLocationZ(L)
    call RemoveLocation(L)
    set L = null
    return r
endfunction

function KB3D_Approx takes unit U, unit U2, integer Loop returns boolean
    local real r = KB3D_InBetween(50, LoadReal(udg_KB3D_HA, 29, Loop) / 2, 1000)
    local real r1 = GetUnitFlyHeight(U2)
    //---------------------------
    return KB3D_IsInBetween(r1-r, GetUnitFlyHeight(U), r1+r)
endfunction

function KB3D_Filter takes unit U, unit U1, integer Loop returns boolean
    if not IsUnitType(U, UNIT_TYPE_DEAD) then
    //---------------------------
        if not(LoadBoolean(udg_KB3D_HA, 48, Loop)) and ( IsUnitType(U, UNIT_TYPE_STRUCTURE)) then
            return false
        elseif not((LoadBoolean(udg_KB3D_HA, 48, Loop)) and ( IsUnitType(U, UNIT_TYPE_STRUCTURE))) then
            if not(LoadBoolean(udg_KB3D_HA, 49, Loop)) and ( IsUnitType(U, UNIT_TYPE_MECHANICAL)) then
                return false
            endif
        endif
    //---------------------------
        if not(LoadBoolean(udg_KB3D_HA, 50, Loop)) and ( IsUnitType(U, UNIT_TYPE_MAGIC_IMMUNE)) then
            return false
        endif
    //---------------------------
        if not(LoadBoolean(udg_KB3D_HA, 51, Loop)) and ( IsUnitAlly(U, GetOwningPlayer(U1))) then
            return false
        endif
    //---------------------------
        if not(LoadBoolean(udg_KB3D_HA, 63, Loop)) and ( IsUnitEnemy(U, GetOwningPlayer(U1))) then
            return false
        endif
    //---------------------------
        if not(LoadBoolean(udg_KB3D_HA, 64, Loop)) and ( IsUnitType(U, UNIT_TYPE_RESISTANT)) then
            return false
        endif
    //---------------------------
        if not(LoadBoolean(udg_KB3D_HA, 65, Loop)) and ( IsUnitType(U, UNIT_TYPE_FLYING)) then
            return false
        endif
    //---------------------------
        return true
    endif
    //---------------------------
    return false
endfunction

function KB3D_RegisterUnitCollision takes unit u, real x, real y, integer i returns real
    local real l = 0
    local real h = 300
    local real m = 150
    local real nm
    //---------------------------
    loop
        if (IsUnitInRangeXY(u, x+m, y, 0)) then
            set l = m
        else
            set h = m
        endif
        set nm = (l+h)/2
        exitwhen nm+.001 >  m and nm-.001 < m
        set m = nm
    endloop
    //---------------------------
    set m = R2I(m*10)/10.
    call SaveReal( udg_KB3D_HA, 16, GetUnitTypeId(u), m )
    //---------------------------
    return m
endfunction

function KB3D_GetUnitCollision takes unit u returns real
    local integer i = GetUnitTypeId(u)
    //---------------------------
    if HaveSavedReal( udg_KB3D_HA, 16, i) then
        return LoadReal(udg_KB3D_HA, 16, i)
    endif
    //---------------------------
    return KB3D_RegisterUnitCollision(u, GetUnitX(u), GetUnitY(u), i)
endfunction

function KB3D_Tree_Check takes destructable D returns boolean
    return IssueTargetOrderById( udg_KB3D_Harvester, 852018, D ) and IssueImmediateOrderById(udg_KB3D_Harvester, 851972)
endfunction

function KB3D_KillEnumDest takes nothing returns nothing
    local destructable D = GetEnumDestructable()
    //---------------------------
    if GetDestructableLife(D)>0 and ( KB3D_Tree_Check(D) ) and (GetUnitFlyHeight(LoadUnitHandle(udg_KB3D_HA, 0, R2I(udg_KB3D_Reals[0]))) < GetDestructableOccluderHeight(D)) and LoadBoolean(udg_KB3D_HA, 8, R2I(udg_KB3D_Reals[0])) then
        call KillDestructable(D)
    elseif not(KB3D_CW(GetDestructableX(D),GetDestructableY(D))) and GetDestructableLife(D)>0 and IssueImmediateOrderById(udg_KB3D_Harvester, 851972) and LoadBoolean(udg_KB3D_HA, 56, R2I(udg_KB3D_Reals[0])) then
        call KillDestructable(D)
    endif
    set D = null
endfunction

function KB3D_CircleTreeKill takes real radius, real x, real y returns nothing
    local rect r = Rect(x-radius, y-radius, x+radius, y+radius)
    //---------------------------
    call EnumDestructablesInRect(r, null, function KB3D_KillEnumDest)
    //---------------------------
    call RemoveRect(r)
    set r = null
endfunction

function KB3D_BounceOnUnit takes unit u, unit U, integer Loop returns nothing
    set udg_KB3D_Angle = (Atan2(GetUnitY(u) - GetUnitY(U), GetUnitX(u) - GetUnitX(U)) *57.29578) + GetRandomReal(-15,15)
    set udg_KB3D_Speed = LoadReal(udg_KB3D_HA, 2, Loop)/.03125*.25*udg_KB3D_Bounce_Power
    set udg_KB3D_DestroyTree = LoadBoolean(udg_KB3D_HA, 8, Loop)
    set udg_KB3D_Fx = LoadStr(udg_KB3D_HA, 9, Loop)
    set udg_KB3D_Attach = LoadStr(udg_KB3D_HA, 10, Loop)
    set udg_KB3D_Range = 1.5*udg_KB3D_Speed*udg_KB3D_Bounce_Power
    set udg_KB3D_Unit = u
    set udg_KB3D_Bounce_Fx = LoadStr(udg_KB3D_HA, 62, Loop)
    set udg_KB3D_Accel = -udg_KB3D_Speed*.6
    set udg_KB3D_Bounce_Unit = true
    call TriggerEvaluate(udg_KB3D_Registration)
    call SaveEffectHandle(udg_KB3D_HA, 14, udg_KB3D_Counter, LoadEffectHandle(udg_KB3D_HA, 14, Loop))
endfunction

function KB3D_Bounce_Filter takes nothing returns boolean
    local boolean b = not(IsUnitInGroup(GetFilterUnit(), LoadGroupHandle(udg_KB3D_HA, 68, R2I(udg_KB3D_Reals[0])))) or KB3D_Filter(LoadUnitHandle(udg_KB3D_HA, 0, R2I(udg_KB3D_Reals[0])),LoadUnitHandle(udg_KB3D_HA, 0, R2I(udg_KB3D_Reals[0])),R2I(udg_KB3D_Reals[0]))
    if b then
        call GroupAddUnit(LoadGroupHandle(udg_KB3D_HA, 68, R2I(udg_KB3D_Reals[0])), GetFilterUnit())
    endif
    return b
endfunction

function KB3D_FilterGrp takes nothing returns boolean
    return KB3D_Filter(GetFilterUnit(), LoadUnitHandle(udg_KB3D_HA, 0, R2I(udg_KB3D_Reals[0])),R2I(udg_KB3D_Reals[0]))
endfunction

function KB3D_ClearInstance takes integer i returns nothing
    local integer x = 0
    //---------------------------
    call DestroyGroup(LoadGroupHandle(udg_KB3D_HA, 27, i))
    call DestroyGroup(LoadGroupHandle(udg_KB3D_HA, 67, i))
    //---------------------------
    loop
        exitwhen x > 100
        call RemoveSavedHandle(udg_KB3D_HA, x, i)
        call SaveReal(udg_KB3D_HA, x, i, 0)
        set x = x +1
    endloop
endfunction

function KB3D_isPossiblePathability takes real x, real y, real RADangle, real MaxDist returns boolean
    local real X = x
    local real Y = y
    local real max = RAbsBJ(MaxDist)
    local real dist = max
    //---------------------------
    loop
        exitwhen (dist <= 0)
        set dist = dist - max/300
        set X = x + ( dist * Cos(RADangle) )
        set Y = y + ( dist * Sin(RADangle) )
        if KB3D_CW(X,Y) then
            return true
        endif
    endloop
    //---------------------------
    return false
endfunction

function MoveUnit_3D takes unit U, real x, real y, real z, real MaxZ, boolean P, boolean OS, boolean KiOS, real Angle, real S, real time, integer Loop returns boolean
    local boolean B = false
    local boolean b = true
    local real tz
    // This is a creepy place for those who doesn't anylize the system wisely
    if LoadBoolean(udg_KB3D_HA, 57, Loop) then
        if LoadBoolean(udg_KB3D_HA, 44, Loop) then
            set tz = KB3D_GetCoordinatesZ(x,y) - LoadReal(udg_KB3D_HA, 68, Loop)
            set z = z - tz
            call SaveReal(udg_KB3D_HA, 68, Loop, KB3D_GetCoordinatesZ(x,y))
            if LoadReal(udg_KB3D_HA, 3, Loop)<0 and GetUnitDefaultFlyHeight(U)<z then
                call SetUnitFlyHeight(U, KB3D_InBetween(-999,z,GetUnitDefaultFlyHeight(U)), 0)
            else
                call SetUnitFlyHeight(U, z, 0)
            endif
        else
            call SetUnitFlyHeight(U, KB3D_InBetween(GetUnitDefaultFlyHeight(U), z, 9999), 0)
        endif
    endif
    //---------------------------
    if ( not(P) or ( KB3D_CW(x, y) ) ) then
        set B = true
        if (OS) then
            call SetUnitX(U, KB3D_InBetween(udg_KB3D_Reals[6], x, udg_KB3D_Reals[5]))
            call SetUnitY(U, KB3D_InBetween(udg_KB3D_Reals[8], y, udg_KB3D_Reals[7]))
            set b = false
            if (KiOS) and (not(KB3D_IsInBetween(udg_KB3D_Reals[2], x, udg_KB3D_Reals[1])) or not(KB3D_IsInBetween(udg_KB3D_Reals[4], x, udg_KB3D_Reals[3]))) then
                call KillUnit(U)
            endif
        else
            call SetUnitX(U, KB3D_InBetween(udg_KB3D_Reals[2], x, udg_KB3D_Reals[1]))
            call SetUnitY(U, KB3D_InBetween(udg_KB3D_Reals[4], y, udg_KB3D_Reals[3]))
            set b = false
        endif
    elseif LoadBoolean(udg_KB3D_HA, 52, Loop) and P and not(KB3D_CW(x, y)) then
        if GetUnitFlyHeight(U) != 0 then
            if KB3D_isPossiblePathability(GetUnitX(U),GetUnitY(U), Angle, S*time/0.03125) and LoadBoolean(udg_KB3D_HA, 44, Loop) then
                set B = true
                call SaveBoolean(udg_KB3D_HA, 53, Loop, true)
                if (OS) then
                    call SetUnitX(U, KB3D_InBetween(udg_KB3D_Reals[6], x, udg_KB3D_Reals[5]))
                    call SetUnitY(U, KB3D_InBetween(udg_KB3D_Reals[8], y, udg_KB3D_Reals[7]))
                    set b = false
                    if (KiOS) and (not(KB3D_IsInBetween(udg_KB3D_Reals[2], x, udg_KB3D_Reals[1])) or not(KB3D_IsInBetween(udg_KB3D_Reals[4], x, udg_KB3D_Reals[3]))) then
                        call KillUnit(U)
                    endif
                else
                    call SetUnitX(U, KB3D_InBetween(udg_KB3D_Reals[2], x, udg_KB3D_Reals[1]))
                    call SetUnitY(U, KB3D_InBetween(udg_KB3D_Reals[4], y, udg_KB3D_Reals[3]))
                    set b = false
                endif
            else
                call SaveBoolean(udg_KB3D_HA, 52, Loop, false)
            endif
        endif
    endif
    if b then
        set udg_KB3D_B = true
        if LoadBoolean(udg_KB3D_HA, 66, Loop) then
            return true
        endif
    endif
    return false
endfunction

function KB3D_LineDamageLoop takes unit U, group g returns nothing
    local integer Loop = R2I(udg_KB3D_Reals[0])
    local unit Damager = LoadUnitHandle(udg_KB3D_HA, 22, Loop)
    local attacktype AType = ConvertAttackType(LoadInteger(udg_KB3D_HA, 20, Loop))
    local damagetype DType = ConvertDamageType(LoadInteger(udg_KB3D_HA, 21, Loop))
    local real LineD = LoadReal(udg_KB3D_HA, 28, Loop)
    local unit U1 = LoadUnitHandle(udg_KB3D_HA, 0, Loop)
    local group G = LoadGroupHandle(udg_KB3D_HA, 27, Loop)
    //---------------------------
    if KB3D_Filter(U, U1, Loop) and not ( IsUnitInGroup(U, G) ) then
        call GroupAddUnit(G, U)
        if not(LoadBoolean(udg_KB3D_HA, 44, Loop)) then
            call UnitDamageTarget(Damager, U, LineD, true, false, AType, DType, null)
            call DestroyEffect(AddSpecialEffectTarget(LoadStr(udg_KB3D_HA, 58, Loop), U, LoadStr(udg_KB3D_HA, 10, Loop)))
        elseif KB3D_Approx(U, U1, Loop) then
            call UnitDamageTarget(Damager, U, LineD, true, false, AType, DType, null)
            call DestroyEffect(AddSpecialEffectTarget(LoadStr(udg_KB3D_HA, 58, Loop), U, LoadStr(udg_KB3D_HA, 10, Loop)))
        endif
    endif
    //---------------------------
    set G = null
    set U1 = null
    set Damager = null
    set AType = null
    set DType = null
endfunction

function KB3D_AoEDamageLoop takes unit U, group g returns nothing
    local integer Loop = R2I(udg_KB3D_Reals[0])
    local unit Damager = LoadUnitHandle(udg_KB3D_HA, 22, Loop)
    local attacktype AType = ConvertAttackType(LoadInteger(udg_KB3D_HA, 20, Loop))
    local damagetype DType = ConvertDamageType(LoadInteger(udg_KB3D_HA, 21, Loop))
    local real AoED = LoadReal(udg_KB3D_HA, 32, Loop)
    local unit U1 = LoadUnitHandle(udg_KB3D_HA, 0, Loop)
    //---------------------------
    if KB3D_Filter(U, U1, Loop) then
        if not(LoadBoolean(udg_KB3D_HA, 44, Loop)) then
            call UnitDamageTarget(Damager, U, AoED * 0.031250000, true, false, AType, DType, null)
        elseif KB3D_Approx(U, U1, Loop) then
            call UnitDamageTarget(Damager, U, AoED * 0.031250000, true, false, AType, DType, null)
        endif
    endif
    //---------------------------
    set U1 = null
    set Damager = null
    set AType = null
    set DType = null
endfunction

function KB3D_AoEEndDamage takes unit U, group g returns nothing
    local integer Loop = R2I(udg_KB3D_Reals[0])
    local unit Damager = LoadUnitHandle(udg_KB3D_HA, 22, Loop)
    local attacktype AType = ConvertAttackType(LoadInteger(udg_KB3D_HA, 20, Loop))
    local damagetype DType = ConvertDamageType(LoadInteger(udg_KB3D_HA, 21, Loop))
    local real D = LoadReal(udg_KB3D_HA, 38, Loop)
    local unit U1 = LoadUnitHandle(udg_KB3D_HA, 0, Loop)
    //---------------------------
    if KB3D_Filter(U, U1, Loop) then
        if not(LoadBoolean(udg_KB3D_HA, 44, Loop)) then
            call UnitDamageTarget(Damager, U, D, true, false, AType, DType, null)
        elseif KB3D_Approx(U, U1, Loop) then
            call UnitDamageTarget(Damager, U, D, true, false, AType, DType, null)
        endif
    endif
    //---------------------------
    call GroupRemoveUnit(g, U)
    //---------------------------
    set U1 = null
    set Damager = null
    set AType = null
    set DType = null
endfunction

function KB3D_GiveKBto takes unit U1, unit U2, integer Loop returns nothing
    set udg_KB3D_AoEEndDamage = LoadReal(udg_KB3D_HA, 38, Loop)
    set udg_KB3D_EndwhenDead = LoadBoolean(udg_KB3D_HA, 35, Loop)
    set udg_KB3D_Speed = LoadReal(udg_KB3D_HA, 2, Loop)/0.031250000*.5
    set udg_KB3D_Accel = -udg_KB3D_Speed
    set udg_KB3D_AllowOutSiding = LoadBoolean(udg_KB3D_HA, 34, Loop)
    set udg_KB3D_Angle = (LoadReal(udg_KB3D_HA, 5, Loop)*180/3.14159)
    set udg_KB3D_AoE = LoadReal(udg_KB3D_HA, 29, Loop)
    set udg_KB3D_AoEDamage = LoadReal(udg_KB3D_HA, 32, Loop)
    set udg_KB3D_AttackType = ConvertAttackType(LoadInteger(udg_KB3D_HA, 20, Loop))
    set udg_KB3D_DamageType = ConvertDamageType(LoadInteger(udg_KB3D_HA, 21, Loop))
    set udg_KB3D_Damager = LoadUnitHandle(udg_KB3D_HA, 22, Loop)
    set udg_KB3D_DestroyTree = LoadBoolean(udg_KB3D_HA, 8, Loop)
    set udg_KB3D_DisableUnit = LoadBoolean(udg_KB3D_HA, 6, Loop)
    set udg_KB3D_FaceAngle = LoadBoolean(udg_KB3D_HA, 31, Loop)
    set udg_KB3D_Fx = LoadStr(udg_KB3D_HA, 9, Loop)
    set udg_KB3D_Attach = LoadStr(udg_KB3D_HA, 10, Loop)
    set udg_KB3D_ImpactDamage = LoadReal(udg_KB3D_HA, 17, Loop)
    set udg_KB3D_LineDamage = LoadReal(udg_KB3D_HA, 28, Loop)
    set udg_KB3D_LoopDamage = LoadReal(udg_KB3D_HA, 18, Loop)/0.031250000
    set udg_KB3D_Range = 99999
    set udg_KB3D_Unit = U1
    if LoadBoolean(udg_KB3D_HA, 57, Loop) then
        set udg_KB3D_Zoffset = LoadReal(udg_KB3D_HA, 3, Loop)/1.85 - GetUnitDefaultFlyHeight(U2)
    endif
    //---------------------------
    call TriggerEvaluate( udg_KB3D_Registration )
endfunction

function KB3D_AoEGiveKBto takes unit U1, unit U2, integer Loop returns nothing
    local real x1 = GetUnitX(U1)
    local real y1 = GetUnitY(U1)
    local real x2 = GetUnitX(U2)
    local real y2 = GetUnitY(U2)
    local real P = LoadReal(udg_KB3D_HA, 43, Loop)
    //---------------------------
    set udg_KB3D_AoE = LoadReal(udg_KB3D_HA, 29, Loop)
    set udg_KB3D_EndwhenDead = LoadBoolean(udg_KB3D_HA, 35, Loop)
    set udg_KB3D_Accel = -550*P
    set udg_KB3D_AllowOutSiding = LoadBoolean(udg_KB3D_HA, 34, Loop)
    set udg_KB3D_Angle = Atan2(y1 - y2, x1 - x2)*180/3.14159
    set udg_KB3D_AoEDamage = LoadReal(udg_KB3D_HA, 32, Loop)
    set udg_KB3D_AttackType = ConvertAttackType(LoadInteger(udg_KB3D_HA, 20, Loop))
    set udg_KB3D_DamageType = ConvertDamageType(LoadInteger(udg_KB3D_HA, 21, Loop))
    set udg_KB3D_Damager = LoadUnitHandle(udg_KB3D_HA, 22, Loop)
    set udg_KB3D_DestroyTree = LoadBoolean(udg_KB3D_HA, 8, Loop)
    set udg_KB3D_DisableUnit = LoadBoolean(udg_KB3D_HA, 6, Loop)
    set udg_KB3D_FaceAngle = LoadBoolean(udg_KB3D_HA, 31, Loop)
    set udg_KB3D_Fx = LoadStr(udg_KB3D_HA, 9, Loop)
    set udg_KB3D_Attach = LoadStr(udg_KB3D_HA, 10, Loop)
    set udg_KB3D_ImpactDamage = LoadReal(udg_KB3D_HA, 17, Loop)
    set udg_KB3D_LineDamage = LoadReal(udg_KB3D_HA, 28, Loop)
    set udg_KB3D_LoopDamage = LoadReal(udg_KB3D_HA, 18, Loop)/0.031250000
    set udg_KB3D_Speed = udg_KB3D_AoE*2*P
    set udg_KB3D_Range = udg_KB3D_Speed*2
    set udg_KB3D_Unit = U1
    if LoadBoolean(udg_KB3D_HA, 57, Loop) then
        set udg_KB3D_Zoffset = (udg_KB3D_AoE - SquareRoot(x2 * x1 + y2 * y1)*3.14159/180)*P
    endif
    //---------------------------
    call TriggerEvaluate( udg_KB3D_Registration )
endfunction

function KB3D_AoEKB takes unit U, group g returns nothing
    local integer Loop = R2I(udg_KB3D_Reals[0])
    local unit U1 = LoadUnitHandle(udg_KB3D_HA, 0, Loop)
    local real r
    //---------------------------
    if KB3D_Filter(U, U1, Loop) then
        if not(LoadBoolean(udg_KB3D_HA, 44, Loop)) then
            call KB3D_AoEGiveKBto(U, U1, Loop)
        elseif KB3D_Approx(U, U1, Loop) then
            call KB3D_AoEGiveKBto(U, U1, Loop)
        endif
    endif
    //---------------------------
    call GroupRemoveUnit(g, U)
    //---------------------------
    set U1 = null
endfunction

function KB3D_AoEEndFx takes unit U, string A, string F, group g returns nothing
    local integer Loop = R2I(udg_KB3D_Reals[0])
    local unit U1 = LoadUnitHandle(udg_KB3D_HA, 0, Loop)
    local real x
    local real y
    //---------------------------
    if KB3D_Filter(U, U1, Loop) and (U != null) then
        if not(LoadBoolean(udg_KB3D_HA, 44, Loop)) then
            if ( GetUnitFlyHeight(U) > 20 ) then
                call DestroyEffect(AddSpecialEffectTarget(F, U, A))
            else
                set x = GetUnitX(U)
                set y = GetUnitY(U)
                call DestroyEffect(AddSpecialEffect(F, x, y))
            endif
        elseif KB3D_Approx(U, U1, Loop) then
            if ( GetUnitFlyHeight(U) > 20 ) then
                call DestroyEffect(AddSpecialEffectTarget(F, U, A))
            else
                set x = GetUnitX(U)
                set y = GetUnitY(U)
                call DestroyEffect(AddSpecialEffect(F, x, y))
            endif
        endif
    endif
    //---------------------------
    call GroupRemoveUnit(g, U)
    //---------------------------
    set U1 = null
endfunction

function KB3D_Grpto takes nothing returns nothing
    call GroupAddUnit(udg_KB3D_g, GetEnumUnit())
endfunction

function KB3D_Loop takes integer Loop returns nothing
    //Create all the nessesary locals
    local unit U = LoadUnitHandle(udg_KB3D_HA, 0, Loop)
    local real X = GetUnitX(U)
    local real Y = GetUnitY(U)
    local real Z = GetUnitFlyHeight(U)
    local real x = X
    local real y = Y
    local real z = Z
    local real Range = LoadReal(udg_KB3D_HA, 1, Loop)
    local real Speed = LoadReal(udg_KB3D_HA, 2, Loop)
    local real Zoffset = LoadReal(udg_KB3D_HA, 3, Loop)
    local real Accel = LoadReal(udg_KB3D_HA, 4, Loop)
    local real Angle
    local real ZSpeed = LoadReal(udg_KB3D_HA, 12, Loop)
    local real ZAccel = LoadReal(udg_KB3D_HA, 13, Loop)
    local real ImpactD = LoadReal(udg_KB3D_HA, 17, Loop)
    local real LoopD = LoadReal(udg_KB3D_HA, 18, Loop)
    local real TargetD = LoadReal(udg_KB3D_HA, 19, Loop)
    local real LineD = LoadReal(udg_KB3D_HA, 28, Loop)
    local real AoE = LoadReal(udg_KB3D_HA, 29, Loop)
    local real ZT = LoadReal(udg_KB3D_HA, 26, Loop)
    local real AoED = LoadReal(udg_KB3D_HA, 32, Loop)
    local real Time = LoadReal(udg_KB3D_HA, 41, Loop) + 0.031250000
    local real KillatTime = LoadReal(udg_KB3D_HA, 36, Loop)
    local real StopTime = LoadReal(udg_KB3D_HA, 37, Loop)
    local real AoEEndDamage = LoadReal(udg_KB3D_HA, 38, Loop)
    local unit Target = LoadUnitHandle(udg_KB3D_HA, 5, Loop)
    local unit Damager = LoadUnitHandle(udg_KB3D_HA, 22, Loop)
    local unit u
    local boolean DisableUnit = LoadBoolean(udg_KB3D_HA, 6, Loop)
    local boolean UnpathableStop = LoadBoolean(udg_KB3D_HA, 7, Loop)
    local boolean DestroyTree = LoadBoolean(udg_KB3D_HA, 8, Loop)
    local boolean KillWhenHit = LoadBoolean(udg_KB3D_HA, 24, Loop)
    local boolean EndWhenHit = LoadBoolean(udg_KB3D_HA, 25, Loop)
    local boolean KiOS = LoadBoolean(udg_KB3D_HA, 33, Loop)
    local boolean OS = LoadBoolean(udg_KB3D_HA, 34, Loop)
    local boolean b = true
    local boolean EndwhenDead = LoadBoolean(udg_KB3D_HA, 35, Loop)
    local boolean KBTarget = LoadBoolean(udg_KB3D_HA, 39, Loop)
    local boolean AoEKB = LoadBoolean(udg_KB3D_HA, 40, Loop)
    local boolean KillatEnd = LoadBoolean(udg_KB3D_HA, 46, Loop)
    local boolean GroundDamage = LoadBoolean(udg_KB3D_HA, 47, Loop)
    local boolean EndB = false
    local boolean EndOnObstacle = false
    local string Fx = LoadStr(udg_KB3D_HA, 9, Loop)
    local string Attach = LoadStr(udg_KB3D_HA, 10, Loop)
    local string EndFx = LoadStr(udg_KB3D_HA, 42, Loop)
    local string AoEEndFx = LoadStr(udg_KB3D_HA, 54, Loop)
    local attacktype AType = ConvertAttackType(LoadInteger(udg_KB3D_HA, 20, Loop))
    local damagetype DType = ConvertDamageType(LoadInteger(udg_KB3D_HA, 21, Loop))
    local trigger EndT = LoadTriggerHandle(udg_KB3D_HA, 55, Loop)
    //end of locals
   
    //Loop Damage Execution
    if LoopD != 0 and Damager != null then
        call UnitDamageTarget(Damager, U, LoopD, true, false, AType, DType, null)
    endif
   
    //Calculate the Angle
    if ( Target == null ) then
        set Angle = LoadReal(udg_KB3D_HA, 5, Loop) + LoadReal(udg_KB3D_HA, 30, Loop)//if there is no unit target
    else
        set Angle = Atan2(GetUnitY(Target) - Y, GetUnitX(Target) - X)//if there is a unit target
    endif
    //
    if LoadBoolean(udg_KB3D_HA, 16, Loop) then
        set Angle = GetUnitFacing(U)*0.0174533
        if LoadBoolean(udg_KB3D_HA, 44, Loop) then
            if GetUnitCurrentOrder(U) != 851986 and GetUnitCurrentOrder(U) != 851971 then
                set b = false
            endif
        else
            set b = false
        endif
    endif
    
    //Make Unit Face Angle
    if LoadBoolean(udg_KB3D_HA, 31, Loop) then
        call SetUnitFacing(U, Angle * 3.141592)
    endif
   
    //Calculate 3D coordinates
    if b then
        set Speed = Speed + ( Accel )//Increase the KB speed depending on the Acceleration
        set Range = Range - ( RAbsBJ(Speed) )//Decrease distance traveled
        set x = X + ( Speed * Cos(Angle) )//new X location of the KBed unit
        set y = Y + ( Speed * Sin(Angle) )//new Y location of the KBed unit
        set ZSpeed = ZSpeed + ( ZAccel )//change the fly changing rate //Acceleration is for smoothness
        set z = Z + ( ZSpeed * 0.031250000 )//new Z Offset of the KBed unit
        set ZT = ZT + ( ZSpeed * 0.031250000 )//Total Height Changings
    endif
    set b = false
    
    if z >= Zoffset then
        call SaveReal(udg_KB3D_HA, 12, Loop, -ZSpeed)
    endif
    
    //Destroy Trees around the Unit depending on the unit's Collision Size
    if (DestroyTree) or (LoadBoolean(udg_KB3D_HA, 56, Loop)) then
        set udg_KB3D_Reals[0] = I2R(Loop)
        call KB3D_CircleTreeKill( KB3D_InBetween(150, 4.5 * KB3D_GetUnitCollision(U), 500), x, y )
    endif
    
    //Move the unit according to the X, Y, Z
    set EndOnObstacle = MoveUnit_3D(U, x, y, z, Zoffset, UnpathableStop, OS, KiOS, Angle, Speed, LoadReal(udg_KB3D_HA, 11, Loop)-Time, Loop)
    
    //Bounce on Point
    if udg_KB3D_B and LoadBoolean(udg_KB3D_HA, 60, Loop) then
        set udg_KB3D_B = false
        set Speed=Speed*.85
        set Angle=Angle+Deg2Rad(GetRandomReal(-15,15)+180)
        call DestroyEffect(AddSpecialEffect(LoadStr(udg_KB3D_HA, 62, Loop), GetUnitX(U), GetUnitY(U)))
    endif
   
    //Create the Effect on the unit
    if (Fx != "") then
        if ( z > 20 ) then
            if (Attach != "") then
                call DestroyEffect(AddSpecialEffectTarget(Fx, U, Attach))//attach the effect on the unit if he is flying
            endif
        else
            call DestroyEffect(AddSpecialEffect(Fx, x, y))//create the effect on his location if he is not flying
        endif
    endif
   
    //Initiate Impact Damage
    if ( (UnpathableStop) and not ( KB3D_CW(x, y) ) ) and ( (ImpactD != 0) and (Damager != null ) ) then//if the terrain is unpathable or if unpathable stop is disabled then..
        if ( KB3D_CW(x, y) ) then
            call SaveBoolean(udg_KB3D_HA, 23, Loop, true)
        endif
        if ( LoadBoolean(udg_KB3D_HA, 23, Loop) ) then
            call UnitDamageTarget(Damager, U, ImpactD, true, false, AType, DType, null)//Apply Impact Damage to the unit
            call SaveBoolean(udg_KB3D_HA, 23, Loop, false)
        endif
    endif
    
    //Create AoE Grp
    if (AoE != 0) and ((LineD != 0) or (AoED != 0) or LoadBoolean(udg_KB3D_HA, 61, Loop) or LoadBoolean(udg_KB3D_HA, 60, Loop)) then
        set udg_KB3D_g = CreateGroup()
        set udg_KB3D_Reals[0] = I2R(Loop)
        call GroupEnumUnitsInRange(udg_KB3D_g, x, y, RAbsBJ(AoE), Filter(function KB3D_FilterGrp))
        //----------------------------------
        loop
            set u = FirstOfGroup(udg_KB3D_g)
            exitwhen (u == null)
            if (Damager != null) then
                if (LineD != 0) then
                    call KB3D_LineDamageLoop(u, udg_KB3D_g)
                endif
                if (AoED != 0) then
                    call KB3D_AoEDamageLoop(u, udg_KB3D_g)
                endif
            endif
            if not IsUnitInGroup(u, LoadGroupHandle(udg_KB3D_HA, 67, Loop)) and 125>SquareRoot((GetUnitX(u) - GetUnitX(U)) * (GetUnitX(u) - GetUnitX(U)) + (GetUnitY(u) - GetUnitY(U)) * (GetUnitY(u) - GetUnitY(U))) then
                if LoadBoolean(udg_KB3D_HA, 61, Loop) then
                    call KB3D_BounceOnUnit(u, U, Loop)
                    call GroupAddUnit(LoadGroupHandle(udg_KB3D_HA, 67, Loop),u)
                    call DestroyEffect(AddSpecialEffect(LoadStr(udg_KB3D_HA, 62, Loop), GetUnitX(u), GetUnitY(u)))
                    set b = LoadBoolean(udg_KB3D_HA, 70, Loop)
                endif
                if LoadBoolean(udg_KB3D_HA, 60, Loop) then
                    set Angle = (Atan2(GetUnitY(u) - GetUnitY(U), GetUnitX(u) - GetUnitX(U))) + Deg2Rad(GetRandomReal(-15,15) + 180)
                    set Speed = Speed*.85
                    call DestroyEffect(AddSpecialEffect(LoadStr(udg_KB3D_HA, 62, Loop), GetUnitX(U), GetUnitY(U)))
                endif
            endif
            call GroupRemoveUnit(udg_KB3D_g,u)
        endloop
        //----------------------------------
        call DestroyGroup(udg_KB3D_g)
        set udg_KB3D_g = null
    endif
   
    //Disable the unit partially
    if ( DisableUnit ) then
        call SetUnitPropWindow(U, 0)
        call SetUnitTurnSpeed(U, 0)
    endif
   
    //Initiate Target-Related Actions
    if (Target != null) then
        if (SquareRoot ( ( GetUnitX(Target) - x ) * ( GetUnitX(Target) - x ) + ( GetUnitY(Target) - y ) * ( GetUnitY(Target) - y ) ) < Speed+2) then//when the target and the unit are close
            if not (TargetD == 0) and not(Damager == null) then//Damage the Target
                call UnitDamageTarget(Damager, Target, TargetD, true, false, AType, DType, null)
                call SaveReal(udg_KB3D_HA, 19, Loop, 0)
            endif
            if KBTarget then//KB the Target
                call KB3D_GiveKBto(Target, U, Loop)
                call SaveBoolean( udg_KB3D_HA, 39, udg_KB3D_Counter, false )
            endif
            if (KillWhenHit) then//Kill the Unit
                call KillUnit(U)
            endif
            if (EndWhenHit) then//End the KB
                call SaveReal(udg_KB3D_HA, 4, Loop, KB3D_AlwaysNeg(Speed))
                call SaveReal(udg_KB3D_HA, 3, Loop, GetUnitFlyHeight(U) - ZT)
            endif
        endif
    endif
   
    //Kill the Unit at the time
    if (KillatTime != 0) and ( Time > KillatTime ) then
        call KillUnit(U)
    endif
   
    //Save Changes in the Hashtable
    call SaveReal(udg_KB3D_HA, 1, Loop, Range)
    call SaveReal(udg_KB3D_HA, 2, Loop, Speed)
    call SaveReal(udg_KB3D_HA, 5, Loop, Angle)
    call SaveReal(udg_KB3D_HA, 12, Loop, ZSpeed)
    call SaveReal(udg_KB3D_HA, 26, Loop, ZT)
    call SaveReal(udg_KB3D_HA, 41, Loop, Time)
    
    //Inititate End of the KB
    if ( b or (LoadBoolean(udg_KB3D_HA, 45, Loop) and (Speed <= 2.34)) or ( Range <= 0 ) or ( (StopTime != 0) and ( Time > StopTime ) ) or EndOnObstacle ) then
        call SaveBoolean(udg_KB3D_HA, 100, Loop, false)
        set udg_KB3D_Instances = udg_KB3D_Instances - 1
        if IsUnitType(U, UNIT_TYPE_DEAD) then
            call SetUnitFlyHeight(U, GetUnitDefaultFlyHeight(U), 750 )
        endif
        call SetUnitPropWindow(U, LoadReal(udg_KB3D_HA, 15, Loop)*3.14159/180)
        call SetUnitTurnSpeed(U, GetUnitDefaultTurnSpeed(U))
        if HaveSavedHandle(udg_KB3D_HA, 14, Loop) and not EndB then
            call DestroyEffect(LoadEffectHandle(udg_KB3D_HA, 14, Loop))
        endif
        set b = true
    elseif IsUnitType(U, UNIT_TYPE_DEAD) and (EndwhenDead) then
        call SaveBoolean(udg_KB3D_HA, 100, Loop, false)
        set udg_KB3D_Instances = udg_KB3D_Instances - 1
        if IsUnitType(U, UNIT_TYPE_DEAD) then
            call SetUnitFlyHeight(U, GetUnitDefaultFlyHeight(U), 750 )
        endif
        call SetUnitPropWindow(U, LoadReal(udg_KB3D_HA, 15, Loop)*3.14159/180)
        call SetUnitTurnSpeed(U, GetUnitDefaultTurnSpeed(U))
        if HaveSavedHandle(udg_KB3D_HA, 14, Loop) and not EndB then
            call DestroyEffect(LoadEffectHandle(udg_KB3D_HA, 14, Loop))
        endif
        set b = true
    endif
   
    //variable b refers to if the KB has ended
    
    if b then
        call SetUnitFlyHeight(U, GetUnitFlyHeight(U)-KB3D_InBetween(0,ZT-LoadReal(udg_KB3D_HA, 71, Loop),999), 500)
        if LoadBoolean(udg_KB3D_HA, 44, Loop) then
            call SetUnitFlyHeight(U, GetUnitFlyHeight(U)-KB3D_InBetween(0,(LoadReal(udg_KB3D_HA, 69, Loop)-KB3D_GetCoordinatesZ(x,y)),9999), RAbsBJ(ZSpeed))
        endif
        //----------
        call SaveInteger(udg_KB3D_HA, -5, GetHandleId(U), LoadInteger(udg_KB3D_HA, -5, GetHandleId(U))-1)
        if LoadInteger(udg_KB3D_HA, -5, GetHandleId(udg_KB3D_Unit)) == 0 then
            call SaveBoolean(udg_KB3D_HA, GetHandleId(U), GetHandleId(U), false)
        endif
        //----------
        if (AoEEndDamage != 0) and (Damager != null) and (AoE != 0) then
            set udg_KB3D_g = CreateGroup()
            set udg_KB3D_Reals[0] = I2R(Loop)
            call GroupEnumUnitsInRange(udg_KB3D_g, x, y, RAbsBJ(AoE), null)
            loop
                set u = FirstOfGroup(udg_KB3D_g)
                call KB3D_AoEEndDamage(u, udg_KB3D_g)
                exitwhen (u == null)
            endloop
            call DestroyGroup(udg_KB3D_g)
            set udg_KB3D_g = null
        endif
        //----------
        if (AoEKB) and (AoE != 0) then
            set udg_KB3D_g = CreateGroup()
            set udg_KB3D_Reals[0] = I2R(Loop)
            call GroupEnumUnitsInRange(udg_KB3D_g, x, y, RAbsBJ(AoE), null)
            loop
                set u = FirstOfGroup(udg_KB3D_g)
                call KB3D_AoEKB(u, udg_KB3D_g)
                exitwhen (u == null)
            endloop
            call DestroyGroup(udg_KB3D_g)
            set udg_KB3D_g = null
        endif
        //----------
        if (EndFx != "") then
            if ( z > 20 ) and (Attach != "") then
                call DestroyEffect(AddSpecialEffectTarget(EndFx, U, Attach))//attach the effect on the unit if he is flying
            else
                call DestroyEffect(AddSpecialEffect(EndFx, x, y))//create the effect on his location if he is not flying
            endif
        endif
        //----------
        if (AoEEndFx != "") and (Attach != "") and (AoE > 0) then
            set udg_KB3D_g = CreateGroup()
            set udg_KB3D_Reals[0] = I2R(Loop)
            call GroupEnumUnitsInRange(udg_KB3D_g, x, y, RAbsBJ(AoE), null)
            loop
                set u = FirstOfGroup(udg_KB3D_g)
                call KB3D_AoEEndFx(u, Attach, AoEEndFx, udg_KB3D_g)
                exitwhen (u == null)
           endloop
            call DestroyGroup(udg_KB3D_g)
            set udg_KB3D_g = null
        endif
        //----------
        if (AoEEndFx != "") and (Attach != "") and (AoE > 0) then
            set udg_KB3D_g = CreateGroup()
            set udg_KB3D_Reals[0] = I2R(Loop)
            call GroupEnumUnitsInRange(udg_KB3D_g, x, y, RAbsBJ(AoE), null)
            loop
                set u = FirstOfGroup(udg_KB3D_g)
                call KB3D_AoEEndFx(u, Attach, AoEEndFx, udg_KB3D_g)
                exitwhen (u == null)
            endloop
            call DestroyGroup(udg_KB3D_g)
            set udg_KB3D_g = null
        endif
        //----------
        if GroundDamage and (ImpactD != 0) and z < 75 and (Damager != null) then
            call UnitDamageTarget(Damager, U, ImpactD, true, false, AType, DType, null)
        endif
        //----------
        if (KillatEnd) and not EndB then
            call KillUnit(U)
        endif
        //----------
        if (EndT != null) then
            set udg_KB3D_Unit = U
            set udg_KB3D_Targeted_Unit = Target
            call ConditionalTriggerExecute(EndT)
            set udg_KB3D_Unit = null
            set udg_KB3D_Targeted_Unit = null
        endif
    endif
   
    //Function to know if the unit is being KBed by the system
    call SaveInteger(udg_KB3D_HA, -2, GetHandleId(udg_KB3D_Unit), LoadInteger(udg_KB3D_HA, -2, GetHandleId(udg_KB3D_Unit))-1)
    call SaveBoolean(udg_KB3D_HA, -1, GetHandleId(udg_KB3D_Unit), LoadInteger(udg_KB3D_HA, -2, GetHandleId(udg_KB3D_Unit))!=0)
   
    //Clear Instance
    if b then
        call KB3D_ClearInstance(Loop)
    endif
   
    //Clear locals
    set udg_KB3D_B = false
    set U = null
    set Target = null
    set Damager = null
endfunction

function KB3D_Loop_Actions takes nothing returns nothing
    local integer x = 0
    loop
        exitwhen x >= udg_KB3D_Counter
        set x = x + 1
        if ( LoadBoolean(udg_KB3D_HA, 100, x) ) then
            call KB3D_Loop(x)
        endif
    endloop
    if ( udg_KB3D_Instances == 0 ) then
        set udg_KB3D_Counter = 0
        call PauseTimer(udg_KB3D_Timer)
    endif
endfunction

function KB3D_ClearVar takes nothing returns nothing
    set udg_KB3D_HomingMissile = false
    set udg_KB3D_EndOnTargetBounce = false
    set udg_KB3D_Speed_Changer = false
    set udg_KB3D_AoEEndFx = ""
    set udg_KB3D_D_STRUCTURE = false
    set udg_KB3D_D_MECHANICAL = false
    set udg_KB3D_D_ALLY = false
    set udg_KB3D_D_MAGIC_IMMINUE = false
    set udg_KB3D_D_ENEMY = true
    set udg_KB3D_D_RESISTANT = false
    set udg_KB3D_D_FLYING = false
    set udg_KB3D_Accel = 0.00
    set udg_KB3D_AllowOutSiding = false
    set udg_KB3D_Angle = 0.00
    set udg_KB3D_AoE = 0.00
    set udg_KB3D_Arc = 0.00
    set udg_KB3D_AoEDamage = 0.00
    set udg_KB3D_AttackType = ATTACK_TYPE_NORMAL
    set udg_KB3D_DamageType = DAMAGE_TYPE_MAGIC
    set udg_KB3D_Damager = null
    set udg_KB3D_DestroyTree = true
    set udg_KB3D_DisableUnit = false
    set udg_KB3D_EndWhenHit = false
    set udg_KB3D_Fx = ""
    set udg_KB3D_Fx_Attach = ""
    set udg_KB3D_EndFx = ""
    set udg_KB3D_Attach = "origin"
    set udg_KB3D_ImpactDamage = 0.00
    set udg_KB3D_KillWhenHit = false
    set udg_KB3D_FaceAngle = false
    set udg_KB3D_KillifOutSider = false
    set udg_KB3D_LineDamage = 0.00
    set udg_KB3D_LoopDamage = 0.00
    set udg_KB3D_Range = 0.00
    set udg_KB3D_Speed = 0.00
    set udg_KB3D_TargetDamage = 0.00
    set udg_KB3D_Targeted_Unit = null
    set udg_KB3D_TrailFx = ""
    set udg_KB3D_Unit = null
    set udg_KB3D_UnpathableStop = true
    set udg_KB3D_Zoffset = 0.00
    set udg_KB3D_AoEEndDamage = 0.00
    set udg_KB3D_AoEKB = false
    set udg_KB3D_EndwhenDead = true
    set udg_KB3D_KBTarget = false
    set udg_KB3D_StopTime = 0.00
    set udg_KB3D_KillatTime = 0.00
    set udg_KB3D_AoEKB_Power = 1.00
    set udg_KB3D_iKB = true
    set udg_KB3D_KillatEnd = false
    set udg_KB3D_GroundDamage = false
    set udg_KB3D_EndTrigger = null
    set udg_KB3D_JumpOverCliff = false
    set udg_KB3D_DestroyDestructables = false
    set udg_KB3D_Line_Fx = ""
    set udg_KB3D_Bounce_Target = false
    set udg_KB3D_Bounce_Unit = false
    set udg_KB3D_Bounce_Power = 1.00
    set udg_KB3D_Bounce_Fx = ""
    set udg_KB3D_EndOnObstacle = false
endfunction

function KB3D_Registration takes nothing returns boolean
    local real Time
    local real R
    local real R1
    local real dx
    local real dy
    //------------------------
    if udg_KB3D_Unit == null then
        return false
    endif
    //------------------------
    if udg_KB3D_Fx_Attach != "" then
        set udg_KB3D_Fx = udg_KB3D_Fx_Attach
    endif
    //------------------------
    if udg_KB3D_Targeted_Unit != null and udg_KB3D_HomingMissile then
        set udg_KB3D_Zoffset = GetUnitFlyHeight(udg_KB3D_Targeted_Unit)
        set dx = GetUnitX(udg_KB3D_Unit)-GetUnitX(udg_KB3D_Targeted_Unit)
        set dy = GetUnitY(udg_KB3D_Unit)-GetUnitY(udg_KB3D_Targeted_Unit)
        if udg_KB3D_Zoffset == 0 then
            set udg_KB3D_Zoffset = 100
            set udg_KB3D_Range = SquareRoot( dx * dx + dy * dy)*1.25
        else
            set udg_KB3D_Range = SquareRoot( dx * dx + dy * dy)*2
        endif
        set udg_KB3D_KillatEnd = true
        set udg_KB3D_KillWhenHit = true
        set udg_KB3D_EndWhenHit = true
        set udg_KB3D_FaceAngle = true
        set udg_KB3D_UnpathableStop = false
    endif
    //------------------------
    set udg_KB3D_Arc = KB3D_InBetween(-10, udg_KB3D_Arc, 10)
    set udg_KB3D_AoEKB_Power = KB3D_InBetween(0.01, udg_KB3D_AoEKB_Power, 3)
    //------------------------
    if IsUnitType(udg_KB3D_Unit, UNIT_TYPE_FLYING) then
        set udg_KB3D_UnpathableStop = false
    endif
    //------------------------
    if (udg_KB3D_iKB) and udg_KB3D_Range < 0 then
        if ( udg_KB3D_Targeted_Unit == null ) then
            set udg_KB3D_Angle = udg_KB3D_Angle + 180
        else
            set udg_KB3D_Speed = -1*(udg_KB3D_Speed)
        endif
    endif
    //------------------------
    set udg_KB3D_Range = KB3D_InBetween(0.0000001, RAbsBJ(udg_KB3D_Range), RAbsBJ(udg_KB3D_Range))
    //------------------------
    if (udg_KB3D_iKB) and udg_KB3D_Speed < 0 then
        set udg_KB3D_Speed = KB3D_InBetween(udg_KB3D_Speed, udg_KB3D_Speed, -0.01)
    else
        set udg_KB3D_Speed = KB3D_InBetween(0.01, RAbsBJ(udg_KB3D_Speed), RAbsBJ(udg_KB3D_Speed))
    endif
    //------------------------
    set udg_KB3D_Counter = udg_KB3D_Counter + 1
    set udg_KB3D_Instances = udg_KB3D_Instances + 1
    call SaveBoolean(udg_KB3D_HA, -1, GetHandleId(udg_KB3D_Unit), true)
	call SaveBoolean(udg_KB3D_HA, 57, udg_KB3D_Counter, (udg_KB3D_Zoffset != 0))
    //------------------------
    if not udg_KB3D_iKB then
        set udg_KB3D_Zoffset = RAbsBJ(udg_KB3D_Zoffset)
    elseif GetUnitFlyHeight(udg_KB3D_Unit)+udg_KB3D_Zoffset < 0 then
        set udg_KB3D_Zoffset = -GetUnitFlyHeight(udg_KB3D_Unit)
    endif
    //------------------------
    set udg_KB3D_StopTime = RAbsBJ(udg_KB3D_StopTime)
    set udg_KB3D_KillatTime = RAbsBJ(udg_KB3D_KillatTime)
    set udg_KB3D_AoE = RAbsBJ(udg_KB3D_AoE)
    //------------------------
    //------------------------
    call SaveUnitHandle( udg_KB3D_HA, 0, udg_KB3D_Counter, udg_KB3D_Unit )
    call SaveReal( udg_KB3D_HA, 1, udg_KB3D_Counter, udg_KB3D_Range )
    call SaveReal( udg_KB3D_HA, 2, udg_KB3D_Counter, udg_KB3D_Speed * 0.031250000 )
    call SaveReal( udg_KB3D_HA, 4, udg_KB3D_Counter, udg_KB3D_Accel * 0.031250000 * 0.031250000 )
    //------------------------
    if ( udg_KB3D_Targeted_Unit == null ) then
        call SaveReal( udg_KB3D_HA, 5, udg_KB3D_Counter, udg_KB3D_Angle * 3.14159 / 180 )
    else
        call SaveUnitHandle( udg_KB3D_HA, 5, udg_KB3D_Counter, udg_KB3D_Targeted_Unit )
        set udg_KB3D_JumpOverCliff = false
    endif
    //------------------------
    call SaveBoolean( udg_KB3D_HA, 6, udg_KB3D_Counter, udg_KB3D_DisableUnit )
    call SaveBoolean( udg_KB3D_HA, 7, udg_KB3D_Counter, udg_KB3D_UnpathableStop )
    call SaveBoolean( udg_KB3D_HA, 8, udg_KB3D_Counter, udg_KB3D_DestroyTree )
    call SaveStr( udg_KB3D_HA, 9, udg_KB3D_Counter, udg_KB3D_Fx )
    call SaveStr( udg_KB3D_HA, 10, udg_KB3D_Counter, udg_KB3D_Attach )
    call SaveBoolean( udg_KB3D_HA, 45, udg_KB3D_Counter, udg_KB3D_Speed>0 )
    //------------------------
    //------------------------
    set udg_KB3D_Speed = KB3D_InBetween(0.01, RAbsBJ(udg_KB3D_Speed), RAbsBJ(udg_KB3D_Speed))
    //------------------------
    if ( udg_KB3D_Accel == 0.00 ) then
        set Time = udg_KB3D_Range / (udg_KB3D_Speed)//calculating time for the knockback if Acceleration = 0
    else
        if ( udg_KB3D_Accel > 0 ) then
            set Time = (-udg_KB3D_Speed-SquareRoot(udg_KB3D_Speed*udg_KB3D_Speed + 2*udg_KB3D_Accel*udg_KB3D_Range))/-udg_KB3D_Accel//calculating time for the knockback if Acceleration > 0*/
        endif
        if ( udg_KB3D_Accel < 0 ) then
            set Time = (-udg_KB3D_Speed+SquareRoot(udg_KB3D_Speed*udg_KB3D_Speed + 2*udg_KB3D_Accel*udg_KB3D_Range))/udg_KB3D_Accel            
        endif
    endif
    //------------------------
    call SaveReal( udg_KB3D_HA, 11, udg_KB3D_Counter, Time )
    call SaveBoolean( udg_KB3D_HA, 100, udg_KB3D_Counter, true )
    //------------------------
    if UnitAddAbility(udg_KB3D_Unit, 'Amrf') then
        call UnitRemoveAbility(udg_KB3D_Unit, 'Amrf')
    endif
    //------------------------
    call SaveReal( udg_KB3D_HA, 3, udg_KB3D_Counter, udg_KB3D_Zoffset )
    call SaveReal( udg_KB3D_HA, 12, udg_KB3D_Counter, (2*udg_KB3D_Zoffset / ( Time / 2)) )
    call SaveReal( udg_KB3D_HA, 13, udg_KB3D_Counter, ( -2 * udg_KB3D_Zoffset / ( Time / 2) ) / ( Time / 2) * 0.031250000 )
    //------------------------
    if not (udg_KB3D_TrailFx == "") and not (udg_KB3D_Attach == "") then
        call SaveEffectHandle(udg_KB3D_HA, 14, udg_KB3D_Counter, AddSpecialEffectTarget(udg_KB3D_TrailFx, udg_KB3D_Unit, udg_KB3D_Attach))
    endif
    //------------------------
    call SaveReal( udg_KB3D_HA, 15, udg_KB3D_Counter, GetUnitDefaultPropWindow(udg_KB3D_Unit) )
    call SaveBoolean(udg_KB3D_HA, 16, udg_KB3D_Counter, udg_KB3D_Speed_Changer)
    call SaveReal( udg_KB3D_HA, 17, udg_KB3D_Counter, udg_KB3D_ImpactDamage )
    call SaveReal( udg_KB3D_HA, 18, udg_KB3D_Counter, udg_KB3D_LoopDamage * 0.031250000 )
    call SaveReal( udg_KB3D_HA, 19, udg_KB3D_Counter, udg_KB3D_TargetDamage )
    call SaveInteger( udg_KB3D_HA, 20, udg_KB3D_Counter, GetHandleId(udg_KB3D_AttackType))
    call SaveInteger( udg_KB3D_HA, 21, udg_KB3D_Counter, GetHandleId(udg_KB3D_DamageType))
    call SaveUnitHandle( udg_KB3D_HA, 22, udg_KB3D_Counter, udg_KB3D_Damager )
    call SaveBoolean( udg_KB3D_HA, 23, udg_KB3D_Counter, true )
    call SaveBoolean( udg_KB3D_HA, 24, udg_KB3D_Counter, udg_KB3D_KillWhenHit )
    call SaveBoolean( udg_KB3D_HA, 25, udg_KB3D_Counter, udg_KB3D_EndWhenHit )
    // 26 used
    call SaveGroupHandle(udg_KB3D_HA, 27, udg_KB3D_Counter, CreateGroup() )
    call SaveReal( udg_KB3D_HA, 28, udg_KB3D_Counter, udg_KB3D_LineDamage )
    call SaveReal( udg_KB3D_HA, 29, udg_KB3D_Counter, RAbsBJ(udg_KB3D_AoE) )
    call SaveReal( udg_KB3D_HA, 30, udg_KB3D_Counter, udg_KB3D_Arc * (3.14159/180) )
    call SaveBoolean( udg_KB3D_HA, 31, udg_KB3D_Counter, udg_KB3D_FaceAngle )
    call SaveReal( udg_KB3D_HA, 32, udg_KB3D_Counter, udg_KB3D_AoEDamage )
    call SaveBoolean( udg_KB3D_HA, 33, udg_KB3D_Counter, udg_KB3D_KillifOutSider )
    //------------------------
    set udg_KB3D_AllowOutSiding = udg_KB3D_KillifOutSider
    //------------------------
    call SaveBoolean( udg_KB3D_HA, 34, udg_KB3D_Counter, udg_KB3D_AllowOutSiding )
    //------------------------
    set udg_KB3D_EndwhenDead = udg_KB3D_KillatTime > udg_KB3D_StopTime
    //------------------------
    call SaveBoolean( udg_KB3D_HA, 35, udg_KB3D_Counter, udg_KB3D_EndwhenDead )
    call SaveReal( udg_KB3D_HA, 36, udg_KB3D_Counter, udg_KB3D_KillatTime )
    call SaveReal( udg_KB3D_HA, 37, udg_KB3D_Counter, udg_KB3D_StopTime )
    call SaveReal( udg_KB3D_HA, 38, udg_KB3D_Counter, udg_KB3D_AoEEndDamage )
    call SaveBoolean( udg_KB3D_HA, 39, udg_KB3D_Counter, udg_KB3D_KBTarget )
    call SaveBoolean( udg_KB3D_HA, 40, udg_KB3D_Counter, udg_KB3D_AoEKB )
    //41 used
    call SaveStr(udg_KB3D_HA, 42, udg_KB3D_Counter, udg_KB3D_EndFx )
    call SaveReal( udg_KB3D_HA, 43, udg_KB3D_Counter, udg_KB3D_AoEKB_Power )
    call SaveBoolean( udg_KB3D_HA, 44, udg_KB3D_Counter, udg_KB3D_iKB )
    call SaveBoolean( udg_KB3D_HA, 46, udg_KB3D_Counter, udg_KB3D_KillatEnd )
    call SaveBoolean( udg_KB3D_HA, 47, udg_KB3D_Counter, udg_KB3D_GroundDamage )
    call SaveBoolean( udg_KB3D_HA, 48, udg_KB3D_Counter, udg_KB3D_D_STRUCTURE )
    call SaveBoolean( udg_KB3D_HA, 49, udg_KB3D_Counter, udg_KB3D_D_MECHANICAL )
    call SaveBoolean( udg_KB3D_HA, 50, udg_KB3D_Counter, udg_KB3D_D_MAGIC_IMMINUE )
    call SaveBoolean( udg_KB3D_HA, 51, udg_KB3D_Counter, udg_KB3D_D_ALLY )
    call SaveBoolean( udg_KB3D_HA, 52, udg_KB3D_Counter, udg_KB3D_JumpOverCliff )
    call SaveBoolean( udg_KB3D_HA, 53, udg_KB3D_Counter, false )
    call SaveStr( udg_KB3D_HA, 54, udg_KB3D_Counter, udg_KB3D_AoEEndFx )
    call SaveTriggerHandle( udg_KB3D_HA, 55, udg_KB3D_Counter, udg_KB3D_EndTrigger )
    call SaveBoolean( udg_KB3D_HA, 56, udg_KB3D_Counter, udg_KB3D_DestroyDestructables )
    //57 used
    call SaveStr( udg_KB3D_HA, 58, udg_KB3D_Counter, udg_KB3D_Line_Fx )
    call SaveReal( udg_KB3D_HA, 59, udg_KB3D_Counter, udg_KB3D_Bounce_Power )
    call SaveBoolean( udg_KB3D_HA, 60, udg_KB3D_Counter, udg_KB3D_Bounce_Unit )
    call SaveBoolean( udg_KB3D_HA, 61, udg_KB3D_Counter, udg_KB3D_Bounce_Target )
    call SaveStr( udg_KB3D_HA, 62, udg_KB3D_Counter, udg_KB3D_Bounce_Fx )
    call SaveBoolean( udg_KB3D_HA, 63, udg_KB3D_Counter, udg_KB3D_D_ENEMY )
    call SaveBoolean( udg_KB3D_HA, 64, udg_KB3D_Counter, udg_KB3D_D_RESISTANT )
    call SaveBoolean( udg_KB3D_HA, 65, udg_KB3D_Counter, udg_KB3D_D_FLYING )
    call SaveBoolean( udg_KB3D_HA, 66, udg_KB3D_Counter, udg_KB3D_EndOnObstacle )
    //------------------------
    if udg_KB3D_Bounce_Target then
        call SaveGroupHandle(udg_KB3D_HA, 67, udg_KB3D_Counter, CreateGroup())
    endif
    //------------------------
    call SaveReal( udg_KB3D_HA, 68, udg_KB3D_Counter, KB3D_GetCoordinatesZ(GetUnitX(udg_KB3D_Unit), GetUnitY(udg_KB3D_Unit)) )
    call SaveReal( udg_KB3D_HA, 69, udg_KB3D_Counter, KB3D_GetCoordinatesZ(GetUnitX(udg_KB3D_Unit), GetUnitY(udg_KB3D_Unit)) )
    call SaveBoolean( udg_KB3D_HA, 70, udg_KB3D_Counter, udg_KB3D_EndOnTargetBounce )
    call SaveReal(udg_KB3D_HA, 71, udg_KB3D_Counter, GetUnitFlyHeight(udg_KB3D_Unit))
    //------------------------
    if ( udg_KB3D_Counter == 1 ) then
        call TimerStart(udg_KB3D_Timer, 0.031250000, true, function KB3D_Loop_Actions )
    endif
    //------------------------
    set udg_KB3D_Time = Time
    //------------------------
    //------------------------
    call SaveInteger(udg_KB3D_HA, -5, GetHandleId(udg_KB3D_Unit), LoadInteger(udg_KB3D_HA, -5, GetHandleId(udg_KB3D_Unit))+1)
    call SaveBoolean(udg_KB3D_HA, GetHandleId(udg_KB3D_Unit), GetHandleId(udg_KB3D_Unit), true)
    //------------------------
    //------------------------
    //------------------------
    call KB3D_ClearVar()
    return false
endfunction

//===========================================================================
function InitTrig_KB3D takes nothing returns nothing
    ////////REGISTRATION
    set udg_KB3D_Registration = CreateTrigger(  )
    call TriggerAddCondition( udg_KB3D_Registration, Condition(function KB3D_Registration) )
    set udg_KB3D_Harvester = CreateUnit(Player(15), 'hpea', 0, 0, 0)
    call ShowUnit(udg_KB3D_Harvester, false)
    call UnitAddAbility(udg_KB3D_Harvester, 'Aloc')
    call UnitAddAbility(udg_KB3D_Harvester, 'Ahar')
    call UnitRemoveAbility(udg_KB3D_Harvester, 'Amov')
    set udg_KB3D_HA = InitHashtable()
    ////////Check Walkability System by PnF
    set udg_CP_Rect = Rect(0, 0, 128.00, 128.00)
    set udg_CP_Item = CreateItem('wtlg', 0, 0)
    call SetItemVisible( udg_CP_Item, false )
    ////////InitReals
    set udg_KB3D_Reals[1] = GetRectMaxX(bj_mapInitialPlayableArea)
    set udg_KB3D_Reals[2] = GetRectMinX(bj_mapInitialPlayableArea)
    set udg_KB3D_Reals[3] = GetRectMaxY(bj_mapInitialPlayableArea)
    set udg_KB3D_Reals[4] = GetRectMinY(bj_mapInitialPlayableArea)
    set udg_KB3D_Reals[5] = GetRectMaxX(GetWorldBounds())
    set udg_KB3D_Reals[6] = GetRectMinX(GetWorldBounds())
    set udg_KB3D_Reals[7] = GetRectMaxY(GetWorldBounds())
    set udg_KB3D_Reals[8] = GetRectMinY(GetWorldBounds())
    //Initiate Default Values
    call KB3D_ClearVar()
endfunction
This trigger works in two key phases:

1) During map initialization, enumerate all units of all players to give them an index.
2) Adds a second event to itself to index new units as they enter the map.

As a unit enters the map, check for any old units that may have been removed at some point in order to free their index.
Unit Indexer
Events
Map initialization
Conditions
Actions
Custom script: call ExecuteFunc("InitializeUnitIndexer")
Custom script: endfunction
-------- --------
-------- This is the most important function - it provides an index for units as they enter the map --------
-------- --------
Custom script: function IndexUnit takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
-------- --------
-------- You can use the boolean UnitIndexerEnabled to protect some of your undesirable units from being indexed --------
-------- - Example: --------
-------- -- Set UnitIndexerEnabled = False --------
-------- -- Unit - Create 1 Dummy for (Triggering player) at TempLoc facing 0.00 degrees --------
-------- -- Set UnitIndexerEnabled = True --------
-------- --------
-------- You can also customize the following block - if conditions are false the (Matching unit) won't be indexed. --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitIndexerEnabled Equal to True
Then - Actions
-------- --------
-------- Generate a unique integer index for this unit --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UDexRecycle Equal to 0
Then - Actions
Set Variable Set UDex = (UDexGen + 1)
Set Variable Set UDexGen = UDex
Else - Actions
Set Variable Set UDex = UDexRecycle
Set Variable Set UDexRecycle = UDexNext[UDex]
-------- --------
-------- Link index to unit, unit to index --------
-------- --------
Set Variable Set UDexUnits[UDex] = (Matching unit)
Unit - Set the custom value of UDexUnits[UDex] to UDex
-------- --------
-------- Use a doubly-linked list to store all active indexes --------
-------- --------
Set Variable Set UDexPrev[UDexNext[0]] = UDex
Set Variable Set UDexNext[UDex] = UDexNext[0]
Set Variable Set UDexNext[0] = UDex
-------- --------
-------- Fire index event for UDex --------
-------- --------
Set Variable Set UnitIndexEvent = "0.00"
Set Variable Set UnitIndexEvent = "1.00"
Set Variable Set UnitIndexEvent = "0.00"
Custom script: set udg_UDex = pdex
Else - Actions
Custom script: return false
Custom script: endfunction
-------- --------
-------- The next function is called each time a unit enters the map --------
-------- --------
Custom script: function IndexNewUnit takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
Custom script: local integer ndex
-------- --------
-------- Recycle indices of units no longer in-play every (15) units created --------
-------- --------
Set Variable Set UDexWasted = (UDexWasted + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UDexWasted Equal to 15
Then - Actions
Set Variable Set UDexWasted = "0"
Set Variable Set UDex = UDexNext[0]
Custom script: loop
Custom script: exitwhen udg_UDex == 0
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Custom value of UDexUnits[UDex]) Equal to 0
Then - Actions
-------- --------
-------- Remove index from linked list --------
-------- --------
Custom script: set ndex = udg_UDexNext[udg_UDex]
Custom script: set udg_UDexNext[udg_UDexPrev[udg_UDex]] = ndex
Custom script: set udg_UDexPrev[ndex] = udg_UDexPrev[udg_UDex]
Set Variable Set UDexPrev[UDex] = "0"
-------- --------
-------- Fire deindex event for UDex --------
-------- --------
Set Variable Set UnitIndexEvent = "2.00"
Set Variable Set UnitIndexEvent = "0.00"
-------- --------
-------- Recycle the index for later use --------
-------- --------
Set Variable Set UDexUnits[UDex] = No unit
Set Variable Set UDexNext[UDex] = UDexRecycle
Set Variable Set UDexRecycle = UDex
Custom script: set udg_UDex = ndex
Else - Actions
Set Variable Set UDex = UDexNext[UDex]
Custom script: endloop
Custom script: set udg_UDex = pdex
Else - Actions
-------- --------
-------- Handle the entering unit (Matching unit) --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Custom value of (Matching unit)) Equal to 0
Then - Actions
Custom script: call IndexUnit()
Else - Actions
Custom script: return false
Custom script: endfunction
-------- --------
-------- The next function initializes the core of the system --------
-------- --------
Custom script: function InitializeUnitIndexer takes nothing returns nothing
Custom script: local integer i = 0
Custom script: local region re = CreateRegion()
Custom script: local rect r = GetWorldBounds()
Set Variable Set UnitIndexerEnabled = "true"
Custom script: call RegionAddRect(re, r)
Custom script: call TriggerRegisterEnterRegion(CreateTrigger(), re, Filter(function IndexNewUnit))
Custom script: call RemoveRect(r)
Custom script: set re = null
Custom script: set r = null
Custom script: loop
Custom script: call GroupEnumUnitsOfPlayer(bj_lastCreatedGroup, Player(i), Filter(function IndexUnit))
Custom script: set i = i + 1
Custom script: exitwhen i == 16
Custom script: endloop
-------- --------
-------- This is the "Unit Indexer Initialized" event, use it instead of "Map Initialization" for best results --------
-------- --------
Set Variable Set UnitIndexEvent = "3.00"
Set Variable Set UnitIndexEvent = "0.00"
>==============================================================================================<
* REVOLVING HAMMERS v1.1 - GUI *
- by jakeZinc ( Spell Maker )
>==============================================================================================<

" I created this spell as an example to show what a Unit Indexer System ( Bribe ) and KB3D System ( Jad ) can do.
These powerful GUI systems can bring you into an endless possibilities when it comes to spell coding. "
" Useful if casts properly with tactics and strategy. "

= Import Instructions =

Go to: File -> Preferences -> General
*Check or Tick the box labelled 'Automatically create unknown variables while pasting trigger data'.
^ Important

Go to: Window
*Make sure the 'brush list' is unchecked.
*If there is a tick symbol next to the word, then it is checked - click on it to uncheck it.

What you need to import:
* Import Manager ( F12 ) - Model - dummy.mdx ( Vexorian, Anitarf, Infrane )
* Object Editor ( F6 ) - Unit - Revolving Hammers Dummy
* Object Editor ( F6 ) - Ability - Revolving Hammers
* Trigger Editor ( F4 ) - Folder - Revolving Hammers v1.1 - GUI
* Trigger Editor ( F4 ) - Folder - Unit Indexer System ( Bribe ) ( 'DON'T IMPORT THIS IF YOU ALREADY IMPLEMENTED THE SYSTEM IN YOUR MAP' )
* Trigger Editor ( F4 ) - Folder - KB3D System ( Jad ) ( 'DON'T IMPORT THIS IF YOU ALREADY IMPLEMENTED THE SYSTEM IN YOUR MAP' )

= Spell Configurations =

Go to: Revolving Hammers Configuration Trigger -> SPELL CONFIGURATION FIELD
* The spell configuration is fully documented.
* Please READ before modifying some values to prevent some errors.
* Some modification values are from the Object Editor ( F6 ).

>==============================================================================================<
Revolving Hammers Configuration
Events
Map initialization
Conditions
Actions
-------- --------
-------- declaration of external variables ( DELETE THESE EXTERNAL VARIABLES AFTER YOU IMPORT ) --------
Set Variable Set RH_CasterX[0] = "0.00"
Set Variable Set RH_CasterY[0] = "0.00"
Set Variable Set RH_Map[0] = "0.00"
-------- --------
-------- --------
-------- * SPELL CONFIGURATION FIELD * --------
-------- --------
-------- OBJECT EDITOR ( F6 ) --------
-------- --------
-------- The spell or ability used in the triggers. ( Import the Revolving Hammers Ability ) --------
Set Variable Set RH_Ability = "A01H"
-------- The dummy unit used in the triggers. ( Import the Revolving Hammers Dummy ) --------
Set Variable Set RH_DummyType = "u002"
-------- --------
-------- SPELL DATA --------
-------- --------
-------- The maximum level of the spell or ability. --------
Set Variable Set RH_AbilityMaxLevel = "3"
-------- ^ Modify at your own risk: Must be equal to the number of levels of Revolving Hammers Ability. ( Default: 3 ) --------
-------- --------
-------- The string order of the spell. Must be equal to BaseOrderId of the Revolving Hammers Ability. --------
Set Variable Set RH_ChannelOrder = "thunderclap"
-------- --------
-------- The event duration of the spell. Must be equal to followed through time values in the Revolving Hammers Ability. --------
Set Variable Set RH_ChannelDuration[1] = "8.00"
Set Variable Set RH_ChannelDuration[2] = "9.00"
Set Variable Set RH_ChannelDuration[3] = "10.00"
-------- ^ Go to Object Editor ( F6 ) to see followed through time values in the Revolving Hammers Ability. It must be EQUAL to these values. --------
-------- --------
-------- Destroy Trees? True = Yes, False = No --------
Set Variable Set RH_DestroyTrees = "false"
-------- --------
-------- Enable dummy units player color? True = Yes, False = No --------
Set Variable Set RH_DummyPlayerColor = "true"
-------- --------
-------- The attack and damage type of the source. --------
Set Variable Set RH_AttackType = Spells
Set Variable Set RH_DamageType = Lightning
-------- --------
-------- The interval of the looping trigger. --------
Set Variable Set RH_LoopInterval = "0.02"
-------- ^ Modify at your own risk; changing the value can affect the spell performance. Recommended Value: 0.03 for a good performance , 0.02 is optional BUT can cause lags because of the number of units used in the spell loop trigger. --------
-------- ^ I've chosen 0.02 to support the smoothness motion of the hammers but it can decrease a little performance. --------
-------- --------
-------- HAMMERS DATA --------
-------- --------
-------- The art model used to attach in the hammer unit and trail effect. --------
Set Variable Set RH_Effect[1] = "Abilities\Spells\Human\StormBolt\StormBoltMissile.mdl"
Set Variable Set RH_EffectAttach[1] = "origin"
Set Variable Set RH_Effect[8] = "Abilities\Spells\Undead\AbsorbMana\AbsorbManaBirthMissile.mdl"
Set Variable Set RH_EffectAttach[6] = "chest"
-------- ^ If you want to disable the trail effect just erase the model path in the RH_Effect[ 8 ] variable. ( <Empty String> ) --------
-------- --------
-------- The amount of the hammer units that will revolve around the caster. --------
Set Variable Set RH_HammerCount[1] = "3"
Set Variable Set RH_HammerCount[2] = "4"
Set Variable Set RH_HammerCount[3] = "5"
-------- ^ Modify at your own risk: Large values can cause serious lags and the value must not be 0. ( != 0 ) --------
-------- --------
-------- The size of the hammers. --------
Set Variable Set RH_HammerSize[1] = "1.50"
Set Variable Set RH_HammerSize[2] = "1.45"
Set Variable Set RH_HammerSize[3] = "1.45"
-------- --------
-------- The height of the hammers. --------
Set Variable Set RH_HammerHeight[1] = "15.00"
Set Variable Set RH_HammerHeight[2] = "15.00"
Set Variable Set RH_HammerHeight[3] = "15.00"
-------- --------
-------- An effect occurs at the attachment of the caster when releasing hammers. --------
Set Variable Set RH_Effect[2] = "Abilities\Spells\Human\ThunderClap\ThunderClapCaster.mdl"
Set Variable Set RH_EffectAttach[2] = "chest"
-------- --------
-------- The max distance that hammers will spread. ( Area of Effect or Radius ) --------
Set Variable Set RH_HammerSpreadDistance[1] = "400.00"
Set Variable Set RH_HammerSpreadDistance[2] = "400.00"
Set Variable Set RH_HammerSpreadDistance[3] = "400.00"
-------- --------
-------- The speed of the hammers will spread. ( Distance Per Second ) --------
Set Variable Set RH_HammerSpreadSpeed[1] = "250.00"
Set Variable Set RH_HammerSpreadSpeed[2] = "350.00"
Set Variable Set RH_HammerSpreadSpeed[3] = "450.00"
-------- --------
-------- An effect occurs when the hammers are at the motion state. --------
Set Variable Set RH_Effect[3] = "Abilities\Weapons\Bolt\BoltImpact.mdl"
Set Variable Set RH_HammerMotionEffectChance = "15"
-------- ^ It is the probability of spawning a motion effects ( looping effects ). The value must based on a percentage ( 0 - 100 ). --------
-------- ^ If you want to disable this motion effect then set the chance value to 0. --------
-------- ^ Modify at your own risk; The large maximum value is 100 do not EXCEED or it will cause problems. Recommended Value: the modified value ( 15 ). --------
-------- --------
-------- The collision radius of the hammer. --------
Set Variable Set RH_HammerCollisionSize[1] = "75.00"
Set Variable Set RH_HammerCollisionSize[2] = "70.00"
Set Variable Set RH_HammerCollisionSize[3] = "70.00"
-------- --------
-------- Rotate the hammers while revolving? True = Yes, False = No --------
Set Variable Set RH_HammerRotate = "true"
-------- --------
-------- An effect occurs when the hammers starts revolving. --------
Set Variable Set RH_Effect[4] = "Abilities\Weapons\FarseerMissile\FarseerMissile.mdl"
-------- --------
-------- The revolving angle speed of the hammers. These modified values are Recommended. --------
Set Variable Set RH_HammerRevolveAngleSpeed[1] = "1.50"
Set Variable Set RH_HammerRevolveAngleSpeed[2] = "4.50"
Set Variable Set RH_HammerRevolveAngleSpeed[3] = "7.50"
-------- --------
-------- An effect occurs when the hammers hit an enemy unit. --------
Set Variable Set RH_Effect[5] = "Abilities\Spells\Human\StormBolt\StormBoltMissile.mdl"
Set Variable Set RH_EffectAttach[5] = "chest"
-------- --------
-------- The damage of the hammer ( Source -> Caster ) when it hits an enemy unit ( Target -> Enemy Unit ). --------
Set Variable Set RH_HammerHitDamage[1] = "400.00"
Set Variable Set RH_HammerHitDamage[2] = "800.00"
Set Variable Set RH_HammerHitDamage[3] = "1200.00"
-------- --------
-------- Knockback when the hammer hits enemy unit? True = Yes, False = No --------
Set Variable Set RH_HammerHitKnockback = "true"
-------- --------
-------- KNOCKBACK DATA --------
-------- ^ Knockbacks are generated by the 'KB3D System' so make sure you implemented the required system to your map. --------
-------- --------
-------- A looping effect occurs to the enemy unit when hitted by the hammer. --------
Set Variable Set RH_Effect[6] = "Abilities\Spells\Human\FlakCannons\FlakTarget.mdl"
-------- --------
-------- The range of the knockback. ( Distance ) --------
Set Variable Set RH_KB_Range = "200.00"
-------- The speed of the knockback. ( Distance Per Second ) --------
Set Variable Set RH_KB_Speed = "450.00"
-------- The acceleration of the knockback. The modified value is recommended. --------
Set Variable Set RH_KB_Acceleration = "-100.00"
-------- --------
-------- Knockback enemy units nearby the caster when onCast? True = Yes, False = No --------
Set Variable Set RH_KB_OnCast = "true"
-------- A looping effect occurs to the enemy unit when knockbacked onCast. --------
Set Variable Set RH_Effect[7] = "Abilities\Weapons\FarseerMissile\FarseerMissile.mdl"
-------- --------
-------- The range of the knockback. ( Distance ) ( onCast ) --------
Set Variable Set RH_KB_OnCastRange = "300.00"
-------- The speed of the knockback. ( Distance Per Second ) ( onCast ) --------
Set Variable Set RH_KB_OnCastSpeed = "800.00"
-------- The acceleration of the knockback. The modified value is recommended. ( onCast ) --------
Set Variable Set RH_KB_OnCastAcceleration = "-100.00"
-------- --------
-------- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ --------
-------- CODE DATA --------
-------- ( DON'T TOUCH THE LINES BELOW UNLESS SOME OF THEM MALFUNCTIONS ) --------
-------- ...................................................................................................................................... --------
-------- Preload Objects --------
-------- Abilties, Units: --------
Custom script: set udg_RH_Unit = CreateUnit( Player( 15 ), udg_RH_DummyType, 0, 0, 0 )
Custom script: call UnitAddAbility( udg_RH_Unit, udg_RH_Ability )
Custom script: call RemoveUnit( udg_RH_Unit )
-------- Effects: --------
Set Variable Set RH_EffectCount = "8"
For each (Integer RH_CustomInteger ) from 1 to RH_EffectCount , do (Actions)
Loop - Actions
Custom script: call Preload( udg_RH_Effect[ udg_RH_CustomInteger ] )
-------- ...................................................................................................................................... --------
-------- Initialize Calculations --------
For each (Integer RH_CustomInteger ) from 1 to RH_AbilityMaxLevel , do (Actions)
Loop - Actions
Set Variable Set RH_CustomReal[RH_CustomInteger] = (360.00 / (Real(RH_HammerCount[RH_CustomInteger])))
Set Variable Set RH_CustomReal2[RH_CustomInteger] = (RH_HammerSpreadSpeed[RH_CustomInteger] x RH_LoopInterval)
-------- ...................................................................................................................................... --------
-------- Loop Event --------
Trigger - Add to Revolving_Hammers_Loop <gen> the event (Every RH_LoopInterval seconds of game time)
-------- ...................................................................................................................................... --------
-------- Tree Checker --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_DestroyTrees Equal to True
Then - Actions
Custom script: set udg_RH_TreeChecker = CreateUnit( Player( 15 ), udg_RH_DummyType, 0, 0, 0 )
Custom script: call UnitAddAbility( udg_RH_TreeChecker, 'Ahar' ) // Harvest Ability
Else - Actions
-------- ...................................................................................................................................... --------
-------- Motion Effect Disabler --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_HammerMotionEffectChance Equal to 0
Then - Actions
Set Variable Set RH_HammerMotionEffectChance = "-1"
Else - Actions
-------- ...................................................................................................................................... --------
-------- declaration of initial variables --------
Custom script: set udg_RH_Map[ 1 ] = GetRectMinX( bj_mapInitialPlayableArea )
Custom script: set udg_RH_Map[ 2 ] = GetRectMaxX( bj_mapInitialPlayableArea )
Custom script: set udg_RH_Map[ 3 ] = GetRectMinY( bj_mapInitialPlayableArea )
Custom script: set udg_RH_Map[ 4 ] = GetRectMaxY( bj_mapInitialPlayableArea )
-------- ...................................................................................................................................... --------
-------- --------
-------- * END OF SPELL CONFIGURATION FIELD * --------
-------- --------
Custom script: endfunction
Custom script:
-------- !Essential Function! --------
Custom script: function RH_SafeFilter takes nothing returns boolean
Custom script: return true
Custom script: endfunction
-------- ^ For using/calling GroupEnumUnitsInRange func in a loop, eventually prevents leak. --------
Custom script: function RH_ValidateXY takes real x, real y returns boolean
Custom script: return x < udg_RH_Map[ 2 ] and x > udg_RH_Map[ 1 ] and y < udg_RH_Map[ 4 ] and y > udg_RH_Map[ 3 ]
-------- ^ For detecting if X/Y coordinates inside boundaries. --------
Revolving Hammers Execution
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to RH_Ability
Actions
-------- ...................................................................................................................................... --------
-------- onCast --------
-------- ...................................................................................................................................... --------
-------- declaration of locals --------
Custom script: local unit u = GetTriggerUnit( )
Custom script: local real casterX = GetWidgetX( u )
Custom script: local real casterY = GetWidgetY( u )
Custom script: local real spawnX
Custom script: local real spawnY
-------- --------
-------- [ 0 ] = temporary before the index declared --------
Custom script: set udg_RH_Level[ 0 ] = GetUnitAbilityLevel( u, udg_RH_Ability )
Custom script: set udg_RH_CasterPlayer[ 0 ] = GetOwningPlayer( u )
-------- --------
Custom script: call DestroyEffect( AddSpecialEffectTarget( udg_RH_Effect[ 2 ], u, udg_RH_EffectAttach[ 2 ] ) )
-------- --------
-------- Knockback OnCast Boolean --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_KB_OnCast Equal to True
Then - Actions
-------- --------
Custom script: call GroupEnumUnitsInRange( bj_lastCreatedGroup, casterX, casterY, udg_RH_HammerSpreadDistance[ udg_RH_Level[ 0 ] ], Condition( function RH_SafeFilter ) )
Custom script: loop
Custom script: set udg_RH_KB_Unit = FirstOfGroup( bj_lastCreatedGroup )
Custom script: exitwhen udg_RH_KB_Unit == null
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(RH_KB_Unit is dead) Equal to False
(RH_KB_Unit is A structure) Equal to False
(RH_KB_Unit is Magic Immune) Equal to False
(RH_KB_Unit is A flying unit) Equal to False
(RH_KB_Unit belongs to an enemy of RH_CasterPlayer[0].) Equal to True
Then - Actions
-------- ---------------------------------------------------------------------------------------------------------------------------------------- --------
-------- KB3D SYSTEM --------
-------- ---------------------------------------------------------------------------------------------------------------------------------------- --------
Set Variable Set KB3D_Unit = RH_KB_Unit
Set Variable Set KB3D_Range = RH_KB_OnCastRange
Set Variable Set KB3D_Speed = RH_KB_OnCastSpeed
Custom script: set udg_KB3D_Angle = Atan2( GetWidgetY( udg_RH_KB_Unit ) - casterY, GetWidgetX( udg_RH_KB_Unit ) - casterX ) * bj_RADTODEG
Set Variable Set KB3D_EndOnObstacle = "true"
Set Variable Set KB3D_EndwhenDead = "true"
Set Variable Set KB3D_Accel = RH_KB_OnCastAcceleration
Set Variable Set KB3D_AttackType = RH_AttackType
Set Variable Set KB3D_DamageType = RH_DamageType
Custom script: set udg_KB3D_Damager = u
Set Variable Set KB3D_DestroyTree = RH_DestroyTrees
Set Variable Set KB3D_DisableUnit = "true"
Set Variable Set KB3D_Fx = RH_Effect[7]
Set Variable Set KB3D_iKB = "true"
Set Variable Set KB3D_UnpathableStop = "true"
-------- ---------------------------------------------------------------------------------------------------------------------------------------- --------
-------- Registed All of the Settings --------
Custom script: call ExecuteFunc( "KB3D_Registration" )
-------- ---------------------------------------------------------------------------------------------------------------------------------------- --------
Else - Actions
-------- --------
Custom script: call GroupRemoveUnit( bj_lastCreatedGroup, udg_RH_KB_Unit )
Custom script: endloop
-------- --------
Else - Actions
-------- --------
-------- Hammers Creation --------
-------- --------
For each (Integer RH_CustomInteger ) from 1 to RH_HammerCount[RH_Level[0]] , do (Actions)
Loop - Actions
-------- --------
Set Variable Set RH_HammerSpreadAngle[0] = (RH_HammerSpreadAngle[0] + RH_CustomReal[RH_Level[0]])
Custom script: set spawnX = casterX + udg_RH_HammerCollisionSize[ udg_RH_Level[ 0 ] ] * Cos( udg_RH_HammerSpreadAngle[ 0 ] * bj_DEGTORAD )
Custom script: set spawnY = casterY + udg_RH_HammerCollisionSize[ udg_RH_Level[ 0 ] ] * Sin( udg_RH_HammerSpreadAngle[ 0 ] * bj_DEGTORAD )
-------- --------
Custom script: if RH_ValidateXY( spawnX, spawnY ) then
Custom script: set udg_RH_HammerUnit = CreateUnit( udg_RH_CasterPlayer[ 0 ], udg_RH_DummyType, spawnX, spawnY, udg_RH_HammerSpreadAngle[ 0 ] )
Custom script: set udg_RH_ID = GetUnitUserData( udg_RH_HammerUnit )
Custom script: set udg_RH_HammerModelHandler[ udg_RH_ID ] = AddSpecialEffectTarget( udg_RH_Effect[ 1 ], udg_RH_HammerUnit, udg_RH_EffectAttach[ 2 ] )
Custom script: set udg_RH_HammerTrailHandler[ udg_RH_ID ] = AddSpecialEffectTarget( udg_RH_Effect[ 8 ], udg_RH_HammerUnit, udg_RH_EffectAttach[ 6 ] )
Custom script: call SetUnitScale( udg_RH_HammerUnit, udg_RH_HammerSize[ udg_RH_Level[ 0 ] ], 0, 0 )
Custom script: call SetUnitFlyHeight( udg_RH_HammerUnit, udg_RH_HammerHeight[ udg_RH_Level[ 0 ] ], 0 )
-------- --------
-------- Player Dummy Color Boolean --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_DummyPlayerColor Equal to True
Then - Actions
Unit - Change color of RH_HammerUnit to (Color of RH_CasterPlayer[0])
Else - Actions
Unit - Change color of RH_HammerUnit to (Color of Neutral Passive)
-------- --------
-------- Attaching values into ID --------
Set Variable Set RH_Caster[RH_ID] = (Triggering unit)
Set Variable Set RH_CasterPlayer[RH_ID] = RH_CasterPlayer[0]
Set Variable Set RH_ChannelDurationCounter[RH_ID] = "0.00"
Set Variable Set RH_HammerSpreadDistanceCounter[RH_ID] = "0.00"
Set Variable Set RH_Level[RH_ID] = RH_Level[0]
Set Variable Set RH_HammerRevolve[RH_ID] = "false"
Set Variable Set RH_HammerCustomBoolean[RH_ID] = "false"
Custom script: set udg_RH_HammerSpreadAngle[ udg_RH_ID ] = GetUnitFacing( udg_RH_HammerUnit )
Custom script: set udg_RH_HammerRevolveAngle[ udg_RH_ID ] = udg_RH_HammerSpreadAngle[ 0 ]
Custom script: set udg_RH_CasterX[ udg_RH_ID ] = casterX
Custom script: set udg_RH_CasterY[ udg_RH_ID ] = casterY
-------- --------
Unit Group - Add RH_HammerUnit to RH_Group
-------- --------
Custom script: endif
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Revolving_Hammers_Loop <gen> is on) Equal to False
Then - Actions
Trigger - Turn on Revolving_Hammers_Loop <gen>
Else - Actions
-------- --------
-------- nulling variables --------
Custom script: set u = null
-------- --------
Revolving Hammers Loop
Events
Conditions
Actions
-------- ...................................................................................................................................... --------
-------- onLoop --------
-------- ...................................................................................................................................... --------
Unit Group - Pick every unit in RH_Group and do (Actions)
Loop - Actions
-------- --------
-------- declaration of locals --------
Custom script: local real casterX
Custom script: local real casterY
Custom script: local real hammerX
Custom script: local real hammerY
Custom script: local real hammerSpreadMotionX
Custom script: local real hammerSpreadMotionY
Custom script: local real hammerRevolveMotionX
Custom script: local real hammerRevolveMotionY
-------- --------
Set Variable Set RH_Unit = (Picked unit)
Custom script: set udg_RH_ID = GetUnitUserData( udg_RH_Unit )
-------- --------
Custom script: set hammerX = GetWidgetX( udg_RH_Unit )
Custom script: set hammerY = GetWidgetY( udg_RH_Unit )
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_DestroyTrees Equal to True
Then - Actions
-------- --------
Custom script: set udg_RH_CustomLocation = Location( hammerX, hammerY )
Destructible - Pick every destructible within RH_HammerCollisionSize[RH_Level[RH_ID]] of RH_CustomLocation and do (Actions)
Loop - Actions
Set Variable Set RH_Trees = (Picked destructible)
Unit - Order RH_TreeChecker to Harvest . RH_Trees
-------- IsTree --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Current order of RH_TreeChecker) Equal to (Order(harvest))
Then - Actions
Destructible - Kill RH_Trees
Else - Actions
Unit - Order RH_TreeChecker to Stop .
Custom script: call RemoveLocation( udg_RH_CustomLocation )
-------- --------
Else - Actions
-------- ---------------------------------------------------------------------------------------------------------------------------------------- --------
-------- Loads, Updates, Saves: ChannelDurationCounter --------
Set Variable Set RH_ChannelDurationCounter[RH_ID] = (RH_ChannelDurationCounter[RH_ID] + RH_LoopInterval)
-------- ---------------------------------------------------------------------------------------------------------------------------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(RH_Caster[RH_ID] is dead) Equal to True
(Current order of RH_Caster[RH_ID]) Not equal to (Order(RH_ChannelOrder))
RH_ChannelDurationCounter[RH_ID] Greater than or equal to RH_ChannelDuration[RH_Level[RH_ID]]
Then - Actions
-------- --------
Custom script: if GetUnitCurrentOrder( udg_RH_Caster[ udg_RH_ID ] ) == 851973 and IssueImmediateOrder( udg_RH_Caster[ udg_RH_ID ], "stop" ) then
Custom script: endif
-------- --------
Special Effect - Destroy RH_HammerModelHandler[RH_ID]
Special Effect - Destroy RH_HammerTrailHandler[RH_ID]
Unit - Kill RH_Unit
Unit Group - Remove RH_Unit from RH_Group .
-------- --------
Else - Actions
-------- --------
-------- Hammers Motion Phases --------
-------- --------
Custom script: if GetRandomInt( 0, 100 ) <= udg_RH_HammerMotionEffectChance then
Custom script: call DestroyEffect( AddSpecialEffect( udg_RH_Effect[ 3 ], hammerX, hammerY ) )
Custom script: endif
-------- --------
Custom script: set casterX = GetWidgetX( udg_RH_Caster[ udg_RH_ID ] )
Custom script: set casterY = GetWidgetY( udg_RH_Caster[ udg_RH_ID ] )
-------- --------
-------- Prevents Odd Channeling --------
Custom script: if udg_RH_CasterX[ udg_RH_ID ] != casterX and udg_RH_CasterY[ udg_RH_ID ] != casterY then
Custom script: call IssueImmediateOrder( udg_RH_Caster[ udg_RH_ID ], "stop" )
Custom script: endif
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_HammerRevolve[RH_ID] Equal to False
RH_HammerSpreadDistanceCounter[RH_ID] Less than or equal to RH_HammerSpreadDistance[RH_Level[RH_ID]]
Then - Actions
-------- --------
-------- Hammers Spread Motion --------
-------- --------
Custom script: set hammerSpreadMotionX = casterX + udg_RH_HammerSpreadDistanceCounter[ udg_RH_ID ] * Cos( udg_RH_HammerSpreadAngle[ udg_RH_ID ] * bj_DEGTORAD )
Custom script: set hammerSpreadMotionY = casterY + udg_RH_HammerSpreadDistanceCounter[ udg_RH_ID ] * Sin( udg_RH_HammerSpreadAngle[ udg_RH_ID ] * bj_DEGTORAD )
-------- --------
Custom script: if RH_ValidateXY( hammerSpreadMotionX, hammerSpreadMotionY ) then
Custom script: call SetUnitX( udg_RH_Unit, hammerSpreadMotionX )
Custom script: call SetUnitY( udg_RH_Unit, hammerSpreadMotionY )
Custom script: endif
-------- --------
Custom script: call SetUnitFacing( udg_RH_Unit, udg_RH_HammerSpreadAngle[ udg_RH_ID ] )
-------- --------
-------- Loads, Updates, Saves: HammerSpreadDistanceCounter --------
Set Variable Set RH_HammerSpreadDistanceCounter[RH_ID] = (RH_HammerSpreadDistanceCounter[RH_ID] + RH_CustomReal2[RH_Level[RH_ID]])
-------- --------
Else - Actions
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_HammerSpreadDistanceCounter[RH_ID] Greater than or equal to RH_HammerSpreadDistance[RH_Level[RH_ID]]
Then - Actions
-------- --------
Set Variable Set RH_HammerRevolve[RH_ID] = "true"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_HammerRevolve[RH_ID] Equal to True
Then - Actions
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_HammerCustomBoolean[RH_ID] Equal to False
Then - Actions
Custom script: call DestroyEffect( AddSpecialEffectTarget( udg_RH_Effect[ 4 ], udg_RH_Unit, udg_RH_EffectAttach[ 1 ] ) )
Set Variable Set RH_HammerCustomBoolean[RH_ID] = "true"
Else - Actions
-------- --------
-------- Hammers Revolve Motion --------
-------- --------
-------- Loads, Updates, Saves: HammerRevolveAngle --------
Set Variable Set RH_HammerRevolveAngle[RH_ID] = (RH_HammerRevolveAngle[RH_ID] + RH_HammerRevolveAngleSpeed[RH_Level[RH_ID]])
-------- --------
Custom script: set hammerRevolveMotionX = casterX + udg_RH_HammerSpreadDistanceCounter[ udg_RH_ID ] * Cos( udg_RH_HammerRevolveAngle[ udg_RH_ID ] * bj_DEGTORAD )
Custom script: set hammerRevolveMotionY = casterY + udg_RH_HammerSpreadDistanceCounter[ udg_RH_ID ] * Sin( udg_RH_HammerRevolveAngle[ udg_RH_ID ] * bj_DEGTORAD )
-------- --------
Custom script: if RH_ValidateXY( hammerRevolveMotionX, hammerRevolveMotionY ) then
Custom script: call SetUnitX( udg_RH_Unit, hammerRevolveMotionX )
Custom script: call SetUnitY( udg_RH_Unit, hammerRevolveMotionY )
Custom script: endif
-------- --------
-------- Hammers Rotation --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_HammerRotate Equal to True
Then - Actions
Set Variable Set RH_HammerSpreadAngle[RH_ID] = (RH_HammerSpreadAngle[RH_ID] + 180.00)
Custom script: call SetUnitFacing( udg_RH_Unit, udg_RH_HammerSpreadAngle[ udg_RH_ID ] * bj_DEGTORAD )
Else - Actions
-------- --------
Custom script: call GroupEnumUnitsInRange( bj_lastCreatedGroup, hammerX, hammerY, udg_RH_HammerCollisionSize[ udg_RH_Level[ udg_RH_ID ] ], Condition( function RH_SafeFilter ) )
Custom script: loop
Custom script: set udg_RH_KB_Unit = FirstOfGroup( bj_lastCreatedGroup )
Custom script: exitwhen udg_RH_KB_Unit == null
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(RH_KB_Unit is dead) Equal to False
(RH_KB_Unit is A structure) Equal to False
(RH_KB_Unit is Magic Immune) Equal to False
(RH_KB_Unit is A flying unit) Equal to False
(RH_KB_Unit belongs to an enemy of RH_CasterPlayer[RH_ID].) Equal to True
Then - Actions
-------- --------
Custom script: call DestroyEffect( AddSpecialEffectTarget( udg_RH_Effect[ 5 ], udg_RH_KB_Unit, udg_RH_EffectAttach[ 5 ] ) )
Unit - Cause RH_Caster[RH_ID] to damage RH_KB_Unit , dealing RH_HammerHitDamage[RH_Level[RH_ID]] damage of attack type RH_AttackType and damage type RH_DamageType
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RH_HammerHitKnockback Equal to True
Then - Actions
-------- ---------------------------------------------------------------------------------------------------------------------------------------- --------
-------- KB3D SYSTEM --------
-------- ---------------------------------------------------------------------------------------------------------------------------------------- --------
Set Variable Set KB3D_Unit = RH_KB_Unit
Set Variable Set KB3D_Range = RH_KB_Range
Set Variable Set KB3D_Speed = RH_KB_Speed
Custom script: set udg_KB3D_Angle = Atan2( GetWidgetY( udg_RH_KB_Unit ) - hammerY, GetWidgetX( udg_RH_KB_Unit ) - hammerX ) * bj_RADTODEG
Set Variable Set KB3D_EndOnObstacle = "true"
Set Variable Set KB3D_EndwhenDead = "true"
Set Variable Set KB3D_Accel = RH_KB_Acceleration
Set Variable Set KB3D_AttackType = RH_AttackType
Set Variable Set KB3D_DamageType = RH_DamageType
Set Variable Set KB3D_Damager = RH_Caster[RH_ID]
Set Variable Set KB3D_DestroyTree = RH_KB_DestroyTrees
Set Variable Set KB3D_DisableUnit = "true"
Set Variable Set KB3D_Fx = RH_Effect[6]
Set Variable Set KB3D_iKB = "true"
Set Variable Set KB3D_UnpathableStop = "true"
-------- ---------------------------------------------------------------------------------------------------------------------------------------- --------
-------- Registed All of the Settings --------
Custom script: call ExecuteFunc( "KB3D_Registration" )
-------- ---------------------------------------------------------------------------------------------------------------------------------------- --------
Else - Actions
-------- --------
Special Effect - Destroy RH_HammerModelHandler[RH_ID]
Special Effect - Destroy RH_HammerTrailHandler[RH_ID]
Unit - Kill RH_Unit
Unit Group - Remove RH_Unit from RH_Group .
-------- --------
Else - Actions
-------- --------
Custom script: call GroupRemoveUnit( bj_lastCreatedGroup, udg_RH_KB_Unit )
Custom script: endloop
-------- --------
Else - Actions
-------- --------
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in RH_Group) Equal to 0
Then - Actions
Trigger - Turn off (This trigger)
Else - Actions
-------- --------
RS Configuration
Events
Map initialization
Conditions
Actions
-------- CONFIGURABLE --------
-------- set the damage each slash --------
Set Variable Set RS_Damage[1] = "345.00"
Set Variable Set RS_Damage[2] = "20.00"
Set Variable Set RS_Damage[3] = "25.00"
-------- set the number of slash --------
Set Variable Set RS_Slashes[1] = "7"
Set Variable Set RS_Slashes[2] = "8"
Set Variable Set RS_Slashes[3] = "9"
-------- set the animation speed when slashing --------
Set Variable Set RS_Animation_Speed = "100.00"
-------- set the transparency when slashing --------
Set Variable Set RS_Transparency = "50.00"
-------- set the effect to weapon when slashing --------
Set Variable Set RS_Effect[1] = "Abilities\Weapons\AvengerMissile\AvengerMissile.mdl"
-------- set the moving\teleport effect --------
Set Variable Set RS_Effect[2] = "Abilities\Spells\NightElf\Blink\BlinkCaster.mdl"
-------- set the effect to target --------
Set Variable Set RS_Effect[3] = "Abilities\Spells\Human\Thunderclap\ThunderClapCaster.mdl"
-------- set the attack type --------
Set Variable Set RS_Attack_Type = Chaos
-------- set the damage type --------
Set Variable Set RS_Damage_Type = Normal
RS Cast
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Омні-Слеш
Actions
Trigger - Run RS_Configuration <gen> (ignoring conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RS_Index_Size Equal to 0
Then - Actions
Trigger - Turn on RS_Loop <gen>
Else - Actions
Set Variable Set RS_Index_Size = (RS_Index_Size + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RS_Index_Size Greater than RS_Max_Index
Then - Actions
Set Variable Set RS_Index[RS_Index_Size] = RS_Index_Size
Set Variable Set RS_Max_Index = RS_Index_Size
Else - Actions
Set Variable Set RS_Current_Index = RS_Index[RS_Index_Size]
Set Variable Set RS_Caster[RS_Current_Index] = (Triggering unit)
Set Variable Set RS_Target[RS_Current_Index] = (Target unit of ability being cast)
Set Variable Set RS_Level = (Level of (Ability being cast) for RS_Caster[RS_Current_Index])
Set Variable Set RS_Damage[RS_Current_Index] = RS_Damage[RS_Level]
Set Variable Set RS_Slashes[RS_Current_Index] = RS_Slashes[RS_Level]
Unit - Pause RS_Caster[RS_Current_Index]
Unit - Turn collision for RS_Caster[RS_Current_Index] Off .
Special Effect - Create a special effect attached to the weapon (Unexpected type: 'attachpoint') of RS_Caster[RS_Current_Index] using RS_Effect[1]
Set Variable Set RS_Weapon_Effect[RS_Current_Index] = (Last created special effect)
Custom script: if UnitAddAbility(udg_RS_Caster[udg_RS_Current_Index], 'Amrf') and UnitRemoveAbility(udg_RS_Caster[udg_RS_Current_Index], 'Amrf') then
Custom script: endif
Animation - Change RS_Caster[RS_Current_Index] flying height to (Current flying height of RS_Target[RS_Current_Index]) at 0.00
Animation - Change RS_Caster[RS_Current_Index] 's animation speed to RS_Animation_Speed % of its original speed
Animation - Change RS_Caster[RS_Current_Index] 's vertex coloring to ( 100 %, 100 %, 100 %) with RS_Transparency % transparency
RS Loop
Events
Time - Every 0.20 seconds of game time
Conditions
Actions
For each (Integer RS_Loop ) from 1 to RS_Index_Size , do (Actions)
Loop - Actions
Set Variable Set RS_Current_Index = RS_Index[RS_Loop]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
And - All (Conditions) are true
Conditions
(RS_Caster[RS_Current_Index] is alive) Equal to True
(RS_Target[RS_Current_Index] is alive) Equal to True
RS_Slashes[RS_Current_Index] Greater than 0
Then - Actions
Set Variable Set Temp_Point = (Position of RS_Target[RS_Current_Index])
Set Variable Set Temp_Point2 = (Temp_Point offset by 100.00 towards (Random angle) degrees.)
Animation - Change RS_Caster[RS_Current_Index] flying height to (Current flying height of RS_Target[RS_Current_Index]) at 0.00
Custom script: call DestroyEffect(AddSpecialEffectTarget(udg_RS_Effect[2], udg_RS_Caster[udg_RS_Current_Index], "chest"))
Unit - Move RS_Caster[RS_Current_Index] instantly to Temp_Point2 , facing Temp_Point
Animation - Play RS_Caster[RS_Current_Index] 's attack animation
Custom script: call DestroyEffect(AddSpecialEffectTarget(udg_RS_Effect[3], udg_RS_Target[udg_RS_Current_Index], "chest"))
Unit - Cause RS_Caster[RS_Current_Index] to damage RS_Target[RS_Current_Index] , dealing RS_Damage[RS_Current_Index] damage of attack type RS_Attack_Type and damage type RS_Damage_Type
Set Variable Set RS_Slashes[RS_Current_Index] = (RS_Slashes[RS_Current_Index] - 1)
Custom script: call RemoveLocation(udg_Temp_Point)
Custom script: call RemoveLocation(udg_Temp_Point2)
Else - Actions
Special Effect - Destroy RS_Weapon_Effect[RS_Current_Index]
Animation - Change RS_Caster[RS_Current_Index] 's vertex coloring to ( 100 %, 100 %, 100 %) with 0.00 % transparency
Animation - Change RS_Caster[RS_Current_Index] flying height to 0.00 at 0.00
Animation - Change RS_Caster[RS_Current_Index] 's animation speed to 100.00 % of its original speed
Unit - Turn collision for RS_Caster[RS_Current_Index] On .
Unit - Unpause RS_Caster[RS_Current_Index]
Set Variable Set RS_Index[RS_Loop] = RS_Index[RS_Index_Size]
Set Variable Set RS_Index[RS_Index_Size] = RS_Current_Index
Set Variable Set RS_Index_Size = (RS_Index_Size - 1)
Set Variable Set RS_Loop = (RS_Loop - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
RS_Index_Size Equal to 0
Then - Actions
Trigger - Turn off (This trigger)
Skip remaining actions
Else - Actions
-----------------------------------------------------
- Nature Walk v1.8 -
- by Stanley -
-----------------------------------------------------
Hello! This is my first spell made in MUI
I hope you like it. Dont forget to give credits if you use it in your map.
For more information go to www.hiveworkshop.com

------------------------------------------
Credits:
Dr. Boom, Adictuz, Maker, Bribe, defskull
------------------------------------------

HOW TO IMPORT:
1 - copy improted model: Dummy.mdx;
2 - copy 2 units from Object Editor;
3 - copy 3 abilities from Object Editor;
4 - got to File> Preferences and set the sign at the Automatically create unknown variables while pasing triggering data;
5 - copy folder Nature Walk;
6 - visit The Hive for more spells.
Nature Walk Settings
Events
Map initialization
Conditions
Actions
-------- ----------------------------------------------- --------
-------- Tree check system by D4RK_G4ND4LF --------
-------- ----------------------------------------------- --------
Set Variable Set NW_Point1 = (Point(0, 0))
Unit - Create 1 . Інженер-шахтар for Neutral Passive at NW_Point1 facing Default building facing degrees
Unit - Hide (Last created unit)
Unit - Make (Last created unit) Invulnerable
Set Variable Set NW_Dummy = (Last created unit)
Custom script: call RemoveLocation(udg_NW_Point1)
-------- ----------------------------------------------- --------
-------- Setting ability --------
-------- ----------------------------------------------- --------
Set Variable Set NW_Ability = "A01L"
-------- ----------------------------------------------- --------
-------- This is a speed of caster, but it will increase periodically --------
-------- ----------------------------------------------- --------
Set Variable Set NW_SpeedBase = "1.00"
-------- ----------------------------------------------- --------
-------- Area of Effect of units that suppose to be entangled --------
-------- ----------------------------------------------- --------
Set Variable Set NW_AoE1 = "150.00"
-------- ----------------------------------------------- --------
-------- Area of Effect of units that suppose to be stunned --------
-------- ----------------------------------------------- --------
Set Variable Set NW_AoE2 = "300.00"
-------- ----------------------------------------------- --------
-------- Setting dummy abilities --------
-------- ----------------------------------------------- --------
Set Variable Set NW_DummyAbility[1] = "A01K"
Set Variable Set NW_DummyAbility[2] = "A01J"
-------- ----------------------------------------------- --------
-------- Animation time --------
-------- ----------------------------------------------- --------
Set Variable Set NW_Time = "1.13"
-------- ----------------------------------------------- --------
-------- Max distance --------
-------- ----------------------------------------------- --------
Set Variable Set NW_DistanceMax = "1000.00"
Nature Walk Cast
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to NW_Ability
Actions
-------- ----------------------------------------------- --------
-------- Indexing --------
-------- ----------------------------------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
NW_Index Equal to 0
Then - Actions
Trigger - Turn on Nature_Walk_Loop <gen>
Else - Actions
Set Variable Set NW_Index = (NW_Index + 1)
Set Variable Set NW_Index2 = (NW_Index2 + 1)
-------- ----------------------------------------------- --------
-------- Setting caster --------
-------- ----------------------------------------------- --------
Set Variable Set NW_Caster[NW_Index2] = (Triggering unit)
-------- ----------------------------------------------- --------
-------- Setting target point to calculate angle --------
-------- ----------------------------------------------- --------
Set Variable Set NW_Point1 = (Target point of ability being cast)
Set Variable Set NW_Point2 = (Position of NW_Caster[NW_Index2])
-------- ----------------------------------------------- --------
-------- Calculating angle --------
-------- ----------------------------------------------- --------
Set Variable Set NW_Angle[NW_Index2] = (Angle from NW_Point2 to NW_Point1)
-------- ----------------------------------------------- --------
-------- Setting distance, if you want the maximum distance to be set where you target the ability set the next variable to true --------
-------- ----------------------------------------------- --------
Set Variable Set NW_Check1 = "true"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
NW_Check1 Equal to True
Then - Actions
Set Variable Set NW_Distance[NW_Index2] = (Distance between NW_Point1 and NW_Point2)
Else - Actions
Set Variable Set NW_Distance[NW_Index2] = (500.00 + ((Real((Level of NW_Ability for NW_Caster[NW_Index2]))) x 100.00))
-------- ----------------------------------------------- --------
-------- When we calculated angle we set the point where caster will stop --------
-------- ----------------------------------------------- --------
Set Variable Set NW_EndPoint[NW_Index2] = (NW_Point2 offset by NW_Distance[NW_Index2] towards NW_Angle[NW_Index2] degrees.)
-------- ----------------------------------------------- --------
-------- Change animation and collision --------
-------- ----------------------------------------------- --------
Animation - Change NW_Caster[NW_Index2] 's vertex coloring to ( 100.00 %, 100.00 %, 100.00 %) with 25.00 % transparency
Unit - Turn collision for NW_Caster[NW_Index2] Off .
Custom script: call RemoveLocation(udg_NW_Point1)
Custom script: call RemoveLocation(udg_NW_Point2)
Nature Walk Loop
Events
Time - Every 0.03 seconds of game time
Conditions
Actions
For each (Integer NW_Index3 ) from 1 to NW_Index2 , do (Actions)
Loop - Actions
-------- ----------------------------------------------- --------
-------- Play the slam animation, only once! --------
-------- Credits for this formula go to defskull --------
-------- ----------------------------------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
NW_Check2[NW_Index3] Equal to False
Then - Actions
Animation - Play NW_Caster[NW_Index2] 's attack slam animation
Set Variable Set NW_DistanceGain[NW_Index3] = (NW_DistanceMax / NW_Distance[NW_Index3])
Set Variable Set NW_Speed2[NW_Index3] = (NW_Distance[NW_Index3] / NW_Time)
Set Variable Set NW_Duration[NW_Index3] = (NW_Speed2[NW_Index3] x 0.03)
Set Variable Set NW_Modifier[NW_Index3] = (100.00 x NW_DistanceGain[NW_Index3])
Set Variable Set NW_SolidModifier[NW_Index3] = (NW_Modifier[NW_Index3] x 0.50)
Animation - Change NW_Caster[NW_Index3] 's animation speed to NW_SolidModifier[NW_Index3] % of its original speed
Set Variable Set NW_Check2[NW_Index3] = "true"
Else - Actions
-------- ----------------------------------------------- --------
-------- Increasing speed --------
-------- ----------------------------------------------- --------
Set Variable Set NW_Speed[NW_Index3] = (NW_Speed[NW_Index3] + NW_SpeedBase)
-------- ----------------------------------------------- --------
-------- Setting next point of moving --------
-------- ----------------------------------------------- --------
Set Variable Set NW_Point3 = (Position of NW_Caster[NW_Index3])
Set Variable Set NW_Point2 = (NW_Point3 offset by NW_Speed[NW_Index3] towards NW_Angle[NW_Index3] degrees.)
-------- ----------------------------------------------- --------
-------- Check if the point is within map boundries --------
-------- ----------------------------------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Playable map area) contains NW_Point3) Equal to False
Then - Actions
-------- ----------------------------------------------- --------
-------- Removing Leaks, turning trigger off, recycling --------
-------- ----------------------------------------------- --------
Custom script: call RemoveLocation(udg_NW_Point2)
Custom script: call RemoveLocation(udg_NW_Point3)
Custom script: call RemoveLocation(udg_NW_EndPoint[udg_NW_Index3])
Set Variable Set NW_Index = (NW_Index - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
NW_Index Equal to 0
Then - Actions
Animation - Reset NW_Caster[NW_Index3] 's animation
Animation - Change NW_Caster[NW_Index3] 's vertex coloring to ( 100.00 %, 100.00 %, 100.00 %) with 0.00 % transparency
Set Variable Set NW_Real[NW_Index3] = "0.00"
Set Variable Set NW_X[NW_Index3] = "0.00"
Set Variable Set NW_Y[NW_Index3] = "0.00"
Set Variable Set NW_Speed[NW_Index3] = NW_SpeedBase
Set Variable Set NW_Check2[NW_Index3] = "false"
Set Variable Set NW_Index2 = "0"
Trigger - Turn off (This trigger)
Else - Actions
Else - Actions
-------- ----------------------------------------------- --------
-------- Moving caster to next point --------
-------- ----------------------------------------------- --------
Custom script: set udg_NW_X[udg_NW_Index3] = GetUnitX(udg_NW_Caster[udg_NW_Index3]) + udg_NW_Speed[udg_NW_Index3] * Cos(udg_NW_Angle[udg_NW_Index3] * bj_DEGTORAD)
Custom script: set udg_NW_Y[udg_NW_Index3] = GetUnitY(udg_NW_Caster[udg_NW_Index3]) + udg_NW_Speed[udg_NW_Index3] * Sin(udg_NW_Angle[udg_NW_Index3] * bj_DEGTORAD)
Custom script: call SetUnitX(udg_NW_Caster[udg_NW_Index3], udg_NW_X[udg_NW_Index3])
Custom script: call SetUnitY(udg_NW_Caster[udg_NW_Index3], udg_NW_Y[udg_NW_Index3])
Unit - Move NW_Caster[NW_Index3] instantly to NW_Point2
Special Effect - Create a special effect attached to the origin (Unexpected type: 'attachpoint') of NW_Caster[NW_Index3] using Abilities\Weapons\GreenDragonMissile\GreenDragonMissile.mdl
Special Effect - Destroy (Last created special effect)
-------- ----------------------------------------------- --------
-------- Here we make hero more invisible and faster --------
-------- ----------------------------------------------- --------
Animation - Change NW_Caster[NW_Index3] 's vertex coloring to ( 100.00 %, 100.00 %, 100.00 %) with NW_Speed[NW_Index3] % transparency
-------- ----------------------------------------------- --------
-------- We chek if the distance expires, we stun the units --------
-------- ----------------------------------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between NW_Point3 and NW_EndPoint[NW_Index3]) Less than or equal to NW_Speed[NW_Index3]
Then - Actions
Animation - Change NW_Caster[NW_Index3] 's vertex coloring to ( 100.00 %, 100.00 %, 100.00 %) with 0.00 % transparency
Animation - Reset NW_Caster[NW_Index3] 's animation
-------- ----------------------------------------------- --------
-------- Check if unit is not on cliff --------
-------- ----------------------------------------------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain pathing at NW_Point3 of type Walkability is off) Equal to True
Then - Actions
Custom script: loop
Set Variable Set NW_Real[NW_Index3] = (NW_Real[NW_Index3] + 10.00)
Set Variable Set NW_Point1 = (NW_Point3 offset by NW_Real[NW_Index3] towards NW_Angle[NW_Index3] degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain pathing at NW_Point1 of type Walkability is off) Equal to True
Then - Actions
Unit - Move NW_Caster[NW_Index3] instantly to NW_Point1
Else - Actions
Custom script: call RemoveLocation(udg_NW_Point1)
Custom script: exitwhen udg_NW_Real[udg_NW_Index3] > 300
Custom script: endloop
Else - Actions
Unit - Turn collision for NW_Caster[NW_Index3] On .
Special Effect - Create a special effect at NW_EndPoint[NW_Index3] using Abilities\Spells\NightElf\Taunt\TauntCaster.mdl
Special Effect - Destroy (Last created special effect)
-------- ----------------------------------------------- --------
-------- Now we stun units --------
-------- ----------------------------------------------- --------
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within NW_AoE2 of NW_EndPoint[NW_Index3] matching ((((Matching unit) is A structure) Equal to False) and ((((Matching unit) is alive) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of NW_Caster[NW_Index3]).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Create 1 . Dummy1(рЫВОК) for (Owner of NW_Caster[NW_Index3]) at NW_EndPoint[NW_Index3] facing Default building facing degrees
Unit - Add NW_DummyAbility[2] to (Last created unit)
Unit - Set level of NW_DummyAbility[2] for (Last created unit) to (Level of NW_Ability for NW_Caster[NW_Index3])
Unit - Add a 2.00 second Generic expiration timer to (Last created unit)
Unit - Order (Last created unit) to Neutral - Firebolt . (Picked unit)
-------- ----------------------------------------------- --------
-------- Removing Leaks --------
-------- ----------------------------------------------- --------
Custom script: call RemoveLocation(udg_NW_EndPoint[udg_NW_Index3])
Set Variable Set NW_Index = (NW_Index - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
NW_Index Equal to 0
Then - Actions
Set Variable Set NW_Real[NW_Index3] = "0.00"
Set Variable Set NW_X[NW_Index3] = "0.00"
Set Variable Set NW_Y[NW_Index3] = "0.00"
Set Variable Set NW_Speed[NW_Index3] = NW_SpeedBase
Set Variable Set NW_Check2[NW_Index3] = "false"
Set Variable Set NW_Index2 = "0"
Trigger - Turn off (This trigger)
Else - Actions
Else - Actions
-------- ----------------------------- --------
-------- Destroy Trees --------
-------- System by D4RK_G4ND4LF --------
-------- ----------------------------- --------
Destructible - Pick every destructible within NW_AoE1 of NW_Point2 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Current life of (Picked destructible)) Greater than 0.00
Then - Actions
Unit - Order NW_Dummy to Harvest . (Picked destructible)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Current order of NW_Dummy) Equal to (Order(harvest))
Then - Actions
Destructible - Kill (Picked destructible)
Unit - Order NW_Dummy to Stop .
Else - Actions
Unit - Order NW_Dummy to Stop .
Else - Actions
-------- ----------------------------------------------- --------
-------- Creating group in which units will be entangled --------
-------- ----------------------------------------------- --------
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within NW_AoE1 of NW_Point2 matching ((((Matching unit) is A structure) Equal to False) and ((((Matching unit) is alive) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of NW_Caster[NW_Index3]).) Equal to True))).) and do (Actions)
Loop - Actions
Unit - Create 1 . Dummy1(рЫВОК) for (Owner of NW_Caster[NW_Index3]) at NW_Point2 facing Default building facing degrees
Unit - Add NW_DummyAbility[1] to (Last created unit)
Unit - Add a 1.00 second Generic expiration timer to (Last created unit)
Unit - Order (Last created unit) to Night Elf Keeper Of The Grove - Entangling Roots . (Picked unit)
-------- ----------------------------------------------- --------
-------- Removing Leaks --------
-------- ----------------------------------------------- --------
Custom script: call RemoveLocation(udg_NW_Point2)
Custom script: call RemoveLocation(udg_NW_Point3)
this spell, is an aura and gives the units affected by the aura a chance to get a lighntning, dealing damage, 20/25/30 % chance to deal 100 dmg, 10/15/20 % to deal 150 dmg and 5/10/15 % chance to deal 200 dmg when hit by a spell from a hero (only target spells). Nevermind the floating text actions, thats nothing neccesarry except if you change the damage on the ability, in that case change the first floating text to read "your damage" instead of my "100/150/200". At every "(target unit of ability being cast) has buff Sparky Aura (level 1,2,3)" We check when a unit is being targeted if it has the buff and which level of the buff, so we can decide how much chance that the lightning triggers depending on the level.
The things you need from here is:

-The Sparky Aura buff (level 1,2 and 3)

-The aura ability in object editor

-1 unit variable

-this trigger

If you want to change the damage or chance, its simple, the damage, just change the "unit - cause (casting unit)" action to deal "your amount of damage instead". And to edit the chance that it triggers, change the condition "(Random integer number between 1 and 100) Less than or equal to 20" To what ever you want. (if you set it to 20=20%, 30=30 % and so on.)

Sparky aura
Events
Unit - A unit Starts the effect of an ability
Conditions
((Target unit of ability being cast) belongs to an enemy of (Owner of (Casting unit)).) Equal to True
((Target unit of ability being cast) is A structure) Equal to False
Actions
-------- --------
-------- Here do we set sparkyunit as the unit that is being targeted, so the spell damages right unit --------
-------- --------
Set Variable Set SparkyUnit = (Target unit of ability being cast)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Target unit of ability being cast) has buff Endurance Aura) Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Random integer number between 1 and 100) Less than or equal to 15
Then - Actions
-------- --------
-------- The condition over here, is the one that creates the chance (lower or equal to 20 is 20 % since 20 of 100) --------
-------- --------
-------- Down here, we check if the variableis below 20 (which will be 20 % chance that this action trigger), in that case we create a special effect on the targeted unit and damages it --------
-------- --------
-------- Nevermind the floating text actions, its nothing neccessary if you dont edit the spell, otherwise read the trigger comment --------
-------- --------
Floating Text - Create floating text that reads 150 above SparkyUnit with Z offset 0 , using font size 10 , color ( 0.00 %, 0.00 %, 75.00 %), and 0 % transparency
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Set the velocity of (Last created floating text) to 64 towards 90 degrees
Floating Text - Change the fading age of (Last created floating text) to 3.00 seconds
Floating Text - Change the lifespan of (Last created floating text) to 5.00 seconds
-------- --------
-------- Edit the damage to "your damage" here --------
-------- --------
Unit - Cause (Casting unit) to damage SparkyUnit , dealing 150.00 damage of attack type Spells and damage type Lightning
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of SparkyUnit using Abilities\Spells\Other\Monsoon\MonsoonBoltTarget.mdl
Special Effect - Destroy (Last created special effect)
-------- --------
-------- And here we set SparkyUnit as no unit, so we can use this spell on a new target next time --------
-------- --------
Set Variable Set SparkyUnit = No unit
Else - Actions
Set Variable Set SparkyUnit = (Target unit of ability being cast)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Random integer number between 1 and 100) Less than or equal to 10
Then - Actions
-------- --------
-------- This is just the same as the first one, but this checks if the random integer is lower than 10, (which will be 10 % chance instead) and then deal 150 instead of 100 damage --------
-------- --------
-------- Nevermind the floating text actions, its nothing neccessary if you dont edit the spell, otherwise read the trigger comment --------
-------- --------
Floating Text - Create floating text that reads 150 above SparkyUnit with Z offset 0 , using font size 10 , color ( 0.00 %, 0.00 %, 75.00 %), and 0 % transparency
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Set the velocity of (Last created floating text) to 64 towards 90 degrees
Floating Text - Change the fading age of (Last created floating text) to 3.00 seconds
Floating Text - Change the lifespan of (Last created floating text) to 5.00 seconds
Unit - Cause (Casting unit) to damage SparkyUnit , dealing 150.00 damage of attack type Spells and damage type Lightning
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of SparkyUnit using Abilities\Spells\Other\Monsoon\MonsoonBoltTarget.mdl
Special Effect - Destroy (Last created special effect)
Set Variable Set SparkyUnit = No unit
Else - Actions
Set Variable Set SparkyUnit = (Target unit of ability being cast)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Random integer number between 1 and 100) Less than or equal to 5
Then - Actions
-------- --------
-------- This is just the same as the first one, but this checks if the random integer is lower than 5, (which will be 5 % chance instead) and then deal 200 instead of 100 damage --------
-------- --------
-------- Nevermind the floating text actions, its nothing neccessary if you dont edit the spell, otherwise read the trigger comment --------
-------- --------
Floating Text - Create floating text that reads 150 above SparkyUnit with Z offset 0 , using font size 10 , color ( 0.00 %, 0.00 %, 75.00 %), and 0 % transparency
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Set the velocity of (Last created floating text) to 64 towards 90 degrees
Floating Text - Change the fading age of (Last created floating text) to 3.00 seconds
Floating Text - Change the lifespan of (Last created floating text) to 5.00 seconds
Unit - Cause (Casting unit) to damage SparkyUnit , dealing 150.00 damage of attack type Spells and damage type Lightning
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of SparkyUnit using Abilities\Spells\Other\Monsoon\MonsoonBoltTarget.mdl
Special Effect - Destroy (Last created special effect)
Set Variable Set SparkyUnit = No unit
Else - Actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Target unit of ability being cast) has buff Endurance Aura) Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Random integer number between 1 and 100) Less than or equal to 15
Then - Actions
-------- --------
-------- Down here we check if the random integer gets below 25 (which will be 25 % chance that this trigger, as said before) and then create a special effect and damage the target. --------
-------- --------
-------- Nevermind the floating text actions, its nothing neccessary if you dont edit the spell, otherwise read the trigger comment --------
-------- --------
Floating Text - Create floating text that reads 300 above SparkyUnit with Z offset 0 , using font size 10 , color ( 0.00 %, 0.00 %, 75.00 %), and 0 % transparency
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Set the velocity of (Last created floating text) to 64 towards 90 degrees
Floating Text - Change the fading age of (Last created floating text) to 3.00 seconds
Floating Text - Change the lifespan of (Last created floating text) to 5.00 seconds
-------- --------
-------- Edit the damage to "your damage" here --------
-------- --------
Unit - Cause (Casting unit) to damage SparkyUnit , dealing 300.00 damage of attack type Spells and damage type Lightning
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of SparkyUnit using Abilities\Spells\Other\Monsoon\MonsoonBoltTarget.mdl
Special Effect - Destroy (Last created special effect)
-------- --------
-------- And here we set SparkyUnit as no unit, so we can use this spell on a new target next time --------
-------- --------
Set Variable Set SparkyUnit = No unit
Else - Actions
Set Variable Set SparkyUnit = (Target unit of ability being cast)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Random integer number between 1 and 100) Less than or equal to 10
Then - Actions
-------- --------
-------- This is just the same as the first one, but this checks if the random integer number is lower than 15, (which will be 15 % chance instead) and then deal 150 instead of 100 damage --------
-------- --------
-------- Nevermind the floating text actions, its nothing neccessary if you dont edit the spell, otherwise read the trigger comment --------
-------- --------
Floating Text - Create floating text that reads 300 above SparkyUnit with Z offset 0 , using font size 10 , color ( 0.00 %, 0.00 %, 75.00 %), and 0 % transparency
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Set the velocity of (Last created floating text) to 64 towards 90 degrees
Floating Text - Change the fading age of (Last created floating text) to 3.00 seconds
Floating Text - Change the lifespan of (Last created floating text) to 5.00 seconds
Unit - Cause (Casting unit) to damage SparkyUnit , dealing 300.00 damage of attack type Spells and damage type Lightning
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of SparkyUnit using Abilities\Spells\Other\Monsoon\MonsoonBoltTarget.mdl
Special Effect - Destroy (Last created special effect)
Set Variable Set SparkyUnit = No unit
Else - Actions
Set Variable Set SparkyUnit = (Target unit of ability being cast)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Random integer number between 1 and 100) Less than or equal to 5
Then - Actions
-------- --------
-------- This is just the same as the first one, but this checks if the random integer number is lower than 10, (which will be 10 % chance instead) and then deal 200 instead of 100 damage --------
-------- --------
-------- Nevermind the floating text actions, its nothing neccessary if you dont edit the spell, otherwise read the trigger comment --------
-------- --------
Floating Text - Create floating text that reads 300 above SparkyUnit with Z offset 0 , using font size 10 , color ( 0.00 %, 0.00 %, 75.00 %), and 0 % transparency
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Set the velocity of (Last created floating text) to 64 towards 90 degrees
Floating Text - Change the fading age of (Last created floating text) to 3.00 seconds
Floating Text - Change the lifespan of (Last created floating text) to 5.00 seconds
Unit - Cause (Casting unit) to damage SparkyUnit , dealing 300.00 damage of attack type Spells and damage type Lightning
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of SparkyUnit using Abilities\Spells\Other\Monsoon\MonsoonBoltTarget.mdl
Special Effect - Destroy (Last created special effect)
Set Variable Set SparkyUnit = No unit
Else - Actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Target unit of ability being cast) has buff Endurance Aura) Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Random integer number between 1 and 100) Less than or equal to 20
Then - Actions
-------- --------
-------- Down here, we check if the random integer number is below 30 (which will be 30 % chance that this action trigger), in that case we create a special effect on the targeted unit and damages it --------
-------- --------
-------- Nevermind the floating text actions, its nothing neccessary if you dont edit the spell, otherwise read the trigger comment --------
-------- --------
Floating Text - Create floating text that reads 450 above SparkyUnit with Z offset 0 , using font size 10 , color ( 0.00 %, 0.00 %, 75.00 %), and 0 % transparency
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Set the velocity of (Last created floating text) to 64 towards 90 degrees
Floating Text - Change the fading age of (Last created floating text) to 3.00 seconds
Floating Text - Change the lifespan of (Last created floating text) to 5.00 seconds
-------- --------
-------- Edit the damage to "your damage" here --------
-------- --------
Unit - Cause (Casting unit) to damage SparkyUnit , dealing 450.00 damage of attack type Spells and damage type Lightning
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of SparkyUnit using Abilities\Spells\Other\Monsoon\MonsoonBoltTarget.mdl
Special Effect - Destroy (Last created special effect)
-------- --------
-------- And here we set SparkyUnit as no unit, so we can use this spell on a new target next time --------
-------- --------
Set Variable Set SparkyUnit = No unit
Else - Actions
Set Variable Set SparkyUnit = (Target unit of ability being cast)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Random integer number between 1 and 100) Less than or equal to 10
Then - Actions
-------- --------
-------- This is just the same as the first one, but this checks if the random integer number is lower than 20, (which will be 20 % chance instead) and then deal 150 instead of 100 damage --------
-------- --------
-------- Nevermind the floating text actions, its nothing neccessary if you dont edit the spell, otherwise read the trigger comment --------
-------- --------
Floating Text - Create floating text that reads 450 above SparkyUnit with Z offset 0 , using font size 10 , color ( 0.00 %, 0.00 %, 75.00 %), and 0 % transparency
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Set the velocity of (Last created floating text) to 64 towards 90 degrees
Floating Text - Change the fading age of (Last created floating text) to 3.00 seconds
Floating Text - Change the lifespan of (Last created floating text) to 5.00 seconds
Unit - Cause (Casting unit) to damage SparkyUnit , dealing 450.00 damage of attack type Spells and damage type Lightning
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of SparkyUnit using Abilities\Spells\Other\Monsoon\MonsoonBoltTarget.mdl
Special Effect - Destroy (Last created special effect)
Set Variable Set SparkyUnit = No unit
Else - Actions
Set Variable Set SparkyUnit = (Target unit of ability being cast)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Random integer number between 1 and 100) Less than or equal to 5
Then - Actions
-------- --------
-------- This is just the same as the first one, but this checks if the random integer number is lower than 15, (which will be 15 % chance instead) and then deal 200 instead of 100 damage --------
-------- --------
-------- Nevermind the floating text actions, its nothing neccessary if you dont edit the spell, otherwise read the trigger comment --------
-------- --------
Floating Text - Create floating text that reads 450 above SparkyUnit with Z offset 0 , using font size 10 , color ( 0.00 %, 0.00 %, 75.00 %), and 0 % transparency
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Set the velocity of (Last created floating text) to 64 towards 90 degrees
Floating Text - Change the fading age of (Last created floating text) to 3.00 seconds
Floating Text - Change the lifespan of (Last created floating text) to 5.00 seconds
Unit - Cause (Casting unit) to damage SparkyUnit , dealing 450.00 damage of attack type Spells and damage type Lightning
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of SparkyUnit using Abilities\Spells\Other\Monsoon\MonsoonBoltTarget.mdl
Special Effect - Destroy (Last created special effect)
Set Variable Set SparkyUnit = No unit
Else - Actions
Else - Actions
Top