/* poczta,
 * napisane przez Alfena
 */
 
#include "local.h"

inherit TPATH + "std/twierdza";

#include <mail.h>

#define MAILC "/secure/mail_checker"
#define MAILR "/secure/mail_reader"


void
create_twierdza()
{
	set_long("Znajdujesz sie w niewielkiej komnatce, w ksztalcie "+
		"szesciokata. Z sufitu zwisa bezwladnie, smetnie sie "+
		"kolyszac resztka kandelabru, niewielki zdewastowany "+
		"stolik udaje narzedzie sluzace pomocy istotom "+
		"piszacym listy. Na scianie wisi rama z wlozona pozolka ze "+
		"starosci kartka. "+query_long()+"\n");
	set_short("Urzad Pocztowy");
	add_item("kandelabr","Widac, ze to urzadzenie przezylo juz niejedno. "+
		"Poczawszy od zawieszania na nim szczurow, a skonczywszy "+
		"na duzo wiekszych istotach.\n");
	add_item("rame","Stara zbutwiala rama, mocno nadzarata przez korniki "+
		"i inne glodne jednostki, nie wylaczajac mutantow.\n");
	add_item("kartke","To byl chyba kiedys dyplom, jednakze dzis trudno "+
		"sie zorientowac w prawdziwosci tego twierdzenia. "+
		"Orientujesz sie, ze nastepujace plamy atramentu znacza: "+
		"?poczta.\n");
	
	add_exit(TPATH + "lokacje/wn8", "wschod");
}

void
init()
{
	object ob;
	::init();
	
	if (present(READER_ID, this_player()))
		return ;
	if ( ob=clone_object(MAILR) )
		ob->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 = MAILC->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;
}