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 |
Abomination01 | unit | No | |
AllowFurbolgSpeech | boolean | No | false |
AP02_Tyrande | player | No | Player01 |
AP11_Furion | player | No | Player10 |
APG_Player | force | No | Force01 |
BonusesFound | integer | No | |
BonusesTotal | integer | No | |
BrownTechBuildings | group | No | |
CameraReturnPoint | location | No | |
Cancel_Ending | boolean | No | false |
Cancel_Furbolg | boolean | No | false |
Cancel_Intro | boolean | No | false |
Cancel_Satyr | boolean | No | |
CinematicPlaying | boolean | No | false |
Code | string | No | |
CodeError | boolean | No | |
CorruptedNightElfBase | group | No | |
CreepsToCleanse | group | No | |
DeadFurbolgs | integer | No | 0 |
DiffInteger | integer | No | |
Dyrad01 | unit | No | |
Dyrad02 | unit | No | |
Effect01 | effect | No | |
Effect02 | effect | No | |
Effect03 | effect | No | |
EntangledGoldmine | unit | No | UnitNull |
EntangleFailsafeTimer | timer | No | |
EXTAS | integer | No | |
ExtraBool | boolean | Yes | |
ExtraMine | unit | Yes | |
EXTRAStotal | integer | No | |
Fog | weathereffect | No | |
ForestCleansed | boolean | No | false |
ForestGhostType | unitcode | No | UnitTypeNull |
ForestRespawnTime | real | No | 60.00 |
ForestSkeletonType | unitcode | No | UnitTypeNull |
ForestTreantType | unitcode | No | UnitTypeNull |
ForestVisionA | fogmodifier | No | |
ForestVisionB | fogmodifier | No | |
ForestVisionC | fogmodifier | No | |
ForestVisionD | fogmodifier | No | |
ForestVisionE | fogmodifier | No | |
ForestVisionF | fogmodifier | No | |
ForestVisionG | fogmodifier | No | |
ForestWolfType | unitcode | No | UnitTypeNull |
FreakRandomSoundInt | integer | No | 0 |
Furbolg01 | unit | No | |
Furbolg02 | unit | No | |
Furbolg03 | unit | No | |
Furbolg04 | unit | No | |
Furbolg05 | unit | No | |
Furbolg08 | unit | No | |
Furbolg09 | unit | No | |
FurbolgCamp | group | No | |
FurbolgRoadCamp | group | No | |
FurbolgRoadCamp01 | unit | No | |
FurbolgRoadCamp02 | unit | No | |
FurbolgRoadCamp03 | unit | No | |
FurbolgWarlord | unit | No | |
FurbolgWarlordDead | boolean | No | false |
Furion | unit | No | |
FurionPoint | location | No | |
GameOver | boolean | No | false |
GAMEOVER | boolean | No | |
GameSelection | boolean | No | |
GateCanDie | boolean | No | true |
Ghost01A | unit | No | |
Ghost01B | unit | No | |
Ghost02A | unit | No | |
Ghost02B | unit | No | |
Ghost03A | unit | No | |
Ghost04A | unit | No | |
Ghoul02 | unit | No | |
Ghoul03 | unit | No | |
Ghoul04 | unit | No | |
Ghoul05 | unit | No | |
Hero1 | unit | No | |
Hero1Inventory | string | No | |
Hero2 | unit | No | |
Hero2Inventory | string | No | |
HideUnits | group | No | |
HumanFootman01 | unit | No | |
HumanKnight01 | unit | No | |
HumanKnight03 | unit | No | |
HumanWarpInGroup | group | No | |
Huntress04 | unit | No | |
Huntress05 | unit | No | |
Huntress06 | unit | No | |
Huntress07 | unit | No | |
InCombat | boolean | No | false |
InCombatTimer | timer | No | |
InsaneMode | boolean | No | |
IntroAncientOrdersGiven | boolean | No | false |
IntroFro | unit | No | |
IntroLookHereUnit | unit | No | |
IntroLookHereUnitRemoved | boolean | No | false |
IntroLore | unit | No | |
IntroProt01 | unit | No | |
IntroProt02 | unit | No | |
IntroWar | unit | No | |
LevelsPlayedWithThisCode | integer | No | |
LocalPlayer | player | No | |
N | integer | No | 3 |
OrcBarracks | unit | No | |
OrcBeastairy | unit | No | |
OverallScoreLimit | integer | Yes | |
OverallScoreMax | integer | No | |
P01_Orcs | player | No | Player00 |
P03_OrcsSub | player | No | Player02 |
P04_Undead | player | No | Player03 |
P05_BarrowDens | player | No | Player04 |
P06_Rescuables | player | No | Player05 |
P07_Satyrs | player | No | Player06 |
P08_UndeadSub | player | No | Player07 |
P09_UndeadActors | player | No | Player08 |
P10_Humans | player | No | Player09 |
P12_HumansSub | player | No | Player11 |
QuestBarrow | quest | No | |
QuestBarrowCreated | boolean | No | false |
QuestBarrowReqBringFurion | questitem | No | |
QuestBarrowReqDiscover | questitem | No | |
QuestBarrowReqKillBase | questitem | No | |
QuestCursedGlade | quest | No | |
QuestCursedGladeCreated | boolean | No | false |
QuestCursedGladeReqKill | questitem | No | |
QuestFurbolg | quest | No | |
QuestFurbolgCreated | boolean | No | false |
QuestFurbolgReqKill | questitem | No | |
RainHeavy | weathereffect | No | |
RainLight01 | weathereffect | No | |
RainLight02 | weathereffect | No | |
RankInteger | integer | No | |
RaysOfLight | weathereffect | No | |
RaysOfLightPatchA | weathereffect | No | |
RaysOfLightPatchB | weathereffect | No | |
RaysOfLightPatchC | weathereffect | No | |
RegrowSweepDelay | real | No | 0.40 |
RegrowVision | fogmodifier | No | |
ResearchMax | integer | No | |
ResearchString | string | Yes | |
ResearchType | techcode | Yes | |
RevenantFacing | real | No | |
RevenantPosition | location | No | |
RoamingGhostPack01 | group | No | |
RoamingGhostPack02 | group | No | |
RoamingWolfPack | group | No | |
SatyrGroup | group | No | |
SatyrSkeleton01 | unit | No | UnitNull |
SatyrSkeleton02 | unit | No | UnitNull |
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 | |
ScoreSideQuest | integer | No | |
ScoreTime | integer | No | |
ScoreTotal | integer | No | |
Scout | unit | No | |
SecretsFound | integer | No | |
SecretsTotal | integer | No | |
SelectedUnits | group | No | |
SentinelCaster01 | unit | No | UnitNull |
SentinelCaster02 | unit | No | UnitNull |
SentinelCaster03 | unit | No | UnitNull |
SentinelCaster04 | unit | No | UnitNull |
SentinelCaster05 | unit | No | UnitNull |
SentinelCaster06 | unit | No | UnitNull |
SentinelCaster07 | unit | No | UnitNull |
Shandris | unit | No | |
SideQuestComplete | integer | No | |
SideQuestTotal | integer | No | |
SkeletonGroup01 | group | No | |
SkeletonGroup02 | group | No | |
SkeletonGroup03 | group | No | |
SkeletonGroup04 | group | No | |
SkeletonGroup05 | group | No | |
SkeletonGroup06 | group | No | |
SkeletonGroup07 | group | No | |
SkeletonGroup08 | group | No | |
SkeletonGroup09 | group | No | |
SkeletonGroup10 | group | No | |
SkeletonGroup11 | group | No | |
SumRank | integer | No | |
Talon00 | unit | No | |
Talon01 | unit | No | |
Talon02 | unit | No | |
TempDestructible | destructable | No | DestructableNull |
TempItem | item | No | |
TempItemType | itemcode | No | |
TimeMax | real | No | |
TimeMin | real | No | |
TimeRange | real | No | |
TimerFirstScene | timer | No | |
TimerHours | integer | No | |
TimerMinutes | integer | No | |
TimerSeconds | integer | No | |
TimerString | string | No | |
TimerStringHours | string | No | |
TimerStringMinutes | string | No | |
TimerStringSeconds | string | No | |
TimerTotal | integer | No | |
TimeTotal | integer | No | |
TmpVis | fogmodifier | No | |
TreantGroup01 | group | No | |
TreantGroup02 | group | No | |
TreantGroup03 | group | No | |
TreantGroup04 | group | No | |
TreantGroup05 | group | No | |
TreantGroup06 | group | No | |
TreeLoc | location | No | |
TreeMaxLife | real | No | 0.00 |
TreeType | destructablecode | No | |
Tyrande | unit | No | |
TyrandePoint | location | No | |
UndeadWarpInGroup | group | No | |
Validate | boolean | No | |
VoteNew1 | boolean | No | |
VoteNew2 | boolean | No | |
WarriorGroup01 | group | No | |
WarriorGroup02 | group | No | |
WarriorGroup03 | group | No | |
WarriorGroup04 | group | No | |
WarriorGroup05 | group | No | |
WarriorGroup06 | group | No | |
WarriorGroup07 | group | No |
//TESH.scrollpos=0
//TESH.alwaysfold=0
function ResearchCancel takes nothing returns boolean
local player p1 = GetTriggerPlayer()
local player p2
local integer t = GetResearched()
local integer i
if p1 == Player(1) or p1 == Player(10) then
if p1 == Player(1) then
set p2 = Player(10)
else
set p2 = Player(1)
endif
set i = 1
loop
exitwhen i > udg_ResearchMax
if udg_ResearchType[i] == t then
call SetPlayerTechMaxAllowed(p2, t, GetPlayerTechMaxAllowed(p1, t))
endif
set i = i + 1
endloop
endif
set p1 = null
set p2 = null
return false
endfunction
function InitTrig_ResearchCancel takes nothing returns nothing
set gg_trg_ResearchCancel = CreateTrigger()
call DisableTrigger(GetTriggeringTrigger())
call TriggerRegisterPlayerUnitEvent(gg_trg_ResearchCancel, Player(1), EVENT_PLAYER_UNIT_RESEARCH_CANCEL, null)
call TriggerRegisterPlayerUnitEvent(gg_trg_ResearchCancel, Player(10), EVENT_PLAYER_UNIT_RESEARCH_CANCEL, null)
call TriggerAddCondition(gg_trg_ResearchCancel, function ResearchCancel)
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
function ResearchComplete takes nothing returns boolean
local player p1 = GetTriggerPlayer()
local player p2
local integer t = GetResearched()
local integer i
if p1 == Player(1) or p1 == Player(10) then
if p1 == Player(1) then
set p2 = Player(10)
else
set p2 = Player(1)
endif
set i = 1
loop
exitwhen i > udg_ResearchMax
if udg_ResearchType[i] == t then
call DisplayTextToPlayer(GetLocalPlayer(), 0, 0, "|cff9966ccRESEARCH|r - " + GetPlayerName(p1) + " has researched " + udg_ResearchString[(i - 1)*3 + GetPlayerTechCount(p1, t, true)] + " for both players.")
call SetPlayerTechMaxAllowed(p2, t, GetPlayerTechMaxAllowed(p1, t))
call SetPlayerTechResearched(p2, t, GetPlayerTechCount(p1, t, true))
//call StartSound(gg_snd_Hint)
endif
set i = i + 1
endloop
endif
set p1 = null
set p2 = null
return false
endfunction
function InitTrig_ResearchComplete takes nothing returns nothing
set gg_trg_ResearchComplete = CreateTrigger()
call DisableTrigger(GetTriggeringTrigger())
call TriggerRegisterPlayerUnitEvent( gg_trg_ResearchComplete, Player(1), EVENT_PLAYER_UNIT_RESEARCH_FINISH, null)
call TriggerRegisterPlayerUnitEvent( gg_trg_ResearchComplete, Player(10), EVENT_PLAYER_UNIT_RESEARCH_FINISH, null)
call TriggerAddCondition(gg_trg_ResearchComplete, Condition(function ResearchComplete))
endfunction
//TESH.scrollpos=3
//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 == Player(1) or p1 == Player(10) then
if p1 == Player(1) then
set p2 = Player(10)
else
set p2 = Player(1)
endif
call SetPlayerTechMaxAllowed(p2, t, GetPlayerTechCount(p1, t, true))
endif
set p1 = null
set p2 = null
return false
endfunction
function InitTrig_ResearchStart takes nothing returns nothing
set gg_trg_ResearchStart = CreateTrigger()
call DisableTrigger(GetTriggeringTrigger())
call TriggerRegisterPlayerUnitEvent(gg_trg_ResearchStart, Player(1), EVENT_PLAYER_UNIT_RESEARCH_START, null)
call TriggerRegisterPlayerUnitEvent(gg_trg_ResearchStart, Player(10), EVENT_PLAYER_UNIT_RESEARCH_START, null)
call TriggerAddCondition(gg_trg_ResearchStart, Condition(function ResearchStart))
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
scope TechShare initializer onInit
globals
hashtable h = InitHashtable()
endglobals
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 == 'etol' or id == 'eate' or id == 'etoa' or id == 'eaom' or id == 'edob') and (p1 == Player(1) or p1 == Player(10)) then
if p1 == Player(1) then
set p2 = Player(10)
else
set p2 = Player(1)
endif
if id == 'etoa' or id == 'etoe' then
set s = "upgraded to"
endif
set u2 = LoadUnitHandle(h, 0, hid)
if not (u2 == null) then
call RemoveUnit(u2)
endif
call DisplayTextToPlayer(GetLocalPlayer(), 0, 0, "|cff6666ccTECHTREE|r - " + GetPlayerName(p1) + " has " + s + " a "+GetUnitName(u1) + " for both players.")
set i = id - 'e'*256*256*256 + 'z'*256*256*256
set u2 = CreateUnit(p2, i, x, y, 0)
call SaveUnitHandle(h, 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 player p1 = GetTriggerPlayer()
local player p2
local unit u1 = GetTriggerUnit()
local unit u2
local integer id = GetUnitTypeId(u1)
if (id == 'etol' or id == 'eate' or id == 'etoa' or id == 'eaom' or id == 'edob') and (p1 == Player(1) or p1 == Player(10)) then
set u2 = LoadUnitHandle(h, 0, GetHandleId(u1))
if not (u2 == null) then
call RemoveUnit(u2)
endif
endif
set p1 = null
set p2 = null
set u1 = null
set u2 = null
return false
endfunction
function onInit takes nothing returns nothing
local trigger t1 = CreateTrigger()
local trigger t2 = CreateTrigger()
local player p1 = Player(1)
local player p2 = Player(10)
local unit u
local real x
local real y
//On Completion
call TriggerRegisterPlayerUnitEvent(t1, Player(1), EVENT_PLAYER_UNIT_CONSTRUCT_FINISH, null)
call TriggerRegisterPlayerUnitEvent(t1, Player(10), EVENT_PLAYER_UNIT_CONSTRUCT_FINISH, null)
call TriggerRegisterPlayerUnitEvent(t1, Player(1), EVENT_PLAYER_UNIT_UPGRADE_FINISH, null)
call TriggerRegisterPlayerUnitEvent(t1, Player(10), EVENT_PLAYER_UNIT_UPGRADE_FINISH, null)
call TriggerAddCondition(t1, function ConstructionComplete)
//On Death
call TriggerRegisterPlayerUnitEvent(t2, Player(1), EVENT_PLAYER_UNIT_DEATH, null)
call TriggerRegisterPlayerUnitEvent(t2, Player(10), EVENT_PLAYER_UNIT_DEATH, null)
call TriggerAddCondition(t2, function BuildingDies)
//Blue altar
set x = GetUnitX(gg_unit_eate_0218)
set y = GetUnitX(gg_unit_eate_0218)
set u = CreateUnit(p2, 'zate', x, y, 0)
call SetUnitX(u, x)
call SetUnitY(u, y)
call SaveUnitHandle(h, 0, GetHandleId(gg_unit_eate_0218), u)
//Blue TOA
set x = GetUnitX(gg_unit_etoa_0106)
set y = GetUnitX(gg_unit_etoa_0106)
set u = CreateUnit(p2, 'ztoa', x, y, 0)
call SetUnitX(u, x)
call SetUnitY(u, y)
call SaveUnitHandle(h, 0, GetHandleId(gg_unit_etoa_0106), u)
//DGreen hall
set x = GetUnitX(gg_unit_edob_0015)
set y = GetUnitX(gg_unit_edob_0015)
set u = CreateUnit(p1, 'zdob', x, y, 0)
call SetUnitX(u, x)
call SetUnitY(u, y)
call SaveUnitHandle(h, 0, GetHandleId(gg_unit_edob_0015), u)
//DGreen TOL
set x = GetUnitX(gg_unit_etol_0255)
set y = GetUnitX(gg_unit_etol_0255)
set u = CreateUnit(p1, 'ztol', x, y, 0)
call SetUnitX(u, x)
call SetUnitY(u, y)
call SaveUnitHandle(h, 0, GetHandleId(gg_unit_etol_0255), u)
endfunction
endscope
//TESH.scrollpos=62
//TESH.alwaysfold=0
//! zinc
library ExchangeUnits{
boolean tip = true;
function ExchangeUnits(){
player p1 = GetTriggerPlayer(), p2;
group units = CreateGroup();
integer food = 0, uyes = 0, uall = 0, i;
unit u, u1;
string result, result2;
if (p1 == Player(1))
p2 = Player(10);
else
p2 = Player(1);
GroupEnumUnitsSelected(units, p1, null);
u = FirstOfGroup(units);
while(u != null){
u = FirstOfGroup(units);
i = GetUnitFoodUsed(u);
if (((GetUnitFoodMade(u) == 0 && IsUnitType(u, UNIT_TYPE_STRUCTURE)) || (!IsUnitType(u, UNIT_TYPE_STRUCTURE) && i + GetPlayerState(p2, PLAYER_STATE_RESOURCE_FOOD_USED) <= GetPlayerState(p2, PLAYER_STATE_RESOURCE_FOOD_CAP)) && !IsUnitType(u, UNIT_TYPE_HERO) && !IsUnitType(u, UNIT_TYPE_SUMMONED) && !IsUnitType(u, UNIT_TYPE_PEON) && GetOwningPlayer(u) == p1 && GetUnitTypeId(u) != 'eate')){
uyes += 1;
food += i;
SetUnitOwner(u, p2, true);
u1 = LoadUnitHandle(h, 0, GetHandleId(u));
if (u1 != null){
SetUnitOwner(u1, p1, true);
}
PingMinimap(GetUnitX(u), GetUnitY(u), 3);
}
uall += 1;
GroupRemoveUnit(units, u);
}
uall -= 1;
if (uyes == uall && uall != 0){
StartSound(gg_snd_Rescue);
result = "|cffcc6600ALLIES|r - All " + I2S(uall) + " units were exchanged successfully";
result2 = "|cffcc6600ALLIES|r - " + I2S(uyes) + " units were exchanged to you";
if (food > 0){
result += " - a total of " + I2S(food) + " food";
result2 += " - a total of " + I2S(food) + " food";
}
else{
result += ".";
result2 += ".";
}
}
else if (uyes!= 0){
StartSound(gg_snd_Rescue);
result = "|cffcc6600ALLIES|r - " + I2S(uyes) + "/" + I2S(uall) + " units were successfully exchanged";
result2 = "|cffcc6600ALLIES|r - " + I2S(uyes) + " units were exchanged to you";
if (food > 0){
result += " - a total of " + I2S(food) + " food";
result2 += " - a total of " + I2S(food) + " food";
}
else{
result += ".";
result2 += ".";
}
}
else if (uall != 0){
StartSound(gg_snd_Error);
result = "|cffcc6600ALLIES|r - No units could be exchanged.";
result2 = "Empty";
}
else{
StartSound(gg_snd_Error);
result = "|cffcc6600ALLIES|r - No units selected.";
result2 = "Empty";
}
DisplayTextToPlayer(p1, 0, 0, " ");
DisplayTextToPlayer(p2, 0, 0, " ");
DisplayTextToPlayer(p1, 0, 0, result);
if (result2 != "Empty")
DisplayTextToPlayer(p2, 0, 0, result2);
if (tip == true){
tip = false;
TriggerSleepAction(bj_QUEUE_DELAY_HINT);
StartSound(gg_snd_Hint);
DisplayTextToPlayer(GetLocalPlayer(), 0, 0, " ");
DisplayTextToPlayer(GetLocalPlayer(), 0, 0, "|cff32CD32HINT|r - You cannot exchange Wisps, Heroes, Trees of Life/Ages/Eternity, Altar of Elders, summoned units, and Moon Wells.");
DisplayTextToPlayer(GetLocalPlayer(), 0, 0, "Units must also obey the food limit.");
}
DestroyGroup(units);
units = null;
u = null;
p1 = null;
p2 = null;
}
function onInit(){
gg_trg_ExchangeUnits = CreateTrigger();
DisableTrigger(GetTriggeringTrigger());
TriggerRegisterPlayerChatEvent(gg_trg_ExchangeUnits, Player(1), "-exchange", true);
TriggerRegisterPlayerChatEvent(gg_trg_ExchangeUnits, Player(10), "-exchange", true);
TriggerAddAction(gg_trg_ExchangeUnits, function ExchangeUnits);
}
}
//! endzinc
//TESH.scrollpos=12
//TESH.alwaysfold=0
//! zinc
library GiveResource{
function GiveResource(){
playerstate ps;
integer i, a;
player p1 = GetTriggerPlayer(), p2;
string tmp, resource, message = GetEventPlayerChatString(), gold = SubString(message, 0, 6), lumber = SubString(message, 0, 8);
if (gold == "-gold " || lumber == "-lumber "){
if (p1 == Player(1))
p2 = Player(10);
else
p2 = Player(1);
if (gold == "-gold "){
resource = "gold";
ps = PLAYER_STATE_RESOURCE_GOLD;
a = S2I(SubString(message, 6, StringLength(message)));
}
else{
resource = "lumber";
ps = PLAYER_STATE_RESOURCE_LUMBER;
a = S2I(SubString(message, 8, StringLength(message)));
}
i = GetPlayerState(p1, ps);
if (a > i)
a = i;
if (a > 0){
tmp = I2S(a);
SetPlayerState(p1, ps, i - a);
SetPlayerState(p2, ps, GetPlayerState(p2, ps) + a);
DisplayTextToPlayer(p2, 0, 0, "|cffcc6600ALLIES|r - " + tmp + " " + resource + " received from " + GetPlayerName(p1) + ".");
DisplayTextToPlayer(p1, 0, 0, "|cffcc6600ALLIES|r - " + tmp + " " + resource + " sent to " + GetPlayerName(p2) + ".");
StartSound(gg_snd_ItemReceived);
}
else
DisplayTextToPlayer(p2, 0, 0, "|cffcc6600ALLIES|r - Not enough " + resource + ".");
}
ps = null;
p1 = null;
p2 = null;
}
function onInit(){
gg_trg_GiveResource = CreateTrigger();
DisableTrigger(GetTriggeringTrigger());
TriggerRegisterPlayerChatEvent(gg_trg_GiveResource, Player(1), "-gold ", false);
TriggerRegisterPlayerChatEvent(gg_trg_GiveResource, Player(10), "-gold ", false);
TriggerRegisterPlayerChatEvent(gg_trg_GiveResource, Player(1), "-lumber ", false);
TriggerRegisterPlayerChatEvent(gg_trg_GiveResource, Player(10), "-lumber ", false);
TriggerAddAction(gg_trg_GiveResource, function GiveResource);
}
}
//! endzinc
//TESH.scrollpos=11
//TESH.alwaysfold=0
//! zinc
library CinematicSkip{
boolean p1Skip = false, p2Skip = false;
public boolean cinSkip = false;
function CinematicSkip() -> boolean{
player trgP = GetTriggerPlayer();
if (udg_Cancel_Ending || udg_Cancel_Intro || udg_Cancel_Satyr || udg_Cancel_Furbolg){
if (!p1Skip && !p2Skip){
if (trgP == Player(1))
p1Skip = true;
else
p2Skip = true;
DisplayTextToPlayer(GetLocalPlayer(), 0, 0, "|cffcc6600ALLIES|r - " + GetPlayerName(trgP) + " wishes to skips this cinematic.");
}
if ((p1Skip && !p2Skip && trgP == Player(10)) || (!p1Skip && p2Skip && trgP == Player(1))){
DisplayTextToPlayer(GetLocalPlayer(), 0, 0, "|cffcc6600ALLIES|r - Cinematic skipped.");
cinSkip = true;
p1Skip = false;
p2Skip = false;
if (udg_Cancel_Ending)
TriggerExecute(gg_trg_End_Skip);
if (udg_Cancel_Intro)
TriggerExecute(gg_trg_Intro_Skip);
if (udg_Cancel_Satyr)
TriggerExecute(gg_trg_Satyr_Skip);
if (udg_Cancel_Furbolg)
TriggerExecute(gg_trg_Furbolg_Skip);
}
}
return false;
}
function onInit(){
gg_trg_CinematicSkip = CreateTrigger();
TriggerRegisterPlayerEvent(gg_trg_CinematicSkip, Player(1), EVENT_PLAYER_END_CINEMATIC);
TriggerRegisterPlayerEvent(gg_trg_CinematicSkip, Player(10), EVENT_PLAYER_END_CINEMATIC);
TriggerAddCondition(gg_trg_CinematicSkip,Condition (function CinematicSkip));
}
}
//! endzinc
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_GameModeInsane_Conditions takes nothing returns boolean
if not udg_InsaneMode and udg_GameSelection then
set udg_InsaneMode = TRUE
call TriggerEvaluate(gg_trg_Starttext)
endif
return FALSE
endfunction
function InitTrig_GameModeInsane takes nothing returns nothing
set gg_trg_GameModeInsane = CreateTrigger()
call DisableTrigger(GetTriggeringTrigger())
call TriggerRegisterPlayerChatEvent(gg_trg_GameModeInsane, Player(1), "-insane", TRUE)
call TriggerRegisterPlayerChatEvent(gg_trg_GameModeInsane, Player(10), "-insane", TRUE)
call TriggerAddCondition(gg_trg_GameModeInsane, Condition(function Trig_GameModeInsane_Conditions))
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_GameModeNormal_Conditions takes nothing returns boolean
if udg_InsaneMode and udg_GameSelection then
set udg_InsaneMode = FALSE
call TriggerEvaluate(gg_trg_Starttext)
endif
return FALSE
endfunction
function InitTrig_GameModeNormal takes nothing returns nothing
set gg_trg_GameModeNormal = CreateTrigger()
call DisableTrigger(GetTriggeringTrigger())
call TriggerRegisterPlayerChatEvent(gg_trg_GameModeNormal, Player(1), "-normal", TRUE)
call TriggerRegisterPlayerChatEvent(gg_trg_GameModeNormal, Player(10), "-normal", TRUE)
call TriggerAddCondition(gg_trg_GameModeNormal, Condition(function Trig_GameModeNormal_Conditions))
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
//! zinc
library Starttext{
function Text() -> boolean {
integer i;
if (udg_GameSelection){
ClearTextMessages();
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "|cff338844-=NIGHT ELF CHAPTER 4=-|r");
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "The Druids Arise");
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, " ");
if (udg_CodeError){
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "The code you entered is not compatible with this chapter.");
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "You can type '-load' again, followed your code, to try again.");
}
else
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "Type '-load' followed by the code received in the previous chapter to load your characters.");
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "Alternatively, both players can type '-new' to start a new game.");
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, " ");
if (udg_InsaneMode){
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "|cffffcc00Gamemode: |r|cffff0000INSANE|r");
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, " ");
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "To decrease the difficulty type '-normal'.");
}
else{
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "|cffffcc00Gamemode: |r|cff00cc00NORMAL|r");
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, " ");
DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 600, "To increase the difficulty type '-insane'.");
}
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.");
}
return true;
}
function onInit(){
gg_trg_Starttext = CreateTrigger();
TriggerAddCondition(gg_trg_Starttext, Condition(function Text));
}
}
//! endzinc