/*    /lib/events/lock.c
 *    from the Dead Souls Object Library
 *    Handles lock/unlock/pick events
 *    Created by Descartes of Borg 961221
 *    Version: @(#) lock.c 1.4@(#)
 *    Last modified: 96/12/23
 */
#include <damage_types.h>

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;
}

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

varargs mixed eventLock(object who, mixed arg1, mixed arg2){
    string array ids = ({});
    object key;

    if(objectp(arg1)) key = arg1;
    else if(objectp(arg2)) key = arg2;
    else return "There seems to be a problem with unlocking things.";

    ids = key->GetId();
    ids += ({ key->GetName() });

    if(key->LockFun(1,key,lower_case(this_object()->GetName()))){
        return 1;
    }

    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;
    mixed *prehensiles = ({});
    string limb;

    if(!who) return 0;

    prehensiles = who->GetWieldingLimbs();
    if(!sizeof(prehensiles)){
        who->eventPrint("You lack prehensile limbs with which to do that.");
        return 1;
    }

    limb = prehensiles[random(sizeof(prehensiles))];

    if( !tool ){
        strength = (int)who->GetSkillLevel("stealth");
    }
    else {
        tmp = tool->eventPickLock(who, id, this_object());
        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));	
        SetLocked(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(), PIERCE, random(10) + 1, 0, limb);
    }
    return 1;
}

varargs mixed eventUnlock(object who, mixed arg1, mixed arg2){
    string array ids = ({});
    object key;

    if(objectp(arg1)) key = arg1;
    else if(objectp(arg2)) key = arg2;
    else return "There seems to be a problem with unlocking things.";

    ids = key->GetId();
    ids += ({ key->GetName() });

    if(key->UnLockFun(1,key,lower_case(this_object()->GetName()))){
        return 1;
    }

    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)));
}

mixed direct_wizlock_obj(){ return 1; }
mixed direct_wizunlock_obj(){ return 1; }