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.9999);

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

      cf::override;
   },
;
Revision:	1.1
Committed:	Wed Aug 30 05:15:06 2006 UTC (17 years, 10 months ago) by root
Branch:	MAIN
Log Message:	added sockpuppet monster support code
#	Content
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	$stats->exp ($stats->exp * 0.9999);
10
11	$self->remove;
12	$self->free;
13
14	cf::override;
15	},
16	;