• 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

Blood Crafters Alpha 3.00.w3x
Variables
Scrape
Red Craftbroad
---------------------------
Lancer Copy
---------------------------
Red Melee Forge Copy
Red Ranged Forge Copy
Red Magic Forge Copy
General
Intialization
Basic Start
Level Gain
Arcane Bond
Item Clean Up
Unit Enterence
Craft Death
PVE
Run Waves
Wave I
PVP
Last Man Standing
Casting Exp
Basic Summons Exp
Unit Experience
Redo-agian...
Honor Veteran
Honor Destroyer
Honor Immortal
Honor Magical Adept
---------------------------
Attacks and Hits
Ability Uses
Kills
Blood Works
Set Blood Works Index
Create Blood Works
Set Player Blood Works
Set Skill Points
Set Player Craft INCOMPLETE
---------------------------
Switch Crafter
Switch Melee
Switch Magic
Switch Ranged
Blood Work
Advancement
Learn Melee
Learn Magic
Learn Ranged
Bloodmuting
Lancer
Swordsman
Ranger
Priest
War Mage
Guardain
Red
Red Select
Red Point Bloods Gain
---------------------------
Red Melee Forge
Red Ranged Forge
Red Magic Forge
Blue
Blue Select
Blue Point Bloods Gain
---------------------------
Blue Melee Forge
Blue Ranged Forge
Blue Magic Forge
Teal
Teal Select
Teal Point Bloods Gain
---------------------------
Teal Melee Forge
Teal Ranged Forge
Teal Magic Forge
Purple
Purple Select
Pruple Point Bloods Gain
---------------------------
Purple Melee Forge
Purple Ranged Forge
Purple Magic Forge
Yellow
Yellow Select
Orange
Orange Select
Green
Green Select
Pink
Pink Select
Gray
Gray Select
Light Blue
Light Blue Select
Dark Green
Dark Green Select
Brown
Brown Select
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
aRed_Cast_Level integer No
aRed_Flex_Cap integer No
aRed_Flex_Value integer No
aRed_Kills integer No
aRed_Mana_Mod real No
aRed_Max_Cast integer No
aRed_Unit_Max integer No
aRed_Units group No
bBlue_Cast_Level integer No
bBlue_Flex_Cap integer No
bBlue_Flex_Value integer No
bBlue_Kills integer No
bBlue_Mana_Mod real No
bBlue_Max_Cast integer No
bBlue_Unit_Max integer No
bBlue_Units group No
cTeal_Cast_Level integer No
cTeal_Flex_Cap integer No
cTeal_Flex_Value integer No
cTeal_Kills integer No
cTeal_Mana_Mod real No
cTeal_Max_Cast integer No
cTeal_Unit_Max integer No
cTeal_Units group No
dPurple_Cast_Level integer No
dPurple_Flex_Cap integer No
dPurple_Flex_Value integer No
dPurple_Kills integer No
dPurple_Mana_Mod real No
dPurple_Max_Cast integer No
dPurple_Unit_Max integer No
dPurple_Units group No
Spawn_Protection group No
Temp_Point location No
vaaActual_Players force No
vaaAlive_Crafter group No
vaaEnlightented group No
vaRed_Blood_Crafter unit No
vbBlue_Blood_Crafter unit No
vcTeal_Blood_Crafter unit No
vdPurple_Blood_Crafter unit No
wBase_Exp_Value integer No 10
wBase_Mana_Cost real No 14.00
wBloodmute_Base_Mana real No 20.00
wBloodmute_Cast_Mana real No
wCast_Experience_Modifier real No
xKills_Per_Point integer No 5
xReal real No
xThreshold integer No
yRank_I real No 30.00
yRank_II real No 100.00
yRank_III real No 325.00
yRank_IV real No 800.00
yRank_V real No 1125.00
zaaBlood_Works unit Yes
zaBlood_Works_Red unit No
zbBlood_Works_Blue unit No
zcBlood_Works_Teal unit No
zdBlood_Works_Purple unit No
zeBlood_Works_Yellow unit No
zfBlood_Works_Orange unit No
zgBlood_Works_Green unit No
zhBlood_Works_Pink unit No
ziBlood_Works_Gray unit No
zjBlood_Works_Light_Blue unit No
zkBlood_Works_Dark_Green unit No
zlBlood_Works_Brown unit No
Red Craftbroad
Events
Time - Elapsed game time is 1.00 seconds
Conditions
Actions
Multiboard - Create a multiboard with 3 columns and 2 rows, titled Blood Craft .
Set Variable Set = (Last created multiboard)
Multiboard - Set the text for item in column 1 , row 1 to
Multiboard - Set the width for item in column 1 , row 1 to 5.00 % of the total screen width
Multiboard - Set the text for item in column 2 , row 1 to Unit Cap
Multiboard - Set the width for item in column 2 , row 1 to 5.00 % of the total screen width
Multiboard - Set the text for item in column 3 , row 1 to Number
Multiboard - Set the width for item in column 3 , row 1 to 5.00 % of the total screen width
Multiboard - Set the text for item in column 2 , row 2 to (String(aRed_Unit_Max))
Multiboard - Set the text for item in column 3 , row 2 to
Multiboard - Set the text for item in column 1 , row 2 to Melee
Multiboard - Set the width for item in column 1 , row 2 to 7.30 % of the total screen width
Multiboard - Set the icon for item in column 1 , row 2 to ReplaceableTextures\CommandButtons\BTNDaggerOfEscape.blp
For each (Integer B) from 2 to 4 , do (Actions)
Loop - Actions
For each (Integer A) from 2 to 3 , do (Actions)
Loop - Actions
Multiboard - Set the display style for item in column (Integer A) , row (Integer B) to Show text and Hide icons
For each (Integer A) from 1 to 3 , do (Actions)
Loop - Actions
Multiboard - Set the display style for item in column (Integer A) , row 1 to Show text and Hide icons
Multiboard - Show
Lancer Copy
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to Bloodmute Melee Base Lancer
Actions
Set Variable Set wBloodmute_Cast_Mana = (wBloodmute_Base_Mana x (1 - ((Real((Max research level of R00Z (Unexpected type: 'techcode') for (Owner of (Casting unit))))) x 0.03)))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Mana of (Casting unit)) Less than wBloodmute_Cast_Mana
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Insufficient mana to forge a blood work.|r
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Target unit of ability being cast)) Not equal to Blade
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Cannot Bloodmute that type of blood work.|r
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Target unit of ability being cast)) Equal to Blade
Then - Actions
Wait 0.50 seconds
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - wBloodmute_Cast_Mana)
Unit - Replace (Target unit of ability being cast) with a Lancer using The old unit's relative life and mana
Hero - Add ((wBase_Exp_Value x (1 + ((Integer(0.10)) x (Current research level of R00Z (Unexpected type: 'techcode') for (Owner of (Casting unit)))))) x 1) experience to (Casting unit) , Show level-up graphics
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of (Last replaced unit) using Abilities\Spells\Orc\Voodoo\VoodooAuraTarget.mdl
Wait 1.25 seconds
Special Effect - Destroy (Last created special effect)
Else - Actions
Red Melee Forge Copy
Events
Unit - A unit Begins casting an ability
Conditions
(Owner of (Casting unit)) Equal to Player 1 (Red)
(Ability being cast) Equal to Forge Melee
Actions
Set Variable Set aRed_Max_Cast = ((Integer((Mana of (Casting unit)))) / (2 + 0))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Insufficient mana to forge a blood work.|r
Skip remaining actions
Else - Actions
Set Variable Set aRed_Flex_Cap = (Agility of (Casting unit) (Include bonuses))
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 1).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Melee for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 2).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Ranged for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 3).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Magic for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 1).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in aRed_Units) Greater than or equal to ((Level of Forge Melee for (Casting unit)) x 2)
aRed_Flex_Cap Greater than 0
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Flex_Cap
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Melee for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Melee for (Casting unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Melee for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - (Real((0 + (aRed_Cast_Level x 2)))))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Melee for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - (Real((0 + (aRed_Cast_Level x 2)))))
Skip remaining actions
Else - Actions
Set Variable Set aRed_Unit_Max = ((Level of Forge Melee for (Casting unit)) x 2)
Set Variable Set aRed_Cast_Level = (aRed_Unit_Max - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Less than or equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Cannot support another blood work of that type.|r
Unit Group - Remove all units from aRed_Units .
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Melee for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Melee for (Casting unit))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than 12
Then - Actions
Set Variable Set aRed_Cast_Level = "12"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Melee for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - (Real((0 + (aRed_Cast_Level x 2)))))
Unit Group - Remove all units from aRed_Units .
Red Ranged Forge Copy
Events
Unit - A unit Begins casting an ability
Conditions
(Owner of (Casting unit)) Equal to Player 1 (Red)
(Ability being cast) Equal to Forge Ranged
Actions
Set Variable Set aRed_Max_Cast = ((Integer((Mana of (Casting unit)))) / (2 + 0))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Insufficient mana to forge a blood work.|r
Skip remaining actions
Else - Actions
Set Variable Set aRed_Flex_Cap = (Agility of (Casting unit) (Include bonuses))
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 1).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Melee for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 2).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Ranged for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 3).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Magic for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 2).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in aRed_Units) Greater than or equal to ((Level of Forge Ranged for (Casting unit)) x 2)
aRed_Flex_Cap Greater than 0
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Flex_Cap
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Ranged for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Ranged for (Casting unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Ranged for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - (Real((0 + (aRed_Cast_Level x 2)))))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Ranged for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - (Real((0 + (aRed_Cast_Level x 2)))))
Skip remaining actions
Else - Actions
Set Variable Set aRed_Unit_Max = ((Level of Forge Ranged for (Casting unit)) x 2)
Set Variable Set aRed_Cast_Level = (aRed_Unit_Max - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Less than or equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Cannot support another blood work of that type.|r
Unit Group - Remove all units from aRed_Units .
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Ranged for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Ranged for (Casting unit))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than 12
Then - Actions
Set Variable Set aRed_Cast_Level = "12"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Ranged for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - (Real((0 + (aRed_Cast_Level x 2)))))
Unit Group - Remove all units from aRed_Units .
Red Magic Forge Copy
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to Forge Magic
(Owner of (Casting unit)) Equal to Player 1 (Red)
Actions
Set Variable Set aRed_Max_Cast = ((Integer((Mana of (Casting unit)))) / (2 + 0))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Insufficient mana to forge a blood work.|r
Skip remaining actions
Else - Actions
Set Variable Set aRed_Flex_Cap = (Agility of (Casting unit) (Include bonuses))
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 1).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Melee for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 2).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Ranged for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 3).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Magic for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 3).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in aRed_Units) Greater than or equal to ((Level of Forge Magic for (Casting unit)) x 2)
aRed_Flex_Cap Greater than 0
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Flex_Cap
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Magic for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Magic for (Casting unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Magic for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - (Real((0 + (aRed_Cast_Level x 2)))))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Magic for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - (Real((0 + (aRed_Cast_Level x 2)))))
Skip remaining actions
Else - Actions
Set Variable Set aRed_Unit_Max = ((Level of Forge Magic for (Casting unit)) x 2)
Set Variable Set aRed_Cast_Level = (aRed_Unit_Max - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Less than or equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Cannot support another blood work of that type.|r
Unit Group - Remove all units from aRed_Units .
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Magic for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Magic for (Casting unit))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than 12
Then - Actions
Set Variable Set aRed_Cast_Level = "12"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Magic for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - (Real((0 + (aRed_Cast_Level x 2)))))
Unit Group - Remove all units from aRed_Units .
Intialization
Events
Map initialization
Conditions
Actions
Quest - Create a Optional quest titled Credits with the description Thanks to:(models)DevineArmyElenaiGeneral FrankJetFangInfernoNorinradSkizzik(Icons)Deathclaw24debodeLiOneSSSophoAll of it can be found at Hiveworkshop.com , using icon path ReplaceableTextures\CommandButtons\BTNTomeBrown.blp
Quest - Create a Required quest titled Tip: Basics with the description Start by customizing your summons or blood works. Do this hitting by "F2" or selecting the second hero icon; unless it has been disabled. You can put Blood Points into the aspects of the three basic class types, Melee, Ranged, or Magic. By default Blood Works the is on melee aspects change the Blood Works type at the bottom of it. , using icon path ReplaceableTextures\CommandButtons\BTNSelectHeroOn.blp
Quest - Create a Required quest titled Tip: The Bond with the description Your blood craft make not break now just standing around, but that doesn't mean that they are stable. Be careful about how far your craft is from the Blood Crafter they do not do well outside of the effect Arcane Bond. They tend to die rather quickly without it. , using icon path ReplaceableTextures\CommandButtons\BTNSelectHeroOn.blp
Quest - Create a Required quest titled Tip: Blood Points with the description Blood Points, you want them. They are used to advance different aspects of your blood works. They are gained through the blood shed. If setting allow, they can be also be bought at a Magic Vault. , using icon path ReplaceableTextures\CommandButtons\BTNSelectHeroOn.blp
Quest - Create a Required quest titled Tip: Hotkeys with the description Nearly everything in this map is hot-keyed. All hot-keys can be hit be leaving your fingers on "ASDF". Icons are placement with some relativity to where their hot-key is on the keyboard, sorry if you don't have QWERTY keyboard. , using icon path ReplaceableTextures\CommandButtons\BTNSelectHeroOn.blp
Player Group - Pick every player in (All players) and do (Actions)
Loop - Actions
Visibility - Create an initially Enabled visibility modifier for (Picked player) emitting Visibility from (Center of (Playable map area)) to a radius of 800.00 .
Basic Start
Events
Time - Elapsed game time is 0.50 seconds
Conditions
Actions
Set Variable Set vaaActual_Players = (All players matching ((((Matching player) controller) Equal to User) and (((Matching player) slot status) Equal to Is playing)).)
Set Variable Set Temp_Point = (Center of (Playable map area))
Player Group - Pick every player in vaaActual_Players and do (Actions)
Loop - Actions
Player - Turn Gives bounty On for (Picked player)
Unit - Create 1 Blood Crafter for (Picked player) at ((Picked player) start location) facing (Center of (Playable map area))
Player - Set (Picked player) . Current lumber to 8
Selection - Select (Last created unit) for (Picked player)
Unit Group - Add (Last created unit) to vaaAlive_Crafter
Unit Group - Pick every unit in vaaAlive_Crafter and do (Actions)
Loop - Actions
Hero - Modify unspent skill points of (Picked unit) : Add 2 points
Unit - Set level of Arcane Bond for (Picked unit) to 1
Trigger - Run Create_Blood_Works <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in vaaActual_Players) Equal to 1
Then - Actions
Skip remaining actions
Else - Actions
Trigger - Turn on Last_Man_Standing <gen>
Level Gain
Events
Unit - A unit Gains a level
Conditions
Actions
Unit - Increase level of Arcane Bond for (Leveling Hero)
Arcane Bond
Events
Time - Every 0.50 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in (Units in (Playable map area)) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) has buff Unholy Aura) Equal to True
((Picked unit) is A Hero) Equal to False
(Point-value of (Picked unit)) Less than 10
((Picked unit) is A structure) Equal to False
Then - Actions
Unit - Remove Life Degeneration from (Picked unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) has buff Unholy Aura) Equal to False
((Picked unit) is A Hero) Equal to False
(Point-value of (Picked unit)) Less than 10
((Picked unit) is A structure) Equal to False
((Picked unit) is in Spawn_Protection.) Equal to False
Then - Actions
Unit - Add Life Degeneration to (Picked unit)
Else - Actions
Item Clean Up
Events
Time - Every 0.50 seconds of game time
Conditions
Actions
Item - Pick every item in (Playable map area) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-class of (Picked item)) Equal to Artifact
Then - Actions
Item - Remove (Picked item)
Else - Actions
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Unit_Enterence_Conditions takes nothing returns boolean
    if ( not ( GetUnitPointValue(GetEnteringUnit()) < 4 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Spawn_Heal_Actions takes nothing returns nothing
    local unit SM = GetEnteringUnit()
    call GroupAddUnitSimple( SM, udg_Spawn_Protection )
    call TriggerSleepAction( 1.00 )
    call GroupRemoveUnitSimple( SM, udg_Spawn_Protection )
    call UnitAddItemByIdSwapped( 'I00B', SM )
    call UnitAddItemByIdSwapped( 'I00C', SM )
    call UnitAddItemByIdSwapped( 'I00E', SM )
    call UnitAddItemByIdSwapped( 'I00D', SM )
endfunction

//===========================================================================
function InitTrig_Unit_Enterence takes nothing returns nothing
    set gg_trg_Unit_Enterence = CreateTrigger(  )
    call TriggerRegisterEnterRectSimple( gg_trg_Unit_Enterence, GetPlayableMapRect() )
    call TriggerAddCondition( gg_trg_Unit_Enterence, Condition( function Trig_Unit_Enterence_Conditions ) )
    call TriggerAddAction( gg_trg_Unit_Enterence, function Trig_Spawn_Heal_Actions )
endfunction
Craft Death
Events
Unit - A unit Dies
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Crafter
Actions
Unit Group - Remove (Triggering unit) from vaaAlive_Crafter .
Visibility - Create an initially Enabled visibility modifier for (Owner of (Dying unit)) emitting Visibility across (Playable map area)
Unit Group - Pick every unit in (Units in (Playable map area) owned by (Owner of (Triggering unit))) and do (Actions)
Loop - Actions
Unit - Kill (Picked unit)
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Unit_Count takes nothing returns boolean
        if ( not ( GetPlayerState(Player(PLAYER_NEUTRAL_AGGRESSIVE), PLAYER_STATE_RESOURCE_FOOD_USED) <= 4 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Run_Waves_Actions takes nothing returns nothing
    call DisplayTimedTextToForce( GetPlayersAll(), 10.00, "Defend the |cffFF0000Blood Well|r! 
(You 90 second to ready yourselves)" )
    call TriggerSleepAction( 50.00 )
    call DisplayTimedTextToForce( GetPlayersAll(), 5.00, "30 seconds till first wave." )
    call TriggerSleepAction( 20.00 )
    call DisplayTimedTextToForce( GetPlayersAll(), 5.00, "Wave I" )
    set udg_Wave_Number = ( udg_Wave_Number + 1 )
    call EnableTrigger( gg_trg_Wave_I )
    call TriggerSleepAction( 120.00 )
    call DisableTrigger( gg_trg_Wave_I )
    loop
        exitwhen ( Trig_Unit_Count() )
        call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL, 1))
    endloop
    call DisplayTimedTextToForce( GetPlayersAll(), 5.00, "TRIGSTR_7171" )
    set udg_Wave_Number = ( udg_Wave_Number + 1 )
    call EnableTrigger( gg_trg_Wave_II )
    call TriggerSleepAction( 120.00 )
    call DisableTrigger( gg_trg_Wave_II )
    loop
        exitwhen ( Trig_Unit_Count() )
        call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL, 1))
    endloop
    call DisplayTimedTextToForce( GetPlayersAll(), 5.00, "TRIGSTR_7172" )
    set udg_Wave_Number = ( udg_Wave_Number + 1 )
    call EnableTrigger( gg_trg_Wave_III )
    call TriggerSleepAction( 120.00 )
    call DisableTrigger( gg_trg_Wave_III )
    loop
        exitwhen ( Trig_Unit_Count() )
        call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL, 1))
    endloop
    call DisplayTimedTextToForce( GetPlayersAll(), 5.00, "TRIGSTR_7173" )
    set udg_Wave_Number = ( udg_Wave_Number + 1 )
    call EnableTrigger( gg_trg_Wave_IV )
    call TriggerSleepAction( 120.00 )
    call DisableTrigger( gg_trg_Wave_IV )
    loop
        exitwhen ( Trig_Unit_Count() )
        call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL, 1))
    endloop
    call DisplayTimedTextToForce( GetPlayersAll(), 5.00, "TRIGSTR_7174" )
    set udg_Wave_Number = ( udg_Wave_Number + 1 )
    call EnableTrigger( gg_trg_Wave_V )
    call TriggerSleepAction( 120.00 )
    call DisableTrigger( gg_trg_Wave_V )
    loop
        exitwhen ( Trig_Unit_Count() )
        call TriggerSleepAction(RMaxBJ(bj_WAIT_FOR_COND_MIN_INTERVAL, 1))
    endloop
    call DisplayTimedTextToForce( GetPlayersAll(), 5.00, "TRIGSTR_7175" )
    set udg_Wave_Number = ( udg_Wave_Number + 1 )
    call EnableTrigger( gg_trg_Wave_VI )
    call TriggerSleepAction( 120.00 )
    call DisableTrigger( gg_trg_Wave_VI )
    call EnableTrigger( gg_trg_PVE_Victory )
