ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/jeweler.ext
(Generate patch)

Comparing deliantra/server/ext/jeweler.ext (file contents):
Revision 1.14 by elmex, Wed Oct 17 19:18:40 2007 UTC vs.
Revision 1.24 by root, Thu Apr 29 07:52:01 2010 UTC

1#! perl 1#! perl
2 2
3use Data::Dumper; 3use strict;
4
4use Jeweler; 5use Jeweler;
5use List::Util qw/max min sum/; 6use List::Util qw/max min sum/;
6use strict;
7 7
8sub ingred_alias { 8sub ingred_alias {
9 my ($ing) = @_; 9 my ($ing) = @_;
10 10
11 my %aliases = ( 11 my %aliases = (
… …
48 48
49 my @ring = $ingred->get_ring; 49 my @ring = $ingred->get_ring;
50 my @rings = map { Jeweler::Object->new (object => $_) } @ring; 50 my @rings = map { Jeweler::Object->new (object => $_) } @ring;
51 51
52 @rings >= 2 52 @rings >= 2
53 or return $pl->reply (undef, "You slap yourself, you forgot to put at least 2 jewels in!"); 53 or return $pl->message ("You slap yourself, you forgot to put at least 2 jewels in!");
54 54
55 my $input_level = 0; 55 my $input_level = 0;
56 my $value; 56 my $value;
57 for (@rings) { 57 for (@rings) {
58 $input_level = max ($_->power_to_level, $input_level); 58 $input_level = max ($_->power_to_level, $input_level);
… …
61 61
62 my $ring = shift @rings; 62 my $ring = shift @rings;
63 $ring->improve_by_ring (@rings); 63 $ring->improve_by_ring (@rings);
64 64
65 if ($do_analyze) { 65 if ($do_analyze) {
66 $pl->reply (undef, "You want to make a " . $ring->to_string . ": " . $ring->analyze ($sk, $pl, $input_level)); 66 $pl->message ("You want to make a " . $ring->to_string . ": " . $ring->analyze ($sk, $pl, $input_level));
67 $ring->wiz_analyze ($pl) 67 $ring->wiz_analyze ($pl)
68 if $pl->flag (cf::FLAG_WIZ); 68 if $pl->flag (cf::FLAG_WIZ);
69 return; 69 return;
70 } 70 }
71 71
… …
80 $ingred->remove ('ammys'); 80 $ingred->remove ('ammys');
81 } 81 }
82 82
83 my $ch = $ring->get_chance_perc ($sk); 83 my $ch = $ring->get_chance_perc ($sk);
84 my $succ = 0; 84 my $succ = 0;
85 my $r = cf::random_roll (0, 100, $pl, cf::PREFER_HIGH); 85 my $r = cf::random_roll (0, 100, $pl, cf::PREFER_LOW);
86 86
87 my $make_status; 87 my $make_status;
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", cf::SK_EXP_SKILL_ONLY); 93 $pl->change_exp ($exp, "jeweler");
94 $pl->message (
94 $pl->message ("You succeed and get $exp experience points."); 95 "You succeed and get " . int ($exp) . " experience points.");
95 $make_status = "succeeded"; 96 $make_status = "succeeded";
96 97
97 $ring->set_value ($value * 0.8); # 20% of the input values will vanish 98 $ring->set_value ($value);
98 99
99 } else { 100 } else {
100 $pl->message ("You fail!"); 101 $pl->message ("You fail!");
101 $ring->negate; 102 $ring->negate;
102 $make_status = "fail"; 103 $make_status = "fail";
… …
111 my $make_info = sprintf 112 my $make_info = sprintf
112 "JEWELER AUDIT: '%s' made '%s' (%s) (sk lvl %d, ring lvl %d, got %d exp): %s", 113 "JEWELER AUDIT: '%s' made '%s' (%s) (sk lvl %d, ring lvl %d, got %d exp): %s",
113 $pl->name, $ring->to_string, $ring_ob->uuid, $sklvl, 114 $pl->name, $ring->to_string, $ring_ob->uuid, $sklvl,
114 $ring->power_to_level, $exp, $make_status; 115 $ring->power_to_level, $exp, $make_status;
115 116
117 cf::debug "$make_info\n"
116 warn "$make_info\n" if $make_status eq 'succeeded'; 118 if $make_status eq 'succeeded';
117 } 119 }
118 120
119 $chdl->put ($ring_ob); 121 $chdl->put ($ring_ob);
120} 122}
121 123
… …
127 return 129 return
128 } elsif ($@ =~ /unidentified/) { 130 } elsif ($@ =~ /unidentified/) {
129 $pl->message ("There are unidentified items in the workbench, identify them before you do anything."). 131 $pl->message ("There are unidentified items in the workbench, identify them before you do anything.").
130 return 132 return
131 } elsif ($@) { 133 } elsif ($@) {
132 warn "error in jeweler ingredient extraction: $@"; 134 cf::error "error in jeweler ingredient extraction: $@";
133 return; 135 return;
134 } 136 }
135 $ingred; 137 $ingred;
136} 138}
137 139
… …
149 if ($ringo->has_resist ($1)) { 151 if ($ringo->has_resist ($1)) {
150 $self->map->trigger ( 152 $self->map->trigger (
151 $cfg->{connection}, 153 $cfg->{connection},
152 $cfg->{state} 154 $cfg->{state}
153 ); 155 );
156 $obj->decrease (1);
154 cf::override; 157 cf::override;
155 } 158 }
156 } 159 }
157 } 160 }
158 } 161 }
… …
193 unless ($Jeweler::CFG->{conversions}->{lc $1}) { 196 unless ($Jeweler::CFG->{conversions}->{lc $1}) {
194 $pl->message ("You don't know how to make '$1', is does such a thing even exist?"); 197 $pl->message ("You don't know how to make '$1', is does such a thing even exist?");
195 return 198 return
196 } 199 }
197 200
198 Jeweler::simple_converter ($player, $ingred, $chdl, $1); 201 Jeweler::simple_converter (
202 $player, $ingred, $chdl, $1,
203 cf::exp_to_level ($sk->stats->exp));
199 204
200 } elsif ($msg =~ m/^\s*merge\s*analy[sz]e\s*$/i) { 205 } elsif ($msg =~ m/^\s*merge\s*analy[sz]e\s*$/i) {
201 merge ($chdl, $sk, $pl, 1); 206 merge ($chdl, $sk, $pl, 1);
202 207
203 } elsif ($msg =~ m/^\s*merge\s*$/i) { 208 } elsif ($msg =~ m/^\s*merge\s*$/i) {
… …
265 } else { 270 } else {
266 $pl->message ("You've got no idea what you are planning to do!"); 271 $pl->message ("You've got no idea what you are planning to do!");
267 } 272 }
268 } 273 }
269 }; 274 };
270 $@ and warn "ERROR: $@\n"; 275 $@ and cf::error "$@\n";
271 } 276 }
272); 277);
273 278
274Jeweler::read_config "$DATADIR/jeweler.yaml"; 279Jeweler::load_config;
275 280

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines