… | |
… | |
222 | cf::NDI_BLUE |
222 | cf::NDI_BLUE |
223 | ); |
223 | ); |
224 | |
224 | |
225 | # read username |
225 | # read username |
226 | while () { |
226 | while () { |
227 | $user = query $ns, 0, "What is your name?\n:"; |
227 | $user = query $ns, 0, "What is your name? (login names are case-sensitive)\n:"; |
228 | |
228 | |
229 | if ($cf::LOGIN_LOCK{$user}) { |
229 | if ($cf::LOGIN_LOCK{$user}) { |
230 | $ns->send_drawinfo ( |
230 | $ns->send_drawinfo ( |
231 | "That username is currently used in another login session. " |
231 | "That username is currently used in another login session. " |
232 | . "Chose another, or wait till the other session has ended.", |
232 | . "Chose another, or wait till the other session has ended.", |
… | |
… | |
292 | if ($cf::CFG{ext_login_nocheck} or $hash eq crypt $pass, $hash) { |
292 | if ($cf::CFG{ext_login_nocheck} or $hash eq crypt $pass, $hash) { |
293 | nuke_str $pass; |
293 | nuke_str $pass; |
294 | # password matches, wonderful |
294 | # password matches, wonderful |
295 | my $pl = cf::player::find $user or next; |
295 | my $pl = cf::player::find $user or next; |
296 | $pl->connect ($ns); |
296 | $pl->connect ($ns); |
|
|
297 | $pl->ob->flag (cf::FLAG_DEBUG, 1);#d# temp |
297 | enter_map $pl; |
298 | enter_map $pl; |
298 | last; |
299 | last; |
299 | } elsif (can_cleanup $pl, $mtime) { |
300 | } elsif (can_cleanup $pl, $mtime) { |
300 | Coro::Timer::sleep 1; |
301 | Coro::Timer::sleep 1; |
301 | |
302 | |