inherit "/d/Imperium/Kislev/obj/bramy.c";
#include <local.h>


object br;


void
create_imperium_room()
{
::create_imperium_room();

br = clone_object(OBJ+"wr_s_wej.c");
   br -> move(TO);
   
   
set_short("Trakt Kislevski");
set_long("Znajdujesz sie na nieco zarosnietym trakcie "+
  "prowadzacym z samej stolicy Imperium do Kislevu - miasta "+
 "skrytego w mrozach i sniegach dzikiej polnocy.\n");


 add_exit(br->query_other_room(), br->query_pass_command()[0],
     "@@brama_zam", 1, "@@brama_zam");

add_exit(TRAKT+"area1","poludnie",0,1,0);     
}


void otworz_zamknij()
{
  if (br->query_open())
    zamknij_brame(br);
   else
    otworz_brame(br);
}


int brama_zam()
{
 return !br->query_open();
}


int brama_otw()
{
  return !brama_zam();
}