function c9010071_On_Talk(MapID, InstanceID, TargetID, TargetTypeID, RoleID, TalkIndex)
    local rolelevel = role.GetRoleLevel(MapID, InstanceID, RoleID)
    local a = role.GetRoleItemNum(RoleID, 6600210) -- Компас сутки
    local b = role.GetRoleItemNum(RoleID, 6600572) -- Компас неделя
    local c = role.GetRoleItemNum(RoleID, 6600573) -- Компас месяц
    local MsgID = msg.BeginMsgEvent()

    if TalkIndex == -1 then
        msg.AddMsgEvent(MsgID, 20, 930203)
        msg.AddMsgEvent(MsgID, 24, TargetID)
        msg.AddMsgEvent(MsgID, 21, 4)
        msg.AddMsgEvent(MsgID, 1, 930204)
    elseif TalkIndex == 4 then
        if rolelevel < 60 then
            msg.AddMsgEvent(MsgID, 20, 930208)
            msg.AddMsgEvent(MsgID, 24, TargetID)
            msg.AddMsgEvent(MsgID, 21, 26)
        else
            if a >= 1 or b >= 1 or c >= 1 then
                role.RoleGotoNewMap(MapID, InstanceID, RoleID, 3390518312, 402, 40, 1022)
            else
                msg.AddMsgEvent(MsgID, 20, 930205)
                msg.AddMsgEvent(MsgID, 24, TargetID)
                msg.AddMsgEvent(MsgID, 21, 26)
            end
        end
        msg.AddMsgEvent(MsgID, 21, -1)
        msg.AddMsgEvent(MsgID, 1, 100002)
    end

    msg.DispatchRoleMsgEvent(RoleID, MsgID)
end

aux.RegisterCreatureEvent(9010071, 7, "c9010071_On_Talk")