// /domains/Praxis/obj/misc/gallows.c
//  Gallows for the Nightmare Mortal Law system
//  Written by Manny@Nightmare  940823

#include <lib.h>

inherit LIB_ITEM;
object hangman;
void set_hangman(object who);


create() {
    ::create();
    SetKeyName("gallows");
    SetId( ({ "gallows", "noose", "platform" }) );
    SetShort("the gallows");
    SetLong( (: "long_func" :) );
    SetPreventGet("You cannot get that!");
}

string long_func() {
    string str, name;

    str = "A large wooden platform with two upright timbers and "
        "a crossbeam with a rope and noose.";
    if(hangman) {
        if(name = capitalize(present("the corpse of "+hangman->query_name(),
                        environment(this_object()))->GetKeyName()))
            str += "\n"+name+" is hanging from the noose.";
        else str += "\n"+hangman->query_cap_name()+" is standing "
            "upon the platform, noose around "+hangman->query_possessive()+" neck.";
    }
    return str;
}

void set_hangman(object who) { hangman = who; }