rcar $car = get scriptowner car
float $brake = 0
float $abs = 0
shared int $afu = 0
shared float $urgence = 0.85
while 1
{
	$brake = get $car brake
	$abs = get $car abs active
	if $brake > $urgence and $abs == 0
	{
	set $car brake 1
	$afu = 1 
		if $brake < 1
		{
		set $car brake 1
		}
		wait(000)
	}
	$afu = 0
	interrupt
}