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