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_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_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
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"Decoding sucessful")
return true
endif
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"Decoding failed")
return false
endfunction
function CreateTextFile takes string Code returns nothing
local integer i = 1
loop
exitwhen i > udg_NumHeroesToSave
set udg_SaveText[i] = "
" + "
" + udg_HeroToSaveName[i] + "
" + udg_SaveText[i]
set i = i + 1
endloop
call PreloadGenClear()
call PreloadGenStart()
// The line below creates the log
call Preload(udg_SaveText[1] + udg_SaveText[2] + udg_SaveText[3] + udg_SaveText[4] + "
")
// The line below creates the file at the specified location
call PreloadGenEnd(udg_TextFileName + ".txt")
endfunction
Name | Type | is_array | initial_value |
Agile_AoE | real | No | |
AgileAbility | abilcode | No | |
AgileAmount | integer | Yes | |
AgileCasters | unit | Yes | |
AgileCasterSE | effect | Yes | |
AgileDamage | integer | No | |
AgileDamageArea | location | No | |
AgileDamageEnemy | group | No | |
AgileDamagePercent | real | No | |
AgileDamageSize | integer | No | |
AgileEnemies | unit | No | |
Agileindex | integer | Yes | |
Agileindex_max_size | integer | No | |
Agileindex_size | integer | No | |
AgileInteger | integer | No | |
AgileLevel | integer | No | |
AgileLoop | integervar | No | |
AgileRAmount | integer | No | |
AgileRTime | integer | No | |
AgileSFX1 | string | No | |
AgileSFX1_AP | string | No | |
AgileSFX2 | string | No | |
AgileSFX2_AP | string | No | |
AgileSFX3 | string | No | |
AgileSFX3_Ap | string | No | |
AgileTime | integer | Yes | |
ArakkoaAiON | boolean | No | |
ArakkoaCinhiddenunit | group | No | |
ArakkoaEnd_Cinematic_Is_On | boolean | No | |
ArakkoaStart_Cinematic_Is_On | boolean | No | |
Archmage | unit | No | |
Beast_Attack_Ability_Level | integer | No | |
Beast_Attack_Atribute | integer | No | |
Beast_Attack_Atribute_Damage | real | No | |
Beast_Attack_Caster | unit | No | |
Beast_Attack_Damage_Splitter | integer | No | |
Beast_Attack_Life_Damage | real | No | |
Beast_Attack_Location | location | No | |
Beast_Attack_Location2 | location | No | |
Beast_Attack_Max_Life | real | No | |
Beast_Attack_Target | unit | No | |
Beast_Attack_Total_Damage | real | No | |
BloodMage | unit | No | |
BlueOrc | timer | No | |
BlueOrcstart | boolean | No | |
BlueOrcTimerWindow | timerdialog | No | |
BoneSTAFF | unit | No | |
CE_Ability_Level | integer | No | |
CE_Area_of_Effect | real | No | |
CE_Base_Damage | real | No | |
CE_Caster | unit | No | |
CE_Damage_Group | group | No | |
CE_Destroy_Trees | boolean | No | |
CE_Knock_Angle | real | No | |
CE_Knock_Distance | real | No | |
CE_Knock_Group | group | No | |
CE_Knock_Loc1 | location | No | |
CE_Knock_Loc2 | location | No | |
CE_Knock_Speed | real | No | |
CE_Knocktable | hashtable | No | |
CE_Location | location | No | |
CE_Location2 | location | No | |
CE_Pathing_On | boolean | No | |
CE_Special_Effect | effect | No | |
CE_Special_Effect1 | effect | No | |
CE_Total_Damage | real | No | |
CINEMATICTAGAR | unit | No | |
Code | string | No | |
cryptlordgrom | unit | No | |
currentHerotoLoad | integer | No | |
currentHerotoSave | integer | No | |
Dfficultychosen | boolean | No | |
DoombandURN | unit | No | |
Draeneicome_Cinematic_Is_On | boolean | No | |
Draneiarrived | boolean | No | |
DSB_Ability_ID | abilcode | No | |
DSB_Ability_Level | integer | Yes | |
DSB_Angle | real | Yes | |
DSB_Animation_Speed | real | No | |
DSB_AoE | real | No | |
DSB_Caster | unit | Yes | |
DSB_Conditions | boolean | Yes | |
DSB_Current_Index | integervar | No | |
DSB_Damage | real | Yes | |
DSB_Damage_Group | group | No | |
DSB_Destroy_Tree | boolean | No | |
DSB_Destroyer | unit | No | |
DSB_Distance | real | No | |
DSB_Dummy | unit | Yes | |
DSB_Dummy2 | unit | Yes | |
DSB_Dummy2_Animation | string | No | |
DSB_Dummy2_BLUE | real | No | |
DSB_Dummy2_GREEN | real | No | |
DSB_Dummy2_Lifetime | real | No | |
DSB_Dummy2_RED | real | No | |
DSB_Dummy2_Transparency | real | No | |
DSB_Dummy_Type | unitcode | No | |
DSB_Dummy_Type2 | unitcode | No | |
DSB_Max_Index | integer | No | |
DSB_Owner | player | Yes | |
DSB_Shadow | boolean | No | |
DSB_Shdow | boolean | Yes | |
DSB_SoundEffect | sound | No | |
DSB_Special_Effect | string | No | |
DSB_Special_Effect_Location | string | No | |
DSB_Stage | integer | Yes | |
DSB_Start_Range | real | No | |
DSB_UnDamage_Group | group | Yes | |
Earth_Fury_Ability_Level | integer | No | |
Earth_Fury_AoE_Bouns | real | No | |
Earth_Fury_Base_Area_of_Effect | real | No | |
Earth_Fury_Base_Damage | real | No | |
Earth_Fury_Bonus_Damage | real | No | |
Earth_Fury_Caster | unit | No | |
Earth_Fury_Chance | real | No | |
Earth_Fury_Damage_Group | group | No | |
Earth_Fury_Dummy_Ability | abilcode | No | |
Earth_Fury_Dummy_Ability_2 | abilcode | No | |
Earth_Fury_Location | location | No | |
Earth_Fury_Owner | player | No | |
Earth_Fury_Total_Area_of_Effec | real | No | |
Earth_Fury_Total_Damage | real | No | |
Ending_Cinematic_Is_On | boolean | No | |
exclamationmark1 | effect | No | |
exclamationmark2 | effect | No | |
FelCrossTagar | unit | No | |
FelgruntTagar1 | unit | No | |
FelgruntTagar2 | unit | No | |
Felmysticktagar1 | unit | No | |
felmysticktagar2 | unit | No | |
felraidtagar | unit | No | |
firerabbitdead | boolean | No | |
flintchickendead | boolean | No | |
FSCaster | unit | Yes | |
FSCasterPoint | location | Yes | |
FSCount | integer | No | |
FSDistance | real | Yes | |
FSDummy | unit | Yes | |
FSDummyGroup | group | Yes | |
FSFace | real | Yes | |
FSFade | real | Yes | |
FSFadeC | real | Yes | |
FSHas | boolean | Yes | |
FSIndex | integer | No | |
FSInteger | integervar | No | |
FSLastRecycled | integer | No | |
FSMax | integer | No | |
FSMaxDistance | real | Yes | |
FSMove | real | Yes | |
FSRecycledList | integer | Yes | |
FSTime | real | No | |
GobEnd_cinematic_is_On | boolean | No | |
goblincinhiddenunit | group | No | |
GobStart_Cinematic_Is_On | boolean | No | |
GreenOrc | timer | No | |
GreenOrcstart | boolean | No | |
GreenOrcTimerWindow | timerdialog | No | |
GROMHERO | unit | No | |
harathawolf | unit | No | |
HeroFifthAbility | abilcode | Yes | |
HeroFirstAbility | abilcode | Yes | |
HeroFourthAbility | abilcode | Yes | |
HeroLoadedornew | boolean | No | |
HeroSecondAbility | abilcode | Yes | |
HeroThirdAbility | abilcode | Yes | |
HeroToLoad | unit | Yes | |
HeroToSave | unit | Yes | |
HeroToSaveName | string | Yes | |
Hurkan | unit | No | |
HurkanReplacement | unit | No | |
InitTrigger | trigger | No | |
Insanemodeactivated | boolean | No | |
leftbackdraenei | unit | No | |
leftforwarddraenei | unit | No | |
Mainquesthiddenunit | group | No | |
Matriarch | unit | No | |
MountainKing | unit | No | |
NumHeroAquiringTome | integer | No | |
NumHeroesToLoad | integer | No | |
NumHeroesToSave | integer | No | |
Opening_Cinematic_Is_On | boolean | No | |
P1 | player | No | |
P2 | player | No | |
Paladin | unit | No | |
PinkOrc | timer | No | |
PinkOrcstart | boolean | No | |
PinkOrcTimerWindow | timerdialog | No | |
preserver | unit | No | |
QuestArakkoa | quest | No | |
QuestArakkoaRQ1 | questitem | No | |
QuestArakkoaRQ2 | questitem | No | |
questgoblin | quest | No | |
questgoblinRQ1 | questitem | No | |
questgoblinRQ2 | questitem | No | |
QuestHurkan | quest | No | |
questhurkanREQ1 | questitem | No | |
questhurkanREQ2 | questitem | No | |
QuestionthunderRQ1 | questitem | No | |
QuestionthunderRQ2 | questitem | No | |
Questthunder | quest | No | |
REXHASSTAFF | boolean | No | |
REXHASURN | boolean | No | |
REXXARHERO | unit | No | |
rightbackdraenei | unit | No | |
rightforwarddraenei | unit | 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 | |
SaveText | string | Yes | |
selectedgoblinstart1 | group | No | |
selectedgoblinstart2 | group | No | |
selectedunits1ARRAKO | group | No | |
selectedunits2ARRAKO | group | No | |
selectedunitsarakkoaFINAL1 | group | No | |
selectedunitsarakkoaFINAL2 | group | No | |
selectedunitsdraeneicome1 | group | No | |
selectedunitsdraeneicome2 | group | No | |
selectedunitsgoblinend1 | group | No | |
selectedunitsgoblinend2 | group | No | |
selectedunitsthunderfinal1 | group | No | |
selectedunitsthunderfinal2 | group | No | |
selectedunitsthunderstart1 | group | No | |
selectedunitsthunderstart2 | group | No | |
Sinister_Strike_Ability_Level | integer | No | |
Sinister_Strike_Atribute | integer | No | |
Sinister_Strike_Base_Chance | real | No | |
Sinister_Strike_Bonus_Armor | integer | No | |
Sinister_Strike_Caster | unit | No | |
Sinister_Strike_Damage_Factor | real | No | |
Sinister_Strike_Dummy_Ability | abilcode | No | |
Sinister_Strike_Dummy_Ability2 | abilcode | No | |
Sinister_Strike_Location | location | No | |
Sinister_Strike_Normal_Armor | integer | No | |
Sinister_Strike_Owner | player | No | |
Sinister_Strike_Target | unit | No | |
Sinister_Strike_Total_Chance | real | No | |
Sinister_Strike_Total_Damage | real | No | |
Skullofguldanfirst | item | No | |
Staff | itemcode | No | |
staffonground | item | No | |
TempDest | destructable | No | |
TempGroup | group | No | |
TempItem | item | No | |
TempItemType | itemcode | No | |
TempPoint | location | No | |
TempPoint2 | location | No | |
TempPoint3 | location | No | |
TempUnit | unit | No | |
TeronGorefiend | unit | No | |
TextFileName | string | No | |
thundercinhiddenunit | group | No | |
ThunderEnd_Cinematic_Is_On | boolean | No | |
ThunderStart_Cinematic_Is_On | boolean | No | |
tinderfrogdead | boolean | No | |
TomeAgility | integer | Yes | |
TomeHealth | integer | Yes | |
TomeIntelligence | integer | Yes | |
TomeStrength | integer | Yes | |
UnitsHidden | boolean | No | |
Urn | itemcode | No | |
urnonground | item | No | |
Validate | boolean | No | |
WaygatestoneEffect | effect | No | |
WS | integervar | No | |
WS_Angle | real | Yes | |
WS_Caster | unit | Yes | |
WS_CastNumber | integer | No | |
WS_Chance | integer | No | |
WS_Distance | real | Yes | |
WS_Dummie | unit | Yes | |
WS_Effect1 | unit | Yes | |
WS_Effect2 | unit | Yes | |
WS_Effect3 | unit | Yes | |
WS_Off | boolean | Yes | |
WS_Point | location | Yes | |
WS_Speed | real | Yes | |
WS_Switch | integer | No | |
YellowOrc | timer | No | |
YellowOrcstart | boolean | No | |
YellowOrcTimerWindow | timerdialog | No |