function SaveLoad_InitialSetup takes nothing returns nothing
local integer i = 0
local integer j = 0
loop
set udg_SaveLoad_Compress[i + 48] = j
set udg_SaveLoad_Uncompress[i] = i + 48
set j = j + 1
set i = i + 1
exitwhen i >= 10
endloop
set i = 0
loop
set udg_SaveLoad_Compress[i + 97] = j
set udg_SaveLoad_Compress[i + 65] = j + 26
set udg_SaveLoad_Uncompress[i + 10] = i + 97
set udg_SaveLoad_Uncompress[i + 26 + 10] = i + 65
set j = j + 1
set i = i + 1
exitwhen i >= 26
endloop
endfunction
function SaveLoad_Id2CId takes integer n returns integer
local integer i = n / (256 * 256 * 256)
local integer r
set n = n - i * (256 * 256 * 256)
set r = udg_SaveLoad_Compress[i]
set i = n / (256 * 256)
set n = n - i * (256 * 256)
set r = r * 64 + udg_SaveLoad_Compress[i]
set i = n / 256
set r = r * 64 + udg_SaveLoad_Compress[i]
return r * 64 + udg_SaveLoad_Compress[n - i * 256]
endfunction
function SaveLoad_CId2Id takes integer n returns integer
local integer i = n / (64 * 64 * 64)
local integer r
set n = n - i * (64 * 64 * 64)
set r = udg_SaveLoad_Uncompress[i]
set i = n / (64 * 64)
set n = n - i * (64 * 64)
set r = r * 256 + udg_SaveLoad_Uncompress[i]
set i = n / 64
set r = r * 256 + udg_SaveLoad_Uncompress[i]
return r * 256 + udg_SaveLoad_Uncompress[n - i * 64]
endfunction
function SaveLoad_Unit2Integer takes unit u returns integer
local integer i = 0
local integer n = GetUnitTypeId(u)
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
loop
set i = i + 1
exitwhen i > udg_SaveLoad_Heroes_LastIndex
if udg_SaveLoad_Heroes[i] == n then
return i
endif
endloop
return SaveLoad_Id2CId(n)
endfunction
function SaveLoad_Integer2Unit takes integer i returns integer
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
if i <= udg_SaveLoad_Heroes_LastIndex then
return udg_SaveLoad_Heroes[i]
endif
return SaveLoad_CId2Id(i)
endfunction
function SaveLoad_Item2Integer takes item t returns integer
local integer i = 0
local integer n = GetItemTypeId(t)
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
loop
set i = i + 1
exitwhen i > udg_SaveLoad_Items_LastIndex
if udg_SaveLoad_Items[i] == n then
return i
endif
endloop
return SaveLoad_Id2CId(n)
endfunction
function SaveLoad_Integer2Item takes integer i returns integer
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
if i <= udg_SaveLoad_Items_LastIndex then
return udg_SaveLoad_Items[i]
endif
return SaveLoad_CId2Id(i)
endfunction
function SaveLoad_Ability2Integer takes integer a returns integer
local integer i = 0
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
loop
set i = i + 1
exitwhen i > udg_SaveLoad_Abilities_LastIndex
if udg_SaveLoad_Abilities[i] == a then
return i
endif
endloop
return SaveLoad_Id2CId(a)
endfunction
function SaveLoad_Integer2Ability takes integer i returns integer
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
if i <= udg_SaveLoad_Abilities_LastIndex then
return udg_SaveLoad_Abilities[i]
endif
return SaveLoad_CId2Id(i)
endfunction
function SaveLoad_Color takes string s returns string
local integer i = StringLength(s)
local string c
local string r = ""
loop
set i = i - 1
set c = SubString(s,i,i + 1)
if c == "0" or c == "1" or c == "2" or c == "3" or c == "4" or c == "5" or c == "6" or c == "7" or c == "8" or c == "9" then
set r = "|cffff9999" + c + "|r" + r
elseif c == "-" then
set r = "|cffdddddd-|r" + r
elseif c == "a" or c == "b" or c == "c" or c == "d" or c == "e" or c == "f" or c == "g" or c == "h" or c == "i" or c == "j" or c == "k" or c == "l" or c == "m" or c == "n" or c == "o" or c == "p" or c == "q" or c == "r" or c == "s" or c == "t" or c == "u" or c == "v" or c == "w" or c == "x" or c == "y" or c == "z" then
set r = "|cff99ff99" + c + "|r" + r
elseif c == "A" or c == "B" or c == "C" or c == "D" or c == "E" or c == "F" or c == "G" or c == "H" or c == "I" or c == "J" or c == "K" or c == "L" or c == "M" or c == "N" or c == "O" or c == "P" or c == "Q" or c == "R" or c == "S" or c == "T" or c == "U" or c == "V" or c == "W" or c == "X" or c == "Y" or c == "Z" then
set r = "|cff9999ff" + c + "|r" + r
else
set r = c + r
endif
exitwhen i <= 0
endloop
return r
endfunction
function SaveLoad_EncodeChar takes string n returns integer
local integer i = 0
local string s1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
local string s2 = "abcdefghijklmnopqrstuvwxyz"
local string s3 = "0123456789"
loop
if SubString(s1,i,i + 1) == n then
return i
endif
if SubString(s2,i,i + 1) == n then
return i
endif
set i = i + 1
exitwhen i >= 26
endloop
set i = 0
loop
if SubString(s3,i,i + 1) == n then
return i
endif
set i = i + 1
exitwhen i >= 10
endloop
return 0
endfunction
function SaveLoad_EncodeVerify takes string buffer returns integer
local integer i = 0
local integer j = 0
local string name = GetPlayerName(GetTriggerPlayer())
if udg_SaveLoad_UsePlayername == true then
loop
set j = j + SaveLoad_EncodeChar(SubString(name,i,i + 1))
set i = i + 1
exitwhen i >= StringLength(name)
endloop
endif
set i = 0
loop
set j = j + SaveLoad_EncodeChar(SubString(buffer,i,i + 1))
set i = i + 1
exitwhen i >= StringLength(buffer)
endloop
return j
endfunction
function SaveLoad_EncodeValues takes nothing returns string
local integer i
local integer j
local integer k
local integer l
local integer m
local integer CodeLength = StringLength(udg_SaveLoad_Alphabet)
local integer array a
local string buffer = ""
local string c = ""
local integer skip = 0
local integer CONST = 1000000
local string abc = "0123456789"
set i = 0
loop
set i = i + 1
exitwhen i > udg_SaveCount
set buffer = buffer + I2S(udg_Save[i]) + "-"
endloop
set buffer = buffer + I2S(SaveLoad_EncodeVerify(buffer))
if udg_Save[1] == 0 then
set buffer = "-" + buffer
endif
set i = 0
loop
set a[i] = 0
set i = i + 1
exitwhen i >= 100
endloop
set m = 0
set i = 0
loop
set j = 0
loop
set a[j] = a[j] * 11
set j = j + 1
exitwhen j > m
endloop
set l = 0
set c = SubString(buffer,i,i + 1)
loop
exitwhen SubString(abc,l,l + 1) == c
set l = l + 1
exitwhen l > 9
endloop
set a[0] = a[0] + l
set j = 0
loop
set k = a[j] / CONST
set a[j] = a[j] - k * CONST
set a[j + 1] = a[j + 1] + k
set j = j + 1
exitwhen j > m
endloop
if k > 0 then
set m = m + 1
endif
set i = i + 1
exitwhen i >= StringLength(buffer)
endloop
set buffer = ""
loop
exitwhen m < 0
set j = m
loop
exitwhen j <= 0
set k = a[j] / CodeLength
set a[j - 1] = a[j - 1] + (a[j] - k * CodeLength) * CONST
set a[j] = k
set j = j - 1
endloop
set k = a[j] / CodeLength
set i = a[j] - k * CodeLength
set buffer = buffer + SubString(udg_SaveLoad_Alphabet,i,i + 1)
set a[j] = k
if a[m] == 0 then
set m = m - 1
endif
endloop
set i = StringLength(buffer)
set skip = 0
set c = ""
loop
set i = i - 1
set c = c + SubString(buffer,i,i + 1)
set skip = skip + 1
if skip == 4 and i > 0 then
set c = c + "-"
set skip = 0
endif
exitwhen i <= 0
endloop
return c
endfunction
function SaveLoad_DecodeValues takes string s returns boolean
local integer i
local integer j
local integer k
local integer l
local integer SaveCode = 0
local integer m
local integer array a
local string buffer = ""
local integer CodeLength = StringLength(udg_SaveLoad_Alphabet)
local integer skip = -1
local integer CONST = 1000000
local string abc = "0123456789-"
local string c
set i = 0
loop
set a[i] = 0
set i = i + 1
exitwhen i >= 100
endloop
set m = 0
set i = 0
loop
set j = 0
loop
set a[j] = a[j] * CodeLength
set j = j + 1
exitwhen j > m
endloop
set skip = skip + 1
if skip == 4 then
set skip = 0
set i = i + 1
endif
set l = CodeLength
set c = SubString(s,i,i + 1)
loop
set l = l - 1
exitwhen l < 1
exitwhen SubString(udg_SaveLoad_Alphabet,l,l + 1) == c
endloop
set a[0] = a[0] + l
set j = 0
loop
set k = a[j] / CONST
set a[j] = a[j] - k * CONST
set a[j + 1] = a[j + 1] + k
set j = j + 1
exitwhen j > m
endloop
if k > 0 then
set m = m + 1
endif
set i = i + 1
exitwhen i >= StringLength(s)
endloop
loop
exitwhen m < 0
set j = m
loop
exitwhen j <= 0
set k = a[j] / 11
set a[j - 1] = a[j - 1] + (a[j] - k * 11) * CONST
set a[j] = k
set j = j - 1
endloop
set k = a[j] / 11
set i = a[j] - k * 11
set buffer = SubString(abc,i,i + 1) + buffer
set a[j] = k
if a[m] == 0 then
set m = m - 1
endif
endloop
set i = 0
set j = 0
loop
loop
exitwhen i >= StringLength(buffer)
exitwhen i > 0 and SubString(buffer,i,i + 1) == "-" and SubString(buffer,i - 1,i) != "-"
set i = i + 1
endloop
if i < StringLength(buffer) then
set k = i
endif
set SaveCode = SaveCode + 1
set udg_Save[SaveCode] = S2I(SubString(buffer,j,i))
set j = i + 1
set i = i + 1
exitwhen i >= StringLength(buffer)
endloop
set j = SaveLoad_EncodeVerify(SubString(buffer,0,k))
set udg_SaveCount = SaveCode - 1
if j == udg_Save[SaveCode] then
return true
endif
return false
endfunction
function SaveLoad_Encode takes nothing returns string
if udg_SaveLoad_CaseSensitive == false then
set udg_SaveLoad_Alphabet = StringCase(udg_SaveLoad_Alphabet,true)
endif
return SaveLoad_Color(SaveLoad_EncodeValues())
endfunction
function SaveLoad_Decode takes string s returns boolean
if udg_SaveLoad_CaseSensitive == false then
set udg_SaveLoad_Alphabet = StringCase(udg_SaveLoad_Alphabet,true)
set s = StringCase(s,true)
endif
if SaveLoad_DecodeValues(s) then
return true
endif
return false
endfunction
Name | Type | is_array | initial_value |
BlueTargetX | real | No | |
BlueTargetY | real | No | |
BlueUnderAttack | boolean | No | false |
BonusesFound | integer | No | |
BonusesTotal | integer | No | |
BrownSuicideOn | boolean | No | false |
CampaignScore | integer | No | |
Cenarius | unit | No | |
CenariusAtBlue | integer | No | 4 |
CenariusAtDarkGreen | integer | No | 6 |
CenariusAtHome | integer | No | 0 |
CenariusAtLightBlue | integer | No | 5 |
CenariusDefenseActive | boolean | No | false |
CenariusInCombat | boolean | No | false |
CenariusLeavingThreat | integer | No | 7 |
CenariusSmack | boolean | No | true |
CenariusState | integer | No | 0 |
CenariusToBlue | integer | No | 1 |
CenariusToDarkGreen | integer | No | 3 |
CenariusToLightBlue | integer | No | 2 |
CenariusTranquilityCounter | real | No | |
CenariusTranquilityDummy | unit | No | |
ChaosOrcs | boolean | No | false |
Cinematic | boolean | No | true |
Code | string | No | |
DarkGreenRespondedTo | boolean | No | true |
DarkGreenTargetX | real | No | |
DarkGreenTargetY | real | No | |
DarkGreenUnderAttack | boolean | No | false |
DefeatAllBuildingsDead | boolean | No | |
EnoughPlayers | boolean | No | |
Escape | boolean | No | |
ExchangeFail1 | boolean | No | |
ExchangeFail2 | boolean | No | |
ExchangeFail3 | boolean | No | |
ExchangeSelection1 | group | No | |
ExchangeSelection2 | group | No | |
ExchangeSuccess | boolean | No | |
Exchanging1 | boolean | No | |
Exchanging2 | boolean | No | |
ExitCinematicEscape | boolean | No | false |
ExitCinematicRunning | boolean | No | false |
ExitGrunt01 | unit | No | |
ExitGrunt02 | unit | No | |
Extra | integer | No | |
ExtraTotal | integer | No | |
FinalInventory | string | Yes | |
FinalRank | string | No | |
FireScenePlayed | boolean | No | false |
FountainCinematicEscape | boolean | No | false |
FountainCinematicRunning | boolean | No | false |
FountainGrunt | unit | No | |
FountainWitchDoctor | unit | No | |
GameOver | boolean | No | |
GAMEOVER | boolean | No | false |
GameSelection | boolean | No | true |
Grom | unit | No | |
GromBladestorm | integer | No | 0 |
GromCriticalStrike | integer | No | 0 |
GromIsChaos | boolean | No | false |
GromMirrorImage | integer | No | 0 |
GromWindWalk | integer | No | 0 |
Hero1 | unit | No | |
Hero2 | unit | No | |
INSANEMODE | boolean | No | |
IntroCinematicEscape | boolean | No | false |
IntroCinematicRunning | boolean | No | false |
IntroHiddenKeeper01 | unit | No | |
IntroHiddenKeeper02 | unit | No | |
LightBlueRespondedTo | boolean | No | true |
LightBlueTargetX | real | No | |
LightBlueTargetY | real | No | |
LightBlueUnderAttack | boolean | No | false |
MainAttackOrdered | boolean | No | false |
Mannoroth | unit | No | |
MissionNumber | integer | No | |
Nazgrel | unit | No | |
NazgrelEarthgroup | group | No | |
NazgrelEarthTable | hashtable | No | |
NazgrelEnfeebleGroup | group | No | |
NazgrelLightningUnit | unit | No | |
NazgrelMeteor | unit | No | |
NazgrelSpells | integer | Yes | |
NewVote1 | boolean | No | |
NewVote2 | boolean | No | |
NoPendingAttacks | boolean | No | true |
Player1 | player | No | Player03 |
Player2 | player | No | Player10 |
PlayerCenarius | player | No | Player02 |
PlayerGrom | player | No | Player03 |
PointPlayerCamera | location | No | |
QuestCenarius | quest | No | |
QuestPowerSource | quest | No | |
QuestReqFindPower | questitem | No | |
QuestReqKillCenarius | questitem | No | |
QuestReqKillSatyrs | questitem | No | |
RandomCenariusSmack | real | No | 0.00 |
RankInteger | integer | No | |
Requirement_Region | rect | No | |
RequirementTech | boolean | Yes | |
RequirementUnitP1 | unit | Yes | |
RequirementUnitP2 | unit | Yes | |
RequirementUnitType | unitcode | Yes | |
ResearchEnabledT2 | boolean | Yes | |
ResearchEnabledT3 | boolean | Yes | |
ResearchStringT1 | string | Yes | |
ResearchStringT2 | string | Yes | |
ResearchStringT3 | string | Yes | |
ResearchType | techcode | Yes | |
ResourceDropBuildings | group | No | |
ResourceDropHashtable | hashtable | No | |
RespondingToBlue | boolean | No | false |
RespondingToDarkGreen | boolean | No | false |
RespondingToLightBlue | boolean | No | false |
Save | integer | Yes | |
SaveCount | integer | No | |
SaveLoad_Abilities | abilcode | Yes | |
SaveLoad_Abilities_LastIndex | integer | No | |
SaveLoad_Alphabet | string | No | |
SaveLoad_CaseSensitive | boolean | No | |
SaveLoad_Compress | integer | Yes | |
SaveLoad_Heroes | unitcode | Yes | |
SaveLoad_Heroes_LastIndex | integer | No | |
SaveLoad_Initialized | boolean | No | |
SaveLoad_Items | itemcode | Yes | |
SaveLoad_Items_LastIndex | integer | No | |
SaveLoad_TotalTime | integer | No | |
SaveLoad_Uncompress | integer | Yes | |
SaveLoad_UsePlayername | boolean | No | |
ScoreBonuses | integer | No | |
ScoreExtra | integer | No | |
ScoreLimit | integer | Yes | |
ScoreMax | integer | No | |
ScoreSubquests | integer | No | |
ScoreTime | integer | No | |
SelectionGroup1 | group | No | |
SelectionGroup2 | group | No | |
SkipVote1 | boolean | No | |
SkipVote2 | boolean | No | |
SubquestsComplete | integer | No | |
SubquestsTotal | integer | No | |
SumRank | integer | No | |
TempBoolean | boolean | No | |
TempInteger | integer | No | |
TempItem | item | No | |
TempItemType | itemcode | No | |
TempPGroup | force | No | |
TempPGroup2 | force | No | |
TempPlayer | player | No | |
temppoint | location | No | |
TempPoint | location | No | |
temppoint2 | location | No | |
TempUGroup | group | No | |
tempugroup | group | No | |
TempUnit | unit | No | |
TempUnitType | unitcode | No | |
TimeHours | integer | No | |
TimeMax | real | No | |
TimeMin | real | No | |
TimeMins | integer | No | |
TimeRange | real | No | |
TimerBlueUnderAttack | timer | No | |
TimerBottomAttackFailsafe | timer | No | |
TimerCenariusInCombat | timer | No | |
TimerCenariusQuest | timer | No | |
TimerCenariusSmack | timer | No | |
TimerChaosOrcsHint | timer | No | |
TimerDarkGreenUnderAttack | timer | No | |
TimerLightBlueUnderAttack | timer | No | |
TimerMiddleAttackFailsafe | timer | No | |
TimerPoolQuest | timer | No | |
TimerTopAttackFailsafe | timer | No | |
TimerWitchDoctorHint | timer | No | |
TimerWolfReset | timer | No | |
TimeSeconds | integer | No | |
TimeSecondsTotal | integer | No | |
TimeTakenString | string | No | |
TranquilityDummy | unit | No | |
TreeCinematicEscape | boolean | No | false |
TreeCinematicRunning | boolean | No | false |
UnitBurningArcher01 | unit | No | |
UnitBurningArcher02 | unit | No | |
UnitBurningArcher03 | unit | No | |
UnitBurningArcher04 | unit | No | |
UnitChimaeraBottom01 | unit | No | |
UnitChimaeraBottom02 | unit | No | |
UnitChimaeraMiddle01 | unit | No | |
UnitChimaeraMiddle02 | unit | No | |
UnitChimaeraTop01 | unit | No | |
UnitChimaeraTop02 | unit | No | |
UnitFireSatyr | unit | No | |
UnitGroup | group | No | |
UnitGroupAIBlueUnits | group | No | |
UnitGroupAIDarkGreenUnits | group | No | |
UnitGroupAILightBlueUnits | group | No | |
UnitGroupBottomA | group | No | |
UnitGroupBottomB | group | No | |
UnitGroupBottomC | group | No | |
UnitGroupBottomCombined | group | No | |
UnitGroupFinalSatyr | group | No | |
UnitGroupHiddenOrcs | group | No | |
UnitGroupInitialBaseBottom | group | No | |
UnitGroupInitialBaseMiddle | group | No | |
UnitGroupInitialBaseTop | group | No | |
UnitGroupInitialTreants | group | No | |
UnitGroupMiddleA | group | No | |
UnitGroupMiddleB | group | No | |
UnitGroupMiddleC | group | No | |
UnitGroupMiddleCombined | group | No | |
UnitGroupSelection1 | group | No | |
UnitGroupSelection2 | group | No | |
UnitGroupTopA | group | No | |
UnitGroupTopB | group | No | |
UnitGroupTopC | group | No | |
UnitGroupTopCombined | group | No | |
UnitGroupWayGateSatyrs | group | No | |
UnitGroupWitchDoctors | group | No | |
UnitGroupWolves | group | No | |
Validate | boolean | No | |
VisibilityFountain1 | fogmodifier | No | |
VisibilityFountain2 | fogmodifier | No | |
VisibilityWoodBlock1 | fogmodifier | No | |
VisibilityWoodBlock2 | fogmodifier | No | |
x | real | No | |
y | real | No |
//===========================================================================
function Trig_Mana_Pool_Func takes nothing returns boolean
local unit filtunit = GetFilterUnit()
return IsUnitAliveBJ(filtunit) and IsUnitAlly(filtunit, Player(1))
endfunction
//===========================================================================
function Trig_Mana_Pool_Conditions takes nothing returns boolean
if not RectContainsUnit(gg_rct_Cenarius_Home, gg_unit_Ecen_0000 ) then
return false
endif
if not IsUnitGroupEmptyBJ(GetUnitsInRectMatching(gg_rct_Cenarius_Home, Condition(function Trig_Mana_Pool_Func))) then
return false
endif
return true
endfunction
//===========================================================================
function Trig_Mana_Pool_Actions takes nothing returns nothing
call SetUnitManaBJ( gg_unit_Ecen_0000, GetUnitStateSwap(UNIT_STATE_MANA, gg_unit_Ecen_0000) + 5 )
call SetUnitLifeBJ( gg_unit_Ecen_0000, GetUnitStateSwap(UNIT_STATE_LIFE, gg_unit_Ecen_0000) + 10 )
endfunction
//===========================================================================
function InitTrig_Mana_Pool takes nothing returns nothing
set gg_trg_Mana_Pool = CreateTrigger( )
call TriggerRegisterTimerEventPeriodic( gg_trg_Mana_Pool, 1.00 )
call TriggerAddCondition( gg_trg_Mana_Pool, Condition( function Trig_Mana_Pool_Conditions ) )
call TriggerAddAction( gg_trg_Mana_Pool, function Trig_Mana_Pool_Actions )
endfunction
function moveDummy takes nothing returns nothing
local group grp = CreateGroup()
local unit u
local real x = GetUnitX(udg_Cenarius)
local real y = GetUnitY(udg_Cenarius)
//Move the dummy to Cenarius' position
call SetUnitX(udg_CenariusTranquilityDummy, x)
call SetUnitY(udg_CenariusTranquilityDummy, y)
if udg_INSANEMODE then
//Fill the group
call GroupEnumUnitsInRange(grp, x, y, 900, null)
loop
set u = FirstOfGroup(grp)
exitwhen u == null
if not (IsUnitType(u, UNIT_TYPE_ANCIENT) or IsUnitType(u, UNIT_TYPE_STRUCTURE) or IsUnitType(u, UNIT_TYPE_MECHANICAL)) then
call SetWidgetLife(u, GetWidgetLife(u) + 30 * 0.03125)
endif
call GroupRemoveUnit(grp, u)
endloop
endif
//Check if 30 seconds have passed
if (udg_CenariusTranquilityCounter >= 30) then
//Apply timed life to the
call UnitApplyTimedLife(udg_CenariusTranquilityDummy, 'BTLF', 1)
//Remove the leak
call DestroyTimer(GetExpiredTimer())
endif
//Track the time
set udg_CenariusTranquilityCounter = udg_CenariusTranquilityCounter + 0.03125
endfunction
function onCast takes nothing returns boolean
//Get the ability that was cast
local integer abilityId = GetSpellAbilityId()
local real x
local real y
local unit u
local unit dummy
local unit target
local group grp
//Check if its Tranquility
if abilityId == 'AEtq' then
//Get Cenarius' coordinates
set x = GetUnitX(udg_Cenarius)
set y = GetUnitY(udg_Cenarius)
//Check if its in Insane Mode or not
if not udg_INSANEMODE then
//If it aint, then Cenarius should do the work on his own
call UnitAddAbility(udg_Cenarius, 'A00F')
call IssueImmediateOrder(udg_Cenarius, "tranquility")
else
//If it is, then he gets a helping hand
//Create the dummy unit on top of Cenarius
set udg_CenariusTranquilityDummy = CreateUnit(Player(2), 'h00C', x, y, 0)
//Move him on top, because CreateUnit checks pathing
call SetUnitX(udg_CenariusTranquilityDummy, x)
call SetUnitY(udg_CenariusTranquilityDummy, y)
//Start the clock!
call TimerStart(CreateTimer(), 0.03125, true, function moveDummy)
endif
//If it aint Tranquility, maybe its Entangling roots?
elseif abilityId == 'AEer' and udg_INSANEMODE then
//Get the target unit
set target = GetSpellTargetUnit()
//Get the coordinate of the target location
set x = GetUnitX(target)
set y = GetUnitY(target)
//Create the group
set grp = CreateGroup()
//Fill the group with the units targeted
call GroupEnumUnitsInRange(grp, x, y, 512, null)
//Loop through the group via the FirstOfGroup approach
loop
//Get next unit
set u = FirstOfGroup(grp)
//If the unit is null - end the loop
exitwhen u == null
//Make sure we dont entangle the target again
//To be honest, I dont think it even matters
if u != target and IsUnitEnemy(u, Player(2)) then
//Create the dummy unit
set dummy = CreateUnit(Player(15), 'h003', x, y, 0)
//Give the actual roots to the dummy
call UnitAddAbility(dummy, 'A00H')
//Set the dummy's position to that of the selected target
call SetUnitX(dummy, x)
call SetUnitY(dummy, y)
//Order the dummy to entangle the target
call IssueTargetOrder(dummy, "entanglingroots", u)
//Apply timed life to the dummy
call UnitApplyTimedLife(dummy, 'BTLF', 3)
endif
//Remove the unit from the group, so we dont pick it again
call GroupRemoveUnit(grp, u)
endloop
//Remove the unit group leak
call DestroyGroup(grp)
//Last chance: Entangling Roots
elseif abilityId == 'AEfn' and udg_INSANEMODE then
set dummy = CreateUnit(Player(2), 'e000', GetSpellTargetX(), GetSpellTargetY(), 0)
call UnitApplyTimedLife(dummy, 'BEfn', 60)
endif
//Null the locals so we dont leak
set grp = null
set u = null
set dummy = null
//Return false so the trigger doesnt check for actions
return false
endfunction
function InitTrig_Cenarius_Insane_Spells takes nothing returns nothing
//Create the trigger
set gg_trg_Cenarius_Insane_Spells = CreateTrigger()
//Add the event; since they are all spells only one is needed
call TriggerRegisterPlayerUnitEvent(gg_trg_Cenarius_Insane_Spells, Player(2), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
//Using conditions is better than using actions, efficiency-wise
//The only real con(that I can remember) is that you cant use waits,
//and that isnt a problem here (and in most cases, really)
call TriggerAddCondition(gg_trg_Cenarius_Insane_Spells, Condition(function onCast))
endfunction