// Przedbramie Palanthasu
// Aetherian@Sarcan 30.12.2002

#include "../pal.h";
inherit OBJ+"brama.c";

object br;

void create_room()
{
	::create_room();		
	br = clone_object(OBJ + "brama_w_out.c");
  	br -> move(TO);

	set_alarm(1.0, 30.0, "otwarta", br);
	
	set_short("U wrot Palanthasu");
	set_long("Stoisz u wrot najwiekszego w okolicy miasta Palanthas. "
	+"Na wschod od ciebie znajduje sie wielka, stalowa brama prowadzaca "
	+"do miasta.\n");

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