#! perl

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

cf::player->attach (
   on_login => sub {
      my ($pl) = @_;
      my $ob = $pl->ob;

      $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");
   },
);