/* Plik:     chata_w1.c
 * Autor:    Borzoj
 * Data:     27.3.98
 * Opis:     gabinet w domu wojta, Dimenau
 * Poprawki: Tigr
 * Update:   20.06.98
 */

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

#define WOJT_PRACUJE 3
#define WOJT_KLADZIE_SIE 4
#define WOJT_SPI 1

string dlugi_opis();
string opis_swiec();
string opis_swiecznikow();
int czy_jasno();

object wojt;
sklonuj_wojta()
{
   mixed inv;
   int i;
   
   wojt = clone_object(TPATH + "/npc/wojt.c");
   wojt->szykuj();
     if (czy_jasno()) 
        {
          wojt->ustaw_stan(WOJT_PRACUJE);
          wojt->move_living("M",this_object(),0,0);
          wojt->sklonuj_bron();
        }
     else 
        {
          wojt->ustaw_stan(WOJT_KLADZIE_SIE);
          
          if (find_object(TPATH+"/sklepy/chata_w5.c"))
             {
                inv = all_inventory(find_object(TPATH+"/sklepy/chata_w5.c"));
                
                for (i=0;i<sizeof(inv);i++)
                    {
                       if (inv[i]->query_wojt())
                          {
                            inv[i]->remove_object();
                          }
                    }
             }
          
          wojt->move_living("M",TPATH + "/sklepy/chata_w5.c",0,0);
          wojt->sklonuj_bron();
          wojt->command("ziewnij przeciagle");
          set_alarm(1.0,0.0,"spac"); //musimy poczekac na sklonowanie ubrania
        }
}

spac()
{
    wojt->command("zdejmij wszystko");
    wojt->command("emote kladzie sie i zasypia.");
    wojt->ustaw_stan(WOJT_SPI);
    wojt->command("emote usmiecha sie lekko przez sen.");
    wojt->change_prop(LIVE_S_SOULEXTRA,"Usmiecha sie lekko przez sen");
    wojt->add_prop(LIVE_S_EXTRA_SHORT," spiacy w swoim lozu");
    wojt->add_prop(NPC_M_NO_ACCEPT_GIVE," spi przeciez!\n");
}

void
create_imperium_room()
{
  set_short("Gabinet wojta");
  set_long("@@dlugi_opis");
  add_prop(ROOM_I_LIGHT,1);
  add_prop(ROOM_I_INSIDE,1);
  add_item(({"mebel","meble"}),"Na wyposazenie pokoju skladaja sie "+
    "potezne biurko stojace na srodku pokoju, biblioteczka w rogu "+
    "i kilka krzesel. Wszyskite meble wykonane sa z debu i bogato "+
    "zdobione.\n");
  add_item("biurko","Potezne drewniane biurko zapewne sluzy wojtowi w "+  
    "pracy.\n");
  add_item(({"szafe","szafke","biblioteczke","biblioteke"}),"Debowa "+
    "szafa po brzegi wypelniona jest ksiazkami o kolorowych "+
    "obwolutach. Widzisz mnostwo tytulow napisanych w wielu "+
     "nieznanych ci jezykach.\n");
  add_item(({"krzeslo","krzesla"}),"Piekne debowe krzesla z wysokimi "+
    "oparciami. Kiedy dokladniej sie im przygladasz widzisz, ze kazde "+
    "oparcie ozdobione jest w nieco inny sposob.\n");
  add_item(({"schodki","schody"}),"Waskie krecone schody biegna na "+
    "gore.\n");
  add_item(({"gobelin","gobeliny"}),"Kolorowe gobeliny wisza na "+
    "scianach. Kiedy blizej sie im przypatrzysz dostrzegasz jakies "+
    "legendarne sceny, ktore przedstawiaja, ale nie masz pojecia "+
    "jakie.\n");
  add_item("swiece","@@opis_swiec");
  add_item(({"swiecznik","swieczniki"}),"@@opis_swiecznikow");
  
  setuid();
  seteuid(getuid());
  
  add_exit(TPATH + "/sklepy/chata_w5.c","gora",0,1);
  add_exit(TPATH + "/sklepy/chata_w3.c","polnoc",0,1);
  
  sklonuj_wojta();
} //create_imperium_room

string
dlugi_opis()
{
  return
    "Ten pokoj wyglada na miejsce oficjalnych przyjec wojta. Jest dosyc "+
    "duzy i jasny dzieki "+
    ((czy_jasno())?"slonecznemu swiatlu wpadajacemu przez duze okna "+
    "umieszczone w trzech scianach. ":"swiatlu pochodzacemu od swiec "+
    "powtykanych do kilku ozdobnych swiecznikow rozstawionych wkolo. ")+
    "Widac, ze wlasciciela stac na luksus i wcale sie z tym nie "+
    "ukrywa - na scianach zbudowanych z ciosanego kamienia wisza "+
    "kolorowe gobeliny, meble sa wykonane z debowego drewna i bogato "+
    "zdobione. W rogu widzisz krecone drewniane schodki - zapewne "+
    "prowadza do sypialni."+
    "\n";
} // dlugi_opis   


string
opis_swiec()
{
  return 
    ((czy_jasno())?"Nie zauwazasz niczego takiego.":"Kilkanascie duzych "+
    "swiec jest jedynym zrodlem swiatla w pokoju.")+"\n";
}//opis_swiec

string
opis_swiecznikow()
{
  return
    ((czy_jasno())?"Nie zauwazasz niczego takiego.":"Pieknie zdobione "+
    "roslinnymi motywami mosiezne swieczniki stoja na biurku.")+"\n";
}//opis_swiecznikow

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
reset_imperium_room()
{
   if (!wojt) sklonuj_wojta();
   ::reset_imperium_room();
}