//TESH.scrollpos=288
//TESH.alwaysfold=0
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 |
AAAP_NightElves | player | No | |
AAAPG_NightElves | force | No | Force01 |
Archer01 | unit | No | |
Archer02 | unit | No | |
AwakenSound01 | sound | No | |
Bear01 | unit | No | |
Bear01Boolean | boolean | No | false |
Bear02 | unit | No | |
Bear02Boolean | boolean | No | false |
Bear03 | unit | No | |
Bear03Boolean | boolean | No | false |
Bear04 | unit | No | |
Bear04Boolean | boolean | No | false |
Bear06 | unit | No | |
Bear06Boolean | boolean | No | false |
Bear10 | unit | No | |
Bear10ABoolean | boolean | No | false |
Bear10BBoolean | boolean | No | true |
Bear10CBoolean | boolean | No | false |
Bear10DBoolean | boolean | No | false |
Bear12 | unit | No | |
Bear_Cin_Skip | boolean | No | false |
BearCinAssailant1 | unit | No | |
BearCinAssailant2 | unit | No | |
BearCinematicPlaying | boolean | No | false |
BearCinPlayed | boolean | No | false |
BonusesFound | integer | No | |
BonusesTotal | integer | No | |
BoxGolem | unit | No | |
BridgeVis | fogmodifier | No | |
CameraPoint | location | No | |
CameraPoint2 | location | No | |
CaveBearA1 | unit | No | |
CaveBearA2 | unit | No | |
CaveBearA3 | unit | No | |
CaveBearB1 | unit | No | |
CaveBearB2 | unit | No | |
CaveBearB3 | unit | No | |
CaveBearC1 | unit | No | |
CaveBearC2 | unit | No | |
CaveBearC3 | unit | No | |
ChargingOwlbear | unit | No | |
CinCleanGroup | group | No | |
Code | string | No | |
Code2 | string | No | |
CodeError | boolean | No | |
COPVisibiliity | fogmodifier | No | |
CrateSmashingSound01 | sound | No | |
CrateSmashingSound02 | sound | No | |
DiffInteger | integer | No | |
Dragon01 | unit | No | |
Dragon01Boolean | boolean | No | false |
Dragon02 | unit | No | |
Dragon02Boolean | boolean | No | false |
Dragon03 | unit | No | |
Dragon03Boolean | boolean | No | false |
Dragon04 | unit | No | |
Dragon04Boolean | boolean | No | false |
DruidofTalon01 | unit | No | UnitNull |
DruidofTalon02 | unit | No | UnitNull |
ElderWardenA | unit | No | |
ElderWardenB | unit | No | |
ElderWatcherC | unit | No | |
EmptyBowl | item | No | |
EndDruid | unit | No | |
EXTAS | integer | No | |
EXTRAStotal | integer | No | |
FrostFlashDamage | group | No | |
FullBowl | item | No | |
Furbolg_Finale_Skip | boolean | No | false |
Furbolg_Quest_Skip | boolean | No | false |
FurbolgGroup | group | No | |
FurbolgLeader | unit | No | |
FurbolgLeaderTALKTOMEfx | effect | No | |
FurbolgQuest | quest | No | |
FurbolgQuestExclamation | effect | No | |
FurbolgQuestVis | fogmodifier | No | |
FurbolgsFeralBoolean | boolean | No | false |
Furion | unit | No | |
FurionGroup | group | No | |
FurionHideGroup | group | No | |
FurionPosition | location | No | |
FurionVictory | boolean | No | false |
GAMEOVER | boolean | No | false |
GameSelection | boolean | No | |
Gate_Cin_Skip | boolean | No | false |
GateClosedBoolean | boolean | No | false |
Golem01 | unit | No | |
GotWaterBoolean | boolean | No | false |
Hero1 | unit | No | |
Hero1Inventory | string | No | |
Hero2 | unit | No | |
Hero2Inventory | string | No | |
HornOfCenarius | item | No | |
HostileSpider01 | unit | No | |
HostileSpider02 | unit | No | |
Illidan | unit | No | |
IllidanGuards | group | No | |
InitialWatcherGroup | group | No | |
InsaneMode | boolean | No | |
Intro_Skip | boolean | No | false |
JimmyTheNovaSeal | unit | No | |
Keeper | unit | No | |
KeeperAlpha | integer | No | |
KeeperCounter | integer | No | |
KeeperFirst | boolean | No | |
KeeperHash | hashtable | No | |
KeeperSpirit | unit | No | |
KeeperVulnerable | boolean | No | |
LavaBridge | destructable | No | |
LevelsPlayedWithThisCode | integer | No | |
LocalPlayer | player | No | |
OverallScoreLimit | integer | Yes | |
OverallScoreMax | integer | No | |
OwlbearConflictTimer | timer | No | |
OwlbearDooDooUnitGroup | group | No | |
OwlbearGroup | group | No | |
OwlbearScream01 | sound | No | |
OwlbearShaman | unit | No | |
OwlDooDoo01Boolean | boolean | No | false |
OwlDooDoo02Boolean | boolean | No | false |
OwlDooDoo03Boolean | boolean | No | false |
OwlDooDoo04Boolean | boolean | No | false |
OwlDooDoo05Boolean | boolean | No | false |
P_Druids | player | No | Player11 |
P_Illidan | player | No | Player02 |
P_Prisoners | player | No | Player09 |
P_Sleepers | player | No | Player08 |
P_Watchers | player | No | Player00 |
Panda | unit | No | |
Panda_Skip | boolean | No | false |
PandaHideGroup | group | No | |
PandaVictim | unit | No | |
Player1 | player | No | Player01 |
Player2 | player | No | Player10 |
PlayerCamera | location | No | |
PressurePlate01Activated | boolean | No | false |
PressurePlate02Activated | boolean | No | false |
QuestDruids | quest | No | |
QuestDruidsReqCOP | questitem | No | |
QuestDruidsReqDens | questitem | No | |
QuestDruidsReqDruids | questitem | No | |
QuestDruidsReqFurion | questitem | No | |
QuestDruidsReqTyrande | questitem | No | |
QuestIllidan | quest | No | |
QuestIllidanReqDefeat | questitem | No | |
QuestIllidanReqLocate | questitem | No | |
QuestIllidanReqTyrande | questitem | No | |
RankInteger | integer | No | |
REQFurbolgBowl | questitem | No | |
REQReturnBowl | questitem | No | |
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_Uncompress | integer | Yes | |
SaveLoad_UsePlayername | boolean | No | |
ScoreBonuses | integer | No | |
ScoreExtra | integer | No | |
ScoreLimit | integer | Yes | |
ScoreMax | integer | No | |
ScoreRank | string | No | |
ScoreSecret | integer | No | |
ScoreSubquest | integer | No | |
ScoreTime | integer | No | |
ScoreTotal | integer | No | |
SecretsFound | integer | No | |
SecretSludge | unit | No | |
SecretsTotal | integer | No | |
Selection | group | No | |
Selection2 | group | No | |
SickFurbolg | unit | No | |
SickFurbolgSleepfx | effect | No | |
Skeleton01 | unit | No | |
Skeleton02 | unit | No | |
Skeleton03 | unit | No | |
Skeleton04 | unit | No | |
Skeleton05 | unit | No | |
Skeleton06 | unit | No | |
Skeleton07 | unit | No | |
Sleep01 | effect | No | |
Sleep02 | effect | No | |
Sleep03 | effect | No | |
Sleeper01 | unit | No | |
Sleeper02 | unit | No | |
Sleeper03 | unit | No | |
SleeperGroup01 | group | No | |
SleeperVisBoolean | boolean | No | false |
SleepSound01 | sound | No | |
SleepSound02 | sound | No | |
SleepSound03 | sound | No | |
SleepyBear01 | effect | No | |
SleepyBear02 | effect | No | |
SpawnSkeletonSound01 | sound | No | |
SpawnSkeletonSound02 | sound | No | |
SpawnSkeletonSound03 | sound | No | |
SpawnSkeletonSound04 | sound | No | |
SpiderArcherGroup | group | No | |
SpiderEggAlive01 | boolean | No | true |
SpiderEggAlive02 | boolean | No | true |
SubquestsCompleted | integer | No | |
SubquestsTotal | integer | No | |
SumRank | integer | No | |
Talon01Position | location | No | |
Talon02Position | location | No | |
TeleportBoolean | boolean | No | false |
TeleportBoolean2 | boolean | No | false |
TeleportFX | effect | No | |
TempItem | item | No | |
TempItemType | itemcode | No | |
TempUnit1 | unit | No | |
TempUnit2 | unit | No | |
TimeMax | real | No | |
TimeMin | real | No | |
TimeRange | real | No | |
TimerHours | integer | No | |
TimerMinutes | integer | No | |
TimerNewUnitAvailableMessage | timer | No | |
TimerScoutNotice | timer | No | |
TimerSeconds | integer | No | |
TimerString | string | No | |
TimerStringHours | string | No | |
TimerStringMinutes | string | No | |
TimerStringSeconds | string | No | |
TimerTotal | integer | No | |
TimeTotal | integer | No | |
TreantMaker01 | unit | No | |
TreantMaker02 | unit | No | |
Tyrande | unit | No | |
TyrandeArcher01 | unit | No | |
TyrandeGroup | group | No | |
TyrandeGroup2 | group | No | |
TyrandeLocation | location | No | |
TyrandeOrFurion | boolean | No | false |
TyrandeVictory | boolean | No | false |
UndeadAttackerGroup | group | No | |
UndeadEliteGroup | group | No | |
UndeadEliteItem | item | No | |
UndeadMerryGroup | group | No | |
Validate | boolean | No | |
Victory_Furion_Skip | boolean | No | false |
Victory_Skip | boolean | No | false |
Victory_Tyrande_Skip | boolean | No | false |
VisibilityGate | fogmodifier | No | |
VisibilityInitialWatchers | fogmodifier | No | |
VisibilityPressurePlate01 | fogmodifier | No | |
VisibilityPressurePlate02 | fogmodifier | No | |
VisibilitySleepers | fogmodifier | No | |
VoteNew1 | boolean | No | |
VoteNew2 | boolean | No | |
VoteSkip1 | boolean | No | |
VoteSkip2 | boolean | No | |
VoteSkipFinal | boolean | No | |
Waterfall2Boolean | boolean | No | false |
Waterfall2Vision | fogmodifier | No | |
Waterfall3Boolean | boolean | No | false |
Waterfall3Vision | fogmodifier | No | |
Waterfall4Vision | fogmodifier | No | |
WaterfallAszuneBoolean | boolean | No | false |
WaterfallAszuneVisibility | fogmodifier | No | |
WaterfallFountainBoolean | boolean | No | false |
WaterfallFountainVis | fogmodifier | No | |
WaterfallP01Vis | fogmodifier | No | |
WaterfallP02Vis | fogmodifier | No | |
WaterfallP03Vis | fogmodifier | No | |
WaterfallP04Vis | fogmodifier | No | |
WaterfallP05Vis | fogmodifier | No | |
WaterfallPrisonBoolean | boolean | No | false |
Web01 | effect | No | |
Web02 | effect | No | |
Web03 | effect | No | |
WebbingSpidersGroup | group | No | |
WhaleFX | effect | No |
//TESH.scrollpos=11
//TESH.alwaysfold=0
function New takes nothing returns boolean
local player p = GetTriggerPlayer()
if not (udg_VoteNew2 or udg_VoteNew1) then
if p == udg_Player1 then
set udg_VoteNew1 = true
else
set udg_VoteNew2 = true
endif
elseif (p == udg_Player2 and udg_VoteNew1) or (p == udg_Player1 and udg_VoteNew2) then
call DisableTrigger(GetTriggeringTrigger())
//Tyrande stuff
call SelectHeroSkill(udg_Tyrande, 'AEst')
call SelectHeroSkill(udg_Tyrande, 'AHfa')
call SelectHeroSkill(udg_Tyrande, 'AHfa')
call SelectHeroSkill(udg_Tyrande, 'AEar')
call SelectHeroSkill(udg_Tyrande, 'AEar')
//Furion stuff
call SelectHeroSkill(udg_Furion, 'AEer')
call SelectHeroSkill(udg_Furion, 'AEer')
call SelectHeroSkill(udg_Furion, 'AEfn')
call SelectHeroSkill(udg_Furion, 'AEfn')
call SelectHeroSkill(udg_Furion, 'AEah')
//Disable pre-init only triggers
call DisableTrigger(GetTriggeringTrigger())
call DisableTrigger(gg_trg_GameMode)
call DisableTrigger(gg_trg_Loading)
//StartTriggerEvaluate
call TriggerExecute(gg_trg_Map_Initialization)
set udg_GameSelection = false
endif
return false
endfunction
function InitTrig_New takes nothing returns nothing
set gg_trg_New = CreateTrigger()
call DisableTrigger(gg_trg_New)
call TriggerRegisterPlayerChatEvent(gg_trg_New, udg_Player1, "-new", true)
call TriggerRegisterPlayerChatEvent(gg_trg_New, udg_Player2, "-new", true)
call TriggerAddCondition(gg_trg_New, Condition(function New))
endfunction
//TESH.scrollpos=3
//TESH.alwaysfold=0
function Starttext takes nothing returns boolean
if udg_GameSelection then
call ClearTextMessages()
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "|cff338844-=NIGHT ELF CHAPTER 5=-|r")
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "Brothers of Blood")
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, " ")
if udg_CodeError then
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "The code you entered is not compatible with this chapter.")
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "You can type '-load' again, followed your code, to try again.")
else
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "Type '-load' followed by the code received in the previous chapter to load your characters.")
endif
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "Alternatively, both players can type '-new' to start a new game.")
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, " ")
if udg_InsaneMode then
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "|cffffcc00Gamemode: |r|cffff0000INSANE|r")
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, " ")
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "To decrease the difficulty type '-normal'.")
else
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "|cffffcc00Gamemode: |r|cff00cc00NORMAL|r")
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, " ")
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "To increase the difficulty type '-insane'.")
endif
call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 10, "|cff32CD32NOTE|r - This is NOT used if you are loading a code. The code transfers the difficulty along with everything else.")
endif
return false
endfunction
function InitTrig_Starttext takes nothing returns nothing
set gg_trg_Starttext = CreateTrigger()
call TriggerAddCondition(gg_trg_Starttext, Condition(function Starttext))
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
function GameMode takes nothing returns boolean
local string s = GetEventPlayerChatString()
if s == "-normal" and udg_InsaneMode then
set udg_InsaneMode = false
elseif s == "-insane" and not udg_InsaneMode then
set udg_InsaneMode = true
endif
call TriggerEvaluate(gg_trg_Starttext)
return false
endfunction
function InitTrig_GameMode takes nothing returns nothing
set gg_trg_GameMode = CreateTrigger()
call DisableTrigger(gg_trg_GameMode)
call TriggerRegisterPlayerChatEvent(gg_trg_GameMode, udg_Player1, "-normal", true)
call TriggerRegisterPlayerChatEvent(gg_trg_GameMode, udg_Player1, "-insane", true)
call TriggerRegisterPlayerChatEvent(gg_trg_GameMode, udg_Player2, "-normal", true)
call TriggerRegisterPlayerChatEvent(gg_trg_GameMode, udg_Player2, "-insane", true)
call TriggerAddCondition(gg_trg_GameMode, Condition(function GameMode))
endfunction
//TESH.scrollpos=65
//TESH.alwaysfold=0
function HandlerFunc takes nothing returns nothing
local timer t = GetExpiredTimer()
local unit u
local boolean b
local boolean spawn = LoadBoolean(udg_KeeperHash, GetHandleId(t), 1)
local destructable d = LoadDestructableHandle(udg_KeeperHash, GetHandleId(t), 0)
call KillDestructable(d)
if (spawn) then
set u = CreateUnit(Player(0), 'e000', GetDestructableX(d), GetDestructableY(d), 270)
call SetUnitAnimation(u, "birth")
set b = GetUnitX(udg_Tyrande) >= GetRectMinX(gg_rct_Treant_Attack_Range)
set b = b and GetUnitX(udg_Tyrande) <= GetRectMaxX(gg_rct_Treant_Attack_Range)
set b = b and GetUnitY(udg_Tyrande) >= GetRectMinY(gg_rct_Treant_Attack_Range)
set b = b and GetUnitY(udg_Tyrande) <= GetRectMaxY(gg_rct_Treant_Attack_Range)
set b = b and not (GetUnitTypeId(udg_Tyrande) == 0 or IsUnitType(udg_Tyrande, UNIT_TYPE_DEAD))
if b then
call IssuePointOrder(u, "attack", GetUnitX(udg_Tyrande), GetUnitY(udg_Tyrande))
else
call IssuePointOrder(u, "attack", GetRectCenterX(gg_rct_TriggerIllidanGuards), GetRectCenterY(gg_rct_TriggerIllidanGuards))
endif
endif
call FlushChildHashtable(udg_KeeperHash, GetHandleId(t))
call DestroyTimer(t)
set u = null
set t = null
endfunction
function EnumTrees takes nothing returns nothing
local timer t = CreateTimer()
call SaveDestructableHandle(udg_KeeperHash, GetHandleId(t), 0, GetEnumDestructable())
if not udg_KeeperFirst then
call SaveBoolean(udg_KeeperHash, GetHandleId(t), 1, ModuloReal(udg_KeeperCounter, 2)==0)
else
call SaveBoolean(udg_KeeperHash, GetHandleId(t), 1, ModuloReal(udg_KeeperCounter, 3)==0)
endif
call TimerStart(t, GetRandomReal(0.25, 0.5) + I2R(udg_KeeperCounter)/5, false, function HandlerFunc)
set udg_KeeperCounter = udg_KeeperCounter + 1
set t = null
endfunction
function SpiritOut takes nothing returns nothing
call SetUnitVertexColor(udg_KeeperSpirit, 0, 255, 255, udg_KeeperAlpha)
if (udg_KeeperAlpha == 0) then
call RemoveUnit(udg_KeeperSpirit)
call DestroyTimer(GetExpiredTimer())
endif
set udg_KeeperAlpha = udg_KeeperAlpha - 1
endfunction
function RemoveSpirit takes nothing returns nothing
call IssueImmediateOrder(udg_KeeperSpirit, "stop")
call SetUnitAnimation(udg_KeeperSpirit, "spell")
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\DispelMagic\\DispelMagicTarget.mdx", udg_KeeperSpirit, "overhead"))
call TimerStart(GetExpiredTimer(), 0.01, true, function SpiritOut)
endfunction
function SpiritIn takes nothing returns nothing
local timer t = GetExpiredTimer()
call SetUnitVertexColor(udg_KeeperSpirit, 0, 255, 255, udg_KeeperAlpha)
if (udg_KeeperAlpha == 255) then
set udg_KeeperFirst = false
call EnumDestructablesInRect(gg_rct_Tranquility_Treants_1, null, function EnumTrees)
call EnumDestructablesInRect(gg_rct_Tranquility_Treants_4, null, function EnumTrees)
call EnumDestructablesInRect(gg_rct_Tranquility_Treants_2, null, function EnumTrees)
call EnumDestructablesInRect(gg_rct_Tranquility_Treants_3, null, function EnumTrees)
call IssueImmediateOrder(udg_KeeperSpirit, "tranquility")
call TimerStart(GetExpiredTimer(), 30, false, function RemoveSpirit)
endif
set udg_KeeperAlpha = udg_KeeperAlpha + 1
endfunction
function StartTranquility takes nothing returns nothing
set udg_KeeperSpirit = CreateUnit(Player(0), 'spir', -7627.750, 4800, 270)
call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl", GetUnitX(udg_KeeperSpirit), GetUnitY(udg_KeeperSpirit)))
call SetUnitVertexColor(udg_KeeperSpirit, 0, 255, 255, udg_KeeperAlpha)
call SetUnitFacing(udg_Keeper, bj_RADTODEG * Atan2(GetUnitY(udg_KeeperSpirit) - GetUnitY(udg_Keeper), GetUnitX(udg_KeeperSpirit) - GetUnitX(udg_Keeper)))
call SetUnitAnimation(udg_Keeper, "spell")
set udg_KeeperFirst = false
call TimerStart(CreateTimer(), 0.01, true, function SpiritIn)
endfunction
function FirstWave takes nothing returns nothing
call SetUnitFacing(udg_Keeper, 270)
call SetUnitAnimation(udg_Keeper, "spell")
set udg_KeeperFirst = true
call EnumDestructablesInRect(gg_rct_Tranquility_Treants_5, null, function EnumTrees)
endfunction
function InitTrig_Keeper takes nothing returns nothing
set udg_KeeperHash = InitHashtable()
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
function CinematicSkip takes nothing returns boolean
// It is just better to read this way
local player p = GetTriggerPlayer()
local boolean b1
local boolean b2
local boolean bool = udg_Victory_Furion_Skip
set bool = bool or udg_Victory_Tyrande_Skip
set bool = bool or udg_Bear_Cin_Skip
set bool = bool or udg_Gate_Cin_Skip
set bool = bool or udg_Panda_Skip
set bool = bool or udg_Furbolg_Quest_Skip
set bool = bool or udg_Furbolg_Finale_Skip
set bool = bool or udg_Intro_Skip
if bool then
if not (udg_VoteSkip1 or udg_VoteSkip2) then
if p == udg_Player1 then
set udg_VoteSkip1 = true
else
set udg_VoteSkip2 = true
endif
call DisplayTextToPlayer(GetLocalPlayer(), 0, 0, GetPlayerName(p) + " wishes to skip this cinematic.")
endif
else
set b1 = p == udg_Player1 and not udg_VoteSkip1
set b2 = p == udg_Player2 and not udg_VoteSkip2
if b1 or b2 then
set udg_VoteSkip1 = false
set udg_VoteSkip2 = false
set udg_VoteSkipFinal = true
if udg_Victory_Furion_Skip and TriggerEvaluate(gg_trg_Victory_Furion_Skip) then
call TriggerExecute(gg_trg_Victory_Furion_Skip)
elseif udg_Victory_Tyrande_Skip and TriggerEvaluate(gg_trg_Victory_Tyrande_Skip) then
call TriggerExecute(gg_trg_Victory_Tyrande_Skip)
elseif udg_Bear_Cin_Skip and TriggerEvaluate(gg_trg_Bear_Cin_Skip) then
call TriggerExecute(gg_trg_Bear_Cin_Skip)
elseif udg_Gate_Cin_Skip and TriggerEvaluate(gg_trg_Gate_Cin_Skip) then
call TriggerExecute(gg_trg_Gate_Cin_Skip)
elseif udg_Panda_Skip and TriggerEvaluate(gg_trg_Panda_Skip) then
call TriggerExecute(gg_trg_Panda_Skip)
elseif udg_Furbolg_Quest_Skip and TriggerEvaluate(gg_trg_Furbolg_Quest_Skip) then
call TriggerExecute(gg_trg_Furbolg_Quest_Skip)
elseif udg_Furbolg_Finale_Skip and TriggerEvaluate(gg_trg_Furbolg_Finale_Skip) then
call TriggerExecute(gg_trg_Furbolg_Finale_Skip)
elseif udg_Intro_Skip and TriggerEvaluate(gg_trg_Intro_Skip) then
call TriggerExecute(gg_trg_Intro_Skip)
endif
endif
endif
return false
endfunction
function InitTrig_CinematicSkip takes nothing returns nothing
set gg_trg_CinematicSkip = CreateTrigger()
call TriggerRegisterPlayerEvent(gg_trg_CinematicSkip, udg_Player1, EVENT_PLAYER_END_CINEMATIC)
call TriggerRegisterPlayerEvent(gg_trg_CinematicSkip, udg_Player2, EVENT_PLAYER_END_CINEMATIC)
call TriggerAddCondition(gg_trg_CinematicSkip, Condition(function CinematicSkip))
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
function OnResourceExchange takes nothing returns nothing
local string s = GetEventPlayerChatStringMatched()
if SubString(GetEventPlayerChatString(), 0, StringLength(s)) == s then
call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffcc6600ALLIES|r - You cannot exchange resources in this chapter.")
endif
endfunction
function InitTrig_NoResourceExchange takes nothing returns nothing
set gg_trg_NoResourceExchange = CreateTrigger()
call DisableTrigger(gg_trg_NoResourceExchange)
call TriggerAddAction( gg_trg_NoResourceExchange, function OnResourceExchange)
call TriggerRegisterPlayerChatEvent(gg_trg_NoResourceExchange, Player(1), "-gold", false)
call TriggerRegisterPlayerChatEvent(gg_trg_NoResourceExchange, Player(10), "-gold", false)
call TriggerRegisterPlayerChatEvent(gg_trg_NoResourceExchange, Player(1), "-lumber", false)
call TriggerRegisterPlayerChatEvent(gg_trg_NoResourceExchange, Player(10), "-lumber", false)
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
function OnUnitExchange takes nothing returns nothing
local string s = GetEventPlayerChatStringMatched()
call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffcc6600ALLIES|r - You cannot exchange units in this chapter.")
endfunction
function InitTrig_NoUnitExchange takes nothing returns nothing
set gg_trg_NoUnitExchange = CreateTrigger()
call DisableTrigger(gg_trg_NoUnitExchange)
call TriggerAddAction( gg_trg_NoUnitExchange, function OnUnitExchange)
call TriggerRegisterPlayerChatEvent(gg_trg_NoUnitExchange, Player(1), "-exchange", true)
call TriggerRegisterPlayerChatEvent(gg_trg_NoUnitExchange, Player(10), "-exchange", true)
endfunction
//TESH.scrollpos=8
//TESH.alwaysfold=0
function InsaneModeCheck takes nothing returns nothing
if udg_InsaneMode then
//Insane Mode
set udg_DiffInteger = 74
call SetHeroLevel(gg_unit_Ekee_0074, 6, false)
call SelectHeroSkill(gg_unit_Ekee_0074, 'AEer')
call SelectHeroSkill(gg_unit_Ekee_0074, 'AEer')
call SetPlayerAbilityAvailable(Player(0), 'AEfn', false)
call SetPlayerAbilityAvailable(Player(0), 'AEtq', false)
call SetPlayerTechResearched(udg_P_Druids, 'Rerh', 3)
call SetPlayerTechResearched(udg_P_Druids, 'Resw', 3)
call ReplaceUnitBJ(gg_unit_nslf_0226, 'fien', bj_UNIT_STATE_METHOD_RELATIVE)
call ReplaceUnitBJ(gg_unit_nslf_0211, 'fien', bj_UNIT_STATE_METHOD_RELATIVE)
call ReplaceUnitBJ(gg_unit_nsln_0157, 'sldg', bj_UNIT_STATE_METHOD_RELATIVE)
set udg_SecretSludge = ReplaceUnitBJ(gg_unit_nsln_0176, 'sldg', bj_UNIT_STATE_METHOD_RELATIVE)
else
//Normal Mode
set udg_DiffInteger = 64
call TriggerExecute(gg_trg_Not_Insane_Difficulty)
set udg_SecretSludge = gg_unit_nsln_0176
call SetPlayerAbilityAvailable(udg_P_Druids, 'A001', false)
set udg_Panda = ReplaceUnitBJ(gg_unit_nC12_0055, 'nC07', bj_UNIT_STATE_METHOD_RELATIVE)
endif
endfunction
function InitTrig_InsaneModeCheck takes nothing returns nothing
//this is only here because WE complains
//should probably put this in header and then remove
//the ExecuteFunc that call this
endfunction