--- deliantra/server/ext/login.ext	2007/07/14 19:27:59	1.64
+++ deliantra/server/ext/login.ext	2007/07/22 17:10:06	1.68
@@ -88,6 +88,7 @@
                # kill them.
                # reminds me of the famous badness 10000 syndrome...
                $ob->stats->hp (-10000); #] if they survive this they deserved to live
+               $pl->killer ("a cave-in");
             } else {
                $ob->message (
                   "You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
@@ -358,10 +359,10 @@
          $ob->add_statbonus;
 
          while () {
-            $ns->send_msg (-1, "chargen-race-title", ucfirst $pl->title);
+            $ns->send_msg ("chargen-race-title", ucfirst $pl->title, -1);
             my $msg = $ob->msg;
             $msg =~ s/(?<=\S)\n(?=\S)/ /g;
-            $ns->send_msg (cf::NDI_BLUE, "chargen-race-description", $msg);
+            $ns->send_msg ("chargen-race-description", $msg, cf::NDI_BLUE);
 
             my $res = query $ns, cf::CS_QUERY_SINGLECHAR,
                          "Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n";
@@ -482,8 +483,9 @@
 our $SAVE_TIMEOUT       =  20; # save players every n seconds
 
 our $SCHEDULER = cf::async_ext {
-   my $schedule_interval = Coro::Event->timer (after => 1, interval => $SCHEDULE_INTERVAL);
+   my $schedule_interval = Coro::Event->timer (after => 1);
    while () {
+      $schedule_interval->interval ($SCHEDULE_INTERVAL);
       $schedule_interval->next;
 
       # this weird form of iteration over values is used because