var dayis = 0;
        bugger="2";
for(i=0; i < document.links.length ; i++){
  cock= document.links[i].id;
  if (cock == "flash") {
    document.links[i].id = "flash"+i;
    // alert(document.links[i].id)
    (bw.ie)?document.links[i].title=warner:document.links[i].title=""; // ie6^ ?
  }
  bugger = document.links[i].text;
  if (bugger) {
  fart = bugger.length;
  if (fart >= 2) {fart = bugger.substring(fart-2,fart);}
  if (fart == " #") {  bugger = "# flash"; }// if fart
  } //if bugger
  if (bugger) bugger=bugger.substring(0,1);    
    document.links[i].onmouseout = Nomsg;    
    if (bugger == "#"||cock=="flash") {
    document.links[i].onmouseover = Flasher;
  }//if (bugger)
  else{
    document.links[i].onmouseover = Msger;
  }//else
} // for
 document.write('<small> <br>in case of difficulty <A HREF="contact.htm" class="bl" alt="e-mail Mr Red" title="e-mail Mr Red">&nbsp;tell Mr Red&nbsp;</A>');
 document.write(' &amp; quote -  <span class="bl">&nbsp;browser = ' +navigator.appName+'  ...... ')
 document.write(' version = ' +navigator.appVersion + ' ..... (' + bw.shit + ')&nbsp;</span></small><BR>')


if(!(bw.ie)){
 document.write("<div id='divCursor' style='position:absolute;top:0;left:0;width:400;visibility:'hide'>")
 document.write("<table bgcolor='white' border=1 width=350 height=100><TR><TD><B># denotes link is to a Flash site - they can be<BR>")
 document.write("verrrrrry slow without broadband & are often blank<BR>")
 document.write("without the Flash plug-in, or parts are unusable. <BR>")
 document.write("Tick one of the above</B></TD></TR></TABLE></div>")
} else{
 document.write("<div id='divCursor' style='position:absolute;top:0;left:0;width:400;visibility:''hide''>")
 document.write(" </div>")
}




// status text scrolling program with halt on mouse move - 

//This script calculates the which days of the month a given day of the week is
// programmer is Mr Red of cresby.com fame.  He can be contacted from his website with a webmail form.

function getDomString(num)
{
var dow;    //Create a local variable to hold the string.
dow="5th";
if (num < 8)  dow="1st";
else if (num < 15) dow="2nd";
else if (num < 22) dow="3rd";
else if (num < 29) dow="4th";
  return dow;
}

function WrDate(dater,DmC)
{
  var Dmw ;
 var Dimw ;
 var Duffw ;
 var DufStrw = new String('') ;
 var DuffYearw  ;
 var DuffDayw = new String('') ;
 var DimSecw = 1 ;
 var Colw = new String('#F0F0FF');
 var WrDateStr ;
 var WrMonthStr ;
 var na ;
 var locat;
 Dimw = 31;
 Duffw = new Date(dater);  // dater is mS
 Dmw = Duffw.getMonth() + 1 ;
 DuffYearw = Duffw.getYear() ;
 DuffStrw = DuffYearw.toString() ;
// alert(dater+" "+DmC+" "+Duffw)
 if (Dmw << 12)
   {
       Duffw = new Date(DuffYearw.toString(),Dmw.toString(),'1','4','0','0','0') ;
       DimSecw = Duffw.getTime() - 86400000;  // No of mS in a day
       Duffw = new Date(DimSecw) ;
       Dimw  = Duffw.getDate() ;
   }
 Duffw = new Date(dater) ;
 DuffDayw = getDomString(Duffw.getDate()) ;
 DimSecw = Dimw-Duffw.getDate;
 if ( (Dimw-Duffw.getDate()) < 7) DuffDayw = DuffDayw + ' & Last';
 DuffStrw = Duffw.toString() ;
 WrDateStr = DuffStrw.substr(0,3) ;
 na = Duffw.getDate() ;
  for(i=0; i < document.links.length ; i++){
    if (document.links[i].hash == "#today"){document.links[i].href = "#" + WrDateStr;}
    if (sear(document.links[i].href,"ltimap")) {
       locat = "Map of "
       if (sear(document.links[i].href,"scale=5")) {
         locat = "Detail " + locat;
       }
       if (sear(document.links[i].href,"pc=")) {
        locat = locat + getpc(document.links[i].href);
       }
       else{  
         locat = locat + "the location";
       } 
     document.links[i].alt = locat ;
     document.links[i].title = locat ;
    }
    if (document.links[i].id != "dom") { 
       if ((document.links[i].alt == "")){
          document.links[i].alt = document.links[i].href ;
          if ((document.links[i].title == "")){ document.links[i].title = document.links[i].href; }
       }
       if ((document.links[i].title == "")){ 
          if (navigator.appName != "Opera" ) {document.links[i].title = document.links[i].href;}
          if ((document.links[i].alt == "")){ document.links[i].alt = document.links[i].href }
       }
    }
    if (document.links[i].id == "dom") {
      document.links[i].title = "today is the "+DuffDayw +" "+ WrDateStr+"... click to see the next 28 days"
      document.links[i].alt = "today is the "+DuffDayw +" "+ WrDateStr+"... click to see the next 28 days"
      document.links[i].id = "dom" + i
    } 
  } // for
  return DuffDayw +" "+ WrDateStr
}

