inherit "/lib/npc";

object mony;

void create() {
  ::create();
    SetKeyName("Melissa's Ghost");
    SetId( ({ "ghost","melissa","Melissa","Melissa's Ghost" }) );
    SetShort( "Melissa's ghost");
    SetAggressive( 0);
    SetLevel(1);
    SetLong( "A misty figure in a long flowing white gown.  "
	"She is wringing her hands and weeping.");
    SetMorality(-200);
    SetRace( "wraith");
    SetGender("female");
    SetCurrency("gold",random(50));
    SetMaxHealthPoints(25);
    SetHealthPoints(25);
    SetRace("human");
    mony = new("/lib/pile");
    mony->SetCurrency("silver",500);
    mony->move(this_object());
}

void catch_tell(string str) {
    object ob;
    string a, b, c;

    if(sscanf(str, "%s gives %s to you", a, b) == 2) {
	ob = present( lower_case(a), environment(this_object()));
	if(ob) {
	    tell_object(ob, "The ghost thanks you for your generosity.");
	    tell_room(environment(this_object()), "The ghost thanks "+a+" for "+ob->query_possessive()+" generosity.", ({this_object(), ob}));
	}
    }
    if(sscanf(str, "%ssmiles%s", a, b) == 2) tell_room(environment(this_object()), "The little ghost weeps piteously.", ({this_object()}));
}
