ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cf.schmorp.de/maps/perl/adjust_levels.ext
Revision: 1.7
Committed: Fri Dec 15 19:11:46 2006 UTC (17 years, 7 months ago) by root
Branch: MAIN
CVS Tags: HEAD
Changes since 1.6: +0 -0 lines
State: FILE REMOVED
Log Message:
move .ext to server

File Contents

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