inherit "/std/object";

#include <stdproperties.h>
#include <macros.h>

string czyja;

void
set_skull( object corpse )
{
string a;
string *b = corpse->query_prop(CORPSE_M_RACE);

a=b[1];

ustaw_nazwe(({"czaszka "+a+"", "czaszki "+a+"", "czaszce "+a+"",
	    "czaszke "+a+"", "czaszka "+a+"","czaszce "+a+""}),
	    ({"czaszki "+a+"", "czaszek "+a+"", "czaszkom "+a+"",
	    "czaszki "+a+"", "czaszkami "+a+"","czaszkach "+a+""}),
	    PL_ZENSKI);
czyja = b[4];
}

void
create_object()
{
dodaj_nazwy(({"czaszka","czaszki","czasce","czaszke","czaszka","czaszce"}),
	({"czaszki","czaszek","czaszkom","czaszki","czaszkami","czaszkach"}),
	PL_ZENSKI);

set_long("Jest to czaszka, ktora jest pozostaloscia po "+czyja+".\n");

}