var debut=new Date()
debut=debut.getTime()
var zone=document.location.toString()
var pubmouv=-100

function finChargement() { 
 var fin = new Date()
 fin = fin.getTime()
 if (VersionNavigateur(3.0,4.0)) {
  document.heraut.Chargement.value = ((fin - debut) / 1000) + " secondes"
  if ((fin - debut) / 1000 >= 100) {
   impatient()
  }
 }
}

function MakeArray(n) {
 this.length = n
 return this
}

function suivant(){
 if (i < 11) {
  i=i+1
 }
 else {
  i=1
 }

 temp=new Image(0,0)
 document.title=affiche[i]
 clearTimeout(anim)
 anim=setTimeout("suivant()",3000)
}

if (VersionNavigateur(99,4.0)){
 var i=1
 affiche=new MakeArray(11)
 affiche[1]="www.cathares.org"
 affiche[2]="Encyclopédie interactive ..."
 affiche[3]="... les châteaux cathares ..."
 affiche[4]="... les principaux événements de l'épopée cathare ..."
 affiche[5]="... les personnages majeurs de la Croisade contre les Albigeois ..."
 affiche[6]="... les débats contradictoires à l'heure de l'Internet ..."
 affiche[7]="... des carte interactives ..."
 affiche[8]="... des photographies par centaines ..."
 affiche[9]="www.cathares.org"
 affiche[10]="Auteur et éditeur : Philippe Contal"
 affiche[11]="cathares.org, voyage virtuel en Terres Cathares"
 anim=setTimeout("suivant()",3000)
}

if (VersionNavigateur(4.0,4.0)) {
 var w=0
 var x=0
 var m=0
 var ms=1
 img=new Image()
 img.src="pointeur.gif"
}

function impatient() {
 if (zone.substring(0,7) == "http://") {
  resultat = confirm('Ce site a été réalisé avec une attention particulière portée à son contenu, tant sur le fond que sur la forme.\n\nIl est vrai que cela peut se traduire parfois par des temps de chargement pénalisants ...\n\nNous nous permettons toutefois de vous informer qu\'une version existe aussi sur CD-ROM, disponible dans notre boutique virtuelle.\n\nVoulez-vous en savoir plus ?')
  if(resultat == "1") {
   document.location = "http://boutique.cathares.org"
  }
 }
}

function verif() {
 var zone=document.location.toString()
 if (zone.substring(0,7)!="http://") {
  resultat=confirm("Vous ne pouvez vous abonner à la liste de diffusion du «Héraut des Terres Cathares» que lorsque vous utilisez la version sur l'Internet.\n\nVoulez-vous passer à la version en ligne du site, www.cathares.org ?")
  if(resultat == "1") {
   document.location="http://www.cathares.org"
  }
  return false
 }
 else {
  if (document.heraut.Adresse.value=="") {
   alert("Vous devez spécifier votre adresse électronique ...")
   document.heraut.Adresse.select()
   return false
  }
  if (document.heraut.Adresse.value != "") {
   return true
  }
 }
}

function noclick(scx) {
 if (navigator.appName == "Netscape" && scx.which == 3) {
  alert('cathares.org - Tous droits réservés, ISDO, 1996-2003 ©')
  return false
 }
 if (navigator.appVersion.indexOf("MSIE") != -1 && event.button == 2) {
  alert('cathares.org - Tous droits réservés, ISDO, 1996-2003 ©')
  return false
 }
}

function agrandir(){
 if ((VersionNavigateur(99,4.0)) && (document.body.clientwidth <= 800)) {
  self.moveTo(0,0)
  self.resizeTo(screen.availwidth,screen.availheight)
 }
}