#include <lib.h>

inherit LIB_ROOM;

object *begging;

void init() {
    ::init();
    add_action("confess", "confess");
    add_action("pray", "pray");
}

void create() {
    ::create();
    SetListen("default", "You hear the faint sounds of "
      "chanting from up the stairs.");
    SetListen("upstairs", "You hear the chanting of monks.");
    SetListen("chants", "We serve an old man in a dry season"
      "\nA lighthouse keeper in the desert sun\n"
      "Dreamers of sleepers and white treason\n"
      "We dream of rain and the history of the gun\n");
    begging = ({});
    SetShort( "Praxis monastary");
    SetLong(
      "You are in the ornate monastary of Praxis.\n"
      "In this huge open monastary run by Praxis monks, the wretched "
      "murders come to confess, and the dead come to pray for resurrection. "
      "A small stairway to the east leads to the monastary attic and "
      "basement. The Praxis Chapel where monks marry people is north. "
      "Boc La Road is outside the monastary to the south. ");
    SetExits( 
      (["south" : "/domains/Praxis/e_boc_la1",
        "east" : "/domains/Praxis/stairs",
        "north" : "/domains/Praxis/chapel"]) );
    SetProperty("light", 2);
    SetProperty("indoors", 1);
    SetItems(
      (["monastery" : "The home of the Nightmare monks.", 
        "chamber" : "People come here to pray for resurrection "
        "when they die.", 
        "stairway" : "A small spiral set of stairs leading to "
        "the attic and cellar.", 
        "road" : "Boc La Road."]) );
    SetProperty("no attack", 1);
    SetProperty("no steal", 1);
    SetProperty("no castle", 1);
}

int pray() {
    if(!this_player()->query_ghost()) {
        notify_fail("The living do not need to pray for revival.\n");
        return 0;
    }
    this_player()->revive();
    this_player()->SetHealthPoints(10);
    this_player()->set_heart_beat(1);
    this_player()->set_heal_rate(2);
    return 1;
}

int confess(string str) {
    object *inv;
    int i, ok;
    string res;

    if(str != "murder") {
        notify_fail("Confess what?\n");
        return 0;
    }
    ok = 0;
    if(sscanf((string)this_player()->getenv("TITLE"), "%s murderer $N%*s", res)
      != 1) {
        notify_fail("You are no murderer.\n");
        return 0;
    }
    i = sizeof(inv = all_inventory(this_object()));
    while(i--) if((string)inv[i]->query_class() == "monk") ok = 1;
    if(!ok) {
        write("There is no one here to whom you may confess.");
        return 1;
    }
    message("my_action", "You beg the monks for forgiveness for "
      "your murder of a "+lower_case(res)+".", this_player());
    message("my_action", ("You pray that forgiveness does not mean "
        "death."), this_player());
    say(this_player()->query_cap_name()+" begs for "+
      this_player()->query_possessive()+" murder of a "+
      lower_case(str)+".");
    begging += ({ this_player() });
    call_out("forgive", 60, this_player());
    return 1;
}

object *query_forgiven() { return begging; }

void forgive(object ob) {
    string tmp;

    if(member_array(ob, begging) == -1) return;
    begging -= ({ ob });
    tmp = (string)call_other("/domains/Praxis/"+(string)ob->query_class()+"_hall",
      "get_new_title", ob);
    message("info", "You are now forgiven.", ob);
    ob->setenv("TITLE", tmp);
    ob->add_mp(-500);
    ob->add_hp(100- ((int)ob->query_skill("faith")));
}