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

Comparing deliantra/server/ext/Jeweler.pm (file contents):
Revision 1.5 by elmex, Wed Jan 31 15:53:17 2007 UTC vs.
Revision 1.7 by elmex, Fri Feb 2 12:05:28 2007 UTC

          cf::POTION    => 'potions',
          cf::SCROLL    => 'scrolls',
    );
    for ($self->{cauldron}->inv) {
+      if (!$_->flag (cf::FLAG_IDENTIFIED) && $_->need_identify) {
+         die "unidentified";
-      if ($_->flag (cf::FLAG_CURSED) || $_->flag (cf::FLAG_DAMNED)) {
+      } elsif ($_->flag (cf::FLAG_CURSED) || $_->flag (cf::FLAG_DAMNED)) {
          die "cursed";
       }
       if (my $k = $type_to_key{$_->type}) {
          push @{$ingreds->{$k}}, $_;
    my $self = bless { }, $class;
    $self->ring_or_ammy_to_hash ($arg{object});
    $self;
+}
+sub has_resist {
+   my ($self, $resistnam, $resistval) = @_;
+   my $resnum = $REV_RESMAP{uc $resistnam};
+   if (defined ($resistval)) {
+      return 1 if $self->{hash}->{resist}->{$resnum} == $resistval;
+   } else {
+      return 1 if $self->{hash}->{resist}->{$resnum};
+   }
+   return undef;
 }
 sub analyze {
    my ($self, $sk, $pl) = @_;
 sub to_object {
    my ($self) = @_;
    my $obj = cf::object::new $self->{hash}->{arch};
+   $obj->item_power ($self->power_to_level); # there have to be strings attached!
    $obj->face ($self->{hash}{face});
    my $stats = $obj->stats;
    $stats->hp   ($self->{hash}{spec}{regen});

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