server/ext/adjust_levels.ext

#! perl

# adjust levels of players at login time in case the experience table changed

cf::player->attach (
   on_login => sub {
      my ($pl) = @_;
      my $ob = $pl->ob;

      # TODO: only output messages when experience changed
#      $ob->message ("\nAdjusting levels to experience table.\n");

      $ob->player_lvl_adj;
      $ob->player_lvl_adj ($_) for grep $_->type == cf::SKILL, $ob->inv;

#      $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");
   },
);

Revision:	1.4
Committed:	Sun Oct 14 20:23:48 2007 UTC (16 years, 7 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_82, rel-2_81, rel-2_80, rel-3_1, rel-3_0, rel-2_6, rel-2_7, rel-2_4, rel-2_5, rel-2_3, rel-2_72, rel-2_73, rel-2_71, rel-2_76, rel-2_77, rel-2_74, rel-2_75, rel-2_54, rel-2_55, rel-2_56, rel-2_79, rel-2_52, rel-2_53, rel-2_32, rel-2_90, rel-2_92, rel-2_93, rel-2_78, rel-2_61, rel-2_43, rel-2_42, rel-2_41, HEAD
Changes since 1.3:	+3 -2 lines
Log Message:	* empty log message *
#	Content
1	#! perl
2
3	# adjust levels of players at login time in case the experience table changed
4
5	cf::player->attach (
6	on_login => sub {
7	my ($pl) = @_;
8	my $ob = $pl->ob;
9
10	# TODO: only output messages when experience changed
11	# $ob->message ("\nAdjusting levels to experience table.\n");
12
13	$ob->player_lvl_adj;
14	$ob->player_lvl_adj ($_) for grep $_->type == cf::SKILL, $ob->inv;
15
16	# $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");
17	},
18	);
19