--- deliantra/server/ext/jeweler.ext	2007/02/04 11:17:52	1.7
+++ deliantra/server/ext/jeweler.ext	2007/04/18 17:32:06	1.10
@@ -89,15 +89,28 @@
 
    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)); # 10 + level times making such a ring
+                                        # should get you to the rings level at least.
 
       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)); # see above for comment
+
          $exp -= $subexp;
          $exp = max ($exp, 0);
+
+      } else {
+         # the experience bonus here is to make level 1 rings give you at least
+         # 100 exp points when making them. This also makes leveling in the
+         # first few levels a bit easier. (Propably until around level 5-6).
+         my $expbonus = cf::level_to_min_exp (2) / 10;
+         # this bonus should also only be given for _new_ rings and not for merged
+         # ones - to prevent infinite exp making.
+         $exp += $expbonus;
       }
 
       $pl->change_exp ($exp, "jeweler", cf::SK_EXP_SKILL_ONLY);
@@ -279,4 +292,5 @@
    }
 );
 
-Jeweler::read_config (cf::datadir . '/jeweler.yaml');
+Jeweler::read_config "$DATADIR/jeweler.yaml";
+