inherit "/std/object";

#include <pl.h>
#include <stdproperties.h>

#define TO this_object()
#define TP this_player()

void
create_object()
{
    ustaw_nazwe(({"roza", "rozy", "rozy", "roze", "roza", "rozy"}),
		({"roze", "roz", "rozom", "roze", "rozami", "rozach"}),
		PL_ZENSKI);
    dodaj_przym("czerwony", "czerwoni");
    dodaj_przym("przepiekny", "przepiekni");
    set_long("Roza.\n");
    add_prop(OBJ_I_VOLUME, 150);
    add_prop(OBJ_I_WEIGHT, 50);
    add_prop(OBJ_I_VALUE, 30);
    add_prop(OBJ_M_NO_DROP, "Nie wyrzucisz chyba takiej pieknej rozy?!\n");
    add_prop(OBJ_M_NO_GIVE, "Chyba nie oddasz takiej pieknej rozy?!\n");
    add_prop(OBJ_M_NO_SELL, "Chyba nie sprzedasz takiej pieknej rozy?!\n");
}

string
query_auto_load()
{
    return "/d/Imperium/morley/roza.c:";
}

string
query_recover()
{
    return 0;
}

void
init()
{
    add_action("wepnij", "wepnij");
    ::init();
}

int
wepnij(string str)
{
    TP->add_subloc("_roza", this_object());
    dump_array(TO->move(TP, "_roza"));
    notify_fail("Wepnij co gdzie?\n");
    return 0;
}

string
show_subloc(string subloc, object on, object for_obj)
{
    if(subloc != "_roza")
        return "";
    if(for_obj == on)
        return "We wlosy masz wpieta przepiekna czerwona roze.";
    else
        return "We wlosy ma wpieta przepiekna czerwona roze.";
}