/* Vaktoth 1997 */



#pragma no_clone
inherit "/d/Imperium/std/room";
#include "/sys/stdproperties.h"
#include "/sys/macros.h"
#include "defs.h"
object *skav = allocate(10);

int przeszukane = 0;

#define PLAYER_I_ZNALAZL_KLUCZ_SKAVENOW "_player_i_znalazl_klucz_skavenow"


void
reset_imperium_room()
{
  int i;
  for (i=0; i<sizeof(skav); i++)
  {
    if (present(skav[i],TO)==0)
    {
        skav[i] = clone_object( NPCS + "skaven.c");
        tell_room(TO,"Skaven nadchodzi.\n");
        skav[i]->move(TO);
    }
  }
}



create_imperium_room()
{
  
     set_long("@@long_desc");
     set_short("Wneka w tunelu");

    
    add_item(({"stol"}),
	    "Jest to bardzo stary i rozpadajacy sie juz drewniany stol. " +
	    "Zastanawiajace jest w nim to, ze kiedys musial byc bardzo " +
	    "reprezentacyjnym meblem. Mozesz sobie tylko wyobrazic " +
            "co stalo sie z jego pierwotnym wlascicielem.\n");
    add_item(({"lampa","lampe"}),
	    "Patrzysz na stara, pordzewiala w kilku miejscach gornicza lampe " +
	    "naftowa i zastanawiasz sie czemu to zelastwo zwrocilo twoja uwage. " +
            "Dochodzisz do wniosku iz jestes nieco przewrazliwiony...chyba.\n");
     add_item(({"lawe","lawy"}),
	    "Sa to zwykle lawy zbite byle jak z drewnianych klockow - " +
	    "poplamione i cuchnace.\n");
add_item(({"prycze","lozka"}),
	    "Przygladasz sie uwaznie pryczom stojacym pod sciana i " +
	    "z obrzydzeniem stwierdzasz, ze skaveni sa jedna z najbardziej " +
                  "niechlujnych ras na Starym Swiecie. Porozrzucane czesci garderoby " +
                   "wymieszane z resztkami jedzenia i skalnym pylem ze scian tworza " +
                   "zaiste okropny widok. Zdegustowany odwracasz wzrok, poszukujac " +
                   "czegos bardziej interesujacego.\n");
add_item(({"narzedzia","sterte","sterte narzedzi"}),
	    "W jednym z rogow pietrzy sie sterta starych, zuzytych narzedzi " +
	    "gorniczych - polamane i stepione kilofy, przebijaki, lopaty i mloty " +
                  "wskazuja na to iz prace prowadzone sa tu w imponujacym tempie " +
                   "i bez oszczednosci. Najwyraznie skavenom bardzo sie spieszy, tylko " +
                   "nie wiadomo czemu.\n");

    add_cmd_item(({"lozka","lozko","prycze"}),"przeszukaj","@@prycze");

 add_exit( LOKACJE + "temple04.c","poludnie", 0);

 INSIDE;

 set_alarm(30.0, 30.0, "talk");
 set_alarm(45.0, 45.0, "talk1");
 reset_imperium_room();
}
 string
 long_desc()
{
 return("Znalazles sie w niewielkiej, ale dosc przestronnej wnece w scianie " +
    "tunelu. Ze swierzych rys na skalnych scianach jasno wynika iz wykonano " +
    "ja bardzo niedawno. Sluzy ona najwyrazniej jako noclegownia dla skavenow " +
    "pracujacych przy tunelu. Pomieszczenie rozswietla niewielka lampa wiszaca " +
    "na suficie, ktorej swiatlo roztacza wokol slaba, zolta poswiate. Wzdluz scian " +
    "ciagnie sie rzad niechlujnie zaslanych i cuchnacych prycz, w srodku zas " +
    "stoi stary, rozwalony stol i kilka law. W jednym z katow stoi sterta narzedzi " +
    "gorniczych. Poza tym nie ma tu kompletnie nic co mogloby zwrocic twa " +
    "uwage.\n");
} 

void 
talk()
{
         tell_room(this_object(), 
           "Slyszysz odglosy kucia dobiegajace gdzies ze wschodu.\n");
}

void 
talk1()
{
         tell_room(this_object(), 
           "Starasz sie wstrzymac oddech aby nie zdradzic swej obecnosci.\n");

}

string
prycze()
{
    if(skav[1]) skav[1]->command("zabij " + this_player()->query_real_name(PL_BIE));
    if(skav[2]) skav[2]->command("zabij " + this_player()->query_real_name(PL_BIE));
    if(skav[3]) skav[3]->command("zabij " + this_player()->query_real_name(PL_BIE));
    if(skav[4]) skav[4]->command("zabij " + this_player()->query_real_name(PL_BIE));
    if(przeszukane)
    {
        write("Pracowicie przekopujesz lezace na pryczach ubrania, " +
            "jednak nic nie udaje ci sie znalezc.\n");
        say(QCIMIE(this_player(),0) + " przekopuje lezace na pryczach " +
            "ubrania.\n");
        return"";
    }
    say(QCIMIE(this_player(),0) + " przekopuje lezace na pryczach " +
        "ubrania.\n");
    write("Przeszukujac lezace na pryczach ubrania znajdujesz stalowy " +
        "klucz.\n");
    przeszukane = 1;
    clone_object(NPATH + "obj/klucz.c")->move(this_object());
    this_player()->add_prop(PLAYER_I_ZNALAZL_KLUCZ_SKAVENOW,1);
    return"";
}