maps/perl/sockpuppet.ext

#! 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;
   },
;
Revision:	1.2
Committed:	Wed Aug 30 06:05:57 2006 UTC (17 years, 8 months ago) by root
Branch:	MAIN
Changes since 1.1:	+2 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#! perl
2
3			cf::register_attachment "sockpuppet" =>
4			on_skill_attack => sub {
5			my ($self, $victim) = @_;
6
7			my $stats = $victim->stats;
8
9	root	1.2	$stats->exp ($stats->exp * 0.99999 - 1)
10			if $stats->exp > 2;
11	root	1.1
12			$self->remove;
13			$self->free;
14
15			cf::override;
16			},
17			;