/* Thanks to html-reference.com and w3schools.com for the examples */

  var scrtxt="";
  var scrarray=5
  var scrtxt1=new Array(scrarray);
  scrtxt1[0]="Help save skunks, donate today. ";
  scrtxt1[1]="Email deb@skunkhaven.net for assistance. ";
  scrtxt1[2]="Furry stinkers need love too - donate today!";
  scrtxt1[3]="Skunks, they're not just black and white. ";
  scrtxt1[4]="Domestic and wild...skunks need YOUR help - donate today! ";
  scrtxt1[5]="Text6 ";
  scrtxt1[6]="Text7 ";
  scrtxt1[7]="Text8 ";
  scrtxt1[8]="Text9 ";
  scrtxt1[9]="Text10 ";
  var scrtxt2=" Join SkunkHaven. ";
  var scrtxt3=" Get more information on ";
  var scrtxt4=" at groups.yahoo/groups/SkunkInfo/. ";
  var scrtxt5=" Find out about our veterinary projects";
  num=Math.random()*(scrarray - 0.51);
  txtnum=Math.round(num);
  var width=100;
  var pos=1-width;


function scroll() 
{
  switch (document.title)
  {
    case "Welcome to Skunk Haven":
        scrtxt=scrtxt1[txtnum]+scrtxt2+" Get information from skunk owners"+scrtxt4
    break
    case "SkunkHaven: Intro to Skunks":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Skunks"+scrtxt4
    break
    case "SkunkHaven: Basic Skunk Care":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Pet Skunk Problems"+scrtxt4
    break
    case "SkunkHaven: Pet Skunks":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Pet Skunks"+scrtxt4
    break
    case "SkunkHaven: Your New Skunk":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Skunk Care and Training"+scrtxt4
    break
    case "SkunkHaven: Nutrition and Diet":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Nutrition and Diet"+scrtxt4
    break
    case "SkunkHaven: Nutrition and Diet":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Foods and Supplements"+scrtxt4
    break
    case "SkunkHaven: Skunk First Aid":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Skunk First Aid"+scrtxt4
    break
    case "SkunkHaven: Parasites":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Parasites"+scrtxt4
    break
    case "SkunkHaven: Rectal Prolapse":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Rectal Prolapse"+scrtxt4
    break
    case "SkunkHaven: Seizures":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Seizures"+scrtxt4
    break
    case "SkunkHaven: Legal States":
        scrtxt=scrtxt1[txtnum]+scrtxt2+" Find other skunk lovers in your state"+scrtxt4
    break
    case "SkunkHaven Membership":
        scrtxt=scrtxt1[txtnum]+scrtxt2+" Get involved with SkunkHaven"+scrtxt4
    break
    case "SkunkHaven: Adoption Application":
        scrtxt=scrtxt1[txtnum]+scrtxt3+"Adopting Skunks"+scrtxt4
    break
    case "SkunkHaven: Sponsor-A-Skunk Program":
        scrtxt=scrtxt1[txtnum]+scrtxt2+" Stay in touch with other skunks"+scrtxt4
    break
    case "SkunkHaven: Skunk Rescues":
        scrtxt=scrtxt1[txtnum]+scrtxt4+"Rescue Skunks"+scrtxt4
    break
    case "SkunkHaven: Veterinary Care (pg. 1)":
        scrtxt=scrtxt1[txtnum]+scrtxt5+scrtxt4
    break
    case "SkunkHaven: Veterinary Care (pg. 2)":
        scrtxt=scrtxt1[txtnum]+scrtxt5+scrtxt4
    break
    case "SkunkHaven: Veterinary Care (pg. 3)":
        scrtxt=scrtxt1[txtnum]+scrtxt5+scrtxt4
    break
    case "SkunkHaven: Veterinary Care (pg. 4)":
        scrtxt=scrtxt1[txtnum]+scrtxt5+scrtxt4
    break
    case "SkunkHaven: Veterinary Care (pg. 5)":
        scrtxt=scrtxt1[txtnum]+scrtxt5+scrtxt4
    break
    case "SkunkHaven: Veterinary Care (pg. 6)":
        scrtxt=scrtxt1[txtnum]+scrtxt5+scrtxt4
    break
    case "SkunkHaven: Veterinary Care (pg. 7)":
        scrtxt=scrtxt1[txtnum]+scrtxt5+scrtxt4
    break
    case "SkunkHaven: Arthritis and Bone Loss":
        scrtxt=scrtxt1[txtnum]+" Get more information on Legal States"+scrtxt4
    break
    case "SkunkHaven: Educational Programs":
        scrtxt=scrtxt1[txtnum]+" Get more information on Legal States"+scrtxt4
    break
    case "SkunkHaven: Additional Links":
        scrtxt=scrtxt1[txtnum]+" Get more information on Legal States"+scrtxt4
    break
    case "SkunkHaven: Wild Skunk Rescue":
        scrtxt=scrtxt1[txtnum]+scrtxt2+" Information on Wild Skunk Rescue"+scrtxt4
    break
    case "SkunkHaven: Skunk Fest":
        scrtxt=scrtxt1[txtnum]+scrtxt2+" Get involved with Skunk Fest"+scrtxt4
    break
    default:
        scrtxt=scrtxt1[txtnum]+" Get help from others"+scrtxt4
  };
    lentxt=scrtxt.length;
    pos++;
    var scroller="";
    if (pos==lentxt) {
      pos=1-width;
    }
    if (pos<0) {
      for (var i=1; i<=Math.abs(pos); i++) {
        scroller=scroller+" ";}
      scroller=scroller+scrtxt.substring(0,width-i+1);
    }
    else {
      scroller=scroller+scrtxt.substring(pos,width+pos);
    }
    window.status = scroller;
    setTimeout("scroll()",150);
}

