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

object paj1;
object paj2;

string opiskanalu()
{
    string s = "Niepewnie, wsrod mrokow, rozswietlanych przez Twoje "
    + "zrodlo swiatla, posuwasz sie nisko sklepionym kanalem. Kamienne kulumny"
    + " podpieraja wiekowy strop. Starasz sie n"
    + "ie myslec czyje piski dochodza do ciebie z glebi korytarza. Skutecznie "
    + "pomaga ci w tym odor plynacej obok fosforyzujacej mazi. Smrod gowna, m"
    + "oczu, wymiocin i zgnilizny jest przytlaczajacy. \n";
    return s;
}

void create_imperium_room()
{
  ::create_imperium_room();
  set_short ("Podluzny odcinek kanalu");
  set_long ("@@opiskanalu");
  add_exit (ELEPATH+"/kan12.c","polnocny-wschod",0,1,0);
  add_exit (ELEPATH+"/kan14.c","poludniowy-zachod",0,1,0);
  
  paj1 = clone_object(NULN+"/npc/szczur.c");
  paj1 -> move (this_object());
  paj2 = clone_object(NULN+"/npc/szczur.c");
  paj2 -> move (this_object());

  add_item(({"rzeke","sciek","nieczystosci","zupe","maz"}), 
      "Tuz obok Twoich nog, szeroka na okolo dwa metry, plynie bulgoczaca br"
     + "eja z ekstrementow. Odor jej jest wyjatkowo paskudny. Od oparow zaczy"
     + "na Ci sie krecic w glowie i zbiera sie na wymioty.\n");
   
}

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

void init()
{
  ::init();
}