随风

想想以前写动画时最难解决的就是这个问题，可惜现在不爱动画了，这个帖要是早点出来多好啊～ (^_^)

qwd

我又回来了！只因我的收藏夹是原来论坛网址，手懒没进咱坛子！

Spring

原帖由 523066680 于 2010-2-9 14:27 发表
我怎么看链接来链接去的都看晕了……￥%#……不鸟，算是学到了相见恨晚的知识，
在这之前写了多少个“刷屏无限闪”的粗糙东西啊！

额，我只知道 cls 能回到原点，-_-```

莫非就是你说的“刷屏无限闪”。。。

523066680

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

我怎么看链接来链接去的都看晕了……￥%#……不鸟，算是学到了相见恨晚的知识，
在这之前写了多少个“刷屏无限闪”的粗糙东西啊！
这个是小改其中一个的,修改下第三句tab的符号。

@echo off
setlocal enabledelayedexpansion
set "tab=    "
set /a cols=20,lines=10,act=0
for /l %%a in (1,1,%cols%) do (set spc=+!spc!)
for /l %%a in (1,1,%lines%) do (set l%%a=%spc%)
for /l %%a in (1,1,%cols%) do (
  for /l %%b in (1,1,%lines%) do (
    set /a act+=1
    set num[!act!]="x=%%a,y=%%b"
    set back=!back!
  )
)
:act
  set /a rand=%random% %% act + 1
  set /a !num[%rand%]:"=!,xa=x-1
  set num[%rand%]=!num[%act%]!
  set l%y%=!l%y%:~0,%xa%! !l%y%:~%x%!
  color 0%act:~-1%
  echo %tab%%back% 2>nul
  echo,
  for /l %%a in (1,1,%lines%) do (echo,!l%%a!)
if %act% gtr 1 (set /a act-=1 &goto :act)
pause
复制代码

多行回退有知道不？竟有人还为那点小知识贺彩

真像是说我的……

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

Spring

我是先在 cn-dos 上看到趣味东的帖子，然后发现他的二楼有个人回复说“已实现控制”，还以为是已经有人发过这样的帖子，结果点一下那个连接就来到了这里，然后你这里又说是根据他的帖子，然后又跑去看他的，发现他三楼又多了个回到原点，真是迅速啊，难道两个论坛是一家开的。。。

话说那位同志挺难辛苦的，这个帖子（http://cn-dos.net/forum/viewthread.php?tid=50206
）还是因为之前他发的一个帖子（http://cn-dos.net/forum/viewthread.php?tid=50166
）没人回复，快委屈死了，于是发牢骚，终于引众人注视，才写出这个来的，版主要不要注册个马甲给他顶一下，呵呵

523066680

马上去测试了一下旧的效果，画面顺畅了很多呢~
实现方法也简单了