endfunction

//===========================================================================
function InitTrig_Run_Waves takes nothing returns nothing
    set gg_trg_Run_Waves = CreateTrigger(  )
    call TriggerAddAction( gg_trg_Run_Waves, function Trig_Run_Waves_Actions )
endfunction


//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Wave_I_Actions takes nothing returns nothing
    call CreateNUnitsAtLoc( ( 1 ), 'n006', Player(PLAYER_NEUTRAL_AGGRESSIVE), GetRectCenter(gg_rct_Guild_Hall_Blue), GetRandomReal(0, 360.00) )
    call CreateNUnitsAtLoc( ( 1 ), 'n006', Player(PLAYER_NEUTRAL_AGGRESSIVE), GetRectCenter(gg_rct_Guild_Hall_Green), GetRandomReal(0, 360.00) )
    call CreateNUnitsAtLoc( ( 1 ), 'n006', Player(PLAYER_NEUTRAL_AGGRESSIVE), GetRectCenter(gg_rct_Guild_Hall_Purple), GetRandomReal(0, 360.00) )
    call CreateNUnitsAtLoc( ( 1 ), 'n006', Player(PLAYER_NEUTRAL_AGGRESSIVE), GetRectCenter(gg_rct_Guild_Hall_Red), GetRandomReal(0, 360.00) )
endfunction

//===========================================================================
function InitTrig_Wave_I takes nothing returns nothing
    set gg_trg_Wave_I = CreateTrigger(  )
    call DisableTrigger( gg_trg_Wave_I )
    call TriggerRegisterTimerEventPeriodic( gg_trg_Wave_I, 10.00 )
    call TriggerAddAction( gg_trg_Wave_I, function Trig_Wave_I_Actions )
