/* Plik:     chatka.c
 * Autor:    Borzoj
 * Data:     27.3.98
 * Opis:     chata,Dimenau
 * Poprawki: Tigr
 * Update:   21.06.98
 */

inherit "/d/Imperium/std/room.c";
#include "tigr.h"

string dlugi_opis();
string opis_blon();
string opis_paleniska();
string opis_garnka();
int czy_jasno();

void
create_imperium_room()
{
  set_short("Biedna chata");
  set_long("@@dlugi_opis");
  
  add_prop(ROOM_I_LIGHT,1);
  add_prop(ROOM_I_INSIDE,1);
  
  add_item(({"sprzet","sprzety"}),"Wyposazeniem chaty sa duze lozko pod "+
    "sciana, stol na srodku i kilka drewnianych zydelkow.\n");
  add_item("stol","W nim samym nie ma nic ciekawego, na nim lezy kilka "+
    "drewnianych talerzy i lyzek.\n");
  add_item(({"zydel","zydelek","zydle","zydelki",}),"Drewniane stolki, "+
    "sporzadzone z jednego kawalka drzewa kazdy nie sa nawet starannie "+
    "oheblowane.\n");
  add_item("klepisko","To po prostu uklepana glina.\n");
  add_item(({"sciana","sciany"}),"Drewniane sciany sa najlepszym swiadectwem "+
    "biedy mieszkancow- resztki farby odlaza platami, a same sciany "+
    "pochylaja sie do srodka.\n");
  add_item(({"blony","blone"}),"@@opis_blon");
  add_item("garnek","@@opis_garnka");
  
  add_exit(TPATH+"/lokacje/wioska3.c","polnoc",0,1);	
} //create_imperium_room

string
dlugi_opis()
{
  return
    "Bieda czai sie w kazdym kacie tego miejsca. Dawno niemalowane sciany "+
    "chyla sie do srodka, grozac zawaleniem w kazdej chwili. "+
    ((czy_jasno())?"Swiatlo slonca rozproszone przez zwierzece blony w "+ 
    "oknach oswietla klepisko i palenisko posrodku ze swiezo wygaszonym "+
    "ogniem. ":"Ogien plonacy w palenisku rzuca wieloksztaltne cienie na "+
    "gliniane klepisko i sciany. ")+"Nad paleniskiem wisi zeliwny garnek. "+
    "Poza nim znajduja sie tu jedynie najbardziej podstawowe sprzety.\n";
} // dlugi_opis 

string
opis_blon()
{
  return
    "Wypelniaja przestrzen okien. "+((czy_jasno())?"Choc nie sa calkiem "+
    "przezroczyste, to przepuszczaja dosc slonecznego swiatla.":"Nie sa "+
    "na tyle przejrzyste, by mozna dostrzec cos na zewnatrz.")+"\n";    
}// opis_blon

string
opis_garnka()
{
  return
    "Dosc duzy zeliwny garnek wisi nad paleniskiem."+
    ((czy_jasno())?"":"Wewnatrz bulgocze gotujaca sie strawa.")+"\n";
}// opis_garnka

string
opis_paleniska()
{
  return
    "Kilka kamieni uformowanych jest w niewielki krag. "+
    ((czy_jasno())?"posrodku widac jeszcze resztki ognia- wypalone polana "+
    "tla sie czerwonawym blaskiem":"Pomiedzy nimi plonie niewielki ogien.")+
    ".\n";
}//opis_paleniska

int
czy_jasno()
{
  int temp=0;
  if ((pora_dnia()=="noc")|(pora_dnia()=="wieczor")|
      (pora_dnia()=="pozny wieczor")|(pora_dnia()=="polnoc")) 
    {temp=0;} 
  else
    {temp=1;};
  return temp;
} // czy_jasno