inherit "/d/Imperium/std/room"; 
#include <macros.h>
#include <stdproperties.h>
#include <std.h>
#include <pl.h>
#define SIEDZACY "_siedzacy"
int usiadz_na_krzesle(string ps);
int wstan();
int nie_wyjdziesz();
void
create_imperium_room() 
{
   set_short("Maly pokoik");
   set_long("Pod lewa sciana duzy regal, zapelniony ksiazkami zajmuje znaczna " +
   "czesc tego pokoju, naprzeciw postawiono nieduzy stolik oraz krzeslo ktore " +
   "stoi tuz obok. Pomieszczenie zdobi jedynie, obraz wiszacy na scianie na " +
   "wprost wejscia oraz malutki kominek wbudowany tuz pod malowidlem. Prawy rog " +
   "pomieszczenia goszczony jest przez stara szafke, na ktorej ustawiona zostala " +
   "olejna lampka ktora samotnie oswietla komnate.\n");
   add_item(({"regal"}), "Duzych rozmiarow regal z trudem dzwiga ksiazki, o czym " +
                         "swiadczy fakt iz jedna z polek jest zlamana.\n");
   add_item(({"ksiazki"}), "Duze i ciezkie ksiazki maja swe miejsce na regale. " +
                           "Grzbiety ksiag pokrywa cienka warstwa kurzu, jedynie " +
			   "na najnizej znajdujacej sie polce lezy duza ksiega.\n");
   add_item(({"ksiege"}),  "Odizolowana od innych woluminow ksiega lezy na najnizszej " +
                           "polce regalu. Oprawiona jest w czarna i wlochata skore, a " +
			   "gruby pas owija ja dookola jakby chroniac przed otwarciem.\n");
   add_item(({"stolik"}),  "Na czterech cienkich nogach, maly stolik stoi na przeciw regalu " +
                           "z ksiazkami. Jedyne co na nim sie znajduje to gesie pioro " +
			   "i kartka czystego papieru, tuz obok stoi krzeslo.\n");
   add_item(({"krzeslo"}), "Wykonane z jasnego drzewa krzeslo stoi na trzech grubych " +
                           "nogach dzielnie dotrzymuje towarzystwa stolikowi.\n");
   add_item(({"obraz"}),  "Nad kominkiem wisi znacznych rozmiarow obraz o szarej ramie " +
                          "lecz kolorowym plotnie. Malowidlo przedstawia rozne figury " +
			  "goemetryczne oraz motywy roslinne.\n");
   add_item(({"kominek"}), "W malutkich rozmiarow kominku, wykonanego z szarego kamienia " +
                           "trzaska wesolo duzy plomien, dajacy troche swiatla oraz ciepla " +
			   "temu pomieszczeniu.\n");
   add_item(({"szafke"}), "Stara i zakurzona szafka gosci w prawym rogu pokoiku, tylko zamek " +
                          "wyglada na nowy gdyz, nie jest ani troche zardzewialy. Na szafce "+
			  "stoi lampka.\n");
   add_item(({"lampke"}), "Mala olejna lampka swieci bladym promieniem swiatla, ktore oswietla " +
                          "nieduza czesc pokoju, co sprawia iz panujaca ciemnosc ustepuje " +
			  "polmrokowi.\n");
add_cmd_item( ({"ksiege"}), ({ "otworz" }),
        "Probujesz otworzyc ksiege lecz gdy ja dotykasz ta parzy cie.\n");
add_cmd_item( ({"szafke"}), ({ "otworz" }),
"Chwytasz za drzwiczki szafki i ciagniesz, ale te ani mysla ustepowac.\n");
}
int
nie_wyjdziesz()
{
   if(this_player()->query_prop(SIEDZACY)==1)
    {
        write("Zanim wyjdziesz wstan z krzesla.\n");
        return 1;
    }
    else
    {
        return 0;
    }
}
int
usiadz_na_krzesle(string ps)
{
    notify_fail("Na czym chcesz usiasc? Moze na krzesle?\n");
    if(ps=="na krzesle")
    {
        switch(this_player()->query_prop(SIEDZACY))
        {
            case 1:
            {
                write("Przeciez juz siedzisz!\n");
                break;
            }
            default:
            {
                saybb(QCIMIE(this_player(), PL_MIA) + " siada niepewnie na " +
		"krzesle.\n");
                write("Siadasz z lekka niepewnoscia na krzesle.\n");
                this_player()->add_prop(LIVE_S_EXTRA_SHORT," siedzac"
  + this_player()->koncowka("y","a") + " na krzesle");
                this_player()->add_prop(SIEDZACY,1);
            }
        }
        return 1;
    }
}
int
wstan()
{
    if(this_player()->query_prop(SIEDZACY)==1)
    {
        saybb(QCIMIE(this_player(), PL_MIA) + " z lekka ulga " +
	"podnosi sie z krzesla.\n");
        write("Z lekkim usmiechem i ulga wstajesz z krzesla.\n");
        this_player()->remove_prop(LIVE_S_EXTRA_SHORT);
        this_player()->remove_prop(SIEDZACY);
        return 1;
    }
    else
    {
        write("Przeciez nigdzie nie siedzisz!\n");
        return 1;
    }
}    
init()
{
    ::init();
    add_action("usiadz_na_krzesle","usiadz");
    add_action("wstan","wstan");
}