[ViewVC] Diff of: cvs/deliantra/maps/perl/sockpuppet.ext

Comparing deliantra/maps/perl/sockpuppet.ext (file contents):
Revision 1.1 by root, Wed Aug 30 05:15:06 2006 UTC vs.
Revision 1.5 by root, Tue Dec 12 16:59:34 2006 UTC

 cf::register_attachment "sockpuppet" =>
    on_skill_attack => sub {
       my ($self, $victim) = @_;
+      if ($victim->type == cf::PLAYER) {
-      my $stats = $victim->stats;
+         my $stats = $victim->stats;
-      $stats->exp ($stats->exp * 0.9999);
+         $stats->exp ($stats->exp * 0.99999 - 1)
+            if $stats->exp > 2;
-      $self->remove;
+         $self->destroy;
-      $self->free;
+      } else {
+         $victim->stats->hp (-1);
+         $victim->kill_object;
+      }
       cf::override;
    },
 ;

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