ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/suicide.ext
Revision: 1.4
Committed: Sun Jan 31 03:46:20 2010 UTC (14 years, 4 months ago) by root
Branch: MAIN
CVS Tags: rel-2_93
Changes since 1.3: +2 -2 lines
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 root 1.4 #! perl # depends=highscore
2 root 1.1
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 root 1.3 my $killer = cf::arch::get "killer_suicide"; $who->contr->killer ($killer); $killer->destroy;
10 root 1.4 ext::highscore::check $who;
11 root 1.1 $who->kill_player;
12     };
13    
14    
15