endfunction
Last Man Standing
Events
Time - Every 1.00 seconds of game time
Conditions
(Number of units in vaaAlive_Crafter) Equal to 1
Actions
Trigger - Turn off (This trigger)
Unit Group - Pick every unit in vaaAlive_Crafter and do (Actions)
Loop - Actions
Game - Display to (All players) the text: ((Name of (Owner of (Picked unit))) + has won the game.)
Game - Display to (All players) for 8.00 seconds the text: The game will end in 60 seconds.
Wait 60.00 seconds
Unit Group - Pick every unit in vaaAlive_Crafter and do (Actions)
Loop - Actions
Game - Victory (Owner of (Picked unit)) ( Show dialogs, Show scores)
Player Group - Remove (Owner of (Picked unit)) from vaaActual_Players .
Player Group - Pick every player in vaaActual_Players and do (Actions)
Loop - Actions
Game - Defeat (Picked player) with the message: Defeat!
Basic Summons Exp
Events
Unit - A unit Spawns a summoned unit
Conditions
(Unit-type of (Summoning unit)) Equal to Blood Crafter
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Summoned unit)) Equal to Blade
Then - Actions
Hero - Add ((wBase_Exp_Value x (1 + ((Integer(0.10)) x (Current research level of R00Z (Unexpected type: 'techcode') for (Owner of (Summoning unit)))))) x 1) experience to (Summoning unit) , Show level-up graphics
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Summoned unit)) Equal to Archer
Then - Actions
Hero - Add ((wBase_Exp_Value x (1 + ((Integer(0.10)) x (Current research level of R00Z (Unexpected type: 'techcode') for (Owner of (Summoning unit)))))) x 1) experience to (Summoning unit) , Show level-up graphics
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Summoned unit)) Equal to Sorceress
Then - Actions
Hero - Add ((wBase_Exp_Value x (1 + ((Integer(0.10)) x (Current research level of R00Z (Unexpected type: 'techcode') for (Owner of (Summoning unit)))))) x 1) experience to (Summoning unit) , Show level-up graphics
Else - Actions
Honor Veteran
Events
Unit - A unit Is attacked
Conditions
((Attacking unit) is A Hero) Not equal to True
(Level of Veteran for (Attacking unit)) Less than 6
Actions
Set Variable Set wCast_Experience_Modifier = (1 - ((Real((Current research level of R00X (Unexpected type: 'techcode') for (Owner of (Attacking unit))))) x 0.05))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Attacking unit) in slot 1)) Greater than (Integer((yRank_V x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Veteran for (Attacking unit) to 6
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Attacking unit) in slot 1)) Greater than (Integer((yRank_IV x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Veteran for (Attacking unit) to 5
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Attacking unit) in slot 1)) Greater than (Integer((yRank_III x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Veteran for (Attacking unit) to 4
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Attacking unit) in slot 1)) Greater than (Integer((yRank_II x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Veteran for (Attacking unit) to 3
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Attacking unit) in slot 1)) Greater than (Integer((yRank_I x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Veteran for (Attacking unit) to 2
Else - Actions
Honor Destroyer
Events
Unit - A unit Dies
Conditions
((Killing unit) is A Hero) Not equal to True
(Level of Destroyer for (Killing unit)) Less than 6
Actions
Set Variable Set wCast_Experience_Modifier = (1 - ((Real((Current research level of R00X (Unexpected type: 'techcode') for (Owner of (Killing unit))))) x 0.05))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Killing unit) in slot 4)) Greater than (Integer((yRank_V x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Destroyer for (Killing unit) to 6
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Killing unit) in slot 4)) Greater than (Integer((yRank_IV x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Destroyer for (Killing unit) to 5
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Killing unit) in slot 4)) Greater than (Integer((yRank_III x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Destroyer for (Killing unit) to 4
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Killing unit) in slot 4)) Greater than (Integer((yRank_II x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Destroyer for (Killing unit) to 3
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Killing unit) in slot 4)) Greater than (Integer((yRank_I x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Destroyer for (Killing unit) to 2
Else - Actions
Honor Immortal
Events
Unit - A unit Is attacked
Conditions
((Attacked unit) is A Hero) Not equal to True
(Level of Immortal (Dummy) for (Attacked unit)) Less than 6
Actions
Set Variable Set wCast_Experience_Modifier = (1 - ((Real((Current research level of R00X (Unexpected type: 'techcode') for (Owner of (Attacked unit))))) x 0.05))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Attacked unit) in slot 3)) Greater than (Integer((yRank_V x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Immortal (Dummy) for (Attacked unit) to 6
Unit - Set level of Immortal for (Attacked unit) to (Level of Immortal (Dummy) for (Attacked unit))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Attacked unit) in slot 3)) Greater than (Integer((yRank_IV x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Immortal (Dummy) for (Attacked unit) to 5
Unit - Set level of Immortal for (Attacked unit) to (Level of Immortal (Dummy) for (Attacked unit))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Attacked unit) in slot 3)) Greater than (Integer((yRank_III x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Immortal (Dummy) for (Attacked unit) to 4
Unit - Set level of Immortal for (Attacked unit) to (Level of Immortal (Dummy) for (Attacked unit))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Attacked unit) in slot 3)) Greater than (Integer((yRank_II x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Immortal (Dummy) for (Attacked unit) to 3
Unit - Set level of Immortal for (Attacked unit) to (Level of Immortal (Dummy) for (Attacked unit))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Attacked unit) in slot 3)) Greater than (Integer((yRank_I x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Immortal (Dummy) for (Attacked unit) to 2
Unit - Set level of Immortal for (Attacked unit) to (Level of Immortal (Dummy) for (Attacked unit))
Else - Actions
Honor Magical Adept
Events
Unit - A unit Starts the effect of an ability
Conditions
((Triggering unit) is A Hero) Not equal to True
(Level of Magical Adept (Dummy) for (Triggering unit)) Less than 6
Actions
Set Variable Set wCast_Experience_Modifier = (1 - ((Real((Current research level of R00X (Unexpected type: 'techcode') for (Owner of (Triggering unit))))) x 0.05))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Triggering unit) in slot 2)) Greater than (Integer((yRank_V x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Magical Adept (Dummy) for (Triggering unit) to 6
Unit - Set level of Magical Adept for (Triggering unit) to (Level of Magical Adept (Dummy) for (Triggering unit))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Triggering unit) in slot 2)) Greater than (Integer((yRank_IV x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Magical Adept (Dummy) for (Triggering unit) to 5
Unit - Set level of Magical Adept for (Triggering unit) to (Level of Magical Adept (Dummy) for (Triggering unit))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Triggering unit) in slot 2)) Greater than (Integer((yRank_III x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Magical Adept (Dummy) for (Triggering unit) to 4
Unit - Set level of Magical Adept for (Triggering unit) to (Level of Magical Adept (Dummy) for (Triggering unit))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Triggering unit) in slot 2)) Greater than (Integer((yRank_II x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Magical Adept (Dummy) for (Triggering unit) to 3
Unit - Set level of Magical Adept for (Triggering unit) to (Level of Magical Adept (Dummy) for (Triggering unit))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Charges remaining in (Item carried by (Triggering unit) in slot 2)) Greater than (Integer((yRank_I x wCast_Experience_Modifier)))
Then - Actions
Unit - Set level of Magical Adept (Dummy) for (Triggering unit) to 2
Unit - Set level of Magical Adept for (Triggering unit) to (Level of Magical Adept (Dummy) for (Triggering unit))
Else - Actions
Attacks and Hits
Events
Unit - A unit Is attacked
Conditions
((Attacking unit) is A Hero) Not equal to True
(Point-value of (Attacking unit)) Less than 4
Actions
Item - Set charges remaining in (Item carried by (Attacking unit) in slot 1) to ((Charges remaining in (Item carried by (Attacking unit) in slot 1)) + 1)
Item - Set charges remaining in (Item carried by (Attacked unit) in slot 3) to ((Charges remaining in (Item carried by (Attacked unit) in slot 3)) + 1)
Ability Uses
Events
Unit - A unit Starts the effect of an ability
Conditions
((Attacking unit) is A Hero) Not equal to True
(Point-value of (Triggering unit)) Less than 4
Actions
Item - Set charges remaining in (Item carried by (Triggering unit) in slot 2) to ((Charges remaining in (Item carried by (Triggering unit) in slot 2)) + 1)
Kills
Events
Unit - A unit Dies
Conditions
((Killing unit) is A Hero) Not equal to True
(Point-value of (Killing unit)) Less than 4
Actions
Item - Set charges remaining in (Item carried by (Killing unit) in slot 4) to ((Charges remaining in (Item carried by (Killing unit) in slot 4)) + 1)
Set Blood Works Index
Events
Map initialization
Conditions
Actions
Set Variable Set zaaBlood_Works[1] = zaBlood_Works_Red
Set Variable Set zaaBlood_Works[2] = zbBlood_Works_Blue
Set Variable Set zaaBlood_Works[3] = zcBlood_Works_Teal
Set Variable Set zaaBlood_Works[4] = zdBlood_Works_Purple
Set Variable Set zaaBlood_Works[5] = zeBlood_Works_Yellow
Set Variable Set zaaBlood_Works[6] = zfBlood_Works_Orange
Set Variable Set zaaBlood_Works[7] = zgBlood_Works_Green
Set Variable Set zaaBlood_Works[8] = zhBlood_Works_Pink
Set Variable Set zaaBlood_Works[9] = ziBlood_Works_Gray
Set Variable Set zaaBlood_Works[10] = zjBlood_Works_Light_Blue
Set Variable Set zaaBlood_Works[11] = zkBlood_Works_Dark_Green
Set Variable Set zaaBlood_Works[12] = zlBlood_Works_Brown
Create Blood Works
Events
Conditions
Actions
Player Group - Pick every player in vaaActual_Players and do (Actions)
Loop - Actions
Unit - Create 1 Blood Works (melee aspects) for (Picked player) at Temp_Point facing Temp_Point
Unit - Create 1 Blood Works for (Picked player) at Temp_Point facing Temp_Point
Custom script: call RemoveLocation( udg_Temp_Point)
Set Player Blood Works
Events
Unit - A unit enters (Playable map area)
Conditions
((Entering unit) is A structure) Equal to True
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 1 (Red)
Then - Actions
Set Variable Set zaBlood_Works_Red = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 2 (Blue)
Then - Actions
Set Variable Set zbBlood_Works_Blue = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 3 (Teal)
Then - Actions
Set Variable Set zcBlood_Works_Teal = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 4 (Purple)
Then - Actions
Set Variable Set zdBlood_Works_Purple = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 5 (Yellow)
Then - Actions
Set Variable Set zeBlood_Works_Yellow = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 6 (Orange)
Then - Actions
Set Variable Set zfBlood_Works_Orange = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 7 (Green)
Then - Actions
Set Variable Set zgBlood_Works_Green = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 8 (Pink)
Then - Actions
Set Variable Set zhBlood_Works_Pink = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 9 (Gray)
Then - Actions
Set Variable Set ziBlood_Works_Gray = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 10 (Light Blue)
Then - Actions
Set Variable Set zjBlood_Works_Light_Blue = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 11 (Dark Green)
Then - Actions
Set Variable Set zkBlood_Works_Dark_Green = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 12 (Brown)
Then - Actions
Set Variable Set zlBlood_Works_Brown = (Entering unit)
Else - Actions
Set Skill Points
Events
Time - Every 0.50 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in (Units in (Playable map area)) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Blood Works
Then - Actions
Hero - Modify unspent skill points of (Picked unit) : Set to ((Owner of (Picked unit)) Current lumber) points
Else - Actions
Set Player Craft INCOMPLETE
Events
Unit - A unit enters (Playable map area)
Conditions
((Entering unit) is A Hero) Equal to True
((Entering unit) is Mechanical) Equal to False
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 1 (Red)
Then - Actions
Set Variable Set vaRed_Blood_Crafter = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 2 (Blue)
Then - Actions
Set Variable Set vbBlue_Blood_Crafter = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 3 (Teal)
Then - Actions
Set Variable Set vcTeal_Blood_Crafter = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 4 (Purple)
Then - Actions
Set Variable Set vdPurple_Blood_Crafter = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 5 (Yellow)
Then - Actions
Set Variable Set zeBlood_Works_Yellow = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 6 (Orange)
Then - Actions
Set Variable Set zfBlood_Works_Orange = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 7 (Green)
Then - Actions
Set Variable Set zgBlood_Works_Green = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 8 (Pink)
Then - Actions
Set Variable Set zhBlood_Works_Pink = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 9 (Gray)
Then - Actions
Set Variable Set ziBlood_Works_Gray = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 10 (Light Blue)
Then - Actions
Set Variable Set zjBlood_Works_Light_Blue = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 11 (Dark Green)
Then - Actions
Set Variable Set zkBlood_Works_Dark_Green = (Entering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Entering unit)) Equal to Player 12 (Brown)
Then - Actions
Set Variable Set zlBlood_Works_Brown = (Entering unit)
Else - Actions
Switch Crafter
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to Switch (crafter)
Actions
Unit - Replace (Triggering unit) with a Blood Works (crafter aspects) using The old unit's relative life and mana
Set Variable Set zaaBlood_Works[(Player number of (Owner of (Triggering unit)))] = (Last replaced unit)
Selection - Select zaaBlood_Works[(Player number of (Owner of (Triggering unit)))] for (Owner of (Triggering unit))
Switch Melee
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to Switch (melee)
Actions
Unit - Replace (Triggering unit) with a Blood Works (melee aspects) using The old unit's relative life and mana
Set Variable Set zaaBlood_Works[(Player number of (Owner of (Triggering unit)))] = (Last replaced unit)
Selection - Select zaaBlood_Works[(Player number of (Owner of (Triggering unit)))] for (Owner of (Triggering unit))
Switch Magic
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to Switch (magic)
Actions
Unit - Replace (Triggering unit) with a Blood Works (magic aspects) using The old unit's relative life and mana
Set Variable Set zaaBlood_Works[(Player number of (Owner of (Triggering unit)))] = (Last replaced unit)
Selection - Select zaaBlood_Works[(Player number of (Owner of (Triggering unit)))] for (Owner of (Triggering unit))
Switch Ranged
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to Switch (ranged)
Actions
Unit - Replace (Triggering unit) with a Blood Works (ranged aspects) using The old unit's relative life and mana
Set Variable Set zaaBlood_Works[(Player number of (Owner of (Triggering unit)))] = (Last replaced unit)
Selection - Select zaaBlood_Works[(Player number of (Owner of (Triggering unit)))] for (Owner of (Triggering unit))
Advancement
Events
Unit - A unit Gains a level
Conditions
(Hero level of (Triggering unit)) Equal to 8
Actions
Player - Set the current research level of R014 (Unexpected type: 'techcode') to 1 for (Owner of (Triggering unit))
Unit Group - Add (Triggering unit) to vaaEnlightented
Learn Melee
Events
Unit - A unit Learns a skill
Conditions
(Learned Hero Skill) Equal to Forge Melee
(Level of Forge Melee for (Triggering unit)) Less than 1
Actions
Unit - Add Forge Melee to (Triggering unit)
Learn Magic
Events
Unit - A unit Learns a skill
Conditions
(Learned Hero Skill) Equal to Forge Magic
(Level of Forge Magic for (Triggering unit)) Less than 1
Actions
Unit - Add Forge Magic to (Triggering unit)
Learn Ranged
Events
Unit - A unit Learns a skill
Conditions
(Learned Hero Skill) Equal to Forge Ranged
(Level of Forge Ranged for (Triggering unit)) Less than 1
Actions
Unit - Add Forge Ranged to (Triggering unit)
//TESH.scrollpos=34
//TESH.alwaysfold=0
function Trig_Lancer_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == 'A00Z' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Lancer_Func002C takes nothing returns boolean
    if ( not ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) < udg_wBloodmute_Cast_Mana ) ) then
        return false
    endif
    return true
endfunction

function Trig_Lancer_Func003C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) != 'h007' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Lancer_Func004C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) == 'h007' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Lancer_Actions takes nothing returns nothing
    local effect VO
    set udg_wBloodmute_Cast_Mana = ( udg_wBloodmute_Base_Mana * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    if ( Trig_Lancer_Func002C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5317" )
        return
    else
    endif
    if ( Trig_Lancer_Func003C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_4678" )
        return
    else
    endif
    if ( Trig_Lancer_Func004C() ) then
        call TriggerSleepAction( 0.50 )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - udg_wBloodmute_Cast_Mana ) )
        call ReplaceUnitBJ( GetSpellTargetUnit(), 'h00A', bj_UNIT_STATE_METHOD_RELATIVE )
        call AddHeroXPSwapped( ( ( udg_wBase_Exp_Value * ( 1 + ( R2I(0.10) * GetPlayerTechCountSimple('R00Z', GetOwningPlayer(GetSpellAbilityUnit())) ) ) ) * 1 ), GetSpellAbilityUnit(), true )
        call AddSpecialEffectTargetUnitBJ( "overhead", GetLastReplacedUnitBJ(), "Abilities\\Spells\\Orc\\Voodoo\\VoodooAuraTarget.mdl" )
        set VO = GetLastCreatedEffectBJ()
        call TriggerSleepAction( 3.25 )
        call DestroyEffectBJ( VO )
    else
    endif
endfunction

//===========================================================================
function InitTrig_Lancer takes nothing returns nothing
    set gg_trg_Lancer = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Lancer, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Lancer, Condition( function Trig_Lancer_Conditions ) )
    call TriggerAddAction( gg_trg_Lancer, function Trig_Lancer_Actions )
endfunction


//TESH.scrollpos=35
//TESH.alwaysfold=0
function Trig_Swordsman_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == 'A01K' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Swordsman_Func002C takes nothing returns boolean
    if ( not ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) < udg_wBloodmute_Cast_Mana ) ) then
        return false
    endif
    return true
endfunction

function Trig_Swordsman_Func003C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) != 'h007' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Swordsman_Func004C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) == 'h007' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Swordsman_Actions takes nothing returns nothing
    local effect VO
    set udg_wBloodmute_Cast_Mana = ( udg_wBloodmute_Base_Mana * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    if ( Trig_Swordsman_Func002C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5317" )
        return
    else
    endif
    if ( Trig_Swordsman_Func003C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_4678" )
        return
    else
    endif
    if ( Trig_Swordsman_Func004C() ) then
        call TriggerSleepAction( 0.50 )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - udg_wBloodmute_Cast_Mana ) )
        call ReplaceUnitBJ( GetSpellTargetUnit(), 'h00B', bj_UNIT_STATE_METHOD_RELATIVE )
        call AddHeroXPSwapped( ( ( udg_wBase_Exp_Value * ( 1 + ( R2I(0.10) * GetPlayerTechCountSimple('R00Z', GetOwningPlayer(GetSpellAbilityUnit())) ) ) ) * 1 ), GetSpellAbilityUnit(), true )
        call AddSpecialEffectTargetUnitBJ( "overhead", GetLastReplacedUnitBJ(), "Abilities\\Spells\\Orc\\Voodoo\\VoodooAuraTarget.mdl" )
        set VO = GetLastCreatedEffectBJ()
        call TriggerSleepAction( 3.25 )
        call DestroyEffectBJ( VO )
    else
    endif
endfunction

//===========================================================================
function InitTrig_Swordsman takes nothing returns nothing
    set gg_trg_Swordsman = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Swordsman, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Swordsman, Condition( function Trig_Swordsman_Conditions ) )
    call TriggerAddAction( gg_trg_Swordsman, function Trig_Swordsman_Actions )
