批处理-模拟黑客帝国数码雨( gawk )版

似水年华

Gawk下载地址：http://www.klabaster.com/progs/gawk32.zip@echo off
mode con cols=80
color 02
gawk "/^#<-1/,/^#>-1/{if(!/^#/)print}" "%~f0" |gawk -f "-" %*
goto :EOF
:AwkScript
#<-1
function mt_rand(a,b) {
        return int(((rand()*(1+b-a))+a))
}

BEGIN{
iWidth = 80
iDensity = 4

sText = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%^&*(){}[]_+-=\\\"'|<>?.,/"
iText = length(sText) - 1

for (i = 0; i < iWidth; i++) {
        aDown = 0
}

for (;;) {
        for (i = 0; i < iWidth; i++) {
                aDown--
                if (aDown < 0) {
                        aArrow = mt_rand(0, iDensity)
                        aDown = mt_rand(10, 25)
                }
                if (aArrow == 1) {
                        printf "%s" , substr(sText, mt_rand(0, iText), 1)
                } else {
                        printf " "
                }
        }
}
}
#>-1
goto :EOF