| … | |
… | |
| 211 | ); |
211 | ); |
| 212 | return cf::override; |
212 | return cf::override; |
| 213 | } |
213 | } |
| 214 | } |
214 | } |
| 215 | } else { |
215 | } else { |
| 216 | # commented out the following line because too many just use the |
216 | # commented out the following line because too many just use the |
| 217 | # reseller shop as dumpyard: |
217 | # reseller shop as dumpyard: |
| 218 | # $value = $what->query_cost ($who, cf::F_SELL | cf::F_SHOP) / ($what->nrof || 1); |
218 | # $value = $what->query_cost ($who, cf::F_SELL | cf::F_SHOP) / ($what->nrof || 1); |
| 219 | give_back_with_message ($who, $what, |
219 | give_back_with_message ($who, $what, |
| 220 | "Sorry, you can't just sell stuff without assigning a price to it! " |
220 | "Sorry, you can't just sell stuff without assigning a price to it! " |
| 221 | . "Please name your item like '17 platinum' or '10 gold 8 silver' " |
221 | . "Please name your item like '17 platinum' or '10 gold 8 silver' " |
| … | |
… | |
| 266 | |
266 | |
| 267 | # my $cost = $what->query_cost ($who, cf::F_BUY | cf::F_SHOP) / $what->nrof; |
267 | # my $cost = $what->query_cost ($who, cf::F_BUY | cf::F_SHOP) / $what->nrof; |
| 268 | # warn "COSTS NOW: $cost\n"; |
268 | # warn "COSTS NOW: $cost\n"; |
| 269 | |
269 | |
| 270 | $who->message ( |
270 | $who->message ( |
| 271 | "The shopkeeper says: Ok, I marked " |
271 | "The shopkeeper says: Ok, I marked " |
| 272 | . ($what->nrof || 1) . " " . $what->name . " to be sold for at least " |
272 | . ($what->nrof || 1) . " " . $what->name . " to be sold for at least " |
| 273 | . cf::cost_string_from_value ($value) |
273 | . cf::cost_string_from_value ($value) |
| 274 | . ($what->nrof > 1 ? " each" : ""), cf::NDI_BROWN |
274 | . ($what->nrof > 1 ? " each" : ""), cf::NDI_BROWN |
| 275 | ); |
275 | ); |
| 276 | |
276 | |
| 277 | $what->kv_set (ext_reseller_seller => $who->name); |
277 | $what->kv_set (ext_reseller_seller => $who->name); |
