maps/perl/suicide.ext

#! perl

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


Revision:	1.4
Committed:	Fri Dec 15 19:11:47 2006 UTC (17 years, 5 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
#	User	Rev	Content
1	root	1.1	#! perl
2
3			# implement a 'suicide' command
4
5	root	1.3	cf::register_command suicide => sub {
6	root	1.1	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.2	$who->contr->killer ("foolery");
10	root	1.1	$who->kill_player;
11			};
12
13
14