• 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

LycanVSVampireSoccer(ver. 1.2).w3x
Variables
Initialization
---------------------------
Melee Initialization
tenthleveltaurenchieftain
North Revive
Attack Knockback
Cast A Knockback
Get Knockback
South Revive
PsychoHookStraightCast
PsychoHookLoop
Multiboard Start
LoL
North
South
Finally its 15
Point Scored
Fireworks West Goal
Fireworks East Goal
Victory
West Victory
East Victory
Player Gone
Player never in game
Gold Coins
Drop Gold
Messages
dl
dl Copy
Credits
dL2
Movespeed
Movespeed
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
All_Player_Units group No
Ball unit No
Ball_Acceleration_X real No
Ball_Bounce_Coefficient real No 0.75
Ball_Current_Region rect No
Ball_Drag_Coefficient real No
Ball_Effect_Timer timer No
Ball_Effect_Timer_Window timerdialog No
Ball_Kick_Coefficient real No 1.00
Ball_Loc_X real No
Ball_Loc_Y real No
Ball_Region_Max_X real No
Ball_Region_Max_Y real No
Ball_Region_Min_X real No
Ball_Region_Min_Y real No
Ball_Speed_X real No 0.00
Ball_Speed_Y real No 0.00
Bonus_Kicking real Yes
Bonus_Movement real Yes
Center_Loc location No
CZT_Max real No
CZT_Min real No
DEBUG boolean No
East_Team_Points integer No
Gold_Spawn_Loc location No
harvester unit No
i integer No
i2 integervar No
k_Bounce_Coefficient real No 0.75
k_Drag_Coefficient real No 0.96
k_Kick_Speed real No 30.00
k_Ramp_Acceleration real No 1.00
KB_Angle real Yes
KB_Casters unit Yes
KB_CountBuffs integer No
KB_DestroyTrees boolean Yes
KB_EffectCounter integer Yes
KB_EffectCounter2 integer Yes
KB_Effects_1 string Yes
KB_Effects_2 string Yes
KB_GeneralIntegers integervar Yes
KB_KnockbackedUnits group No
KB_Levels integer Yes
KB_MaxDistance real Yes
KB_ReachedDistance real Yes
KB_ReducedReal real No
KB_ReduceSpeedReal real Yes
KB_SpecificSpeed real Yes
KB_StartPositions location Yes
KB_TempPoint location Yes
KB_TempReal real No
KB_TotalKnockUnits integer No
KB_Units unit Yes
KBA_Caster unit No
KBA_DestroyTrees boolean No
KBA_DistancePerLevel real No
KBA_Level integer No
KBA_SpecialEffects string Yes
KBA_Speed real No
KBA_StartingPosition location No
KBA_TargetUnit unit No
Kick_Allegiance_History boolean Yes
Kick_History_Lightning lightning Yes
Kick_Loc_History location Yes
Kick_Loc_History_Size integer No
Kicker_1 player No
Kicker_2 player No
Kicker_Loc location No
leader leaderboard No
loc location No
loc2 location No
Misc_Colours string Yes
Number_of_players_in_game integer No 12
Number_of_players_on_East_team integer No 6
Number_of_players_on_West_team integer No 6
Numer_votes_to_skip integer No
PHAngle real Yes
PHCaster unit Yes
PHDistance real Yes
PHMax integer No
PHReturn boolean Yes
PHSegment unit Yes
PHSegmentMax integer Yes
PHSpeed real Yes
PHTarget unit Yes
PHTargetGroup group No
Prop_Cameras group No
Razor_Ball_Active boolean No
Score integer Yes
Sideways_Track_Lightning lightning No
Sudden_Death_Timer timer No
Sudden_Death_Timer_Window timerdialog No
Team_East group No
Team_West group No
temp_special_effect effect No
TempArrayGroup group Yes
theta real No
tmpString string No
Tutorial_Skipped boolean No
Tutorial_Units unit Yes
Tutorial_Units_All group No
Unit_Identifier_For_Player unit Yes
Units_Chasing_Ball group No
Vertical_Movement_Coefficient real No 1.00
Voted_to_skip boolean Yes
West_Team_Points integer No
Init

-Nelee Init
-Untitled Trigger

Knockback System

-Attack Knockback
-Cast a knockback
-Get a knockback

Systems

_north Revive
-South Revive

Camera Zoom

-Phsycho hook straightcast
-" " Loop
-Multiboard Start
-Lol
-CZT ZOOm

CHeat

-U. Tirgger 2

Score

