/* dom medyka w Wittgensdorfie
 * Autor: Lakshmi (z pomoca Gerarda)
 * Data: 6.09.98     Update: 25.09.98
*/ 

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

int stan_dywanu;
int stan_klapy;

void 
create_imperium_room()
{
  stan_dywanu = 0;
  stan_klapy = 0;

  set_short("Gabinet doktora");
  set_long("@@dlugi_opis");

  add_prop(ROOM_I_LIGHT, 1);
  add_prop(ROOM_I_INSIDE, 1);
  
  add_exit(PATH + "medyk_c.c","poludnie",0,0,0);
  add_item(({"biurko"}),
             "Solidne debowe biurko, na ktorym w rownych stertach "+
	     "pietrza sie rozmaite papiery. To pewnie przy nim doktor "+
	     "pracuje w czasie wolnym od wizyt chorych.\n");
  add_item(({"papiery","sterty","sterte"}),
             "Wygladaja na jakies naukowe notatki, lecz nieczytelny "+
	     "charakter pisma ich autora nie pozwala tego dokladnie "+
	     "stwierdzic.\n");
  add_item(({"krzeslo","krzesla"}),
             "Krzesla jak krzesla, nic szczegolnego, choc wygladaja na wygodne.\n");	     
  add_item(({"sofe"}),
             "Jest to niewielka sofa, jakich mnostwo w innych domach. "+
	     "Nie wyroznia sie niczym szczegolnym.\n");
  add_item(({"polke","polki"}),
             "Drewniane, domowej roboty polki na ksiazki zajmuja cala sciane. "+
	     "Ktos rowniutko poustawial na nich rozmaite ksiazki.\n");
  add_item(({"ksiazki"}),
             "Wielkie, opasle tomiszcza szczelnie wypelniaja polki. Sa to "+
	     "glownie traktaty medyczne.\n");
  add_item("podloge", "Podloga przykryta jest kunsztownie wykonanym " +
	"dywanem.\n");
  add_item("dywan", "@@opis_dywanu");
  add_cmd_item("dywan", "przesun", "@@przesun_dywan");
  add_item("klape", "@@opis_klapy");
  add_cmd_item("klape", "otworz", "@@otworz_klape");
  add_cmd_item("klape", "zamknij", "@@zamknij_klape");
  add_cmd_item("na krzesle",({"usiadz","siadz"}),"@@usiadz");
}

string
dlugi_opis()
{
  if (!stan_dywanu)
    return "Znajdujesz sie w pomieszczeniu, ktore rownie dobrze moze "+
           "byc salonem, jak i gabinetem, choc urzadzone jest skromnie. "+
	   "Jedynym przejawem przepychu jest piekny dywan pokrywajacy podloge. " +
	   "W zasadzie, poza nim widzisz tu jedynie biurko, trzy krzesla, "+
	   "sofe i polke z ksiazkami, wiec nie bardzo jest tu co ogladac. "+
	   "Jednak, pomimo surowego wystroju, jest tu o wiele przytulniej "+
	   "niz w gabinecie obok.\n";
  else
  {
    if (!stan_klapy)
      return "Znajdujesz sie w pomieszczeniu, ktore rownie dobrze "+
             "moze byc salonem, jak i gabinetem, choc urzadzone jest skromnie. "+
             "Jedynym przejawem przepychu jest piekny dywan pokrywajacy podloge, "+
	     "a w chwili obecnej przesuniety, tak ze odslania prostokatna " +
	     "klape. W zasadzie oprocz nich widzisz jedynie biurko, trzy "+
	     "krzesla, sofe i polke z ksiazkami, wiec nie bardzo jest tu "+
	     "co ogladac. Jednak, pomimo surowego wystroju, jest tu o wiele "+
	     "przytulniej niz w gabinecie obok.\n";
    else
      return "Znajdujesz sie w pomieszczeniu, ktore rownie dobrze moze byc " +
             "salonem, jak i gabinetem, choc urzadzone jest skromnie. Jedynym "+
	     "przejawem przepychu jest piekny dywan pokrywajacy podloge, a w "+
	     "chwili obecnej przesuniety, tak ze odslania otwarta prostokatna klape "+
	     "prowadzaca do piwnicy. W zasadzie oprocz nich widzisz jedynie "+
	     "biurko, trzy krzesla, sofe i polke z ksiazkami, wiec nie bardzo "+
	     "jest tu co ogladac. Jednak, pomino surowego wystroju, jest tu o "+
	     "wiele przytulniej niz w gabinecie obok.\n";
  }
}

string
opis_dywanu()
{
  if (!stan_dywanu)
    return "Jest to drogi, perski dywan. Masz wrazenie, ze pod nim " +
	"cos sie znajduje.\n";
  else
    return "Jest to drogi, perski dywan. W tej chwili lezy w lekkim " +
	"nieladzie odsuniety w bok.\n";
}

int
przesun_dywan()
{
  if (!stan_dywanu)
  {
    write("Ostroznie przesuwasz dywan. Pod nim dostrzegasz klape.\n");
    say(QCIMIE(TP, PL_MIA) + " ostroznie przesuwa dywan odslaniajac " +
	"znajdujaca sie pod nim klape.\n");
    stan_dywanu = 1;
  }
  else
  {
    if (!stan_klapy)
    {
        write("Zgrabnym ruchem zakrywasz dywanem zejscie do piwnicy.\n");
        say(QCIMIE(TP, PL_MIA) + " zgrabnym ruchem zakrywa dywanem zejscie " +
	    "do piwnicy.\n");
        stan_dywanu = 0;
        if (stan_klapy)
        {
            stan_klapy = 0;
            remove_exit("dol");
        }
    }
    else
    {
        write("Nie mozesz tego uczynic przy otwartej klapie.\n");
        say(QCIMIE(TP, PL_MIA) + " mocuje sie z dywanem, lecz nie udaje sie " +
            TP->koncowka("mu","jej") + " go przesunac.\n");
    }
  }

  return 1;
}

string
opis_klapy()
{
  if (!stan_dywanu)
    return "Nie zauwazasz niczego takiego.\n";
  if (!stan_klapy)
    return "Klapa jest zamknieta.\n";
  return "Otwarta klapa prowadzi do piwnicy.\n";
}

int
otworz_klape()
{
  if (!stan_dywanu)
    write("Slucham?\n");
  else
  {
    if (stan_klapy)
      write("Alez klapa jest juz otwarta!\n");
    else
    {
      write("Otwierasz klape w podlodze.\n");
      say(QCIMIE(TP, PL_MIA) + " otwiera klape w podlodze.\n");
      stan_klapy = 1;
      add_exit(PATH + "medyk_f.c", "dol", 0,0,0);
    }
  }

  return 1;
}

int
zamknij_klape()
{
  if (!stan_dywanu)
    write("Slucham?\n");
  else
  {
    if (!stan_klapy)
      write("Alez klapa jest zamknieta!\n");
    else
    {
      write("Zamykasz klape.\n");
      say(QCIMIE(TP, PL_MIA) + " zamyka klape.\n");
      stan_klapy = 0;
      remove_exit("dol");
    }
  }

  return 1;
}

string
usiadz()
{
write("Nie wypada siadac bez zaproszenia. Wstydz sie!\n");
say(QCIMIE(TP, PL_MIA) + " probuje usiasc na krzesle, lecz po chwili "+
          "przypomina sobie zasady dobrego wychowania i rezygnuje.\n");
return "";
}