| … | |
… | |
| 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 | } |
| … | |
… | |
| 290 | }; |
290 | }; |
| 291 | $@ and warn "ERROR: $@\n"; |
291 | $@ and warn "ERROR: $@\n"; |
| 292 | } |
292 | } |
| 293 | ); |
293 | ); |
| 294 | |
294 | |
| 295 | Jeweler::read_config (cf::datadir . '/jeweler.yaml'); |
295 | Jeweler::read_config "$DATADIR/jeweler.yaml"; |
|
|
296 | |
