[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
马上去测试了一下旧的效果,画面顺畅了很多呢~
实现方法也简单了

TOP

回复 3楼 的帖子

你没看过cn-dos精华帖咩,瞧瞧里面的ID就知道。
好多大军是那里来的,只是换了称号。像我这个过渡期的人就知道他们哪个是哪个。

我怎么看链接来链接去的都看晕了……¥%#……不鸟,算是学到了相见恨晚的知识,
在这之前写了多少个“刷屏无限闪”的粗糙东西啊!
这个是小改其中一个的,修改下第三句tab的符号。
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set "tab=    "
  4. set /a cols=20,lines=10,act=0
  5. for /l %%a in (1,1,%cols%) do (set spc=+!spc!)
  6. for /l %%a in (1,1,%lines%) do (set l%%a=%spc%)
  7. for /l %%a in (1,1,%cols%) do (
  8.   for /l %%b in (1,1,%lines%) do (
  9.     set /a act+=1
  10.     set num[!act!]="x=%%a,y=%%b"
  11.     set back=!back!
  12.   )
  13. )
  14. :act
  15.   set /a rand=%random% %% act + 1
  16.   set /a !num[%rand%]:"=!,xa=x-1
  17.   set num[%rand%]=!num[%act%]!
  18.   set l%y%=!l%y%:~0,%xa%! !l%y%:~%x%!
  19.   color 0%act:~-1%
  20.   echo %tab%%back% 2>nul
  21.   echo,
  22.   for /l %%a in (1,1,%lines%) do (echo,!l%%a!)
  23. if %act% gtr 1 (set /a act-=1 &goto :act)
  24. pause
复制代码
多行回退有知道不?竟有人还为那点小知识贺彩

真像是说我的……

[ 本帖最后由 523066680 于 2010-2-9 18:55 编辑 ]

TOP

回复 10楼 的帖子

本帖最后由 523066680 于 2016-9-21 17:17 编辑

[ 本帖最后由 523066680 于 2010-2-11 08:59 编辑 ]

TOP

返回列表