Re: [shell-script] script Matrix - colaborativo

[Victor Leonardo]

Aê Renato!

Segue o script solicitado.


#!/bin/bash

trap "echo -e '\033[m0';clear;setterm -cursor on;exit" 2

clear

prepara () {

setterm -cursor off

Chars="abcdefghijklmnopqrstuvxywzABCDEFGHIJKLMNOPQRSTUVXYWZ01234567890!
@#$%¨

&*()_-+=^~{}[];:?"

while true; do

   lin=0

   lin1=$((RANDOM%$(tput lines)))

   [ ${#Cols[@]} -eq $(($(tput cols)-2)) ] && unset Cols

   while true; do

       COL=$((RANDOM%$(tput cols)))

COL2=$((RANDOM%$(tput cols)))

       [ "${Cols[$COL]}" ] && continue

       Cols[$COL]=1

       break

   done

   COR="\e[32;1m"

   COR2="\e[32;1m"

   coluna1

   done

   }

coluna1 () {    while [ $lin -lt $(tput lines) ]; do

       Char=$(echo $Chars | cut -c$((RANDOM%86+1)))

       for i in `seq 1 3`;do

           Char1=$(echo $Chars | cut -c$i);sleep 0.000001

           tput cup $lin $COL; echo -en "\e[37;1m$Char1"

       done

       tput cup $lin $COL; echo -en "$COR$Char";sleep 0.0001

       let lin++

coluna2

done

prepara

}

 

coluna2 () { while [ $lin1 -lt $(tput lines) ]; do

       Char=$(echo $Chars | cut -c$((RANDOM%86+1)))

       for i in `seq 1 3`;do

           Char1=$(echo $Chars | cut -c$i);sleep 0.000001

           tput cup $lin1 $COL2; echo -en "\e[37;1m$Char1"

       done

       tput cup $lin1 $COL2; echo -en "$COR2$Char";sleep 0.0001

       let lin1++

       coluna1

done

        [ $lin1 -eq $(tput lines) ] && lin1=$((RANDOM%$(tput
lines)));COL2=$((RANDOM%$(tput cols)));coluna2

# coluna1

}

prepara   



Em Qui, 2006-06-08 às 15:56 -0300, Renato L. Sousa escreveu:
> Olá amigos,
> 
> Há algum tempo atras rolou uma mensagem na lista para um
> desenvolvimento 
> de um script que parecia um descanço de tela do matrix.   Eu tinha
> esse 
> script guardado mas por um problema técnico ( e falta de backup !!! ) 
> acabei perdendo ele.
> Será que alguem na lista ainda tem ele ?
> 
> Obrigado,
> 
> Renato L. Sousa
> 
> -- 
> ----------------------------------------------------------------------
> Renato L. Sousa - Técnico de Informática
> Serviço Técnico de Informática - STI/FAAC
> UNESP - Campus de Bauru
> 
> 
-- 
Victor L. Gomes
Suporte
EAC Software
Tel.: (31) 3273-4415
Visite nosso site: www.eacnet.com.br