1 | #!perl | 1 | #! perl |
---|---|---|---|
2 | |||
2 | use List::Util qw/min/; | 3 | use List::Util qw/min/; |
3 | 4 | ||
4 | my $WC_BASE_VALUE = 15 * 5000; # 15r | 5 | my $WC_BASE_VALUE = 15 * 5000; # 15r |
5 | my $AC_BASE_VALUE = 40 * 5000; # 40r | 6 | my $AC_BASE_VALUE = 40 * 5000; # 40r |
6 | my $DAM_BASE_VALUE = 200; # 4p | 7 | my $DAM_BASE_VALUE = 200; # 4p |
… | … | ||
59 | determine_weapon_value $item; | 60 | determine_weapon_value $item; |
60 | 61 | ||
61 | cf::override; | 62 | cf::override; |
62 | }, | 63 | }, |
63 | ); | 64 | ); |
65 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |