--- deliantra/server/ext/login.ext	2012/11/19 01:13:49	1.131
+++ deliantra/server/ext/login.ext	2018/11/18 15:19:48	1.136
@@ -26,6 +26,10 @@
 }
 
 sub can_cleanup {
+   # highscore list is not cleared out, rethink
+   # also, admin accounts can be hacked this way, if unused for long.
+   return 0;
+
    my ($pl, $mtime) = @_;
 
    my $age = time - $mtime;
@@ -139,7 +143,7 @@
    } elsif ($token =~ /!(.*)/) {
       return $pass eq pack "H*", $1;
    } else {
-      return $token eq crypt $pass, $token;
+      return $token eq encode_password $pass;
    }
 }
 
@@ -198,7 +202,7 @@
          Coro::Timer::sleep 0.05;
       }
 
-      $ob->set_animation (2);
+      $ob->set_anim_frame (2);
       $ob->add_statbonus;
 
       $pl->{chargen} = "race";
@@ -250,6 +254,8 @@
       $pl->{chargen} = "done";
    }
 
+   $ns->update_command_faces;
+
    $ob->reply (undef, "Welcome to Deliantra!");
 
    if (0 < Coro::AIO::aio_load "$cf::CONFDIR/motd", my $motd) {