… | |
… | |
88 | my $exp; |
88 | my $exp; |
89 | |
89 | |
90 | if ($r <= $ch or $pl->flag (cf::FLAG_WIZ)) { |
90 | if ($r <= $ch or $pl->flag (cf::FLAG_WIZ)) { |
91 | $exp = $ring->projected_exp ($input_level); |
91 | $exp = $ring->projected_exp ($input_level); |
92 | |
92 | |
93 | $pl->change_exp ($exp, "jeweler"); |
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); |
98 | $ring->set_value ($value); |
99 | |
99 | |
100 | } else { |
100 | } else { |
… | |
… | |
103 | $make_status = "fail"; |
103 | $make_status = "fail"; |
104 | $exp = 0; |
104 | $exp = 0; |
105 | } |
105 | } |
106 | |
106 | |
107 | my $ring_ob = $ring->to_object; |
107 | my $ring_ob = $ring->to_object; |
|
|
108 | |
|
|
109 | $ring_ob->kv_set (ext_jeweler_maker => $pl->name); |
108 | |
110 | |
109 | { # some audit info calculation |
111 | { # some audit info calculation |
110 | my $sklvl = cf::exp_to_level ($sk->stats->exp); |
112 | my $sklvl = cf::exp_to_level ($sk->stats->exp); |
111 | |
113 | |
112 | my $make_info = sprintf |
114 | my $make_info = sprintf |