ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/bonus.ext
(Generate patch)

Comparing deliantra/server/ext/bonus.ext (file contents):
Revision 1.2 by root, Thu Dec 21 22:41:34 2006 UTC vs.
Revision 1.5 by elmex, Tue Feb 6 09:36:01 2007 UTC

1#!perl 1#!perl
2use List::Util qw/min/; 2use List::Util qw/min/;
3 3
4$cf::CFG{ext_bonus}
5 or return;
6
7my $WC_BASE_VALUE = 15 * 5000; # 15r 4my $WC_BASE_VALUE = 15 * 5000; # 15r
8my $AC_BASE_VALUE = 40 * 5000; # 40r 5my $AC_BASE_VALUE = 40 * 5000; # 40r
9my $DAM_BASE_VALUE = 200; # 25p 6my $DAM_BASE_VALUE = 200; # 4p
10my $MAGIC_BASE_VALUE = 100 * 5000; # 100r 7my $MAGIC_BASE_VALUE = 100 * 5000; # 100r
11 8
12my $MAX_LEVEL = cf::settings->max_level; 9my $MAX_LEVEL = cf::settings->max_level;
13 10
14# maximum values of additions at $MAX_LEVEL difficulty 11# maximum values of additions at $MAX_LEVEL difficulty
15my $MAX_ADD_WC = 15; 12my $MAX_ADD_WC = 10;
16my $MAX_ADD_AC = 5; # weapons should rather give wc than ac 13my $MAX_ADD_AC = 5; # weapons should rather give wc than ac
17my $MAX_ADD_DAM = 50; 14my $MAX_ADD_DAM = 60;
18my $MAX_ADD_MAGIC = 5; 15my $MAX_ADD_MAGIC = 5;
19 16
20# TODO: should become part of some stdlib 17# TODO: should become part of some stdlib
21sub rand_range($$) { 18sub rand_range($$) {
22 $_[0] + ($_[1] - $_[0]) * rand 19 $_[0] + ($_[1] - $_[0]) * rand
… …
34 31
35 my $magic_diff = $weapon->magic - $clone->magic; 32 my $magic_diff = $weapon->magic - $clone->magic;
36 33
37 if ($wc_diff > 0) { $value += $WC_BASE_VALUE * 1.5 * $wc_diff * rand_range .5, 1 } 34 if ($wc_diff > 0) { $value += $WC_BASE_VALUE * 1.5 * $wc_diff * rand_range .5, 1 }
38 if ($ac_diff > 0) { $value += $AC_BASE_VALUE * 1.5 * $ac_diff * rand_range .5, 1 } 35 if ($ac_diff > 0) { $value += $AC_BASE_VALUE * 1.5 * $ac_diff * rand_range .5, 1 }
39 if ($dam_diff > 0) { $value += $DAM_BASE_VALUE * ($dam_diff ** 2.4) * rand_range .5, 1 } 36 if ($dam_diff > 0) { $value += $DAM_BASE_VALUE * ($dam_diff ** 2.2) * rand_range .7, 1 }
40 if ($magic_diff > 0) { $value += $MAGIC_BASE_VALUE * 1.5 * $magic_diff * rand_range .5, 1 } 37 if ($magic_diff > 0) { $value += $MAGIC_BASE_VALUE * 1.5 * $magic_diff * rand_range .5, 1 }
41 38
42 warn sprintf "WC DIFF: %3d, %3d, %3d, %3d | %10d = %10.3f r\n", 39 #warn sprintf "WC DIFF: %3d, %3d, %3d, %3d | %10d = %10.3f r\n",
43 $dam_diff, $wc_diff, $ac_diff, $magic_diff, $value, $value / 5000 40 # $dam_diff, $wc_diff, $ac_diff, $magic_diff, $value, $value / 5000
44 if $cf::CFG{ext_bonus_debug}; 41 # if $cf::CFG{ext_bonus_debug};
45 42
46 $weapon->value ($value); 43 $weapon->value ($value);
47} 44}
48 45
49cf::object->attach ( 46cf::object->attach (
… …
52 my ($item, $creator, $diff, $max_magic, $flags) = @_; 49 my ($item, $creator, $diff, $max_magic, $flags) = @_;
53 return if $flags || !$creator; 50 return if $flags || !$creator;
54 51
55 $diff /= $MAX_LEVEL; 52 $diff /= $MAX_LEVEL;
56 53
57 $item->stats->wc ($item->stats->wc + int $MAX_ADD_WC * (1 + rand) * $diff * rand_range .5, 1) if rand() <= 0.35; 54 $item->stats->wc ($item->stats->wc + int $MAX_ADD_WC * (1 + rand) * $diff * rand_range .5, 1) if rand() <= 0.2;
58 $item->stats->ac ($item->stats->ac + int $MAX_ADD_AC * (1 + rand) * $diff * rand_range .5, 1) if rand() <= 0.2; 55 $item->stats->ac ($item->stats->ac + int $MAX_ADD_AC * (1 + rand) * $diff * rand_range .5, 1) if rand() <= 0.15;
59 $item->stats->dam ($item->stats->dam + int $MAX_ADD_DAM * (1 + rand) * $diff * rand_range .5, 1) if rand() <= 0.7; 56 $item->stats->dam ($item->stats->dam + int $MAX_ADD_DAM * (1 + rand) * $diff * rand_range .5, 1) if rand() <= 0.85;
60 $item->magic ($item->magic + int $MAX_ADD_MAGIC * $diff * rand_range .5, 1) if rand() <= 0.2; 57 $item->magic ($item->magic + int $MAX_ADD_MAGIC * $diff * rand_range .5, 1) if rand() <= 0.1;
61 58
62 determine_weapon_value $item; 59 determine_weapon_value $item;
63 60
64 cf::override; 61 cf::override;
65 }, 62 },

Diff Legend

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