_North
-South
Default melee game initialization for all players
Melee Initialization
Events
Time - Elapsed game time is 0.01 seconds
Conditions
Actions
Visibility - Disable fog of war
Visibility - Disable black mask
Quest - Display to (All players) the Quest Update message: Welcome to |cffff8c00Transylvanian Crossfire Soccer|r Tournament!Game will start within 10 seconds, get ready!
Unit - Pause all units
Set Variable Set Ball = Ball 0012 <gen>
tenthleveltaurenchieftain
Events
Time - Elapsed game time is 10.00 seconds
Conditions
Actions
Unit - Unpause all units
Sound - Stop the currently playing music theme
Sound - Play PH1 <gen>
North Revive
Events
Unit - A unit Dies
Conditions
Or - Any (Conditions) are true
Conditions
(Dying unit) Equal to Vampire Soccer Player 0000 <gen>
(Dying unit) Equal to Vampire Soccer Player 0002 <gen>
(Dying unit) Equal to Vampire Soccer Player 0001 <gen>
(Dying unit) Equal to Vampire Soccer Player 0003 <gen>
Actions
Game - Display to (All players) the text: ((Name of (Owner of (Dying unit))) + is injured, to be respawned after 5 seconds)
Wait 5.00 seconds
Hero - Instantly revive (Dying unit) at (Center of Vampire_Bench <gen>) , Show revival graphics
Attack Knockback
Events
Unit - A unit Is attacked
Conditions
Actions
Set Variable Set KBA_Caster = (Attacking unit)
Set Variable Set KBA_TargetUnit = (Attacked unit)
Set Variable Set KBA_StartingPosition = (Position of (Attacking unit))
Set Variable Set KBA_Level = "1"
Set Variable Set KBA_Speed = (Random real number between 4.00 and 20.00)
Set Variable Set KBA_DistancePerLevel = (Random real number between 150.00 and 850.00)
Set Variable Set KBA_SpecialEffects[1] = "Abilities\Spells\Human\FlakCannons\FlakTarget.mdl"
Set Variable Set KBA_SpecialEffects[2] = "Abilities\Weapons\AncientProtectorMissile\AncientProtectorMissile.mdl"
Set Variable Set KBA_DestroyTrees = "true"
Trigger - Run Cast_A_Knockback <gen> (checking conditions)
Cast A Knockback
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(KBA_TargetUnit is in KB_KnockbackedUnits.) Equal to True
Then - Actions
Unit Group - Remove KBA_TargetUnit from KB_KnockbackedUnits .
Set Variable Set KB_CountBuffs = (KB_CountBuffs - 1)
For each (Integer KB_GeneralIntegers[2] ) from 1 to KB_TotalKnockUnits , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
KB_Units[KB_GeneralIntegers[1]] Equal to KBA_TargetUnit
Then - Actions
Set Variable Set KB_GeneralIntegers[1] = KB_GeneralIntegers[2]
Set Variable Set KB_GeneralIntegers[2] = KB_TotalKnockUnits
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
KB_TotalKnockUnits Greater than KB_GeneralIntegers[1]
Then - Actions
Set Variable Set KB_Levels[KB_GeneralIntegers[1]] = KB_Levels[KB_TotalKnockUnits]
Set Variable Set KB_Units[KB_GeneralIntegers[1]] = KB_Units[KB_TotalKnockUnits]
Set Variable Set KB_Angle[KB_GeneralIntegers[1]] = KB_Angle[KB_TotalKnockUnits]
Set Variable Set KB_MaxDistance[KB_GeneralIntegers[1]] = KB_MaxDistance[KB_TotalKnockUnits]
Set Variable Set KB_ReachedDistance[KB_GeneralIntegers[1]] = KB_ReachedDistance[KB_TotalKnockUnits]
Set Variable Set KB_ReduceSpeedReal[KB_GeneralIntegers[1]] = KB_ReduceSpeedReal[KB_TotalKnockUnits]
Set Variable Set KB_SpecificSpeed[KB_GeneralIntegers[1]] = KB_SpecificSpeed[KB_TotalKnockUnits]
Set Variable Set KB_Effects_1[KB_GeneralIntegers[1]] = KB_Effects_1[KB_TotalKnockUnits]
Set Variable Set KB_Effects_2[KB_GeneralIntegers[1]] = KB_Effects_2[KB_TotalKnockUnits]
Set Variable Set KB_DestroyTrees[KB_GeneralIntegers[1]] = KB_DestroyTrees[KB_TotalKnockUnits]
Set Variable Set KB_EffectCounter[KB_GeneralIntegers[1]] = KB_EffectCounter[KB_TotalKnockUnits]
Set Variable Set KB_EffectCounter2[KB_GeneralIntegers[1]] = KB_EffectCounter2[KB_TotalKnockUnits]
Set Variable Set KB_GeneralIntegers[1] = (KB_GeneralIntegers[1] - 1)
Else - Actions
Set Variable Set KB_Units[KB_TotalKnockUnits] = No unit
Set Variable Set KB_TotalKnockUnits = (KB_TotalKnockUnits - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
KB_CountBuffs Equal to 0
Then - Actions
Set Variable Set KB_TotalKnockUnits = "0"
Trigger - Turn off Get_Knockback <gen>
Else - Actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
KB_CountBuffs Equal to 0
Then - Actions
Trigger - Turn on Get_Knockback <gen>
Else - Actions
Set Variable Set KB_CountBuffs = (KB_CountBuffs + 1)
Set Variable Set KB_TotalKnockUnits = (KB_TotalKnockUnits + 1)
Set Variable Set KB_Casters[KB_TotalKnockUnits] = KBA_Caster
Set Variable Set KB_Levels[KB_TotalKnockUnits] = KBA_Level
Set Variable Set KB_Units[KB_TotalKnockUnits] = KBA_TargetUnit
Set Variable Set KB_StartPositions[KB_TotalKnockUnits] = KBA_StartingPosition
Set Variable Set KB_TempPoint[KB_TotalKnockUnits] = (Position of KBA_TargetUnit)
Set Variable Set KB_Angle[KB_TotalKnockUnits] = (Angle from KB_StartPositions[KB_TotalKnockUnits] to KB_TempPoint[KB_TotalKnockUnits])
Set Variable Set KB_MaxDistance[KB_TotalKnockUnits] = (KBA_DistancePerLevel x (Real(KBA_Level)))
Set Variable Set KB_ReachedDistance[KB_TotalKnockUnits] = "0.00"
Set Variable Set KB_ReduceSpeedReal[KB_GeneralIntegers[1]] = "0.00"
Set Variable Set KB_SpecificSpeed[KB_TotalKnockUnits] = KBA_Speed
Set Variable Set KB_Effects_1[KB_TotalKnockUnits] = KBA_SpecialEffects[1]
Set Variable Set KB_Effects_2[KB_TotalKnockUnits] = KBA_SpecialEffects[2]
Set Variable Set KB_DestroyTrees[KB_TotalKnockUnits] = KBA_DestroyTrees
Set Variable Set KB_EffectCounter[KB_GeneralIntegers[1]] = "0"
Set Variable Set KB_EffectCounter2[KB_GeneralIntegers[1]] = "0"
Unit Group - Add KBA_TargetUnit to KB_KnockbackedUnits
Custom script: call RemoveLocation (udg_KBA_StartingPosition)
Custom script: call RemoveLocation (udg_KB_TempPoint [udg_KB_TotalKnockUnits] )
Custom script: call RemoveLocation (udg_KB_StartPositions [udg_KB_TotalKnockUnits] )
Get Knockback
Events
Time - Every 0.02 seconds of game time
Conditions
Actions
For each (Integer KB_GeneralIntegers[1] ) from 1 to KB_TotalKnockUnits , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(KB_Units[KB_GeneralIntegers[1]] is in KB_KnockbackedUnits.) Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
KB_ReachedDistance[KB_GeneralIntegers[1]] Greater than or equal to KB_MaxDistance[KB_GeneralIntegers[1]]
Then - Actions
Unit Group - Remove KB_Units[KB_GeneralIntegers[1]] from KB_KnockbackedUnits .
Set Variable Set KB_CountBuffs = (KB_CountBuffs - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
KB_TotalKnockUnits Greater than KB_GeneralIntegers[1]
Then - Actions
Set Variable Set KB_Levels[KB_GeneralIntegers[1]] = KB_Levels[KB_TotalKnockUnits]
Set Variable Set KB_Units[KB_GeneralIntegers[1]] = KB_Units[KB_TotalKnockUnits]
Set Variable Set KB_Angle[KB_GeneralIntegers[1]] = KB_Angle[KB_TotalKnockUnits]
Set Variable Set KB_MaxDistance[KB_GeneralIntegers[1]] = KB_MaxDistance[KB_TotalKnockUnits]
Set Variable Set KB_ReachedDistance[KB_GeneralIntegers[1]] = KB_ReachedDistance[KB_TotalKnockUnits]
Set Variable Set KB_ReduceSpeedReal[KB_GeneralIntegers[1]] = KB_ReduceSpeedReal[KB_TotalKnockUnits]
Set Variable Set KB_SpecificSpeed[KB_GeneralIntegers[1]] = KB_SpecificSpeed[KB_TotalKnockUnits]
Set Variable Set KB_Effects_1[KB_GeneralIntegers[1]] = KB_Effects_1[KB_TotalKnockUnits]
Set Variable Set KB_Effects_2[KB_GeneralIntegers[1]] = KB_Effects_2[KB_TotalKnockUnits]
Set Variable Set KB_DestroyTrees[KB_GeneralIntegers[1]] = KB_DestroyTrees[KB_TotalKnockUnits]
Set Variable Set KB_EffectCounter[KB_GeneralIntegers[1]] = KB_EffectCounter[KB_TotalKnockUnits]
Set Variable Set KB_EffectCounter2[KB_GeneralIntegers[1]] = KB_EffectCounter2[KB_TotalKnockUnits]
Set Variable Set KB_GeneralIntegers[1] = (KB_GeneralIntegers[1] - 1)
Else - Actions
Set Variable Set KB_Units[KB_TotalKnockUnits] = No unit
Set Variable Set KB_TotalKnockUnits = (KB_TotalKnockUnits - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
KB_CountBuffs Equal to 0
Then - Actions
Set Variable Set KB_TotalKnockUnits = "0"
Trigger - Turn off (This trigger)
Else - Actions
Else - Actions
Set Variable Set KB_ReducedReal = ((KB_SpecificSpeed[KB_GeneralIntegers[1]] / KB_MaxDistance[KB_GeneralIntegers[1]]) x KB_ReachedDistance[KB_GeneralIntegers[1]])
Set Variable Set KB_ReduceSpeedReal[KB_GeneralIntegers[1]] = (KB_ReducedReal - (KB_ReduceSpeedReal[KB_GeneralIntegers[1]] x 0.10))
Set Variable Set KB_TempReal = ((KB_SpecificSpeed[KB_GeneralIntegers[1]] - KB_ReduceSpeedReal[KB_GeneralIntegers[1]]) x 2.00)
Set Variable Set KB_TempPoint[1] = (Position of KB_Units[KB_GeneralIntegers[1]])
Set Variable Set KB_TempPoint[2] = (KB_TempPoint[1] offset by KB_TempReal towards KB_Angle[KB_GeneralIntegers[1]] degrees.)
Set Variable Set KB_EffectCounter[KB_GeneralIntegers[1]] = (KB_EffectCounter[KB_GeneralIntegers[1]] + 1)
Set Variable Set KB_EffectCounter2[KB_GeneralIntegers[1]] = (KB_EffectCounter2[KB_GeneralIntegers[1]] + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
KB_DestroyTrees[KB_GeneralIntegers[1]] Equal to True
Then - Actions
Destructible - Pick every destructible within 200.00 of KB_TempPoint[2] and do (Actions)
Loop - Actions
Destructible - Kill (Picked destructible)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
KB_EffectCounter[KB_GeneralIntegers[1]] Equal to 6
Then - Actions
Set Variable Set KB_EffectCounter[KB_GeneralIntegers[1]] = "0"
Special Effect - Create a special effect at KB_TempPoint[1] using KB_Effects_1[KB_GeneralIntegers[1]]
Special Effect - Destroy (Last created special effect)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
KB_EffectCounter2[KB_GeneralIntegers[1]] Equal to 8
Then - Actions
Set Variable Set KB_EffectCounter2[KB_GeneralIntegers[1]] = "0"
Special Effect - Create a special effect at KB_TempPoint[1] using KB_Effects_2[KB_GeneralIntegers[1]]
Special Effect - Destroy (Last created special effect)
Else - Actions
Unit - Move KB_Units[KB_GeneralIntegers[1]] instantly to KB_TempPoint[2]
Custom script: call RemoveLocation (udg_KB_TempPoint[1])
Custom script: call RemoveLocation (udg_KB_TempPoint[2])
Set Variable Set KB_ReachedDistance[KB_GeneralIntegers[1]] = (KB_ReachedDistance[KB_GeneralIntegers[1]] + KB_TempReal)
Else - Actions
South Revive
Events
Unit - A unit Dies
Conditions
Or - Any (Conditions) are true
Conditions
(Dying unit) Equal to Lycan Soccer Player 0004 <gen>
(Dying unit) Equal to Lycan Soccer Player 0005 <gen>
(Dying unit) Equal to Lycan Soccer Player 0006 <gen>
(Dying unit) Equal to Lycan Soccer Player 0007 <gen>
Actions
Game - Display to (All players) the text: ((Name of (Owner of (Dying unit))) + is injured, to be respawned after 5 seconds)
Wait 5.00 seconds
Hero - Instantly revive (Dying unit) at (Center of Lycan_Bench <gen>) , Show revival graphics
PsychoHookStraightCast
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Straight Psycho Hook
Actions
-------- Array slots are limited to 8192 --------
-------- We use a maximum of 100 dummys per cast --------
-------- So this spell shouldn't be casted more often then 80 times (lag would stop people from doing this anyway...) --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
PHMax Less than 80
Then - Actions
Set Variable Set loc = (Position of (Triggering unit))
Set Variable Set loc2 = (Target point of ability being cast)
-------- Increases the total ammount of hooks by one --------
Set Variable Set PHMax = (PHMax + 1)
-------- Sets the variables which are necessary --------
Set Variable Set PHCaster[PHMax] = (Triggering unit)
-------- Shall the hook return yet? No --------
Set Variable Set PHReturn[PHMax] = "false"
-------- How far did the hook travel yet? 0 --------
Set Variable Set PHDistance[(PHMax x 2)] = "0.00"
-------- How far shall it go? 1000 + 1000 per level --------
Set Variable Set PHDistance[((PHMax x 2) + 1)] = (((Real((Level of Impale for (Triggering unit)))) x 1000.00) + 1000.00)
-------- How fast will the hook travel forward? --------
Set Variable Set PHSpeed[(PHMax x 2)] = "20.00"
-------- And how fast back to the caster? --------
Set Variable Set PHSpeed[((PHMax x 2) + 1)] = "25.00"
-------- Straight or with an angle? --------
-------- Setting the angle to less then 0 will make the hook go straight like the normal dota hook --------
Set Variable Set PHAngle[PHMax] = "-1.00"
-------- This is the head of the hook --------
Unit - Create 1 PsychoHookDummy for (Owner of (Triggering unit)) at loc facing loc2
-------- It shall look a little different --------
Animation - Change (Last created unit) 's size to ( 250.00 %, 250.00 %, 250.00 %) of its original size
Set Variable Set PHSegment[(PHMax x 100)] = (Last created unit)
-------- We created one segment already (the first one) --------
Set Variable Set PHSegmentMax[PHMax] = "1"
-------- Creates a dummy to check if a destrutible is a tree --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
harvester Not equal to No unit
(harvester is alive) Equal to True
Then - Actions
Else - Actions
-------- You need a unit which is able to harvest --------
-------- Anything else does not matter --------
Unit - Create 1 . PsychoHookDummy for Neutral Passive at loc facing Default building facing degrees
Set Variable Set harvester = (Last created unit)
Unit - Make harvester Invulnerable
Unit - Hide (Last created unit)
-------- Runs the main trigger to deal with the movement and so on --------
Trigger - Turn on PsychoHookLoop <gen>
-------- Removes leaks --------
Custom script: call RemoveLocation( udg_loc )
Custom script: call RemoveLocation( udg_loc2 )
Else - Actions
Game - Display to (Player group((Triggering player))) the text: This Spell may not be casted more then 80 times at the same moment.
PsychoHookLoop
Events
Time - Every 0.03 seconds of game time
Conditions
Actions
-------- Declaration of some local variables so there is no need to waste space for global ones --------
Custom script: local real a = 0
Custom script: local unit u = null
Custom script: local unit u2 = null
-------- This trigger will be turned of if there is nothing to do --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
PHMax Less than 1
Then - Actions
Trigger - Turn off (This trigger)
Else - Actions
For each (Integer i ) from 1 to PHMax , do (Actions)
Loop - Actions
Custom script: set udg_PHDistance[udg_i*2] = udg_PHDistance[udg_i*2] + udg_PHSpeed[udg_i*2]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
PHCaster[i] Not equal to No unit
(PHCaster[i] is alive) Equal to True
Or - Any (Conditions) are true
Conditions
PHDistance[(i x 2)] Less than PHDistance[((i x 2) + 1)]
PHReturn[i] Equal to True
((Playable map area) contains PHSegment[(i x 100)]) Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
PHReturn[i] Equal to False
Then - Actions
-------- Moves the first one --------
Custom script: set u = udg_PHSegment[udg_i*100]
-------- "a" is the direction the first hook will travel along --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
PHAngle[i] Greater than or equal to 0.00
Then - Actions
Custom script: set a = GetUnitFacing( udg_PHCaster[udg_i] ) + udg_PHAngle[udg_i]
Else - Actions
Custom script: set a = GetUnitFacing( udg_PHSegment[udg_i*100] )
-------- This makes the first unit face where it's going --------
Custom script: call SetUnitFacing( u, a )
-------- This is called polar projection (it's the same as "point with polar offset" but with coordinates) --------
-------- The position of the first unit will be set to its position + (Cos for x and Sin for y of its facing angle) * speed --------
Custom script: call SetUnitX( u, GetUnitX( u ) + Cos( a * bj_DEGTORAD ) * udg_PHSpeed[udg_i*2] )
Custom script: call SetUnitY( u, GetUnitY( u ) + Sin( a * bj_DEGTORAD ) * udg_PHSpeed[udg_i*2] )
Set Variable Set loc = (Position of PHSegment[(i x 100)])
-------- Tree Killer Function --------
Destructible - Pick every destructible within 180.00 of loc and do (Actions)
Loop - Actions
-------- If the tree is not dead already --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked destructible) is alive) Equal to True
Then - Actions
-------- Moves the harvest dummy to the position of the picked destructable --------
Custom script: call SetUnitX(udg_harvester, GetWidgetX(GetEnumDestructable() ))
Custom script: call SetUnitY(udg_harvester, GetWidgetY(GetEnumDestructable() ))
-------- Orders the dummy to try to harvest the picked destructable --------
Unit - Order harvester to Harvest . (Picked destructible)
-------- If the dummy is able to harvest the picked destructable it must be a tree --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Current order of harvester) Equal to (Order(harvest))
Then - Actions
-------- Create some special effect --------
Set Variable Set loc2 = (Position of (Picked destructible))
Special Effect - Create a special effect at loc2 using Abilities\Weapons\DemolisherFireMissile\DemolisherFireMissile.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation( udg_loc2 )
-------- Kill the Tree --------
Destructible - Kill (Picked destructible)
Else - Actions
-------- Stops the dummy from going to the next tree after the previous one was killed --------
Unit - Order harvester to Stop .
Else - Actions
-------- Checks if a unit is within range --------
-------- The unit has to be: --------
-------- -non flying --------
-------- -not be a target yet --------
-------- -not be a target yet --------
-------- -not to be a structure --------
-------- -alive --------
-------- -hostile --------
Set Variable Set TempArrayGroup[i] = (Units within 180.00 of loc matching ((((Matching unit) is A flying unit) Equal to False) and ((((((Matching unit) is in PHTargetGroup.) Equal to False) and (((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 PHCaster[i]).) Equal to True))).)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(TempArrayGroup[i] is empty) Equal to False
Then - Actions
Set Variable Set PHTarget[i] = (Random unit from TempArrayGroup[i])
Unit Group - Add PHTarget[i] to PHTargetGroup
Set Variable Set PHDistance[((i x 2) + 1)] = "0.00"
Set Variable Set PHReturn[i] = "true"
-------- Set Damage here (Preset: 100 + 100 per level) --------
Unit - Cause PHCaster[i] to damage PHTarget[i] , dealing (((Real((Level of Impale for PHCaster[i]))) x 100.00) + 100.00) damage of attack type Spells and damage type Normal
-------- Impact Effect --------
Special Effect - Create a special effect attached to the chest (Unexpected type: 'attachpoint') of PHTarget[i] using Abilities\Spells\Undead\OrbOfDeath\OrbOfDeathMissile.mdl
Special Effect - Destroy (Last created special effect)
Else - Actions
Custom script: call DestroyGroup( udg_TempArrayGroup[udg_i] )
Custom script: call RemoveLocation( udg_loc )
-------- Change distance between segments here (Preset: 75 ) --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
PHSegmentMax[i] Less than 101
PHSegmentMax[i] Less than or equal to ((Integer(PHDistance[(i x 2)])) / 75)
Then - Actions
Set Variable Set loc = (Position of PHCaster[i])
Set Variable Set loc2 = (Position of PHSegment[((i x 100) + (PHSegmentMax[i] - 1))])
-------- Other hook dummys are created --------
Unit - Create 1 PsychoHookDummy for (Owner of PHCaster[i]) at loc facing loc2
Custom script: call RemoveLocation( udg_loc )
Custom script: call RemoveLocation( udg_loc2 )
Set Variable Set PHSegment[((i x 100) + PHSegmentMax[i])] = (Last created unit)
Set Variable Set PHSegmentMax[i] = (PHSegmentMax[i] + 1)
Else - Actions
-------- Other hook dummys are moved --------
Custom script: set u2 = udg_PHSegment[udg_i*100]
For each (Integer i2 ) from 1 to PHSegmentMax[i] , do (Actions)
Loop - Actions
Custom script: set u = udg_PHSegment[ udg_i * 100 + udg_i2 ]
-------- This calculates the angle between a segment and the segment behind it --------
Custom script: set a = Atan2( GetUnitY(u2) - GetUnitY(u), GetUnitX(u2) - GetUnitX(u) )
Custom script: call SetUnitX( u, GetUnitX(u) + Cos(a) * udg_PHSpeed[udg_i*2] )
Custom script: call SetUnitY( u, GetUnitY(u) + Sin(a) * udg_PHSpeed[udg_i*2] )
-------- bj_RADTODEG is used to change radiants to degrees --------
Custom script: call SetUnitFacing( u, a *bj_RADTODEG )
Custom script: set u2 = u
Else - Actions
-------- Same the other way round --------
Custom script: set u2 = udg_PHCaster[udg_i]
Set Variable Set loc = (Position of PHCaster[i])
For each (Integer i2 ) from 1 to PHSegmentMax[i] , do (Actions)
Loop - Actions
Custom script: set u = udg_PHSegment[ udg_i * 100 + ( udg_PHSegmentMax[udg_i] - udg_i2 ) ]
Custom script: set a = Atan2( GetUnitY(u2) - GetUnitY(u), GetUnitX(u2) - GetUnitX(u) )
Custom script: call SetUnitX( u, GetUnitX(u) + Cos(a) * udg_PHSpeed[udg_i*2+1] )
Custom script: call SetUnitY( u, GetUnitY(u) + Sin(a) * udg_PHSpeed[udg_i*2+1] )
Custom script: if udg_PHCaster[udg_i] != u2 then
Custom script: call SetUnitFacing(u2, a*bj_RADTODEG+180)
Custom script: endif
Custom script: set u2 = u
-------- Checks if the distance ^ 2 between the target and the caster is very small --------
Custom script: if 25000>Pow(GetUnitX(u2)-GetUnitX(udg_PHCaster[udg_i]), 2)+Pow(GetUnitY(u2)-GetUnitY(udg_PHCaster[udg_i]), 2)then
-------- Hides the segment --------
Custom script: call ShowUnit(u2,false)
Custom script: endif
Custom script: call RemoveLocation( udg_loc )
-------- Target is moved to the first/last hook (however you'd like to call it now) --------
Custom script: set u = udg_PHTarget[udg_i]
Custom script: set u2 = udg_PHSegment[udg_i*100]
Custom script: call SetUnitX( u, GetUnitX( u2 ) )
Custom script: call SetUnitY( u, GetUnitY( u2 ) )
Set Variable Set loc = (Position of PHTarget[i])
-------- Killing trees again --------
Destructible - Pick every destructible within 180.00 of loc and do (Actions)
Loop - Actions
-------- If the tree is not dead already --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked destructible) is alive) Equal to True
Then - Actions
-------- Moves the harvest dummy to the position of the picked destructable --------
Custom script: call SetUnitX(udg_harvester, GetWidgetX(GetEnumDestructable() ))
Custom script: call SetUnitY(udg_harvester, GetWidgetY(GetEnumDestructable() ))
-------- Orders the dummy to try to harvest the picked destructable --------
Unit - Order harvester to Harvest . (Picked destructible)
-------- If the dummy is able to harvest the picked destructable it must be a tree --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Current order of harvester) Equal to (Order(harvest))
Then - Actions
-------- Create some special effect --------
Set Variable Set loc2 = (Position of (Picked destructible))
Special Effect - Create a special effect at loc2 using Abilities\Weapons\DemolisherFireMissile\DemolisherFireMissile.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation( udg_loc2 )
-------- Kill the Tree --------
Destructible - Kill (Picked destructible)
Else - Actions
-------- Stops the dummy from going to the next tree after the previous one was killed --------
Unit - Order harvester to Stop .
Else - Actions
-------- Stop if the target vanishes or reached the caster --------
Set Variable Set loc2 = (Position of PHCaster[i])
-------- Delete the "IsAlive?-Thing" to make this skill pull dead units --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(PHTarget[i] is alive) Equal to True
PHTarget[i] Not equal to No unit
(Distance between loc and loc2) Greater than 64.00
Then - Actions
Else - Actions
Set Variable Set PHReturn[i] = "false"
Custom script: call RemoveLocation( udg_loc )
Custom script: call RemoveLocation( udg_loc2 )
Else - Actions
-------- Clean up and sort array slots --------
For each (Integer i2 ) from 0 to 99 , do (Actions)
Loop - Actions
Unit - Unhide PHSegment[((i x 100) + i2)]
Unit - Kill PHSegment[((i x 100) + i2)]
Set Variable Set PHSegment[((i x 100) + i2)] = PHSegment[((PHMax x 100) + i2)]
-------- So it won't waste space until the slots are used again --------
-------- Usually I don't do that but for such an ammount of units it seems appropriate --------
Set Variable Set PHSegment[((PHMax x 100) + i2)] = No unit
Unit Group - Remove PHTarget[i] from PHTargetGroup .
Set Variable Set PHCaster[i] = PHCaster[PHMax]
Set Variable Set PHTarget[i] = PHTarget[PHMax]
Set Variable Set PHDistance[(i x 2)] = PHDistance[(PHMax x 2)]
Set Variable Set PHDistance[((i x 2) + 1)] = PHDistance[((PHMax x 2) + 1)]
Set Variable Set PHSpeed[(i x 2)] = PHSpeed[(PHMax x 2)]
Set Variable Set PHSpeed[((i x 2) + 1)] = PHSpeed[((PHMax x 2) + 1)]
Set Variable Set PHAngle[i] = PHAngle[PHMax]
Set Variable Set PHReturn[i] = PHReturn[PHMax]
Set Variable Set PHSegmentMax[i] = PHSegmentMax[PHMax]
Set Variable Set PHMax = (PHMax - 1)
Set Variable Set i = (i - 1)
-------- Clean leaks --------
Custom script: set u = null
Custom script: set u2 = null
Multiboard Start
Events
Time - Elapsed game time is 0.10 seconds
Conditions
Actions
Leaderboard - Create a leaderboard for (All players) titled Score
Leaderboard - Add Player 5 (Yellow) to (Last created leaderboard) with label Home and value 0
Leaderboard - Add Player 10 (Light Blue) to (Last created leaderboard) with label Guest and value 0
LoL
Events
Time - Every 2 seconds of game time
Conditions
Actions
Leaderboard - Change the value for Player 5 (Yellow) in (Last created leaderboard) to Score[1]
Leaderboard - Change the value for Player 10 (Light Blue) in (Last created leaderboard) to Score[2]
North
Events
Unit - A unit enters Goal_West <gen>
Conditions
(Entering unit) Equal to Ball
Actions
Game - Display to (All players) the text: Vampire team just got a Score!!Ball will be resummoned within 10 seconds
Unit - Remove Ball from the game
Set Variable Set Score[1] = (Score[1] + 1)
Wait 10.00 seconds
Game - Display to (All players) the text: |cffffcc00The ball is back at the Centerline!!
Unit - Create 1 . Ball for Player 11 (Dark Green) at (Center of Center <gen>) facing Default building facing degrees
Set Variable Set Ball = (Last created unit)
South
Events
Unit - A unit enters Goal_East <gen>
Conditions
(Entering unit) Equal to Ball
Actions
Game - Display to (All players) the text: Lycan Team just got a score!Ball will be resummoned within 10 seconds
Unit - Remove Ball from the game
Set Variable Set Score[2] = (Score[2] + 1)
Wait 10.00 seconds
Game - Display to (All players) the text: |cffffcc00The ball is back at the Centerline!!
Unit - Create 1 . Ball for Player 11 (Dark Green) at (Center of Center <gen>) facing Default building facing degrees
Set Variable Set Ball = (Last created unit)
Finally its 15
Events
Time - Every 0.01 seconds of game time
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Score[1] Equal to 15
Then - Actions
Game - Display to (All players) the text: Vampire Team (Bloodsoccers) has won the match!
Unit - Pause all units
Trigger - Turn off (This trigger)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Score[2] Equal to 15
Then - Actions
Game - Display to (All players) the text: Lycan Team (Silverfangs) has won the match!
Unit - Pause all units
Trigger - Turn off (This trigger)
Else - Actions
Fireworks West Goal
Events
Time - Every 0.40 seconds of game time
Conditions
Actions
Special Effect - Create a special effect at (Random point in Goal_West <gen>) using Abilities\Spells\Human\Flare\FlareTarget.mdl
Special Effect - Destroy (Last created special effect)
Fireworks East Goal
Events
Time - Every 0.40 seconds of game time
Conditions
Actions
Special Effect - Create a special effect at (Random point in Goal_East <gen>) using Abilities\Spells\Human\Flare\FlareTarget.mdl
Special Effect - Destroy (Last created special effect)
West Victory
Events
Conditions
Actions
Trigger - Run Finally_its_15 <gen> (checking conditions)
Trigger - Turn off Finally_its_15 <gen>
Game - Display to (All allies of Player 1 (Red).) for 30 seconds the text: |cffffcc00Congratulations!|r|cffff0000West Team|r wins the game!
Game - Display to (All enemies of Player 1 (Red).) for 30 seconds the text: |cffffcc00Game over.|r|cffff0000West Team|r wins the game!
Wait 2 seconds
Player Group - Pick every player in (All players) and do (.Apply. gg_cam_Endgame_Rotating_Camera for (Picked player) over 0 seconds)
Wait 0.05 seconds
Sound - Play (Last played sound)
Player Group - Pick every player in (All players) and do (Rotate camera 720.00 degrees around (Center of Center <gen>) for (Picked player) over 120.00 seconds)
Cinematic - Enable user control for (All players) .
Wait 120.00 seconds
Player Group - Pick every player in (All allies of Player 1 (Red).) and do (Victory (Picked player) (Show dialogs, Show scores))
Player Group - Pick every player in (All enemies of Player 1 (Red).) and do (Defeat (Picked player) with the message: Defeat!)
Game - Victory Player 1 (Red) ( Show dialogs, Show scores)
Game - Victory Player 2 (Blue) ( Show dialogs, Show scores)
Game - Victory Player 3 (Teal) ( Show dialogs, Show scores)
Game - Victory Player 4 (Purple) ( Show dialogs, Show scores)
Game - Victory Player 5 (Yellow) ( Show dialogs, Show scores)
Game - Defeat Player 6 (Orange) with the message: Defeat!
Game - Defeat Player 7 (Green) with the message: Defeat!
Game - Defeat Player 8 (Pink) with the message: Defeat!
Game - Defeat Player 9 (Gray) with the message: Defeat!
Game - Defeat Player 10 (Light Blue) with the message: Defeat!
East Victory
Events
Conditions
Actions
Trigger - Run Finally_its_15 <gen> (checking conditions)
Trigger - Turn off Finally_its_15 <gen>
Game - Display to (All allies of Player 1 (Red).) for 30 seconds the text: |cffffcc00Game over.|r|cff0000ffEast Team|r wins the game!
Game - Display to (All enemies of Player 1 (Red).) for 30 seconds the text: |cffffcc00Congratulations!|r|cff0000ffEast Team|r wins the game!
Wait 2 seconds
Player Group - Pick every player in (All players) and do (.Apply. gg_cam_Endgame_Rotating_Camera for (Picked player) over 0 seconds)
Wait 0.05 seconds
Sound - Play (Last played sound)
Player Group - Pick every player in (All players) and do (Rotate camera 720.00 degrees around (Center of Center <gen>) for (Picked player) over 120.00 seconds)
Cinematic - Enable user control for (All players) .
Wait 120.00 seconds
Player Group - Pick every player in (All enemies of Player 1 (Red).) and do (Victory (Picked player) (Show dialogs, Show scores))
Player Group - Pick every player in (All allies of Player 1 (Red).) and do (Defeat (Picked player) with the message: Defeat!)
Game - Defeat Player 1 (Red) with the message: Defeat!
Game - Defeat Player 2 (Blue) with the message: Defeat!
Game - Defeat Player 3 (Teal) with the message: Defeat!
Game - Defeat Player 4 (Purple) with the message: Defeat!
Game - Defeat Player 5 (Yellow) with the message: Defeat!
Game - Victory Player 6 (Orange) ( Show dialogs, Show scores)
Game - Victory Player 7 (Green) ( Show dialogs, Show scores)
Game - Victory Player 8 (Pink) ( Show dialogs, Show scores)
Game - Victory Player 9 (Gray) ( Show dialogs, Show scores)
Game - Victory Player 10 (Light Blue) ( Show dialogs, Show scores)
Player never in game
Events
Map initialization
Conditions
Actions
For each (Integer A) from 1 to 12 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Player((Integer A))) slot status) Not equal to Is playing
Then - Actions
Unit - Remove Unit_Identifier_For_Player[(Integer A)] from the game
If (DEBUG Equal to True) then do (Display to (All players) the text: (((Player + (String((Integer A)))) + not playing; ) + ((T1 = + (String(Number_of_players_on_West_team))) + ((; T2 = + (String(Number_of_players_on_East_team))) + (; Total = + (String(Number_of_players_in_game))))))) else do (Do nothing)
Else - Actions
Drop Gold
Events
Time - Every 5.00 seconds of game time
Conditions
Actions
Set Variable Set Gold_Spawn_Loc = (Random point in Playable_Field <gen>)
Special Effect - Create a special effect at Gold_Spawn_Loc using Abilities\Spells\Other\Transmute\PileofGold.mdl
Special Effect - Destroy (Last created special effect)
Cinematic - Ping minimap for (All players) at Gold_Spawn_Loc for 1 seconds, using a Simple ping of color ( 100 %, 80.00 %, 0.00 %)
Wait 0.30 seconds
Item - Create Gold Coins at Gold_Spawn_Loc
dl
Events
Time - Every 300.00 seconds of game time
Conditions
Actions
Game - Display to (All players) the text: For bug reports and balance checks, e-mail [email protected].
dl Copy
Events
Time - Every 600.00 seconds of game time
Conditions
Actions
Game - Display to (All players) the text: If you have any comments, suggestions, questions, or violent reactions, just contact me at [email protected] and the Blood Lily Games will be more than happy to help.
Credits
Events
Time - Every 400.00 seconds of game time
Conditions
Actions
Game - Display to (All players) the text: Original version created by LieroBoy. Lycan Soccer Player model created by jigrael.
dL2
Events
Time - Every 275.00 seconds of game time
Conditions
Actions
Game - Display to (All players) the text: Transylvanian Crossfire Soccer is an edited version of LieroBoy's Pudge VS Zerg Soccer game. This release by Blood Lily Games is illegitimate and does not hold any copyright.
Movespeed
Events
Player - Player 1 (Red) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 1 (Red) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 2 (Blue) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 3 (Teal) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 4 (Purple) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 5 (Yellow) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 6 (Orange) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 8 (Pink) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 9 (Gray) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 10 (Light Blue) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 11 (Dark Green) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 12 (Brown) types a chat message containing -ms (Unexpected type: 'stringnoformat') as An exact match
Player - Player 1 (Red) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 2 (Blue) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 3 (Teal) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 4 (Purple) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 5 (Yellow) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 6 (Orange) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 8 (Pink) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 9 (Gray) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 10 (Light Blue) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 11 (Dark Green) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Player - Player 12 (Brown) types a chat message containing -movespeed (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
Set Variable Set All_Player_Units = (Units owned by (Triggering player) matching (((Matching unit) is A Hero) Equal to True).)
Unit Group - Pick every unit in All_Player_Units and do (Actions)
Loop - Actions
Game - Display to (Player group((Triggering player))) the text: (Movespeed is + (String((Current movement speed of (Triggering unit)))))
Top