读心术批处理版

namejm · 发表于 2007-1-16 09:39:12

@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

复制代码

HuAnGkUn · 发表于 2007-1-17 10:43:57

强人，这几天仔细拜读批处理文件。

阿非 · 发表于 2007-1-17 18:14:25

安情 · 发表于 2007-1-17 19:42:54

在这儿呀，jm

不才 · 发表于 2007-1-18 14:56:33

嘿嘿，各位强人，拜托简单地介绍一下其中的奥秘，我这正晕着呢。

WittyHare · 发表于 2007-2-12 12:45:16

不错.批处理还真不简单.

lovelyxzq · 发表于 2007-2-12 15:58:40

可否讲讲原理了？

namejm · 发表于 2007-2-13 06:47:39

　　原理：(10x+y)-(x+y)=9x，结果一定是9的倍数。

bd540_2 · 发表于 2007-2-13 07:05:34

ghost ...... -fx
ghost ...... -rb

mmo829 · 发表于 2007-2-14 15:38:12

學習的機會來
頂

cqswat · 发表于 2007-4-7 14:59:58

真的是太强了

PPP1314 · 发表于 2007-4-9 22:46:48

我最想知道的是, namejm 大哥,BAT 里的中文是用什么作译的,我看过些BAT里是用(TW.EXE)

而你里面的BAT 好似没有,我是初学的,请指教!!!!,

czswuyou · 发表于 2007-4-10 17:51:18

好好好

magictek · 发表于 2007-4-11 09:31:03

数字游戏，大家看9的整数倍是什么图形，最后显示的就是什么图形了

longteeth · 发表于 2007-6-11 16:36:43

有意思啊！哈哈
:D :D :D

wxcwm2 · 发表于 2007-6-11 19:01:19

MODE不是内部或外部命令，也不是可用的程序或可用的批处理文件

WINPE下测试。。。出这问题

hanbin530 · 发表于 2007-6-14 14:26:15

LZ 应该是10(x+y) — (x+y) = 9(x+y)吧

lbnmg · 发表于 2007-6-15 19:34:39

原帖由 namejm 于 2007-2-13 06:47 AM 发表
　　原理：(10x+y)-(x+y)=9x，结果一定是9的倍数。

有意思，以前有个扑克牌的游戏利用的是人的粗心来实现的，这个是用的是数学，好。
其实一个图多算几个就会发现当前图形的秘密了。

jm6275680 · 发表于 2007-6-15 23:03:23

编这个批处理的牛人在忽悠我们！！！！

我们选的数，按照他的上面的步骤计算出来的结果都是 9 的倍数！

而 9 的倍数后面的符号都是一样的！

不过每一次9 的倍数后面的符号都变化的，这就给了我们一个“很灵”的错觉！

哈哈！

俺曾经也被忽悠了！

不过还是佩服这个作者！:)

happy_star · 发表于 2007-6-18 19:00:16

这个东西很有趣，学习了。

		自动登录	找回密码
密码			注册