endfunction


//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Ranger_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == 'A014' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Ranger_Func002C takes nothing returns boolean
    if ( not ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) < udg_wBloodmute_Cast_Mana ) ) then
        return false
    endif
    return true
endfunction

function Trig_Ranger_Func003C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) != 'n001' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Ranger_Func004C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) == 'n001' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Ranger_Actions takes nothing returns nothing
    local effect VO
    set udg_wBloodmute_Cast_Mana = ( udg_wBloodmute_Base_Mana * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    if ( Trig_Ranger_Func002C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5317" )
        return
    else
    endif
    if ( Trig_Ranger_Func003C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_4678" )
        return
    else
    endif
    if ( Trig_Ranger_Func004C() ) then
        call TriggerSleepAction( 0.50 )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - udg_wBloodmute_Cast_Mana ) )
        call ReplaceUnitBJ( GetSpellTargetUnit(), 'n003', bj_UNIT_STATE_METHOD_RELATIVE )
        call AddHeroXPSwapped( ( ( udg_wBase_Exp_Value * ( 1 + ( R2I(0.10) * GetPlayerTechCountSimple('R00Z', GetOwningPlayer(GetSpellAbilityUnit())) ) ) ) * 1 ), GetSpellAbilityUnit(), true )
        call AddSpecialEffectTargetUnitBJ( "overhead", GetLastReplacedUnitBJ(), "Abilities\\Spells\\Orc\\Voodoo\\VoodooAuraTarget.mdl" )
        set VO = GetLastCreatedEffectBJ()
        call TriggerSleepAction( 3.25 )
        call DestroyEffectBJ( VO )
    else
    endif
endfunction

//===========================================================================
function InitTrig_Ranger takes nothing returns nothing
    set gg_trg_Ranger = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Ranger, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Ranger, Condition( function Trig_Ranger_Conditions ) )
    call TriggerAddAction( gg_trg_Ranger, function Trig_Ranger_Actions )
endfunction


//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Priest_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == 'A012' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Priest_Func002C takes nothing returns boolean
    if ( not ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) < udg_wBloodmute_Cast_Mana ) ) then
        return false
    endif
    return true
endfunction

function Trig_Priest_Func003C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) != 'h008' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Priest_Func004C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) == 'h008' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Priest_Actions takes nothing returns nothing
    local effect VO
    set udg_wBloodmute_Cast_Mana = ( udg_wBloodmute_Base_Mana * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    if ( Trig_Priest_Func002C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5317" )
        return
    else
    endif
    if ( Trig_Priest_Func003C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_4678" )
        return
    else
    endif
    if ( Trig_Priest_Func004C() ) then
        call TriggerSleepAction( 0.50 )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - udg_wBloodmute_Cast_Mana ) )
        call ReplaceUnitBJ( GetSpellTargetUnit(), 'h005', bj_UNIT_STATE_METHOD_RELATIVE )
        call AddHeroXPSwapped( ( ( udg_wBase_Exp_Value * ( 1 + ( R2I(0.10) * GetPlayerTechCountSimple('R00Z', GetOwningPlayer(GetSpellAbilityUnit())) ) ) ) * 1 ), GetSpellAbilityUnit(), true )
        call AddSpecialEffectTargetUnitBJ( "overhead", GetLastReplacedUnitBJ(), "Abilities\\Spells\\Orc\\Voodoo\\VoodooAuraTarget.mdl" )
        set VO = GetLastCreatedEffectBJ()
        call TriggerSleepAction( 3.25 )
        call DestroyEffectBJ( VO )
    else
    endif
endfunction

//===========================================================================
function InitTrig_Priest takes nothing returns nothing
    set gg_trg_Priest = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Priest, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Priest, Condition( function Trig_Priest_Conditions ) )
    call TriggerAddAction( gg_trg_Priest, function Trig_Priest_Actions )
endfunction


//TESH.scrollpos=35
//TESH.alwaysfold=0
function Trig_War_Mage_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == 'A01Q' ) ) then
        return false
    endif
    return true
endfunction

function Trig_War_Mage_Func002C takes nothing returns boolean
    if ( not ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) < udg_wBloodmute_Cast_Mana ) ) then
        return false
    endif
    return true
endfunction

function Trig_War_Mage_Func003C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) != 'h008' ) ) then
        return false
    endif
    return true
endfunction

function Trig_War_Mage_Func004C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) == 'h008' ) ) then
        return false
    endif
    return true
endfunction

function Trig_War_Mage_Actions takes nothing returns nothing
    local effect VO
    set udg_wBloodmute_Cast_Mana = ( udg_wBloodmute_Base_Mana * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    if ( Trig_War_Mage_Func002C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5317" )
        return
    else
    endif
    if ( Trig_War_Mage_Func003C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_4678" )
        return
    else
    endif
    if ( Trig_War_Mage_Func004C() ) then
        call TriggerSleepAction( 0.50 )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - udg_wBloodmute_Cast_Mana ) )
        call ReplaceUnitBJ( GetSpellTargetUnit(), 'h00C', bj_UNIT_STATE_METHOD_RELATIVE )
        call AddHeroXPSwapped( ( ( udg_wBase_Exp_Value * ( 1 + ( R2I(0.10) * GetPlayerTechCountSimple('R00Z', GetOwningPlayer(GetSpellAbilityUnit())) ) ) ) * 1 ), GetSpellAbilityUnit(), true )
        call AddSpecialEffectTargetUnitBJ( "overhead", GetLastReplacedUnitBJ(), "Abilities\\Spells\\Orc\\Voodoo\\VoodooAuraTarget.mdl" )
        set VO = GetLastCreatedEffectBJ()
        call TriggerSleepAction( 3.25 )
        call DestroyEffectBJ( VO )
    else
    endif
endfunction

//===========================================================================
function InitTrig_War_Mage takes nothing returns nothing
    set gg_trg_War_Mage = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_War_Mage, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_War_Mage, Condition( function Trig_War_Mage_Conditions ) )
    call TriggerAddAction( gg_trg_War_Mage, function Trig_War_Mage_Actions )
endfunction


//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Guardain_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == 'A01O' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Guardain_Func002C takes nothing returns boolean
    if ( not ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) < udg_wBloodmute_Cast_Mana ) ) then
        return false
    endif
    return true
endfunction

function Trig_Guardain_Func003C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) != 'n001' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Guardain_Func004C takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetSpellTargetUnit()) == 'n001' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Guardain_Actions takes nothing returns nothing
    local effect VO
    set udg_wBloodmute_Cast_Mana = ( udg_wBloodmute_Base_Mana * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    if ( Trig_Guardain_Func002C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5317" )
        return
    else
    endif
    if ( Trig_Guardain_Func003C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_4678" )
        return
    else
    endif
    if ( Trig_Guardain_Func004C() ) then
        call TriggerSleepAction( 0.50 )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - udg_wBloodmute_Cast_Mana ) )
        call ReplaceUnitBJ( GetSpellTargetUnit(), 'h002', bj_UNIT_STATE_METHOD_RELATIVE )
        call AddHeroXPSwapped( ( ( udg_wBase_Exp_Value * ( 1 + ( R2I(0.10) * GetPlayerTechCountSimple('R00Z', GetOwningPlayer(GetSpellAbilityUnit())) ) ) ) * 1 ), GetSpellAbilityUnit(), true )
        call AddSpecialEffectTargetUnitBJ( "overhead", GetLastReplacedUnitBJ(), "Abilities\\Spells\\Orc\\Voodoo\\VoodooAuraTarget.mdl" )
        set VO = GetLastCreatedEffectBJ()
        call TriggerSleepAction( 3.25 )
        call DestroyEffectBJ( VO )
    else
    endif
endfunction

//===========================================================================
function InitTrig_Guardain takes nothing returns nothing
    set gg_trg_Guardain = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Guardain, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Guardain, Condition( function Trig_Guardain_Conditions ) )
    call TriggerAddAction( gg_trg_Guardain, function Trig_Guardain_Actions )
