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

int read_memo(string str);
int help_msg();

string ReadFun(mixed args...){
    help_msg();   
    return "";
} 

#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 written on it.");
    SetMass(20);
    SetVendorType(VT_TREASURE);
    SetItems(([ ({"instruction", "instructions", "words"}) : "Words that "+
        "explain how to use the notepad. Try: read instructions on notepad.",
      ]) );
    SetRead( ([ ({"instruction", "instructions", "words"}) : (: ReadFun :),
        "default" : (: read_memo :),
      ]) );
}

void init(){
    ::init();
    add_action("memo","memo");
    add_action("clean_memo","fresh");
    add_action("erase_memo","erase");
    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(homedir(this_player())+"/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(mixed str...){
    if(!dirchecked){
        this_object()->checkdir();
    }
    fileread=read_file(homedir(this_player())+"/log/memo");
    if(!fileread){
        write("The memo pad is blank.\n");
        write("For instructions: read instructions on memo pad");
        return 1;
    }
    write("The pad reads:\n"+fileread+"\n");
    say(capownerstr+" flips through "+possessive(this_player())+" memo pad.\n");
    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 checkdir(){
    if(file_size(homedir(this_player())+"/log") != -2) mkdir(homedir(this_player())+"/log");
    dirchecked=1;
    return 1;
}