ds2.1.1/bin/
ds2.1.1/extra/wolfpaw/
ds2.1.1/lib/cmds/admins/
ds2.1.1/lib/cmds/common/
ds2.1.1/lib/cmds/creators/include/
ds2.1.1/lib/cmds/creators/include/SCCS/
ds2.1.1/lib/daemon/services/
ds2.1.1/lib/doc/
ds2.1.1/lib/doc/efun/all/
ds2.1.1/lib/doc/efun/arrays/
ds2.1.1/lib/doc/efun/buffers/
ds2.1.1/lib/doc/efun/compile/
ds2.1.1/lib/doc/efun/floats/
ds2.1.1/lib/doc/efun/functions/
ds2.1.1/lib/doc/efun/general/
ds2.1.1/lib/doc/efun/mixed/
ds2.1.1/lib/doc/efun/numbers/
ds2.1.1/lib/doc/efun/parsing/
ds2.1.1/lib/doc/faq/
ds2.1.1/lib/doc/hbook/
ds2.1.1/lib/doc/help/classes/
ds2.1.1/lib/doc/lpc/basic/
ds2.1.1/lib/doc/lpc/concepts/
ds2.1.1/lib/doc/lpc/constructs/
ds2.1.1/lib/doc/lpc/etc/
ds2.1.1/lib/doc/lpc/intermediate/
ds2.1.1/lib/doc/lpc/types/
ds2.1.1/lib/doc/misc/
ds2.1.1/lib/doc/old/
ds2.1.1/lib/domains/Ylsrim/
ds2.1.1/lib/domains/Ylsrim/adm/
ds2.1.1/lib/domains/Ylsrim/armor/
ds2.1.1/lib/domains/Ylsrim/broken/
ds2.1.1/lib/domains/Ylsrim/fish/
ds2.1.1/lib/domains/Ylsrim/meal/
ds2.1.1/lib/domains/Ylsrim/npc/
ds2.1.1/lib/domains/Ylsrim/obj/
ds2.1.1/lib/domains/Ylsrim/virtual/
ds2.1.1/lib/domains/Ylsrim/weapon/
ds2.1.1/lib/domains/campus/adm/
ds2.1.1/lib/domains/campus/etc/
ds2.1.1/lib/domains/campus/meals/
ds2.1.1/lib/domains/campus/npc/
ds2.1.1/lib/domains/campus/txt/ai/charles/
ds2.1.1/lib/domains/campus/txt/ai/charles/bak2/
ds2.1.1/lib/domains/campus/txt/ai/charles/bak2/bak1/
ds2.1.1/lib/domains/campus/txt/ai/charly/
ds2.1.1/lib/domains/campus/txt/ai/charly/bak/
ds2.1.1/lib/domains/campus/txt/jenny/
ds2.1.1/lib/domains/default/creator/
ds2.1.1/lib/domains/default/doors/
ds2.1.1/lib/domains/default/etc/
ds2.1.1/lib/domains/default/weap/
ds2.1.1/lib/domains/town/doors/
ds2.1.1/lib/domains/town/txt/
ds2.1.1/lib/domains/town/txt/shame/
ds2.1.1/lib/domains/town/virtual/
ds2.1.1/lib/lib/comp/
ds2.1.1/lib/lib/lvs/
ds2.1.1/lib/lib/user/
ds2.1.1/lib/lib/virtual/
ds2.1.1/lib/log/
ds2.1.1/lib/obj/book_source/
ds2.1.1/lib/obj/include/
ds2.1.1/lib/realms/template/
ds2.1.1/lib/realms/template/area/armor/
ds2.1.1/lib/realms/template/area/npc/
ds2.1.1/lib/realms/template/area/obj/
ds2.1.1/lib/realms/template/area/room/
ds2.1.1/lib/realms/template/area/weap/
ds2.1.1/lib/realms/template/bak/
ds2.1.1/lib/realms/template/cmds/
ds2.1.1/lib/save/kills/o/
ds2.1.1/lib/secure/cfg/
ds2.1.1/lib/secure/cfg/classes/
ds2.1.1/lib/secure/cfg/races/SCCS/
ds2.1.1/lib/secure/cmds/creators/include/
ds2.1.1/lib/secure/cmds/players/
ds2.1.1/lib/secure/cmds/players/include/
ds2.1.1/lib/secure/daemon/include/
ds2.1.1/lib/secure/lib/
ds2.1.1/lib/secure/lib/include/
ds2.1.1/lib/secure/lib/net/
ds2.1.1/lib/secure/lib/net/include/
ds2.1.1/lib/secure/lib/std/
ds2.1.1/lib/secure/modules/
ds2.1.1/lib/secure/npc/
ds2.1.1/lib/secure/obj/include/
ds2.1.1/lib/secure/room/
ds2.1.1/lib/secure/save/
ds2.1.1/lib/secure/save/boards/
ds2.1.1/lib/secure/verbs/creators/
ds2.1.1/lib/shadows/
ds2.1.1/lib/spells/
ds2.1.1/lib/verbs/admins/include/
ds2.1.1/lib/verbs/common/
ds2.1.1/lib/verbs/common/include/
ds2.1.1/lib/verbs/creators/
ds2.1.1/lib/verbs/creators/include/
ds2.1.1/lib/verbs/players/include/SCCS/
ds2.1.1/lib/verbs/rooms/
ds2.1.1/lib/verbs/rooms/include/
ds2.1.1/lib/www/errors/
ds2.1.1/lib/www/images/
ds2.1.1/v22.2b14/
ds2.1.1/v22.2b14/ChangeLog.old/
ds2.1.1/v22.2b14/Win32/
ds2.1.1/v22.2b14/compat/
ds2.1.1/v22.2b14/compat/simuls/
ds2.1.1/v22.2b14/include/
ds2.1.1/v22.2b14/testsuite/
ds2.1.1/v22.2b14/testsuite/clone/
ds2.1.1/v22.2b14/testsuite/command/
ds2.1.1/v22.2b14/testsuite/data/
ds2.1.1/v22.2b14/testsuite/etc/
ds2.1.1/v22.2b14/testsuite/include/
ds2.1.1/v22.2b14/testsuite/inherit/
ds2.1.1/v22.2b14/testsuite/inherit/master/
ds2.1.1/v22.2b14/testsuite/log/
ds2.1.1/v22.2b14/testsuite/single/
ds2.1.1/v22.2b14/testsuite/single/tests/compiler/
ds2.1.1/v22.2b14/testsuite/single/tests/efuns/
ds2.1.1/v22.2b14/testsuite/single/tests/operators/
ds2.1.1/v22.2b14/testsuite/u/
ds2.1.1/v22.2b14/tmp/
ds2.1.1/win32/
/*    /verbs/items/look.c
 *    from the Dead Souls Object Library
 *    look STR
 *    look at ITEM
 *    created by Descartes of Borg 951218
 *    Version: @(#) look.c 1.6@(#)
 *    Last modified: 96/11/14
 */

