批处理之家 » BAT原创&转载 » 神奇读心术批处理版[2006-12-21]

namejm 发表于 2008-10-12 01:53

神奇读心术批处理版[2006-12-21]

　　本人2006年发表在cn-dos里的一个小游戏，原帖地址：[url=http://www.cn-dos.net/forum/viewthread.php?tid=25369]http://www.cn-dos.net/forum/viewthread.php?tid=25369[/url]。转帖于此，是希望做为资料留存备用，更希望后来者能从中得到一些有益的提示，或发现其中的不足并完善之。

[quote]　　以前9527曾在群里发过吉普赛人祖传的神奇读心术的网址，它能测算出你的内心感应。当时为它的神准所震慑，只觉得自己内心所想全被一股神秘的力量所洞悉。后来转念一想，网络非神物，一定有什么技巧隐藏在里面，一时兴起，稍加推演，找到了原因所在——原来所谓的读心术，只不过如魔术一般，使用的是障眼法而已。
　　昨天在群里，又旧事重提，于是有了写个批处理版读心术的念头。12.3抽空写了个代码（版本一），张贴如下，各位可以抱着测试的态度先玩几次，玩过之后再想原理，想不通再看代码（版本二由版本一演变而来）：[/quote]
　　版本一：[code]@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]　　版本二：[code]@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[/code]

523066680 发表于 2008-10-12 09:25

回复 1楼 的帖子

咦  好神奇啊

wxcute 发表于 2008-10-12 10:39

在联盟，一开始玩觉得心事被猜中那还了得。

于是“恼羞成怒”，乱按一通；这才真相大白也。

qq641255849 发表于 2008-10-12 10:51

keyword:[quote]9[/quote]

这个就有点那个了...

pusofalse 发表于 2008-10-12 16:51

牵着人鼻子走的数字游戏。发明这个游戏的人真聪明。

523066680 发表于 2008-10-14 17:14

我觉得很神奇地  我就不信 然就开了两个一起试试。
嘿嘿  排列不是每次都一样啊  而且跟数字的计算有关
70开头的 70-7=63  71-8=63 72-9=63…… 嘿嘿

savage 发表于 2008-10-15 11:58

[quote]原帖由 [i]wxcute[/i] 于 2008-10-12 10:39 发表 [url=http://bbs.bathome.net/redirect.php?goto=findpost&pid=12297&ptid=2140][img]http://bbs.bathome.net/images/common/back.gif[/img][/url]
在联盟，一开始玩觉得心事被猜中那还了得。

于是“恼羞成怒”，乱按一通；这才真相大白也。 [/quote]

同感!同感!同感!

lxj 发表于 2008-10-26 15:56

高手就是高手,端的与众不同.

LJY4.0 发表于 2022-4-25 18:36

[i=s] 本帖最后由 LJY4.0 于 2022-4-25 18:48 编辑 [/i]

破解版，读不了心术:
@echo off
:: code by jm modified by youxi01 2006-12-3 CMD@XP
title 读心术P处理版
mode con cols=80 lines=25
:begin
cls
@echo off
set num=%random%
set /a  num=num%%10+1
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 %num%
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                 通过心灵感应，发现这个图形正是你所想的：!var%num%!
for /l %%i in (1,1,9) do echo.
echo.
echo.
echo                                               按任意键再来一次...
pause>nul
goto begin

pause>nul
goto begin

查看完整版本: 神奇读心术批处理版[2006-12-21]