| … | |
… | |
| 145 | my $orig_value = $what->value; |
145 | my $orig_value = $what->value; |
| 146 | my $value = 0; |
146 | my $value = 0; |
| 147 | |
147 | |
| 148 | if ($name =~ m/\S/) { |
148 | if ($name =~ m/\S/) { |
| 149 | unless ($name =~ m/\d+\s*\S+/) { |
149 | 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); |
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 | $what->insert_ob_in_ob ($who); |
151 | $what->insert_ob_in_ob ($who); |
| 152 | return 1; |
152 | return 1; |
| 153 | } |
153 | } |
| 154 | |
154 | |
| 155 | while ($name =~ s/^\s*(\d+)\s*(\S+)//) { |
155 | while ($name =~ s/^\s*(\d+)\s*(\S+)//) { |
