#! perl

cf::register_attachment "sockpuppet" =>
   on_skill_attack => sub {
      my ($self, $victim) = @_;
      
      my $stats = $victim->stats;

      $stats->exp ($stats->exp * 0.99999 - 1)
         if $stats->exp > 2;

      $self->remove;
      $self->free;

      cf::override;
   },
;