/* brama obronna TKC
 * napisane przez Alfena
 */


#include "local.h"
#include "brama_n.h"
#include <pl.h>

inherit TPATH + "std/brama";

int ilosc;

void
create_brama()
{
	set_pass_command("poludnie");
	set_other_room(LPATH +"wn1");
	set_door_id(NORTH_GATE_ID);
	
	ilosc = 6;
}

int
open_door(string s)
{
	object ob;
	object tmp = this_player();
	int i = ::open_door(s);
	if (this_player()->query_prop(IMPERIUM_I_STWOR_CHAOSU)==1)
		return i;
	if (ilosc > 0  && i)
	{
	
	notify_fail("Ogromny stwor blokuj przejscie.\n");
	say("Nagle rozlegl sie trzask pekajacego kamienia, a powietrze "+
		"zostalo przeszyte krwiozerczym piskiem.\n");
	ob = clone_object(TPATH + "npc/gargulec");
	ob->szykuj();
	ob->move_living("Ms", environment(this_object()));
	ob->set_owner(this_object());
	ob->command("zabij "+ this_player()->query_nazwa(PL_BIE));
	ob = clone_object(TPATH + "npc/gargulec");
	ob->szykuj();
	ob->move_living("Ms", environment(this_object()));
	ob->set_owner(this_object());
	ob->command("zabij "+ this_player()->query_nazwa(PL_BIE));
	ilosc -= 2;
	}
	return i;
}

void dodaj()
{
	ilosc++;
}