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


object br;

void
create_imperium_room()
{
::create_imperium_room();

 br = clone_object(OBJ+"wr_n_wyj.c");
   br -> move(TO);
   

    set_alarm(1.0, 200.0, "otwarta", br);
    

set_short("Poludniowa brama Kislevu");
set_long("Olbrzymie, wznoszace sie na poludniu wrota strzega dostepu "+
	    "do wnetrza miasta, a straz czuwa by zaden wrog "+
	    "nie wdarl sie niepowolany.\n");

set_guard();

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

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();
}