Phantom avatars

//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;
		}
	}
	
}