server/ext/suicide.ext

#! perl # depends=highscore

# implement a 'suicide' command

cf::register_command suicide => sub {
   my ($who, $args) = @_;

   $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..");
   my $killer = cf::arch::get "killer_suicide"; $who->contr->killer ($killer); $killer->destroy;

   cf::async {
      ext::highscore::check $who;
      $who->kill_player;
   };
};

Revision:	1.6
Committed:	Sun May 9 22:51:13 2010 UTC (14 years ago) by root
Branch:	MAIN
CVS Tags:	rel-3_1, rel-3_0, HEAD
Changes since 1.5:	+5 -2 lines
Log Message:	fix some issues related to fork, highscore calculation and quit_character
#	Content
1	#! perl # depends=highscore
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	my $killer = cf::arch::get "killer_suicide"; $who->contr->killer ($killer); $killer->destroy;
10
11	cf::async {
12	ext::highscore::check $who;
13	$who->kill_player;
14	};
15	};
16