// Petrarch
// Merentha Lib 1.0
// <look>

string help() {
return "Syntax: look <object>\n\n\
This command allows you to examine your environment when no object is \
mentioned or allows you to look at an object, person or item in the \
same area as yourself when you also supply an optional argument.";
}

varargs int command(string str) {
object env,ob;
string desc;
  if(!env=environment(this_player())) {
    message("command", "You have no environment.", this_player());
    return 1;
  }
  if(!str) {
    message("command", env->describe_room(1), this_player());
    return 1;
  }
  if (ob=present(str, env)) {
    message("command", this_player()->query_cap_name()+" looks over "+ob->query_short()+".", env, this_player());
    message("command", ob->query_long(), this_player());
    return 1;
  }
  if (ob=present(str, this_player())) {
    message("command", this_player()->query_cap_name()+" inspects some of the items "+this_player()->query_he()+" is carrying.",env, this_player());
    message("command", ob->query_long(), this_player());
    return 1;
  }
  if (desc=env->query_item(str)) {
    message("command", this_player()->query_cap_name()+" looks over "+str+".", env, this_player());
    message("command", desc, this_player());
    return 1;
  }

  return notify_fail("You do not see that here.\n");
}