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

mixed eventFall() {
    object env = environment();
    mixed rumbo = 0;
    string name = this_object()->GetName();

    if(!living(this_object())) name = this_object()->GetShort();

    if(!env || !(rumbo = env->GetExit("down"))) return 0;
    if(env == rumbo) return 0;
    if(env->GetMedium() != MEDIUM_AIR){
        send_messages("fall", "$agent_name $agent_verb to the ground.",
          this_object(), 0, env);
        if(living(this_object())) this_object()->SetPosition(POSITION_LYING);
        return 1;
    }
    else {
        if(!rumbo) return 0;
        if(stringp(rumbo)) rumbo = load_object(rumbo);
        if(!rumbo){
            return 0;
        }
        tell_object(this_object(),"You plummet downward!");
        if(this_object()->eventMove(rumbo)){
            tell_room(env,capitalize(name)+" continues "+
              possessive(this_object())+" fall downward.", ({ this_object() }));
            tell_room(rumbo,capitalize(name)+" plummets in from above.",
              ({ this_object() }));

            if(rumbo->GetMedium() == MEDIUM_AIR && !(this_object()->CanFly())){ 
                call_out( "eventFall", 1);
            }
        }
        return 1;
    }
    return 0;
}