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->contr->killer ("foolery");
   $who->kill_player;
};


Revision:	1.2
Committed:	Fri Aug 25 13:24:06 2006 UTC (17 years, 8 months ago) by root
Branch:	MAIN
Changes since 1.1:	+1 -0 lines
Log Message:	moved plug-ins to new plug-in system, where applicable
#	Content
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->contr->killer ("foolery");
10	$who->kill_player;
11	};
12
13
14