inherit "/std/object";

#include <stdproperties.h>

#include <pl.h>

#include <macros.h>

int staroc;

void create_object()

{

  add_name("_mapa_elama_");

  ustaw_nazwe (({"mapa","mapy","mapie","mape","mapa","mapie"}),

      ({"mapy","map","mapom","mapy","mapami","mapach"}),

                PL_ZENSKI);

  dodaj_przym ("pozolkly","pozolkli");

  dodaj_przym ("stary","starzy");

staroc = 0;

  set_long("@@mapa");

}

rem()
{
   remove_object();
   write("Ku twojemu zaskoczeniu stary papier nagle rozsypuje sie w proch.\n");
}

string mapa()
{
if (staroc>4)
{
 set_alarm(0.1,0.0,&rem());
}
staroc++;
return
"To bardzo stara mapa. Na pozolklym papierze zaznaczona jest droga "+
"do starej wiezy w Gorach Czarnych. Wnioskujesz, ze aby dotrzec do "+
"celu nalezy isc na poludnie, kierujac sie czasem na wschod. "+
"Na odwrotnej stronie widnieja prawie nieczytelne slowa:\n"+

"...po dotarciu do straznika,... zaklecie... ...bram...\n"+
"Dalej jest wzmianka o klatwie i jakichs mitycznych skrzynkach.\n"; 
}