/*
 * Gory Szare by Kaes marzec 98
*/

#include "kaes.h"
inherit STD + "pogoda.c";

#define TP this_player()

void
create_gory_szare()
{
 add_prop(ROOM_I_LIGHT, 2);

 add_prop(ROOM_I_INSIDE, 0);

 set_short("Gdzies w Gorach Szarych");
 set_long("@@opis");

 add_exit(PATH + "szare11.c","poludniowy-zachod",0,5);
 add_exit("/d/Imperium/Szare/Ogry/gildia/gildia1.c","poludnie","@@czy_mozna");

 add_item(({"sciezke","droge","waska sciezke","gorska sciezke","przejscie"}),
        "Waska sciezynka, pnie sie miedzy skalami...\n");
 add_item(({"gory","szczyty"}),"Wysokie, nagie, poszarpane szczyty otaczaja "+
          "cie z kazdej strony gorujac nad cala okolica.\n");
 add_item("baszte","Stara, ladnie wkomponowana w skale baszta.\n");
 set_event_time(20.0,300.0);
 add_event("Dreszcze cie przechodza.\n");
 add_event("Kilka kamieni spada ze skal polozonych wyzej.\n");
 set_events_on(1);
 }

string opis()
{
  return "  " + opis_przyrody() +
     "Mala sciezka, biegnaca pomiedzy starymi, spalonymi drzewami, "+
     "prowadzi prosto przez stara baszte, ktora jest wbudowana w otaczajace "+
     "ja skaly. Jest tu dosyc spokojnie, wiatr nie wieje juz tak jak w innych "+
     "partiach gor.\n";
}

int
czy_mozna()
{
    object wrog=TP->query_attack();
    if(TP->query_rasa() == "wilk"||
       wrog->query_rasa()=="wilk") 
       {
         write(capitalize(wrog->short(TP,PL_MIA)) + " zagradza ci droge wewnatrz.\n");
         return 1;
       }
    return 0;
}