inherit "/d/Imperium/std/room.c";
#include <stdproperties.h>
#include <macros.h>
#include "elear.h"
#include "kanal.h"

public int utop (string s)
{
  int i;
  mixed *tab;
  object ob;
  
  notify_fail ("Kogo lub co chcesz utopic?\n");
  if (!s) return 0;

  tab = /* (inventory(environment(TP))) + */ (all_inventory(TP));
  dump_array (tab);
  
  for (i=0; i<sizeof(tab); i++)
  {
      write (tab[i]->query_nazwa(PL_BIE)+"\n");
      if (tab[i]->query_nazwa(PL_BIE) == s)
          ob = tab[i];
  }
  if (living(ob))
  {
      notify_fail ("Nie mozesz "+plpl("go","jej",find_object(s))+" utopic!\n");
      return 0;
  }
  write ("Wrzucasz "+s+" w scieki.\n" + ob->query_nazwa(PL_MIA) + " znika na zawsze"
  +" w strumieniu szlamu i nieczystosci...\n");
  say (QCIMIE(TP,PL_MIA)+" wrzuca "+ob->query_nazwa(PL_MIA)+" w scieki.\n");
  ob->destruct();
  return 1;
}


public string wech (string s)
{
  write ("Czujesz potworny smrod, fetor, jakiego jeszcze nigdy nie mial"+plpl("e","a")
  +"s okazji doswiadczyc. Czujesz potworna mieszanine woni odchodow, wymiocin,"
  +" gnijacego miesa i paru innych, ktorych nie jestes juz w stanie odroznic."
  +" Smrod jest tak przemozny, ze skreca ci wlosy w nosie.\n");
  say (QCNAME(this_player())+" uwaznie weszy wokolo, natychmiast jednak marszczy nos"
  +" i zaprzestaje tej czynnosci.\n");
  return "";
}  

public string sluch (string s)
{
  write ("Slyszysz kapanie wody, cichy szmer plynacych sciekow, popiskiwanie"
  +" uciekajacych na Twoj widok szczurow kanalowych oraz czasem trzepot bloniastych"
  +" skrzydel nietoperza. Co jakis czas wydaje Ci sie, ze slyszysz jakis jek,"
  +" wolanie o pomoc... ale to z pewnoscia efekt zbyt dlugiego wdychania"
  +" oparow sciekow.\n");
  say (QCNAME(this_player())+" nastawia uszu, nasluchujac...\n");
  return "";
}  

public void init()
{
  add_action (wech,"wachaj");
  add_action (wech,"wesz");
  add_action (wech,"powachaj");
  add_action (sluch,"sluchaj");
  add_action (sluch,"nasluch",1);
  add_action (utop,"utop");
  add_action (utop,"zatop");
  ::init();
}

public string opisscieku()
{
  string s = "Srodkiem kanalu plyna geste, okropnie"
  +" smierdzace scieki. Sa na tyle geste, ze nie wiesz, jaka glebokosc moze miec"
  +" szerokie koryto, ktorym plyna. Sa to nieczystosci z roznych czesci miasta - jesli dokladniej"
  +" przeanalizowal"+plpl("","a")+"bys ich sklad, mogl"+plpl("","a")+"bys okreslic,"
  +" z ktorej czesci miasta lub jakiej karczmy pochodzi dana czesc scieku - "
  +" jednak absolutnie nie masz na to ochoty. Szlam smierdzi tak potwornie, ze"
  +" masz wielka ochote szybko sie stad wydostac.\n";
  return s;
}

public string opisscian()
{
  string s = "Sciany kanalow zbudowane sa z dokladnie dopasowanych,"
  +" oszlifowanych blokow kamiennych. Sa one prawie idealnie gladkie, co powoduje, ze"
  +" para osiadajaca na nich natychmiast czyni je sliskimi i blyszczacymi."
  +" Co pewien odcinek na scianach widac kolumny lub luki, "
  +" podpierajace kopulasty sufit. Tuz przy scianach ciagna sie dwa polmetrowej"
  +" szerokosci chodniki, ktore sa na tyle sliskie, ze musisz uwaznie stawiac"
  +" kroki, by nie wpasc w scieki.\n";
  return s;
}

public string opissufitu()
{
  string s = "Ksztaltny, lukowaty sufit jest w niektorych"
  +" miejscach lekko spekany - nic dziwnego, przeciez chroni kanaly przed naciskiem"
  +" kilkuset ton ziemi i skal znajdujacych sie tuz nad nim juz prawie tysiac lat."
  +" Co pewien odcinek sufit podparty jest kolumnami lub masywnymi lukami, ktore"
  +" powoduja wrazenie, iz to miejsce byloby nawet malownicze, gdyby nie plynace"
  +" powoli samym srodkiem kanalu scieki.\n";
  return s;
}

public void create_imperium_room()
{
  set_short ("------- wpisz cos -------");
  set_long ("==== Tu masz cos wpisac ====\n");

/*
  add_prop (ROOM_S_DARK_LONG,"Jest tu za ciemno, zebys mogl"+plpl("","a")+" cokolwiek"
  +" zobaczyc. Czujesz jednak okropny odor, ktory przypomina Ci, ze jestes w kanalach."
  +" Slyszysz rozne odglosy, jak kapanie wody czy piski szczurow.\n");
*/
  add_item (({"sciane","sciany"}),"@@opisscian");
  add_item (({"scieki","sciek","szlam","kanal","nieczystosci"}),"@@opisscieku");
  add_item (({"sufit","sklepienie"}),"@@opissufitu");

  add_prop (ROOM_S_DARK_LONG,KANAL_CIEMNO);
  add_prop (ROOM_I_LIGHT,0);
  add_prop (ROOM_I_INSIDE,1);
}