#! 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;
};