inherit "/d/Imperium/std/room";
#include <macros.h>
#include <stdproperties.h>


#define BS(message)     breake_string(message, 75)
#define TP     this_player()
#define TO     this_object()


void
create_imperium_room()
{

     object ob1;

     set_short("Pracownia Juliana");
     set_long("Znajdujesz sie w miejscu ktore wygladem przypomina "
           + "swiatynie. Niewielka ilosc swiatla ktora przedostaje "
           + "sie przez misterne witraze stwarza niesamowity nastruj "
           + "tajemniczosci. Na srodku pomieszczenia obok kamiennego "
           + "posagu znajduje sie drewniany tron ze zlotymi okuciami. "
           + "Przy scianie ustawiony jest stary, zakurzony regal.\n");
           
     add_item("tron",
              "Gdy przygladasz mu sie blizej odnosisz wrazenie, iz "
            + "tron ten zaczyna sie poruszac. Najpierw delikatnie, "
            + "na boki, nastepnie coraz szybciej, podskakuje, "
            + "wymachuje nozkami, przyglada sie tobie ciekawie swoimi "
            + "wylupiastymi oczkami, zaczyna biegac po komnacie by po "
            + "chwili zastygnac w pierwotnej pozycji...\n");    
     add_item("regal",
              "Jest to bardzo stary, zakurzony regal. Na jego pulkach "
            + "znajduja sie wielkie ksiegi obite skora.\n");
     add_item(({"ksiegi", "ksiege", "ksiazki")},
              "Tytuly ksiag napisane sa w nieznanym tobie jezyku.\n");
     add_item(({"skore", "obicie")},
              "Nie, to nie mozliwe, lecz... wydaje ci sie... jestes "
            + "pewien, iz jest to skora ludzka.\n");
     add_item("witraze",
              "Sa to bardzo piekne witraze, zrobione z roznokoloro"
            + "wego szkla. Nie jestes w stanie okreslic co przedsta"
            + "wiaja. Co ciekawe z przez kazdy witraz przebija sie "
            + "dokladnie taka sama ilosc swiatla...\n");

     add_cmd_item{"tronie", ({"usiadz na", "spocznij na")}, "@@chair_func");


     add_exit("/d/Arkadia/wiz/wizroom", "wizroom");
     add_exit("/d/Arkadia/wiz/poczta", "poczta");

     ob1 = clone_object("/d/Imperium/julian/posag.c");
     ob1->move_living("xxx", this_object());


     
     add_prop(ROOM_I_INSIDE, 1);

     
     add_prop(ROOM_I_HIDE, 20);

     
     add_prop(ROOM_I_NO_CLEANUP);

     
     add_prop(ROOM_I_NO_ATTACK, "Poczucie spokoju plynacego z tego miejsca jest "
                                   + "zbyt wielkie!\n");

}


string
chair_func()
{

     string ch_text;
     
     
     ch_text = " rozsiada sie wygodnie na tronie.\n");
            
          say(({ BS(METNAME + ch_text), BS(ART_NONMETNAME + ch_text),
	 BS(UNSEEN_NAME + ch_text) }));     

         return BS("Rozsiadasz sie wygodnie na tronie. Jest zimny...\n");
    

}