1 |
#! perl |
2 |
|
3 |
# adjust levels of players at login time in case the experience table changed |
4 |
|
5 |
cf::attach_to_players |
6 |
on_load => sub { |
7 |
my ($pl) = @_; |
8 |
my $ob = $pl->ob; |
9 |
|
10 |
$ob->message ("\nAdjusting levels to experience table.\n"); |
11 |
|
12 |
$ob->player_lvl_adj; |
13 |
$ob->player_lvl_adj ($_) for grep $_->type == cf::SKILL, $ob->inv; |
14 |
|
15 |
$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"); |
16 |
}, |
17 |
; |
18 |
|