1 |
#! perl |
2 |
|
3 |
# adjust levels of players at login time in case the experience table changed |
4 |
|
5 |
sub on_player_load { |
6 |
my ($event) = @_; |
7 |
my $path = $event->{message}; |
8 |
my $ob = $event->{who}; |
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 |
0 |
17 |
} |
18 |
|