… | |
… | |
93 | $pl->change_exp ($exp, "jeweler", cf::SK_EXP_SKILL_ONLY); |
93 | $pl->change_exp ($exp, "jeweler", cf::SK_EXP_SKILL_ONLY); |
94 | $pl->message ( |
94 | $pl->message ( |
95 | "You succeed and get " . int ($exp) . " experience points."); |
95 | "You succeed and get " . int ($exp) . " experience points."); |
96 | $make_status = "succeeded"; |
96 | $make_status = "succeeded"; |
97 | |
97 | |
98 | $ring->set_value ($value * 0.8); # 20% of the input values will vanish |
98 | $ring->set_value ($value); |
99 | |
99 | |
100 | } else { |
100 | } else { |
101 | $pl->message ("You fail!"); |
101 | $pl->message ("You fail!"); |
102 | $ring->negate; |
102 | $ring->negate; |
103 | $make_status = "fail"; |
103 | $make_status = "fail"; |