#pragma save_binary
inherit "/std/room";
#include <stdproperties.h>
#include <mail.h>
#define MAILCHECKER "/secure/mail_checker"
#define MAILREADER "/secure/mail_reader"


void
create_room()
{
 set_short("Poczta czarodzieja Morenndira.");
 set_long("Tak jak w poprzednim pokoju widzisz tutaj bardzo duzo zwoi "+
          "i roznych papierow.Wszystko jest w malowniczym nieladzie,co "+
          "jednak tylko dodaje uroku temu pokojowi.Na srodku pomieszczenia "+
          "stoi okragly,bogato rzezbiony okragly stol.Przy stole "+
          "postawiono bogato zdobione krzeslo.Po rzuceniu ukradkiem wzroku "+
          "na stos papierow lezacych przed toba domyslasz sie,ze do tej "+
          "poczty ma dostep tylko czarodziej o imieniu Morenndir.\n");
    add_item("papiery","Sa to listy do czarodzieja.Niektore papiery "+
          "zostaly tylko po czesci zapisane i wyglada na to,ze "+
          "Morenndirowi nie chcialo sie dalej odpisywac.\n");
    add_item("stol","Stol jest okragly i drewniany.Zauwazasz na nim "+
          "wyrzezbione fantastyczne wzory,ktore moga byc tylko "+
          "tworem magii Morenndira.\n");
    add_item("krzeslo","Krzeslo zostalo stworzone w praktycznie w "+
          "ten sam sposob,co stol.Zauwazasz na nim fantastyczne zdobienia "+
          "ktore mogl stworzyc tylko jakis czarodziej.\n");

    add_prop(ROOM_I_INSIDE, 1);
    add_exit("/d/Imperium/morenndir/workroom.c", "pokoj");
}

init()
{
  object obj;
  ::init();

  if (present(READER_ID, this_player()))
    return 1;
  
  if ((obj = clone_object(MAILREADER)) != 0)
    {
      obj->move(this_player());
    }
}

leave_inv(object who, object where)
{
  object obj;

  if (who &&
      where &&
      where != this_object() &&
      (obj = present(READER_ID, who)) != 0)
    
    obj->remove_object();
  ::leave_inv(who, where);
}

query_mail(silent)
{
  int mail;
  string tekst;

  seteuid(getuid());
  mail = MAILCHECKER->query_mail();
  if (!mail)
    return 0;
  if (silent)
    return 1;
  tekst = "";
  if (mail == 2)
    tekst += "\n-------------------------------------------------------------";

  tekst += "\nCzeka na ciebie";
  if (mail == 2)
    tekst += " NOWA";
  if (mail == 3)
    tekst += " nieprzeczytana";
  tekst += " poczta w najblizszym urzedzie pocztowym.\n";
  if (mail == 2)
    tekst += "-------------------------------------------------------------\n";
  tekst += "\n\n";
  write(tekst);
  return 1;
}