function getpc(lookat){
var outer = "";
  for(ii=0; ii < lookat.length ; ii++){
    if (lookat.charAt(ii) == "="){
      qq = ii;
      ii = 255;
      while (lookat.charAt(++qq) != "&"){
        outer = outer + lookat.charAt(qq);
      }
    }
  }
//        alert ("outer = " + outer + " ii = " + ii)
return outer
}

function sear(lookat,forthis){
var same = false ;
var nn = 0;
var qq = 0
if (lookat.length == 0 ) {return false}
if (forthis.length == 0 ) {return false}
  for(ii=0; ii < lookat.length ; ii++){
    if (lookat.charAt(ii) == forthis.charAt(0)){
     qq = 1;
     if (lookat.length <= (forthis.length + ii) ) {return false}
     for (nn=1; nn < forthis.length ; nn++){
       if (lookat.charAt(ii+nn) == forthis.charAt(nn)) {
        qq = ++qq;
       }
       else{
        nn = 255;
        qq = 0;
       }
     }
    if (qq == forthis.length) {return true}
    }
  }
return false
}

 theDate = new Date();
var DC = theDate.getMonth() ;
 DimSec = theDate.getTime() ;
var dom = WrDate(DimSec,DC);

var slower =1;
var delay = 10;
var startPos = 100;
var ns=(document.layers);
var ie=(document.all);
var firefoxy=!(ns||ie);
var timerID = null
var timerRunning = false
var positer = 2
var notnow = 3 // hold-off
var shit = 0;
var itisin = 0;
sayit = new Array();

sayit[0] = "cresby.com";
sayit[1] = " ";
sayit[2] = "                 "+dom;
sayit[3] = "today is the "+dom+" of this month";
sayit[4] = " ";
sayit[5] = " ";
//var warner= ".the link is to a Flash site - they can be verrrrrry slow without broadband & are often all blank without the Flash plug-in";
var goforit = sayit[3]
var nss ;
var nse;



// Crank it up!
StartScrolling()

function StartScrolling(){
    StopTheClock()
    DoTheScroll()
}

function StopTheClock(){
    if(timerRunning)
        clearTimeout(timerID)
    timerRunning = false
}
function DoTheScroll(){
    delay = 400;
   if(shit == 4) {
    self.status= goforit ;
   } //if(shit == 4)
    notnow = notnow - 1 ;  
   if (notnow<2){ 
       itisin=0;
       notnow=1;
       self.status = sayit[positer];
   } // if (notnow<2)
   if (notnow>1){
    } //if (notnow>1)

    positer=positer+1;
    if(positer>4){positer=0;}
    if (positer == 1) {delay = 3000;}
    if (positer == 4) {delay = 4000 + (++slower)*100;}	
    timerRunning = true;
    shit=shit-1;
    if (shit < 0) {shit=0;}
    timerID = self.setTimeout("DoTheScroll()", delay);
}


/********************************************************************
Contructs the cursorobjects
*********************************************************************/
function makeCursorObj(obj,nest){
	nest=(!nest) ? '':'document.'+nest+'.'
//        alert(obj+" ."+nest+".")										
   	this.css=bw.dom? document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?eval(nest+"document.layers." +obj):0;														
	this.moveIt=b_moveIt; 																	
	return this
}
function b_moveIt(x,y){this.x=x; this.y=y; this.css.left=this.x; this.css.top=this.y}
/********************************************************************
Tracking the mousemove and moves the object along.
*********************************************************************/
function move(e){
	x=bw.ns4 || bw.ns5?e.pageX:event.x
	y=bw.ns4 || bw.ns5?e.pageY:event.y
	if(bw.ie4 || bw.ie5) y=y+eval(scrolled)
        if (seeit==0){ document.onmousemove=null;}
 if (bw.ns4) {
 (seeit ==0)?oCursor.css.visibility="hide":oCursor.css.visibility="show";
    fred = window.innerWidth;
    if (x<(fred/3+1)) x = x+175; 
    if (x>fred*2/3) x = x-175; 
    if (x>fred/3 && x<(fred*2/3+1)) x = x-175; 
 if (x<-20) {x=20;}
     jim = y-(window.pageYOffset);
     bill = window.outerHeight-30;
    (jim<bill/2)?y=y+10:y=y-130;
 }
 if(bw.ns5){
 var blockElement = document.getElementById("divCursor");
 (seeit ==0)?oCursor.css.visibility="hidden":oCursor.css.visibility="visible";
    fred = window.innerWidth;
    if (x<(fred/3+1)) x = x+175; 
    if (x>fred*2/3) x = x-175; 
    if (x>fred/3 && x<(fred*2/3+1)) x = x-175; 
    if (x<-20) x=20;
     jim = y-(window.pageYOffset);
     bill = window.outerHeight-30;
    (jim<bill/2)?y=y+10:y=y-130;
 }
     oCursor.moveIt(x+fromLeft,y+fromTop)
}
function Flasher(){
seeit=1;
    notnow = 30;
  if (itisin==0) {
    slower = 1;
    shit=10;
    itisin = 1;
  }
    goforit = warner;
if (firefoxy) {notnow=15;}
if (!(bw.ie4||bw.ie5)) document.onmousemove=move;
} //function

function Msger(){
seeit=0;
 if (itisin == 0) {
    notnow = 20;
    slower = 1; 
    itisin = 1;
 }
goforit = sayit[3];
if (firefoxy) {notnow=10;}
}
function Nomsg(){seeit=0;
    notnow = 4;
 if (firefoxy){notnow=4;}
    slower = 1;
    positer= 5;
if (firefoxy) {notnow=5;}
self.status=goforit;
}


// alert(navigator.appName +" "+navigator.appVersion)