/*    From the Dead Souls Object Library
 *    Provides lead support for mobile objects.
 *    Works closely with LIB_FOLLOW.
 *    Created by Rush 951028
 */

#include <lib.h>
#include "include/lead.h"

private static mapping Followers;
private static int numberOfFollowers;

static void create(){
    Followers = ([]);
    numberOfFollowers = 0;
}

mixed direct_lead_liv(){
    if( this_object() == this_player() ) return "That's silly.";
    return this_player()->CanLead();
}

mixed direct_evade_liv(){
    if( this_object() == this_player() ) return "That's silly.";
    return this_player()->CanEvade(this_object());
}

object *AddFollower(object follower){
    mapping tmp = ([]);

    if( !objectp(follower) ) error("Bad argument 1 to AddFollower().\n");
    if( follower != this_object() && !Followers[follower]
      && !follower->GetProperty("no follow") ){
        if( !follower->IsFollowing(this_object()) ){
            if( follower->SetLeader(this_object()) ){
                tmp["followed"] = 0;
                tmp["bonus"] = 0;
                tmp["lost"] = 0;
                Followers[follower] = tmp;
                numberOfFollowers++;
            }
        }
    }
    return GetFollowers();
}

object *RemoveFollower(object follower){
    if( !objectp(follower) ) error("Bad argument 1 to RemoveFollower().\n");
    map_delete(Followers, follower);
    follower->SetLeader(0);
    numberOfFollowers = sizeof(GetFollowers());
    return GetFollowers();
}

object *GetFollowers(){ return filter(keys(Followers), (: $1 :)); }

mapping GetFollowerMap(){ return copy(Followers); }

int SetFollowed(object follower, int followed){
    if( !objectp(follower) ) error("Bad argument 1 to SetFollowed().\n");
    if( !intp(followed) ) error("Bad argument 2 to SetFollowed().\n");
    if( !Followers[follower] ) return 0;
    return(Followers[follower]["followed"] = followed);
}

int GetFollowed(object follower){
    if( !objectp(follower) ) error("Bad argument 1 to GetFollowBonus().\n");
    if( !Followers[follower] ) return 0;
    return Followers[follower]["followed"];
}

int AddFollowBonus(object follower, int bonus){
    if( !objectp(follower) ) error("Bad argument 1 to AddFollowBonus().\n");
    if( !intp(bonus) ) error("Bad argument 2 to AddFollowBonus().\n");
    if( !Followers[follower] ) return 0;
    return( Followers[follower]["bonus"] += bonus );
}

int GetFollowBonus(object follower){
    if( !objectp(follower) ) error("Bad argument 1 to GetFollowBonus().\n");
    if( !Followers[follower] ) return 0;
    return Followers[follower]["bonus"];
}

varargs mixed CanLead(object ob){
    if( ob ){
        if( !ob->CanFollow() )
            return "You are not empowered to lead " + ob->GetName();
        if( ob->IsFollowing(this_object()) )
            return "You are already leading " + ob->GetName();
        if( this_object()->IsFollowing(ob) )
            return ob->GetName() + " is already leading you.";
        if( ob == this_object() )
            return "You cannot possibly do that.";
    }
    return 1;
}

varargs mixed CanEvade(object ob){
    if( ob && !ob->IsFollowing(this_object()) )
        return ob->GetName() + " is not following you.";
    return 1;
}

int eventMoveFollowers(object dest){
    mapping follower;
    object ob;
    int followChance;

    foreach(ob in GetFollowers()){
        follower = Followers[ob];
        if(ob->GetSleeping() || ob->GetParalyzed() || query_verb() == "noclip"){
            eventEvade(ob);
            RemoveFollower(ob);
            continue;
        }
        followChance = 100;
        if( !follower["followed"] ) followChance -= 20 + this_object()->GetSkillLevel("stealth");
        followChance += ob->GetSkillLevel("tracking");
        followChance += follower["bonus"];
        if( ob->eventFollow(dest, followChance) ) follower["lost"] = 0;
        else if( follower["lost"]++ && eventEvade(ob) ){
            RemoveFollower(ob);
        }
    }
    return 1;
}

int eventEvade(object ob){
    mixed ret;
    ret = CanEvade(ob);
    if( stringp(ret) ) error(ret);
    if( ret = 1 ){
        ob->eventPrint(this_object()->GetName() + " has evaded you.");	this_object()->eventPrint("You have evaded " + ob->GetName() + ".");
        return 1;
    }
    return 0;
}