maps/perl/suicide.ext

#! perl

# implement a 'suicide' command

cf::register_command suicide => 0, 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..");
   $who->kill_player;
};


Revision:	1.1
Committed:	Sat May 6 13:26:43 2006 UTC (18 years ago) by root
Branch:	MAIN
Log Message:	implement suicide command
#	User	Rev	Content
1	root	1.1	#! perl
2
3			# implement a 'suicide' command
4
5			cf::register_command suicide => 0, 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->kill_player;
10			};
11
12
13