// Bonjour ... A l'evidence, il n'y a pas que le diabete qui vous interesse ;-)

// == Var globales

var Base="http://www.diabsurf.com/Cht/ChtDsf/"
var AdrPage=Base+"Chat.php"
var AdrPageEntree=Base+"EntreeChat.php"

// Ecran, navigateur, syst�me
var ScreenHt=screen.availHeight;if(ScreenHt>840){ScreenHt=840}
var ScreenWd=screen.availWidth
var NavName=navigator.appName.toLowerCase()
var NavVers=parseInt(navigator.appVersion)
var OS=navigator.userAgent.toLowerCase()
var MacOS=(OS.indexOf("mac")>-1)
var WinOS=(OS.indexOf("win")>-1)
var IE=(document.all) ? true : false
var W3C=(document.getElementById) ? true : false
var NS4=(NavName.indexOf("nets")>-1 && parseInt(NavVers)==4)
var NS6=(NavName.indexOf("nets")>-1 && W3C)
var IE45=(!W3C && IE && !MacOS)
var IE4M=(!W3C && IE && MacOS)
var IE5M=(W3C && IE && MacOS)
var IE6=(W3C && !MacOS)
var NavOk=false
NavOk=(NS4 || IE45 || IE5M || IE6 || NS6 || W3C)
// -- Cookie
var CkName="dsfChId="
var LifeCook=1000*60*60*24*365
var Ident=""
var UserIdChat=""
var PseudoChat=""
var Couleur;var CouleurDefault="N"
var NomCoul;var ValCoul
var FtNum;var FtNumDefault="2"
var FtFamily=""
var FtSize;var FtSizeDefault="12"
var FtWeight;var FtWeightDefault="0"
var FlagNePasActuChat;var FlagNePasActuChatDefault="0" // pour BtRecharger et HEAD Chat.php
var PalChatSize;var PalChatSizeDefault="G"
var CarteVisite;var CarteVisiteDefault=""
if(WinOS || IE5M){m="nécessite"}else{m="nŽcessite"}
var ErrCk="L'utilisation du Chat "+m+" que vous acceptiez les cookies."
// -- Fen�tres
var TexteWd=470
var ConnWd=120
var PalWd=626
var PalHtGrand=ScreenHt-50
var PalHtPetit=Math.floor(PalHtGrand/2);if(PalHtPetit<300){PalHtPetit=300}
var PalHt=0
var TexteHt=0
var ConnHt=0
var PosBdGPalChat=Math.floor((ScreenWd-640)/2)
var PosBdGPalQuitChat=Math.floor((ScreenWd-200)/2)-20
var PosBdGPalDeconnChat=Math.floor((ScreenWd-300)/2)-20
var Blk="<BR>&#160;<BR>&#160;<BR>&#160;<BR>&#160;<BR>&#160;"
Blk=Blk+Blk;Blk=Blk+Blk;Blk=Blk+Blk;Blk=Blk+Blk
// -- EntrŽe Chat
var DateGetPseudo=new Date()
var DateExpEntree=new Date()
var DelaiExpEntree=1000*20
// -- Chat
var NbCar=0
var InfoChat=""
var Ligne=""
var TexteMsg=""
var MemoMsg=""
var Param=""
var ParamARejoint=""
var SaisieHt=0
var ActuEnCoursTexte=false
var ActuEnCoursConn=false
var CptActuEnCoursTexte=0
var FNouvCycle=false
var TimeOutEnvoiMsg=0
var TimeOutActuAuto=0
var DateExpSession=new Date()
var DelaiExpSession=1000*60*30
var IdPage=""
var ETAS=0
var ETAS=0
var NumETAS=0
var TblETAS=[0,0,0,0,0,0,0,0,0,0,0]
var ValTmr=0
var SetARejoint=false
var FlagBlur=false
var CptRecharge=0

// == CSS

function getFtFamily(){
if(FtNum=="1"){FtFamily="Helvetica, Arial, sans-serif"}
if(FtNum=="2"){FtFamily="Geneva, Verdana, sans-serif"}
if(FtNum=="3"){FtFamily="Chicago, Charcoal, Arial Black, sans-serif"}}

function writeStyleEntreeChat(){
 getFtFamily()
 str='<STYLE TYPE="text/css">\n'
 str+='BODY, .CHAT12 {font-family: Geneva, Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color:#000000;}\n'
 str+='.CHAT10 {font-family: Geneva, Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color:#000000;}\n'
 str+='.TI {font-family: times, times new roman;}\n'
 str+='.T1 {font-family: times, times new roman; font-size: 9px;}\n'
 str+='.E2 {font-family: times, times new roman; font-size: 10px;}\n'
 str+='.STINPUTPSEUDO {font-family: '+FtFamily+'; font-size: '+FtSize+'px; color:'+Couleur
 if(FtWeight=="1"){str+='; font-weight: bold'}else{str+='; font-weight: normal'}
 // str+='.STINPUTCARTE {font-family: courier, courier new, monaco, monospace; font-size: 12px; color:'+Couleur+';}\n'
 str+='.STINPUTCARTE {font-family: Geneva, Verdana, Arial, Helvetica, sans-serif: 12px; color:'+Couleur+';}\n'
 str+='</STYLE>\n'
 document.write(str)}

