#! perl

# adjust levels of players at login time in case the experience table changed

sub on_player_load {
   my ($ob, $path) = @_;

   $ob->message ("\nAdjusting levels to experience table.\n");

   $ob->player_lvl_adj;
   $ob->player_lvl_adj ($_) for grep $_->type == cf::SKILL, $ob->inv;

   $ob->message ("\nDone adjusting levels to experience table.\nIf you got a lot of level changes, then this is because the server changed its experience table.\nDo NOT panic!\n");
}