ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cf.schmorp.de/maps/perl/sockpuppet.ext
Revision: 1.6
Committed: Fri Dec 15 19:11:47 2006 UTC (17 years, 7 months ago) by root
Branch: MAIN
CVS Tags: HEAD
Changes since 1.5: +0 -0 lines
State: FILE REMOVED
Log Message:
move .ext to server

File Contents

# 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->destroy;
14 } else {
15 $victim->stats->hp (-1);
16 $victim->kill_object;
17 }
18
19 cf::override;
20 },
21 ;