function writeStyleChat(){
 getFtFamily()
 str='<STYLE TYPE="text/css">\n'
 str+='BODY {font-family: Geneva, Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000;}\n'
 str+='.STINPUTMSG {width: 605;font-family: '+FtFamily+'; font-size: '+FtSize+'px; color: '+Couleur
 if(FtWeight=="1"){str+=';font-weight: bold'}
 str+=';}\n'
 str+='#SpanTexte {position:relative; width:'+TexteWd+'; height:'+TexteHt+'; clip:rect(0px '+TexteWd+'px '+TexteHt+'px 0px);}\n'
 str+='#SpanConn {position:relative; width:'+ConnWd+'; height:'+ConnHt+'; clip:rect(0px '+ConnWd+'px '+ConnHt+'px 0px);}\n'
 str+='#SpanTexteInt {position:absolute; top:0; left:0; width:'+TexteWd+'; height:'+TexteHt+';}\n'
 str+='#SpanConnInt {position:absolute; top:0; left:0; width:'+ConnWd+'; height:'+ConnHt+';}\n'
 str+='#IdIframeTexte {position:absolute; top:0; left:0; width:'+TexteWd+'; height:'+TexteHt+';}\n'
 str+='#IdIframeConn {position:absolute; top:0; left:0; width:'+ConnWd+'; height:'+ConnHt+';}\n'
 str+='</STYLE>\n'
 document.write(str)}

function writeStyleAideChat(){
 getFtFamily()
 str='<STYLE TYPE="text/css">\n'
 str+='BODY, P {font-family: '+FtFamily+'; font-size: '+FtSize+'px; color:#000000'
 if(FtWeight=="1"){str+='; font-weight: bold'}else{str+='; font-weight: normal'}
 str+=';}\n'
 str+='</STYLE>\n'
 document.write(str)}

function writeStyleCartVis(){
 getFtFamily()
 str='<STYLE TYPE="text/css">\n'
 str+='BODY, P, TR, TD {font-family: '+FtFamily+'; font-size: '+FtSize+'px'
 if(FtWeight=="1"){str+='; font-weight: bold'}else{str+='; font-weight: normal'}
 str+=';}\n'
 str+='</STYLE>\n'
 document.write(str)}

function writePalSizeEntreeChat(){
 str='<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0">\n'
 str+='<TR><TD VALIGN="TOP"><INPUT TYPE="RADIO" NAME="NamePalSize"';if(PalChatSize=="P"){str+=' CHECKED'}
 str+='><FONT SIZE="2" CLASS="CHAT12">&#160;Petite fen&#234;tre</FONT>'
 str+='<FONT SIZE="2" CLASS="CHAT12">&#160; &#160; &#160; &#160;</FONT>'
 str+='<INPUT TYPE="RADIO" NAME="NamePalSize"';if(PalChatSize=="G"){str+=' CHECKED'}
 str+='><FONT SIZE="2" CLASS="CHAT12">&#160;Grande fen&#234;tre</FONT></TD></TR>\n'
 str+='</TABLE>\n'
 document.write(str)}

// == Fen�tres

function affGifConnH(){
 str="<IMG SRC='Igs/pT.gif' WIDTH=1 HEIGHT="+ConnHt+">"
 document.write(str)
 document.close()}

function chargePalChat(){ // PalChat=null dans EntreeChat.php
 if(PalChat && !PalChat.closed){PalChat.focus()}
 else{
  Prop="toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,"
  Prop+="screenX="+PosBdGPalChat+",screenY=10,left="+PosBdGPalChat+",top=10,"
  Prop+="width="+PalWd+",height="+PalHt
  Yet=new Date()
  Adr=AdrPage+"?IDPAGE="+Yet.getTime()
  PalChat=window.open(Adr,"ChatDiabSurf",Prop)
  if(PalChat==null){alert("Erreur PalChatOpen")}}}

function chargePalAide(){ // PalAide=null dans Chat.php
 if(PalAide && !PalAide.closed){PalAide.focus()}
 else{
  x=PosBdGPalChat+20;w=TexteWd-18;if(IE5M){w=w-19};h=(TexteHt-20-SaisieHt);if(h<190){h=190}
  Prop="toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,"
  Prop+="screenX="+x+",screenY=60,left="+x+",top=60,"
  Prop+="width="+w+",height="+h
  Adr=Base+"AideChat.php"
  PalAide=window.open(Adr,"AideChat",Prop)
  if(PalAide==null){alert("Erreur PalAideOpen")}}}

function chargePalCV(){ // PalCV=null dans Chat.php
 if(PalCV && !PalCV.closed){PalCV.focus()}
 else{
  x=PosBdGPalChat+20;w=TexteWd-18;if(IE5M){w=w-19};h=(TexteHt-20-SaisieHt);if(h<190){h=190}
  Prop="toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,"
  Prop+="screenX="+x+",screenY=60,left="+x+",top=60,"
  Prop+="width="+w+",height="+h
  Adr=Base+"CVChat.php"
  PalCV=window.open(Adr,"CartesVisites",Prop)
  if(PalCV==null){alert("Erreur PalCVOpen")}}}

function chargePalQuit(Adr){ // PalQuit=null dans Chat.php
 if(PalQuit && !PalQuit.closed){PalQuit.focus()}
 else{
  Prop="toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,"
  Prop+="screenX="+PosBdGPalQuitChat+",screenY=180,left="+PosBdGPalQuitChat+",top=180,"
  Prop+="width=200,height=60"
  PalQuit=window.open(Adr,"QuitChat",Prop)
  if(PalQuit==null){alert("Erreur PalChatQuit")}}}

