/* Krypta pod Swiatynia Sigmara
 * Autor: Lakshmi
 * Data:  07.09.98
 */

#include "zamek.h"
#include <ss_types.h>

inherit STD +"krypta_std.c";

create_krypta_room()
{

	set_long("@@opis");
	

	add_exit(PATH + "krypt_b3.c","poludnie",0,0,0);
	add_exit(PATH + "krypt_b3.c","polnocny-wschod", 1, 0,
	         "@@niewidoczne");

        add_item(({"sarkofag","ozdobny sarkofag","kamienny sarkofag"}),
                   "Jest to bogato zdobiony sarkofag z szarego kamienia. "+
                   "Wyglada na nienaruszony, a zdobienia swiadcza, iz "+
                   "spoczywa w nim ktos bardzo wazny. Na jego pokrywie "+
                   "zauwazasz jakas inskrypcje.\n");
                   
        add_item(({"inskrypcje"}),
                 "Poczatkowo zawile linie ukladaja sie w napis:\n\n"+
                 "\t\t _________________________________________________________\n"+
                 "\t\t|                                                         |\n"+ 
                 "\t\t|     Tu spoczywa cialo Siegfrieda von Kesselringa,       |\n"+
                 "\t\t|               wyernego slugi Sigmara.                   |\n"+
                 "\t\t|    Czcigodnego rycerza swiatynego i chrobrego meza.     |\n"+
                 "\t\t| Niech dusza yego spokoy wieczny znaydzie w niebiesiech. |\n"+
                 "\t\t|_________________________________________________________|\n");
                 
    add_item (({"szczeline"}), "@@opis_szczeliny");
          
}

void
init()
{
    ::init();
    add_action ("przejdz", "polnocny-wschod");
    add_action ("przejdz", "ne");
}

int
przejdz(string str)
{
    if (stringp(str))
        return 0;        
    if (this_player()->query_skill(SS_AWARENESS) < 45)
    {
        write ("Nie widzisz zadnego wyjscia prowadzacego na " +
               "polnocny-wschod.\n");
        return 0;
    }
    write ("Przeciskasz sie przez szczeline. Troche ciezko ci to idzie, ale " +
           "chyba dasz rade.\n");
    say (QCIMIE (this_player(), PL_MIA) + " " + "@@wyswietl:" + 
         file_name(this_object()) + "@@");
    /*
     *   cel przejscia ponizej:
     */
    this_player()->move_living("M", PATH + "krypt_b3.c", 1, 0);
    return 1;
}

string
wyswietl()
{
    return (previous_object(-1)->query_skill(SS_AWARENESS) > 45 ? 
            "przeciska sie przez szczeline w polnocno-wschodniej scianie.\n "
            : "nagle gdzies znika.\n");
}

string
opis()
{
    return       "Pomieszczenie, a raczej malenka salka, w ktorej sie "+
		 "aktualnie znajdujesz, to nic innego, jak komnata "+
		 "grobowa jednego z kaplanow Sigmara. Dokladnie posrodku "+
		 "tej salki, czy tez scislej mowiac niszy, widzisz ozdobny "+
		 "kamienny sarkofag. To bardzo dziwne, ale wyglada na "+
		 "nienaruszony, nie tylko przez czas, ale i przez istoty, "+
		 "ktore zniszczyly sasiednie nisze. Ciekawe dlaczego?" +
		 (this_player()->query_skill(SS_AWARENESS) >= 45 ?
		 " W polnocno-wschodniej scianie zauwazasz spora szczeline, " +
		 "byc moze udaloby ci sie przez nia przecisnac.\n" : "\n");
}

string
opis_szczeliny()
{
    return (this_player()->query_skill(SS_AWARENESS) >= 45 ?
    /*
     * W tym miejscu powinien byc opis szczeliny dla kogos kto ja widzi:
     */
           "Opis szczeliny.\n"
           : "Nie zauwazasz niczego takiego.\n");
}

int
niedostepne()
{
    if (this_player()->query_skill(SS_AWARENESS) < 45) 
    {
    	write("Nie widzisz zadnego wyjscia prowadzacego na " +
    	      "polnocny-wschod.\n");
        return 1;
    }
    
}

int
niewidoczne()
{
    if (this_player()->query_skill(SS_AWARENESS) < 45) 
        return 1;
}