标题: [趣味游戏]神奇读心术批处理版 [打印本页]
作者: namejm 时间: 2006-12-4 10:22 标题: [趣味游戏]神奇读心术批处理版
以前9527曾在群里发过吉普赛人祖传的神奇读心术的网址，它能测算出你的内心感应。当时为它的神准所震慑，只觉得自己内心所想全被一股神秘的力量所洞悉。后来转念一想，网络非神物，一定有什么技巧隐藏在里面，一时兴起，稍加推演，找到了原因所在——原来所谓的读心术，只不过如魔术一般，使用的是障眼法而已。
昨天在群里，又旧事重提，于是有了写个批处理版读心术的念头。12.3抽空写了个代码（版本一），张贴如下，各位可以抱着测试的态度先玩几次，玩过之后再想原理，想不通再看代码（版本二由版本一演变而来）：
版本一：
@echo off
:: code by jm modified by youxi01 2006-12-3 CMD@XP
title 读心术P处理版
mode con cols=80 lines=25
:begin
cls
setlocal enabledelayedexpansion
set str=☆★○●◎◇◆□■△▲※→←↑↓〓＠〖〗【】『』≈≡∑∈⊙∵∴¤
for /l %%i in (0,1,99) do (
set /a random_=!random!%%32
call set var%%i=%%str:~!random_!,1%%
)
echo.
echo 99 %var99% 79 %var79% 59 %var59% 39 %var39% 19 %var19% ^| ① 从10～99之间任意选择一个数
echo 98 %var98% 78 %var78% 58 %var58% 38 %var38% 18 %var81% ^|
echo 97 %var97% 77 %var77% 57 %var57% 37 %var37% 17 %var17% ^| ② 把这个数的十位与个位相加
echo 96 %var96% 76 %var76% 56 %var56% 36 %var81% 16 %var16% ^|
echo 95 %var95% 75 %var75% 55 %var55% 35 %var35% 15 %var15% ^| ③ 再把任意选择的数减去这个和
echo 94 %var94% 74 %var74% 54 %var81% 34 %var34% 14 %var14% ^|
echo 93 %var93% 73 %var73% 53 %var53% 33 %var33% 13 %var13% ^| 例如：你选的数是23
echo 92 %var92% 72 %var81% 52 %var52% 32 %var32% 12 %var12% ^|
echo 91 %var91% 71 %var71% 51 %var51% 31 %var31% 11 %var11% ^| 然后2+3=5，然后23-5=18
echo 90 %var90% 70 %var70% 50 %var50% 30 %var30% 10 %var10% ^|
echo 89 %var89% 69 %var69% 49 %var49% 29 %var29% 9 %var81% ^| ④ 在图表中找出与差值对应的图形
echo 88 %var88% 68 %var68% 48 %var48% 28 %var28% 8 %var8% ^|
echo 87 %var87% 67 %var67% 47 %var47% 27 %var81% 7 %var7% ^| 并把这个图形牢记心中
echo 86 %var86% 66 %var66% 46 %var46% 26 %var26% 6 %var6% ^|
echo 85 %var85% 65 %var65% 45 %var81% 25 %var25% 5 %var5% ^| ⑤ 然后进入下一步
echo 84 %var84% 64 %var64% 44 %var44% 24 %var24% 4 %var4% ^|
echo 83 %var83% 63 %var81% 43 %var43% 23 %var23% 3 %var3% ^| ⑥ 你会发现：显示出来的图形
echo 82 %var82% 62 %var62% 42 %var42% 22 %var22% 2 %var2% ^|
echo 81 %var81% 61 %var61% 41 %var41% 21 %var21% 1 %var1% ^| 就是你刚刚心里记下的那个图形
echo 80 %var80% 60 %var60% 40 %var40% 20 %var20% 0 %var0% ^|
echo ^|
echo _______________________________________________________________________________
echo 按任意键进入下一步...
pause>nul
cls
for /l %%i in (1,1,9) do echo.
echo 通过心灵感应，发现这个图形正是你所想的：%var81%
for /l %%i in (1,1,9) do echo.
echo.
echo.
echo 按任意键再来一次...
pause>nul
goto begin
pause>nul
goto begin
版本二：:: code by jm modified by youxi01 2006-12-3 CMD@XP
title 读心术P处理版
mode con cols=80 lines=25
:begin
cls
setlocal enabledelayedexpansion
set str=☆★○●◎◇◆□■△▲※→←↑↓〓＠〖〗【】『』≈≡∑∈⊙∵∴¤
for /l %%i in (0,1,99) do (
set /a random_=!random!%%32
call set var%%i=%%str:~!random_!,1%%
)
echo.
echo 99 %var99% 79 %var79% 59 %var59% 39 %var39% 19 %var19% ^| ① 从10～99之间任意选择一个数
echo 98 %var98% 78 %var78% 58 %var58% 38 %var38% 18 %var81% ^|
echo 97 %var97% 77 %var77% 57 %var57% 37 %var37% 17 %var17% ^| ② 把这个数的十位与个位相加
echo 96 %var96% 76 %var76% 56 %var56% 36 %var81% 16 %var16% ^|
echo 95 %var95% 75 %var75% 55 %var55% 35 %var35% 15 %var15% ^| ③ 再把任意选择的数减去这个和
echo 94 %var94% 74 %var74% 54 %var81% 34 %var34% 14 %var14% ^|
echo 93 %var93% 73 %var73% 53 %var53% 33 %var33% 13 %var13% ^| 例如：你选的数是23
echo 92 %var92% 72 %var81% 52 %var52% 32 %var32% 12 %var12% ^|
echo 91 %var91% 71 %var71% 51 %var51% 31 %var31% 11 %var11% ^| 然后2+3=5，然后23-5=18
echo 90 %var90% 70 %var70% 50 %var50% 30 %var30% 10 %var10% ^|
echo 89 %var89% 69 %var69% 49 %var49% 29 %var29% 9 %var81% ^| ④ 在图表中找出与差值对应的图形
echo 88 %var88% 68 %var68% 48 %var48% 28 %var28% 8 %var8% ^|
echo 87 %var87% 67 %var67% 47 %var47% 27 %var81% 7 %var7% ^| 并把这个图形牢记心中
echo 86 %var86% 66 %var66% 46 %var46% 26 %var26% 6 %var6% ^|
echo 85 %var85% 65 %var65% 45 %var81% 25 %var25% 5 %var5% ^| ⑤ 然后进入下一步
echo 84 %var84% 64 %var64% 44 %var44% 24 %var24% 4 %var4% ^|
echo 83 %var83% 63 %var81% 43 %var43% 23 %var23% 3 %var3% ^| ⑥ 你会发现：显示出来的图形
echo 82 %var82% 62 %var62% 42 %var42% 22 %var22% 2 %var2% ^|
echo 81 %var81% 61 %var61% 41 %var41% 21 %var21% 1 %var1% ^| 就是你刚刚心里记下的那个图形
echo 80 %var80% 60 %var60% 40 %var40% 20 %var20% 0 %var0% ^|
echo ^|
echo _______________________________________________________________________________
echo 按任意键进入下一步...
pause>nul
cls
for /l %%i in (1,1,9) do echo.
echo 通过心灵感应，发现这个图形正是你所想的：%var81%
for /l %%i in (1,1,9) do echo.
echo.
echo.
echo 按任意键再来一次...
pause>nul
goto begin
pause>nul
goto begin
@echo off
title 读心术P处理版
:begin
mode con cols=90 lines=30
cls
echo.
echo 从10～99之间任意选择一个数，把这个数的十位与个位相加，再把任意选择的数减去这个和，
echo 例如：你选的数是23，然后2+3=5，然后23-5=18，在图表中找出与差值对应的符号，并把这个符号
echo 牢记心中，然后进入下一步，你会发现：显示出来的符号就是你刚刚心里记下的那个符号。
echo.
echo _________________________________________________________________________________________
echo.
set str=☆★○●◎◇◆□■△▲※→←↑↓〓＠〖〗【】『』≈≡∑∈⊙∵∴¤
set begin_num=9
set end_num=1
set num=0
setlocal enabledelayedexpansion
:loop
for /l %%i in (9,-1,0) do (
for /l %%j in (%begin_num%,-2,%end_num%) do (
set /a num+=1
set /a random_=!random!%%32
set /a ordinal=1%%j%%i-100
if !ordinal! lss 10 set ordinal= !ordinal!
call set var!ordinal!=%%str:~!random_!,1%%
set /a ordinal_mod=!ordinal!%%9
if !num! gtr 1 if !num! lss 100 if !ordinal_mod! equ 0 set var!ordinal!=!var18!
set /a line_mod=!num!%%5
call set var=!var! !ordinal! %%var!ordinal!%%
if !line_mod! equ 0 echo !var!&set var=
)
)
if %num% equ 100 goto end
if %num% equ 50 (
set begin_num=8
set end_num=0
goto loop
)
:end
echo _________________________________________________________________________________________
echo 按任意键进入下一步...
pause>nul
cls
mode con cols=25 lines=10
echo.
echo 你想要的符号是：
echo ╭────╮
echo │ │
echo │ %var18% │
echo │ │
echo ╰────╯
echo.
echo 按任意键再来一次...
pause>nul
goto begin
点这里可以在网上玩flash版的神奇读心术title 读心术P处理版
:begin
mode con cols=90 lines=30
cls
echo.
echo 从10～99之间任意选择一个数，把这个数的十位与个位相加，再把任意选择的数减去这个和，
echo 例如：你选的数是23，然后2+3=5，然后23-5=18，在图表中找出与差值对应的符号，并把这个符号
echo 牢记心中，然后进入下一步，你会发现：显示出来的符号就是你刚刚心里记下的那个符号。
echo.
echo _________________________________________________________________________________________
echo.
set str=☆★○●◎◇◆□■△▲※→←↑↓〓＠〖〗【】『』≈≡∑∈⊙∵∴¤
set begin_num=9
set end_num=1
set num=0
setlocal enabledelayedexpansion
:loop
for /l %%i in (9,-1,0) do (
for /l %%j in (%begin_num%,-2,%end_num%) do (
set /a num+=1
set /a random_=!random!%%32
set /a ordinal=1%%j%%i-100
if !ordinal! lss 10 set ordinal= !ordinal!
call set var!ordinal!=%%str:~!random_!,1%%
set /a ordinal_mod=!ordinal!%%9
if !num! gtr 1 if !num! lss 100 if !ordinal_mod! equ 0 set var!ordinal!=!var18!
set /a line_mod=!num!%%5
call set var=!var! !ordinal! %%var!ordinal!%%
if !line_mod! equ 0 echo !var!&set var=
)
)
if %num% equ 100 goto end
if %num% equ 50 (
set begin_num=8
set end_num=0
goto loop
)
:end
echo _________________________________________________________________________________________
echo 按任意键进入下一步...
pause>nul
cls
mode con cols=25 lines=10
echo.
echo 你想要的符号是：
echo ╭────╮
echo │ │
echo │ %var18% │
echo │ │
echo ╰────╯
echo.
echo 按任意键再来一次...
pause>nul
goto begin
[ Last edited by namejm on 2006-12-21 at 05:59 PM ]
作者: redtek 时间: 2006-12-4 10:53
不仅代码好玩，而且这界面做得真漂亮啊！！！
作者: namejm 时间: 2006-12-4 10:59
界面排版稍微具备一点美观性，但是距离漂亮还有一段距离，redtek 兄谬赞了。本来还想加点动态色彩的，但是没想好做成什么样子的，暂时搁置起来了。
作者: youxi01 时间: 2006-12-4 11:03
TO namejm斑竹：
一事不明，为什么要将获得var%%i的值写成一个“函数”，然后call呢？
for /l %%i in (0,1,99) do (
set num=%%i
call :get_num
)
call的使用，不是会使运行效率大大打折吗？
将for语句改一改，测试代码：
for /l %%i in (0,1,99) do (
set /a random_=%random%%%32
set var%num%=!str:~%random_%,1!
)
是不是要快很多啊？
作者: namejm 时间: 2006-12-4 11:57
Re youxi01：
像你那样修改是要出错的，因为在 for 语句内部，如果本次循环中，后面的语句要调用前面语句产生的变量，一般是要启用变量延迟的。如果修改成你那样的语句，则 %random_% 的值始终为空，并非上一句所产生的值。如果用感叹号对的形式，就会写成 set var%num%=!str:~!random_!,1! 的格式，程序无法正确识别引用范围，同样会出错。
基于上面的原因，我就 call 了段“函数”来绕过这个问题，暂时还没考虑到效率的问题。如果你有更好的解决办法，不妨发出来看看。
作者: tao0610 时间: 2006-12-4 12:09
call会让效率大大打折吗？不太清楚.
谁以后可以做做试验!
既然用了环境变量延迟倒是可以放里面
for /l %%i in (0,1,99) do (
set /a random_=!random!%%32
call set var%%i=%%str:~!random_!,1%%
)
打错了....set /a random_=!random!%%32
call set var%%i=%%str:~!random_!,1%%
)
[ Last edited by tao0610 on 2006-12-4 at 12:15 PM ]
作者: youxi01 时间: 2006-12-4 12:47
不好意思，我也看错了，不过以下代码还真的可能快那么一点）：（代码同上楼）
@echo off
title 读心术P处理版
mode con cols=80 lines=25
:begin
cls
setlocal enabledelayedexpansion
set str=☆★○●◎◇◆□■△▲※→←↑↓〓＠〖〗【】『』≈≡∑∈⊙∵∴¤
for /l %%i in (0,1,99) do (
set /a random_=!random!%%32
call set var%%i=%%str:~!random_!,1%%
)
echo.
echo 99 %var99% 79 %var79% 59 %var59% 39 %var39% 19 %var19% ^| ① 从10～99之间任意选择一个数
echo 98 %var98% 78 %var78% 58 %var58% 38 %var38% 18 %var81% ^|
echo 97 %var97% 77 %var77% 57 %var57% 37 %var37% 17 %var17% ^| ② 把这个数的十位与个位相加
echo 96 %var96% 76 %var76% 56 %var56% 36 %var81% 16 %var16% ^|
echo 95 %var95% 75 %var75% 55 %var55% 35 %var35% 15 %var15% ^| ③ 再把任意选择的数减去这个和
echo 94 %var94% 74 %var74% 54 %var81% 34 %var34% 14 %var14% ^|
echo 93 %var93% 73 %var73% 53 %var53% 33 %var33% 13 %var13% ^| 例如：你选的数是23
echo 92 %var92% 72 %var81% 52 %var52% 32 %var32% 12 %var12% ^|
echo 91 %var91% 71 %var71% 51 %var51% 31 %var31% 11 %var11% ^| 然后2+3=5，然后23-5=18
echo 90 %var90% 70 %var70% 50 %var50% 30 %var30% 10 %var10% ^|
echo 89 %var89% 69 %var69% 49 %var49% 29 %var29% 9 %var81% ^| ④ 在图表中找出与差值对应的图形
echo 88 %var88% 68 %var68% 48 %var48% 28 %var28% 8 %var8% ^|
echo 87 %var87% 67 %var67% 47 %var47% 27 %var81% 7 %var7% ^| 并把这个图形牢记心中
echo 86 %var86% 66 %var66% 46 %var46% 26 %var26% 6 %var6% ^|
echo 85 %var85% 65 %var65% 45 %var81% 25 %var25% 5 %var5% ^| ⑤ 然后进入下一步
echo 84 %var84% 64 %var64% 44 %var44% 24 %var24% 4 %var4% ^|
echo 83 %var83% 63 %var81% 43 %var43% 23 %var23% 3 %var3% ^| ⑥ 你会发现：显示出来的图形
echo 82 %var82% 62 %var62% 42 %var42% 22 %var22% 2 %var2% ^|
echo 81 %var81% 61 %var61% 41 %var41% 21 %var21% 1 %var1% ^| 就是你刚刚心里记下的那个图形
echo 80 %var80% 60 %var60% 40 %var40% 20 %var20% 0 %var0% ^|
echo ^|
echo _______________________________________________________________________________
echo 按任意键进入下一步...
pause>nul
cls
for /l %%i in (1,1,9) do echo.
echo 通过心灵感应，发现这个图形正是你所想的：%var81%
for /l %%i in (1,1,9) do echo.
echo.
echo.
echo 按任意键再来一次...
pause>nul
goto begin
pause>nul
goto begin
title 读心术P处理版
mode con cols=80 lines=25
:begin
cls
setlocal enabledelayedexpansion
set str=☆★○●◎◇◆□■△▲※→←↑↓〓＠〖〗【】『』≈≡∑∈⊙∵∴¤
for /l %%i in (0,1,99) do (
set /a random_=!random!%%32
call set var%%i=%%str:~!random_!,1%%
)
echo.
echo 99 %var99% 79 %var79% 59 %var59% 39 %var39% 19 %var19% ^| ① 从10～99之间任意选择一个数
echo 98 %var98% 78 %var78% 58 %var58% 38 %var38% 18 %var81% ^|
echo 97 %var97% 77 %var77% 57 %var57% 37 %var37% 17 %var17% ^| ② 把这个数的十位与个位相加
echo 96 %var96% 76 %var76% 56 %var56% 36 %var81% 16 %var16% ^|
echo 95 %var95% 75 %var75% 55 %var55% 35 %var35% 15 %var15% ^| ③ 再把任意选择的数减去这个和
echo 94 %var94% 74 %var74% 54 %var81% 34 %var34% 14 %var14% ^|
echo 93 %var93% 73 %var73% 53 %var53% 33 %var33% 13 %var13% ^| 例如：你选的数是23
echo 92 %var92% 72 %var81% 52 %var52% 32 %var32% 12 %var12% ^|
echo 91 %var91% 71 %var71% 51 %var51% 31 %var31% 11 %var11% ^| 然后2+3=5，然后23-5=18
echo 90 %var90% 70 %var70% 50 %var50% 30 %var30% 10 %var10% ^|
echo 89 %var89% 69 %var69% 49 %var49% 29 %var29% 9 %var81% ^| ④ 在图表中找出与差值对应的图形
echo 88 %var88% 68 %var68% 48 %var48% 28 %var28% 8 %var8% ^|
echo 87 %var87% 67 %var67% 47 %var47% 27 %var81% 7 %var7% ^| 并把这个图形牢记心中
echo 86 %var86% 66 %var66% 46 %var46% 26 %var26% 6 %var6% ^|
echo 85 %var85% 65 %var65% 45 %var81% 25 %var25% 5 %var5% ^| ⑤ 然后进入下一步
echo 84 %var84% 64 %var64% 44 %var44% 24 %var24% 4 %var4% ^|
echo 83 %var83% 63 %var81% 43 %var43% 23 %var23% 3 %var3% ^| ⑥ 你会发现：显示出来的图形
echo 82 %var82% 62 %var62% 42 %var42% 22 %var22% 2 %var2% ^|
echo 81 %var81% 61 %var61% 41 %var41% 21 %var21% 1 %var1% ^| 就是你刚刚心里记下的那个图形
echo 80 %var80% 60 %var60% 40 %var40% 20 %var20% 0 %var0% ^|
echo ^|
echo _______________________________________________________________________________
echo 按任意键进入下一步...
pause>nul
cls
for /l %%i in (1,1,9) do echo.
echo 通过心灵感应，发现这个图形正是你所想的：%var81%
for /l %%i in (1,1,9) do echo.
echo.
echo.
echo 按任意键再来一次...
pause>nul
goto begin
pause>nul
goto begin
作者: lxmxn 时间: 2006-12-4 13:08
一个字，强~
作者: electronixtar 时间: 2006-12-5 01:08
NB
作者: weapfe 时间: 2006-12-5 02:12
看不懂楼主和youxi01兄的
set /a random_=!random!%%32
中的"%%32"是什么意思,不知能否教一下小弟....学飞中~~~~
作者: vkill 时间: 2006-12-5 04:33
我还是没有发现那个是怎么算出来的
作者: namejm 时间: 2006-12-5 04:39
呵呵，我们一起来做个算术题：假设一个两位数，个位和十位分别为x和y，那么，按照读心术的规则，就是 x+10y-(x+y)，结果为9x。在那张随机表上，只要确保9的倍数后面跟的图形是同一个东西就行了。
作者: CHINAWY0007 时间: 2006-12-21 08:56
不得不顶.实在太妙了.
作者: jmz573515 时间: 2006-12-21 09:59
真是好东西，高手！
作者: hxuan999 时间: 2006-12-21 11:26
领会一下
作者: yyhian 时间: 2006-12-22 00:50
只是我玩了好多次，没有一次是我想要的那个符号
作者: namejm 时间: 2006-12-22 02:12
| Quote: | |
|
请把你的详细过程描述一下。
作者: zhoushijie 时间: 2006-12-22 09:03
程序运行错误
作者: namejm 时间: 2006-12-22 10:34
zhoushijie 兄的出错情况就更加另人感到匪夷所思了，能把你的操作系统环境说一下吗？具体怎么运行的也说说。
作者: xyzup 时间: 2006-12-22 10:56
突发性的想....
请问,网页有可能把bat加进去运行不??(象加载一个flash那样..)
作者: aebs79127 时间: 2006-12-23 09:33
看不明白。还要学习啊。
作者: 0401 时间: 2006-12-23 14:30
16 跟 18 楼是来打击版主的吧 ：）
抛下一句不行就跑人啊，急死版主了。呵呵``
作者: lzys 时间: 2006-12-23 14:50
谢谢分享
收藏啦，。哈哈
作者: poor 时间: 2006-12-26 12:41
真好玩，先谢谢，不过，batch好象运行不撩挖，它总是死循环，
好象显示::to begin
::to begin
::to begin
::to begin::
::to begin
::to begin
::to begin
::to begin
没完没了的，，，
Flash: http://gb.cri.cn/mmsource/flash/2006/04/10/er060410001.swf 作者: gene771771 时间: 2006-12-26 14:08
太神奇了。。。
作者: ksuday 时间: 2007-1-9 00:09
晕,这里的大侠们真是太历害了
作者: yxii001 时间: 2007-1-17 09:40
仅仅一步，到底如何确定选的是那个图形？
什么原理呀？
作者: yxii001 时间: 2007-1-17 10:00
答案全是9的倍数……
作者: eternitelove 时间: 2007-2-3 06:51 标题: 只有佩服
不敢不顶啊，强！
作者: anqing 时间: 2007-2-3 08:12
能解出读心术的奥秘，并做出相应的批处理，你是第一人呀
p处理很好
作者: 6622186 时间: 2007-3-7 10:49
其实, 这是一个数学原理. 每次这些符号都会不同排列, 不管选择哪个数, 都是一个图形. 可以同时选择多个数, 就能知道了. 代码有感叹号不太明白, 也不会用. 帮肋看了一次又一次, 还一头雾水.
作者: 6622186 时间: 2007-3-7 10:51
强烈支持, 楼主.
作者: yjhyxing 时间: 2007-3-12 04:02
看贴回贴养成好习惯
作者: htysm 时间: 2007-3-12 04:39
牛皮真不是吹的.
作者: jackyggt 时间: 2007-3-13 08:30
太强了
作者: share 时间: 2007-5-8 10:06
也是， 在一个外国网上看见这个flash游戏，今天又发现dos版的,有点亲切r的感觉啊
作者: yimingyim 时间: 2008-1-2 16:13
佩服!
作者: ZJHJ 时间: 2008-1-9 21:15
（10x+y）-（x+y）=10x+y-x-y=9x
明白了吗？
作者: denev2004 时间: 2009-1-27 22:40
. . 不太理解里面的代码,谁能解释一下?
就这个部分
call set var%%i=%%str:~!random_!,1%%
[ Last edited by denev2004 on 2009-1-27 at 22:42 ]
作者: netbenton 时间: 2009-1-28 03:03
我还以为真有那么神呢,原是给用户上套,算半天得出一个图型,原来同一版里,
所有的计算全部指向同一个图.^_^
作者: mcknight1013 时间: 2009-1-28 04:08
顶！