function chargePalDeconn(Adr){ // PalDeconn=null dans Chat.php
 if(PalDeconn && !PalDeconn.closed){PalDeconn.focus()}
 else{
  Prop="toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,"
  Prop+="screenX="+PosBdGPalDeconnChat+",screenY=180,left="+PosBdGPalDeconnChat+",top=180,"
  Prop+="width=300,height=160"
  PalDeconn=window.open(Adr,"QuitDeconn",Prop)
  if(PalDeconn==null){alert("Erreur PalChatDeconnexion")}}}

function chargePalDsf(x){ // PalDsf=null dans EntreeChat.php et Chat.php
 y=Base+x
 if(PalDsf && !PalDsf.closed){
  if(PalDsfSrc==x){PalDsf.focus()}
  else{PalDsfSrc=x;PalDsf.location.href=y;PalDsf.focus()}}
 else{
  PalDsfSrc=x;PalDsf=window.open(y)
  if(PalDsf==null){alert("Erreur PalChatDsf")}}}

function autorAcces(){
 Autor=true
 if(document.cookie.indexOf(CkName)==-1){alert("Erreur4");Autor=false}
 readCook();if(PseudoChat==""){alert("Erreur5");Autor=false}
 return Autor}

function sizePalChatOk(){
 Autor=true
 WinWd=0
 if(window.innerWidth!=null){WinWd=window.innerWidth}
 else{if(document.body.clientWidth!=null){WinWd=document.body.clientWidth}}
 if(WinWd==0){alert("Erreur6");Autor=false}
 if(WinWd!=PalWd){alert("Erreur7");Autor=false}
 return Autor}

// == Cookies

function clearCook(){
 return // ***
 x="CkDsfCht01="
 CkExpCookD=new Date(0)
 CookW=x+";expires="+CkExpCookD.toGMTString()+";path=/"
 document.cookie=CookW}

function writeCook(){
 Ck=Ident+"|"+PseudoChat+"|"+FtNum+"|"+FtSize+"|"+FtWeight+"|"+Couleur+"|"
 Ck+=FlagNePasActuChat+"|"+PalChatSize+"|"+CarteVisite+"|"
 CkToDayD=new Date()
 CkExpCookD=new Date()
 CkExpCookD.setTime(CkToDayD.getTime()+LifeCook)
 CookW=CkName+escape(Ck)+";expires="+CkExpCookD.toGMTString()+";path=/"
 // alert("write: "+CookW)
 document.cookie=CookW
 if(document.cookie.indexOf(CkName)==-1){
  alert("Erreur1 : "+ErrCk)
  Obj=getDom("SaisiePseudoInput");Obj.value=""
  focusPseudo();return false}
 else{
  return true}}

function readCook(){
 PseudoChat=""
 FtNum=FtNumDefault
 FtSize=FtSizeDefault
 FtWeight=FtWeightDefault
 Couleur=CouleurDefault
 FlagNePasActuChat=FlagNePasActuChatDefault
 PalChatSize=PalChatSizeDefault
 CarteVisite=CarteVisiteDefault
 DC=document.cookie
 // alert("read: "+DC)
 DebCook=DC.indexOf("; "+CkName)
 if(DebCook==-1){DebCook=DC.indexOf(CkName)}else{DebCook+=2}
 if(DebCook>-1){
  DebCook+=CkName.length
  FinCook=DC.indexOf(";",DebCook)
  if(FinCook==-1){FinCook=DC.length}
  CookG=DC.substring(DebCook,FinCook)
  CookG=unescape(CookG)
  x=CookG.indexOf("|")
  if(x>-1){// alert("Le cookie existe")
   Ident=CookG.substring(0,x);CookG=CookG.substring(x+1,CookG.length);x=CookG.indexOf("|")
    VersBaseChat=Ident.substring(0,3) // Non utilisŽ
    UserIdChat=Ident.substring(3,Ident.length)
   PseudoChat=CookG.substring(0,x);CookG=CookG.substring(x+1,CookG.length);x=CookG.indexOf("|")
   FtNum=CookG.substring(0,x);CookG=CookG.substring(x+1,CookG.length);x=CookG.indexOf("|")
   FtSize=CookG.substring(0,x);CookG=CookG.substring(x+1,CookG.length);x=CookG.indexOf("|")
   FtWeight=CookG.substring(0,x);CookG=CookG.substring(x+1,CookG.length);x=CookG.indexOf("|")
   Couleur=CookG.substring(0,x);CookG=CookG.substring(x+1,CookG.length);x=CookG.indexOf("|")
   FlagNePasActuChat=CookG.substring(0,x);CookG=CookG.substring(x+1,CookG.length);x=CookG.indexOf("|")
   PalChatSize=CookG.substring(0,x);CookG=CookG.substring(x+1,CookG.length);x=CookG.indexOf("|")
   CarteVisite=CookG.substring(0,x)}
  else{alert("Erreur2 : "+ErrCk)}}
 else{alert("Erreur3 : "+ErrCk)}}

function doublonPseudo(){
 if(PseudoChat==""){return false}
 Obj=getDom("SaisiePseudoInput");Obj.value=PseudoChat
 Obj=getDom("SaisieCarteInput");Obj.value=CarteVisite
 x=Liste.toLowerCase()
 y="*"+PseudoChat.toLowerCase()+"*"
 if(x.indexOf(y)>-1){
  if(WinOS || IE5M){Al="Le pseudo "+PseudoChat+" est déjà utilisé."}
  else{Al="Le pseudo "+PseudoChat+" est dŽjˆ utilisŽ."}
  Al+=" Il vous faut en choisir un autre pour cette session de Chat."
  alert(Al)
  Obj.focus()
  Obj.select()
  return true}
 else{return false}}

