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