1 | #!perl |
1 | #!perl |
|
|
2 | #CONVERSION: NONE |
2 | |
3 | |
3 | my %unit = ( |
4 | my %unit = ( |
4 | silver => 1, |
5 | silver => 1, |
5 | gold => 10, |
6 | gold => 10, |
6 | platina => 50, |
7 | platina => 50, |
… | |
… | |
134 | $who->message ("The shopkeeper says: Sorry, you can't sell money here.", cf::NDI_BROWN); |
135 | $who->message ("The shopkeeper says: Sorry, you can't sell money here.", cf::NDI_BROWN); |
135 | $what->insert_ob_in_ob ($who); |
136 | $what->insert_ob_in_ob ($who); |
136 | return 1; |
137 | return 1; |
137 | } |
138 | } |
138 | |
139 | |
139 | unless ($what->get_flag (cf::FLAG_IDENTIFIED)) { |
140 | if (!$what->get_flag (cf::FLAG_IDENTIFIED) && $what->need_identify) { |
140 | $who->message ("The shopkeeper says: Sorry, you can't sell unidentified stuff here.", cf::NDI_BROWN); |
141 | $who->message ("The shopkeeper says: Sorry, you can't sell unidentified stuff here.", cf::NDI_BROWN); |
141 | $what->insert_ob_in_ob ($who); |
142 | $what->insert_ob_in_ob ($who); |
142 | return 1; |
143 | return 1; |
143 | } |
144 | } |
144 | |
145 | |
145 | my $orig_value = $what->value; |
146 | my $orig_value = $what->value; |
146 | my $value = 0; |
147 | my $value = 0; |
147 | |
148 | |
148 | if ($name =~ m/\S/) { |
149 | if ($name =~ m/\S/) { |
149 | unless ($name =~ m/\d+\s*\S+/) { |
150 | unless ($name =~ m/\d+\s*\S+/) { |
150 | $who->message ("The shopkeeper says: Sorry, i don't recognize '$name' as currency. Please name your item like '10 royalty' or '10 platinum 2 silver'", cf::NDI_BROWN); |
151 | $who->message ("The shopkeeper says: Sorry, I don't recognize '$name' as currency. Please name your item like '10 royalty' or '10 platinum 2 silver'", cf::NDI_BROWN); |
151 | $what->insert_ob_in_ob ($who); |
152 | $what->insert_ob_in_ob ($who); |
152 | return 1; |
153 | return 1; |
153 | } |
154 | } |
154 | |
155 | |
155 | while ($name =~ s/^\s*(\d+)\s*(\S+)//) { |
156 | while ($name =~ s/^\s*(\d+)\s*(\S+)//) { |
… | |
… | |
163 | } |
164 | } |
164 | } else { |
165 | } else { |
165 | $value = $what->query_cost ($who, cf::F_SELL | cf::F_SHOP) / ($what->nrof || 1); |
166 | $value = $what->query_cost ($who, cf::F_SELL | cf::F_SHOP) / ($what->nrof || 1); |
166 | } |
167 | } |
167 | |
168 | |
|
|
169 | if ($value < 0) { |
|
|
170 | $what->insert_ob_in_ob ($who); |
|
|
171 | $who->message ("The shopkeeper says: You can't sell something for a negative value: $value", cf::NDI_BROWN); |
|
|
172 | return 1; |
|
|
173 | } |
|
|
174 | |
168 | my $fee = $value / 100; # 1% selling fee |
175 | my $fee = $value / 100; # 1% selling fee |
169 | |
176 | |
170 | unless ($who->pay_amount ($fee)) { |
177 | unless ($who->pay_amount ($fee)) { |
171 | $who->message ( |
178 | $who->message ( |
172 | "The shopkeeper says: You need " . cf::cost_string_from_value ($fee) . " to pay the 1% fee for this item", |
179 | "The shopkeeper says: You need " . cf::cost_string_from_value ($fee) . " to pay the 1% fee for this item", |
… | |
… | |
205 | |
212 | |
206 | $what->set_ob_key_value (ext_reseller_seller => $who->name); |
213 | $what->set_ob_key_value (ext_reseller_seller => $who->name); |
207 | $what->set_ob_key_value (ext_reseller_orig_value => $orig_value); |
214 | $what->set_ob_key_value (ext_reseller_orig_value => $orig_value); |
208 | # warn "SET SELLER ON " . $what->name . " + " . $what->{seller}->[0] . "\n"; |
215 | # warn "SET SELLER ON " . $what->name . " + " . $what->{seller}->[0] . "\n"; |
209 | $what->set_custom_name ( |
216 | $what->set_custom_name ( |
210 | $what->name . " (property of " . $who->name . ")" |
217 | $what->name . " (by " . $who->name . ")" |
211 | ); |
218 | ); |
212 | $what->set_flag (cf::FLAG_UNPAID, 1); |
219 | $what->set_flag (cf::FLAG_UNPAID, 1); |
213 | $what->insert_ob_in_map_at ($who->map, $who, cf::INS_BELOW_ORIGINATOR, $who->x, $who->y); |
220 | $what->insert_ob_in_map_at ($who->map, $who, cf::INS_BELOW_ORIGINATOR, $who->x, $who->y); |
214 | 1; |
221 | 1; |
215 | } |
222 | } |