/*    /lib/events/close.c
 *    from the Dead Souls V Object Library
 *    handles closing and opening events
 *    created by Descartes of Borg 960115
 *    Version: @(#) close.c 1.5@(#)
 *    Last modified: 96/12/23
 */

private int Closed;

// abstract methods
string GetDefiniteShort();
// end abstract methods

int GetClosed() {
    return Closed;
}

int SetClosed(int x) { 
    Closed = x;
    parse_refresh();
    return Closed;
}

string array GetSave() {
    return ({ "Closed" });
}

mixed CanClose(object who) {
    if( Closed ) {
	return capitalize(GetDefiniteShort()) + " is already closed.";
    }
    else return 1;
}

varargs mixed CanOpen(object who, object tool) {
    if( !Closed ) {
	return capitalize(GetDefiniteShort()) + " is already open.";
    }
    else return 1;
}

mixed eventClose(object who) {
    if( !SetClosed(1) ) {
	return 0;
    }
    send_messages("close", "$agent_name $agent_verb $target_name.",
		  who, this_object(), environment(who));
    return 1;
}

varargs mixed eventOpen(object who, object tool) {
    if( SetClosed(0) ) {
	return 0;
    }
    send_messages("open", "$agent_name $agent_verb $target_name.",
		  who, this_object(), environment(who));
    return 1;
}

int inventory_accessible() {
    return !GetClosed();
}

int inventory_visible() {
    return !GetClosed();
}

mixed direct_close_obj(object target) {
    return CanClose(this_player());
}

mixed direct_open_obj(object target) {
    return CanOpen(this_player());
}

mixed direct_open_obj_with_obj(object target, object tool) {
    return CanOpen(this_player(), tool);
}