--- deliantra/server/ext/login.ext 2007/07/19 13:46:39 1.66 +++ deliantra/server/ext/login.ext 2007/07/22 17:10:06 1.68 @@ -359,10 +359,10 @@ $ob->add_statbonus; while () { - $ns->send_msg (-1, "chargen-race-title", ucfirst $pl->title); + $ns->send_msg ("chargen-race-title", ucfirst $pl->title, -1); my $msg = $ob->msg; $msg =~ s/(?<=\S)\n(?=\S)/ /g; - $ns->send_msg (cf::NDI_BLUE, "chargen-race-description", $msg); + $ns->send_msg ("chargen-race-description", $msg, cf::NDI_BLUE); my $res = query $ns, cf::CS_QUERY_SINGLECHAR, "Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n"; @@ -483,8 +483,9 @@ our $SAVE_TIMEOUT = 20; # save players every n seconds our $SCHEDULER = cf::async_ext { - my $schedule_interval = Coro::Event->timer (after => 1, interval => $SCHEDULE_INTERVAL); + my $schedule_interval = Coro::Event->timer (after => 1); while () { + $schedule_interval->interval ($SCHEDULE_INTERVAL); $schedule_interval->next; # this weird form of iteration over values is used because