/*
 * Ulica Athel-Loren 
 * by Ellentir (kwiecien/maj 98)
 */


#include "ogolne.h"

inherit APATH + "athel.c";

void
create_athel()
{
   set_short("Jedna z ulic Athel-Loren");
   
   add_exit(APATH+"ulica02.c","polnoc",0,1);
   add_exit(APATH+"ulica03.c","poludnie",0,1);
   add_exit(LASPATH+"las65.c","wschod","@@wychodzi_z_athel",1);
}

string
dlugi_opis()
{
   return(opis_pory_roku() + " Przekraczasz magiczna brame i twym oczom "+
	"ukazuje se przepiekny widok. Miedzy pratarymi drzewami wija sie "+
	"tu waskie sciezki, przy ktorych co pewien czas jacys wspaniali "+
	"rzezbiarze ustawili swe dziela. Calosc skapana jest w delikatnej, "+
	"szarej mgle, ktora lagodzi wszelkie odglosy tak, ze do twych uszu "+
	"dochodzi jedynie jakas cichusienka melodia o bardzo skomplikowanym "+
	"rytmie. Po chwili do melodii dolacza cudowny kobiecy glos i zdaje "+
	"ci sie, ze przez moment cala okolica rozblyskuje swiatlem w holdzie "+
	"tak wspanialej muzyce...\n");
}

int
wychodzi_z_athel()
{
 int a,czy_byli;
 object *tablica;

 if(this_player()->query_follow()!=0) return 0;

 if(function_exists("create_elfa", this_player())) return 1;

 if(this_player()->query_prop(IMPERIUM_LIVE_I_ATHEL_CITIZEN)) return 1;

 czy_byli=0;

 tablica=deep_inventory(this_player());

 for(a=0;a<sizeof(tablica);a++)
    {
       if(tablica[a]->id("lucznicy"))
          {
            tablica[a]->remove_object();
            czy_byli=1;
          }
    }
 if(czy_byli)
    write(this_player()->koncowka("Wyszedles","Wyszlas")+" z Athel Loren, a lucznicy pozostali w miescie i przerwali ostrzal. Jednak lepiej im sie wiecej nie pokazuj, "
        + "gdyz moga nie byc tak laskawi jak tym razem ... \n");
}