endfunction
Red Select
Events
Player - Player 1 (Red) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zaBlood_Works_Red for (Triggering player)
Red Point Bloods Gain
Events
Unit - A unit Dies
Conditions
(Owner of (Killing unit)) Equal to Player 1 (Red)
Actions
Set Variable Set aRed_Kills = (aRed_Kills + 1)
Set Variable Set xThreshold = (aRed_Kills / xKills_Per_Point)
Set Variable Set xReal = ((Real(aRed_Kills)) / (Real(xKills_Per_Point)))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
xReal Equal to (Real(xThreshold))
Then - Actions
Player - Add 1 to (Owner of (Killing unit)) . Current lumber
Else - Actions
Red Melee Forge
Events
Unit - A unit Begins casting an ability
Conditions
(Owner of (Casting unit)) Equal to Player 1 (Red)
(Ability being cast) Equal to Forge Melee
Actions
Set Variable Set aRed_Mana_Mod = (wBase_Mana_Cost x (1 - ((Real((Max research level of R00Z (Unexpected type: 'techcode') for (Owner of (Casting unit))))) x 0.03)))
Set Variable Set aRed_Max_Cast = ((Integer((Mana of (Casting unit)))) / (Integer(aRed_Mana_Mod)))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Insufficient mana to forge a blood work.|r
Skip remaining actions
Else - Actions
Set Variable Set aRed_Flex_Cap = (Agility of (Casting unit) (Include bonuses))
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 1).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Melee for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 2).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Ranged for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 3).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Magic for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 1).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in aRed_Units) Greater than or equal to ((Level of Forge Melee for (Casting unit)) x 2)
aRed_Flex_Cap Greater than 0
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Flex_Cap
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Melee for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Melee for (Casting unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Melee for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - ((Real(aRed_Cast_Level)) x aRed_Mana_Mod))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Melee for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - ((Real(aRed_Cast_Level)) x aRed_Mana_Mod))
Skip remaining actions
Else - Actions
Set Variable Set aRed_Unit_Max = ((Level of Forge Melee for (Casting unit)) x 2)
Set Variable Set aRed_Cast_Level = (aRed_Unit_Max - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Less than or equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Cannot support another blood work of that type.|r
Unit Group - Remove all units from aRed_Units .
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Melee for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Melee for (Casting unit))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than 12
Then - Actions
Set Variable Set aRed_Cast_Level = "12"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Melee for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - ((Real(aRed_Cast_Level)) x aRed_Mana_Mod))
Unit Group - Remove all units from aRed_Units .
Red Ranged Forge
Events
Unit - A unit Begins casting an ability
Conditions
(Owner of (Casting unit)) Equal to Player 1 (Red)
(Ability being cast) Equal to Forge Ranged
Actions
Set Variable Set aRed_Mana_Mod = (wBase_Mana_Cost x (1 - ((Real((Max research level of R00Z (Unexpected type: 'techcode') for (Owner of (Casting unit))))) x 0.03)))
Set Variable Set aRed_Max_Cast = ((Integer((Mana of (Casting unit)))) / (Integer(aRed_Mana_Mod)))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Insufficient mana to forge a blood work.|r
Skip remaining actions
Else - Actions
Set Variable Set aRed_Flex_Cap = (Agility of (Casting unit) (Include bonuses))
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 1).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Melee for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 2).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Ranged for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 3).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Magic for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 2).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in aRed_Units) Greater than or equal to ((Level of Forge Ranged for (Casting unit)) x 2)
aRed_Flex_Cap Greater than 0
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Flex_Cap
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Ranged for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Ranged for (Casting unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Ranged for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - ((Real(aRed_Cast_Level)) x aRed_Mana_Mod))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Ranged for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - ((Real(aRed_Cast_Level)) x aRed_Mana_Mod))
Skip remaining actions
Else - Actions
Set Variable Set aRed_Unit_Max = ((Level of Forge Ranged for (Casting unit)) x 2)
Set Variable Set aRed_Cast_Level = (aRed_Unit_Max - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Less than or equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Cannot support another blood work of that type.|r
Unit Group - Remove all units from aRed_Units .
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Ranged for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Ranged for (Casting unit))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than 12
Then - Actions
Set Variable Set aRed_Cast_Level = "12"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Ranged for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - ((Real(aRed_Cast_Level)) x aRed_Mana_Mod))
Unit Group - Remove all units from aRed_Units .
Red Magic Forge
Events
Unit - A unit Begins casting an ability
Conditions
(Owner of (Casting unit)) Equal to Player 1 (Red)
(Ability being cast) Equal to Forge Magic
Actions
Set Variable Set aRed_Mana_Mod = (wBase_Mana_Cost x (1 - ((Real((Max research level of R00Z (Unexpected type: 'techcode') for (Owner of (Casting unit))))) x 0.03)))
Set Variable Set aRed_Max_Cast = ((Integer((Mana of (Casting unit)))) / (Integer(aRed_Mana_Mod)))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Insufficient mana to forge a blood work.|r
Skip remaining actions
Else - Actions
Set Variable Set aRed_Flex_Cap = (Agility of (Casting unit) (Include bonuses))
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 1).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Melee for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 2).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Ranged for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 3).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
Set Variable Set aRed_Flex_Value = (((Level of Forge Magic for (Casting unit)) x 2) - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Flex_Value Less than 0
Then - Actions
Set Variable Set aRed_Flex_Cap = (aRed_Flex_Cap + aRed_Flex_Value)
Else - Actions
Unit Group - Remove all units from aRed_Units .
Unit Group - Pick every unit in (Units owned by (Owner of (Casting unit)) matching ((Point-value of (Matching unit)) Equal to 3).) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to aRed_Units
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in aRed_Units) Greater than or equal to ((Level of Forge Magic for (Casting unit)) x 2)
aRed_Flex_Cap Greater than 0
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Flex_Cap
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Magic for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Magic for (Casting unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Magic for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - ((Real(aRed_Cast_Level)) x aRed_Mana_Mod))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Magic for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - ((Real(aRed_Cast_Level)) x aRed_Mana_Mod))
Skip remaining actions
Else - Actions
Set Variable Set aRed_Unit_Max = ((Level of Forge Magic for (Casting unit)) x 2)
Set Variable Set aRed_Cast_Level = (aRed_Unit_Max - (Number of units in aRed_Units))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Less than or equal to 0
Then - Actions
Unit - Order (Casting unit) to Stop .
Game - Display to (Player group((Owner of (Casting unit)))) the text: |cffffcc00Cannot support another blood work of that type.|r
Unit Group - Remove all units from aRed_Units .
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than (Level of Forge Magic for (Casting unit))
Then - Actions
Set Variable Set aRed_Cast_Level = (Level of Forge Magic for (Casting unit))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Cast_Level Greater than 12
Then - Actions
Set Variable Set aRed_Cast_Level = "12"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
aRed_Max_Cast Less than aRed_Cast_Level
Then - Actions
Set Variable Set aRed_Cast_Level = aRed_Max_Cast
Else - Actions
Unit - Set level of Forge Magic for (Casting unit) to aRed_Cast_Level
Unit - Set mana of (Casting unit) to ((Mana of (Casting unit)) - ((Real(aRed_Cast_Level)) x aRed_Mana_Mod))
Unit Group - Remove all units from aRed_Units .
Blue Select
Events
Player - Player 2 (Blue) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zbBlood_Works_Blue for (Triggering player)
Blue Point Bloods Gain
Events
Unit - A unit Dies
Conditions
(Owner of (Killing unit)) Equal to Player 2 (Blue)
Actions
Set Variable Set bBlue_Kills = (bBlue_Kills + 1)
Set Variable Set xThreshold = (bBlue_Kills / xKills_Per_Point)
Set Variable Set xReal = ((Real(bBlue_Kills)) / (Real(xKills_Per_Point)))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
xReal Equal to (Real(xThreshold))
Then - Actions
Player - Add 1 to (Owner of (Killing unit)) . Current lumber
Else - Actions
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Blue_Melee_Forge_Conditions takes nothing returns boolean
    if ( not ( GetOwningPlayer(GetSpellAbilityUnit()) == Player(1) ) ) then
        return false
    endif
    if ( not ( GetSpellAbilityId() == 'A01N' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func004C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast == 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func006001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Blue_Melee_Forge_Func006A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Melee_Forge_Func008C takes nothing returns boolean
    if ( not ( udg_bBlue_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func010001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Blue_Melee_Forge_Func010A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Melee_Forge_Func012C takes nothing returns boolean
    if ( not ( udg_bBlue_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func014001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Blue_Melee_Forge_Func014A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Melee_Forge_Func016C takes nothing returns boolean
    if ( not ( udg_bBlue_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func018001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Blue_Melee_Forge_Func018A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Melee_Forge_Func019Func002Func003C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast < udg_bBlue_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func019Func002C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level > GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func019Func003C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast < udg_bBlue_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func019C takes nothing returns boolean
    if ( not ( CountUnitsInGroup(udg_bBlue_Units) >= ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) ) ) then
        return false
    endif
    if ( not ( udg_bBlue_Flex_Cap > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func022C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level <= 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func023C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level > GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func024C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level > 12 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Func025C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast < udg_bBlue_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Melee_Forge_Actions takes nothing returns nothing
    set udg_bBlue_Mana_Mod = ( udg_wBase_Mana_Cost * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    set udg_bBlue_Max_Cast = ( R2I(GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit())) / R2I(udg_bBlue_Mana_Mod) )
    if ( Trig_Blue_Melee_Forge_Func004C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5429" )
        return
    else
    endif
    set udg_bBlue_Flex_Cap = GetHeroStatBJ(bj_HEROSTAT_AGI, GetSpellAbilityUnit(), true)
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Melee_Forge_Func006001002)), function Trig_Blue_Melee_Forge_Func006A )
    set udg_bBlue_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Melee_Forge_Func008C() ) then
        set udg_bBlue_Flex_Cap = ( udg_bBlue_Flex_Cap + udg_bBlue_Flex_Value )
    else
    endif
    call GroupClear( udg_bBlue_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Melee_Forge_Func010001002)), function Trig_Blue_Melee_Forge_Func010A )
    set udg_bBlue_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Melee_Forge_Func012C() ) then
        set udg_bBlue_Flex_Cap = ( udg_bBlue_Flex_Cap + udg_bBlue_Flex_Value )
    else
    endif
    call GroupClear( udg_bBlue_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Melee_Forge_Func014001002)), function Trig_Blue_Melee_Forge_Func014A )
    set udg_bBlue_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Melee_Forge_Func016C() ) then
        set udg_bBlue_Flex_Cap = ( udg_bBlue_Flex_Cap + udg_bBlue_Flex_Value )
    else
    endif
    call GroupClear( udg_bBlue_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Melee_Forge_Func018001002)), function Trig_Blue_Melee_Forge_Func018A )
    if ( Trig_Blue_Melee_Forge_Func019C() ) then
        set udg_bBlue_Cast_Level = udg_bBlue_Flex_Cap
        if ( Trig_Blue_Melee_Forge_Func019Func002C() ) then
            set udg_bBlue_Cast_Level = GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit())
            if ( Trig_Blue_Melee_Forge_Func019Func002Func003C() ) then
                set udg_bBlue_Cast_Level = udg_bBlue_Max_Cast
            else
            endif
            call SetUnitAbilityLevelSwapped( 'A01N', GetSpellAbilityUnit(), udg_bBlue_Cast_Level )
            call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_bBlue_Cast_Level) * udg_bBlue_Mana_Mod ) ) )
            return
        else
        endif
        if ( Trig_Blue_Melee_Forge_Func019Func003C() ) then
            set udg_bBlue_Cast_Level = udg_bBlue_Max_Cast
        else
        endif
        call SetUnitAbilityLevelSwapped( 'A01N', GetSpellAbilityUnit(), udg_bBlue_Cast_Level )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_bBlue_Cast_Level) * udg_bBlue_Mana_Mod ) ) )
        return
    else
    endif
    set udg_bBlue_Unit_Max = ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 )
    set udg_bBlue_Cast_Level = ( udg_bBlue_Unit_Max - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Melee_Forge_Func022C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5430" )
        call GroupClear( udg_bBlue_Units )
        return
    else
    endif
    if ( Trig_Blue_Melee_Forge_Func023C() ) then
        set udg_bBlue_Cast_Level = GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit())
    else
    endif
    if ( Trig_Blue_Melee_Forge_Func024C() ) then
        set udg_bBlue_Cast_Level = 12
    else
    endif
    if ( Trig_Blue_Melee_Forge_Func025C() ) then
        set udg_bBlue_Cast_Level = udg_bBlue_Max_Cast
    else
    endif
    call SetUnitAbilityLevelSwapped( 'A01N', GetSpellAbilityUnit(), udg_bBlue_Cast_Level )
    call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_bBlue_Cast_Level) * udg_bBlue_Mana_Mod ) ) )
    call GroupClear( udg_bBlue_Units )
endfunction

//===========================================================================
function InitTrig_Blue_Melee_Forge takes nothing returns nothing
    set gg_trg_Blue_Melee_Forge = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Blue_Melee_Forge, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Blue_Melee_Forge, Condition( function Trig_Blue_Melee_Forge_Conditions ) )
    call TriggerAddAction( gg_trg_Blue_Melee_Forge, function Trig_Blue_Melee_Forge_Actions )
endfunction


//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Blue_Ranged_Forge_Conditions takes nothing returns boolean
    if ( not ( GetOwningPlayer(GetSpellAbilityUnit()) == Player(1) ) ) then
        return false
    endif
    if ( not ( GetSpellAbilityId() == 'A00C' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func004C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast == 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func006001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Blue_Ranged_Forge_Func006A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Ranged_Forge_Func008C takes nothing returns boolean
    if ( not ( udg_bBlue_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func010001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Blue_Ranged_Forge_Func010A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Ranged_Forge_Func012C takes nothing returns boolean
    if ( not ( udg_bBlue_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func014001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Blue_Ranged_Forge_Func014A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Ranged_Forge_Func016C takes nothing returns boolean
    if ( not ( udg_bBlue_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func018001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Blue_Ranged_Forge_Func018A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Ranged_Forge_Func019Func002Func003C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast < udg_bBlue_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func019Func002C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level > GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func019Func003C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast < udg_bBlue_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func019C takes nothing returns boolean
    if ( not ( CountUnitsInGroup(udg_bBlue_Units) >= ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) ) ) then
        return false
    endif
    if ( not ( udg_bBlue_Flex_Cap > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func022C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level <= 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func023C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level > GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func024C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level > 12 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Func025C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast < udg_bBlue_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Ranged_Forge_Actions takes nothing returns nothing
    set udg_bBlue_Mana_Mod = ( udg_wBase_Mana_Cost * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    set udg_bBlue_Max_Cast = ( R2I(GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit())) / R2I(udg_bBlue_Mana_Mod) )
    if ( Trig_Blue_Ranged_Forge_Func004C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5431" )
        return
    else
    endif
    set udg_bBlue_Flex_Cap = GetHeroStatBJ(bj_HEROSTAT_AGI, GetSpellAbilityUnit(), true)
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Ranged_Forge_Func006001002)), function Trig_Blue_Ranged_Forge_Func006A )
    set udg_bBlue_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Ranged_Forge_Func008C() ) then
        set udg_bBlue_Flex_Cap = ( udg_bBlue_Flex_Cap + udg_bBlue_Flex_Value )
    else
    endif
    call GroupClear( udg_bBlue_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Ranged_Forge_Func010001002)), function Trig_Blue_Ranged_Forge_Func010A )
    set udg_bBlue_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Ranged_Forge_Func012C() ) then
        set udg_bBlue_Flex_Cap = ( udg_bBlue_Flex_Cap + udg_bBlue_Flex_Value )
    else
    endif
    call GroupClear( udg_bBlue_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Ranged_Forge_Func014001002)), function Trig_Blue_Ranged_Forge_Func014A )
    set udg_bBlue_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Ranged_Forge_Func016C() ) then
        set udg_bBlue_Flex_Cap = ( udg_bBlue_Flex_Cap + udg_bBlue_Flex_Value )
    else
    endif
    call GroupClear( udg_bBlue_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Ranged_Forge_Func018001002)), function Trig_Blue_Ranged_Forge_Func018A )
    if ( Trig_Blue_Ranged_Forge_Func019C() ) then
        set udg_bBlue_Cast_Level = udg_bBlue_Flex_Cap
        if ( Trig_Blue_Ranged_Forge_Func019Func002C() ) then
            set udg_bBlue_Cast_Level = GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit())
            if ( Trig_Blue_Ranged_Forge_Func019Func002Func003C() ) then
                set udg_bBlue_Cast_Level = udg_bBlue_Max_Cast
            else
            endif
            call SetUnitAbilityLevelSwapped( 'A00C', GetSpellAbilityUnit(), udg_bBlue_Cast_Level )
            call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_bBlue_Cast_Level) * udg_bBlue_Mana_Mod ) ) )
            return
        else
        endif
        if ( Trig_Blue_Ranged_Forge_Func019Func003C() ) then
            set udg_bBlue_Cast_Level = udg_bBlue_Max_Cast
        else
        endif
        call SetUnitAbilityLevelSwapped( 'A00C', GetSpellAbilityUnit(), udg_bBlue_Cast_Level )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_bBlue_Cast_Level) * udg_bBlue_Mana_Mod ) ) )
        return
    else
    endif
    set udg_bBlue_Unit_Max = ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 )
    set udg_bBlue_Cast_Level = ( udg_bBlue_Unit_Max - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Ranged_Forge_Func022C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5432" )
        call GroupClear( udg_bBlue_Units )
        return
    else
    endif
    if ( Trig_Blue_Ranged_Forge_Func023C() ) then
        set udg_bBlue_Cast_Level = GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit())
    else
    endif
    if ( Trig_Blue_Ranged_Forge_Func024C() ) then
        set udg_bBlue_Cast_Level = 12
    else
    endif
    if ( Trig_Blue_Ranged_Forge_Func025C() ) then
        set udg_bBlue_Cast_Level = udg_bBlue_Max_Cast
    else
    endif
    call SetUnitAbilityLevelSwapped( 'A00C', GetSpellAbilityUnit(), udg_bBlue_Cast_Level )
    call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_bBlue_Cast_Level) * udg_bBlue_Mana_Mod ) ) )
    call GroupClear( udg_bBlue_Units )
endfunction

//===========================================================================
function InitTrig_Blue_Ranged_Forge takes nothing returns nothing
    set gg_trg_Blue_Ranged_Forge = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Blue_Ranged_Forge, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Blue_Ranged_Forge, Condition( function Trig_Blue_Ranged_Forge_Conditions ) )
    call TriggerAddAction( gg_trg_Blue_Ranged_Forge, function Trig_Blue_Ranged_Forge_Actions )
endfunction


