/* otchlan
 * napisane przez Alfena
 */
#include "local.h"
#include <pl.h>
#include <macros.h>

inherit TPATH + "std/twierdza";

int ilosc;

void dodaj()
{
	ilosc++;
}

void
create_twierdza()
{
	ilosc = 1;
	set_short("Otchlan");
	set_long("Znajdujesz sie w czerni. Otacza cie, przelewa sie przed "+
		"twoimi oczyma, czasem przybiera niepokojace ksztalty. "+
		"Oddychasz lub tez nieoddychasz, gdzyz nie wyczuwasz "+
		"powietrza, tego lekkiego drgania, ktore zazwyczaj ci "+
		"towarzyszylo w zyciu. Wszelako mozesz skoncentrowac "+
		"swoj wzrok na swietlistych kolumnach ustawinych obok siebie. "+
		"Wydaja sie one tworzyc podstawe portalu.\n");
		
	add_item(({"kolumny","swietliste kolumny"}),"Biale, rozedrgane "+
		"slupy energi. Mozna by przysiac, ze dzwiecza jakas piesnia. "+
		"Byc moze dotkniecie ktoregos z nich przynioslo by nowe "+
		"informacje.\n");
	add_cmd_item(({"slupa","swietlistego slupa","kolumne",
		"swietlista kolumne","kolumny","swietlistej kolumny"}),
		"dotknij",
		"@@dotknij@@");
}


string
dotknij()
{
	object tp = this_player(), ob;
	say(QCIMIE(tp, PL_MIA) + " dotkn" + tp->koncowka("al","ela") +
		" swietlistego slupa energii.\n");
	if (ilosc)
	{
		ilosc--;
		ob = clone_object(TPATH + "npc/upior");
		ob -> szykuj();
		ob -> move(this_object());
		if (!tp->query_prop(IMPERIUM_I_STWOR_CHAOSU))
		{
			ob->set_owner(this_object());
			ob->command("powiedz Nie przejdziesz!");
			ob->attack_object(tp);
		
		}
		return "Przez twoja reke przebiegly niewielkie "+
				"byskawice.\n";
	}
	tp->move(TPATH + "lokacje/swiatynia/wejscie");
	return "Przez twoja reke przebiegly niewielkie "+
				"byskawice.\n";
}

void
enter_inv(object ob, object from)
{
	::enter_inv(ob, from);
	if (!living(ob))
	{
		say(capitalize(ob->short(PL_MIA)) + " znika w przepastnej czelusci.\n");
		set_alarm(1.0, 0.0, "usun", ob);
	}
}


void
usun(object ob)
{
	ob->remove_object();
}