function chr takes integer i returns string
local string abc = "abcdefghijklmnopqrstuvwxyz"
local string ABC = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
local string digits = "0123456789"
if i >= 65 and i <= 90 then
return SubString(ABC, i-65,i-64)
elseif i >= 97 and i <= 122 then
return SubString(abc, i-97,i-96)
elseif i >= 48 and i <= 57 then
return SubString(digits, i-48,i-47)
endif
return ""
endfunction

function CPos takes string StrData, string ToFind, integer From returns integer
local integer FromPos = From
loop
exitwhen (SubString(StrData, FromPos, FromPos+1) == ToFind) or (SubString(StrData, FromPos, FromPos+1) == "")
set FromPos = FromPos + 1
endloop
if (SubString(StrData, FromPos, FromPos+1) == ToFind) then
return FromPos
endif
return -1
endfunction

function int takes string Str returns integer
local integer Pos = CPos("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Str, 0) + 65
if Pos == 64 then
set Pos = CPos("0123456789", Str, 0) + 48
endif
if Pos == 47 then
set Pos = CPos("abcdefghijklmnopqrstuvwxyz", Str, 0) + 97
endif
if (Str == "") then
return 0
else
return Pos
endif
endfunction

function ID2String takes integer itemid returns string
return chr(itemid/256/256/256) + chr(ModuloInteger(itemid/256/256, 256)) + chr(ModuloInteger(itemid/256, 256)) + chr(ModuloInteger(itemid, 256))
endfunction

function String2ID takes string str returns integer
return int(SubString(str,0,1))*256*256*256 + int(SubString(str,1,2))*256*256 + int(SubString(str,2,3))*256 + int(SubString(str,3,4))
endfunction

function RunSkillCodeForUnit takes unit u returns nothing
local integer i = 1
local integer end = GetStoredInteger(udg_cache, "MaxHeroLevel", "") * 4
local string unitID = UnitId2String(GetUnitTypeId(u))
local string skillcode = GetStoredString(udg_cache, "SkillCodeFor", unitID)
loop
exitwhen i > end
call SelectHeroSkill(u, String2ID(SubStringBJ(skillcode, i, i + 4)))
set i = i + 4
endloop
set unitID = null
set skillcode = null
endfunction