… | |
… | |
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 $@; |