353
@verb #8438:"@claim" any none none rdo #8438
@program #8438:"@claim" any none none
set_task_perms(player)
if (!args)
  return player:tell("Syntax: ", verb, " [OBJ]")
endif
OBJ = $string_utils:match_object(dobjstr, $recycler)
if (toint(OBJ) < 1000 && !player:isa($guardian))
  return player:tell("Only guardians and wizards may request objects with a value less then 1000.")
endif
if (!valid(OBJ))
  return player:tell(OBJ, " isn't a valid object.")
endif
if (OBJ.location != $recycler && !OBJ:isa($garbage))
  return player:tell(OBJ, " isn't a valid garbage object.")
endif
$recycler:request(OBJ, $thing)
OBJ:set_name(tostr("Object ", OBJ))
OBJ.description = tostr("Object ", OBJ)
OBJ:moveto(`player.storage ! ANY => player')
return player:tell(OBJ, " created.")
"Last modified by Dax (#789) on Tue May  3 14:11:59 2005 MDT."
.

0