function getPseudo(){
 clearCook() // pour anciens cookies
 readCook()
 if(doublonPseudo()){return}
 if(CoulDispo1.indexOf(Couleur)==-1){
  Couleur=CoulDispo2.charAt(Math.floor((CoulDispo2.length-1)*Math.random()))
  if(!writeCook()){return}}
 actualiseCouleur(Couleur)
 changeStyle("SaisiePseudoInput","color",ValCoul)
 if(PseudoChat.length>0){Obj=getDom("SaisiePseudoInput");Obj.value=PseudoChat}
 changeStyle("SaisieCarteInput","color",ValCoul)
 if(CarteVisite.length>0){Obj=getDom("SaisieCarteInput");Obj.value=CarteVisite}
 DateGetPseudo=new Date()
 focusPseudo()}

function donePseudo(){
 if(PalChat && !PalChat.closed){PalChat.focus();return}
 if(WinOS || IE5M){Car="caractère"}else{Car="caract�re"}
 // Pour le cas o� ouverture Chat -> Chgt param�tres -> fermeture Chat -> rŽouverture
 readCook()
 // -- VŽrif nouv pseudo
 Obj=getDom("SaisiePseudoInput")
 p=Obj.value;y=p.toLowerCase()
 if(y.indexOf("diabsurf")>-1 || y.indexOf("roesch")>-1 || y.indexOf("infochat")>-1 || y.indexOf("/")>-1 || y.indexOf("|")>-1 || y.indexOf("<")>-1 || y.indexOf(">")>-1 || y.indexOf("[")>-1 || y.indexOf("]")>-1){
  Obj.value=""
  focusPseudo();return}
 y=p.substring(0,1)
 while(y==" " || y=="Ê" || y=="_"){p=p.substring(1,p.length);y=p.substring(0,1)}
 y=p.substring(p.length-1,p.length)
 while(y==" " || y=="Ê" || y=="_"){p=p.substring(0,p.length-1);y=p.substring(p.length-1,p.length)}
 p=remplace("  "," ",p)
 if(p.length<3){
  Al="Le pseudo doit avoir au moins trois "+Car+"s.";alert(Al);focusPseudo();return}
 if(p.length>15){
  Al="Le pseudo ne peut pas avoir plus de 15 "+Car+"s.";alert(Al);focusPseudo();return}
 PseudoChat=maj(p)
 // VŽrif Carte
 Obj=getDom("SaisieCarteInput")
 c=Obj.value
 c=remplace("  "," ",c)
 y=c.substring(0,1)
 while(y==" " || y=="Ê" || y=="_" || y=="\n" || y=="\r" || y=="\t"){
  c=c.substring(1,c.length);y=c.substring(0,1)}
 y=c.substring(c.length-1,c.length)
 while(y==" " || y=="Ê" || y=="_" || y=="\n" || y=="\r" || y=="\t"){
  c=c.substring(0,c.length-1);y=c.substring(c.length-1,c.length)}
 if(c.indexOf("|")>-1){
  if(WinOS || IE5M){Al="Présence d'un caractère non autorisé"}
  else{Al="PrŽsence d'un caract�re non autorisŽ"}
  Al+=" dans la carte de visite."
  alert(Al);return}
 c=remplaceLF(c)
 e=c.length-255
 if(e>0){
  if(e>1){z="s."}else{z="."}
  Al="Votre carte de visite est trop longue de "+e+" "+Car+z;alert(Al);return}
 CarteVisite=maj(c)
 // -- RŽcup PalChatSize
 Obj=getDom("SaisieUserForm")
 if(Obj.elements[1].checked){PalChatSize="P";PalHt=PalHtPetit}
 else{PalChatSize="G";PalHt=PalHtGrand}
 // -- Test si nŽcessitŽ actualisation
 Yet=new Date()
 DateExpEntree.setTime(DateGetPseudo.getTime()+DelaiExpEntree)
 if(Yet>DateExpEntree){
  if(!writeCook()){return}
  if(WinOS || IE5M){Al="Actualisation de la liste des connectés..."}
  else{Al="Actualisation de la liste des connectŽs..."}
  alert(Al)
  Adr=AdrPageEntree+"?IDPAGE="+Yet.getTime()
  top.location.href=Adr
  return}
 // Test si doublon
 if(doublonPseudo()){return}
 // Test si carte visite
 if(CarteVisite.length==0){
  Al="Une carte de visite "
  if(WinOS || IE5M){Al+="(âge, type de diabète, région, préoccupations...)"}
  else{Al+="(‰ge, type de diab�te, rŽgion, prŽoccupations...)"}
  Al+=" vous permettrait de ne pas "
  if(WinOS || IE5M){Al+="être"}else{Al+="�tre"}
  Al+=" confondu avec quelqu'un utilisant le "
  if(WinOS || IE5M){Al+="même"}else{Al+="m�me"}
  Al+=" pseudo que vous, et de gagner du temps ;-) Souhaitez-vous utiliser une carte de visite ?"
  if(confirm(Al)){Obj=getDom("SaisieCarteInput");Obj.focus();Obj.select();return}}
 // Tout est OK
 DateGetPseudo.setTime(0)
 if(!writeCook()){return}
 else{
  actualiseCouleur(Couleur)
  changeStyle("SaisiePseudoInput","color",ValCoul)
  Obj=getDom("SaisiePseudoInput");Obj.value=PseudoChat;
  changeStyle("SaisieCarteInput","color",ValCoul)
  Obj=getDom("SaisieCarteInput");Obj.value=CarteVisite;
  chargePalChat()}}

