@verb #1400:"replicate" this none this rxdo #5839
@program #1400:"replicate" this none this
{names, ?myplayer = player, ?controller = caller, ?food = $food} = args
typeof(names) == $LIST || raise(E_INVARG)
this:_kick(this)
while (length(this.items) >= this.limit)
  mmm_food = this.items[1]
  this.items = setremove(this.items, mmm_food)
  mmm_food:sub_announce($msg:substitute(mmm_food, "The Health Inspector arrives and, after inspecting %t, confiscates %t~o for violation of health regulations."))
  recycle(mmm_food)
endwhile
controller:emote(" emits a humming noise.")
"suspend(1);"
try
  new = create(food, $code_utils:verb_perms())
  this.items = setadd(this.items, new)
  new:set_name(names[1])
  new:set_aliases(names)
  new.requestee = myplayer
  new:moveto(controller)
except (E_QUOTA)
  controller:say("Sorry, there has been a replicator malfunction.")
  new = #-1
endtry
return new
"Last modified by Dax (#789) on Tue May  3 13:55:54 2005 MDT."
.