inherit "/std/object";
#include <stdproperties.h>
#include <ss_types.h>
#include <macros.h>
#include <pl.h>

create_object()
{
    ustaw_nazwe(({"roza", "rozy", "rozy", "roze", "roza", "rozy"}),
               ({"roze", "roz", "rozom", "roz", "rozami", "rozach"}), PL_ZENSKI);
    dodaj_przym("granatowy","granatowi");
        set_long("Masz przed soba okazala roze, ktora mozna wyhodowac tylko "
	+"nie lada ogrodnik. Jej granatowy kolor swiadczy takze o jej "
	+"egzotycznosci i trudnosci zdobycia. Masz coraz wieksze wrazenie, ze "
	+"mozesz okreslic skad pochodzi. Czyzby byla roza wyhodowana w "
	+"rozleglych ogrodach Rodziny Ragazzi?\n");
 
    add_prop(OBJ_I_VALUE, 50);
    add_prop(OBJ_I_WEIGHT, 100+random(1000));
    add_prop(OBJ_I_VOLUME, query_prop(OBJ_I_WEIGHT)/2);

}
int
przyloz(string s)
{
     notify_fail("Przyloz roze do twarzy?\n");
    if (!s) return 0;


    if(s =="roze do twarzy")
    {
	write("Leciutko sie usmiechajac zgrabnie chwytasz w swe rece roze i z niemalym "
	+"wdziekiem przykladasz ja do twarzy pokazujac jak bardzo kontrastuje z twoim "
	+"przepieknym uksztaltowaniem swej twarzy..\n");
	saybb(QCIMIE(this_player(), PL_MIA) + " leciutko sie usmiechajac zgrabnie chwyta "
	+"roze w swe dlonie i z niemala przyjemnoscia przyklada ja do twarzy demonstrujac "
	+"jak bardzo kontrastuje ona z jego wdziecznymi rysami.\n");


	return 1;
    }
}

int
pozostaw(string s)
{
     notify_fail("Chcesz pozostawic kwiat przy ciele?\n");
    if (!s) return 0;


    if(s =="kwiat przy ciele")
    {
	write("Patrzac z pogarda na cialo swego wroga, ktory przed chwila probowal stawic "
	+"ci opor z niesmakiem rzucasz w nie swoja roza pozostawiajac znak. Znak Rodziny. "
	+"Kwiat po chwili ginie wsrod rozkladajacych sie szczatek...\n");
	saybb(QCIMIE(this_player(), PL_MIA) + " patrzac z pogarda na cialo swego wroga, ktory "
	+"jeszcze przed chwila tak pewny siebie probowal stawic mu opor z niesmakiem rzuca "
	+"w nie swoja badz co badz przepiekna roza pozostawiajac znak. Znak Rodziny Ragazzi. "
	+"Kwiat po chwili ginie wsrod rozkladajacych sie szczatek...\n");
        this_object()->remove_object();
	return 1;
    }
}

void
init()
{

    ::init();
    add_action(pozostaw, "pozostaw");
    add_action(przyloz, "przyloz");
}