| … | |
… | |
| 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 | |
