
inherit "/d/Imperium/std/room.c";
#include "/sys/stdproperties.h"
#include "silvy.h"

create_imperium_room()
 {

    add_prop(ROOM_I_INSIDE, 1);
    add_prop(ROOM_I_LIGHT, 0);
    set_short("Zachodnia czesc wielkiej sali");
    set_long("Zachodnia czesc imponujacej jaskini. Nie jestes " +
                 "w stanie dostrzec sklepienia. Sciany sa nierowne i " +
                 "pelne zalaman. Odbija sie w nich czerwona luna bijaca od " +
                 "niewielkiego podwyzszenia widocznego na polnocnym wschodzie. " +
                 "Powietrze jest tu swieze i wyczuwasz lekki przeciag. " +
                 "Czujesz jak nieswiadomie przechodzi cie dreszcz.\n");

    add_exit(NPATH + "wieza/sala_1.c","poludniowy-wschod","@@czy_mozna",1);
    add_exit(NPATH + "wieza/sala_4.c","polnocny-wschod","@@czy_mozna",1);
    add_exit(NPATH + "wieza/sala_3.c","wschod","@@czy_mozna",1);

    add_item(({"podloga","podloge","posadzka","posadzke"}),
               BSN("Kamienna posadzka jest tu czysta i lsniaca."));
    add_item(({"sciany","sciana","sciane"}),
               BSN("Sciany maja tu imponujaca wielkosc. W skalnych " +
                   "zalamaniach odbija sie czerwony blask bijacy z " +
                   "ponocnego wschodu."));
    add_item(({"podwyzszenie","swiatlo"}),
               BSN("Na polnocnym krancu jaskini znajduje sie cos, jakby " +
                   "podwyzszenie, od ktorego bije jasne, krwistoczerwone " +
                   "swiatlo, tanczace na wypolerowanej posadzce i w zalomach " +
                   "scian. Jestes w stanie wyczuc emanujace z tego miejsca " +
                   "zlo."));

 }

int
czy_mozna()
{
    if(random(5))
    {
        write("Tracisz rownowage na sliskiej posadzce i padasz jak " +
           this_player()->koncowka("dlugi","dluga") + ".\n");
        say(QCIMIE(this_player(),PL_MIA) + " traci rownowage na "+
           "sliskiej posadzce i pada jak "+
           this_player()->koncowka("dlugi","dluga") + ".\n");
        this_player()->add_fatigue(-10);
        return 1;
    }
    return 0;
}              
