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->stats->hp (-1);
         $victim->kill_object;
      }

      cf::override;
   },
;
Revision:	1.4
Committed:	Fri Sep 8 17:33:55 2006 UTC (17 years, 8 months ago) by root
Branch:	MAIN
Changes since 1.3:	+1 -1 lines
Log Message:	genaccess, take three
#	Content
1	#! perl
2
3	cf::register_attachment "sockpuppet" =>
4	on_skill_attack => sub {
5	my ($self, $victim) = @_;
6
7	if ($victim->type == cf::PLAYER) {
8	my $stats = $victim->stats;
9
10	$stats->exp ($stats->exp * 0.99999 - 1)
11	if $stats->exp > 2;
12
13	$self->remove;
14	$self->free;
15	} else {
16	$victim->stats->hp (-1);
17	$victim->kill_object;
18	}
19
20	cf::override;
21	},
22	;