--- deliantra/server/ext/jeweler.ext	2007/02/04 11:17:52	1.7
+++ deliantra/server/ext/jeweler.ext	2007/04/10 17:09:13	1.8
@@ -89,13 +89,16 @@
 
    if ($r <= $ch or $pl->flag (cf::FLAG_WIZ)) {
       my $lvl = max ($ring->power_to_level, 1);
-      $exp = (cf::level_to_min_exp ($lvl) - cf::level_to_min_exp ($lvl - 1)) / 100;
+      $exp =
+         (cf::level_to_min_exp ($lvl) - cf::level_to_min_exp ($lvl - 1))
+            / (10 + max ($lvl - 1, 0));
+            # divided by 10 + level
 
       if (defined $input_level) {
          my $subexp =
             (cf::level_to_min_exp ($input_level)
                - cf::level_to_min_exp ($input_level - 1))
-                  / 100;
+                  / (10 + max ($input_level - 1, 0));
          $exp -= $subexp;
          $exp = max ($exp, 0);
       }