/*    /lib/position.c
 *    From the Dead Souls Object Library
 *    Handles the positioning of living things
 *    Created by Descartes of Borg 961221
 *    Version: @(#) position.c 1.1@(#)
 *    Last modified: 96/12/21
 */

#include <position.h>
#include <medium.h>
#include <message_class.h>
#include <daemons.h>

inherit LIB_FALL;
inherit LIB_SINK;

private int           Position = POSITION_STANDING;
private static object Chair    = 0;

// abstract methods
varargs mixed eventPrint(string str, mixed args...);
// end abstract methods

int GetPosition(){
    return Position;
}

int SetPosition(int x){
    Position = x;
}

mixed eventFall(){
    return fall::eventFall();
}

#if 0
mixed eventFall(){
    object env = environment();
    mixed rumbo;
    if(!env || !(rumbo = env->GetExit("down"))) return 0;
    if(env->GetMedium() != MEDIUM_AIR){
        send_messages("fall", "$agent_name $agent_verb to the ground.",
          this_object(), 0, environment());
        Position = POSITION_LYING;
        return 1;
    }
    else {
        rumbo = load_object(rumbo);
        if(!rumbo) return 0; 
        say(this_object()->GetName()+" plummets in from above.");
        write("You plummet downward!");
        if(this_object()->eventMove(rumbo)){
            env->eventPrint(this_object()->GetName()+" continues "+
              possessive(this_player())+" fall downward.", MSG_ENV);
            call_out( "eventFall", 1);
        }
        return 1;
    }
    return 0;
}
#endif

varargs mixed eventLay(object target){
    mixed tmp;

    if( Position != POSITION_STANDING && Position != POSITION_SITTING){
        eventPrint("You must be standing or sitting in order to lie.");
        return 1;
    }
    if( !target ){
        send_messages("lie", "$agent_name $agent_verb down.", this_object(),
          0, environment());
        Position = POSITION_LYING;
        return 1;
    }
    tmp = target->eventReceiveLay(this_object());
    if( tmp != 1 ){
        if( !tmp ){
            eventPrint("You cannot lie there!");
        }
        else {
            eventPrint(tmp);
        }
        return 1;
    }
    send_messages("lie", "$agent_name $agent_verb down on " +
      target->GetShort() + ".", this_object(), 0, environment());
    Position = POSITION_LYING;
    Chair = target;
    return 1;

}

varargs mixed eventKneel(object target){
    mixed tmp;

    if( Position != POSITION_STANDING && Position != POSITION_SITTING){
        eventPrint("You must be standing or sitting in order to kneel.");
        return 1;
    }
    if( !target ){
        send_messages("kneel", "$agent_name $agent_verb down.", this_object(),
          0, environment());
        Position = POSITION_KNEELING;
        return 1;
    }
#if 0
    tmp = target->eventReceiveLay(this_object());
    if( tmp != 1 ){
        if( !tmp ){
            eventPrint("You cannot lie there!");
        }
        else {
            eventPrint(tmp);
        }
        return 1;
    }
    send_messages("lie", "$agent_name $agent_verb down on " +
      target->GetShort() + ".", this_object(), 0, environment());
    Position = POSITION_LYING;
    Chair = target;
#endif
    return 1;
}

varargs mixed eventSit(object target){
    mixed tmp;

    if( Position != POSITION_STANDING && Position != POSITION_LYING ){
        eventPrint("You can't sit from that position.");
        return 1;
    }
    if( !target ){
        if( Position == POSITION_STANDING){
            send_messages("sit", "$agent_name $agent_verb down.", 
              this_object(),0, environment());
        }
        else send_messages("sit", "$agent_name $agent_verb up.",
              this_object(),0, environment());

        Position = POSITION_SITTING;
        return 1;
    }
    tmp = target->eventReceiveSit(this_object());
    if( tmp != 1 ){
        if( !tmp ){
            eventPrint("You cannot sit there!");
        }
        else {
            eventPrint(tmp);
        }
        return 1;
    }
    send_messages("sit", "$agent_name $agent_verb down on " +
      target->GetShort() + ".", this_object(), 0, environment());
    Position = POSITION_SITTING;
    Chair = target;
    return 1;
}

mixed eventFly(){
    if( Chair ){
        mixed tmp = Chair->eventReleaseStand(this_object());

        if( tmp != 1 ){
            if( !tmp ){
                eventPrint("You cannot get up!");
            }
            else {
                eventPrint(tmp);
            }
            return 1;
        }
        Chair = 0;
    }
    if(this_object()->CanFly() && Position != POSITION_FLYING){
        tell_object(this_object(),"You begin flying.");
        say(this_player()->GetName()+" begins flying and hovers in the air.");
        Position = POSITION_FLYING;
    }
    return 1;
}

mixed eventSwim(){
    if( Chair ){
        mixed tmp = Chair->eventReleaseStand(this_object());

        if( tmp != 1 ){
            if( !tmp ){
                eventPrint("You cannot!");
            }
            else {
                eventPrint(tmp);
            }
            return 1;
        }
        Chair = 0;
    }
    if(this_object()->CanSwim() && Position != POSITION_SWIMMING){
        tell_object(this_object(),"You begin swimming.");
        say(this_player()->GetName()+" begins swimming.");
        Position = POSITION_SWIMMING;
    }
    return 1;
}

mixed eventFloat(){
    if( Chair ){
        mixed tmp = Chair->eventReleaseStand(this_object());

        if( tmp != 1 ){
            if( !tmp ){
                eventPrint("You can't!");
            }
            else {
                eventPrint(tmp);
            }
            return 1;
        }
        Chair = 0;
    }
    if(this_object()->CanFloat() && Position != POSITION_FLOATING){
        tell_object(this_object(),"You begin floating.");
        say(this_player()->GetName()+" begins floating.");
        Position = POSITION_FLOATING;
    }
    return 1;
}

mixed eventLand(){
    object env = environment();
    if(!env) return 0;
    if(! Position == POSITION_FLYING ) return 0;
    if( env->GetMedium() == MEDIUM_AIR || env->GetMedium() == MEDIUM_WATER ||
      env->GetMedium() == MEDIUM_SPACE ) return 0;  
    write("You stop flying.");
    say(this_player()->GetName()+" stops flying.");
    if(stringp(hobbled(this_player()))) Position = POSITION_STANDING;
    else Position = POSITION_LYING;
    return 1;
}

mixed eventStand(){
    if(!stringp(hobbled(this_player()))){
        eventPrint("Your injuries prevent you from standing.");
        return 1;
    }
    if(RACES_D->GetLimblessRace(this_player()->GetRace()) ){
        eventPrint("You aren't endowed with limbs with which to stand.");
        return 1;
    }
    if( Position == POSITION_STANDING ){
        eventPrint("You are already standing!");
        return 1;
    }
    if( Position == POSITION_FLYING){
        return eventLand();
    }

    if( Chair ){
        mixed tmp = Chair->eventReleaseStand(this_object());

        if( tmp != 1 ){
            if( !tmp ){
                eventPrint("You cannot get up!");
            }
            else {
                eventPrint(tmp);
            }
            return 1;
        }
        Chair = 0;
    }
    Position = POSITION_STANDING;
    send_messages("stand", "$agent_name $agent_verb up.", this_object(), 0,
      environment());
    return 1;
}

object GetFurniture(){
    if(Chair) return Chair;
}
string GetFurnitureName(){
    if(Chair) return Chair->GetShort();
    else return "none";
}