// == Sub

function focusPseudo(){
 Obj=getDom("SaisiePseudoInput")
 Obj.focus()
 if(Obj.value.length==0){Obj.select()}}

function focusMsg(){
 Obj=getDom("SaisieMsgInput")
 Obj.focus()
 if(Obj.value.length==0){Obj.select()}}

function maj(x){
 Prem=x.substring(0,1);return Prem.toUpperCase()+x.substring(1,x.length)}

function remplace(an,nv,ch){
 l=an.length;if(an=="\n" || an=="\r"|| an=="\t"){l=1}
 i=ch.indexOf(an)
 while(i>-1){ch=ch.substring(0,i)+nv+ch.substring(i+l,ch.length);i=ch.indexOf(an)}
 return ch}

function remplaceLF(x){
 x=remplace("\n"," ",x)
 x=remplace("\r"," ",x)
 x=remplace("\t"," ",x)
 return x}

function monEscape(x){
 x=remplaceLF(x)
 x=remplace("\t"," ",x)
 x=remplace(" ##"," #",x)
 x=remplace(" # "," ",x)
 x=remplace("[","",x)
 x=remplace("]","",x)
 x=remplace("  "," ",x)
 x=remplace("#","%23",x)
 x=remplace("&","%26",x)
 x=remplace("+","%2B",x)
 x=remplace(" ","+",x)
 return x}

// == Boutons Chat

function mail(){chargePalDsf("FCMail.php")}

function aide(){chargePalAide()}

function aideCV(){chargePalDsf("InfoCV.php")}

function cartesVisites(){chargePalCV()}

function web(){window.open()}

function map(){chargePalDsf("FCMap.php")}

function rech(){chargePalDsf("FCRech.php")}

function forum(){chargePalDsf("FCFrSuj.php")}

function idFaus(){chargePalDsf("FCIdFaus.php")}

function efface(){
 Obj=getDom("SaisieMsgInput");Obj.value=""
 focusMsg()}

function recharge(){
 clearTimeout(TimeOutActuAuto)
 FlagNePasActuChat=1
 CptRecharge=0
 if(!writeCook()){return}
 Obj=getDom("SaisieMsgInput");Obj.value="Un rechargement est necessaire..."
 Yet=new Date()
 Adr=AdrPage+"?IDPAGE="+Yet.getTime()
 top.location.href=Adr}
 // top.location.reload(true)}

function colleMsg(){
 if(MemoMsg!=""){Obj=getDom("SaisieMsgInput");Obj.value=MemoMsg}
 focusMsg()}

function writeSmil(x){
 x=" #"+x+" ";Obj=getDom("SaisieMsgInput");
 y=Obj.value;z=y.length+x.length;if(z<256){Obj.value+=x}
 focusMsg()}

function testTab(evt){
 evt=(evt) ? evt : ((window.event) ? window.event : null)
 if(evt){
  charCode=(evt.which) ? evt.which : evt.keyCode
  if(charCode==9 || charCode==27){colleMsg()}}}

function selectCouleur(x){
 if(Couleur==x){
  if(WinOS || IE5M){Al="Cette couleur est déjà sélectionnée."}
  else{Al="Cette couleur est dŽjˆ sŽlectionnŽe."}
  alert(Al);focusMsg();return}
 Couleur=x
 if(!writeCook()){return}
 actualiseCouleur(x)
 changeStyle("SaisieMsgInput","color",ValCoul)
 InfoChat=PseudoChat+" change sa couleur en "+NomCoul+"."
 envoieMsg()
 focusMsg()}

function actualiseCouleur(x){
 if(x=="N"){NomCoul="noir";ValCoul="#000000"}
 if(x=="R"){NomCoul="rouge";ValCoul="#FF0000"}
 if(x=="M"){NomCoul="marron";ValCoul="#663333"}
 if(x=="V"){NomCoul="vert";ValCoul="#006600"}
 if(x=="B"){NomCoul="bleu";ValCoul="#0000FF"}
 if(x=="X"){NomCoul="violet";ValCoul="#6600CC"}
 if(x=="n"){NomCoul="gris";ValCoul="#666666"}
 if(x=="r"){NomCoul="orange";ValCoul="#FF9900"}
 if(x=="m"){NomCoul="beige";ValCoul="#996633"}
 if(x=="v"){NomCoul="vert clair";ValCoul="#00CC00"}
 if(x=="b"){NomCoul="bleu clair";ValCoul="#0099FF"}
 if(x=="x"){NomCoul="rose";ValCoul="#FF33CC"}}

function selectFtNum(x){
 if(FtNum==x){
  if(WinOS || IE5M){Al="Cette police de caractères est déjà sélectionnée."}
  else{Al="Cette police de caract�res est dŽjˆ sŽlectionnŽe."}
  alert(Al);focusMsg();return}
 FtNum=x
 if(!writeCook()){return}
 Obj=getDom("SaisieMsgInput");Obj.value=""
 recharge()}

function selectFtSize(x){
 if(FtSize==x){
  if(WinOS || IE5M){Al="Cette taille de caractères est déjà sélectionnée."}
  else{Al="Cette taille de caract�res est dŽjˆ sŽlectionnŽe."}
  alert(Al);focusMsg();return}
 FtSize=x
 if(!writeCook()){return}
 Obj=getDom("SaisieMsgInput");Obj.value=""
 recharge()}

