function Item takes nothing returns nothing
    local unit U = GetManipulatingUnit()
    local real X = GetLocationX(GetUnitLoc(U))
    local real Y = GetLocationY(GetUnitLoc())
    local real Face = GetUnitFacing(U)
    local real Life = GetUnitState(U, UNIT_STATE_LIFE)
    local real Mana = GetUnitState(U, UNIT_STATE_MANA)
    local integer Level = GetHeroLevel(U)
    local integer Exp = GetHeroXP(U)
    local integer n = -1
    local integer array l
    local item Item = GetManipulatedItem()
    local item array i
    loop
        set n = n + 1
        exitwhen ( n == 7 )
        if ( n <= 6 ) then
            set i[n] = UnitItemInSlot(U, n + 1)
        endif
        set l[n] = GetUnitAbilityLevel(U, S2I("A00" + I2S(n)))
    endloop
endfunction