| … | |
… | |
| 108 | |
108 | |
| 109 | warn "Object " . $item->name . " bought by " . $who->name . " on map " |
109 | warn "Object " . $item->name . " bought by " . $who->name . " on map " |
| 110 | . $who->map->path . " for $value silver has no seller set\n" |
110 | . $who->map->path . " for $value silver has no seller set\n" |
| 111 | if $item->get_ob_key_value ('ext_reseller_seller') eq ''; |
111 | if $item->get_ob_key_value ('ext_reseller_seller') eq ''; |
| 112 | |
112 | |
| 113 | $unpaid_items->{$item->uuid} = $value; |
113 | $unpaid_items->{$item} = [$value, $item]; |
| 114 | } |
114 | } |
| 115 | |
115 | |
| 116 | $self->apply_shop_mat ($who); |
116 | $self->apply_shop_mat ($who); |
| 117 | |
117 | |
| 118 | for my $item (find_traded ($who)) { |
118 | for my $item (find_traded ($who)) { |
| 119 | next if $item->flag (cf::FLAG_UNPAID); |
119 | next if $item->flag (cf::FLAG_UNPAID); |
| 120 | if (my $value = $unpaid_items->{$item->uuid}) { |
120 | if (my $value = $unpaid_items->{$item}[0]) { |
| 121 | $sells->{$item->get_ob_key_value ('ext_reseller_seller')}->{$item->name} += $value; |
121 | $sells->{$item->get_ob_key_value ('ext_reseller_seller')}->{$item->name} += $value; |
| 122 | } |
122 | } |
| 123 | |
123 | |
| 124 | $item->value ($item->get_ob_key_value ('ext_reseller_orig_value')); |
124 | $item->value ($item->get_ob_key_value ('ext_reseller_orig_value')); |
| 125 | $item->set_ob_key_value (ext_reseller_seller => ''); |
125 | $item->set_ob_key_value (ext_reseller_seller => ''); |
