… | |
… | |
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); |