-- Функция для изучения навыков крови огня
function FireBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    -- Перебираем диапазон навыков от 30101 до 30110
    for Index = 30101, 30110 do
        -- Проверяем, изучен ли навык с ID Index
        local level = role.IsLearnedSkill(TargetID, math.floor(Index))
        if level ~= nil then
            -- Если навык изучен, удаляем его
            role.RemoveSkill(TargetID, math.floor(Index))
        end
        -- Добавляем новый навык с ID Index*100+12
        role.AddSkill(TargetID, Index * 100 + 12)
    end
end

-- Регистрируем событие использования предмета с ID 6612309
aux.RegisterItemEvent(6612309, 1, "FireBloodMagic_SkillBook") -- Кровь огня

-- Функция для изучения навыков крови воды
function WaterBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    -- Перебираем диапазон навыков от 30001 до 30010
    for Index = 30001, 30010 do
        -- Проверяем, изучен ли навык с ID Index
        local level = role.IsLearnedSkill(TargetID, math.floor(Index))
        if level ~= nil then
            -- Если навык изучен, удаляем его
            role.RemoveSkill(TargetID, math.floor(Index))
        end
        -- Добавляем новый навык с ID Index*100+12
        role.AddSkill(TargetID, Index * 100 + 12)
    end
end

-- Регистрируем событие использования предмета с ID 6612310
aux.RegisterItemEvent(6612310, 1, "WaterBloodMagic_SkillBook") -- Кровь воды

-- Функция для изучения навыков крови грома
function ThunderBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    -- Перебираем диапазон навыков от 30301 до 30310
    for Index = 30301, 30310 do
        -- Проверяем, изучен ли навык с ID Index
        local level = role.IsLearnedSkill(TargetID, math.floor(Index))
        if level ~= nil then
            -- Если навык изучен, удаляем его
            role.RemoveSkill(TargetID, math.floor(Index))
        end
        -- Добавляем новый навык с ID Index*100+12
        role.AddSkill(TargetID, Index * 100 + 12)
    end
end

-- Регистрируем событие использования предмета с ID 6612311
aux.RegisterItemEvent(6612311, 1, "ThunderBloodMagic_SkillBook") -- Кровь грома

-- Функция для изучения навыков крови ветра
function WindBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    -- Перебираем диапазон навыков от 30201 до 30210
    for Index = 30201, 30210 do
        -- Проверяем, изучен ли навык с ID Index
        local level = role.IsLearnedSkill(TargetID, math.floor(Index))
        if level ~= nil then
            -- Если навык изучен, удаляем его
            role.RemoveSkill(TargetID, math.floor(Index))
        end
        -- Добавляем новый навык с ID Index*100+12
        role.AddSkill(TargetID, Index * 100 + 12)
    end
end

-- Регистрируем событие использования предмета с ID 6612312
aux.RegisterItemEvent(6612312, 1, "WindBloodMagic_SkillBook") -- Кровь ветра

-- Функция для изучения навыков крови элементов
function ElementBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    -- Перебираем диапазон навыков от 30401 до 30413
    for Index = 30401, 30413 do
        -- Пропускаем навыки с ID 30405, 30407 и 30411
        if Index ~= 30405 and Index ~= 30407 and Index ~= 30411 then
            -- Проверяем, изучен ли навык с ID Index
            local level = role.IsLearnedSkill(TargetID, math.floor(Index))
            if level ~= nil then
                -- Если навык изучен, удаляем его
                role.RemoveSkill(TargetID, math.floor(Index))
            end
            -- Добавляем новый навык с ID Index*100+12
            role.AddSkill(TargetID, Index * 100 + 12)
        end
    end
    -- Добавляем дополнительный навык с ID 3051201
    role.AddSkill(TargetID, 3051201)
end

-- Регистрируем событие использования предмета с ID 6612313
aux.RegisterItemEvent(6612313, 1, "ElementBloodMagic_SkillBook") -- Кровь элементов

-- Функция для изучения навыков крови святости
function HolyBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    -- Перебираем диапазон навыков от 30501 до 30510
    for Index = 30501, 30510 do
        -- Проверяем, изучен ли навык с ID Index
        local level = role.IsLearnedSkill(TargetID, math.floor(Index))
        if level ~= nil then
            -- Если навык изучен, удаляем его
            role.RemoveSkill(TargetID, math.floor(Index))
        end
        -- Добавляем новый навык с ID Index*100+12
        role.AddSkill(TargetID, Index * 100 + 12)
    end
    -- Добавляем дополнительный навык с ID 3051101
    role.AddSkill(TargetID, 3051101)
end

-- Регистрируем событие использования предмета с ID 6612314
aux.RegisterItemEvent(6612314, 1, "HolyBloodMagic_SkillBook") -- Кровь святости

-- Функция для изучения всех навыков крови
function GeneralBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    -- Вызываем функции для изучения всех типов навыков крови
    HolyBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    ElementBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    WindBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    ThunderBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    WaterBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
    FireBloodMagic_SkillBook(MapID, InstanceID, TypeID, TargetID)
end

-- Регистрируем событие использования предмета с ID 6611220
aux.RegisterItemEvent(6611220, 1, "GeneralBloodMagic_SkillBook") -- Общая кровь