function selectFtWeight(x){
 if(x==0 && FtWeight==0){
  if(WinOS || IE5M){Al="Cette épaisseur de caractères est déjà sélectionnée."}
  else{Al="Cette Žpaisseur de caract�res est dŽjˆ sŽlectionnŽe."}
  alert(Al);focusMsg();return}
 if(x==1 && FtWeight==1){
  if(WinOS || IE5M){Al="Cette épaisseur de caractères est déjà sélectionnée."}
  else{Al="Cette Žpaisseur de caract�res est dŽjˆ sŽlectionnŽe."}
  alert(Al);focusMsg();return}
 FtWeight=x
 if(!writeCook()){return}
 Obj=getDom("SaisieMsgInput");Obj.value=""
 recharge()}

// == Chat

function spanTexte(){
 if(NS4){
  str='<SPAN ID="SpanTexte"><LAYER NAME="SpanTexteInt"></LAYER></SPAN>\n'}
 if(IE45 || IE6 || NS6){
  str='<IFRAME NAME="IframeTexte" WIDTH=0 HEIGHT=0 style="position:absolute; left:0; top:0; visibility:none;"></IFRAME>\n'
  str+='<SPAN ID="SpanTexte"><SPAN ID="SpanTexteInt"></SPAN></SPAN>\n'}
 if(W3C && !IE6 && !NS6){
  str='<SPAN ID="SpanTexte">\n'
  str+='<IFRAME ID="IdIframeTexte" NAME="IframeTexte" FRAMEBORDER="0" MARGINHEIGHT="1" MARGINWIDTH="1" SCROLLING="NO"></IFRAME>\n'
  str+='</SPAN>\n'}
 document.write(str)}

function spanConn(){
 if(NS4){
  str='<SPAN ID="SpanConn"><LAYER NAME="SpanConnInt"></LAYER></SPAN>\n'}
 if(IE45 || IE6 || NS6){
  str='<IFRAME NAME="IframeConn" WIDTH=0 HEIGHT=0 style="position:absolute; left:0; top:0; visibility:none;"></IFRAME>\n'
  str+='<SPAN ID="SpanConn"><SPAN ID="SpanConnInt"></SPAN></SPAN>\n'}
 if(W3C && !IE6 && !NS6){
  str='<SPAN ID="SpanConn">\n'
  str+='<IFRAME ID="IdIframeConn" NAME="IframeConn" FRAMEBORDER="0" MARGINHEIGHT="1" MARGINWIDTH="1" SCROLLING="NO"></IFRAME>\n'
  str+='</SPAN>\n'}
 document.write(str)}

function calculTmr(){
 Yet=new Date()
 NumETAS++;if(NumETAS==11){NumETAS=1}
 TblETAS[NumETAS]=(Yet.getTime()-ETAS)
 TotETAS=0;for(i=1;i<11;i++){if(TblETAS[i]>0){TotETAS+=TblETAS[i];NbETAS=i}}
 if(TotETAS>0){
  x=(TotETAS/NbETAS)/10;if(x>999){x=999}
  ValTmr=Math.floor(x)}
 else{ValTmr=0}}

function afficheTexte(){
 calculTmr()
 if(NS4){
  SpanTexteIntHt=document.SpanTexte.document.SpanTexteInt.document.height
  if(SpanTexteIntHt>TexteHt){document.SpanTexte.document.SpanTexteInt.top=TexteHt-SpanTexteIntHt}
  else{document.SpanTexte.document.SpanTexteInt.top=0}
  document.SpanTexte.document.SpanTexteInt.clip.top=SpanTexteIntHt-TexteHt
  document.SpanTexte.document.SpanTexteInt.clip.right=TexteWd
  document.SpanTexte.document.SpanTexteInt.clip.bottom=SpanTexteIntHt
  document.SpanTexte.document.SpanTexteInt.clip.left=0}
 if(IE45 || IE6){
  Obj=getDom("SpanTexteInt")
  Obj.innerHTML=document.frames['IframeTexte'].document.body.innerHTML
  SpanTexteIntHt=Obj.scrollHeight
  if(SpanTexteIntHt>TexteHt){Obj.style.pixelTop=TexteHt-SpanTexteIntHt}
  else{Obj.style.pixelTop=0}
  Obj.style.clip="rect("+(SpanTexteIntHt-TexteHt)+"px "+TexteWd+"px "+SpanTexteIntHt+"px 0px)"}
 if(NS6){
  // non encore testŽ, a priori :
  // scrollHeight et pixelTop non disponibles 
  // -> essayer offsetHeight et offsetTop qui sont disponibles
  Obj=getDom("SpanTexteInt")
  Obj.innerHTML=document.frames['IframeTexte'].document.body.innerHTML
  SpanTexteIntHt=Obj.offsetHeight
  if(SpanTexteIntHt>TexteHt){Obj.offsetTop=TexteHt-SpanTexteIntHt}
  else{Obj.offsetTop=0}
  Obj.style.clip.top=SpanTexteIntHt-TexteHt
  Obj.style.clip.right=TexteWd
  Obj.style.clip.bottom=SpanTexteIntHt
  Obj.style.clip.left=0}
 if(W3C && !IE6 && !NS6){ // OK pour IE5M ; pour les autres = ?
  Obj=getFrameDom('IframeTexte','TexteRecu')
  IframeTexteHt=Obj.offsetHeight
  document.frames['IframeTexte'].document.body.scrollTop=IframeTexteHt-TexteHt+30}
 ActuEnCoursTexte=false
 Obj=getDom("OnLineTexte");Obj.src=OnLineV.src}

function alertARejoint(){
 if(FlagBlur){alert("Connexion au Chat DiabSurf");self.focus();focusMsg()}}

