inherit "/d/Imperium/std/poczta";
#include <stdproperties.h>
#include <macros.h>
#include <pl.h>
#include <stdproperties.h>
#include <macros.h>
#include <ss_types.h>
#define TO      this_object()
#define TP      this_player()
void
create_poczta()
{
  object pocztowiec;
  
  set_short("Poczta miasta Altdorf");
  set_long("@@dlugi_opis");
  
  pocztowiec=clone_object("/d/Imperium/Altdorf/npc/pocztowy.c");
  pocztowiec->move(TO);
  
  add_item(({"lade", "debowa lade", "dluga lade"}), "Jest to mocna, debowa " + 
      "lada, spelniajaca nie tylko role stolu, ale i wyjatkowo skutecznie oddziela " +
      "czesc dla interesantow od czesci dla personelu.\n");
  add_item(({"szafy", "szafe"}), "Wielkie szafy stojace ze debowa lada z tylu sali " +
      "zaslaniaja praktycznie cala sciane. Na polkach szaf umocowane sa specjalne " +
      "przegrodki na listy, w wiekszosci wypelnione.\n");
  add_item("przegrodki", "Wiekszosc przegrodek jest calkowicie wypelnionych listami.\n");
  add_item(({"list","listy"}), "Listy sa biale i plaskie. Jak to listy !\n");
  add_exit("/d/Imperium/Altdorf/Ulice/ulsig4", "poludniowy-zachod", 0, 1);
}
string
dlugi_opis()
{
  object pocztowiec;
  string tekst;
  string tekst1;
  string tekst2;
  pocztowiec = find_living("_pocztowiec_");
  tekst = "Znajdujesz sie na poczcie miasta Altdorf. " +
      "Pomieszczenie jest dosyc duze, czyste i utrzymane " +
      "we wzorowym porzadku. ";
  tekst1 = (present(pocztowiec, environment(TP)) ? 
      "Za dluga, debowa lada przedzielajaca sale siedzi " +
      "pocztowiec. Sciana za jego plecami jest w prawie w calosci " +
      "zaslonieta szafami na listy. " : 
      "Po drugiej stronie sali, odzielone od ciebie dluga, debowa lada, " +
      "stoja calkowicie zaslaniajace sciane szafy na listy.");
  tekst2 = "\n";
  tekst = tekst + tekst1 + tekst2;
  return tekst;
}