Drowning

$UnderwaterDamage = 5;		//damage done every $UnderwaterCheckTime ms if the player is underwater
$UnderwaterInitTime = 10000;	//initial time before the player gets damage
$UnderwaterCheckTime = 1000;	//time to check underwater status (ms)

function Orc::onEnterLiquid(%this, %obj, %coverage, %type)
{
   	Parent::onEnterLiquid(%this, %obj, %coverage, %type);
	$Drowning::Schedule = schedule($UnderwaterInitTime, 0, "checkUnderwater", %obj );
}

function Orc::onLeaveLiquid(%this, %obj, %type)
{
   	cancel($Drowning::Schedule);
}

function Elf::onEnterLiquid(%this, %obj, %coverage, %type)
{
   	Parent::onEnterLiquid(%this, %obj, %coverage, %type);
	$Drowning::Schedule = schedule($UnderwaterInitTime, 0, "checkUnderwater", %obj );
}

function Elf::onLeaveLiquid(%this, %obj, %type)
{
   	cancel($Drowning::Schedule);
}

function checkUnderwater(%player)
{
	//Send a ray from the eye point to the sky to see if it crosses a waterblock.
	//If it does, this means that the player is underwater.  The raycast only returns true
	//it it intersects the water surface!!
	%eye = %player.getEyePoint();
	%end = VectorAdd(%eye, "0 0 100");
	%searchMasks = $TypeMasks::WaterObjectType;

	if(ContainerRayCast(%eye, %end, %searchMasks)) %player.applyDamage($UnderwaterDamage); 
	

	$Drowning::Schedule = schedule(1000, 0, "checkUnderwater", %player );
}