function vazio() {
  //função que não faz nada... serve apenas para links que usam o evento onClick ficarem com o cursor "hand"
}

function textCenterWindow(w, h) {
  return 'width='+w+', height='+h+', left='+Math.ceil(screen.availWidth/2-w/2)+', top='+Math.ceil(screen.availHeight/2-h/2)+', ';
}

//função que cria um objeto que contém um texto
function tsTexto(velocidade, intervalo, espera, txt) {
  this.velocidade = velocidade; //intervalo entre caracteres
  this.intervalo = intervalo; //intervalo entre uma parte e outra
  this.espera = espera; //espera até recomeçar outro texto
  this.partes = new Array();
  for (var i = 3; i < arguments.length; i++) this.partes[i-3] = arguments[i];
}
//inicia variáveis de Timer
var tmCaracter = null; //Timer para colocar caracteres
var tmIntervalo = setInterval("escolheTexto()", 1000); //Timer para intervalos
//inicia variáveis de texto
var TextoAtual; //guarda o índice do vetor referente ao texto escolhido
var ParteAtual = -1; CaracterAtual = -1; //guarda a parte e o caracter da parte

//declaração dos textos
//Template: tsTextos[] = new tsTexto(100, 1000, 5000, "", "");
var tsTextos = new Array();
tsTextos[0] = new tsTexto(40, 2500, 3500, "Jesus disse:", 
      "\"Todas as coisas me foram entregues por meu Pai, e ninguém conhece o Filho, senão o Pai;",
      "e ninguém conhece o Pai, senão o Filho, e aquele a quem o Filho o quiser revelar.",
      "Vinde a mim, todos os que estais cansados e oprimidos, e eu vos aliviarei.",
      "Tomai sobre vós o meu jugo, e aprendei de mim, que sou manso e humilde de coração;",
      "e encontrareis descanso para as vossas almas.",
      "Porque o meu jugo é suave e o meu fardo é leve.\"",
      "(Mateus 11:27-30)");
tsTextos[1] = new tsTexto(40, 1250, 3000, "\"Bem-aventurados os mansos...", 
      "porque eles herdarão a terra!\"",
      "(Mateus 5:5)");
tsTextos[2] = new tsTexto(80, 1500, 4000, "\"Não sabeis que os injustos não hão de herdar o reino de Deus?",
      "Não erreis...", "nem os devassos,", "nem os idólatras,",
      "nem os adúlteros,", "nem os efeminados,", "nem os sodomitas,",
      "nem os ladrões,", "nem os avarentos,", "nem os bêbados,",
      "nem os maldizentes,", "nem os roubadores herdarão o reino de Deus.\"",
      "(I Coríntios 6:9-10)");
tsTextos[3] = new tsTexto(60, 1500, 2500, "Aleluia!!!", "Jesus Cristo ressucitou!!!", 
      "Ele morreu por mim e por você...", "a fim de nos dar a Vida Eterna!", "Viva com Ele também!!!");
tsTextos[4] = new tsTexto(40, 2250, 2500, "Disse Jesus aos seus discípulos:", 
      "\"Se alguém quiser vir após mim, renuncie-se a si mesmo...", "tome sobre si a sua cruz, e siga-me;",
      "Porque aquele que quiser salvar a sua vida, perdê-la-á,", "e quem perder a sua vida por amor de mim, achá-la-á.",
      "Pois que aproveita ao homem ganhar o mundo inteiro...",  "se perder a sua alma?",
      "Ou que dará o homem em recompensa da sua alma?\"",
      "(Mateus 16:24-26)");
tsTextos[5] = new tsTexto(60, 2500, 2000, "\"Feliz o homem que não anda segundo o conselho dos ímpios,", 
      "nem se detém no caminho dos pecadores,", "nem se assenta na roda dos escarnecedores",
      "Antes tem o seu prazer na lei do SENHOR,", "e na sua lei medita de dia e de noite.",
      "Pois será como a árvore plantada junto a ribeiros de águas,",  "a qual dá o seu fruto no seu tempo;",
      "as suas folhas não cairão,", "e tudo quanto fizer prosperará.\"",
      "(Salmo 1:1-3)");
tsTextos[6] = new tsTexto(60, 1500, 2000, "\"Porque desde a antiguidade não se ouviu,", 
      "nem com ouvidos se percebeu,", "nem com os olhos se viu um Deus além de ti...",
      "que trabalha para aquele que nele espera.\"",
      "(Isaías 64:4)");
tsTextos[7] = new tsTexto(45, 2000, 3000, "\"Eu sou o SENHOR;", "este é o meu nome;",
      "a minha glória, pois, a outrem não darei,", "nem o meu louvor às imagens de escultura.",
      "Eis que as primeiras coisas já se cumpriram,", "e as novas eu vos anuncio,",
      "e, antes que venham à luz, vo-las faço ouvir.",
      "Cantai ao SENHOR um cântico novo,", "e o seu louvor desde a extremidade da terra;",
      "vós os que navegais pelo mar,", "e tudo quanto há nele;",
      "vós, ilhas, e seus habitantes.\"",
      "(Isaías 42:8-10)");
tsTextos[8] = new tsTexto(65, 2000, 1500, "\"Porque Deus amou o mundo de tal maneira...", 
      "que deu o seu Filho unigênito,", "para que todo aquele que nele crê não pereça,",
      "mas tenha a vida eterna.\"",
      "(João 3:16)");
tsTextos[9] = new tsTexto(85, 2500, 3000, "\"Agora, pois, filhos, dai-me ouvidos,", 
      "e não vos desvieis das palavras da minha boca.\"",
      "(Provérbios 5:7)");
tsTextos[10] = new tsTexto(85, 2500, 3000, "\"Aquele que ama a seu irmão está na luz,", 
      "e nele não há escândalo.\"",
      "(I João 2:10)");

//escolhe o texto e inicia o timer
function escolheTexto() {
  clearInterval(tmIntervalo); //finaliza timer que chamou a rotinas
  TextoAtual = tsTextos[parseInt(Math.random() * tsTextos.length)]; //escolhe texto
  CaracterAtual = 0; ParteAtual = 0; //inicia variáveis
  tmCaracter = setInterval("avancaCaracter()", TextoAtual.velocidade); //chama rotina que escreve caracteres
}
//função que avança a parte
function avancaParte() {
  clearInterval(tmIntervalo);
  tmCaracter = setInterval("avancaCaracter()", TextoAtual.velocidade); //chama rotina que escreve caracteres
}
//função que vai escrevendo os caracteres e controla o fluxo
function avancaCaracter() {
  CaracterAtual++;
  if (CaracterAtual > TextoAtual.partes[ParteAtual].length) { //se terminou a parte, avança
    clearInterval(tmCaracter);
    ParteAtual++;
    if (ParteAtual >= TextoAtual.partes.length) { //se terminou o texto, escolhe novamente
      tmIntervalo = setInterval("escolheTexto()", TextoAtual.espera);
    } else {
      CaracterAtual = 1; 
      tmIntervalo = setInterval("avancaParte()", TextoAtual.intervalo);
    }
    return;
  }
  window.status = TextoAtual.partes[ParteAtual].substring(0,CaracterAtual);
}