• 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

MissleSystem(NoParabola)v2.w3x
Variables
Missile System
MS Globals
---------------------------
MS Run
MS Loop
damage unit in range GUI
---------------------------
IMS run
====================
MS Init example1 and Read Me Kopieren
---------------------------
MS Init example2
MS Init example3
MS Init example4
MS Init example5
MS Init example6
MS Init example7
MS Init example8
MS Init example9
MS Init example10
---------------------------
MS Init genaral example
Collision System
Unit Collision vJass
Destrucktabe Collision vJass
Map Stuff
map init
map loop
music
kill fighters
Missile System Add On's
MS AddOns
Kartenspezifischen eigenen Skript-Code unten eingeben. Dieser Text wird in das Karten-Skript nach der Deklaration der Variablen und vor jeglichem Auslöser-Code eingefügt.
//TESH.scrollpos=0
//TESH.alwaysfold=0
Name Type is_array initial_value
MS_DummyUnit unitcode No
MS_Hash hashtable No
MS_KillMissle boolean No
MS_LeakPoint location Yes
MS_MaxHeight real No
MS_Missles group No
MS_PlayableMapArena rect No
MS_RefreshRate real No
MS_TempReal real Yes
MS_TempUnit unit Yes
MS_Timer timer No
MSI_Angle real No
MSI_Caster unit No
MSI_CollisionRadius real No
MSI_Damage real No
MSI_DamageRad real No
MSI_Distance real No
MSI_MissleDeadModel string No
MSI_MissleModel string No
MSI_Speed real No
MSI_SpeedIncraise real No
MSI_ZAngle real No
MS Globals
Events
Map initialization
Conditions
Actions
Hashtable - Create a hashtable
Set Variable Set MS_Hash = (Last created hashtable)
-------- Creating the hashtable --------
-------- ================================ --------
Set Variable Set MS_RefreshRate = "0.03"
-------- Loop cool down --------
-------- ================================ --------
Set Variable Set MS_MaxHeight = "2500.00"
-------- if a missile gets higher then this vaue it will killed --------
Set Variable Set MS_PlayableMapArena = (Playable map area)
-------- if the missile will leave the rect it will also killed --------
-------- ================================ --------
Set Variable Set MS_DummyUnit = "h000"
-------- the missile dummy unit --------
-------- ================================ --------
Custom script: set udg_MS_Missles = CreateGroup()
-------- createing the missile group --------
-------- ================================ --------
Countdown Timer - Start MS_Timer as a Repeating timer that will expire in MS_RefreshRate seconds
-------- starting the timer --------
MS Run
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(MS_Loop <gen> is on) Equal to False
Then - Actions
Trigger - Turn on MS_Loop <gen>
Else - Actions
-------- turn the loop on --------
Unit - Create 1 . MS_DummyUnit for (Owner of MSI_Caster) at MS_LeakPoint[0] facing MSI_Angle degrees
-------- create the dummy unit --------
Unit - Turn collision for (Last created unit) Off .
-------- turn the collision off --------
Unit - Move (Last created unit) instantly to MS_LeakPoint[0]
-------- this fixes the posiotion of the missile --------
Animation - Change (Last created unit) 's size to ( (MS_TempReal[2] x 100.00) %, (MS_TempReal[2] x 100.00) %, (MS_TempReal[2] x 100.00) %) of its original size
-------- changing the size of the missile --------
Unit Group - Add (Last created unit) to MS_Missles
-------- adds the missile to the missile group --------
-------- ------------------- --------
Unit - Add Crow Form to (Last created unit)
Animation - Change (Last created unit) flying height to (MS_TempReal[4] + MS_TempReal[5]) at 0.00
Unit - Remove Crow Form from (Last created unit)
-------- change the height of the missile --------
Special Effect - Create a special effect attached to the origin (Unexpected type: 'attachpoint') of (Last created unit) using MSI_MissleModel
-------- create the missile effect --------
-------- ================================ --------
-------- ================================ --------
Hashtable - Save Handle Of MSI_Caster as (Key Caster.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save MSI_Distance as (Key Distance.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save MSI_Speed as (Key Speed.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save MSI_Damage as (Key Damage.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save MSI_ZAngle as (Key ZAngle.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save MSI_MissleDeadModel as (Key DeadSFX.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save MSI_CollisionRadius as (Key CollisionsRad.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save MSI_Angle as (Key Angle.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save Handle Of (Last created special effect) as (Key UnitSFX.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save MSI_DamageRad as (Key DamageRad.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save MSI_SpeedIncraise as (Key SpeedIncraise.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save (MS_TempReal[4] + MS_TempReal[5]) as (Key NormalHeight.) of (Key (Last created unit).) in MS_Hash .
Hashtable - Save MS_TempReal[3] as (Key StartZ.) of (Key (Last created unit).) in MS_Hash .
-------- ================================ --------
-------- saves all things in the missile hash --------
MS Loop
Events
Time - MS_Timer expires
Conditions
Actions
Unit Group - Pick every unit in MS_Missles and do (Actions)
Loop - Actions
Set Variable Set MS_TempUnit[0] = (Picked unit)
Set Variable Set MS_TempUnit[1] = (Load (Key Caster.) of (Key (Picked unit).) in MS_Hash.)
-------- ================================ --------
Unit - Turn collision for MS_TempUnit[0] Off .
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (Load (Key Damage.) of (Key (Picked unit).) from MS_Hash.)
Set Variable Set MS_TempReal[1] = (Load (Key CollisionsRad.) of (Key (Picked unit).) from MS_Hash.)
Set Variable Set MS_TempReal[2] = ((Load (Key ZAngle.) of (Key (Picked unit).) from MS_Hash.) + 90.00)
Set Variable Set MS_TempReal[3] = ((Cos((Load (Key ZAngle.) of (Key (Picked unit).) from MS_Hash.))) x (Load (Key Speed.) of (Key (Picked unit).) from MS_Hash.))
Set Variable Set MS_TempReal[7] = (Load (Key DamageRad.) of (Key (Picked unit).) from MS_Hash.)
-------- ================================ --------
Set Variable Set MS_LeakPoint[0] = (Position of (Picked unit))
Set Variable Set MS_LeakPoint[1] = (MS_LeakPoint[0] offset by MS_TempReal[3] towards (Load (Key Angle.) of (Key (Picked unit).) from MS_Hash.) degrees.)
-------- ================================ --------
Custom script: call SetUnitX(udg_MS_TempUnit[0],GetLocationX(udg_MS_LeakPoint[1]))
Custom script: call SetUnitY(udg_MS_TempUnit[0],GetLocationY(udg_MS_LeakPoint[1]))
Unit - Make (Picked unit) face (Load (Key Angle.) of (Key (Picked unit).) from MS_Hash.) over 0 seconds
-------- ================================ --------
-------- ================================ --------
Set Variable Set MS_TempReal[6] = ((Load (Key NormalHeight.) of (Key (Picked unit).) from MS_Hash.) + ((Sin((Load (Key ZAngle.) of (Key (Picked unit).) from MS_Hash.))) x (Load (Key Speed.) of (Key (Picked unit).) from MS_Hash.)))
Hashtable - Save MS_TempReal[6] as (Key NormalHeight.) of (Key (Picked unit).) in MS_Hash .
Custom script: set udg_MS_TempReal[8]=GetLocationZ(udg_MS_LeakPoint[1])
Set Variable Set MS_TempReal[9] = (MS_TempReal[6] + ((Load (Key StartZ.) of (Key (Picked unit).) from MS_Hash.) - MS_TempReal[8]))
-------- ================================ --------
Animation - Change MS_TempUnit[0] flying height to MS_TempReal[9] at 0.00
-------- ================================ --------
-------- ================================ --------
Custom script: call SetUnitAnimationByIndex(udg_MS_TempUnit[0], R2I(udg_MS_TempReal[2]))
-------- ================================ --------
Hashtable - Save ((Load (Key Distance.) of (Key (Picked unit).) from MS_Hash.) - (Load (Key Speed.) of (Key (Picked unit).) from MS_Hash.)) as (Key Distance.) of (Key (Picked unit).) in MS_Hash .
Hashtable - Save ((Load (Key Speed.) of (Key (Picked unit).) from MS_Hash.) + (Load (Key SpeedIncraise.) of (Key (Picked unit).) from MS_Hash.)) as (Key Speed.) of (Key (Picked unit).) in MS_Hash .
-------- ================================ --------
Custom script: set udg_MS_KillMissle= CheckForCollision(GetLocationX(udg_MS_LeakPoint[1]),GetLocationY(udg_MS_LeakPoint[1]),GetUnitFlyHeight(udg_MS_TempUnit[0]),udg_MS_TempReal[1], GetOwningPlayer(udg_MS_TempUnit[0]))
-------- =========================================================================== --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
MS_KillMissle Equal to True
(MS_PlayableMapArena contains MS_TempUnit[0]) Equal to False
(Current flying height of MS_TempUnit[0]) Greater than or equal to MS_MaxHeight
(Current flying height of MS_TempUnit[0]) Less than or equal to 1.00
(Load (Key Distance.) of (Key (Picked unit).) from MS_Hash.) Less than or equal to 0.00
Then - Actions
Custom script: call DamageUnitInRange(GetLocationX(udg_MS_LeakPoint[1]),GetLocationY(udg_MS_LeakPoint[1]),GetUnitFlyHeight(udg_MS_TempUnit[0]),udg_MS_TempReal[0],udg_MS_TempReal[7],udg_MS_TempUnit[1])
Set Variable Set MS_KillMissle = "false"
Unit Group - Remove MS_TempUnit[0] from MS_Missles .
Special Effect - Destroy (Load (Key UnitSFX.) of (Key (Picked unit).) in MS_Hash.)
Custom script: call SetUnitAnimationByIndex(udg_MS_TempUnit[0], 90)
Special Effect - Create a special effect attached to the origin (Unexpected type: 'attachpoint') of MS_TempUnit[0] using (Load (Key DeadSFX.) of (Key (Picked unit).) from MS_Hash.)
Special Effect - Destroy (Last created special effect)
Hashtable - Clear all child hashtables of child (Key (Picked unit).) in MS_Hash .
Unit - Add a 2.00 second Generic expiration timer to MS_TempUnit[0]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in MS_Missles) Equal to 0
Then - Actions
Trigger - Turn off (This trigger)
Else - Actions
Else - Actions
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
damage unit in range GUI
Events
Conditions
Actions
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units within MS_TempReal[7] of MS_LeakPoint[1] matching ((((Matching unit) is alive) Equal to True) and (((Matching unit) belongs to an enemy of (Owner of MS_TempUnit[0]).) Equal to True)).) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Current flying height of (Picked unit)) - (Current flying height of MS_TempUnit[0])) Greater than or equal to (MS_TempReal[7] x -1.00)
((Current flying height of (Picked unit)) - (Current flying height of MS_TempUnit[0])) Less than or equal to MS_TempReal[7]
(Unit-type of (Picked unit)) Not equal to MS_DummyUnit
Then - Actions
Unit - Cause MS_TempUnit[1] to damage (Picked unit) , dealing MS_TempReal[0] damage of attack type Normal and damage type Normal
Else - Actions
work in progress...

0% done
IMS run
Events
Conditions
Actions
-------- this is the instead version of the sys --------
MS Init example1 and Read Me Kopieren
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Fighter
Actions
Set Variable Set MSI_Caster = (Attacking unit)
-------- the caster and the damage dealer --------
Set Variable Set MS_TempUnit[0] = (Attacked unit)
-------- the temp unit (for the angle) --------
-------- ================================ --------
Set Variable Set MSI_Distance = "2000.00"
-------- the max distance the missile can travel --------
Set Variable Set MSI_Speed = (2750.00 x MS_RefreshRate)
-------- the missile speed (converted) --------
Set Variable Set MSI_Damage = "20.00"
-------- how much damage the missile deal --------
Set Variable Set MSI_CollisionRadius = "60.00"
-------- the collisions radius --------
Set Variable Set MSI_DamageRad = "75.00"
-------- the radius of the damage --------
Set Variable Set MSI_SpeedIncraise = "0.00"
-------- how much the speed will incraised x udg_MS_RefreshRate --------
-------- ================================ --------
Set Variable Set MS_LeakPoint[0] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[0] to MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[5] = "5.00"
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] - MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_MissleModel = "Abilities\Weapons\WardenMissile\WardenMissile.mdl"
Set Variable Set MSI_MissleDeadModel = "Abilities\Weapons\GyroCopter\GyroCopterImpact.mdl"
-------- ================================ --------
Set Variable Set MS_TempReal[2] = "0.60"
Custom script: set udg_MS_TempReal[3]=GetLocationZ(udg_MS_LeakPoint[0])
Set Variable Set MS_TempReal[4] = (Current flying height of MSI_Caster)
-------- ================================ --------
Set Variable Set MSI_Angle = (MSI_Angle + (Random real number between -3.00 and 3.00))
Set Variable Set MSI_ZAngle = (MSI_ZAngle + (Random real number between -3.00 and 3.00))
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
MS Init example2
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Anti - Air Tank
Actions
Set Variable Set MSI_Caster = (Attacking unit)
Set Variable Set MS_TempUnit[0] = (Attacked unit)
-------- ================================ --------
Set Variable Set MSI_Distance = "2000.00"
Set Variable Set MSI_Speed = (2000.00 x MS_RefreshRate)
Set Variable Set MSI_Damage = "50.00"
Set Variable Set MSI_CollisionRadius = "60.00"
Set Variable Set MSI_DamageRad = "140.00"
Set Variable Set MSI_SpeedIncraise = "0.00"
-------- ================================ --------
Set Variable Set MS_LeakPoint[0] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[0] to MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[5] = "45.00"
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] - MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_MissleModel = "Abilities\Weapons\RocketMissile\RocketMissile.mdl"
Set Variable Set MSI_MissleDeadModel = "Abilities\Weapons\RocketMissile\RocketMissile.mdl"
-------- ================================ --------
Set Variable Set MS_TempReal[2] = "0.80"
Custom script: set udg_MS_TempReal[3]=GetLocationZ(udg_MS_LeakPoint[0])
Set Variable Set MS_TempReal[4] = (Current flying height of MSI_Caster)
-------- ================================ --------
Set Variable Set MSI_Angle = (MSI_Angle + (Random real number between -0.50 and 0.50))
Set Variable Set MSI_ZAngle = (MSI_ZAngle + (Random real number between -0.50 and 0.50))
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
MS Init example3
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Laser Tower
Actions
Set Variable Set MSI_Caster = (Attacking unit)
Set Variable Set MS_TempUnit[0] = (Attacked unit)
-------- ================================ --------
Set Variable Set MSI_Distance = "2000.00"
Set Variable Set MSI_Speed = (2000.00 x MS_RefreshRate)
Set Variable Set MSI_Damage = "30.00"
Set Variable Set MSI_CollisionRadius = "60.00"
Set Variable Set MSI_DamageRad = "80.00"
Set Variable Set MSI_SpeedIncraise = "0.00"
-------- ================================ --------
Set Variable Set MS_LeakPoint[0] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[0] to MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[5] = "265.00"
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] - MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_MissleModel = "Abilities\Weapons\FaerieDragonMissile\FaerieDragonMissile.mdl"
Set Variable Set MSI_MissleDeadModel = "Abilities\Weapons\FaerieDragonMissile\FaerieDragonMissile.mdl"
-------- ================================ --------
Set Variable Set MS_TempReal[2] = "0.80"
Custom script: set udg_MS_TempReal[3]=GetLocationZ(udg_MS_LeakPoint[0])
Set Variable Set MS_TempReal[4] = (Current flying height of MSI_Caster)
-------- ================================ --------
Set Variable Set MSI_Angle = (MSI_Angle + (Random real number between -0.50 and 0.50))
Set Variable Set MSI_ZAngle = (MSI_ZAngle + (Random real number between -0.50 and 0.50))
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
MS Init example4
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Easy Tank
Actions
Set Variable Set MSI_Caster = (Attacking unit)
Set Variable Set MS_TempUnit[0] = (Attacked unit)
-------- ================================ --------
Set Variable Set MSI_Distance = "2000.00"
Set Variable Set MSI_Speed = (1500.00 x MS_RefreshRate)
Set Variable Set MSI_Damage = "25.00"
Set Variable Set MSI_CollisionRadius = "60.00"
Set Variable Set MSI_DamageRad = "240.00"
Set Variable Set MSI_SpeedIncraise = "0.00"
-------- ================================ --------
Set Variable Set MS_LeakPoint[0] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[0] to MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[5] = "45.00"
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] - MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_MissleModel = "Abilities\Weapons\LordofFlameMissile\LordofFlameMissile.mdl"
Set Variable Set MSI_MissleDeadModel = "Objects\Spawnmodels\Other\NeutralBuildingExplosion\NeutralBuildingExplosion.mdl"
-------- ================================ --------
Set Variable Set MS_TempReal[2] = "0.80"
Custom script: set udg_MS_TempReal[3]=GetLocationZ(udg_MS_LeakPoint[0])
Set Variable Set MS_TempReal[4] = (Current flying height of MSI_Caster)
-------- ================================ --------
Set Variable Set MSI_Angle = (MSI_Angle + (Random real number between -0.75 and 0.75))
Set Variable Set MSI_ZAngle = (MSI_ZAngle + (Random real number between -0.75 and 0.75))
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
MS Init example5
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Space Orc
Actions
Set Variable Set MSI_Caster = (Attacking unit)
Set Variable Set MS_TempUnit[0] = (Attacked unit)
-------- ================================ --------
Set Variable Set MSI_Distance = "2000.00"
Set Variable Set MSI_Speed = (2000.00 x MS_RefreshRate)
Set Variable Set MSI_Damage = "15.00"
Set Variable Set MSI_CollisionRadius = "60.00"
Set Variable Set MSI_DamageRad = "70.00"
Set Variable Set MSI_SpeedIncraise = "0.00"
-------- ================================ --------
Set Variable Set MS_LeakPoint[0] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[0] to MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[5] = "15.00"
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] - MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_MissleModel = "war3mapImported\LaserRed.mdx"
Set Variable Set MSI_MissleDeadModel = "war3mapImported\LaserRed.mdx"
-------- ================================ --------
Set Variable Set MS_TempReal[2] = "0.40"
Custom script: set udg_MS_TempReal[3]=GetLocationZ(udg_MS_LeakPoint[0])
Set Variable Set MS_TempReal[4] = (Current flying height of MSI_Caster)
-------- ================================ --------
Set Variable Set MSI_Angle = (MSI_Angle + (Random real number between -0.50 and 0.50))
Set Variable Set MSI_ZAngle = (MSI_ZAngle + (Random real number between -0.50 and 0.50))
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
MS Init example6
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Bomber
Actions
Set Variable Set MSI_Caster = (Attacking unit)
Set Variable Set MS_TempUnit[0] = (Attacked unit)
-------- ================================ --------
Set Variable Set MSI_Distance = "2000.00"
Set Variable Set MSI_Speed = (10.00 x MS_RefreshRate)
Set Variable Set MSI_Damage = "130.00"
Set Variable Set MSI_CollisionRadius = "60.00"
Set Variable Set MSI_DamageRad = "110.00"
Set Variable Set MSI_SpeedIncraise = (10.00 x MS_RefreshRate)
-------- ================================ --------
Set Variable Set MS_LeakPoint[0] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[0] to MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[5] = "5.00"
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] - MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_MissleModel = "Abilities\Weapons\GyroCopter\GyroCopterMissile.mdl"
Set Variable Set MSI_MissleDeadModel = "Abilities\Weapons\GyroCopter\GyroCopterMissile.mdl"
-------- ================================ --------
Set Variable Set MS_TempReal[2] = "0.85"
Custom script: set udg_MS_TempReal[3]=GetLocationZ(udg_MS_LeakPoint[0])
Set Variable Set MS_TempReal[4] = (Current flying height of MSI_Caster)
-------- ================================ --------
Set Variable Set MSI_Angle = (MSI_Angle + (Random real number between -2.00 and 2.00))
Set Variable Set MSI_ZAngle = (MSI_ZAngle + (Random real number between -2.00 and 2.00))
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
MS Init example7
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Plasma Tower (Anti - Air)
Actions
Set Variable Set MSI_Caster = (Attacking unit)
Set Variable Set MS_TempUnit[0] = (Attacked unit)
-------- ================================ --------
Set Variable Set MSI_Distance = "3000.00"
Set Variable Set MSI_Speed = (500.00 x MS_RefreshRate)
Set Variable Set MSI_Damage = "40.00"
Set Variable Set MSI_CollisionRadius = "60.00"
Set Variable Set MSI_DamageRad = "80.00"
Set Variable Set MSI_SpeedIncraise = (7.50 x MS_RefreshRate)
-------- ================================ --------
Set Variable Set MS_LeakPoint[0] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[0] to MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[5] = "180.00"
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] - MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_MissleModel = "Abilities\Weapons\ZigguratMissile\ZigguratMissile.mdl"
Set Variable Set MSI_MissleDeadModel = "Abilities\Weapons\ZigguratMissile\ZigguratMissile.mdl"
-------- ================================ --------
Set Variable Set MS_TempReal[2] = "0.80"
Custom script: set udg_MS_TempReal[3]=GetLocationZ(udg_MS_LeakPoint[0])
Set Variable Set MS_TempReal[4] = (Current flying height of MSI_Caster)
-------- ================================ --------
Set Variable Set MSI_Angle = (MSI_Angle + (Random real number between -0.50 and 0.50))
Set Variable Set MSI_ZAngle = (MSI_ZAngle + (Random real number between -0.50 and 0.50))
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
MS Init example8
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Heavy Tank
Actions
Set Variable Set MSI_Caster = (Attacking unit)
Set Variable Set MS_TempUnit[0] = (Attacked unit)
-------- ================================ --------
Set Variable Set MSI_Distance = "2500.00"
Set Variable Set MSI_Speed = (1500.00 x MS_RefreshRate)
Set Variable Set MSI_Damage = "90.00"
Set Variable Set MSI_CollisionRadius = "60.00"
Set Variable Set MSI_DamageRad = "120.00"
Set Variable Set MSI_SpeedIncraise = "0.00"
-------- ================================ --------
Set Variable Set MS_LeakPoint[0] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[0] to MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[5] = "65.00"
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] - MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_MissleModel = "Abilities\Weapons\PhoenixMissile\Phoenix_Missile.mdl"
Set Variable Set MSI_MissleDeadModel = "Abilities\Weapons\PhoenixMissile\Phoenix_Missile.mdl"
-------- ================================ --------
Set Variable Set MS_TempReal[2] = "0.80"
Custom script: set udg_MS_TempReal[3]=GetLocationZ(udg_MS_LeakPoint[0])
Set Variable Set MS_TempReal[4] = (Current flying height of MSI_Caster)
-------- ================================ --------
Set Variable Set MSI_Angle = (MSI_Angle + (Random real number between -0.75 and 0.75))
Set Variable Set MSI_ZAngle = (MSI_ZAngle + (Random real number between -0.75 and 0.75))
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
MS Init example9
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Blocker
Actions
For each (Integer A) from 1 to 2 , do (Actions)
Loop - Actions
Set Variable Set MSI_Caster = (Attacking unit)
Set Variable Set MS_TempUnit[0] = (Attacked unit)
-------- ================================ --------
Set Variable Set MSI_Distance = "1500.00"
Set Variable Set MSI_Speed = (500.00 x MS_RefreshRate)
Set Variable Set MSI_Damage = "100.00"
Set Variable Set MSI_CollisionRadius = "60.00"
Set Variable Set MSI_DamageRad = "200.00"
Set Variable Set MSI_SpeedIncraise = (5.00 x MS_RefreshRate)
-------- ================================ --------
Set Variable Set MS_LeakPoint[2] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Equal to 1
Then - Actions
Set Variable Set MS_LeakPoint[0] = (MS_LeakPoint[2] offset by 20.00 towards ((Angle from MS_LeakPoint[2] to MS_LeakPoint[1]) + 90.00) degrees.)
Else - Actions
Set Variable Set MS_LeakPoint[0] = (MS_LeakPoint[2] offset by 20.00 towards ((Angle from MS_LeakPoint[2] to MS_LeakPoint[1]) - 90.00) degrees.)
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[2] to MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[5] = "80.00"
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] - MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_MissleModel = "Abilities\Spells\Orc\LightningBolt\LightningBoltMissile.mdl"
Set Variable Set MSI_MissleDeadModel = "Abilities\Spells\Human\ThunderClap\ThunderClapCaster.mdl"
-------- ================================ --------
Set Variable Set MS_TempReal[2] = "0.80"
Custom script: set udg_MS_TempReal[3]=GetLocationZ(udg_MS_LeakPoint[0])
Set Variable Set MS_TempReal[4] = (Current flying height of MSI_Caster)
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
Custom script: call RemoveLocation (udg_MS_LeakPoint[2])
MS Init example10
Events
Unit - A unit Is attacked
Conditions
(Unit-type of (Attacking unit)) Equal to Marine
Actions
Set Variable Set MSI_Caster = (Attacking unit)
Set Variable Set MS_TempUnit[0] = (Attacked unit)
-------- ================================ --------
Set Variable Set MSI_Distance = "2000.00"
Set Variable Set MSI_Speed = (2250.00 x MS_RefreshRate)
Set Variable Set MSI_Damage = "5.00"
Set Variable Set MSI_CollisionRadius = "67.50"
Set Variable Set MSI_DamageRad = "70.00"
Set Variable Set MSI_SpeedIncraise = "0.00"
-------- ================================ --------
Set Variable Set MS_LeakPoint[0] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[0] to MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[5] = "10.00"
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] - MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_MissleModel = "Abilities\Weapons\WardenMissile\WardenMissile.mdl"
Set Variable Set MSI_MissleDeadModel = "Abilities\Weapons\WardenMissile\WardenMissile.mdl"
-------- ================================ --------
Set Variable Set MS_TempReal[2] = "0.40"
Custom script: set udg_MS_TempReal[3]=GetLocationZ(udg_MS_LeakPoint[0])
Set Variable Set MS_TempReal[4] = (Current flying height of MSI_Caster)
-------- ================================ --------
Set Variable Set MSI_Angle = (MSI_Angle + (Random real number between -1.25 and 1.25))
Set Variable Set MSI_ZAngle = (MSI_ZAngle + (Random real number between -1.25 and 1.25))
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
heavy lag!! not recommend
MS Init genaral example
Events
Unit - A unit Is attacked
Conditions
Actions
Set Variable Set MSI_Caster = (Attacking unit)
Set Variable Set MS_TempUnit[0] = (Attacked unit)
Custom script: call GW_SetSettings(GetUnitTypeId(udg_MSI_Caster))
Set Variable Set MS_LeakPoint[0] = (Position of MSI_Caster)
Set Variable Set MS_LeakPoint[1] = (Position of MS_TempUnit[0])
Set Variable Set MSI_Angle = (Angle from MS_LeakPoint[0] to MS_LeakPoint[1])
-------- ================================ --------
Custom script: if GetUnitType(udg_MS_TempUnit[0]) == 2 then
Custom script: set udg_MS_TempReal[6] = GetUnitHeightCylinder(udg_MS_TempUnit[0])/2
Custom script: else
Custom script: set udg_MS_TempReal[6] = 0.
Custom script: endif
Custom script: set udg_MS_TempReal[7]=GetLocationZ(udg_MS_LeakPoint[0])-GetLocationZ(udg_MS_LeakPoint[1])
-------- ================================ --------
Set Variable Set MS_TempReal[0] = (((Current flying height of MS_TempUnit[0]) + (MS_TempReal[6] + MS_TempReal[7])) - ((Current flying height of MSI_Caster) + MS_TempReal[5]))
Set Variable Set MS_TempReal[1] = (Distance between MS_LeakPoint[0] and MS_LeakPoint[1])
Set Variable Set MSI_ZAngle = (Atan2(MS_TempReal[0], MS_TempReal[1]))
-------- ================================ --------
Set Variable Set MSI_Angle = (MSI_Angle + (Random real number between (MS_TempReal[7] x -1.00) and MS_TempReal[7]))
Set Variable Set MSI_ZAngle = (MSI_ZAngle + (Random real number between (MS_TempReal[7] x -1.00) and MS_TempReal[7]))
-------- ================================ --------
Trigger - Run MS_Run <gen> (ignoring conditions)
-------- ================================ --------
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Custom script: call RemoveLocation (udg_MS_LeakPoint[1])
//TESH.scrollpos=0
//TESH.alwaysfold=0
//made by hell gate

