inherit "/d/Imperium/std/room.c";
#include "/sys/stdproperties.h"
#include "silvy.h"
#include "ss_types.h"
#include "macros.h"

create_imperium_room()
 {
    add_prop(ROOM_I_INSIDE, 1);
    add_prop(ROOM_I_LIGHT, 0);
    set_short("Ciemna piwnica");
    set_long("Jestes w dosc duzej, ciemnej piwnicy. Polokragle " +
        "sklepienia, zrobione w czerwonej cegly, dodaja temu " +
        "pomieszczeniu wyraz dostojnosci. Mimo to nie wyglada " +
        "ono na nic wiecej poza skladzikiem na wina i inne " +
        "trunki. Pod sciana widzisz rzad beczek.\n");

    add_exit(NPATH + "wieza/wie_0-1.c","gora",0,1);
    
    add_item(({"schody"}),
              "Z bliska schody wydaja sie byc w nienajlepszym " +
                   "stanie. Kamienne bloki sa poobtlukiwane i " +
                   "popekane. Zarysowane podpory nie wygladaja zbyt " +
                   "solidnie.");
    add_item(({"beczki","beczka","beczke","barylka","barylke"}),
               "Blizsza inspekcja przynosi niewesole wiesci. " +
                   "Wszystkie barylki sa badz to rozbite, badz tez puste " +
                   "w wyniku wyschniecia szlachetnego trunku. " +
                   "Za rzedem beczek zauwazasz otwor w ksztalcie " +
                   "niewielkich drzwi. Byc moze udaloby ci sie " + 
                   "przeslizgnac miedzy beczkami.\n");
    add_item(({"dziure","otwor","drzwi"}),"Tuz za rzedem beczek widzisz " +
        "otwor w scianie, prowadzacy na polnoc. Nieprzenikniona ciemnosc " +
        "nie pozwala ci zobaczyc nic wiecej.\n");
        
    add_cmd_item(({"sie miedzy beczkami","beczki","barylki"}),({"przeslizgnij","odchyl","przepchnij","przechyl","pchnij"}),
        "@@barylki");
            
}

string
barylki()
{
    if(TP->query_stat(0) < 20 + random(20))
    {
        write("Probujesz przepchnac stojace pod sciana beczki. Niestety " +
            "sa dla ciebie za ciezkie i musisz dac za wygrana.\n");
        say(QCIMIE(TP,PL_MIA) + " probuje przepchnac stojace pod sciana beczki. " +
            "Bez rezultatu.\n");
      return "";
    }
   write("Przeciskasz sie miedzy beczkami. Uffff. Udalo ci sie.\n");
   TP->move_living("przeciskajac sie pomiedzy beczkami do otworu w " +
       "polnocnaj scianie.",NPATH + "wieza/wie_0_2.c",1,0);
   return "";
 }