--- deliantra/server/ext/suicide.ext 2006/12/15 19:29:18 1.1 +++ deliantra/server/ext/suicide.ext 2010/01/31 03:46:20 1.4 @@ -1,4 +1,4 @@ -#! perl +#! perl # depends=highscore # implement a 'suicide' command @@ -6,7 +6,8 @@ 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"); + my $killer = cf::arch::get "killer_suicide"; $who->contr->killer ($killer); $killer->destroy; + ext::highscore::check $who; $who->kill_player; };