function afficheConn(){
 if(NS4){
  document.SpanConn.document.SpanConnInt.top=0
  document.SpanConn.document.SpanConnInt.clip.top=0
  document.SpanConn.document.SpanConnInt.clip.right=ConnWd
  document.SpanConn.document.SpanConnInt.clip.bottom=ConnHt
  document.SpanConn.document.SpanConnInt.clip.left=0}
 if(IE45 || IE6){
  Obj=getDom("SpanConnInt")
  Obj.innerHTML=document.frames['IframeConn'].document.body.innerHTML
  SpanConnIntHt=Obj.scrollHeight
  Obj.style.pixelTop=0
  Obj.style.clip="rect(0px "+ConnWd+"px "+ConnHt+"px 0px)"}
 if(NS6){
  Obj=getDom("SpanConnInt")
  Obj.innerHTML=document.frames['IframeConn'].document.body.innerHTML
  SpanConnIntHt=Obj.offsetHeight
  Obj.offsetTop=0
  Obj.style.clip.top=0
  Obj.style.clip.right=ConnWd
  Obj.style.clip.bottom=ConnHt
  Obj.style.clip.left=0}
 if(W3C && !IE6 && !NS6){
  document.frames['IframeConn'].document.body.scrollTop=0}
 ActuEnCoursConn=false
 Obj=getDom("OnLineConn");Obj.src=OnLineV.src}

function envoiTexteAuServeur(){
 clearTimeout(TimeOutActuAuto)
 Yet=new Date()
 if(Yet>DateExpSession){
  deconnInact()}
 else{
 Obj=getDom("OnLineTexte");Obj.src=OnLineO.src
 ActuEnCoursTexte=true
 Adr=Base+"AffTexte.php?"+Ligne+ParamARejoint+Param+TexteMsg+"&IDPAGE="+IdPage
 ETAS=Yet.getTime()
 if(NS4){document.SpanTexte.document.SpanTexteInt.src=Adr}
 else{document.frames['IframeTexte'].location=Adr}
 TimeOutActuAuto=setTimeout("envoiConnAuServeur()",1000)}}

function envoiConnAuServeur(){
 clearTimeout(TimeOutActuAuto)
 Yet=new Date()
 Obj=getDom("OnLineConn");Obj.src=OnLineO.src
 ActuEnCoursConn=true
 Adr=Base+"AffConn.php?"+Ligne+Param+"&TMR="+ValTmr+"&IDPAGE="+Yet.getTime()
 if(NS4){document.SpanConn.document.SpanConnInt.src=Adr}
 else{document.frames['IframeConn'].location=Adr}
 TimeOutActuAuto=setTimeout("envoiTexteBis()",1500)}

function envoiTexteBis(){
 clearTimeout(TimeOutActuAuto)
 if(ActuEnCoursTexte){
  Adr=Base+"AffTexte.php?"+Ligne+ParamARejoint+Param+TexteMsg+"&IDPAGE="+IdPage
  if(NS4){document.SpanTexte.document.SpanTexteInt.src=Adr}
  else{document.frames['IframeTexte'].location=Adr}}
 else{Obj=getDom("OnLineTexte");Obj.src=OnLineV.src}
 TimeOutActuAuto=setTimeout("envoiConnBis()",1000)}

function envoiConnBis(){
 clearTimeout(TimeOutActuAuto)
 if(ActuEnCoursConn){
  Yet=new Date()
  Adr=Base+"AffConn.php?"+Ligne+Param+"&TMR="+ValTmr+"&IDPAGE="+Yet.getTime()
  if(NS4){document.SpanConn.document.SpanConnInt.src=Adr}
  else{document.frames['IframeConn'].location=Adr}}
 else{Obj=getDom("OnLineConn");Obj.src=OnLineV.src}
 TimeOutActuAuto=setTimeout("envoiTexteTer()",2000)}

function envoiTexteTer(){
 clearTimeout(TimeOutActuAuto)
 if(ActuEnCoursTexte){
  Adr=Base+"AffTexte.php?"+Ligne+ParamARejoint+Param+TexteMsg+"&IDPAGE="+IdPage
  if(NS4){document.SpanTexte.document.SpanTexteInt.src=Adr}
  else{document.frames['IframeTexte'].location=Adr}}
 else{Obj=getDom("OnLineTexte");Obj.src=OnLineV.src}
 TimeOutActuAuto=setTimeout("envoiConnTer()",1000)}

function envoiConnTer(){
 clearTimeout(TimeOutActuAuto)
 if(ActuEnCoursConn){
  Yet=new Date()
  Adr=Base+"AffConn.php?"+Ligne+Param+"&TMR="+ValTmr+"&IDPAGE="+Yet.getTime()
  if(NS4){document.SpanConn.document.SpanConnInt.src=Adr}
  else{document.frames['IframeConn'].location=Adr}}
 else{Obj=getDom("OnLineConn");Obj.src=OnLineV.src}
 TimeOutActuAuto=setTimeout("nouvCycle()",2500)}

function nouvCycle(){
 clearTimeout(TimeOutActuAuto)
 Obj=getDom("OnLineTexte")
 if(ActuEnCoursTexte){calculTmr();Obj.src=OnLineG.src}else{Obj.src=OnLineV.src}
 Obj=getDom("OnLineConn")
 if(ActuEnCoursConn){Obj.src=OnLineG.src}else{Obj.src=OnLineV.src}
 if(ActuEnCoursTexte){CptRecharge++;
  if(FlagBlur && CptRecharge>1){recharge();return}
  if(CptRecharge>2){recharge();return}}
 else{CptRecharge=0}
 ParamARejoint="&AREJOINT=0"
 TexteMsg="&MSG="
 FNouvCycle=true
 Yet=new Date()
 IdPage=""+UserIdChat+Yet.getTime()
 TimeOutActuAuto=setTimeout("envoiTexteAuServeur()",1000)}

