#include <lib.h>
#include <daemons.h>
#include <position.h>
#include <armor_types.h>
#include <message_class.h>
#include <vision.h>
#include "include/npc.h"

private int Mount;

object *Riders = ({});

mixed direct_ride_str(){
    return this_object()->GetMount();
}

mixed direct_ride_word_str(){
    return this_object()->GetMount();
}

mixed direct_mount_liv(){
    return this_object()->GetMount();
}

mixed direct_dismount_liv(){
    return this_object()->GetMount();
}

mixed direct_dismount_from_liv(){
    return this_object()->GetMount();
}
int eventRide(string direction){
    string travel_cmd, s1, s2;
    object *guys = get_livings(this_object());
    if(interactive(this_object())) return 0;
    if(sscanf(direction,"%s %s",s1,s2) == 2){
        if(s1 == "enter" || s1 == "into") travel_cmd = "enter";
    }

    if(!s1 || s1 == "") switch(this_object()->GetPosition()){
    case POSITION_STANDING : travel_cmd = "go";break;
    case POSITION_SITTING : travel_cmd = "crawl";break;
    case POSITION_LYING : travel_cmd = "crawl";break;
    case POSITION_FLYING : travel_cmd = "fly";break;
    default : travel_cmd = "go";
    }
    else direction = s2;
    this_object()->eventForce(travel_cmd+" "+direction);
    return 1;
}

object *AddRider(object ob){
    Riders += ({ ob });
}

object *RemoveRider(object ob){
    Riders -= ({ ob });
}

object *GetRiders(){
    object *ret = ({});
    if(Riders && sizeof(Riders)){
        foreach(mixed rider in Riders){
            if(!rider) RemoveRider(rider);
            else if(environment(rider) == this_object()) ret += ({ rider });
            else RemoveRider(rider);
        }
    }
    return ret;
}

int SetMount(int x){
    Mount = x;
    if(Mount) this_object()->SetNoClean(1);
    return Mount;
}
int GetMount(){ return Mount; }

mixed eventMount(object who){
    int rider_weight;
    if(!who) return 0;
    rider_weight = (who->GetCarriedMass()) + (who->GetMass() || 2000);
    if(!environment(this_object())) return 0;
    if(environment(who) && environment(who) == this_object()){
        return write("You are already mounted.");
    }
    if(rider_weight + this_object()->GetCarriedMass() > this_object()->GetMaxCarry()){
        return write("This mount cannot handle that much weight.");
    }
    if(this_object()->GetMountOwner() != who){
        write(this_object()->GetName()+" doesn't know you well enough to let "+
          "you ride "+objective(this_object())+".");
        return 0;
    }
    else {
        this_object()->SetNoClean(1);
        write("You mount "+this_object()->GetShort()+".");
        say(who->GetName()+" mounts "+this_object()->GetShort()+".");
        who->SetProperty("mount", this_object());
        if(who->eventMove(this_object())) return AddRider(who);
        else return 0;
    }
}

mixed eventDismount(object who){
    int rider_weight;
    rider_weight = (who->GetCarriedMass()) + (who->GetMass() || 2000);
    if(!environment(this_object())) return 0;
    if(environment(who) && environment(who) != this_object()){
        return write("You are already dismounted.");
    }
    else {
        write("You dismount from "+this_object()->GetPlainShort()+".");
        tell_room(environment(this_object()),who->GetName()+" dismounts from " +this_object()->GetPlainShort()+".", ({ this_object(), who }));
        who->RemoveProperty("mount");
        if(who->eventMove(environment(this_object()))) return RemoveRider(who);
        else return 0;
    }
}

mixed eventBuck(object who){
    int rider_weight;
    rider_weight = (who->GetCarriedMass()) + (who->GetMass() || 2000);
    if(!environment(this_object())) return 0;
    if(environment(who) && environment(who) != this_object()){
        return 0;
    }
    else {
        tell_player(who,"You are thrown from "+this_object()->GetPlainShort()+"!");
        tell_room(environment(this_object()),who->GetName()+" is thrown from " +this_object()->GetPlainShort()+"!", ({ this_object(), who }));
        who->RemoveProperty("mount");
        who->SetPosition(POSITION_LYING);
        if(who->eventMove(environment(this_object()))) return RemoveRider(who);
        else return 0;
    }
}