inherit "/d/Imperium/Nuln/kanaly/kanal_room.c";
#include <std.h>
#include <macros.h>
#include "elear.h"
#include <stdproperties.h>
object paj = allocate(12);
string opiskanalu()
{
    string s = "Pos"
    + "uwasz sie powoli wzdloz scian, z obawa patrzac na zacier plynacy "
    + "przed toba. Kamienne posagi podtrzymujace strop, poglebiaja uczucie iz"
    + " ktos cie obserwuje. Malutkie, czerwone punkciki setkami biegaja poza " 
    + "zasiegiem twojego swiatla. Przypominaja ci sie opowiesci o mieszkancac"
    + "h podziemi i ciarki przechodza ci po plecach."
    + " Uczucie obrzydzeni"
    + "a poglebiaja cuchnace opary scieku z wolna plynacego u Twych"
    + " stop.\n";
    return s;
}
void create_imperium_room()
{
  ::create_imperium_room();
  set_short ("Podluzny odcinek kanalu");
  set_long ("@@opiskanalu");
  add_exit (ELEPATH+"/kan16.c","polnocny-wschod",0,1,0);
  add_exit (ELEPATH+"/kan18.c","poludniowy-zachod",0,1,0); 
    
  reset_imperium_room();
  
  add_item(({"zacier","sciek"}), 
       "Masz juz serdecznie dosc smrodu tego miejsca. Zawroty glowy powoduja"
      + "ze raz po raz przylegasz do sciany bojac sie wpasc do tego scierwa."
      + "\n");
   
  add_item(({"posagi","rzezby"}), "Kamienne gargoyle mimo swoje" 
      + "j solidnosci wykonania, wygladaja jednak na nadszarpniete przez czas "
      + "i wilgoc.\n");
   
  add_item(({"punkciki","swiatelka"}), 
        "Najprawdopodobniej naleza one do szczurow, ale kto wie...\n");
   
}
void reset_imperium_room()
{
  int i;
  ::reset_imperium_room;
  for(i=0; i<12; i++)
  if (!paj[i])
  {
    paj[i] = clone_object(NULN+"/npc/szczur.c");
    paj[i] -> move (this_object());
  }
}
void init()
{
  ::init();
}