Paste #269081

function lvlAgg (expPp, gExpN, gExpN1, gExpN2, gLvl, gNik, zT)
    local gExpN = 4 - gExpN   ---получаем количество оставшегося лвла на уровне
    for i = 1,expPp do               --прибавляем опыт по единичке
        gExpN1 = gExpN1 + 1     --единичку прибавили к опыту на уровне
        gExpN = gExpN - 1      -- от оставшегося опыта на уровне отнимаем единичку
        if gExpN == 0 then       --если опыта на уровне не осталось, то
            gLvl = gLvl + 1  --прибавляем к лвлу единицу
            SendChatMessage("Поздравляем " .. gNik .. " c лвлапом!!!", "guild", nil, 1)
            gExpN = 8            --оставшийся опыт назначаем равным 8
            gExpN1 = 0           --текущий опыт на уровне назначаем равным нулю
        else
        end
    end
    local stroka = officerNote
    local strokaSplit = mysplit (stroka)
    gildExpN13 = string.format("%03d",gildExpN1)
    stroka = gildLvlN .. gildExpN13 .. " " .. strokaSplit[2] .. " " .. strokaSplit[3]
    GuildRosterSetOfficerNote(zT, stroka)
end