ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/maps/perl/adjust_levels.ext
(Generate patch)

Comparing deliantra/maps/perl/adjust_levels.ext (file contents):
Revision 1.3 by root, Sat Mar 25 04:47:56 2006 UTC vs.
Revision 1.4 by root, Tue Mar 28 16:08:19 2006 UTC

1#! perl 1#! perl
2 2
3# adjust levels of players at login time in case the experience table changed 3# adjust levels of players at login time in case the experience table changed
4 4
5sub on_player_load { 5sub on_player_load {
6 my ($event) = @_; 6 my ($ob, $path) = @_;
7 my $path = $event->{message};
8 my $ob = $event->{who};
9 7
10 $ob->message ("\nAdjusting levels to experience table.\n"); 8 $ob->message ("\nAdjusting levels to experience table.\n");
11 9
12 $ob->player_lvl_adj; 10 $ob->player_lvl_adj;
13 $ob->player_lvl_adj ($_) for grep $_->type == cf::SKILL, $ob->inv; 11 $ob->player_lvl_adj ($_) for grep $_->type == cf::SKILL, $ob->inv;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines