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