//
// Ruiny nad brzegiem morza
// plik ruiny.c
// ver 1.0

inherit "/d/Imperium/std/room.c";

#include <macros.h>
//#include <stdproperties.h>

#include "loudernn.h"

int ob_przedmioty();

void
create_imperium_room()
{
	set_short("Ruiny na skalnym urwisku");	
	set_long("Stoisz na zgliszczach wiezy, gdzieniegdzie walaja sie " +
	    "jakies przedmioty, wszystko sprawia ponure wrazenie " +
	    "ale zdaje sie ze ten co sie tu osiedlil ma wielki zapal " +
	    "do pracy. Spogladajac na zachod spostrzegasz rozlegle " +
	    "urwisko skalne nad brzegiem morza.\n");	

	add_item(({"przedmioty","zgliszcza"}),
		   "jakies magiczne i inne niewiadomego przeznaczenia " +
		   "przedmioty walaja sie w promieniu kilkudziesieciu " +
		   "metrow. Moze by je zbadac?\n");

	add_item("plaze",
		 "Dostrzegasz, iz moglbys sprobowac zejsc po " +
		 "urwisku na plaze.\n");

	add_item(({"urwisko","morze","brzeg"}),
		   "Stoisz niedaleko brzegu urwiska, ktore stromo " +
		   "niemal pionowo opada ku kamienistej plazy.\n");

	add_cmd_item(({"przedmiot","przedmioty"}),"zbadaj",ob_przedmioty);
}

void
init()
{
	::init();
	add_action("zejdz","zejdz");
}

int
zejdz(string gdzie)
{
	notify_fail("Gdzie chcesz zejsc? \n");
	if (!gdzie || gdzie != "na plaze")
	{
		return 0;
	}
	else
	{
		TP->move_living("na plaze.", PATH+"plaza/pl.c", 0, 0);
		return 1;
	}
}


int
ob_przedmioty()
{
    write("schylasz sie po jakis dziwnego ksztaltu " +
          "przedmiot. Po dokladnym obejrzeniu nadal nie masz " +
          "pojecia co mozna z nim zrobic, wiec odrzucasz go.\n");
    saybb(QCIMIE(this_player(), PL_MIA)+ 
	  " schyla sie i podnosi jakies dziwne przedmioty. " +
	  "Wyglada na to ze niewie co z nimi zrobic, wiec " +
	  " odrzuca je spowrotem na ziemie.\n");
    return 1;
}