library UnitCollision initializer Init
    globals
        private hashtable           UC_Hash
        private constant integer    Sphere     = 1
        private constant integer    Cylinder   = 2
        private real                MaxCollSize = 0.
        private constant integer    DummyId    = 'h000' // your private dummy unit
    endglobals
    
    function GetUnitCollSizeSphere takes unit u returns real
        return LoadReal( UC_Hash, GetUnitTypeId(u), 1)
    endfunction
    
    function GetUnitRadCylinder takes unit u returns real
        return LoadReal( UC_Hash, GetUnitTypeId(u), 1)
    endfunction
    
    function GetUnitHeightCylinder takes unit u returns real
        return LoadReal( UC_Hash, GetUnitTypeId(u), 2)
    endfunction
    
    function GetUnitType takes unit u returns integer
        return LoadInteger(UC_Hash,GetUnitTypeId(u),0)
    endfunction
    
    function AddUnitCollisionSphere takes integer uID, real rad returns nothing
        call SaveInteger(UC_Hash, uID, 0, Sphere)
        call SaveReal(UC_Hash, uID, 1, rad)
        if rad >= MaxCollSize then
            set MaxCollSize =rad+.5
        endif
    endfunction
    
    function AddUnitCollisionCylinder takes integer uID, real rad, real height returns nothing
        local real x = SquareRoot((rad*rad)+(height*height))
        call SaveInteger(UC_Hash, uID, 0, Cylinder)
        call SaveReal(UC_Hash, uID, 1, rad)
        call SaveReal(UC_Hash, uID, 2, height)
        if x >= MaxCollSize then
            set MaxCollSize = x+.5
        endif
    endfunction
    
    function CheckForCollision takes real x, real y, real z, real size, player p returns boolean
        local group			g = CreateGroup()
        local unit			u = null
        local real array	r
        local boolean		b = false
        local location      p1
        local location      p2
        call GroupEnumUnitsInRange( g, x, y, MaxCollSize, null)
        loop
            set u = FirstOfGroup(g)
            exitwhen u == null or b == true
            if GetUnitTypeId(u)!= DummyId and GetUnitState(u,UNIT_STATE_LIFE) > 0.405 then
                if GetUnitType(u) == Sphere then
                    set r[0] = x - GetUnitX(u)
                    set r[1] = y - GetUnitY(u)
                    set r[2] = SquareRoot(r[0] * r[0] + r[1] * r[1])
                    set p1    = GetUnitLoc(u)
                    set p2   = Location(x,y)
                    set r[3] = (GetUnitFlyHeight(u)+GetLocationZ(p1))-(z+GetLocationZ(p2))
                    set r[4] = SquareRoot(r[2] * r[2] + r[3] * r[3])
                    set b = ((r[4] <= GetUnitCollSizeSphere(u)+size) and GetOwningPlayer(u) != p)
                    call RemoveLocation(p1)
                    call RemoveLocation(p2)
                elseif GetUnitType(u) == Cylinder then
                    set r[0] = x - GetUnitX(u)
                    set r[1] = y - GetUnitY(u)
                    set r[2] = SquareRoot(r[0] * r[0] + r[1] * r[1])
                    set p1   = GetUnitLoc(u)
                    set p2   = Location(x,y)
                    set r[3] = GetUnitFlyHeight(u)
                    set b = (r[2] <= GetUnitRadCylinder(u)+size and z+GetLocationZ(p2) > r[3]-size+GetLocationZ(p1) and z+GetLocationZ(p2) < r[3]+GetUnitHeightCylinder(u)+size+GetLocationZ(p1) and GetOwningPlayer(u) != p)
                    call RemoveLocation(p1)
                    call RemoveLocation(p2)
                endif
            endif
            call GroupRemoveUnit(g,u)
            set u = null
        endloop
        call DestroyGroup(g)
        set g 	= null
        set u 	= null
        return b
    endfunction
    
    // extra function to damage units in range with the unit collision system
    // (simpel edit from the check for collision function)
    function DamageUnitInRange takes real x, real y, real z, real damage, real rad, unit damagedealer returns nothing
        local group			g = CreateGroup()
        local unit			u = null
        local real array	r
        local location      p1
        local location      p2
        call GroupEnumUnitsInRange( g, x, y, MaxCollSize, null)
        loop
            set u = FirstOfGroup(g)
            exitwhen u == null
            if GetUnitTypeId(u)!= DummyId and GetUnitState(u,UNIT_STATE_LIFE) > 0.405 then
                if GetUnitType(u) == Sphere then
                    set r[0] = x - GetUnitX(u)
                    set r[1] = y - GetUnitY(u)
                    set r[2] = SquareRoot(r[0] * r[0] + r[1] * r[1])
                    set p1   = GetUnitLoc(u)
                    set p2   = Location(x,y)
                    set r[3] = (GetUnitFlyHeight(u)+GetLocationZ(p1))-(z+GetLocationZ(p2))
                    set r[4] = SquareRoot(r[2] * r[2] + r[3] * r[3])
                    if (r[4] <= GetUnitCollSizeSphere(u)+rad) and GetOwningPlayer(u) != GetOwningPlayer(damagedealer) then
                        call UnitDamageTarget(damagedealer, u, damage, true, false, ATTACK_TYPE_MELEE, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
                    endif
                    call RemoveLocation(p1)
                    call RemoveLocation(p2)
                elseif GetUnitType(u) == Cylinder then
                    set r[0] = x - GetUnitX(u)
                    set r[1] = y - GetUnitY(u)
                    set r[2] = SquareRoot(r[0] * r[0] + r[1] * r[1])
                    set p1   = GetUnitLoc(u)
                    set p2   = Location(x,y)
                    set r[3] = GetUnitFlyHeight(u)
                    if r[2] <= GetUnitRadCylinder(u)+rad and z+GetLocationZ(p2) > r[3]-rad+GetLocationZ(p1) and z+GetLocationZ(p2) < r[3]+GetUnitHeightCylinder(u)+rad+GetLocationZ(p1) and GetOwningPlayer(u) != GetOwningPlayer(damagedealer) then
                        call UnitDamageTarget(damagedealer, u, damage, true, false, ATTACK_TYPE_MELEE, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
                    endif
                    call RemoveLocation(p1)
                    call RemoveLocation(p2)
                endif
            endif
            call GroupRemoveUnit(g,u)
            set u = null
        endloop
        call DestroyGroup(g)
        set g 	= null
        set u 	= null
    endfunction

    private function Init takes nothing returns nothing
        set UC_Hash = InitHashtable()
        call AddUnitCollisionSphere('h004',100)
        call AddUnitCollisionSphere('h001',30)
        call AddUnitCollisionSphere('h005',50)
        call AddUnitCollisionSphere('h007',90)
        call AddUnitCollisionCylinder('h002',50,45)
        call AddUnitCollisionCylinder('h008',45,100)
        call AddUnitCollisionCylinder('h006',100,240)
        call AddUnitCollisionCylinder('h003',60,280)
        call AddUnitCollisionCylinder('h009',12.5,35)
        call AddUnitCollisionCylinder('h00A',14,35)
    endfunction
endlibrary
it works but i don't use it for this sys
//TESH.scrollpos=0
//TESH.alwaysfold=0
//|=======================================================|
//|              this system is made by The_Witcher       |
//|            all credits for this system goes to him    |
//|=======================================================|

library CollisionSystem initializer Init
globals
    private integer array class
    private real array xx
    private real array yy
    private real array zz
    private integer total = 0
    private hashtable h = InitHashtable()
    private real maxR = 0
    private group g = CreateGroup()
    private boolean Free = true
    private real X
    private real Y
    private real Z
endglobals

function AddEnvironmentCollision takes integer rcode, real SizeX, real SizeY, real SizeZ returns nothing
    if LoadInteger(h,rcode,0) == 0 then
        set total = total + 1
        set xx[total] = SizeX / 2
        set yy[total] = SizeY / 2
        set zz[total] = SizeZ
        set class[total] = rcode
        call SaveInteger(h, rcode, 0, total)
        if SizeX > maxR then
            set maxR = SizeX
        endif
        if SizeY > maxR then
            set maxR = SizeY
        endif
    endif
endfunction

private function GetRectFromCircle takes real x, real y, real radius returns rect
    return Rect(x - radius, y - radius, x + radius, y + radius)
endfunction

private function Destrloop takes nothing returns nothing
    local integer i = LoadInteger(h,GetDestructableTypeId(GetEnumDestructable()),0)
    local real x = GetDestructableX(GetEnumDestructable())
    local real y = GetDestructableY(GetEnumDestructable())
    if Free then
        if i != 0 then
            if (X > x - xx[i] and X < x + xx[i]) and (Y > y - yy[i] and Y < y + yy[i]) and (Z >= 0 and Z < zz[i]) then
                set Free = false
            endif
        endif
    endif
endfunction

private function AliveFilter takes nothing returns boolean
    return not (IsUnitType(GetFilterUnit(),UNIT_TYPE_DEAD) or GetUnitTypeId(GetFilterUnit()) == 0 )
endfunction

function IsWayFree takes real x, real y, real z returns boolean
    local location p = Location(x,y)
    local unit u
    local integer i
    local real xxx
    local real yyy
    local real zzz
    set X = x
    set Y = y
    set Z = z
    set Free = true
    call EnumDestructablesInCircleBJ(maxR,p,function Destrloop)
    if Free then
        call GroupEnumUnitsInRange(g,x,y,maxR,Condition(function AliveFilter))
        loop
            set u = FirstOfGroup(g)
            exitwhen u == null or not Free
            set i = LoadInteger(h,GetUnitTypeId(u),0)
            if i != 0 then
                set xxx = GetUnitX(u)
                set yyy = GetUnitY(u)
                set zzz = GetUnitFlyHeight(u)
                set Free = (X > xxx - xx[i] and X < xxx + xx[i]) and (Y > yyy - yy[i] and Y < yyy + yy[i]) and(Z >= zzz and Z < zzz+ zz[i])
                set Free = not Free
            endif
            call GroupRemoveUnit(g,u)
        endloop
    endif
    return Free
endfunction

function IsWayFreeLoc takes location p, real z returns boolean
    return IsWayFree(GetLocationX(p),GetLocationY(p),z)
endfunction

private function Init takes nothing returns nothing
    call AddEnvironmentCollision(
endfunction
endlibrary
map init
Events
Map initialization
Conditions
Actions
Visibility - Disable fog of war
Visibility - Disable black mask
Player - Set Player 2 (Blue) . Food max to 1000000000
Camera - Set Player 1 (Red) 's camera Distance to target to 2500.00 over 2.00 seconds
Set Variable Set MS_LeakPoint[0] = (Center of Gebiet_000 <gen>)
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units in Gebiet_001 <gen> owned by Player 2 (Blue)) and do (Actions)
Loop - Actions
Unit - Order (Picked unit) to Attack-Move To . MS_LeakPoint[0]
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
Wait 120.00 seconds
Set Variable Set MS_LeakPoint[0] = (Center of Gebiet_000 <gen>)
Unit - Create 6 . Marine for Player 1 (Red) at MS_LeakPoint[0] facing 0.00 degrees
Game - Display to (All players) the text: hahaneed some help?lets show them who they're dealing with!
Custom script: call RemoveLocation (udg_MS_LeakPoint[0])
map loop
Events
Time - Every 0.50 seconds of game time
Conditions
Actions
Camera - Set Player 1 (Red) 's camera Distance to target to 2500.00 over 0.50 seconds
music
Events
Map initialization
Time - Every 2.00 seconds of game time
Conditions
Actions
Sound - Clear the music list
Sound - Play ArthasTheme <gen>
kill fighters
Events
Unit - Bomber 0010 <gen> Dies
Conditions
Actions
Custom script: set bj_wantDestroyGroup = true
Unit Group - Pick every unit in (Units of type Fighter) and do (Actions)
Loop - Actions
Selection - Remove (Picked unit) from selection
Unit - Kill (Picked unit)
//TESH.scrollpos=32
//TESH.alwaysfold=0
library GetWeappon initializer Init
    globals
        private hashtable GW_Hash
        private real rate
    endglobals
    
    //a very simple system to store the informations for this missile system
    function GW_AddUnitInformation takes integer uID , real v, real a, real collrad, real dmg, real dmgrad, real dist, string deadsfx, string missilesfx, real Zoffset, real missilesize, real variation returns nothing
        call SaveReal(GW_Hash, uID, 0, v)
        call SaveReal(GW_Hash, uID, 1, a)
        call SaveReal(GW_Hash, uID, 2, collrad)
        call SaveReal(GW_Hash, uID, 3, dmg)
        call SaveReal(GW_Hash, uID, 4, dmgrad)
        call SaveReal(GW_Hash, uID, 5, dist)
        call SaveReal(GW_Hash, uID, 6, Zoffset)
        call SaveReal(GW_Hash, uID, 7, missilesize)
        call SaveStringBJ( deadsfx, 8, uID, GW_Hash )
        call SaveStringBJ( missilesfx, 9, uID, GW_Hash )
        call SaveReal(GW_Hash, uID, 10, variation)
        //i use SaveStringBJ because SaveString doesn't exist :(
    endfunction
    
    function GW_SetSettings takes integer uID returns nothing
        set udg_MSI_Speed = LoadReal(GW_Hash, uID, 0)
        set udg_MSI_SpeedIncraise = LoadReal(GW_Hash, uID, 1)
        set udg_MSI_CollisionRadius = LoadReal(GW_Hash, uID, 2)
        set udg_MSI_Damage = LoadReal(GW_Hash, uID, 3)
        set udg_MSI_DamageRad = LoadReal(GW_Hash, uID, 4)
        set udg_MSI_Distance = LoadReal(GW_Hash, uID, 5)
        set udg_MS_TempReal[5] = LoadReal(GW_Hash, uID, 6)
        set udg_MS_TempReal[2] = LoadReal(GW_Hash, uID, 7)
        set udg_MSI_MissleDeadModel = LoadStringBJ(8, uID, GW_Hash)
        set udg_MSI_MissleModel = LoadStringBJ(9, uID, GW_Hash)
        set udg_MS_TempReal[7] = LoadReal(GW_Hash, uID, 10)
        // same reason for the BJ
    endfunction
    // GW tigger ends

    private function Init takes nothing returns nothing
        set GW_Hash = InitHashtable()
        set rate = udg_MS_RefreshRate
        //===================================================================================================  GW Set Settings  =========================================================================================================================================================
        //!-----------------------|--------|------------|---------|-------|------|--------|---------|---------------------------------------------------------------------------------------|--------------------------------------------------------------------------|---------|-------|---------|          
        //!     call function     |   ID   |      v     |    a    |collrad| dmg  | dmgrad | maxdist |                       dead sfx                                                        |                                           missile sfx                    | Zoffset | scale |variation|
        //!-----------------------|--------|------------|---------|-------|------|--------|---------|---------------------------------------------------------------------------------------|--------------------------------------------------------------------------|---------|-------|---------|
        call GW_AddUnitInformation('h001',  2000.0*rate,  0.0,      60.0,   20.0,   75.0,   2000.0,    "Abilities\\Weapons\\GyroCopter\\GyroCopterImpact.mdl",                                  "Abilities\\Weapons\\WardenMissile\\WardenMissile.mdl",                     5.0,    0.6,    3.0)
        call GW_AddUnitInformation('h004',    10.0*rate, 10.0*rate, 60.0,  130.0,  110.0,   2000.0,    "Abilities\\Weapons\\GyroCopter\\GyroCopterMissile.mdl",                                 "Abilities\\Weapons\\GyroCopter\\GyroCopterMissile.mdl",                    5.0,    0.85,   2.0)
        call GW_AddUnitInformation('h002',  2000.0*rate,  0.0,      60.0,   50.0,  110.0,   2000.0,    "Abilities\\Weapons\\RocketMissile\\RocketMissile.mdl",                                  "Abilities\\Weapons\\RocketMissile\\RocketMissile.mdl",                    45.0,    0.8,    0.5)
        call GW_AddUnitInformation('h003',  2000.0*rate,  0.0,      60.0,   30.0,   80.0,   2000.0,    "Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl",                      "Abilities\\Weapons\\FaerieDragonMissile\\FaerieDragonMissile.mdl",       265.0,    0.8,    0.5)
        call GW_AddUnitInformation('h005',  1500.0*rate,  0.0,      60.0,   25.0,  240.0,   2000.0,    "Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl",   "Abilities\\Weapons\\LordofFlameMissile\\LordofFlameMissile.mdl",          45.0,    0.8,    0.75)
        call GW_AddUnitInformation('h00A',  2250.0*rate,  0.0,      67.5,   15.0,   80.0,   2000.0,    "war3mapImported\\LaserRed.mdx",                                                         "war3mapImported\\LaserRed.mdx",                                           15.0,    0.4,    0.5)
        call GW_AddUnitInformation('h006',    10.0*rate,  7.5*rate, 60.0,   40.0,   80.0,   3000.0,    "Abilities\\Weapons\\ZigguratMissile\\ZigguratMissile.mdl",                              "Abilities\\Weapons\\ZigguratMissile\\ZigguratMissile.mdl",               180.0,    0.8,    0.5)
        call GW_AddUnitInformation('h007',  1500.0*rate,  0.0,      60.0,   90.0,  120.0,   2500.0,    "Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",                               "Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",                 65.0,    0.8,    0.75)
        call GW_AddUnitInformation('h008',   500.0*rate,  5.0*rate, 60.0,  100.0,  200.0,   1500.0,    "Abilities\\Spells\\Human\\ThunderClap\\ThunderClapCaster.mdl",                          "Abilities\\Spells\\Orc\\LightningBolt\\LightningBoltMissile.mdl",         80.0,    0.8,    0.25)
        call GW_AddUnitInformation('h009',  2250.0*rate,  0.0,      67.5,    5.0,   70.0,   2000.0,    "Abilities\\Weapons\\WardenMissile\\WardenMissile.mdl",                                  "Abilities\\Weapons\\WardenMissile\\WardenMissile.mdl",                    10.0,    0.4,    1.25)
        //  =======================================
    endfunction
endlibrary
Top