Phantom avatars

integer isPhantom ;

default
{
     state_entry()
     {
          llListen( 5, "", NULL_KEY, "" ) ;
     }

     listen( integer channel, string name, key id, string message )
     {
          if( id == llGetOwner() )
          {
               if( ( message == "ghost" ) && isPhantom )
               {
                    isPhantom = FALSE ;
                    llVolumeDetect( FALSE ) ;
               }

               else if( ( message == "ghost" ) && !isPhantom )
               {
                    isPhantom = TRUE ;
                    llVolumeDetect( TRUE ) ;
               }
          }
     }
}

//PHANTOM FLYING SCRIPT
//to go into a child prim of an attachment
//auto turns the user phantom when the user is flying

integer FLYING; //boolean to check if the user is flying, and to
//minimize the number of function calls when unnessassary.
key OWNER; //owner of the script/prim.
vector regioncorner; //used to track which region the user is in,
//and to reset the phantom after crossing a sim border.

default
{
	
	state_entry()
	{
		//initialise the variables.
		OWNER = llGetOwner();
		regioncorner = llGetRegionCorner();
		
		FLYING = FALSE;
		llSetTimerEvent(2);
	}
	
	timer()
	{
		//checks if user is flying, and make him phantom if flying
		//non phantom if not.
		if (llGetAgentInfo(OWNER) & AGENT_FLYING)
		{
			if (FLYING == FALSE)
			{
				llVolumeDetect(TRUE);
				FLYING = TRUE;
			}			
		}
		else if (FLYING == TRUE)
		{
			llVolumeDetect(FALSE);
			FLYING = FALSE;
		}
		
		//this fixes the phantom if you cross a sim border.
		vector newregioncorner = llGetRegionCorner();
		if (regioncorner != newregioncorner)
		{
			FLYING = FALSE;
			regioncorner = newregioncorner;
		}
	}
	
}

//PHANTOM FLYING SCRIPT
//to go into a child prim of an attachment
//auto turns the user phantom when the user is flying

integer FLYING;
key OWNER;
vector regioncorner;

vector newregioncorner;
integer flying;

default
{
    state_entry()
    {
        //initialise the variables.
        OWNER = llGetOwner();
        regioncorner = llGetRegionCorner();
        
        FLYING = FALSE;
        llSetTimerEvent(2);
    }
    timer()
    {
        //checks if user is flying, and make him phantom if flying
        //non phantom if not.
        flying = llGetAgentInfo(OWNER) & AGENT_FLYING;
        newregioncorner = llGetRegionCorner();
        if (regioncorner != newregioncorner)
            regioncorner = newregioncorner, FLYING=FALSE;  //*should* work...
        if (flying != FLYING)
            llVolumeDetect(FLYING = flying);
    }
    on_rez(integer a)
    {
        OWNER = llGetOwner();
    }
}