library SSLS initializer Init uses MapInit
    globals
        private string Main_Characters = "zZaT4@qQwWsS5xXeE3dDcCrR2?fFvVt+7AgG6bB8yYhHnNuUjJmMiL1!oO0pP9"
        private integer SLMC = StringLength(Main_Characters)
        private string Characters_Num = "0123456789"
        private string Characters_Upp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        private string Characters_Low = "abcdefghijklmnopqrstuvwxyz"
        private string Characters_Spe = "!@#$%^&*()_+=-`~ []{}\\'\";:/?.,<>"
        private string Dash = "-"
        private integer Dash_Size = 4
        private string array Order_String
        private integer array Limit
        private integer array Character_Size
        private integer Max_Size = 5
        private integer Max_Save_Variables = 11
        private constant boolean Name_Safe = true
        private constant boolean Colorize = false
        private string Black = "|cff000000"
        private string Blue = "|cff0000ff"
        private string Dark_Green = "|cff008000"
        private string Gray = "|cff808080"
        private string Green = "|cff00ff00"
        private string Light_Blue = "|cff808080"
        private string Orange = "|cffd45e19"
        private string Pink = "|cffff8080"
        private string Purple = "|cff6f2583"
        private string Red = "|cffff0000"
        private string Teal = "|cff00ffff"
        private string Yellow = "|cffffff00"
        private string Brown = "|cff4d2903"
        private string Lower_Case_Color = Purple
        private string Upper_Case_Color = Blue
        private string Number_Color = Dark_Green
        private string Special_Character_Color = Gray
        private string array Compress_Orders
        private string array Compress_Powers
        private constant integer Max_Compression = 63
        private constant integer Max_Items = 0
        private constant integer Max_Heroes = 61
        private constant integer Max_Abilities = 0
    endglobals
    globals
        private integer Safety_Int = 0
    endglobals
    globals
        private integer array Hero_Ids
        private integer array Item_Ids
        private integer array Ability_Ids
    endglobals
    globals
        private integer String_Pos = 0
    endglobals
    private function Hero_Settings takes nothing returns nothing
        set Hero_Ids[0] = 'H01Z'
        set Hero_Ids[1] = 'H009'
        set Hero_Ids[2] = 'H00A'
        set Hero_Ids[3] = 'H00C'
        set Hero_Ids[4] = 'H00B'
        set Hero_Ids[5] = 'H019'
        set Hero_Ids[6] = 'H01A'
        set Hero_Ids[7] = 'H01C'
        set Hero_Ids[8] = 'H01B'
        set Hero_Ids[9] = 'H00T'
        set Hero_Ids[10] = 'H00U'
        set Hero_Ids[11] = 'H00W'
        set Hero_Ids[12] = 'H00V'
        set Hero_Ids[13] = 'H015'
        set Hero_Ids[14] = 'H016'
        set Hero_Ids[15] = 'H017'
        set Hero_Ids[16] = 'H018'
        set Hero_Ids[17] = 'H01L'
        set Hero_Ids[18] = 'H01M'
        set Hero_Ids[19] = 'H01O'
        set Hero_Ids[20] = 'H01N'
        set Hero_Ids[21] = 'H003'
        set Hero_Ids[22] = 'H004'
        set Hero_Ids[61] = 'H001'
        set Hero_Ids[23] = 'H002'
        set Hero_Ids[24] = 'H00X'
        set Hero_Ids[25] = 'H00Y'
        set Hero_Ids[26] = 'H010'
        set Hero_Ids[27] = 'H00Z'
        set Hero_Ids[28] = 'H00P'
        set Hero_Ids[29] = 'H00Q'
        set Hero_Ids[30] = 'H00S'
        set Hero_Ids[31] = 'H00R'
        set Hero_Ids[32] = 'H01D'
        set Hero_Ids[33] = 'H01E'
        set Hero_Ids[34] = 'H01G'
        set Hero_Ids[35] = 'H01F'
        set Hero_Ids[36] = 'H000'
        set Hero_Ids[37] = 'H00L'
        set Hero_Ids[38] = 'H00N'
        set Hero_Ids[39] = 'H00O'
        set Hero_Ids[40] = 'H00M'
        set Hero_Ids[41] = 'H00H'
        set Hero_Ids[42] = 'H00I'
        set Hero_Ids[43] = 'H00K'
        set Hero_Ids[44] = 'H00J'
        set Hero_Ids[45] = 'H01H'
        set Hero_Ids[46] = 'H01I'
        set Hero_Ids[47] = 'H01K'
        set Hero_Ids[48] = 'H01J'
        set Hero_Ids[49] = 'H011'
        set Hero_Ids[50] = 'H012'
        set Hero_Ids[51] = 'H014'
        set Hero_Ids[52] = 'H013'
        set Hero_Ids[53] = 'H00D'
        set Hero_Ids[54] = 'H00F'
        set Hero_Ids[55] = 'H00G'
        set Hero_Ids[56] = 'H00E'
        set Hero_Ids[57] = 'H005'
        set Hero_Ids[58] = 'H006'
        set Hero_Ids[59] = 'H007'
        set Hero_Ids[60] = 'H008'
    endfunction
    private function Item_Settings takes nothing returns nothing
        set Item_Ids[0] = 0
    endfunction
    private function Ability_Settings takes nothing returns nothing
        set Ability_Ids[0] = 0
    endfunction
    private function Safety_Func takes string whichName returns string
        local integer i = StringLength(whichName)
        local integer x = 0
        local integer a = 0
        local integer temp = 0
        local integer array Block
        local string s = ""
        local string f = ""
        if Name_Safe then
            loop
                set x = x + 1
                set a = 0
                loop
                    set a = a + 1
                    if SubString(whichName,x-1,x) == SubString(Characters_Upp,a-1,a) then
                        set temp = temp+(a*i)
                        exitwhen a == a
                    endif
                    exitwhen a == StringLength(Characters_Upp)
                endloop
                set a = 0
                loop
                    set a = a + 1
                    if SubString(whichName,x-1,x) == SubString(Characters_Low,a-1,a) then
                        set temp = temp+(a*i)
                        exitwhen a == a
                    endif
                    exitwhen a == StringLength(Characters_Low)
                endloop
                set a = 0
                loop
                    set a = a + 1
                    if SubString(whichName,x-1,x) == SubString(Characters_Num,a-1,a) then
                        set temp = temp+(a*i)
                        exitwhen a == a
                    endif
                    exitwhen a == StringLength(Characters_Num)
                endloop
                set a = 0
                loop
                    set a = a + 1
                    if SubString(whichName,x-1,x) == SubString(Characters_Spe,a-1,a) then
                        set temp = temp+(a*i)
                        exitwhen a == a
                    endif
                    exitwhen a == StringLength(Characters_Spe)
                endloop
                exitwhen x == i
            endloop
        endif
        set temp = Safety_Int + temp
        set i = 0
        set a = 0
        set x = 0
        set Block[1] = temp/Character_Size[Max_Size]
        set i = i + Block[1]*Character_Size[Max_Size]
        loop
            set a = a + 1
            exitwhen a > Max_Size
            set Block[a+1] = (temp-i)/Character_Size[Max_Size-a]
            set i = i + Block[a+1]*Character_Size[Max_Size-a]
        endloop
        loop
            set x = x + 1
            if Block[x] == 0 then
                set s = s + "0"
            else
                set s = s + "#"
                set f = f + SubString(Main_Characters,Block[x]-1,Block[x])
            endif
            exitwhen x-1 == Max_Size
        endloop
        set x = 0
        loop
            set x = x + 1
            if s == Compress_Orders[x-1] then
                set Block[0] = x
                set f = SubString(Main_Characters,Block[0]-1,Block[0]) + f
                exitwhen x == x
            endif
            exitwhen x-1 == Max_Compression
        endloop
        return f
    endfunction
    private function Integer2Code takes integer whichInteger returns string
        local integer i = whichInteger
        local integer x = 0
        local integer array Block
        local string s = ""
        local string f = ""
        set i = 0
        set Block[1] = whichInteger/Character_Size[Max_Size]
        set i = i + Block[1]*Character_Size[Max_Size]
        loop
            set x = x + 1
            exitwhen x > Max_Size
            set Block[x+1] = (whichInteger-i)/Character_Size[Max_Size-x]
            set i = i + Block[x+1]*Character_Size[Max_Size-x]
        endloop
        set x = 0
        loop
            set x = x + 1
            if Block[x] == 0 then
                set s = s + "0"
            else
                set s = s + "#"
                set f = f + SubString(Main_Characters,Block[x]-1,Block[x])
                set Safety_Int = Safety_Int + Block[x]
            endif
            exitwhen x-1 == Max_Size
        endloop
        set x = 0
        loop
            set x = x + 1
            if s == Compress_Orders[x-1] then
                set Block[0] = x
                set Safety_Int = Safety_Int + x
                set f = SubString(Main_Characters,Block[0]-1,Block[0]) + f
                exitwhen x == x
            endif
            exitwhen x-1 == Max_Compression
        endloop
        return f
    endfunction
    private function FindCodeLength takes string whichString returns integer
        local string s = SubString(whichString,0,1)
        local integer t = 0
        loop
            exitwhen (t == Max_Compression) or (s == SubString(Main_Characters,t,t+1))
            set t = t + 1
        endloop
        return StringLength(Compress_Powers[t])
    endfunction
    private function Code2Integer takes string whichCode returns integer
        local string s = SubString(whichCode,0,1)
        local integer l
        local integer t = 0
        local integer i = 0
        local integer temp = 0
        local integer k
        loop
            exitwhen (t == Max_Compression) or (s == SubString(Main_Characters,t,t+1))
            set t = t + 1
        endloop
        set l = StringLength(Compress_Powers[t])
        set Safety_Int = Safety_Int + t
        loop
            set i = i + 1
            exitwhen i > l
            set k = 0
            loop
                set k = k + 1
                if SubString(whichCode,i,i+1) == SubString(Main_Characters,k-1,k) then
                    set Safety_Int = Safety_Int + k
                    set temp = temp + k*Character_Size[S2I(SubString(Compress_Powers[t],i-1,i))]
                    set k = SLMC
                endif
                exitwhen k == SLMC
            endloop
        endloop
        return temp
    endfunction
    private function Save_Actions takes nothing returns nothing
        local integer i = -1
        local integer t = 0
        local integer array loopint
        local string s = ""
        local integer x
        local string Pre_Color_Code = ""
        set Safety_Int = 0
        loop
            set i = i + 1
            if Order_String[i] == "Hero" then
                set loopint[0] = -1
                loop
                    set loopint[0] = loopint[0] + 1
                    exitwhen GetUnitTypeId(Your_Hero[GetPlayerId(GetTriggerPlayer())]) == Hero_Ids[loopint[0]]
                endloop
                set s = s + Integer2Code(loopint[0])
            elseif Order_String[i] == "EXP" then
                set s = s + Integer2Code(GetHeroXP(Your_Hero[GetPlayerId(GetTriggerPlayer())]))
            elseif Order_String[i] == "STR/DEX/INT" then
                set s = s + Integer2Code(GetHeroStr(Your_Hero[GetPlayerId(GetTriggerPlayer())],false)+(GetHeroAgi(Your_Hero[GetPlayerId(GetTriggerPlayer())],false)*1000)+(GetHeroInt(Your_Hero[GetPlayerId(GetTriggerPlayer())],false)*1000000))
            elseif Order_String[i] == "MAG/VIT/LUC" then
                set s = s + Integer2Code(Hero_MAG[GetPlayerId(GetTriggerPlayer())]+(Hero_VIT[GetPlayerId(GetTriggerPlayer())]*1000)+(Hero_LUC[GetPlayerId(GetTriggerPlayer())]*1000000))
            elseif Order_String[i] == "Main Quests" then
                set s = s + Integer2Code(MainQuests1[GetPlayerId(GetTriggerPlayer())]+(MainQuests2[GetPlayerId(GetTriggerPlayer())]*1000)+(MainQuests3[GetPlayerId(GetTriggerPlayer())]*1000000))
            elseif Order_String[i] == "Optional Quests" then
                set s = s + Integer2Code(OptionalQuests1[GetPlayerId(GetTriggerPlayer())]+OptionalQuests2[GetPlayerId(GetTriggerPlayer())]+OptionalQuests3[GetPlayerId(GetTriggerPlayer())]+1)
            elseif Order_String[i] == "Gold" then
                set s = s + Integer2Code(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD))
            elseif Order_String[i] == "PVP" then
                set s = s + Integer2Code(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER))
            elseif Order_String[i] == "Ability1-3" then
                set loopint[0] = -1
                loop
                    set loopint[0] = loopint[0] + 1
                    exitwhen (Ability1[GetPlayerId(GetTriggerPlayer())] == Ability_Ids[loopint[0]]) or (loopint[0] > Max_Abilities)
                endloop
                set loopint[1] = -1
                loop
                    set loopint[1] = loopint[1] + 1
                    exitwhen (Ability2[GetPlayerId(GetTriggerPlayer())] == Ability_Ids[loopint[1]]) or (loopint[1] > Max_Abilities)
                endloop
                set loopint[2] = -1
                loop
                    set loopint[2] = loopint[2] + 1
                    exitwhen (Ability3[GetPlayerId(GetTriggerPlayer())] == Ability_Ids[loopint[2]]) or (loopint[2] > Max_Abilities)
                endloop
                set loopint[1] = loopint[1]*1000
                set loopint[2] = loopint[2]*1000000
                set s = s + Integer2Code(loopint[0]+loopint[1]+loopint[2])
            elseif Order_String[i] == "Ability4-6" then
                set loopint[0] = -1
                loop
                    set loopint[0] = loopint[0] + 1
                    exitwhen (Ability4[GetPlayerId(GetTriggerPlayer())] == Ability_Ids[loopint[0]]) or (loopint[0] > Max_Abilities)
                endloop
                set loopint[1] = -1
                loop
                    set loopint[1] = loopint[1] + 1
                    exitwhen (Ability5[GetPlayerId(GetTriggerPlayer())] == Ability_Ids[loopint[1]]) or (loopint[1] > Max_Abilities)
                endloop
                set loopint[2] = -1
                loop
                    set loopint[2] = loopint[2] + 1
                    exitwhen (Ability6[GetPlayerId(GetTriggerPlayer())] == Ability_Ids[loopint[2]]) or (loopint[2] > Max_Abilities)
                endloop
                set loopint[1] = loopint[1]*1000
                set loopint[2] = loopint[2]*1000000
                set s = s + Integer2Code(loopint[0]+loopint[1]+loopint[2])
            elseif Order_String[i] == "Item1-3" then
                set loopint[0] = -1
                loop
                    set loopint[0] = loopint[0] + 1
                    exitwhen (Item1[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[0]]) or (loopint[0] > Max_Items)
                endloop
                set loopint[1] = -1
                loop
                    set loopint[1] = loopint[1] + 1
                    exitwhen (Item2[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[1]]) or (loopint[1] > Max_Items)
                endloop
                set loopint[2] = -1
                loop
                    set loopint[2] = loopint[2] + 1
                    exitwhen (Item3[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[2]]) or (loopint[2] > Max_Items)
                endloop
                set loopint[1] = loopint[1]*1000
                set loopint[2] = loopint[2]*1000000
                set s = s + Integer2Code(loopint[0]+loopint[1]+loopint[2])
            elseif Order_String[i] == "Item4-6" then
                set loopint[0] = -1
                loop
                    set loopint[0] = loopint[0] + 1
                    exitwhen (Item4[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[0]]) or (loopint[0] > Max_Items)
                endloop
                set loopint[1] = -1
                loop
                    set loopint[1] = loopint[1] + 1
                    exitwhen (Item5[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[1]]) or (loopint[1] > Max_Items)
                endloop
                set loopint[2] = -1
                loop
                    set loopint[2] = loopint[2] + 1
                    exitwhen (Item6[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[2]]) or (loopint[2] > Max_Items)
                endloop
                set loopint[1] = loopint[1]*1000
                set loopint[2] = loopint[2]*1000000
                set s = s + Integer2Code(loopint[0]+loopint[1]+loopint[2])
            elseif Order_String[i] == "Item7-9" then
                set loopint[0] = -1
                loop
                    set loopint[0] = loopint[0] + 1
                    exitwhen (Item7[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[0]]) or (loopint[0] > Max_Items)
                endloop
                set loopint[1] = -1
                loop
                    set loopint[1] = loopint[1] + 1
                    exitwhen (Item8[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[1]]) or (loopint[1] > Max_Items)
                endloop
                set loopint[2] = -1
                loop
                    set loopint[2] = loopint[2] + 1
                    exitwhen (Item9[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[2]]) or (loopint[2] > Max_Items)
                endloop
                set loopint[1] = loopint[1]*1000
                set loopint[2] = loopint[2]*1000000
                set s = s + Integer2Code(loopint[0]+loopint[1]+loopint[2])
            elseif Order_String[i] == "Item10-12" then
                set loopint[0] = -1
                loop
                    set loopint[0] = loopint[0] + 1
                    exitwhen (Item10[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[0]]) or (loopint[0] > Max_Items)
                endloop
                set loopint[1] = -1
                loop
                    set loopint[1] = loopint[1] + 1
                    exitwhen (Item11[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[1]]) or (loopint[1] > Max_Items)
                endloop
                set loopint[2] = -1
                loop
                    set loopint[2] = loopint[2] + 1
                    exitwhen (Item12[GetPlayerId(GetTriggerPlayer())] == Item_Ids[loopint[2]]) or (loopint[2] > Max_Items)
                endloop
                set loopint[1] = loopint[1]*1000
                set loopint[2] = loopint[2]*1000000
                set s = s + Integer2Code(loopint[0]+loopint[1]+loopint[2])
            endif
            exitwhen i == Max_Save_Variables
        endloop
        set s = s + Safety_Func(GetPlayerName(GetTriggerPlayer()))
        set x = StringLength(s)
        set i = 0
        loop
            set i = i + 1
            if i > Dash_Size then
                set Pre_Color_Code = Pre_Color_Code+Dash
                set i = 0
            else
                set t = t + 1
                set Pre_Color_Code = Pre_Color_Code+SubString(s,t-1,t)
            endif
            exitwhen t == x
        endloop
        if Colorize then
        else
            call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,0,3600.,"Please wrtie down or take a screenshot of your code:")
            call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,0,3600.," ")
            call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,0,3600.,"==============================================================")
            call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,0,3600.,Pre_Color_Code)
            call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,0,3600.,"==============================================================")
            call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,0,3600.," ")
            call DisplayTimedTextToPlayer(GetTriggerPlayer(),0,0,3600.,"There no lower case \"L\"s or upper case \"i\"s in this code to avoid confusion.")
        endif
    endfunction
    private function Load_Actions takes nothing returns nothing
    endfunction
    private function Compression_Settings takes nothing returns nothing
        set Compress_Orders[1] = "######"
        set Compress_Powers[1] = "543210"
        set Compress_Orders[2] = "#0####"
        set Compress_Powers[2] = "53210"
        set Compress_Orders[3] = "##0###"
        set Compress_Powers[3] = "54210"
        set Compress_Orders[4] = "###0##"
        set Compress_Powers[4] = "54310"
        set Compress_Orders[5] = "####0#"
        set Compress_Powers[5] = "54320"
        set Compress_Orders[6] = "#####0"
        set Compress_Powers[6] = "54321"
        set Compress_Orders[7] = "#00###"
        set Compress_Powers[7] = "5210"
        set Compress_Orders[8] = "#0#0##"
        set Compress_Powers[8] = "5310"
        set Compress_Orders[9] = "#0##0#"
        set Compress_Powers[9] = "5320"
        set Compress_Orders[10] = "#0###0"
        set Compress_Powers[10] = "5321"
        set Compress_Orders[11] = "##00##"
        set Compress_Powers[11] = "5410"
        set Compress_Orders[12] = "##0#0#"
        set Compress_Powers[12] = "5420"
        set Compress_Orders[13] = "##0##0"
        set Compress_Powers[13] = "5421"
        set Compress_Orders[14] = "###00#"
        set Compress_Powers[14] = "5430"
        set Compress_Orders[15] = "###0#0"
        set Compress_Powers[15] = "5431"
        set Compress_Orders[16] = "####00"
        set Compress_Powers[16] = "5432"
        set Compress_Orders[17] = "#000##"
        set Compress_Powers[17] = "510"
        set Compress_Orders[18] = "#00#0#"
        set Compress_Powers[18] = "520"
        set Compress_Orders[19] = "#00##0"
        set Compress_Powers[19] = "521"
        set Compress_Orders[20] = "#0#00#"
        set Compress_Powers[20] = "530"
        set Compress_Orders[21] = "#0#0#0"
        set Compress_Powers[21] = "531"
        set Compress_Orders[22] = "#0##00"
        set Compress_Powers[22] = "532"
        set Compress_Orders[23] = "##000#"
        set Compress_Powers[23] = "540"
        set Compress_Orders[24] = "##00#0"
        set Compress_Powers[24] = "541"
        set Compress_Orders[25] = "##0#00"
        set Compress_Powers[25] = "542"
        set Compress_Orders[26] = "###000"
        set Compress_Powers[26] = "543"
        set Compress_Orders[27] = "#0000#"
        set Compress_Powers[27] = "50"
        set Compress_Orders[28] = "#000#0"
        set Compress_Powers[28] = "51"
        set Compress_Orders[29] = "#00#00"
        set Compress_Powers[29] = "52"
        set Compress_Orders[30] = "#0#000"
        set Compress_Powers[30] = "53"
        set Compress_Orders[31] = "##0000"
        set Compress_Powers[31] = "54"
        set Compress_Orders[32] = "#00000"
        set Compress_Powers[32] = "5"
        set Compress_Orders[33] = "000000"
        set Compress_Powers[33] = ""
        set Compress_Orders[34] = "0#0000"
        set Compress_Powers[34] = "4"
        set Compress_Orders[35] = "00#000"
        set Compress_Powers[35] = "3"
        set Compress_Orders[36] = "000#00"
        set Compress_Powers[36] = "2"
        set Compress_Orders[37] = "0000#0"
        set Compress_Powers[37] = "1"
        set Compress_Orders[38] = "00000#"
        set Compress_Powers[38] = "0"
        set Compress_Orders[39] = "0##000"
        set Compress_Powers[39] = "43"
        set Compress_Orders[40] = "0#0#00"
        set Compress_Powers[40] = "42"
        set Compress_Orders[41] = "0#00#0"
        set Compress_Powers[41] = "41"
        set Compress_Orders[42] = "0#000#"
        set Compress_Powers[42] = "40"
        set Compress_Orders[43] = "00##00"
        set Compress_Powers[43] = "32"
        set Compress_Orders[44] = "00#0#0"
        set Compress_Powers[44] = "31"
        set Compress_Orders[45] = "00#00#"
        set Compress_Powers[45] = "30"
        set Compress_Orders[46] = "000##0"
        set Compress_Powers[46] = "21"
        set Compress_Orders[47] = "000#0#"
        set Compress_Powers[47] = "20"
        set Compress_Orders[48] = "0000##"
        set Compress_Powers[48] = "10"
        set Compress_Orders[49] = "0###00"
        set Compress_Powers[49] = "432"
        set Compress_Orders[50] = "0##0#0"
        set Compress_Powers[50] = "431"
        set Compress_Orders[51] = "0##00#"
        set Compress_Powers[51] = "430"
        set Compress_Orders[52] = "0#0##0"
        set Compress_Powers[52] = "421"
        set Compress_Orders[53] = "0#0#0#"
        set Compress_Powers[53] = "420"
        set Compress_Orders[54] = "0#00##"
        set Compress_Powers[54] = "410"
        set Compress_Orders[55] = "00###0"
        set Compress_Powers[55] = "321"
        set Compress_Orders[56] = "00##0#"
        set Compress_Powers[56] = "320"
        set Compress_Orders[57] = "00#0##"
        set Compress_Powers[57] = "310"
        set Compress_Orders[58] = "000###"
        set Compress_Powers[58] = "210"
        set Compress_Orders[59] = "0####0"
        set Compress_Powers[59] = "4321"
        set Compress_Orders[60] = "0###0#"
        set Compress_Powers[60] = "4320"
        set Compress_Orders[61] = "0##0##"
        set Compress_Powers[61] = "4310"
        set Compress_Orders[62] = "0#0###"
        set Compress_Powers[62] = "4210"
        set Compress_Orders[63] = "00####"
        set Compress_Powers[63] = "3210"
        set Compress_Orders[0] = "0#####"
        set Compress_Powers[0] = "43210"
    endfunction
    private function Init takes nothing returns nothing
        local trigger t = CreateTrigger()
        call TriggerRegisterPlayerChatEvent(t,Player(0),"-save",true)
        call TriggerAddAction(t,function Save_Actions)
        set Character_Size[0] = 1
        set Character_Size[1] = 64
        set Character_Size[2] = 4096
        set Character_Size[3] = 262144
        set Character_Size[4] = 16777216
        set Character_Size[5] = 1073741824
        set Order_String[0] = "Hero"
        set Limit[0] = Max_Heroes
        set Order_String[1] = "EXP"
        set Limit[1] = 2147483648
        set Order_String[2] = "STR/DEX/INT"
        set Limit[2] = 999999999
        set Order_String[3] = "MAG/VIT/LUC"
        set Limit[3] = 999999999
        set Order_String[4] = "Gold"
        set Limit[4] = 1000000
        set Order_String[5] = "PVP"
        set Limit[5] = 1000000
        set Order_String[6] = "Main Quests"
        set Limit[6] = 999999999
        set Order_String[7] = "Optional Quests"
        set Limit[7] = 2147483648
        set Order_String[8] = "Item1-3"
        set Limit[8] = (Max_Items)+(Max_Items*1000)+(Max_Items*1000000)
        set Order_String[9] = "Item4-6"
        set Limit[9] = (Max_Items)+(Max_Items*1000)+(Max_Items*1000000)
        set Order_String[10] = "Item7-9"
        set Limit[10] = (Max_Items)+(Max_Items*1000)+(Max_Items*1000000)
        set Order_String[11] = "Item10-12"
        set Limit[11] = (Max_Items)+(Max_Items*1000)+(Max_Items*1000000)
        set Order_String[12] = "Ability1-3"
        set Limit[12] = (Max_Abilities)+(Max_Abilities*1000)+(Max_Abilities*1000000)
        set Order_String[13] = "Ability4-6"
        set Limit[13] = (Max_Abilities)+(Max_Abilities*1000)+(Max_Abilities*1000000)
        call Compression_Settings()
        call Item_Settings()
        call Ability_Settings()
        call Hero_Settings()
    endfunction
endlibrary