//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Blue_Magic_Forge_Conditions takes nothing returns boolean
    if ( not ( GetOwningPlayer(GetSpellAbilityUnit()) == Player(1) ) ) then
        return false
    endif
    if ( not ( GetSpellAbilityId() == 'A006' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func003C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast == 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func005001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Blue_Magic_Forge_Func005A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Magic_Forge_Func007C takes nothing returns boolean
    if ( not ( udg_bBlue_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func009001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Blue_Magic_Forge_Func009A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Magic_Forge_Func011C takes nothing returns boolean
    if ( not ( udg_bBlue_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func013001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Blue_Magic_Forge_Func013A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Magic_Forge_Func015C takes nothing returns boolean
    if ( not ( udg_bBlue_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func017001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Blue_Magic_Forge_Func017A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_bBlue_Units )
endfunction

function Trig_Blue_Magic_Forge_Func018Func002Func003C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast < udg_bBlue_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func018Func002C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level > GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func018Func003C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast < udg_bBlue_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func018C takes nothing returns boolean
    if ( not ( CountUnitsInGroup(udg_bBlue_Units) >= ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) ) ) then
        return false
    endif
    if ( not ( udg_bBlue_Flex_Cap > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func021C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level <= 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func022C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level > GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func023C takes nothing returns boolean
    if ( not ( udg_bBlue_Cast_Level > 12 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Func024C takes nothing returns boolean
    if ( not ( udg_bBlue_Max_Cast < udg_bBlue_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Blue_Magic_Forge_Actions takes nothing returns nothing
    set udg_bBlue_Mana_Mod = ( udg_wBase_Mana_Cost * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    set udg_bBlue_Max_Cast = ( R2I(GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit())) / R2I(udg_bBlue_Mana_Mod) )
    if ( Trig_Blue_Magic_Forge_Func003C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5433" )
        return
    else
    endif
    set udg_bBlue_Flex_Cap = GetHeroStatBJ(bj_HEROSTAT_AGI, GetSpellAbilityUnit(), true)
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Magic_Forge_Func005001002)), function Trig_Blue_Magic_Forge_Func005A )
    set udg_bBlue_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Magic_Forge_Func007C() ) then
        set udg_bBlue_Flex_Cap = ( udg_bBlue_Flex_Cap + udg_bBlue_Flex_Value )
    else
    endif
    call GroupClear( udg_bBlue_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Magic_Forge_Func009001002)), function Trig_Blue_Magic_Forge_Func009A )
    set udg_bBlue_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Magic_Forge_Func011C() ) then
        set udg_bBlue_Flex_Cap = ( udg_bBlue_Flex_Cap + udg_bBlue_Flex_Value )
    else
    endif
    call GroupClear( udg_bBlue_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Magic_Forge_Func013001002)), function Trig_Blue_Magic_Forge_Func013A )
    set udg_bBlue_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Magic_Forge_Func015C() ) then
        set udg_bBlue_Flex_Cap = ( udg_bBlue_Flex_Cap + udg_bBlue_Flex_Value )
    else
    endif
    call GroupClear( udg_bBlue_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Blue_Magic_Forge_Func017001002)), function Trig_Blue_Magic_Forge_Func017A )
    if ( Trig_Blue_Magic_Forge_Func018C() ) then
        set udg_bBlue_Cast_Level = udg_bBlue_Flex_Cap
        if ( Trig_Blue_Magic_Forge_Func018Func002C() ) then
            set udg_bBlue_Cast_Level = GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit())
            if ( Trig_Blue_Magic_Forge_Func018Func002Func003C() ) then
                set udg_bBlue_Cast_Level = udg_bBlue_Max_Cast
            else
            endif
            call SetUnitAbilityLevelSwapped( 'A006', GetSpellAbilityUnit(), udg_bBlue_Cast_Level )
            call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_bBlue_Cast_Level) * udg_bBlue_Mana_Mod ) ) )
            return
        else
        endif
        if ( Trig_Blue_Magic_Forge_Func018Func003C() ) then
            set udg_bBlue_Cast_Level = udg_bBlue_Max_Cast
        else
        endif
        call SetUnitAbilityLevelSwapped( 'A006', GetSpellAbilityUnit(), udg_bBlue_Cast_Level )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_bBlue_Cast_Level) * udg_bBlue_Mana_Mod ) ) )
        return
    else
    endif
    set udg_bBlue_Unit_Max = ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 )
    set udg_bBlue_Cast_Level = ( udg_bBlue_Unit_Max - CountUnitsInGroup(udg_bBlue_Units) )
    if ( Trig_Blue_Magic_Forge_Func021C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5434" )
        call GroupClear( udg_bBlue_Units )
        return
    else
    endif
    if ( Trig_Blue_Magic_Forge_Func022C() ) then
        set udg_bBlue_Cast_Level = GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit())
    else
    endif
    if ( Trig_Blue_Magic_Forge_Func023C() ) then
        set udg_bBlue_Cast_Level = 12
    else
    endif
    if ( Trig_Blue_Magic_Forge_Func024C() ) then
        set udg_bBlue_Cast_Level = udg_bBlue_Max_Cast
    else
    endif
    call SetUnitAbilityLevelSwapped( 'A006', GetSpellAbilityUnit(), udg_bBlue_Cast_Level )
    call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_bBlue_Cast_Level) * udg_bBlue_Mana_Mod ) ) )
    call GroupClear( udg_bBlue_Units )
endfunction

//===========================================================================
function InitTrig_Blue_Magic_Forge takes nothing returns nothing
    set gg_trg_Blue_Magic_Forge = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Blue_Magic_Forge, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Blue_Magic_Forge, Condition( function Trig_Blue_Magic_Forge_Conditions ) )
    call TriggerAddAction( gg_trg_Blue_Magic_Forge, function Trig_Blue_Magic_Forge_Actions )
endfunction
Teal Select
Events
Player - Player 3 (Teal) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zcBlood_Works_Teal for (Triggering player)
Teal Point Bloods Gain
Events
Unit - A unit Dies
Conditions
(Owner of (Killing unit)) Equal to Player 3 (Teal)
Actions
Set Variable Set cTeal_Kills = (cTeal_Kills + 1)
Set Variable Set xThreshold = (cTeal_Kills / xKills_Per_Point)
Set Variable Set xReal = ((Real(cTeal_Kills)) / (Real(xKills_Per_Point)))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
xReal Equal to (Real(xThreshold))
Then - Actions
Player - Add 1 to (Owner of (Killing unit)) . Current lumber
Else - Actions
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Teal_Melee_Forge_Conditions takes nothing returns boolean
    if ( not ( GetOwningPlayer(GetSpellAbilityUnit()) == Player(2) ) ) then
        return false
    endif
    if ( not ( GetSpellAbilityId() == 'A01N' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func005C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast == 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func007001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Teal_Melee_Forge_Func007A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Melee_Forge_Func009C takes nothing returns boolean
    if ( not ( udg_cTeal_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func011001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Teal_Melee_Forge_Func011A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Melee_Forge_Func013C takes nothing returns boolean
    if ( not ( udg_cTeal_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func015001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Teal_Melee_Forge_Func015A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Melee_Forge_Func017C takes nothing returns boolean
    if ( not ( udg_cTeal_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func019001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Teal_Melee_Forge_Func019A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Melee_Forge_Func020Func002Func003C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast < udg_cTeal_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func020Func002C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level > GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func020Func003C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast < udg_cTeal_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func020C takes nothing returns boolean
    if ( not ( CountUnitsInGroup(udg_cTeal_Units) >= ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) ) ) then
        return false
    endif
    if ( not ( udg_cTeal_Flex_Cap > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func023C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level <= 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func024C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level > GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func025C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level > 12 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Func026C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast < udg_cTeal_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Melee_Forge_Actions takes nothing returns nothing
    set udg_cTeal_Mana_Mod = ( udg_wBase_Mana_Cost * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    set udg_cTeal_Max_Cast = ( R2I(GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit())) / R2I(udg_cTeal_Mana_Mod) )
    if ( Trig_Teal_Melee_Forge_Func005C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5435" )
        return
    else
    endif
    set udg_cTeal_Flex_Cap = GetHeroStatBJ(bj_HEROSTAT_AGI, GetSpellAbilityUnit(), true)
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Melee_Forge_Func007001002)), function Trig_Teal_Melee_Forge_Func007A )
    set udg_cTeal_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Melee_Forge_Func009C() ) then
        set udg_cTeal_Flex_Cap = ( udg_cTeal_Flex_Cap + udg_cTeal_Flex_Value )
    else
    endif
    call GroupClear( udg_cTeal_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Melee_Forge_Func011001002)), function Trig_Teal_Melee_Forge_Func011A )
    set udg_cTeal_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Melee_Forge_Func013C() ) then
        set udg_cTeal_Flex_Cap = ( udg_cTeal_Flex_Cap + udg_cTeal_Flex_Value )
    else
    endif
    call GroupClear( udg_cTeal_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Melee_Forge_Func015001002)), function Trig_Teal_Melee_Forge_Func015A )
    set udg_cTeal_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Melee_Forge_Func017C() ) then
        set udg_cTeal_Flex_Cap = ( udg_cTeal_Flex_Cap + udg_cTeal_Flex_Value )
    else
    endif
    call GroupClear( udg_cTeal_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Melee_Forge_Func019001002)), function Trig_Teal_Melee_Forge_Func019A )
    if ( Trig_Teal_Melee_Forge_Func020C() ) then
        set udg_cTeal_Cast_Level = udg_cTeal_Flex_Cap
        if ( Trig_Teal_Melee_Forge_Func020Func002C() ) then
            set udg_cTeal_Cast_Level = GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit())
            if ( Trig_Teal_Melee_Forge_Func020Func002Func003C() ) then
                set udg_cTeal_Cast_Level = udg_cTeal_Max_Cast
            else
            endif
            call SetUnitAbilityLevelSwapped( 'A01N', GetSpellAbilityUnit(), udg_cTeal_Cast_Level )
            call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_cTeal_Cast_Level) * udg_cTeal_Mana_Mod ) ) )
            return
        else
        endif
        if ( Trig_Teal_Melee_Forge_Func020Func003C() ) then
            set udg_cTeal_Cast_Level = udg_cTeal_Max_Cast
        else
        endif
        call SetUnitAbilityLevelSwapped( 'A01N', GetSpellAbilityUnit(), udg_cTeal_Cast_Level )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_cTeal_Cast_Level) * udg_cTeal_Mana_Mod ) ) )
        return
    else
    endif
    set udg_cTeal_Unit_Max = ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 )
    set udg_cTeal_Cast_Level = ( udg_cTeal_Unit_Max - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Melee_Forge_Func023C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5436" )
        call GroupClear( udg_cTeal_Units )
        return
    else
    endif
    if ( Trig_Teal_Melee_Forge_Func024C() ) then
        set udg_cTeal_Cast_Level = GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit())
    else
    endif
    if ( Trig_Teal_Melee_Forge_Func025C() ) then
        set udg_cTeal_Cast_Level = 12
    else
    endif
    if ( Trig_Teal_Melee_Forge_Func026C() ) then
        set udg_cTeal_Cast_Level = udg_cTeal_Max_Cast
    else
    endif
    call SetUnitAbilityLevelSwapped( 'A01N', GetSpellAbilityUnit(), udg_cTeal_Cast_Level )
    call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_cTeal_Cast_Level) * udg_cTeal_Mana_Mod ) ) )
    call GroupClear( udg_cTeal_Units )
endfunction

//===========================================================================
function InitTrig_Teal_Melee_Forge takes nothing returns nothing
    set gg_trg_Teal_Melee_Forge = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Teal_Melee_Forge, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Teal_Melee_Forge, Condition( function Trig_Teal_Melee_Forge_Conditions ) )
    call TriggerAddAction( gg_trg_Teal_Melee_Forge, function Trig_Teal_Melee_Forge_Actions )
endfunction


//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Teal_Ranged_Forge_Conditions takes nothing returns boolean
    if ( not ( GetOwningPlayer(GetSpellAbilityUnit()) == Player(2) ) ) then
        return false
    endif
    if ( not ( GetSpellAbilityId() == 'A00C' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func004C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast == 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func006001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Teal_Ranged_Forge_Func006A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Ranged_Forge_Func008C takes nothing returns boolean
    if ( not ( udg_cTeal_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func010001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Teal_Ranged_Forge_Func010A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Ranged_Forge_Func012C takes nothing returns boolean
    if ( not ( udg_cTeal_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func014001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Teal_Ranged_Forge_Func014A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Ranged_Forge_Func016C takes nothing returns boolean
    if ( not ( udg_cTeal_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func018001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Teal_Ranged_Forge_Func018A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Ranged_Forge_Func019Func002Func003C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast < udg_cTeal_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func019Func002C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level > GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func019Func003C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast < udg_cTeal_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func019C takes nothing returns boolean
    if ( not ( CountUnitsInGroup(udg_cTeal_Units) >= ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) ) ) then
        return false
    endif
    if ( not ( udg_cTeal_Flex_Cap > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func022C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level <= 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func023C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level > GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func024C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level > 12 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Func025C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast < udg_cTeal_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Ranged_Forge_Actions takes nothing returns nothing
    set udg_cTeal_Mana_Mod = ( udg_wBase_Mana_Cost * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    set udg_cTeal_Max_Cast = ( R2I(GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit())) / R2I(udg_cTeal_Mana_Mod) )
    if ( Trig_Teal_Ranged_Forge_Func004C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5437" )
        return
    else
    endif
    set udg_cTeal_Flex_Cap = GetHeroStatBJ(bj_HEROSTAT_AGI, GetSpellAbilityUnit(), true)
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Ranged_Forge_Func006001002)), function Trig_Teal_Ranged_Forge_Func006A )
    set udg_cTeal_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Ranged_Forge_Func008C() ) then
        set udg_cTeal_Flex_Cap = ( udg_cTeal_Flex_Cap + udg_cTeal_Flex_Value )
    else
    endif
    call GroupClear( udg_cTeal_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Ranged_Forge_Func010001002)), function Trig_Teal_Ranged_Forge_Func010A )
    set udg_cTeal_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Ranged_Forge_Func012C() ) then
        set udg_cTeal_Flex_Cap = ( udg_cTeal_Flex_Cap + udg_cTeal_Flex_Value )
    else
    endif
    call GroupClear( udg_cTeal_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Ranged_Forge_Func014001002)), function Trig_Teal_Ranged_Forge_Func014A )
    set udg_cTeal_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Ranged_Forge_Func016C() ) then
        set udg_cTeal_Flex_Cap = ( udg_cTeal_Flex_Cap + udg_cTeal_Flex_Value )
    else
    endif
    call GroupClear( udg_cTeal_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Ranged_Forge_Func018001002)), function Trig_Teal_Ranged_Forge_Func018A )
    if ( Trig_Teal_Ranged_Forge_Func019C() ) then
        set udg_cTeal_Cast_Level = udg_cTeal_Flex_Cap
        if ( Trig_Teal_Ranged_Forge_Func019Func002C() ) then
            set udg_cTeal_Cast_Level = GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit())
            if ( Trig_Teal_Ranged_Forge_Func019Func002Func003C() ) then
                set udg_cTeal_Cast_Level = udg_cTeal_Max_Cast
            else
            endif
            call SetUnitAbilityLevelSwapped( 'A00C', GetSpellAbilityUnit(), udg_cTeal_Cast_Level )
            call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_cTeal_Cast_Level) * udg_cTeal_Mana_Mod ) ) )
            return
        else
        endif
        if ( Trig_Teal_Ranged_Forge_Func019Func003C() ) then
            set udg_cTeal_Cast_Level = udg_cTeal_Max_Cast
        else
        endif
        call SetUnitAbilityLevelSwapped( 'A00C', GetSpellAbilityUnit(), udg_cTeal_Cast_Level )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_cTeal_Cast_Level) * udg_cTeal_Mana_Mod ) ) )
        return
    else
    endif
    set udg_cTeal_Unit_Max = ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 )
    set udg_cTeal_Cast_Level = ( udg_cTeal_Unit_Max - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Ranged_Forge_Func022C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5438" )
        call GroupClear( udg_cTeal_Units )
        return
    else
    endif
    if ( Trig_Teal_Ranged_Forge_Func023C() ) then
        set udg_cTeal_Cast_Level = GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit())
    else
    endif
    if ( Trig_Teal_Ranged_Forge_Func024C() ) then
        set udg_cTeal_Cast_Level = 12
    else
    endif
    if ( Trig_Teal_Ranged_Forge_Func025C() ) then
        set udg_cTeal_Cast_Level = udg_cTeal_Max_Cast
    else
    endif
    call SetUnitAbilityLevelSwapped( 'A00C', GetSpellAbilityUnit(), udg_cTeal_Cast_Level )
    call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_cTeal_Cast_Level) * udg_cTeal_Mana_Mod ) ) )
    call GroupClear( udg_cTeal_Units )
