| … | |
… | |
| 183 | create_object ($pr->[1], $who->map, $x, $y, $pr->[2], $who->name, $arguments); |
183 | create_object ($pr->[1], $who->map, $x, $y, $pr->[2], $who->name, $arguments); |
| 184 | $who->reply ($npc, "Here is your $cmd"); |
184 | $who->reply ($npc, "Here is your $cmd"); |
| 185 | } |
185 | } |
| 186 | |
186 | |
| 187 | } elsif ($cmd eq 'receive') { |
187 | } elsif ($cmd eq 'receive') { |
| 188 | my $storage = cf::map::get_map ("/planes/IPO_storage"); |
188 | my $storage = cf::map::find ("/planes/IPO_storage"); |
| 189 | unless ($storage) { |
189 | unless ($storage) { |
| 190 | $who->reply ($npc, "Sorry, our package delivery service is currently in strike. Please come back later."); |
190 | $who->reply ($npc, "Sorry, our package delivery service is currently in strike. Please come back later."); |
| 191 | return 1; |
191 | return 1; |
| 192 | } |
192 | } |
| 193 | |
193 | |
| … | |
… | |
| 210 | unless ($arguments =~ /^\S+$/) { |
210 | unless ($arguments =~ /^\S+$/) { |
| 211 | $who->reply ($npc, "Send to who?"); |
211 | $who->reply ($npc, "Send to who?"); |
| 212 | return 1; |
212 | return 1; |
| 213 | } |
213 | } |
| 214 | |
214 | |
| 215 | my $storage = cf::map::get_map ("/planes/IPO_storage"); |
215 | my $storage = cf::map::find ("/planes/IPO_storage"); |
| 216 | unless ($storage) { |
216 | unless ($storage) { |
| 217 | $who->reply ($npc, "Sorry, our package delivery service is currently in strike. Please come back later."); |
217 | $who->reply ($npc, "Sorry, our package delivery service is currently in strike. Please come back later."); |
| 218 | return 1; |
218 | return 1; |
| 219 | } |
219 | } |
| 220 | |
220 | |
