| 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 |
|
