//TESH.scrollpos=90
//TESH.alwaysfold=0
function CodeGen_SaveToDisk takes string loadcode, string filename returns nothing
call PreloadGenClear()
call PreloadGenStart()
call Preload(loadcode)
call PreloadGenEnd(filename)
call ClearSelection()
endfunction
function CodeGen_Init takes nothing returns nothing
local integer i = 1
local integer b = udg_SaveLoad_Base
local integer m = udg_SaveLoad_MaxValue
loop
exitwhen i >= udg_SaveLoad_MaxValue
set udg_SaveLoad_Char[i] = SubString(udg_SaveLoad_Alphabet, i, i+1)
set i = i + 1
endloop
set udg_SaveLoad_Alphabet = SubString(udg_SaveLoad_Alphabet, 0, 1) + SubString(udg_SaveLoad_Alphabet, m + 1, b)
set udg_SaveLoad_Base = b - m
endfunction
function CodeGen_ConvertItem takes integer id returns integer
local integer i = 1
loop
exitwhen i > udg_SaveLoad_ItemCount
if (id == udg_SaveLoad_Item[i]) then
return i
endif
set i = i + 1
endloop
return 0
endfunction
function CodeGen_ConvertUnit takes integer id returns integer
local integer i = 1
loop
exitwhen i > udg_SaveLoad_HeroCount
if (id == udg_SaveLoad_Hero[i]) then
return i
endif
set i = i + 1
endloop
return 0
endfunction
function CodeGen_Encode takes integer i returns string
local integer b
local string s = ""
if i <= udg_SaveLoad_Base then
return SubString(udg_SaveLoad_Alphabet, i, i + 1)
endif
loop
exitwhen i <= 0
set b = i - (i / udg_SaveLoad_Base) * udg_SaveLoad_Base
set s = SubString(udg_SaveLoad_Alphabet, b, b + 1) + s
set i = i / udg_SaveLoad_Base
endloop
return s
endfunction
function CodeGen_StrPos takes string s returns integer
local integer i = 0
loop
exitwhen i > udg_SaveLoad_Base
if s == SubString(udg_SaveLoad_Alphabet, i, i + 1) then
return i
endif
set i = i + 1
endloop
return -1
endfunction
function CodeGen_Decode takes string s returns integer
local integer a = 0
loop
exitwhen StringLength(s) == 1
set a = a * udg_SaveLoad_Base + udg_SaveLoad_Base * CodeGen_StrPos(SubString(s, 0, 1))
set s = SubString(s, 1, 99)
endloop
return a+CodeGen_StrPos(s)
endfunction
function CodeGen_StringChecksum takes string in returns integer
local integer i = 0
local integer l = StringLength(in)
local integer t = 0
local integer o = 0
loop
exitwhen i >= l
set t = CodeGen_Decode(SubString(in, i, i + 1))
set o = o + t
set i = i + 1
endloop
return o
endfunction
function CodeGen_Color takes string char returns string
local integer i = 0
local integer l = StringLength(udg_SaveLoad_Full)
local string x = ""
loop
exitwhen i >= l
set x = SubString(udg_SaveLoad_Full, i, i + 1)
if char == x then
if (x=="0" or S2I(x) > 0) then
return udg_SaveLoad_Number + char + "|r"
elseif StringCase(x, false) == x then
return udg_SaveLoad_Lower + char + "|r"
elseif StringCase(x, true) == x then
return udg_SaveLoad_Upper + char + "|r"
endif
endif
set i = i + 1
endloop
return char
endfunction
function CodeGen_Format takes string s returns string
local integer i = 0
local integer x = StringLength(s)
local integer j = 1
local string s2 = ""
loop
exitwhen i >= x
set s2 = s2 + CodeGen_Color(SubString(s, i, i + 1))
if (j >= udg_SaveLoad_HyphenSpace and i != (x-1)) then
set j = 0
set s2 = s2 + udg_SaveLoad_SeperationChar
endif
set j = j + 1
set i = i + 1
endloop
return s2
endfunction
function CodeGen_Strip takes string s returns string
local integer i = 0
local integer x = StringLength(s)
local string out = ""
local string a = ""
loop
exitwhen i >= x
set a = SubString(s, i, i + 1)
if (a != udg_SaveLoad_SeperationChar) then
set out = out + a
endif
set i = i + 1
endloop
return out
endfunction
// yeeahh descriptive variables
function CodeGen_Load takes string s returns nothing
local string str = CodeGen_Strip(s)
local string tmp = ""
local string c = ""
local integer x = 0
local integer i = 1
local integer l = 0
local integer j = 1
local integer f = 0
local boolean b = true
set udg_SaveLoad_Valid = false
if (udg_SaveLoad_Security) then
loop
exitwhen i > 3
if (CodeGen_Decode(SubString(str, 0, i)) == CodeGen_StringChecksum(SubString(str, i, 999))) then
set udg_SaveLoad_Valid = true
set str = SubString(str, i, 999)
set i = 4
endif
set i = i + 1
endloop
endif
if (not udg_SaveLoad_Valid) then
set udg_SaveLoad_Error = "Invalid Code"
return
endif
set i = 0
set l = StringLength(str)
if (udg_SaveLoad_CheckName) then
set c = CodeGen_Encode(CodeGen_StringChecksum(GetPlayerName(GetTriggerPlayer())))
set i = StringLength(c)
if (c != SubString(str, l - i, i)) then
set udg_SaveLoad_Valid = false
set udg_SaveLoad_Error = "Wrong username"
return
endif
set l = l - i
endif
set i = 0
loop
exitwhen i >= l
set tmp = SubString(str, i, i + 1)
set b = true
set f = 0
set j = 1
loop
exitwhen f >= (udg_SaveLoad_MaxValue)
if (tmp == udg_SaveLoad_Char[f]) then
set j = f + 2
set udg_Load[x] = CodeGen_Decode(SubString(str, i + 1, i + (j)))
set b = false
set f = udg_SaveLoad_MaxValue
endif
set f = f + 1
endloop
if (b) then
set udg_Load[x] = CodeGen_Decode(tmp)
endif
set i = i + j
set x = x + 1
endloop
set udg_SaveLoad_Valid = true
endfunction
function CodeGen_Compile takes nothing returns string
local integer i = 0
local integer j = 0
local string out = ""
local string ln = ""
local string x = ""
loop
exitwhen i > udg_SaveCount
set x = CodeGen_Encode(udg_Save[i])
set j = StringLength(x)
if (j > 1) then
set out = out + udg_SaveLoad_Char[j-1]
endif
set out = out + x
set i = i + 1
endloop
if (udg_SaveLoad_CheckName) then
set out = out + CodeGen_Encode(CodeGen_StringChecksum(GetPlayerName(GetTriggerPlayer())))
endif
if (udg_SaveLoad_Security) then
set out = CodeGen_Encode(CodeGen_StringChecksum(out)) + out
endif
if udg_SaveLoad_SaveToDisk and GetLocalPlayer() == GetTriggerPlayer() then
call CodeGen_SaveToDisk(out, udg_SaveLoad_Directory + "\\" + udg_SaveLoad_Filename)
endif
return CodeGen_Format(out)
endfunction
Name | Type | is_array | initial_value |
AbilityLevel | integer | No | |
ancientprotectortext | texttag | No | |
BattleTimer | timer | No | |
BattleTimerWindow | timerdialog | No | |
blnHoldPatrol | boolean | No | |
Camera_Distance | real | No | |
CameraDistance | string | No | |
Code | StringExt | No | |
Color_Text | string | Yes | |
Deaths | integer | Yes | |
FlyUnit | unit | No | |
Forces | force | Yes | |
gobotext | texttag | No | |
Hero | unit | No | |
herocount | integer | Yes | |
heroesguild | texttag | No | |
herolimit | integer | Yes | 1 |
HeroXPConstant | integer | No | |
HeroXPLevelFactor | integer | No | |
HeroXPPrevLevelFactor | integer | No | |
HeroXPRequired | integer | No | |
i | integer | No | |
intKingdomHeroAttackSpeech | integer | No | |
intKingdomHeroDefendSpeech | integer | No | |
intKingdomHeroPatrolSpeech | integer | No | |
intPeriodicRewardGold | integer | No | |
intPeriodicRewardLumber | integer | No | |
intResearchCM | integer | No | |
intResearchCM_Total | integer | No | |
intResearchHU | integer | No | |
intResearchHU_Total | integer | No | |
intResearchNE | integer | No | |
intResearchNE_Total | integer | No | |
intResearchORC | integer | No | |
intResearchORC_Total | integer | No | |
intResearchUD | integer | No | |
intResearchUD_Total | integer | No | |
Item | item | No | |
ItemAmount | integer | No | |
ItemCount | integer | No | |
Kills | integer | Yes | |
kills | integer | Yes | |
KillsCount | leaderboard | No | |
kinghp | leaderboard | No | |
Kingtext | texttag | No | |
L | location | No | |
List | integer | No | |
Load | integer | Yes | |
LoadCount | integer | No | |
LocalFiles_WarningMessage | string | No | |
MapName | string | No | |
MenuButtons | button | Yes | |
MenuDialog | dialog | No | |
MultiBoard | multiboard | No | |
MultiBoard_Players | integer | No | |
Multiboard_Spots | integer | Yes | |
order | integer | No | |
outpost | texttag | No | |
peasantlordtext | texttag | No | |
pLeaver | player | No | |
pntKingdomPatrolPoint | location | No | |
pntOutsideKingRoom | location | No | |
port2text | texttag | No | |
port3text | texttag | No | |
porttext | texttag | No | |
pygRecruitableHeroesPlayerGrp | force | No | |
RC_ButtonNo | button | No | |
RC_ButtonYes | button | No | |
RC_Clock | timer | No | |
RC_Dialog | dialog | No | |
RC_Event | real | No | |
RC_Integer | integervar | No | |
RC_MaxDuration | real | No | |
RC_No_Count | integer | No | |
RC_Player | player | No | |
RC_Run | trigger | No | |
RC_Total_Count | integer | No | |
RC_Yes_Count | integer | No | |
rescueunit | unit | Yes | |
rescuingplayer | player | Yes | |
RV_Vote | integer | Yes | |
Save | integer | Yes | |
SaveAbilityType | abilcode | Yes | |
SaveAbilityTypeMax | integer | No | |
SaveCodeColored | string | No | |
SaveCount | integer | No | |
SaveCurrentSlot | integer | Yes | |
SaveHeroName | boolean | No | |
SaveItemType | itemcode | Yes | |
SaveItemTypeMax | integer | No | |
SaveLoad_Abilities | abilcode | Yes | |
SaveLoad_Abilities_LastIndex | integer | No | |
SaveLoad_AbilityCount | integer | No | |
SaveLoad_Alphabet | string | No | |
SaveLoad_Base | integer | No | |
SaveLoad_CaseSensitive | boolean | No | |
SaveLoad_Char | string | Yes | |
SaveLoad_CheckName | boolean | No | |
SaveLoad_Compress | integer | Yes | |
SaveLoad_Directory | string | No | |
SaveLoad_Error | string | No | |
SaveLoad_Filename | string | No | |
SaveLoad_Full | string | No | |
SaveLoad_Hero | unitcode | Yes | |
SaveLoad_HeroCount | integer | No | |
SaveLoad_Heroes | unitcode | Yes | |
SaveLoad_Heroes_LastIndex | integer | No | |
SaveLoad_HyphenSpace | integer | No | |
SaveLoad_Initialized | boolean | No | |
SaveLoad_Item | itemcode | Yes | |
SaveLoad_ItemCount | integer | No | |
SaveLoad_Items | itemcode | Yes | |
SaveLoad_Items_LastIndex | integer | No | |
SaveLoad_Lower | string | No | |
SaveLoad_MaxValue | integer | No | |
SaveLoad_Number | string | No | |
SaveLoad_SaveToDisk | boolean | No | |
SaveLoad_Security | boolean | No | |
SaveLoad_SeperationChar | string | No | |
SaveLoad_Uncompress | integer | Yes | |
SaveLoad_Upper | string | No | |
SaveLoad_UsePlayername | boolean | No | |
SaveLoad_Valid | boolean | No | |
SaveLoadEvent | real | No | |
SaveLoadEvent_Code | string | No | |
SaveLoadEvent_Player | player | No | |
SaveLoadMaxLength | integer | No | |
SaveMaxValue | integer | Yes | |
SaveNameList | string | Yes | |
SaveNameMax | integer | No | |
SavePlayerHero | unit | Yes | |
SaveShowCode | boolean | No | |
SaveTempInt | integer | No | |
SaveTempReal | real | No | |
SaveTempString | string | No | |
SaveTempUnit | unit | No | |
SaveUnitMaxStat | integer | No | |
SaveUnitType | unitcode | Yes | |
SaveUnitTypeMax | integer | No | |
SaveUseGUI | boolean | No | |
SaveValue | integer | Yes | |
shoptext | texttag | No | |
sleepygolemtext | texttag | No | |
stonekiller | unit | No | |
strKingdomHeroAttackSpeech | string | Yes | |
strKingdomHeroDefendSpeech | string | Yes | |
strKingdomHeroPatrolSpeech | string | Yes | |
strResearchCM | string | Yes | |
strResearchHU | string | Yes | |
strResearchNE | string | Yes | |
strResearchORC | string | Yes | |
strResearchUD | string | Yes | |
swordinthestonetext | texttag | No | |
TempFloatText | texttag | No | |
TempForce | force | No | |
TempGroup | group | No | |
TempInteger | integer | No | |
TempUnit | unit | No | |
TempUnitType | unitcode | No | |
ttResearchCM | techcode | Yes | |
ttResearchHU | techcode | Yes | |
ttResearchNE | techcode | Yes | |
ttResearchORC | techcode | Yes | |
ttResearchUD | techcode | Yes | |
ungKingdomAttackHero | group | No | |
ungKingdomDefendHero | group | No | |
ungLeaverUnitGroup | group | No | |
ungPatrolKingdom3Hero | group | No | |
ungPatrolKingdomHero | group | No | |
ungRecruitableHeroes | group | No | |
untResearchCM | unit | Yes | |
untResearchHU | unit | Yes | |
untResearchNE | unit | Yes | |
untResearchORC | unit | Yes | |
untResearchUD | unit | Yes | |
Validate | boolean | No | |
VKAble | boolean | No | |
VKCheck | boolean | No | |
VKColors | string | Yes | |
VKMultiboard | multiboard | No | |
VKPlayers | player | Yes | |
VKSetup | integer | Yes | |
VKTime | timer | No | |
VKTimeWindow | timerdialog | No | |
VKVoted | integer | Yes | |
VKVotes | integer | Yes |