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 |
AbominationFodder | unit | No | |
AbominationFodderB | unit | No | |
AbominationFodderC | unit | No | |
AbominationFodderD | unit | No | |
AbominationFodderE | unit | No | |
AbominationFodderF | unit | No | |
Arthas | unit | No | |
ArthasPoint | location | No | |
BonusesFound | integer | No | |
BonusesTotal | integer | No | |
BreadcrumbAllowed | integer | No | |
BreadcrumbAngleArray | real | Yes | |
BreadcrumbCurrent | integer | No | |
BreadcrumbIntro | integer | No | |
BreadcrumbReached | integer | No | |
BreadcrumbStopExit | integer | No | |
BreadcrumbStopTown1 | integer | No | |
BreadcrumbStopTown2 | integer | No | |
BreadcrumbStopTown3 | integer | No | |
BreadcrumbStopTown4 | integer | No | |
BreadcrumbTotal | integer | No | |
CameraPosition | location | No | |
CampaignScore | integer | No | |
Captain | unit | No | |
CaravanCorruptionPulse | timer | No | |
CaravanGuardFirst | integer | No | |
CaravanGuardLast | integer | No | |
CARAVANISDEADBOOLEAN | boolean | No | false |
CaravanOrderPulse | timer | No | |
CaravanTestPulse | timer | No | |
CaravanTown1Timer | timer | No | |
CaravanTown2Timer | timer | No | |
CaravanTown3Timer | timer | No | |
CaravanTown4Timer | timer | No | |
CaravanUnitArray | unit | Yes | |
CaravanWagonFirst | integer | No | |
CaravanWagonLast | integer | No | |
Cinematic | boolean | No | true |
Code | string | No | |
CorruptVillager01 | location | No | |
CorruptVillager02 | location | No | |
CorruptVillager03 | location | No | |
CorruptVillager04 | location | No | |
CorruptVillager05 | location | No | |
CorruptVillager06 | location | No | |
CorruptVillager07 | location | No | |
CorruptVillagerGroup1 | group | No | |
EndingCancelled | boolean | No | false |
EnoughPlayers | boolean | No | |
ExchangeFail1 | boolean | No | |
ExchangeFail2 | boolean | No | |
ExchangeFail3 | boolean | No | |
ExchangeSuccess | boolean | No | |
Exchanging1 | boolean | No | |
Exchanging2 | boolean | No | |
Extra | integer | No | |
ExtraTotal | integer | No | |
Farm01CorruptedGroup | group | No | |
Farm02CorruptedGroup | group | No | |
Farm03CorruptedGroup | group | No | |
Farm04CorruptedGroup | group | No | |
Farm051 | fogmodifier | No | |
Farm052 | fogmodifier | No | |
Farm05Group1 | group | No | |
Farm05Quest | effect | No | |
Farmers01 | group | No | |
Farmers02 | group | No | |
Farmers03 | group | No | |
Farmers04 | group | No | |
FinalInventory | string | Yes | |
FinalRank | string | No | |
Foot1 | unit | No | |
Foot2 | unit | No | |
Foot3 | unit | No | |
Foot4 | unit | No | |
Foot5 | unit | No | |
Foot6 | unit | No | |
Foot7 | unit | No | |
Footman1 | unit | No | |
Footman2 | unit | No | |
FormationAngleArray | real | Yes | |
FormationDistanceArray | real | Yes | |
FormationRegionArray | rect | Yes | |
FormationTotal | integer | No | |
FountainVisibility1 | fogmodifier | No | |
FountainVisibility2 | fogmodifier | No | |
FreeVillager | unit | No | UnitNull |
FreeVillagerTalktoMe | effect | No | |
GAMEOVER | boolean | No | false |
GameSelection | boolean | No | true |
GhoulAttackArthas | unit | No | |
GrainCaravanQuest | quest | No | |
GuardCallForHelpDist | real | No | 600.00 |
HearthglenQuest | quest | No | |
HopelessTimer | timer | No | |
INSANEMODE | boolean | No | |
IntroCancelled | boolean | No | false |
ItemSpawn | rect | Yes | |
Jaina | unit | No | |
LastCaravanDeath | location | No | |
LevelOfAbility | integer | Yes | |
MalGanis01 | unit | No | |
MalGanis02 | unit | No | |
MalGanis03 | unit | No | |
MalGanis04 | unit | No | |
MalGanis05 | unit | No | |
MalGanis06 | unit | No | |
MalGanis07 | unit | No | |
MalGanis08 | unit | No | |
MalGanisOutside01 | unit | No | |
MalGanisOutside02 | unit | No | |
MalGanisOutside03 | unit | No | |
Militia | group | No | |
MilitiaStop | boolean | No | false |
MissionNumber | integer | No | |
NewVote1 | boolean | No | |
NewVote2 | boolean | No | |
OrangeAIAttackWave | timer | No | |
OutsideFarmGroup | group | No | |
PlagueCloudsA | effect | Yes | |
PlagueCloudsB | effect | Yes | |
PlagueCloudsC | effect | Yes | |
PlagueCloudsD | effect | Yes | |
Player1 | player | No | Player01 |
Player2 | player | No | Player08 |
pointcheck | location | No | |
pointx | location | No | |
pointy | location | No | |
Priest1 | unit | No | |
RankInteger | integer | No | |
Reinforcement | boolean | No | false |
ReorientAngle | real | No | |
REQCaravanquest | questitem | No | |
Requirement_Region | rect | No | |
RequirementUnitType | unitcode | Yes | |
ResearchMax | integer | No | |
ResearchString | string | Yes | |
ResearchType | techcode | Yes | |
ResourceDropBuildings | group | No | |
Rifle1 | unit | No | |
Rifle2 | unit | No | |
Rifle3 | unit | No | |
Rifleman1 | unit | No | |
RoamingVillagersA | group | No | |
RoamingVillagersB | group | No | |
RoamingVillagersC | group | No | |
RoamingVillagersD | group | No | |
RoamingVillagersE | group | No | |
RoamingVillagersF | group | 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_TotalGrades | integer | Yes | |
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 | |
Sergeant | unit | No | |
SheepItem | unit | No | |
SheepPoint | location | No | |
SkipVote1 | boolean | No | |
SkipVote2 | boolean | No | |
SpawnedItem | item | Yes | |
SpeedOfGuards | real | No | 150.00 |
SpeedOfWagons | real | No | 150.00 |
SubquestsComplete | integer | No | |
SubquestsTotal | integer | No | |
SuicideTimer | timer | No | |
SumRank | integer | No | |
TechHash | hashtable | No | |
TeleportUnit | unit | No | |
temp_unit | unit | No | |
TempAngle | real | No | |
TempBoolean | boolean | No | |
TempInteger | integer | No | |
TempItem | item | No | |
TempItemType | itemcode | No | |
TempLastAngle | real | No | |
TempLastIndex | integer | No | |
TempMaxAngle | real | No | |
TempMinAngle | real | No | |
TempNextAngle | real | No | |
TempNextIndex | integer | No | |
TempPGroup | force | No | |
TempPGroup2 | force | No | |
TempPlayer | player | No | |
TempPoint | location | No | |
TempUGroup | group | No | |
TempUnit | unit | No | |
TempUnitType | unitcode | No | |
TempX | real | No | |
TempY | real | No | |
TheCaravanGuards | group | No | |
TheCaravanWagons | group | No | |
TimeHours | integer | No | |
TimeMax | real | No | |
TimeMin | real | No | |
TimeMins | integer | No | |
Timer30Minute | timer | No | |
TimeRange | real | No | |
TimerWarning | timer | No | |
TimeSeconds | integer | No | |
TimeSecondsTotal | integer | No | |
TimeTakenString | string | No | |
tipEu | boolean | No | |
TotalVision | real | No | |
TownHall | unit | Yes | |
TownPortal | item | No | |
UnitGroup | group | No | |
Uther | unit | No | |
UtherKnights1 | group | No | |
Validate | boolean | No | |
Villager01 | unit | No | |
Villager02 | unit | No | |
Villager03 | unit | No | |
Villager04 | unit | No | |
Villager05 | unit | No | |
Villager06 | unit | No | |
Villager07 | unit | No | |
Villager08 | unit | No | |
Villager09 | unit | No | |
Villager10 | unit | No | |
Villager11 | unit | No | |
Villager12 | unit | No | |
Villager13 | unit | No | |
Villager14 | unit | No | |
Villager15 | unit | No | |
Villager16 | unit | No | |
Villager17 | unit | No | |
Villager18 | unit | No | |
Villager19 | unit | No | |
VillageVis1 | fogmodifier | No | |
VillageVis2 | fogmodifier | No | |
zBreadcrumbArray | location | Yes | |
zReorientTarget | location | No |
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_Cinematic_Pre_Actions takes nothing returns nothing
local real x
local real y
local unit u
call EnableTrigger(gg_trg_GiveResource)
call EnableTrigger(gg_trg_ExchangeUnits)
//Blue town hall/keep
set x = GetUnitX(udg_TownHall[1])
set y = GetUnitY(udg_TownHall[1])
set u = CreateUnit(udg_Player2, GetUnitTypeId(udg_TownHall[1]) - 'h'*256*256*256 + 'z'*256*256*256, x, y, 0)
call SetUnitX(u, x)
call SetUnitY(u, y)
call SaveUnitHandle(udg_TechHash, 0, GetHandleId(udg_TownHall[1]), u)
//Gray town hall/keep
set x = GetUnitX(udg_TownHall[2])
set y = GetUnitY(udg_TownHall[2])
set u = CreateUnit(udg_Player1, GetUnitTypeId(udg_TownHall[2]) - 'h'*256*256*256 + 'z'*256*256*256, x, y, 0)
call SetUnitX(u, x)
call SetUnitY(u, y)
call SaveUnitHandle(udg_TechHash, 0, GetHandleId(udg_TownHall[2]), u)
//Actual original/generated content of the trigger
call TriggerSleepAction( 0.30 )
call SetUnitOwner( gg_unit_Hart_0032, Player(1), true )
call SetUnitOwner( gg_unit_Hjai_0033, Player(2), true )
call SetUnitOwner( gg_unit_hfoo_0025, Player(1), true )
call SetUnitOwner( gg_unit_hrif_0026, Player(1), true )
call SetUnitOwner( gg_unit_hrif_0028, Player(1), true )
call SetUnitOwner( gg_unit_hrif_0116, Player(8), true )
call SetUnitOwner( gg_unit_hrif_0078, Player(8), true )
call SetUnitOwner( gg_unit_hfoo_0091, Player(8), true )
call SetUnitOwner( gg_unit_hfoo_0027, Player(8), true )
call SetUnitOwner( gg_unit_hfoo_0168, Player(8), true )
call SetUnitOwner( gg_unit_hfoo_0076, Player(8), true )
call SetUnitOwner( gg_unit_hfoo_0023, Player(8), true )
call SetUnitOwner( gg_unit_hfoo_0077, Player(8), true )
call SetUnitOwner( gg_unit_hfoo_0024, Player(8), true )
call SetUnitOwner( gg_unit_H000_0035, Player(8), true )
call SetUnitOwner( gg_unit_hgtw_0020, Player(8), true )
call SetUnitOwner( gg_unit_hgtw_0066, Player(8), true )
call SetUnitOwner( gg_unit_hgtw_0085, Player(8), true )
call SetUnitOwner( gg_unit_hgtw_0101, Player(8), true )
call SetUnitOwner( gg_unit_hgtw_0065, Player(8), true )
call SetUnitOwner( gg_unit_hgtw_0125, Player(8), true )
call SetUnitOwner( gg_unit_hgtw_0167, Player(8), true )
call SetUnitOwner( udg_TownHall[1], Player(8), true )
call SetUnitOwner( udg_TownHall[2], Player(8), true )
call SetUnitOwner( gg_unit_hbar_0029, Player(8), true )
call SetUnitOwner( gg_unit_hbar_0044, Player(8), true )
call SetUnitOwner( gg_unit_halt_0200, Player(8), true )
call SetUnitOwner( gg_unit_halt_0019, Player(8), true )
call SetUnitOwner( gg_unit_hlum_0045, Player(8), true )
call SetUnitOwner( gg_unit_hbla_0015, Player(8), true )
call SetUnitOwner( gg_unit_hhou_0021, Player(8), true )
call SetUnitOwner( gg_unit_hhou_0073, Player(8), true )
call SetUnitOwner( gg_unit_hhou_0047, Player(8), true )
call SetUnitOwner( gg_unit_hhou_0086, Player(8), true )
// Hearthglen Reveal
call CreateFogModifierRectBJ( true, Player(1), FOG_OF_WAR_VISIBLE, gg_rct_02_Vis_Hearthglen_A )
call FogModifierStop( GetLastCreatedFogModifier() )
call CreateFogModifierRectBJ( true, Player(1), FOG_OF_WAR_VISIBLE, gg_rct_02_Vis_Hearthglen_B )
call FogModifierStop( GetLastCreatedFogModifier() )
call CreateFogModifierRectBJ( true, Player(1), FOG_OF_WAR_VISIBLE, gg_rct_02_Vis_Hearthglen_C )
call FogModifierStop( GetLastCreatedFogModifier() )
call CreateFogModifierRectBJ( true, Player(1), FOG_OF_WAR_VISIBLE, gg_rct_02_Vis_Hearthglen_D )
call FogModifierStop( GetLastCreatedFogModifier() )
call CreateFogModifierRectBJ( true, Player(1), FOG_OF_WAR_VISIBLE, gg_rct_02_Vis_Hearthglen_E )
call FogModifierStop( GetLastCreatedFogModifier() )
call CreateFogModifierRectBJ( true, Player(8), FOG_OF_WAR_VISIBLE, gg_rct_02_Vis_Hearthglen_A )
call FogModifierStop( GetLastCreatedFogModifier() )
call CreateFogModifierRectBJ( true, Player(8), FOG_OF_WAR_VISIBLE, gg_rct_02_Vis_Hearthglen_B )
call FogModifierStop( GetLastCreatedFogModifier() )
call CreateFogModifierRectBJ( true, Player(8), FOG_OF_WAR_VISIBLE, gg_rct_02_Vis_Hearthglen_C )
call FogModifierStop( GetLastCreatedFogModifier() )
call CreateFogModifierRectBJ( true, Player(8), FOG_OF_WAR_VISIBLE, gg_rct_02_Vis_Hearthglen_D )
call FogModifierStop( GetLastCreatedFogModifier() )
call CreateFogModifierRectBJ( true, Player(8), FOG_OF_WAR_VISIBLE, gg_rct_02_Vis_Hearthglen_E )
call FogModifierStop( GetLastCreatedFogModifier() )
set u = null
endfunction
//===========================================================================
function InitTrig_Cinematic_Pre takes nothing returns nothing
set gg_trg_Cinematic_Pre = CreateTrigger( )
call TriggerAddAction( gg_trg_Cinematic_Pre, function Trig_Cinematic_Pre_Actions )
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
function ResearchStart takes nothing returns boolean
local player p1 = GetTriggerPlayer()
local player p2
local integer i
local integer t = GetResearched()
if p1 == udg_Player1 then
set p2 = udg_Player2
else
set p2 = udg_Player1
endif
call SetPlayerTechMaxAllowed(p2, t, GetPlayerTechCount(p1, t, true))
set p1 = null
set p2 = null
return false
endfunction
function ResearchComplete takes nothing returns boolean
local player p1 = GetTriggerPlayer()
local player p2
local integer t = GetResearched()
local integer i
local integer tn
local integer t1
local integer t2
if p1 == udg_Player1 then
set p2 = udg_Player2
else
set p2 = udg_Player1
endif
set i = 1
loop
exitwhen i > udg_ResearchMax
if udg_ResearchType[i] == t then
set t1 = GetPlayerTechMaxAllowed(p1, t)
set t2 = GetPlayerTechMaxAllowed(p2, t)
// If one of the players transfered the building that doing was the research
// Without this, it wouldn't let the other player research the next level(s)
if t1 >= t2 then
set tn = GetPlayerTechCount(p1, t, true)
call SetPlayerTechMaxAllowed(p1, t, t1)
call SetPlayerTechResearched(p1, t, tn)
call SetPlayerTechMaxAllowed(p2, t, t1)
call SetPlayerTechResearched(p2, t, tn)
else
set tn = GetPlayerTechCount(p2, t, true)
call SetPlayerTechMaxAllowed(p1, t, t2)
call SetPlayerTechResearched(p1, t, tn)
call SetPlayerTechMaxAllowed(p2, t, t2)
call SetPlayerTechResearched(p2, t, tn)
endif
call DisplayTextToPlayer(GetLocalPlayer(), 0, 0, "|cff9966ccRESEARCH|r - " + GetPlayerName(p1) + " has researched " + udg_ResearchString[(i - 1)*3 + tn] + " for both players.")
call StartSound(gg_snd_Hint)
exitwhen true
endif
set i = i + 1
endloop
set p1 = null
set p2 = null
return false
endfunction
function ResearchCancel takes nothing returns boolean
local player p1 = GetTriggerPlayer()
local player p2
local integer t = GetResearched()
local integer i
local integer t1
local integer t2
if p1 == udg_Player1 then
set p2 = udg_Player2
else
set p2 = udg_Player1
endif
set i = 1
loop
exitwhen i > udg_ResearchMax
if udg_ResearchType[i] == t then
set t1 = GetPlayerTechMaxAllowed(p1, t)
set t2 = GetPlayerTechMaxAllowed(p2, t)
// If one of the players transfered the building that was doing the research
// Without this, it wouldn't let the other player research the next level(s)
if t1 >= t2 then
call SetPlayerTechMaxAllowed(p1, t, t1)
call SetPlayerTechMaxAllowed(p2, t, t1)
else
call SetPlayerTechMaxAllowed(p1, t, t2)
call SetPlayerTechMaxAllowed(p2, t, t2)
endif
exitwhen true
endif
set i = i + 1
endloop
set p1 = null
set p2 = null
return false
endfunction
function InitTrig_ResearchStart takes nothing returns nothing
local trigger t1 = CreateTrigger()
local trigger t2 = CreateTrigger()
local trigger t3 = CreateTrigger()
call TriggerRegisterPlayerUnitEvent(t1, udg_Player1, EVENT_PLAYER_UNIT_RESEARCH_START, null)
call TriggerRegisterPlayerUnitEvent(t1, udg_Player2, EVENT_PLAYER_UNIT_RESEARCH_START, null)
call TriggerAddCondition(t1, Condition(function ResearchStart))
call TriggerRegisterPlayerUnitEvent(t2, udg_Player1, EVENT_PLAYER_UNIT_RESEARCH_FINISH, null)
call TriggerRegisterPlayerUnitEvent(t2, udg_Player2, EVENT_PLAYER_UNIT_RESEARCH_FINISH, null)
call TriggerAddCondition(t2, Condition(function ResearchComplete))
call TriggerRegisterPlayerUnitEvent(t3, udg_Player1, EVENT_PLAYER_UNIT_RESEARCH_CANCEL, null)
call TriggerRegisterPlayerUnitEvent(t3, udg_Player2, EVENT_PLAYER_UNIT_RESEARCH_CANCEL, null)
call TriggerAddCondition(t3, Condition(function ResearchCancel))
set t1 = null
set t2 = null
set t3 = null
endfunction
//TESH.scrollpos=31
//TESH.alwaysfold=0
function GiveResource takes nothing returns nothing
local playerstate ps
local integer i
local integer a
local player p1 = GetTriggerPlayer()
local player p2
local string tmp
local string resource
local string message = GetEventPlayerChatString()
local string gold = SubString(message, 0, 6)
local string lumber = SubString(message, 0, 8)
if gold == "-gold " or lumber == "-lumber " then
if p1 == udg_Player1 then
set p2 = udg_Player2
else
set p2 = udg_Player1
endif
if gold == "-gold " then
set resource = "gold"
set ps = PLAYER_STATE_RESOURCE_GOLD
set a = S2I(SubString(message, 6, StringLength(message)))
else
set resource = "lumber"
set ps = PLAYER_STATE_RESOURCE_LUMBER
set a = S2I(SubString(message, 8, StringLength(message)))
endif
set i = GetPlayerState(p1, ps)
if a > i then
set a = i
endif
if a > 0 then
set tmp = I2S(a)
call SetPlayerState(p1, ps, i - a)
call SetPlayerState(p2, ps, GetPlayerState(p2, ps) + a)
call DisplayTextToPlayer(p2, 0, 0, "|cffcc6600ALLIES|r - " + tmp + " " + resource + " received from " + GetPlayerName(p1) + ".")
call DisplayTextToPlayer(p1, 0, 0, "|cffcc6600ALLIES|r - " + tmp + " " + resource + " sent to " + GetPlayerName(p2) + ".")
call StartSound(gg_snd_ItemReceived)
else
call DisplayTextToPlayer(p1, 0, 0, "|cffcc6600ALLIES|r - Not enough " + resource + ".")
endif
endif
set ps = null
set p1 = null
set p2 = null
endfunction
function InitTrig_GiveResource takes nothing returns nothing
set gg_trg_GiveResource = CreateTrigger()
call DisableTrigger(gg_trg_GiveResource)
call TriggerRegisterPlayerChatEvent(gg_trg_GiveResource, udg_Player1, "-gold ", false)
call TriggerRegisterPlayerChatEvent(gg_trg_GiveResource, udg_Player2, "-gold ", false)
call TriggerRegisterPlayerChatEvent(gg_trg_GiveResource, udg_Player1, "-lumber ", false)
call TriggerRegisterPlayerChatEvent(gg_trg_GiveResource, udg_Player2, "-lumber ", false)
call TriggerAddAction(gg_trg_GiveResource, function GiveResource)
endfunction
//TESH.scrollpos=80
//TESH.alwaysfold=0
function ExchangeUnits takes nothing returns nothing
local player p1 = GetTriggerPlayer()
local player p2
local group units = CreateGroup()
local boolean b1
local boolean b2
local boolean b3
local boolean b4
local integer food = 0
local integer uyes = 0
local integer uall = 0
local integer fUsed
local integer fMax
local integer i
local unit u
local unit u1
local unit u2
local string result
local string result2
if p1 == udg_Player1 then
set p2 = udg_Player2
else
set p2 = udg_Player1
endif
// Gonna get reused
set fUsed = GetPlayerState(p2, PLAYER_STATE_RESOURCE_FOOD_USED)
set fMax = GetPlayerState(p2, PLAYER_STATE_RESOURCE_FOOD_CAP)
call GroupEnumUnitsSelected(units, p1, null)
set u = FirstOfGroup(units)
loop
set u = FirstOfGroup(units)
exitwhen u == null
set i = GetUnitFoodUsed(u)
// Kinda confusing but better than a mile long line, trust me
set b1 = GetUnitFoodMade(u) == 0 and IsUnitType(u, UNIT_TYPE_STRUCTURE)
set b2 = i + fUsed <= fMax and not IsUnitType(u, UNIT_TYPE_STRUCTURE)
set b3 = not (IsUnitType(u, UNIT_TYPE_HERO) or IsUnitType(u, UNIT_TYPE_SUMMONED) or IsUnitType(u, UNIT_TYPE_PEON))
set b4 = GetOwningPlayer(u) == p1 and GetUnitTypeId(u) != 'halt'
if (b1 or b2) and b3 and b4 then
set uyes = uyes + 1
set food = food + i
call SetUnitOwner(u, p2, true)
set u1 = LoadUnitHandle(udg_TechHash, 0, GetHandleId(u))
if u1 != null then
call SetUnitOwner(u1, p1, true)
endif
set u2 = LoadUnitHandle(udg_TechHash, 1, GetHandleId(u))
if u2 != null then
call SetUnitOwner(u2, p1, true)
endif
call PingMinimap(GetUnitX(u), GetUnitY(u), 3)
endif
set uall = uall + 1
call GroupRemoveUnit(units, u)
endloop
if uyes == uall and uall != 0 then
call StartSound(gg_snd_Rescue)
set result = "|cffcc6600ALLIES|r - All " + I2S(uall) + " units were exchanged successfully"
set result2 = "|cffcc6600ALLIES|r - " + I2S(uyes) + " units were exchanged to you"
if food > 0 then
set result = result + " - a total of " + I2S(food) + " food."
set result2 = result2 + " - a total of " + I2S(food) + " food."
else
set result = result + "."
set result2 = result2 + "."
endif
elseif uyes != 0 then
call StartSound(gg_snd_Rescue)
set result = "|cffcc6600ALLIES|r - " + I2S(uyes) + "/" + I2S(uall) + " units were successfully exchanged"
set result2 = "|cffcc6600ALLIES|r - " + I2S(uyes) + " units were exchanged to you"
if (food > 0) then
set result = result + " - a total of " + I2S(food) + " food"
set result2 = result2 + " - a total of " + I2S(food) + " food"
else
set result = result + "."
set result2 = result2 + "."
endif
elseif uall != 0 then
if GetLocalPlayer() == p1 then
call StartSound(gg_snd_Error)
endif
set result = "|cffcc6600ALLIES|r - No units could be exchanged."
set result2 = "Empty"
else
if GetLocalPlayer() == p1 then
call StartSound(gg_snd_Error)
endif
set result = "|cffcc6600ALLIES|r - No units selected."
set result2 = "Empty"
endif
call DisplayTextToPlayer(p1, 0, 0, " ")
call DisplayTextToPlayer(p2, 0, 0, " ")
call DisplayTextToPlayer(p1, 0, 0, result)
if result2 != "Empty" then
call DisplayTextToPlayer(p2, 0, 0, result2)
endif
if not udg_tipEu then
set udg_tipEu = true
call TriggerSleepAction(bj_QUEUE_DELAY_HINT)
call StartSound(gg_snd_Hint)
call DisplayTextToPlayer(GetLocalPlayer(), 0, 0, " ")
call DisplayTextToPlayer(GetLocalPlayer(), 0, 0, "|cff32CD32HINT|r - You cannot exchange Wisps, Heroes, Town Hall/Keep/Castle, Altars and Farms.")
call DisplayTextToPlayer(GetLocalPlayer(), 0, 0, "Units must also obey the food limit.")
endif
call DestroyGroup(units)
set units = null
set u = null
set u1 = null
set u2 = null
set p1 = null
set p2 = null
endfunction
function InitTrig_ExchangeUnits takes nothing returns nothing
set gg_trg_ExchangeUnits = CreateTrigger()
call DisableTrigger(gg_trg_ExchangeUnits)
call TriggerRegisterPlayerChatEvent(gg_trg_ExchangeUnits, udg_Player1, "-exchange", true)
call TriggerRegisterPlayerChatEvent(gg_trg_ExchangeUnits, udg_Player2, "-exchange", true)
call TriggerAddAction(gg_trg_ExchangeUnits, function ExchangeUnits)
endfunction
//TESH.scrollpos=91
//TESH.alwaysfold=0
function ConstructionComplete takes nothing returns boolean
local player p1 = GetTriggerPlayer()
local player p2
local unit u1 = GetTriggerUnit()
local unit u2
local integer id = GetUnitTypeId(u1)
local integer i
local integer hid = GetHandleId(u1)
local real x = GetUnitX(u1)
local real y = GetUnitY(u1)
local string s = "constructed"
if id == 'htol' or id == 'hkee' or id == 'hcas' or id == 'halt' or id == 'hlum' or id == 'hbla' or id == 'harm' then
if p1 == udg_Player1 then
set p2 = udg_Player2
else
set p2 = udg_Player1
endif
if id == 'hkee' or id == 'hcas' then
set s = "upgraded to"
elseif id =='halt' then
set s = s + " an "
else
set s = s + " a "
endif
set u2 = LoadUnitHandle(udg_TechHash, 0, hid)
if not (u2 == null) then
call RemoveUnit(u2)
endif
call DisplayTextToPlayer(GetLocalPlayer(), 0, 0, "|cff6666ccTECHTREE|r - " + GetPlayerName(p1) + " has " + s + GetUnitName(u1) + " for both players.")
set i = id - 'h'*256*256*256 + 'z'*256*256*256
set u2 = CreateUnit(p2, i, x, y, 0)
call SaveUnitHandle(udg_TechHash, 0, hid, u2)
call SetUnitX(u2, x)
call SetUnitY(u2, y)
endif
set p1 = null
set p2 = null
set u1 = null
set u2 = null
return false
endfunction
function BuildingDies takes nothing returns boolean
local unit u1 = GetTriggerUnit()
local unit u2
local integer id = GetUnitTypeId(u1)
if id == 'htol' or id == 'hkee' or id == 'hcas' or id == 'halt' or id == 'hlum' or id == 'hbla' or id == 'harm' then
set u2 = LoadUnitHandle(udg_TechHash, 0, GetHandleId(u1))
if not (u2 == null) then
call RemoveUnit(u2)
endif
endif
set u1 = null
set u2 = null
return false
endfunction
function Order takes nothing returns boolean
local unit u = GetTriggerUnit()
local unit u1
if GetIssuedOrderId() == OrderId("smart") and GetUnitTypeId(u) == 'hpea' and GetOwningPlayer(GetOrderTargetUnit()) != GetTriggerPlayer() then
set u1 = LoadUnitHandle(udg_TechHash, 0, GetHandleId(GetOrderTargetUnit()))
if u1 != null then
call IssueTargetOrder(u, "smart", u1)
endif
endif
set u = null
return false
endfunction
function InitTrig_TechShare takes nothing returns nothing
local trigger t1 = CreateTrigger()
local trigger t2 = CreateTrigger()
local trigger t3 = CreateTrigger()
local unit u
local real x
local real y
set udg_TechHash = InitHashtable()
//On Completion
call TriggerRegisterPlayerUnitEvent(t1, udg_Player1, EVENT_PLAYER_UNIT_CONSTRUCT_FINISH, null)
call TriggerRegisterPlayerUnitEvent(t1, udg_Player2, EVENT_PLAYER_UNIT_CONSTRUCT_FINISH, null)
call TriggerRegisterPlayerUnitEvent(t1, udg_Player1, EVENT_PLAYER_UNIT_UPGRADE_FINISH, null)
call TriggerRegisterPlayerUnitEvent(t1, udg_Player2, EVENT_PLAYER_UNIT_UPGRADE_FINISH, null)
call TriggerAddCondition(t1, Condition(function ConstructionComplete))
//On Death
call TriggerRegisterPlayerUnitEvent(t2, udg_Player1, EVENT_PLAYER_UNIT_DEATH, null)
call TriggerRegisterPlayerUnitEvent(t2, udg_Player2, EVENT_PLAYER_UNIT_DEATH, null)
call TriggerAddCondition(t2, Condition(function BuildingDies))
//On Order
call TriggerRegisterPlayerUnitEvent(t3, udg_Player1, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER, null)
call TriggerRegisterPlayerUnitEvent(t3, udg_Player2, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER, null)
call TriggerAddCondition(t3, Condition(function Order))
//Gray lumber mill
set x = GetUnitX(gg_unit_hlum_0045)
set y = GetUnitY(gg_unit_hlum_0045)
set u = CreateUnit(udg_Player1, 'zlum', x, y, 0)
call SetUnitX(u, x)
call SetUnitY(u, y)
call SaveUnitHandle(udg_TechHash, 0, GetHandleId(gg_unit_hlum_0045), u)
//Blue altar
set x = GetUnitX(gg_unit_halt_0019)
set y = GetUnitY(gg_unit_halt_0019)
set u = CreateUnit(udg_Player2, 'zalt', x, y, 0)
call SetUnitX(u, x)
call SetUnitY(u, y)
call SaveUnitHandle(udg_TechHash, 0, GetHandleId(gg_unit_halt_0019), u)
//Gray altar
set x = GetUnitX(gg_unit_halt_0200)
set y = GetUnitY(gg_unit_halt_0200)
set u = CreateUnit(udg_Player1, 'zalt', x, y, 0)
call SetUnitX(u, x)
call SetUnitY(u, y)
call SaveUnitHandle(udg_TechHash, 0, GetHandleId(gg_unit_halt_0200), u)
//Blue blacksmith
set x = GetUnitX(gg_unit_hbla_0015)
set y = GetUnitY(gg_unit_hbla_0015)
set u = CreateUnit(udg_Player2, 'zbla', x, y, 0)
call SetUnitX(u, x)
call SetUnitY(u, y)
call SaveUnitHandle(udg_TechHash, 0, GetHandleId(gg_unit_hbla_0015), u)
set u = null
endfunction