endfunction

//===========================================================================
function InitTrig_Teal_Ranged_Forge takes nothing returns nothing
    set gg_trg_Teal_Ranged_Forge = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Teal_Ranged_Forge, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Teal_Ranged_Forge, Condition( function Trig_Teal_Ranged_Forge_Conditions ) )
    call TriggerAddAction( gg_trg_Teal_Ranged_Forge, function Trig_Teal_Ranged_Forge_Actions )
endfunction


//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Teal_Magic_Forge_Conditions takes nothing returns boolean
    if ( not ( GetOwningPlayer(GetSpellAbilityUnit()) == Player(2) ) ) then
        return false
    endif
    if ( not ( GetSpellAbilityId() == 'A006' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func003C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast == 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func005001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Teal_Magic_Forge_Func005A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Magic_Forge_Func007C takes nothing returns boolean
    if ( not ( udg_cTeal_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func009001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Teal_Magic_Forge_Func009A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Magic_Forge_Func011C takes nothing returns boolean
    if ( not ( udg_cTeal_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func013001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Teal_Magic_Forge_Func013A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Magic_Forge_Func015C takes nothing returns boolean
    if ( not ( udg_cTeal_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func017001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Teal_Magic_Forge_Func017A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_cTeal_Units )
endfunction

function Trig_Teal_Magic_Forge_Func018Func002Func003C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast < udg_cTeal_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func018Func002C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level > GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func018Func003C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast < udg_cTeal_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func018C takes nothing returns boolean
    if ( not ( CountUnitsInGroup(udg_cTeal_Units) >= ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) ) ) then
        return false
    endif
    if ( not ( udg_cTeal_Flex_Cap > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func021C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level <= 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func022C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level > GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func023C takes nothing returns boolean
    if ( not ( udg_cTeal_Cast_Level > 12 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Func024C takes nothing returns boolean
    if ( not ( udg_cTeal_Max_Cast < udg_cTeal_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Teal_Magic_Forge_Actions takes nothing returns nothing
    set udg_cTeal_Mana_Mod = ( udg_wBase_Mana_Cost * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    set udg_cTeal_Max_Cast = ( R2I(GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit())) / R2I(udg_cTeal_Mana_Mod) )
    if ( Trig_Teal_Magic_Forge_Func003C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5439" )
        return
    else
    endif
    set udg_cTeal_Flex_Cap = GetHeroStatBJ(bj_HEROSTAT_AGI, GetSpellAbilityUnit(), true)
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Magic_Forge_Func005001002)), function Trig_Teal_Magic_Forge_Func005A )
    set udg_cTeal_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Magic_Forge_Func007C() ) then
        set udg_cTeal_Flex_Cap = ( udg_cTeal_Flex_Cap + udg_cTeal_Flex_Value )
    else
    endif
    call GroupClear( udg_cTeal_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Magic_Forge_Func009001002)), function Trig_Teal_Magic_Forge_Func009A )
    set udg_cTeal_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Magic_Forge_Func011C() ) then
        set udg_cTeal_Flex_Cap = ( udg_cTeal_Flex_Cap + udg_cTeal_Flex_Value )
    else
    endif
    call GroupClear( udg_cTeal_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Magic_Forge_Func013001002)), function Trig_Teal_Magic_Forge_Func013A )
    set udg_cTeal_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Magic_Forge_Func015C() ) then
        set udg_cTeal_Flex_Cap = ( udg_cTeal_Flex_Cap + udg_cTeal_Flex_Value )
    else
    endif
    call GroupClear( udg_cTeal_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Teal_Magic_Forge_Func017001002)), function Trig_Teal_Magic_Forge_Func017A )
    if ( Trig_Teal_Magic_Forge_Func018C() ) then
        set udg_cTeal_Cast_Level = udg_cTeal_Flex_Cap
        if ( Trig_Teal_Magic_Forge_Func018Func002C() ) then
            set udg_cTeal_Cast_Level = GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit())
            if ( Trig_Teal_Magic_Forge_Func018Func002Func003C() ) then
                set udg_cTeal_Cast_Level = udg_cTeal_Max_Cast
            else
            endif
            call SetUnitAbilityLevelSwapped( 'A006', GetSpellAbilityUnit(), udg_cTeal_Cast_Level )
            call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_cTeal_Cast_Level) * udg_cTeal_Mana_Mod ) ) )
            return
        else
        endif
        if ( Trig_Teal_Magic_Forge_Func018Func003C() ) then
            set udg_cTeal_Cast_Level = udg_cTeal_Max_Cast
        else
        endif
        call SetUnitAbilityLevelSwapped( 'A006', GetSpellAbilityUnit(), udg_cTeal_Cast_Level )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_cTeal_Cast_Level) * udg_cTeal_Mana_Mod ) ) )
        return
    else
    endif
    set udg_cTeal_Unit_Max = ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 )
    set udg_cTeal_Cast_Level = ( udg_cTeal_Unit_Max - CountUnitsInGroup(udg_cTeal_Units) )
    if ( Trig_Teal_Magic_Forge_Func021C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5440" )
        call GroupClear( udg_cTeal_Units )
        return
    else
    endif
    if ( Trig_Teal_Magic_Forge_Func022C() ) then
        set udg_cTeal_Cast_Level = GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit())
    else
    endif
    if ( Trig_Teal_Magic_Forge_Func023C() ) then
        set udg_cTeal_Cast_Level = 12
    else
    endif
    if ( Trig_Teal_Magic_Forge_Func024C() ) then
        set udg_cTeal_Cast_Level = udg_cTeal_Max_Cast
    else
    endif
    call SetUnitAbilityLevelSwapped( 'A006', GetSpellAbilityUnit(), udg_cTeal_Cast_Level )
    call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_cTeal_Cast_Level) * udg_cTeal_Mana_Mod ) ) )
    call GroupClear( udg_cTeal_Units )
endfunction

//===========================================================================
function InitTrig_Teal_Magic_Forge takes nothing returns nothing
    set gg_trg_Teal_Magic_Forge = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Teal_Magic_Forge, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Teal_Magic_Forge, Condition( function Trig_Teal_Magic_Forge_Conditions ) )
    call TriggerAddAction( gg_trg_Teal_Magic_Forge, function Trig_Teal_Magic_Forge_Actions )
endfunction
Purple Select
Events
Player - Player 4 (Purple) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zdBlood_Works_Purple for (Triggering player)
Pruple Point Bloods Gain
Events
Unit - A unit Dies
Conditions
(Owner of (Killing unit)) Equal to Player 4 (Purple)
Actions
Set Variable Set dPurple_Kills = (dPurple_Kills + 1)
Set Variable Set xThreshold = (dPurple_Kills / xKills_Per_Point)
Set Variable Set xReal = ((Real(dPurple_Kills)) / (Real(xKills_Per_Point)))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
xReal Equal to (Real(xThreshold))
Then - Actions
Player - Add 1 to (Owner of (Killing unit)) . Current lumber
Else - Actions
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Purple_Melee_Forge_Conditions takes nothing returns boolean
    if ( not ( GetOwningPlayer(GetSpellAbilityUnit()) == Player(3) ) ) then
        return false
    endif
    if ( not ( GetSpellAbilityId() == 'A01N' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func005C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast == 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func007001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Purple_Melee_Forge_Func007A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Melee_Forge_Func009C takes nothing returns boolean
    if ( not ( udg_dPurple_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func011001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Purple_Melee_Forge_Func011A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Melee_Forge_Func013C takes nothing returns boolean
    if ( not ( udg_dPurple_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func015001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Purple_Melee_Forge_Func015A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Melee_Forge_Func017C takes nothing returns boolean
    if ( not ( udg_dPurple_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func019001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Purple_Melee_Forge_Func019A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Melee_Forge_Func020Func002Func003C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast < udg_dPurple_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func020Func002C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level > GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func020Func003C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast < udg_dPurple_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func020C takes nothing returns boolean
    if ( not ( CountUnitsInGroup(udg_dPurple_Units) >= ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) ) ) then
        return false
    endif
    if ( not ( udg_dPurple_Flex_Cap > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func023C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level <= 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func024C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level > GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func025C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level > 12 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Func026C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast < udg_dPurple_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Melee_Forge_Actions takes nothing returns nothing
    set udg_dPurple_Mana_Mod = ( udg_wBase_Mana_Cost * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    set udg_dPurple_Max_Cast = ( R2I(GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit())) / R2I(udg_dPurple_Mana_Mod) )
    if ( Trig_Purple_Melee_Forge_Func005C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5462" )
        return
    else
    endif
    set udg_dPurple_Flex_Cap = GetHeroStatBJ(bj_HEROSTAT_AGI, GetSpellAbilityUnit(), true)
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Melee_Forge_Func007001002)), function Trig_Purple_Melee_Forge_Func007A )
    set udg_dPurple_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Melee_Forge_Func009C() ) then
        set udg_dPurple_Flex_Cap = ( udg_dPurple_Flex_Cap + udg_dPurple_Flex_Value )
    else
    endif
    call GroupClear( udg_dPurple_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Melee_Forge_Func011001002)), function Trig_Purple_Melee_Forge_Func011A )
    set udg_dPurple_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Melee_Forge_Func013C() ) then
        set udg_dPurple_Flex_Cap = ( udg_dPurple_Flex_Cap + udg_dPurple_Flex_Value )
    else
    endif
    call GroupClear( udg_dPurple_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Melee_Forge_Func015001002)), function Trig_Purple_Melee_Forge_Func015A )
    set udg_dPurple_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Melee_Forge_Func017C() ) then
        set udg_dPurple_Flex_Cap = ( udg_dPurple_Flex_Cap + udg_dPurple_Flex_Value )
    else
    endif
    call GroupClear( udg_dPurple_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Melee_Forge_Func019001002)), function Trig_Purple_Melee_Forge_Func019A )
    if ( Trig_Purple_Melee_Forge_Func020C() ) then
        set udg_dPurple_Cast_Level = udg_dPurple_Flex_Cap
        if ( Trig_Purple_Melee_Forge_Func020Func002C() ) then
            set udg_dPurple_Cast_Level = GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit())
            if ( Trig_Purple_Melee_Forge_Func020Func002Func003C() ) then
                set udg_dPurple_Cast_Level = udg_dPurple_Max_Cast
            else
            endif
            call SetUnitAbilityLevelSwapped( 'A01N', GetSpellAbilityUnit(), udg_dPurple_Cast_Level )
            call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_dPurple_Cast_Level) * udg_dPurple_Mana_Mod ) ) )
            return
        else
        endif
        if ( Trig_Purple_Melee_Forge_Func020Func003C() ) then
            set udg_dPurple_Cast_Level = udg_dPurple_Max_Cast
        else
        endif
        call SetUnitAbilityLevelSwapped( 'A01N', GetSpellAbilityUnit(), udg_dPurple_Cast_Level )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_dPurple_Cast_Level) * udg_dPurple_Mana_Mod ) ) )
        return
    else
    endif
    set udg_dPurple_Unit_Max = ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 )
    set udg_dPurple_Cast_Level = ( udg_dPurple_Unit_Max - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Melee_Forge_Func023C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5463" )
        call GroupClear( udg_dPurple_Units )
        return
    else
    endif
    if ( Trig_Purple_Melee_Forge_Func024C() ) then
        set udg_dPurple_Cast_Level = GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit())
    else
    endif
    if ( Trig_Purple_Melee_Forge_Func025C() ) then
        set udg_dPurple_Cast_Level = 12
    else
    endif
    if ( Trig_Purple_Melee_Forge_Func026C() ) then
        set udg_dPurple_Cast_Level = udg_dPurple_Max_Cast
    else
    endif
    call SetUnitAbilityLevelSwapped( 'A01N', GetSpellAbilityUnit(), udg_dPurple_Cast_Level )
    call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_dPurple_Cast_Level) * udg_dPurple_Mana_Mod ) ) )
    call GroupClear( udg_dPurple_Units )