#include <lib.h>
#include <daemons.h>
#include "include/look.h"

inherit LIB_VERB;

static void create() {
    verb::create();
    SetVerb("look");
    SetRules("", "STR", "OBJ", "at STR", "at OBJ", "in OBJ", "inside OBJ",
      "at OBJ:v in OBJ", "at OBJ:v inside OBJ", "at STR on OBJ");
    SetErrorMessage("Look at or in something?");
    SetHelp("Syntax: <look>\n"
      "        <look at ITEM>\n"
      "        <look in CONTAINER>\n"
      "        <look at ITEM in CONTAINER>\n"
      "        <look at ITEM on ITEM>\n\n"
      "Without any arguments, this command allows you to see a "
      "description of the area about you, including what other "
      "things are there with you.\n\n"
      "If you look at something, then you get a detailed description "
      "of the thing at which you are looking.  You should be able to "
      "look at any thing you see mentioned in the room when you use the "
      "look command without arguments.  Anything you cannot look at is "
      "considered a bug.\n\n"
      "See also: peer");  
}

mixed can_look() {
    if( !environment(this_player()) ) return "You are nowhere.";
    else return check_light();
}

mixed can_look_str(string str, string verb) {
    return can_look_at_str(str, verb);
}

mixed can_look_obj(string verb, string id) {
    return can_look_at_obj(verb, id);
}

mixed can_look_at_str(string str, string verb) {

    if( !environment(this_player()) ) return "You are nowhere.";
    if( SEASONS_D->GetLong(str) == 0 ) {
	return "There is no " + remove_article(str) + " here.";
    }
    else {
	return check_light();
    }
}
mixed can_look_at_obj(string verb, string id) {
    return check_light();
}

mixed can_look_in_obj(string verb, string id) {
    return can_look_inside_obj(verb, id);
}

mixed can_look_inside_obj(string verb, string id) {
    return can_look();
}

mixed can_look_at_obj_word_obj(string verb, string targ, string store) {
    return can_look();
}

mixed can_look_at_str_on_obj(string targ, string verb, string id1, string id2){
    return can_look();
}

mixed do_look() {
    if(!this_player()->GetInvis()) 
	environment(this_player())->eventPrint((string)this_player()->GetName() +
	  " looks around.", this_player());
    this_player()->eventDescribeEnvironment(0);
    return 1;
}

varargs mixed do_look_obj(object ob, mixed *args...) {
    return do_look_at_obj(ob, args...);
}

mixed do_look_str(string str) {
    return do_look_at_str(str);
}

varargs mixed do_look_at_obj(object ob, mixed arg) {
    if(ob->GetInvis() && !archp(this_player()) && 
      base_name(ob) != LIB_DUMMY && !inherits(LIB_DUMMY,ob) ){
	write("There is no "+arg+" here.");
	return 1;
    }
    return ob->eventShow(this_player());
}

mixed do_look_at_str(string str) {
    return (mixed)SEASONS_D->eventShow(this_player(),
      remove_article(lower_case(str)));
}

mixed do_look_in_obj(object ob) { return do_look_inside_obj(ob); }

mixed do_look_inside_obj(object ob) {
    return (mixed)ob->eventShowInterior(this_player());
}

mixed do_look_at_obj_word_obj(object target, object storage) {
    return (mixed)target->eventShow(this_player());
}

varargs mixed do_look_at_str_on_obj(string id, object ob) {
    return (mixed)ob->eventShow(this_player(), remove_article(lower_case(id)));
}