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