inherit "/d/Imperium/Nuln/kanaly/kanal_room.c";
#include <std.h>
#include <macros.h>
#include "elear.h"
#include <stdproperties.h>

string opiskanalu()
{
    string s = "W tym miejscu kanal skreca " + lmov ((["poludnie":"na zachod",
    "wschod":"na polnoc"]), "z zachodu na polnoc") + ". Nie wyroznia sie niczym "
    + "szczegolnym - srodkiem kanalu plynie struga obrzydliwych, smierdzacych sciekow, "
    + "wszedzie widac zdechle szczury lub slychac z oddali piski zywych - nietypowe "
    + "jest tylko to, ze w sciekach zauwazasz unoszaca sie ludzka reke.\n"
    + "Smierdzi tu przeokropnie, glownie z powodu obecnosci owej gnijacej reki."
    + ".. smrod przyprawia Cie o zawroty glowy.\n";
    return s;
}

void create_imperium_room()
{
  ::create_imperium_room();
  set_short ("Zakret kanalu");
  set_long ("@@opiskanalu");

  add_item (({"reke","dlon","ludzka reke"}),"Widzisz unoszaca sie w sciekach"
  +" ludzka reke. Po blizszych ogledzinach stwierdzasz, ze nie zostala ona"
  +" odcieta ani amputowana - zostala po prostu oderwana od reszty ciala,"
  +" i to jeszcze kiedy byla zywa...\n"
  +" Oprocz tego kilka palcow z dloni zostalo albo odcietych, albo odgryzionych"
  +" - trudno stwierdzic. Wolisz jednak nie wiedziec, gdzie znajduje sie"
  +" reszta ciala, ani tym bardziej kto tak nieszczesnika zalatwil...\n");
    
  add_cmd_item (({"reke","dlon","ludzka reke"}),({"zabierz","wez","podnies"}),
   "Chcesz zabrac czyjas gnijaca, urwana reke!? Co Ty bys zrobil"+plpl("","a")
  +", gdyby Twoje czesci ciala ktos chcial nosic po kanalach??\n"
  +"Zreszta po prostu sie brzydzisz.\n");

  add_exit (ELEPATH+"/kan_8.c","polnoc",0,1,0);
  add_exit (ELEPATH+"/kan10.c","zachod",0,1,0);
}

int wyz (string s)
{
    write ("Korytarz powoli opada.\n");
}

void init()
{
  add_action ("wyz","polnoc");
  ::init();
}