[ViewVC] Diff of: cvs/deliantra/server/ext/login.ext

Comparing deliantra/server/ext/login.ext (file contents):
Revision 1.25 by root, Sat Jan 13 23:06:13 2007 UTC vs.
Revision 1.26 by root, Thu Jan 18 21:27:19 2007 UTC

 }
 sub check_clean_save {
    my ($pl) = @_;
-   unless (delete $pl->{clean_save}) {
+   if (my $time = delete $pl->{unclean_save}) {
+      $pl->ns->send_drawinfo (
+         "You didn't use a savebed to leave this realm. This is very dangerous, "
+       . "as lots of things could happen when you leave by other means, such as cave-ins, "
+       . "or monsters suddenly snapping your body. Better use a savebed next time.",
+         cf::NDI_RED
+      );
       #d#TODO
    }
 }
 # delete a player directory, be non-blocking AND synchronous...
                nuke_str $pass;
                # password matches, wonderful
                my $pl = cf::player::find $user or next;
                $pl->connect ($ns);
                check_clean_save $pl;
-               $pl->{clean_save} = 1;
                last;
             } elsif (can_cleanup $pl, $mtime) {
                Coro::Timer::sleep 1;
                $ns->send_drawinfo (
       if ($cleanly) {
          $_->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;
-         delete $pl->{clean_save};
+         $pl->{unclean_save} = $cf::RUNTIME;
       }
    },
 );
 cf::client->attach (

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines