maps/perl/sockpuppet.ext

#! perl

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

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

         $self->remove;
         $self->free;
      } else {
         $victim->hp (-1);
         $victim->kill_object;
      }

      cf::override;
   },
;
Revision:	1.3
Committed:	Wed Aug 30 06:41:20 2006 UTC (20 years, 2 months ago) by root
Branch:	MAIN
Changes since 1.2:	+10 -5 lines
Log Message:	make nekosan the guardian of scorn
#	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	root	1.3	if ($victim->type == cf::PLAYER) {
8			my $stats = $victim->stats;
9	root	1.1
10	root	1.3	$stats->exp ($stats->exp * 0.99999 - 1)
11			if $stats->exp > 2;
12	root	1.1
13	root	1.3	$self->remove;
14			$self->free;
15			} else {
16			$victim->hp (-1);
17			$victim->kill_object;
18			}
19	root	1.1
20			cf::override;
21			},
22			;