inherit "/std/object";
inherit "/cmd/std/command_driver";
#include "../moria.h"
#include "/d/Imperium/std/reload.h"
#include "spece.h"


#define A "lancuch"

int zalozony=0;





void
create_object()
{

ustaw_nazwe( ({"lancuszek","lancuszka","lancuszkowi","lancuszek","lancuszkiem",
	"lancuszku"}), ({"lancuszki","lancuszkow","lancuszkom","lancuszki",
	"lancuszkami","lancuszkach"}),PL_MESKI_NOS_NZYW);


    dodaj_przym("solidny","solidni");
    dodaj_przym("srebrny","srebrni");
    
    set_long("Srebrny, solidny lancuszek, ktory z duma nosisz w nosie.\n");
    
    add_prop(OBJ_M_NO_GIVE,"Ni.\n");
    add_prop(OBJ_M_NO_DROP,"Ni.\n");
    add_prop(OBJ_M_NO_SELL,"Ni.\n");
    

}


string
query_recover()
{
    return 0;
}

string
query_auto_load()
{
    return MASTER + ":";
}

void
enter_env( object ug, object eg )
{
    if ( zalozony == 0 )
	{
write("Przypinasz lancuszek do nosa, zas drugi jego koniec do ucha.\n");
TP->remove_subloc(A);
TP->add_subloc(A,TO);
TP->add_prop("zabojca",1);
TO->move(TP,A);
zalozony=1;
set_alarm(1.0,0.0,"laduj_tatuaze");    
	}

}


string
show_subloc( string subloc, object ob, object off )
{
    if ( subloc != A ) return "";
    if ( off == ob )
	return "";
	return "Ma przypiety lancuszek do ucha, ktorego drugi koniec "+
	    "zaczepiony jest na nosie.\n"+
	    "Na jego glowie widoczna jest zlepiona kupa niemytych wlosow "+
	    "przypominajacych irokeza.\n";
return MASTER+":";
}
	    

void
init()
{
    ::init();
    add_action("rab","rab");
    add_action("walnij","walnij");
    add_action("szal","szal");
}