--- deliantra/server/ext/login.ext	2008/01/13 09:19:56	1.79
+++ deliantra/server/ext/login.ext	2008/04/23 06:16:21	1.83
@@ -94,8 +94,6 @@
 
          warn $ob->name, " map reset after logout, logout age $age (>= $MAX_DISCONNECT_TIME)\n";#d#
 
-         ($map, $x, $y) = $pl->savebed;
-
          if ($age >= $MAX_DISCONNECT_TIME) {
             $ob->message (
                "You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
@@ -109,6 +107,8 @@
             $ob->stats->hp (-10000); #] if they survive this they deserved to live
             $pl->killer ("a cave-in");
          } else {
+            ($map, $x, $y) = $pl->savebed;
+
             $ob->message (
                "You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
              . "Fortunately, some friendly dwellers found you, checked your passport, and brought you to safety. "
@@ -499,7 +499,6 @@
          $_->ob->message ("$name left the game.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list;
       } else {
          $_->ob->message ("$name uncerimoniously disconnected.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list;
-         warn "unclean\n" unless safe_spot $pl;#d#
          $pl->{unclean_save} = $cf::RUNTIME
             unless safe_spot $pl;
       }
@@ -552,13 +551,13 @@
                      my $a_ = $pl->refcnt;#d#
                      my $b_ = $ob->refcnt;#d#
 
-                     warn "player-scheduler refcnt ", $ob->name, " pl $pl_ref ob $ob_ref (C pl $a_ ob $b_)\n";#d#
+                     warn "player-scheduler refcnt ", $ob->name, " pl $pl_ref/3 ob $ob_ref/3 (C pl $a_/1 ob $b_/2)\n";#d#
                   }
                }
             }
          };
          warn $@ if $@;
-         Coro::cede;
+         cf::cede_to_tick;
       };
    }
 };