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

File Contents

# Content
1 #! perl
2
3 # implement a 'suicide' command
4
5 cf::register_command suicide => sub {
6 my ($who, $args) = @_;
7
8 $who->message ("You see no way to escape. Real heroes would rather starve to death than to give up, but you realise you are no hero..");
9 $who->contr->killer ("foolery");
10 $who->kill_player;
11 };
12
13
14