endfunction

//===========================================================================
function InitTrig_Purple_Melee_Forge takes nothing returns nothing
    set gg_trg_Purple_Melee_Forge = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Purple_Melee_Forge, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Purple_Melee_Forge, Condition( function Trig_Purple_Melee_Forge_Conditions ) )
    call TriggerAddAction( gg_trg_Purple_Melee_Forge, function Trig_Purple_Melee_Forge_Actions )
endfunction


//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Purple_Ranged_Forge_Conditions takes nothing returns boolean
    if ( not ( GetOwningPlayer(GetSpellAbilityUnit()) == Player(3) ) ) then
        return false
    endif
    if ( not ( GetSpellAbilityId() == 'A00C' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func004C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast == 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func006001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Purple_Ranged_Forge_Func006A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Ranged_Forge_Func008C takes nothing returns boolean
    if ( not ( udg_dPurple_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func010001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Purple_Ranged_Forge_Func010A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Ranged_Forge_Func012C takes nothing returns boolean
    if ( not ( udg_dPurple_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func014001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Purple_Ranged_Forge_Func014A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Ranged_Forge_Func016C takes nothing returns boolean
    if ( not ( udg_dPurple_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func018001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Purple_Ranged_Forge_Func018A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Ranged_Forge_Func019Func002Func003C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast < udg_dPurple_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func019Func002C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level > GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func019Func003C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast < udg_dPurple_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func019C takes nothing returns boolean
    if ( not ( CountUnitsInGroup(udg_dPurple_Units) >= ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) ) ) then
        return false
    endif
    if ( not ( udg_dPurple_Flex_Cap > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func022C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level <= 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func023C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level > GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func024C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level > 12 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Func025C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast < udg_dPurple_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Ranged_Forge_Actions takes nothing returns nothing
    set udg_dPurple_Mana_Mod = ( udg_wBase_Mana_Cost * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    set udg_dPurple_Max_Cast = ( R2I(GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit())) / R2I(udg_dPurple_Mana_Mod) )
    if ( Trig_Purple_Ranged_Forge_Func004C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5472" )
        return
    else
    endif
    set udg_dPurple_Flex_Cap = GetHeroStatBJ(bj_HEROSTAT_AGI, GetSpellAbilityUnit(), true)
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Ranged_Forge_Func006001002)), function Trig_Purple_Ranged_Forge_Func006A )
    set udg_dPurple_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Ranged_Forge_Func008C() ) then
        set udg_dPurple_Flex_Cap = ( udg_dPurple_Flex_Cap + udg_dPurple_Flex_Value )
    else
    endif
    call GroupClear( udg_dPurple_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Ranged_Forge_Func010001002)), function Trig_Purple_Ranged_Forge_Func010A )
    set udg_dPurple_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Ranged_Forge_Func012C() ) then
        set udg_dPurple_Flex_Cap = ( udg_dPurple_Flex_Cap + udg_dPurple_Flex_Value )
    else
    endif
    call GroupClear( udg_dPurple_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Ranged_Forge_Func014001002)), function Trig_Purple_Ranged_Forge_Func014A )
    set udg_dPurple_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Ranged_Forge_Func016C() ) then
        set udg_dPurple_Flex_Cap = ( udg_dPurple_Flex_Cap + udg_dPurple_Flex_Value )
    else
    endif
    call GroupClear( udg_dPurple_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Ranged_Forge_Func018001002)), function Trig_Purple_Ranged_Forge_Func018A )
    if ( Trig_Purple_Ranged_Forge_Func019C() ) then
        set udg_dPurple_Cast_Level = udg_dPurple_Flex_Cap
        if ( Trig_Purple_Ranged_Forge_Func019Func002C() ) then
            set udg_dPurple_Cast_Level = GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit())
            if ( Trig_Purple_Ranged_Forge_Func019Func002Func003C() ) then
                set udg_dPurple_Cast_Level = udg_dPurple_Max_Cast
            else
            endif
            call SetUnitAbilityLevelSwapped( 'A00C', GetSpellAbilityUnit(), udg_dPurple_Cast_Level )
            call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_dPurple_Cast_Level) * udg_dPurple_Mana_Mod ) ) )
            return
        else
        endif
        if ( Trig_Purple_Ranged_Forge_Func019Func003C() ) then
            set udg_dPurple_Cast_Level = udg_dPurple_Max_Cast
        else
        endif
        call SetUnitAbilityLevelSwapped( 'A00C', GetSpellAbilityUnit(), udg_dPurple_Cast_Level )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_dPurple_Cast_Level) * udg_dPurple_Mana_Mod ) ) )
        return
    else
    endif
    set udg_dPurple_Unit_Max = ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 )
    set udg_dPurple_Cast_Level = ( udg_dPurple_Unit_Max - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Ranged_Forge_Func022C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5473" )
        call GroupClear( udg_dPurple_Units )
        return
    else
    endif
    if ( Trig_Purple_Ranged_Forge_Func023C() ) then
        set udg_dPurple_Cast_Level = GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit())
    else
    endif
    if ( Trig_Purple_Ranged_Forge_Func024C() ) then
        set udg_dPurple_Cast_Level = 12
    else
    endif
    if ( Trig_Purple_Ranged_Forge_Func025C() ) then
        set udg_dPurple_Cast_Level = udg_dPurple_Max_Cast
    else
    endif
    call SetUnitAbilityLevelSwapped( 'A00C', GetSpellAbilityUnit(), udg_dPurple_Cast_Level )
    call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_dPurple_Cast_Level) * udg_dPurple_Mana_Mod ) ) )
    call GroupClear( udg_dPurple_Units )
endfunction

//===========================================================================
function InitTrig_Purple_Ranged_Forge takes nothing returns nothing
    set gg_trg_Purple_Ranged_Forge = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Purple_Ranged_Forge, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Purple_Ranged_Forge, Condition( function Trig_Purple_Ranged_Forge_Conditions ) )
    call TriggerAddAction( gg_trg_Purple_Ranged_Forge, function Trig_Purple_Ranged_Forge_Actions )
endfunction


//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Purple_Magic_Forge_Conditions takes nothing returns boolean
    if ( not ( GetOwningPlayer(GetSpellAbilityUnit()) == Player(3) ) ) then
        return false
    endif
    if ( not ( GetSpellAbilityId() == 'A006' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func003C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast == 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func005001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 1 )
endfunction

function Trig_Purple_Magic_Forge_Func005A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Magic_Forge_Func007C takes nothing returns boolean
    if ( not ( udg_dPurple_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func009001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 2 )
endfunction

function Trig_Purple_Magic_Forge_Func009A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Magic_Forge_Func011C takes nothing returns boolean
    if ( not ( udg_dPurple_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func013001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Purple_Magic_Forge_Func013A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Magic_Forge_Func015C takes nothing returns boolean
    if ( not ( udg_dPurple_Flex_Value < 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func017001002 takes nothing returns boolean
    return ( GetUnitPointValue(GetFilterUnit()) == 3 )
endfunction

function Trig_Purple_Magic_Forge_Func017A takes nothing returns nothing
    call GroupAddUnitSimple( GetEnumUnit(), udg_dPurple_Units )
endfunction

function Trig_Purple_Magic_Forge_Func018Func002Func003C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast < udg_dPurple_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func018Func002C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level > GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func018Func003C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast < udg_dPurple_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func018C takes nothing returns boolean
    if ( not ( CountUnitsInGroup(udg_dPurple_Units) >= ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) ) ) then
        return false
    endif
    if ( not ( udg_dPurple_Flex_Cap > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func021C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level <= 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func022C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level > GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func023C takes nothing returns boolean
    if ( not ( udg_dPurple_Cast_Level > 12 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Func024C takes nothing returns boolean
    if ( not ( udg_dPurple_Max_Cast < udg_dPurple_Cast_Level ) ) then
        return false
    endif
    return true
endfunction

function Trig_Purple_Magic_Forge_Actions takes nothing returns nothing
    set udg_dPurple_Mana_Mod = ( udg_wBase_Mana_Cost * ( 1 - ( I2R(GetPlayerTechMaxAllowedSwap('R00Z', GetOwningPlayer(GetSpellAbilityUnit()))) * 0.03 ) ) )
    set udg_dPurple_Max_Cast = ( R2I(GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit())) / R2I(udg_dPurple_Mana_Mod) )
    if ( Trig_Purple_Magic_Forge_Func003C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5470" )
        return
    else
    endif
    set udg_dPurple_Flex_Cap = GetHeroStatBJ(bj_HEROSTAT_AGI, GetSpellAbilityUnit(), true)
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Magic_Forge_Func005001002)), function Trig_Purple_Magic_Forge_Func005A )
    set udg_dPurple_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A01M', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Magic_Forge_Func007C() ) then
        set udg_dPurple_Flex_Cap = ( udg_dPurple_Flex_Cap + udg_dPurple_Flex_Value )
    else
    endif
    call GroupClear( udg_dPurple_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Magic_Forge_Func009001002)), function Trig_Purple_Magic_Forge_Func009A )
    set udg_dPurple_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A00I', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Magic_Forge_Func011C() ) then
        set udg_dPurple_Flex_Cap = ( udg_dPurple_Flex_Cap + udg_dPurple_Flex_Value )
    else
    endif
    call GroupClear( udg_dPurple_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Magic_Forge_Func013001002)), function Trig_Purple_Magic_Forge_Func013A )
    set udg_dPurple_Flex_Value = ( ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 ) - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Magic_Forge_Func015C() ) then
        set udg_dPurple_Flex_Cap = ( udg_dPurple_Flex_Cap + udg_dPurple_Flex_Value )
    else
    endif
    call GroupClear( udg_dPurple_Units )
    call ForGroupBJ( GetUnitsOfPlayerMatching(GetOwningPlayer(GetSpellAbilityUnit()), Condition(function Trig_Purple_Magic_Forge_Func017001002)), function Trig_Purple_Magic_Forge_Func017A )
    if ( Trig_Purple_Magic_Forge_Func018C() ) then
        set udg_dPurple_Cast_Level = udg_dPurple_Flex_Cap
        if ( Trig_Purple_Magic_Forge_Func018Func002C() ) then
            set udg_dPurple_Cast_Level = GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit())
            if ( Trig_Purple_Magic_Forge_Func018Func002Func003C() ) then
                set udg_dPurple_Cast_Level = udg_dPurple_Max_Cast
            else
            endif
            call SetUnitAbilityLevelSwapped( 'A006', GetSpellAbilityUnit(), udg_dPurple_Cast_Level )
            call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_dPurple_Cast_Level) * udg_dPurple_Mana_Mod ) ) )
            return
        else
        endif
        if ( Trig_Purple_Magic_Forge_Func018Func003C() ) then
            set udg_dPurple_Cast_Level = udg_dPurple_Max_Cast
        else
        endif
        call SetUnitAbilityLevelSwapped( 'A006', GetSpellAbilityUnit(), udg_dPurple_Cast_Level )
        call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_dPurple_Cast_Level) * udg_dPurple_Mana_Mod ) ) )
        return
    else
    endif
    set udg_dPurple_Unit_Max = ( GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit()) * 2 )
    set udg_dPurple_Cast_Level = ( udg_dPurple_Unit_Max - CountUnitsInGroup(udg_dPurple_Units) )
    if ( Trig_Purple_Magic_Forge_Func021C() ) then
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
        call DisplayTextToForce( GetForceOfPlayer(GetOwningPlayer(GetSpellAbilityUnit())), "TRIGSTR_5471" )
        call GroupClear( udg_dPurple_Units )
        return
    else
    endif
    if ( Trig_Purple_Magic_Forge_Func022C() ) then
        set udg_dPurple_Cast_Level = GetUnitAbilityLevelSwapped('A005', GetSpellAbilityUnit())
    else
    endif
    if ( Trig_Purple_Magic_Forge_Func023C() ) then
        set udg_dPurple_Cast_Level = 12
    else
    endif
    if ( Trig_Purple_Magic_Forge_Func024C() ) then
        set udg_dPurple_Cast_Level = udg_dPurple_Max_Cast
    else
    endif
    call SetUnitAbilityLevelSwapped( 'A006', GetSpellAbilityUnit(), udg_dPurple_Cast_Level )
    call SetUnitManaBJ( GetSpellAbilityUnit(), ( GetUnitStateSwap(UNIT_STATE_MANA, GetSpellAbilityUnit()) - ( I2R(udg_dPurple_Cast_Level) * udg_dPurple_Mana_Mod ) ) )
    call GroupClear( udg_dPurple_Units )
endfunction

//===========================================================================
function InitTrig_Purple_Magic_Forge takes nothing returns nothing
    set gg_trg_Purple_Magic_Forge = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Purple_Magic_Forge, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Purple_Magic_Forge, Condition( function Trig_Purple_Magic_Forge_Conditions ) )
    call TriggerAddAction( gg_trg_Purple_Magic_Forge, function Trig_Purple_Magic_Forge_Actions )
endfunction
Yellow Select
Events
Player - Player 5 (Yellow) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zeBlood_Works_Yellow for (Triggering player)
Orange Select
Events
Player - Player 6 (Orange) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zfBlood_Works_Orange for (Triggering player)
Green Select
Events
Player - Player 7 (Green) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zgBlood_Works_Green for (Triggering player)
Pink Select
Events
Player - Player 8 (Pink) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zhBlood_Works_Pink for (Triggering player)
Gray Select
Events
Player - Player 9 (Gray) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select ziBlood_Works_Gray for (Triggering player)
Light Blue Select
Events
Player - Player 10 (Light Blue) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zjBlood_Works_Light_Blue for (Triggering player)
Dark Green Select
Events
Player - Player 11 (Dark Green) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zkBlood_Works_Dark_Green for (Triggering player)
Brown Select
Events
Player - Player 12 (Brown) Selects a unit
Conditions
(Unit-type of (Triggering unit)) Equal to Blood Works
Actions
Selection - Select zlBlood_Works_Brown for (Triggering player)
Top