/* standardowe pomieszczenie twierdzy
 * napisane przez Alfena
 */
 
#include "local.h"
#include <stdproperties.h>
#include <pl.h>
#include <macros.h>
inherit GPATH + "std/room";
int czas_zmian = 0;
int pamiec = 0;
void
decay()
{
  if (--czas_zmian>0)
   set_alarm(5.0, 0.0, "decay");
}
void
start_decay(int l)
{
  czas_zmian = l;
  decay();
}
void
create_twierdza()
{
}
int
sprawdzenie()
{
  return  this_player()->query_wiz_level();
}
void
create_imperium_room()
{
  add_prop(ROOM_I_NO_SKY, 1);
  add_prop(ROOM_I_LIGHT, "@@sprawdzenie@@");
  add_prop(ROOM_I_HIDE, 10);
  add_prop(ROOM_I_INSIDE, 1);
  add_prop(ROOM_S_DARK_LONG, "Znajdujesz sie w nienaturalnie ciemnym miejscu. "+
	      "Od czasu do czasu zauwazasz czerwone blyski, jakby wyglodzonych"+
	      " wilczych oczu.\n");
//  add_prop(ROOM_S_DARK_MSG, "Otaczajaca Cie nienaturalna ciemnosc "+
  //		"uniemozliwia wykonanie zamierzonej czynnosci.\n");
  		
  set_long("@@opis@@");
  
  create_twierdza();
}
string
opis()
{
  if (!czas_zmian)
    pamiec = random(6);
  remove_item("szczatki");
  remove_item("kamienie");
  remove_item("symbol");
  remove_cmd_item("symbolu");
  remove_cmd_item("symbol");
  remove_item("pajeczyny");
  remove_item("plaskorzezby");
  remove_item("kosci");
  switch(pamiec)
  {
    case 0 :
      add_item(({"symbol", "wyrysowany krwia symbol", "krwisty symbol",
      	"znak", "wyrysowany krwia znak", "krwisty znak"}),
      	  "Po dluzszym wpatrywaniu sie w podloze zauwazasz, ze symobl "+
      	  "ow przedstawia okrag i wychodzace z niego osiem strzal. "+
      	  "Nachodzi Cie dziwna ochota by dotknac tego znaku.\n");
      add_cmd_item(({"symbolu","krwistego symbulu",
        "znaku","krwistego znaku"}),({"dotknij"}),
        ({("Poczul"+
          this_player()->koncowka("es","as")+" dziwny dreszcz.... Troche "+
          "chaosu w zyciu to przeciez nic zlego.\n")}));
      add_cmd_item(({"symbol","krwisty symbol","znak",
      	"krwisty znak"}),({"zetrzyj"}),({"@@zetrzyj"}));
      return "Na podlozu widnieje wyrysowany krwia foremny symbol.";
    case 1 :
      add_item(({"szczatki","walajace sie szczatki"}),"Szczatki "+
      	"przedstawiaja soba zalosny widok.... Resztki gobelinow, jedzenia, "+
      	"odchody i inne utensylia sprawiaja wrazenie mocno zadbanych.\n");
      return "Tu i owdzie mozna dostrzec walajace sie szczatki.";
    case 2 :
      add_item("kamienie","Zascielajace podloze kamienie sa prawdopodobnie "+
      	"resztkami plaskorzeb niegdys pokrywajacych sciany.\n");
      return "Podloze, po ktorym stapasz jest w przewazajacej czesci "+
      	"zaslane roznej wielkosci kamieniami.";
    case 3 :
    	add_item(({"plaskorzeby", "sciany", "freski", 
    			"zniszczone plaskorzezby"}),
    		"Sciany pokryte sa scenami ukazujacymi przedstawicieli "+
    		"roznych ras ulozonych w roznorakich pozycjach milosnych. "+
    		"Poczawszy od najmniej do najbardziej perwersyjnych.\n");
    	return "Pokrywajacy sciany mech, czesciowo zaslania freski "+
    		"i mocno zniszczone plaskorzezby.";
    case 4 :
    	add_item("pajeczyny", "Na pajeczynach mozna zauwazyc szczatki "+
    		"doszlych i niedoszlych ofiar.\n");
    	return "Duza czesc pomieszczenia pokrywja roznej wielkosci pajeczyny.";
    case 5 :
    	add_item(({"kosci","stosy kosci"}),
    		"Kosci pokrywja wieksza czesc podloza. Na pierwszy, "+ 
    		"drugi i trzeci rzut oka widac, ze nalezaly do roznych istot. "+
    		"Niektore z kosci wygladaja na mocno nadgryzione i to "+
    		"bynajmniej nie zebem czasu.\n");
    	return "Wokol Twoich stop wlaja sie bezwladnie rozrzucone stosy kosci.";
  }
  if (!czas_zmian)
    start_decay(5);
}
string
zetrzyj()
{
  object ob;
  say(QCIMIE(this_player(), PL_MIA)+" z zacieciem na twarzy zaczal"+
  	this_player()->koncowka("","a")+" scierac pokrywajacy podloze symbol"+
  	".\n");
  remove_item("symbol");
  return "Tak - w Twoich myslach rozlegl sie nagle bezosobowy glos - "+
  	"nic Ci ta drobna demonstracja nie pomoze, zostaniesz tutaj, a "+
  	"kosci Twe ozdobia moja siedzibe.\n";
  /*
   tutaj klonujemy stworka i atakujemy gracza
   */ 
   ob = clone_object(LPATH + "szkielet");
   ob -> move_living("M", this_object());
   ob -> command("emote klekoczac kosciami, rzucil sie do ataku.");
   ob -> attack_object(this_player());
   this_player()->add_prop(IMPERIUM_I_STWOR_CHAOSU, 1);
}
void
reset_twierdza()
{
}
void
reset_imperium_room()
{
  reset_twierdza();
}