inherit "/std/object";
#include <stdproperties.h>
#include <macros.h>
#include <filter_funs.h>
#include <pl.h>
#include <ss_types.h>
#include <wa_types.h>
#include <cmdparse.h>
#include <formulas.h>
#define TP this_player()
#define TO this_object()
#define NF(x) notify_fail(x)
#define TR this_room()
#define ENV environment(this_player())

void
create_object()
{
ustaw_nazwe(({"magiczne lustro","magicznego lustra","magicznemu lustrze",
              "magiczne lustro","magicznym lustrem","magicznym lustrze"}),
           ({"magiczne lustra","magiczne luster","magiczne lustrom",
             "magiczne lustra","magiczne lustrami","magiczne lustrach"}), PL_NIJAKI_NOS);

dodaj_nazwy(({"lustro","lustra","lustrze","lustro","lustrem","lustrze"}),
        ({"lustra","luster","lustrom","lustra","lustrami","lustrach"}),
        PL_NIJAKI_NOS);

set_long("To na co wlasnie spogladasz to z pozoru zwykle domowe lustro. "+
         "Jednak kunszt obramowania, a przedewszystkim tajemnicza mgla "+
         "tuz za jego szyba, podpowiadaja ci ze moze miec ono jakies magiczne "+
         "wlasciwosci. Na samym dole, przy ramie widzisz wyryta jakas inskrypcje.\n");

add_item("inskrypcje","Nagle, gdy spogladasz na dziwne runy umieszczone na ramie "+
                      "jakis tajemniczy glos przemawia do ciebie zza szyby. Glos cicho "+
                      "aczkolwiek przenikliwie mowi do ciebie:\n"+
                      "Pomoge ci znalesc kazdego w tym nedznym swiecie.\n"+
                      "Starczy ze stwierdzisz <znajdz> <kto>, a natychmiast "+
                      "odpowiem ci na to.\n");

dodaj_przym("tajemniczy","tajemniczy");
dodaj_przym("krysztalowy","krysztalowi");
}

int
whereis(string str)
{
object a;
if(!str || !find_player(str))
        {
        NF("Kto? Co?!\n");
        return 0;
        }
a=environment(find_player(str));
TP->catch_msg(str+" jest w "+a->query_short()+".\n");
return 1;
}
void
init()
{
::init();
add_action("whereis","znajdz");
}