… | |
… | |
104 | $exp = max ($exp, 0); |
104 | $exp = max ($exp, 0); |
105 | |
105 | |
106 | } else { |
106 | } else { |
107 | # the experience bonus here is to make level 1 rings give you at least |
107 | # the experience bonus here is to make level 1 rings give you at least |
108 | # 100 exp points when making them. This also makes leveling in the |
108 | # 100 exp points when making them. This also makes leveling in the |
109 | # first few levels a bit easier. (Propably until around level 5-6). |
109 | # first few levels a bit easier. (probably until around level 5-6). |
110 | my $expbonus = cf::level_to_min_exp (2) / 10; |
110 | my $expbonus = cf::level_to_min_exp (2) / 10; |
111 | # this bonus should also only be given for _new_ rings and not for merged |
111 | # this bonus should also only be given for _new_ rings and not for merged |
112 | # ones - to prevent infinite exp making. |
112 | # ones - to prevent infinite exp making. |
113 | $exp += $expbonus; |
113 | $exp += $expbonus; |
114 | } |
114 | } |