[ViewVC] Diff of: cvs/deliantra/server/ext/jeweler.ext

Comparing deliantra/server/ext/jeweler.ext (file contents):
Revision 1.6 by elmex, Fri Feb 2 12:05:28 2007 UTC vs.
Revision 1.12 by elmex, Tue Jul 31 09:40:15 2007 UTC

       wis => 'wisdom',
       int => 'intelligence',
       dex => 'dexterity',
       con => 'constitution',
       str => 'strength',
+      gem => 'diamond',
    );
    if ($ing =~ m/resist_(\S+)/) {
       my $a = $aliases{lc $1} || $1;
       "something for '". lc ($a). "' resistance";
    } elsif ($ing =~ m/spec_(\S+)/) {
       my $a = $aliases{lc $1} || $1;
       "something for the ". lc ($a). "' special";
+   } elsif ($aliases{$ing}) {
+      $aliases{$ing}
    } else {
       $ing
    }
 }
    my @rings = map { Jeweler::Object->new (object => $_) } @ring;
    @rings >= 2
       or return $pl->reply (undef, "You slap yourself, you forgot to put at least 2 jewels in!");
-   my $input_level;
+   my $input_level = 0;
+   my $value;
+   for (@rings) {
-   $input_level = max ($_->power_to_level, $input_level) for @rings;
+      $input_level = max ($_->power_to_level, $input_level);
+      $value += $_->{hash}->{value};
+   }
    my $ring = shift @rings;
    $ring->improve_by_ring (@rings);
    if ($do_analyze) {
-      $pl->reply (undef, "You want to make a " . $ring->to_string . ": " . $ring->analyze ($sk, $pl));
+      $pl->reply (undef, "You want to make a " . $ring->to_string . ": " . $ring->analyze ($sk, $pl, $input_level));
       $ring->wiz_analyze ($pl)
          if $pl->flag (cf::FLAG_WIZ);
       return;
    }
-   make_ring ($chdl, $ingred, $ring, $sk, $pl, $input_level);
+   make_ring ($chdl, $ingred, $ring, $value, $sk, $pl, $input_level);
 }
 sub make_ring {
-   my ($chdl, $ingred, $ring, $sk, $pl, $input_level) = @_;
+   my ($chdl, $ingred, $ring, $value, $sk, $pl, $input_level) = @_;
    if (!$pl->flag (cf::FLAG_WIZ)) {
       $ingred->remove ('rings');
       $ingred->remove ('ammys');
    }
    my $ch = $ring->get_chance_perc ($sk);
    my $succ = 0;
    my $r = cf::random_roll (0, 100, $pl, cf::PREFER_HIGH);
+   my $make_status;
+   my $exp;
    if ($r <= $ch or $pl->flag (cf::FLAG_WIZ)) {
-      my $lvl = max ($ring->power_to_level, 1);
+      $exp = $ring->projected_exp ($input_level);
-      my $exp = (cf::level_to_min_exp ($lvl) - cf::level_to_min_exp ($lvl - 1)) / 100;
-      if (defined $input_level) {
-         my $subexp =
-            (cf::level_to_min_exp ($input_level)
-               - cf::level_to_min_exp ($input_level - 1))
-                  / 100;
-         warn "INPUT: $lvl <-> $input_level ($exp <-> $subexp)\n";
-         $exp -= $subexp;
-         $exp = max ($exp, 0);
-      }
       $pl->change_exp ($exp, "jeweler", cf::SK_EXP_SKILL_ONLY);
-      $pl->message ("You succeed and get $exp experience.");
+      $pl->message ("You succeed and get $exp experience points.");
+      $make_status = "succeeded";
+      $ring->set_value ($value * 0.8); # 20% of the input values will vanish
    } else {
       $pl->message ("You fail!");
       $ring->negate;
+      $make_status = "fail";
+      $exp = 0;
    }
+   my $ring_ob = $ring->to_object;
+   { # some audit info calculation
+      my $sklvl = cf::exp_to_level ($sk->stats->exp);
+      my $make_info = sprintf
+         "JEWELER AUDIT: '%s' made '%s' (%s) (sk lvl %d, ring lvl %d, got %d exp): %s",
+            $pl->name, $ring->to_string, $ring_ob->uuid, $sklvl,
+            $ring->power_to_level, $exp, $make_status;
+      warn "$make_info\n" if $make_status eq 'succeeded';
+      $ring_ob->set_ob_key_value (ext_jeweler_made_by   => $pl->name);
+      $ring_ob->set_ob_key_value (ext_jeweler_make_info => $make_info);
+   }
-   $chdl->put ($ring->to_object);
+   $chdl->put ($ring_ob);
 }
 sub get_ingred {
    my ($pl, $chdl) = @_;
    my $ingred = eval { $chdl->extract_jeweler_ingredients };
                   return;
                } else {
                   my $ringo = Jeweler::Object->new (object => $ring[0]);
                   my $iring = $ingred->improve_ring_by_plan ($plan, $ringo);
-                  my $c1 = $ringo->calc_costs;
+                  my $c1    = $ringo->calc_costs;
-                  my $c2 = $iring->calc_costs;
+                  my $c2    = $iring->calc_costs;
+                  my $value = $iring->calc_value_from_cost ($c2);
+                  if ((not defined $c1) || (not defined $c2)) {
+                     $pl->message ("The jewel has or will become a resistancy above 99%,\n"
+                                  ."that is completly impossible to make!");
+                     return;
+                  }
                   my %keys;
                   my %cdiff;
                   for (keys %$c1, keys %$c2) { $keys{$_} = 1 }
-                  for (keys %keys) { $cdiff{$_} = $c2->{$_} - $c1->{$_}; warn "$_: $c2->{$_} | $c1->{$_}\n"; }
+                  for (keys %keys) { $cdiff{$_} = $c2->{$_} - $c1->{$_}; }
                   unless ($iring->is_better_than ($ringo)) {
                      $pl->message ("This plan doesn't improve anything, you find yourself puzzled about what you missed...");
                      return;
                   }
                      }
                   } else {
                      if (!$pl->flag (cf::FLAG_WIZ)) {
                         $ingred->check_costs (\%cdiff, 1);
                      }
-                     make_ring ($chdl, $ingred, $iring, $sk, $pl);
+                     make_ring ($chdl, $ingred, $iring, $value, $sk, $pl);
                   }
                }
             } else {
                $pl->message ("You've got no idea what you are planning to do!");
             }
       };
       $@ and warn "ERROR: $@\n";
    }
 );
-Jeweler::read_config (cf::datadir . '/jeweler.yaml');
+Jeweler::read_config "$DATADIR/jeweler.yaml";

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/server/ext/jeweler.ext (file contents): Revision 1.6 by elmex, Fri Feb 2 12:05:28 2007 UTC vs. Revision 1.12 by elmex, Tue Jul 31 09:40:15 2007 UTC

Diff Legend

Comparing deliantra/server/ext/jeweler.ext (file contents):
Revision 1.6 by elmex, Fri Feb 2 12:05:28 2007 UTC vs.
Revision 1.12 by elmex, Tue Jul 31 09:40:15 2007 UTC