… | |
… | |
7 | my $WC_BASE_VALUE = 15 * 5000; # 15r |
7 | my $WC_BASE_VALUE = 15 * 5000; # 15r |
8 | my $AC_BASE_VALUE = 40 * 5000; # 40r |
8 | my $AC_BASE_VALUE = 40 * 5000; # 40r |
9 | my $DAM_BASE_VALUE = 5000; # 1r |
9 | my $DAM_BASE_VALUE = 5000; # 1r |
10 | my $MAGIC_BASE_VALUE = 100 * 5000; # 100r |
10 | my $MAGIC_BASE_VALUE = 100 * 5000; # 100r |
11 | |
11 | |
12 | # TODO: should be queryable from perl |
12 | my $MAX_LEVEL = cf::settings->max_level; |
13 | my $MAX_LEVEL = 115; |
13 | |
14 | # maximum values of additions at $MAX_LEVEL difficulty |
14 | # maximum values of additions at $MAX_LEVEL difficulty |
15 | my $MAX_ADD_WC = 15; |
15 | my $MAX_ADD_WC = 15; |
16 | my $MAX_ADD_AC = 5; # weapons should rather give wc than ac |
16 | my $MAX_ADD_AC = 5; # weapons should rather give wc than ac |
17 | my $MAX_ADD_DAM = 50; |
17 | my $MAX_ADD_DAM = 50; |
18 | my $MAX_ADD_MAGIC = 5; |
18 | my $MAX_ADD_MAGIC = 5; |