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 wzdloz sciany, starajac sie nie patrzec 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. Pomioty chaosu, najgorsz"
    + "y ze wszystkich wrogow, maja w nich swoje siedziby. 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 ("Prosty segment kanalu");
  set_long ("@@opiskanalu");
  add_exit (ELEPATH+"/kan18.c","polnocny-wschod",0,1,0);
  add_exit (ELEPATH+"/kan20.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();
}