/*
 * make.c
 *
 * SFUN: make an object and set its environment
 *
 * (C) Frank Schmidt, Jesus@NorseMUD
 *
 */

static varargs object make(string thing, mixed dest) {
  object ob;
  string name;

#ifdef MUDOS_USER_ID
  name = getuid();
#else
  name = creator_file(object_name(this_object()));
#endif
  
  if (thing[0] != '.' && thing[0] != '~' && thing[0] != '/')
    thing = "~/" + thing;

  thing = parse_path(thing, directory_name(this_object()), name);
  ob = clone_object(thing);

#ifdef MUDOS_INVENTORY
  if (!dest)
    dest = this_object();
#ifdef MUDOS_LIVING
  if (living(ob))
    ob->move_player(dest);
  else
#endif
    ob->move(dest);
#endif

  return ob;
}