--- deliantra/server/ext/Jeweler.pm	2007/02/01 01:46:45	1.6
+++ deliantra/server/ext/Jeweler.pm	2007/02/02 12:05:28	1.7
@@ -630,6 +630,17 @@
    $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) = @_;