var url="http://www.jeveuxduvin.be"
var titel="Jeveuxduvin.be"

function favorietenfr()
{
if (document.all)
window.external.AddFavorite(url,titel)
}


function calculatetime()
{
  curtemp=parseInt(document.tempcalcform.currenttemp.value);
  needtemp=parseInt(document.tempcalcform.neededtemp.value);
  environ=parseInt(document.tempcalcform.environment.value);
  water=document.tempcalcform.water[0].checked;
      
  quotient=(environ-needtemp)/(environ-curtemp);
    
  // Filter  
  if (curtemp<0) {alert("Vous conservez votre vin dans le cong\u00E9lateur ?");return;};
  if (curtemp>30) {alert("Vous conservez votre vin dans un four de fusion ?");return;};

  if (environ>40) {alert("Attention, vous \u00EAtes en train de faire du \"gluhwein\" !");return;};

  if (quotient>=1.0) {alert("Il ne faut pas avoir un dipl\u00F4me universitair pour savoir que \u00E7a ne marche pas !");return;};
  
  if (quotient<0) {alert("Veuillez faire la revue de votre cours de physique. Ceci est impossible !");return;};

  if (needtemp<5) {alert("Beaucoup trop froid. Vous ne go\u00FBterez plus rien !"); return;} ; 
  if (needtemp>18) {alert("Avec une temp\u00E9rature si haute, vous ne go\u00FBtez rien que l\'alcool. \nOuvrez plut\u00F4t une bouteille de marc..."); return;} ;
  
  if (water & environ<0) {alert("Vous n\'aviez pas fait attention \u00E0 l\'\u00E9cole! \nDe l\'eau au-dessous de 0\u00B0C est assez rare. \n(Oui, oui, on est au courant : de l\'eau avec du sel...)"); return;} ; 
  
  if (isNaN(curtemp)) {alert("Quelle est la temp\u00E9rature actuelle du vin ?"); return;} ;
  if (isNaN(needtemp)) {alert("Quelle est la temp\u00E9rature d\u00E9sir\u00E9e?"); return;} ;  
  
  if (isNaN(environ)) 
  {
    if (water) alert("Quelle est la temp\u00E9rature de l\'eau ?"); else alert("Quelle est la temp\u00E9rature de l\'air ?"); 
    return;
  } 
  
  quotnew=1-quotient;
  
  time=(quotnew*80) + (quotnew*quotnew*272);
  
  if (water) time=time/12.5;
  
  time=parseInt(time);
  
  if (needtemp<curtemp) todo="rafra\u00EEchir"; else todo="r\u00E9chauffer";
  if (water) medium="eau stagnante "; else medium="air stagnant ";
  
  alert("R\u00E9sultat:\nPour porter votre vin d\'une temp\u00E9rature de " + curtemp + "\u00B0C dans " + medium + "(" + environ + "\u00B0C) \nvers une temp\u00E9rature de " + needtemp + "\u00B0C il vous faut environ " + time + " minutes."); 
}