more

特效就不弄了,弄了个雨点左右摆动,雨点下落速度有快有慢的,加上一个男中音:

@echo off
if not "%1"=="" goto :%1
start /b %~fs0 sound
title 按任意键退出...
set "code=ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFHGIJKLMNOPQ"
set /a end=19,left=10,right=0,straight=0,delay=550,times=10
for /l %%a in (2 1 25) do (set line%%a=  )
setlocal enabledelayedexpansion
:bgn
for /l %%a in (1 1 !end!) do (
   set /a "pick=!random!%%!end!"
   call set "line1=!line1!%%code:~!pick!,1%%   "
)
rem 控制字符左右摆动
if !left! gtr 0 (
   set /a left-=1
   if not !right! gtr 0 (set /a right=!random!%%7+10)
   for /l %%a in (25 -1 2) do (
      set /a "tmp_=%%a-1"
      call set "line%%a=%%line!tmp_!:~1%%%%line!tmp_!:~,1%%"
   )
) else (
   if !right! gtr 0 (
      set /a right-=1
      if not !straight! gtr 0 (set /a straight=!random!%%7+7)
      for /l %%a in (25 -1 2) do (
         set /a "tmp_=%%a-1"
         call set "line%%a=%%line!tmp_!:~-1%%%%line!tmp_!:~,-1%%"
      )
   ) else (
      set /a straight-=1
      if !straight! lss 0 (set /a left=!random!%%7+10)
      for /l %%a in (25 -1 2) do (
         set /a "tmp_=%%a-1"
         call set "line%%a=%%line!tmp_!%%"
      )
   )
)
set "line1="
cls
for /l %%a in (1 1 25) do (set str=!str!!line%%a!)
echo.!str!
set "str="
rem 控制字符落下速度的快慢(也就是摆动的快慢)
if !times! gtr 1 (
   set /a times-=1
   for /l %%a in (1 1 !delay!) do (
      echo.>nul
   )
) else (
   set /a times=!random!%%10+10,delay=!random!%%400+200
)
goto :bgn
:out
pause>nul
taskkill /FI "windowtitle eq 按任意键退出... *" >nul
:sound
start /b %~fs0 out
Setlocal Enabledelayedexpansion
set "n=0"
for %%a in ("wow wow wow, it is raining" "god, it is raining again" "so bad, the weather" "I love all of you, baby" "we are all batch fan" "get busy living, or get busy dying") do (
   set /a n+=1
   set "voice!n!=%%a"
)
:agn
set /a t=!random!%%!n!+1
mshta vbscript:CreateObject("SAPI.SpVoice").Speak(!voice%t%!)(Window.close)
ping -n 6 127.1>nul
goto :agn
复制代码

[ 本帖最后由 more 于 2009-8-3 10:50 编辑 ]

523066680

netbenton的效果更有特色  上下交互穿梭
中间还有字幕

(除非他改了原来的版本，当时我看的时候是这样的效果)

我认同这样的效果，他是在能模仿了以后再增加自己的创意的。

Taurus

原帖由 netbenton 于 2009-4-18 13:10 发表
数码雨双向移动+字符串滚动+字符转动+标题字符串滚动+动态测帧+闪烁

@echo off&color 0a
if defined lins goto :sub
set "lins=  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
...

为何完成后var !zza!没返回0?
数字好像只向上爬升不会降下

不是该这样吗?

set sec=%time:~6,2%
::=============loop位置下==============
if not "%time:~6,2%"=="%sec%" (
set sec=%time:~6,2%&title  !looptime! loop/1sec"
set/a looptime=0
)

netbenton

你按Alt+Enter键，它就全屏了
要程序自动全屏也可以，不过，效果似乎并不是很好。

jinyaxin

我想问一下  这个能做出全屏的吗   哪像效果会更好

tslnyys

你们怎么都这么厉害啊。

Enter

很不错啊，要向楼主多学学啊，呵呵

yfenguu

我去试试不错啊！！！

jackerloo2009

呵呵，高手pk真的能激发好好学下去的兴趣呢！支持了。。。。。。

NeverOK

你的帖子我审阅通过....................^_^

batman

这个任意键退出太强了，没说的，加分!

523066680

netbenton 一路领先，来到了这里。
我支持你，本来只是看看贴的，看到你写的这么好，特地登录加分！

for /l %%i in (1,1,200) do echo.>nul

由于身处网吧  无时间详细窥探思路
不过我找找茬

认为 上面一句 for + echo的延迟 可以改成 ping -n 1 127.1>nul

[ 本帖最后由 523066680 于 2009-4-18 16:23 编辑 ]

netbenton

数码雨双向移动+字符串滚动+字符转动+标题字符串滚动+动态测帧+闪烁

 
@echo off&color 0a
if defined lins goto :sub
set "lins=  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
setlocal enabledelayedexpansion
start /b %~n0.bat
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
        for /l %%j in (1,1,8) do (
                set "m%%i=!m%%i!          "
                set "n%%i=!n%%i!          "
        )
)
set n=1
set m=0
set k=0
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"
set mmz=%time:~6,2%
set "chan=/-\|"
::预处理结束

:::::::::::::::循环体:::::::::::::::
:loop
::增加的标题效果
set/a zza+=1
if not "%time:~6,2%"=="%mmz%" (
 set/a zzm+=1,zz=zza/zzm&set mmz=%time:~6,2%
 set "tit= Made by Benton !zz!帧/秒，按任意键退出 "
)
title @_@       [ !tit:~-%k%!!tit:~0,-%k%! ]
::增加的标题效果
set var=  %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var!  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+23^)%%24,m=^(m+23^)%%24
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!

for /l %%i in (0,1,23) do (set/a ll=%%i-2&set n!ll!=!n%%i!)
set n23=!n-1!
set n22=!n-2!
cls&color 0f&echo !len:~0,1888!
set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3!  "
set/a ll+=1)
::增加的中间效果
 if "%chn%"=="3" set/a k=^(k+25^)%%26
 set/a chn=^(chn+1^)%%4
 set "in0=—《!chan:~%chn%,1!》欢迎来到黑客帝国《!chan:~-%chn%,1!》—"
        set im=!im0:~-%k%!!im0:~0,-%k%!
        set l10=!l10:~0,25!!in0:~%k%!!in0:~0,%k%!!l10:~55!
        set l12=!l12:~0,25!!im:~0,15!!l12:~55!
::增加的中间效果
cls&color 0a&echo !len:~0,1888!
::如果速度过快的话，在这里增加延时for /l %%i in (1,1,150) do cd..>nul
set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
goto loop
::::::::::::::::::::::::::::::::::::
::外部控制子过程
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ *">nul
复制代码

[ 本帖最后由 netbenton 于 2009-5-6 22:39 编辑 ]

netbenton

for /l %%i in (1,1,1000) do echo.>nul
这句用来延时的，你把1000调小一点就可以了

我的机子速度太快了才用的。

==================

把最后的
pause>nul  改成 ping 127.1 -n 120 >nul

就可以运行2分钟后才退出了

[ 本帖最后由 netbenton 于 2009-4-17 23:28 编辑 ]

sexfio

楼上的8错，不过就是速度有点慢，能不能加快点啊