| … | |
… | |
| 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 | |
| … | |
… | |
| 585 | $ob = $pl->ob; |
585 | $ob = $pl->ob; |
| 586 | |
586 | |
| 587 | $ob->destroy; |
587 | $ob->destroy; |
| 588 | $pl->destroy; |
588 | $pl->destroy; |
| 589 | } else { |
589 | } else { |
| 590 | warn "player-scheduler refcnt ", $ob->name, " $pl_ref,$a_ $ob_ref,$b_\n";#d# |
590 | warn "player-scheduler refcnt ", $ob->name, " pp$pl_ref,pc$a_ op$ob_ref,oc$b_\n";#d# |
| 591 | } |
591 | } |
| 592 | } |
592 | } |
| 593 | } |
593 | } |
| 594 | }; |
594 | }; |
| 595 | warn $@ if $@; |
595 | warn $@ if $@; |
