/*    /lib/virtual/virt_sky.c
 *    From DeadSouls Object Library
 *    A virtual object for air rooms
 *    Created by Dvarsk 980310
 *    Version: @(#) virt_sky.c 1.1@(#)
 *    Last modified: 98/08/25
 */

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

inherit LIB_VIRT_LAND;

private mixed PreventLand;

varargs static void create(int x, int y,int z) {
    virt_land::create( x,  y, z);
    SetMedium(MEDIUM_AIR);
}

varargs static void Setup(int x, int y,int z) {
    virt_land::create( x,  y, z);
    SetMedium(MEDIUM_AIR);
}

string GetGround() {
    return GetExit("down");
}

string SetGround(string str) {
    AddExit("down", str);
    return str;
}

mixed GetPreventLand() {
    return PreventLand;
}

mixed SetPreventLand(mixed val) {
    return (PreventLand = val);
}

mixed CanFly(object who, string dir) {
    if( !dir || dir == "" ) {
	return "Fly where?";
    }
    //if( dir == "up" ) {
    //	return "You cannot get any higher than you already are!";
    //}
    else if( dir == "down" ) {
	if( stringp(PreventLand) ) {
	    return PreventLand;
	}
	else if( functionp(PreventLand) ) {
	    mixed tmp = evaluate(PreventLand, who);

	    if( tmp != 1 ) {
		return tmp;
	    }
	}
	if( !GetGround() ) {
	    return "There is nothing below you but open sea.";
	}
    }
    if( who->GetPosition() != POSITION_FLYING ) {
	return "You are not flying!";
    }
    return virt_land::CanGo(who, dir);
}

mixed CanGo(object who, string dir) {
    return CanFly(who, dir);
}

mixed eventFly(object who, string dir) {
    mapping exit = GetExitData(dir);

    if( GetDoor(dir) && GetDoor(dir)->GetClosed() ) {
	who->eventPrint("You fly into " + GetDoor(dir)->GetShort(dir) + ".");
	eventPrint(who->GetName() + " flies into " +
	  GetDoor(dir)->GetShort(dir) + ".", who);
	return 1;
    }
    if( exit["pre"] && !evaluate(exit["pre"], dir) ) {
	return 1;
    }
    //who->eventMoveLiving(exit["room"], "$N flies " + dir + ".", "$N flies in.");
    who->eventMoveLiving(exit["room"], dir, "$N flies in.");
    if( dir =="down" ) {
	//who->eventLand();
    }
    if( exit["post"] ) {
	evaluate(exit["post"], dir);
    }
    return 1;
}

mixed eventGo(object who, string dir) {
    if(GetMedium()==MEDIUM_AIR) return eventFly(who, dir);
    return ::eventGo(who, dir);
}

mixed eventReceiveObject(object ob) {
    //mixed rtn;

    return virt_land::eventReceiveObject(ob);
#if 0
    //tc("rtn: "+identify(rtn));
    if(GetMedium() != MEDIUM_AIR) return rtn;
    if( !ob->CanFly() ) { // Things that cannot fly fall down
	if( ob ) {
	    ob->eventFall();
	}
	else
	{
	    if( !GetGround() ) {   // Over uncharted areas, die!
		ob->eventDestruct();
	    }
	    else {
		string short;

		if( !ob->GetInvis() && (short = ob->GetShort()) ) {
		    GetGround()->eventPrint(capitalize(short) + " comes raining "
		      "down from the sky.");
		}
		ob->eventMove(GetGround());
	    }
	}
    }
    return rtn;
#endif
}

#if 0
mixed eventReceiveObject(object ob) {
    mixed rtn;

    rtn = virt_land::eventReceiveObject(ob);
    if(GetMedium() != MEDIUM_AIR) return rtn;
    if( !ob->CanFly() || ob->GetSleeping() ) { // Things that cannot fly fall down
	string short;
	if( !ob->GetInvis() && (short = ob->GetShort()) ) {
	    GetGround()->eventPrint(capitalize(short) + " comes raining "
	      "down from the sky.");
	}
	return ob->eventFall();
    }
    return rtn;
}
#endif