struct int2
        integer i1
        integer i2
        
        static method Create takes integer i returns int2
            local int2 this = int2.create()
            loop
            exitwhen i < 512
            set .i1 = .i1 + 1
            set i = i -512
            endloop
            set .i2 = i
            return this
        endmethod
    endstruct

function LoadHero takes string s,player p, real x,real y returns unit
    local integer LvlHero = sx02(s,0)
    local unit U = null
    local integer Str = sx02(s,2)
    local integer Agi = sx02(s,4)
    local integer Int = sx02(s,6)
    
    local int2 Item12 = int2.Create(sx03(s,8))
    local int2 Item34 = int2.Create(sx03(s,11))
    local int2 Item56 = int2.Create(sx03(s,14))
    
    local integer Sum = sx03(s,17) 
    local integer HeroId = sx01(SubString(s,20,21))    

    if Sum == LvlHero + Str + Agi + Int + HeroId + Item12.i1 + Item12.i2 + Item34.i1 + Item34.i2 + Item56.i1 + Item56.i2  then
    set Item12.i1 =  Item12.i1 - 1
    set Item12.i2 =  Item12.i2 - 2
    set Item34.i1 =  Item34.i1 - 3
    set Item34.i2 =  Item34.i2 - 4
    set Item56.i1 =  Item56.i1 - 5
    set Item56.i2 =  Item56.i2 - 6


    set U = CreateUnit(p,GetHeroId(HeroId),x,y,0)  
    call SetHeroLevel(U,LvlHero-100,true)
    
    call SetHeroStr(U,Str,false)
    call SetHeroAgi(U,Agi,false)
    call SetHeroInt(U,Int,false) 
    
  call  UnitAddItem(U, CreateItem(GetItemId(Item12.i1),0,0))
  call  UnitAddItem(U, CreateItem(GetItemId(Item12.i2),0,0))
  call  UnitAddItem(U, CreateItem(GetItemId(Item34.i1),0,0))
  call  UnitAddItem(U, CreateItem(GetItemId(Item34.i2),0,0))
  call  UnitAddItem(U, CreateItem(GetItemId(Item56.i1),0,0))
  call  UnitAddItem(U, CreateItem(GetItemId(Item56.i2),0,0))
    endif
    
    call int2.destroy(Item12)
    call int2.destroy(Item34)
    call int2.destroy(Item56)
return U
endfunction