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

object paj;
object paj2;

reset_imperium_room ()
{
  ::reset_imperium_room();
  if (!paj)
  {
    paj = clone_object (NULN + "/npc/szczur.c");
    paj -> move (this_object());
  }
  if (!paj2)
  {
    paj2 = clone_object (NULN + "/npc/szczur.c");
    paj2 -> move (this_object());
  }
}

int sluch (string s)
{
  ::sluch(s);
  write ("Od wschodu slyszysz cichy, jednostajny szum.\n");
  return 1;
}

string opiskanalu()
{
    string s = "Znajdujesz sie w lekko pochylym segmencie kanalu. Jego nachylenie"
    +" latwo zauwazyc, gdyz scieki plyna w kierunku wschodnim szybciej, niz w innych"
    +" miejscach. Powoli obnizajacy sie korytarz podparty jest kilkoma masywnymi"
    +" lukami, ktore poteguja wrazenie zaglebiania sie w czelusci podziemi. Na chodnikach"
    +" po obu stronach scieku zauwazasz martwe, rozkladajace sie ciala szczurow kanalowych;"
    +" niektore z nich sa nawet lekko nadjedzone - i to nie przez robaki.\n";
    return s;
}

int zach (string s)
{
  write ("Korytarz prowadzi lekko w gore.\n");
}

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

  if (!paj)
  {
    paj = clone_object (NULN + "/npc/szczur.c");
    paj -> move (this_object());
  }
  if (!paj2)
  {
    paj2 = clone_object (NULN + "/npc/szczur.c");
    paj2 -> move (this_object());
  }

  add_item (({"szczury","ciala","trupy"}),"Zastanawiasz sie, co moglo byc powodem"
  +" smierci tych zwierzat. Niektore maja popodgryzane gardla, inne sa prawie calkiem"
  +" zjedzone, z kolei inne sa na tyle przegnile i przetrawione przez robaki, ze"
  +" nie jestes w stanie nic stwierdzic. Te szczury albo pozagryzaly sie wzajemnie,"
  +" albo zdechly z glodu, albo zatruly sie smrodem sciekow... w kazdym razie,"
  +" smrod rozkladajacego sie scierwa przyprawia Cie o mdlosci.\n");
  add_item (({"robaki","larwy","robale"}),"W kazdym ze zdechlych szczurow, jak rowniez"
  +" w sciekach zauwazasz klebiace sie i wijace setki, tysiace malych, oslizlych, ohydnych"
  +" larw. Dzieki nim wszystko zdaje sie pelzac, ruszac sie; o malo nie wymiotujesz,"
  +" gdy dostrzegasz szczegolnie duzego robala wylazacego z oczodolu szczura.\n");
  add_exit (ELEPATH+"/kan_2.c","zachod",0,1,0);
  add_exit (ELEPATH+"/kan_4.c","wschod",0,1,0);
}

void init()
{
  ::init();
  add_action (zach,"west");
  add_action (zach,"w");
  add_action (zach,"zachod");
}