/*    /lib/events/lock.c
 *    from the Nightmare V Object Library
 *    Handles lock/unlock/pick events
 *    Created by Descartes of Borg 961221
 *    Version: @(#) lock.c 1.4@(#)
 *    Last modified: 96/12/23
 */

private string array    Keys         = ({});
private int             Locked       = 0;
private int             LockStrength = 0;
private static function Pick         = 0;

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

string array AddKey(string key) {
    return (Keys = ({ Keys..., key }));
}

varargs string array GetKeys(string unused) {
    return Keys;
}
    
varargs string array SetKeys(mixed array args...) {
    if( !args ) {
	error("Bad argument 1 to SetKeys().\n");
    }
    Keys = ({});
    foreach(mixed val in args) {
	if( !val ) {
	    continue;
	}
	if( arrayp(val) ) {
	    Keys = Keys + val;
	}
	else {
	    Keys = ({ Keys..., val });
	}
    }
    return Keys;
}

int GetLocked() {
    return Locked;
}

int SetLocked(int x) {
    return (Locked = x);
}

int GetLockStrength() {
    return LockStrength;
}

int SetLockStrength(int x) {
    return (LockStrength = x);
}

function GetPick() {
    return Pick;
}

function SetPick(function f) {
    return (Pick = f);
}

string array GetSave() {
    return ({ "Locked", "Keys", "LockStrength" });
}

mixed CanLock(object who, string id) {
    if( GetLocked() ) {
	return "It is already locked.";
    }
    return 1;
}

mixed CanPick(object who, string id) {
    if( !GetLocked() ) {
	return "Pick it when it is not even locked?";
    }
    return 1;
}

mixed CanUnlock(object who, string id) {
    if( !GetLocked() ) {
	return "It is already unlocked.";
    }
    return 1;
}

mixed eventLock(object who, object key) {
    string array ids = key->GetId();

    if( !sizeof(ids & GetKeys()) ) {
	send_messages("try", "$agent_name $agent_verb to lock $target_name "
		      "with " + key->GetShort() + ", but it does not work.",
		      who, this_object(), environment(who));
    }
    else {
	mixed tmp;

	send_messages("attempt", "$agent_name $agent_verb to lock "
		      "$target_name with " + key->GetShort() + ".",
		      who, this_object(), environment(who));
	tmp = key->eventLockLock(who, this_object());
	if( tmp != 1 ) {
	    if( tmp ) {
		who->eventPrint(tmp);
	    }
	    return 1;
	}
	if( !SetLocked(1) ) {
	    return 0;
	}
	environment(who)->eventPrint(capitalize(GetDefiniteShort()) +
				     " locks.");
    }
    return 1;
}

varargs mixed eventPick(object who, string id, object tool) {
    mixed tmp;
    int strength;

    if( !tool ) {
	strength = (int)who->GetSkillLevel("stealth");
    }
    else {
	tmp = tool->eventPickLock(who, id, this_object());
	if( tmp != 1 ) {
	    if( !tmp ) {
		return "Tools not supported.";
	    }
	    return tmp;
	}
	strength = tmp + who->GetSkillLevel("stealth");
    }
    who->AddSkillPoints("stealth", strength + 1);
    who->AddStaminaPoints(-LockStrength/10.0);
    if( Pick ) {
	tmp = evaluate(Pick, who, id, tool, strength);
	if( tmp != 1 ) {
	    if( !tmp ) {
		who->eventPrint("You fail to pick it.");
		return 1;
	    }
	    return tmp;
	}
	who->AddSkillPoints("stealth", 2*(LockStrength + strength));
	if( SetLocked(0) ) {
	    return 0;
	}
	return 1;
    }
    if( strength > ( LockStrength / 10 + random(LockStrength) ) ) {
	who->AddSkillPoints("stealth", 2*(LockStrength + strength));	
	if( SetLocked(0) ) {
	    return 0;
	}
	send_messages("pick", "$agent_name $agent_verb the lock on "
		      "$target_name!", who, this_object(), environment(who));
	return 1;
    }
    send_messages("fail", "$agent_name $agent_verb in $agent_possessive "
		  "attempt to pick the lock on $target_name.",
		  who, this_object(), environment(who));
    if( random(100) > strength ) {
	send_messages("cut", "$agent_name $agent_verb $agent_reflexive "
		      "on the lock.", who, this_object(), environment(who));
         who->eventReceiveDamage(this_object(), 8, random(10) + 1);
    }
    return 1;
}

mixed eventUnlock(object who, object key) {
    string array ids = key->GetId();;

    if( !sizeof(ids & GetKeys()) ) {
	send_messages("attempt", "$agent_name $agent_verb to unlock "
		      "$target_name with " + key->GetShort() + ", but it "
		      "does not work.", who, this_object(), environment(who));
    }
    else {
	mixed tmp;

	send_messages("attempt", "$agent_name $agent_verb $target_name with "+
		      key->GetShort() + ".", who, this_object(),
		      environment(who));
	tmp = key->eventUnlockLock(who, this_object());
	if( tmp != 1 ) {
	    if( tmp ) {
		who->eventPrint(tmp);
	    }
	    return 1;
	}
	if( SetLocked(0) ) {
	    return 0;
	}
	environment(who)->eventPrint(capitalize(GetDefiniteShort()) +
				     " comes unlocked.");
    }
    return 1;
}

mixed direct_lock_obj_with_obj(object target, object key, string id) {
    return CanLock(this_player(), remove_article(lower_case(id)));
}

mixed direct_pick_str_on_obj(string str, object target, string str2,
			     string id) {
    if( remove_article(lower_case(str)) != "lock" ) {
	return "Pick the what?";
    }
    return CanPick(this_player(), id);
}

mixed direct_pick_str_on_obj_with_obj(string str, object target, object tool,
				      string str2, string targ_id) {
    if( remove_article(lower_case(str)) != "lock" ) {
	return "Pick the what?";
    }
    targ_id = remove_article(lower_case(targ_id));
    return CanPick(this_player(), targ_id);
}
  
mixed direct_unlock_obj_with_obj(object target, object key, string id) {
    return CanUnlock(this_player(), remove_article(lower_case(id)));
}