function submitSaisieMsg(){
 clearTimeout(TimeOutActuAuto)
 CptActuEnCours=0
 envoieMsg()}

function envoieMsg(){
 if(!NavOk){return}
 Obj=getDom("SaisieMsgInput")
 if(Obj.value.indexOf("rechargement est necessaire")>-1){Obj.value=""}
 if(ActuEnCoursTexte && Obj.value!="" && !FNouvCycle){
  Obj=getDom("OnLineTexte");Obj.src=OnLineR.src
  CptActuEnCoursTexte++
  if(CptActuEnCoursTexte>=6){
   Obj=getDom("OnLineTexte");Obj.src=OnLineO.src
   CptActuEnCoursTexte=0;ActuEnCoursTexte=false}
  TimeOutEnvoiMsg=setTimeout("envoieMsg()",500)}
 else{
  clearTimeout(TimeOutEnvoiMsg)
  CptActuEnCoursTexte=0
  FNouvCycle=false
  Obj=getDom("SaisieMsgInput")
  Msg=Obj.value
  Msg=Msg.substring(0,255)
  if(Msg!=""){MemoMsg=Msg}
  Ligne="PSEUDOUSER="+monEscape(PseudoChat)+"&IDUSER="+UserIdChat+"&COULEURUSER="+Couleur
  Ligne+="&CARTE="+monEscape(CarteVisite)
  if(InfoChat!=""){ // msg InfoChat
   Ligne+="&PSEUDOMSG=InfoChat&COULEURMSG=I"
   if(SetARejoint){ParamARejoint="&AREJOINT=1"}else{ParamARejoint="&AREJOINT=0"}
   SetARejoint=false
   TexteMsg="&MSG="+monEscape(InfoChat)
   InfoChat=""}
  else{ // msg d'un connectŽ
   Ligne+="&PSEUDOMSG="+monEscape(PseudoChat)+"&COULEURMSG="+Couleur
   ParamARejoint="&AREJOINT=0"
   if(Msg!=""){TexteMsg="&MSG="+monEscape(Msg)}else{TexteMsg="&MSG="}}
  Obj=getDom("SaisieMsgInput");Obj.value=""
  focusMsg()
  Param="&FTNUM="+FtNum+"&FTSIZE="+FtSize+"&FTWEIGHT="+FtWeight+"&SCREENHEIGHT="+TexteHt
  Yet=new Date()
  IdPage=""+UserIdChat+Yet.getTime()
  DateExpSession=new Date()
  DateExpSession.setTime(DateExpSession.getTime()+DelaiExpSession)
  envoiTexteAuServeur()}}

// == EntrŽes et sorties du Chat

function rejointChat(){
 readCook()
 if(FlagNePasActuChat==0){
  InfoChat="*"
  SetARejoint=true
  TCV=setTimeout("cartesVisites()",2500)}
 else{
  FlagNePasActuChat=0;if(!writeCook()){return}}
 envoieMsg()
 actualiseCouleur(Couleur)
 changeStyle("SaisieMsgInput","color",ValCoul)
 focusMsg()}

function quitChat(){
 clearTimeout(TimeOutEnvoiMsg)
 clearTimeout(TimeOutActuAuto)
 if(FlagNePasActuChat==1){return}
 if(!NavOk){return}
 Yet=new Date()
 IdPage=""+UserIdChat+Yet.getTime()
 Ligne="PSEUDOUSER="+monEscape(PseudoChat)
 Ligne+="&IDUSER="+UserIdChat+"&COULEURUSER="+Couleur
 Ligne+="&PSEUDOMSG=InfoChat&COULEURMSG=I"
 ParamARejoint="&AREJOINT=2"
 TexteMsg="&MSG="
 Adr=Base+"QuitChat.php?"+Ligne+ParamARejoint+TexteMsg+"&IDPAGE="+IdPage
 closePalAide();closePalCV()
 chargePalQuit(Adr)}

function deconnInact(){
 clearTimeout(TimeOutEnvoiMsg)
 clearTimeout(TimeOutActuAuto)
 // if(FlagNePasActuChat==1){return}
 if(!NavOk){return}
 Yet=new Date()
 IdPage=""+UserIdChat+Yet.getTime()
 Ligne="PSEUDOUSER="+monEscape(PseudoChat)
 Ligne+="&IDUSER="+UserIdChat+"&COULEURUSER="+Couleur
 Ligne+="&PSEUDOMSG=InfoChat&COULEURMSG=I"
 ParamARejoint="&AREJOINT=3"
 TexteMsg="&MSG="
 Adr=Base+"DeconnChat.php?"+Ligne+ParamARejoint+TexteMsg+"&IDPAGE="+IdPage
 closePalAide();closePalCV()
 chargePalDeconn(Adr)
 FlagNePasActuChat=1;T=setTimeout("self.close()",500)}

function closePalAide(){
 if(PalAide==null || PalAide.closed){return}else{PalAide.close();PalAide=null}}

function closePalCV(){
 if(PalCV==null || PalCV.closed){return}else{PalCV.close();PalCV=null}}

// == Loaded

ChatJsLoaded=true

// --