ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
cf.schmorp.de
/
maps
/
perl
/
sockpuppet.ext
Revision:
1.2
Committed:
Wed Aug 30 06:05:57 2006 UTC
(17 years, 10 months ago) by
root
Branch:
MAIN
Changes since
1.1
:
+2 -1 lines
Log Message:
*** empty log message ***
File Contents
#
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.99999 - 1)
10
if $stats->exp > 2;
11
12
$self->remove;
13
$self->free;
14
15
cf::override;
16
},
17
;