var url="http://www.ikwilwijn.be"
var titel="Ikwilwijn.be - Interactieve wijnsite"

function favorieten()
{
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("Bewaart u uw wijn in de diepvriezer?");return;};
  if (curtemp>30) {alert("Bewaart u uw wijn in een smeltoven?");return;};

  if (environ>40) {alert("Opgepast, u bent bezig \"gluhwein\" te maken!");return;};

  if (quotient>=1.0) {alert("Men hoeft echt geen universitair diploma hebben om te zien dat dit niet kan!");return;};
  
  if (quotient<0) {alert("Gelieve uw cursus fysica nog eens door te nemen. Dit kan niet!");return;};

  if (needtemp<5) {alert("Dit is veel te koud. U zal niets meer proeven!"); return;} ; 
  if (needtemp>18) {alert("Bij deze temperatuur proeft u enkel nog alcohol. Open liever een fles gedistilleerd."); return;} ;
  
  if (water & environ<0) {alert("U had beter wél opgelet op school! Water onder 0°C komt echt niet zo vaak voor. \n(Ja, ja, we weten het wel : water met zout in...)"); return;} ; 
  
  if (isNaN(curtemp)) {alert("Welke temperatuur heeft de wijn nu?"); return;} ;
  if (isNaN(needtemp)) {alert("Welke temperatuur moet de wijn krijgen?"); return;} ;  
  
  if (isNaN(environ)) 
  {
    if (water) alert("Welke temperatuur heeft het water?"); else alert("Welke temperatuur heeft de lucht?"); 
    return;
  } 
  
  quotnew=1-quotient;
  
  time=(quotnew*80) + (quotnew*quotnew*272);
  
  if (water) time=time/12.5;
  
  time=parseInt(time);
  
  if (needtemp<curtemp) todo="af te koelen"; else todo="op te warmen";
  if (water) medium="stilstaand water "; else medium="onbewegende lucht ";
  
  alert("Resultaat:\nOm uw wijn met een temperatuur van " + curtemp + "\u00B0C in " + medium + "(" + environ + "\u00B0C) \nnaar een drinktemperatuur van " + needtemp + "\u00B0C " + todo + " hebt u ongeveer " + time + " minuten nodig."); 
}