| … | |
… | |
| 347 | "Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n"; |
347 | "Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n"; |
| 348 | |
348 | |
| 349 | last if $res =~ /[dD]/; |
349 | last if $res =~ /[dD]/; |
| 350 | |
350 | |
| 351 | $pl->chargen_race_next; |
351 | $pl->chargen_race_next; |
| 352 | Coro::Timer::sleep 0.2; |
352 | Coro::Timer::sleep 0.05; |
| 353 | } |
353 | } |
| 354 | |
354 | |
| 355 | # create the playerdir, if necessary, as chargen_race_done did it before |
355 | # create the playerdir, if necessary, as chargen_race_done did it before |
| 356 | # presumably because of unique maps |
356 | # presumably because of unique maps |
| 357 | aio_mkdir playerdir $pl, 0770; |
357 | aio_mkdir playerdir $pl, 0770; |
| … | |
… | |
| 366 | last; |
366 | last; |
| 367 | } elsif ($res =~ /^[mM]/) { |
367 | } elsif ($res =~ /^[mM]/) { |
| 368 | $pl->gender (0); |
368 | $pl->gender (0); |
| 369 | last; |
369 | last; |
| 370 | } |
370 | } |
| 371 | Coro::Timer::sleep 0.2; |
371 | Coro::Timer::sleep 0.05; |
| 372 | } |
372 | } |
| 373 | |
373 | |
| 374 | $ob->reply (undef, "Welcome to Deliantra!"); |
374 | $ob->reply (undef, "Welcome to Deliantra!"); |
| 375 | |
375 | |
| 376 | # XXX: Workaround for delayed client ext protocol handshake |
376 | # XXX: Workaround for delayed client ext protocol handshake |
