/* memo pad by Cratylus @ Frontiers
 * Sep 21 2005
 */

#include <lib.h>
#include <vendor_types.h>
inherit LIB_ITEM;
int dirchecked;
string ownerstr,capownerstr,fileread;
object ownerob;
void create(){
    ::create();
    SetKeyName("memo pad");
    SetId( ({"pad","memo","memo pad","notepad"}) );
    SetShort("a yellow memo pad");
    SetLong("A yellow pad of papers to write your memos on. "+
      "There seems to be instructions on the reverse side.");
    SetMass(20);
    SetValue(10);
    SetVendorType(VT_TREASURE);
}
void init(){
    add_action("memo","memo");
    add_action("read_memo","read");
    add_action("clean_memo","fresh");
    add_action("erase_memo","erase");
    add_action("help_memo","help");
    add_action("exa_inst","examine");
    add_action("exa_inst","look");
    add_action("exa_inst","look at");
    ownerob=environment(this_object());
    if(living(ownerob)) capownerstr=capitalize(ownerob->GetKeyName());
    if(capownerstr) ownerstr=lower_case(capownerstr);
    dirchecked=0;
}
int memo(string str){
    if(!dirchecked){
	this_object()->checkdir();
    }
    if(!str){
	write("You do not write anything on your memo pad.\n");
	return 1;
    }
    write_file("/realms/"+ownerstr+"/log/memo",str+"\n");
    write("You add a memorandum to your memo pad.\n");
    say(capownerstr+" scribbles in "+possessive(this_player())+" memo pad.");
    return 1;
}
int read_memo(string str){
    if(str=="memo" || str=="memo pad" || str=="pad" || str=="notepad"){
	if(!dirchecked){
	    this_object()->checkdir();
	}
	fileread=read_file("/realms/"+ownerstr+"/log/memo");
	if(!fileread){
	    write("The memo pad is blank.\n");
	    return 1;
	}
	write("The pad reads:\n"+fileread+"\n");
	say(capownerstr+" flips through "+possessive(this_player())+" memo pad.\n");
	return 1;
    }
    if(str=="instructions" || str=="instruction"){
	this_object()->help_msg();
	return 1;
    }
}
int help_mem(string str){
    if(str=="memo" || str=="memo pad" ||str=="pad"||str=="notepad"){
	this_object()->help_msg();
	return 1;
    }
}
int help_msg(){
    write("The back of the pad reads:\n\n"+
      "cReMem Memo Pad, For your note-taking needs! Memo pad commands:\n"+
      "----------\n"+
      "memo <string> : Writes <string> into the pad.\n"+
      "read memo      : Reads the contents of your memo pad.\n"+
      "----------\n");
    say(capownerstr+" reads the back of a memo pad.\n");
    return 1;
}
int exa_inst(string str){
    if(str=="instruction" || str=="instructions" ||
      str=="at instruction" || str=="at instructions"){
	write("Instructions on the use of the memo pad.\n");
	return 1;
    }
}
int checkdir(){
    if(file_size("/realms/"+ownerstr+"/log") != -2) mkdir("/realms/"+ownerstr+"/log");
    dirchecked=1;
    return 1;
}