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 = "|cffffcc00" + 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 = "|cffff6060" + 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 = "|cff6060ff" + c + "|r" + r
elseif c == "-" then
set r = "|cffdddddd-|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
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"Decoding sucessful")
return true
endif
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"Decoding failed")
return false
endfunction
Name | Type | is_array | initial_value |
AI_Helper_Timer | timer | Yes | |
Archer01 | unit | No | |
Archer02 | unit | No | |
Archer03 | unit | No | |
Archer04 | unit | No | |
AttackedUnit | unit | No | |
Bonus_Agility | integer | No | |
Bonus_Intelligence | integer | No | |
Bonus_Strength | integer | No | |
Bounty_NEUTRAL_BASE | integer | Yes | |
Bounty_NEUTRAL_DICE | integer | Yes | |
Bounty_NEUTRAL_SIDES | integer | Yes | |
Bounty_RACE_BASE | integer | Yes | |
Bounty_RACE_DICE | integer | Yes | |
Bounty_RACE_SIDES | integer | Yes | |
CameraReturnPoint | location | No | |
Cinematic_NAME | string | No | |
Cinematic_Preparation_Finished | boolean | No | |
CityGate | destructable | No | |
Code | string | No | |
Code_Is_Active | boolean | No | |
CONSTANT_Glaive_COUNT_MAX | integer | Yes | |
CONSTANT_Glaive_COUNT_MIN | integer | Yes | |
CONSTANT_Glaive_DAMAGE | real | Yes | |
CONSTANT_Glaive_DAMAGE_RANGE | real | Yes | |
CONSTANT_Glaive_DURATION | real | Yes | |
CONSTANT_Glaive_EFFECT_01 | string | Yes | |
CONSTANT_Glaive_EFFECT_02 | string | Yes | |
CONSTANT_Glaive_EFFECT_03 | modelfile | Yes | |
CONSTANT_Glaive_EFFECT_04 | modelfile | Yes | |
CONSTANT_Glaive_EFFECT_05 | modelfile | Yes | |
CONSTANT_Glaive_HIT_EFFECT_01 | string | Yes | |
CONSTANT_Glaive_HIT_EFFECT_02 | modelfile | Yes | |
CONSTANT_Glaive_HIT_EFFECT_03 | modelfile | Yes | |
CONSTANT_Glaive_HIT_EFFECT_04 | modelfile | Yes | |
CONSTANT_Glaive_HIT_EFFECT_05 | modelfile | Yes | |
CONSTANT_Glaive_INTERVAL | real | Yes | |
CONSTANT_Glaive_LIMIT | integer | No | |
CONSTANT_Glaive_ORBITRANGE | real | Yes | |
CONSTANT_Glaive_SPEED_PER_SEC | real | Yes | |
CONSTANT_Share_UPGRADE_TOTAL | integer | No | |
CONSTANT_Text_Length_EXCHANGE | real | No | |
CONSTANT_Text_Length_UPGRADE | real | No | |
DIFFICULTY | string | No | |
DiscoveredSideQuest | boolean | No | |
Drakthul | unit | No | |
DrakthulsHut | unit | No | |
EMPTY | itemcode | No | |
ExclamationPoint | effect | No | |
Furion | unit | No | |
GameHasStarted | boolean | No | |
GameOver | boolean | No | false |
Gives_Bounty | force | No | |
Glaive_ANGLE | real | Yes | |
Glaive_EFFECT_01 | effect | Yes | |
Glaive_EFFECT_02 | effect | Yes | |
Glaive_EFFECT_03 | effect | Yes | |
Glaive_EFFECT_04 | effect | Yes | |
Glaive_EFFECT_05 | effect | Yes | |
Glaive_EXPIRE | timer | Yes | |
Glaive_GROUP | group | Yes | |
Glaive_LEVEL | integer | Yes | |
Glaive_LOOP | timer | Yes | |
Glaive_OWNER | unit | Yes | |
Glaive_OWNER_HIDDEN | unit | Yes | |
Glaive_STATE | string | Yes | |
Glaive_TARGET | unit | Yes | |
Glaive_TARGET_HIDDEN | unit | Yes | |
Glaive_UNIT | unit | Yes | |
HermitSkipped | boolean | No | false |
HermitSkipped2 | boolean | No | false |
HermitSkipped3 | boolean | No | false |
HiddenUnits | group | No | |
Illidan | unit | No | |
InCinematic | boolean | No | false |
Intro_Music | sound | No | |
IntroDummyUnits | group | No | |
IntroHuntersHall | unit | No | |
IntroSkipped | boolean | No | false |
IntroWisp01 | unit | No | |
IntroWisp02 | unit | No | |
IntroWisp03 | unit | No | |
IntroWisp04 | unit | No | |
IntroWisp05 | unit | No | |
ITEM_DESC | destructable | Yes | |
ITEM_DESC_Item_Type | itemcode | Yes | |
ITEM_DESC_Item_Type_INSANE | itemcode | Yes | |
ITEM_DESC_Total | integer | No | |
ITEM_UNIT | unit | Yes | |
ITEM_UNIT_Item_Type | itemcode | Yes | |
ITEM_UNIT_Item_Type_INSANE | itemcode | Yes | |
ITEM_UNIT_Total | integer | No | |
KakRandomRegions | integer | No | |
KakRandomUnits | integer | No | |
Maiden_OWNER | unit | Yes | |
Maiden_TIMER | timer | Yes | |
Maiev | unit | No | UnitNull |
MaievCinematic | unit | No | UnitNull |
MaievReturnSpot | location | No | |
Multiboard_Current_Column | integer | No | |
Multiboard_Current_Row | integer | No | |
Multiboard_Hero_Icon | string | No | |
Multiboard_Item_Used | boolean | Yes | |
Multiboard_Name_Used | boolean | No | |
Multiboard_Skill | abilcode | Yes | |
Multiboard_Skill_Icon | string | Yes | |
Multiboard_Skill_Name | string | Yes | |
Multiboard_Skill_Used | boolean | Yes | |
Multiboard_Unit | unit | No | |
Mutliboard_Hero_Statistics | multiboard | No | |
NagaSkipped | boolean | No | false |
Naisha | unit | No | |
NewWarden | unit | No | |
NewWarden2 | unit | No | |
NewWarden2Cinematic | unit | No | |
NewWarden2ReturnSpot | location | No | |
NewWardenCinematic | unit | No | |
NewWardenReturnSpot | location | No | |
OrcSpawnDelay01 | real | No | |
OrcSpawnDelay02 | real | No | |
OrcSpawnDelay03 | real | No | |
OrcSpawnGoal01 | integer | No | |
OrcSpawnGoal02 | integer | No | |
OrcSpawnGoal03 | integer | No | |
OrcSpawnTimer01 | timer | No | |
OrcSpawnTimer02 | timer | No | |
OrcSpawnTimer03 | timer | No | |
OrcSpawnUnits01 | group | No | |
OrcSpawnUnits02 | group | No | |
OrcSpawnUnits03 | group | No | |
Player_Color | playercolor | Yes | |
Player_Color_String | string | Yes | |
Player_One | player | No | |
Player_One_Agreed | boolean | No | |
Player_One_Color | integer | No | |
Player_One_Skipped | boolean | No | |
Player_Three | player | No | |
Player_Three_Agreed | boolean | No | |
Player_Three_Color | integer | No | |
Player_Three_Skipped | boolean | No | |
Player_Two | player | No | |
Player_Two_Agreed | boolean | No | |
Player_Two_Color | integer | No | |
Player_Two_Skipped | boolean | No | |
PointOrcFightZone | location | No | |
Powerups_Gold | integer | No | |
Powerups_Lumber | integer | No | |
QuestKillNaga | quest | No | |
QuestKillNagaReqKill | questitem | No | |
QuestLocateIllidan | quest | No | |
QuestLocateReqLocate | questitem | No | |
QuestSkeletons | quest | No | |
QuestSkeletonsReqKill | questitem | No | |
QuestSkeletonsReqReturn | questitem | No | |
RandomUnits | integer | No | |
Research_Name_1 | string | Yes | |
Research_Name_2 | string | Yes | |
Research_Name_3 | string | Yes | |
Research_Type | techcode | Yes | |
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_Integer | integer | No | |
SaveLoad_Item_String | string | Yes | |
SaveLoad_Items | itemcode | Yes | |
SaveLoad_Items_LastIndex | integer | No | |
SaveLoad_Uncompress | integer | Yes | |
SaveLoad_UsePlayername | boolean | No | |
SelectedUnits | group | No | |
Shadow_Orb_OWNER | unit | Yes | |
Shadow_Orb_OWNER_INTEGER | integer | Yes | |
Shadow_Orb_OWNER_ORB | item | Yes | |
Shadow_Orb_TIMER | timer | Yes | |
Shadow_Orb_TYPE | itemcode | Yes | |
Share_DISPLAY | boolean | Yes | |
Share_FAKE | unitcode | Yes | |
Share_REAL | unitcode | Yes | |
Shift_OWNER | unit | Yes | |
Shift_TARGET | unit | Yes | |
Shift_TIMER | timer | Yes | |
SkeletalArtifact | item | No | ItemNull |
SummoningPit01 | unit | No | |
SummoningPit02 | unit | No | |
SummoningPit03 | unit | No | |
SummoningPitsRemaining | integer | No | 3 |
Techtree_Fake | unitcode | Yes | |
Techtree_Name | string | Yes | |
Techtree_Real | unitcode | Yes | |
Techtree_Total | integer | No | |
TempGroup | group | Yes | |
TempInteger | integer | Yes | |
TempItem | item | No | |
TempItemType | itemcode | No | |
TempPoint | location | Yes | |
TempText | string | Yes | |
Text_Length_Techtree | real | No | |
TombDestroyed | boolean | No | |
TombGuard01 | unit | No | |
TombGuards | group | No | |
Twilight_FOLK | group | Yes | |
Twilight_TIMER | timer | Yes | |
Twilight_UNIT | unit | Yes | |
Tyrande | unit | No | |
Under_Construction | group | No | |
Validate | boolean | No | |
VictoryArcher01 | unit | No | |
VictoryArcher02 | unit | No | |
VictoryArcher03 | unit | No | |
VictoryArcher04 | unit | No | |
VictorySkipped | boolean | No | false |