Jogo da Velha para VisuAlg

////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////                                                                        ////
////                     Jogo da Velha para VisuAlg                         ////
////                                                                        ////
////                         Por: rjjj ou Ken                               ////
////                                                                        ////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////


//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
//>>>>>>>>>>>>>>>>>>||  PROIBIDA A RETIRADA DOS CRÉDITOS  ||<<<<<<<<<<<<<<<<<<<<
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


procedimento VisualizarGrafico()
    inicio
    escreval("")
    escreval("")
    escreval("")
    escreval("")
    escreval("               ________1________________2________________3_________")
    escreval("")
    escreval("               |                |                |                |")
    escreval("               |       ", Simbolos[0],"        |       ", Simbolos[1], "        |       ", Simbolos[2],"        |")
    escreval("               |                |                |                |")
    escreval("               ________4________________5________________6_________")
    escreval("")
    escreval("               |                |                |                |")
    escreval("               |       ", Simbolos[3],"        |       ", Simbolos[4], "        |       ", Simbolos[5],"        |")
    escreval("               |                |                |                |")
    escreval("               ________7________________8________________9_________")
    escreval("")
    escreval("               |                |                |                |")
    escreval("               |       ", Simbolos[6],"        |       ", Simbolos[7], "        |       ", Simbolos[8],"        |")
    escreval("               |                |                |                |")
    escreval("               ____________________________________________________")
    escreval("")
    escreval("")
    escreval("")
fimprocedimento



procedimento ChecarVencedor(individuo : caractere)
    var i : inteiro
    inicio
    repita
        se ((Simbolos[i] = individuo) e (Simbolos[i + 1] = individuo) e (Simbolos[i + 2] = individuo)) entao
            Fim <- VERDADEIRO
        fimse
        i <- i + 3
    ate (i = 9)
    i <- 0
    repita
        se ((Simbolos[i] = individuo) e (Simbolos[i + 3] = individuo) e (Simbolos[i + 6] = individuo)) entao
            Fim <- VERDADEIRO
        fimse
        i <- i + 1
    ate (i = 3)
    se ((Simbolos[0] = individuo) e (Simbolos[4] = individuo) e (Simbolos[8] = individuo)) entao
        Fim <- VERDADEIRO
    fimse
    se ((Simbolos[2] = individuo) e (Simbolos[4] = individuo) e (Simbolos[6] = individuo)) entao
        Fim <- VERDADEIRO
    fimse
fimprocedimento



procedimento Pausar(segundos : inteiro)
    inicio
    timer segundos * 1000
    timer 0
fimprocedimento



algoritmo "Jogo da Velha - por rjjj ou Ken"
    var
        Simbolos : vetor[0..8] de caractere
        Jogador : caractere
        Campo : inteiro
        Adversario : caractere
        CampoOponente : inteiro
        Jogados : vetor[0..8] de logico
        Vazios : vetor[0..8] de inteiro
        Condicao : caractere
        Fim : logico
        i : inteiro
        x : inteiro
        y : inteiro
        z : inteiro
inicio
    enquanto (i <= 8) faca
        Simbolos[i] <- " "
        i <- i + 1
    fimenquanto
    repita
        escreva("Que símbolo você quer usar (X ou O) ?  ")
        leia(Jogador)
        se ((Jogador = "X") ou (Jogador = "O")) entao
            interrompa
        fimse
        limpatela
        VisualizarGrafico()
        escreval("Símbolo inválido !")
    fimrepita
    VisualizarGrafico()
    repita
        repita
            escreva("Qual o número do campo que você quer marcar ?  ")
            leia(Campo)
            se ((Campo >= 1) e (Campo <= 9) e (Jogados[Campo - 1] = FALSO)) entao
                interrompa
            fimse
            limpatela
            VisualizarGrafico()
            escreval("Número de campo inválido !")
        fimrepita
        Simbolos[Campo - 1] <- Jogador
        Jogados[Campo - 1] <- VERDADEIRO
        x <- x + 1
        limpatela
        VisualizarGrafico()
        Condicao <- "VENCEU"
        ChecarVencedor(Jogador)
        se (Fim = FALSO) entao
            escreval("O computador está jogando...")
            Pausar(3)
            repita
                se (Jogados[y] = FALSO) entao
                    Vazios[z] <- y
                    z <- z + 1
                fimse
                y <- y + 1
            ate (y = 9)
            se (Jogador = "X") entao
                Adversario <- "O"
            fimse
            se (Jogador = "O") entao
                Adversario <- "X"
            fimse
            CampoOponente <- Vazios[randi(z)] + 1
            Simbolos[CampoOponente - 1] <- Adversario
            Jogados[CampoOponente - 1] <- VERDADEIRO
            y <- 0
            z <- 0
            repita
                Vazios[y] <- 0
                y <- y + 1
            ate (y = 9)
            y <- 0
            limpatela
            VisualizarGrafico()
            Condicao <- "PERDEU"
            ChecarVencedor(Adversario)
        fimse
    ate Fim = VERDADEIRO
    escreval(".............................")
    escreval("        Você ", Condicao, " !        ")
    escreval(".............................")
fimalgoritmo