| … | |
… | |
| 434 | $ob->add_statbonus; |
434 | $ob->add_statbonus; |
| 435 | |
435 | |
| 436 | while () { |
436 | while () { |
| 437 | $ns->send_msg (-1, "chargen-race-title", ucfirst $pl->title); |
437 | $ns->send_msg (-1, "chargen-race-title", ucfirst $pl->title); |
| 438 | my $msg = $ob->msg; |
438 | my $msg = $ob->msg; |
| 439 | $msg =~ s/\b\n\b/ /g; |
439 | $msg =~ s/(?<=\S)\n(?=\S)/ /g; |
| 440 | $ns->send_msg (cf::NDI_BLUE, "chargen-race-description", $msg); |
440 | $ns->send_msg (cf::NDI_BLUE, "chargen-race-description", $msg); |
| 441 | |
441 | |
| 442 | my $res = query $ns, cf::CS_QUERY_SINGLECHAR, |
442 | my $res = query $ns, cf::CS_QUERY_SINGLECHAR, |
| 443 | "Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n"; |
443 | "Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n"; |
| 444 | |
444 | |
