神奇读心术(批处理版).docVIP

神奇读心术（批处理版） 代码： @echo off setlocal enabledelayedexpansion title 读心术P处理版 By HL? color 2e cls echo 程序载入中，请稍后…… for /l %%i in (1,1,25) do set/p a=^nulping /n 0 127.1nul cls color f4 mode con: cols=70 lines=20 mshta vbscript:msgbox(欢迎使用本娱乐程序,64,H欢迎L)(window.close) cls cls mode con lines=13?? color e6? echo. echo. echo. echo. echo. echo???????????????? 本程序仅供娱乐使用? ping -n 2 127.1nul cls echo. echo. echo. echo. echo?????? ******************************************************* echo?????? *?????????????? 欢迎使用? 神奇读心术????????????????? * echo?????? ******************************************************* ping -n 2 127.1nul cls echo. echo. echo??????????????????????????? 作者：??? 未知 ping -n 2 127.1nul cls echo. echo. echo. echo. echo.???????????? 来源于网络，由踏雪无痕整理提供??????????????????????????? ping -n 2.5 127.1nul @start iexplore.exe?http://793633193. cls? color E2 echo. echo. echo.????? Hello: %username% ! Today is %date%? echo. echo????????????????????? 游戏说明 echo. echo 请按任意键进入游戏…… pausenul mode con lines=25? taskkill /f /im wmplayer.exenul 2nul start /min wmplayer.exe?/music/midi/midi/midi183.mid cls :begin mode con cols=90 lines=36 color? 5C?? cls echo. echo 　　 从10～99之间任意选择一个数????? echo???? 把这个数的十位与个位相加再把任意选择的数减去这个和 echo???????? 例如：你选的数是32，然后3+2=5，然后32-5=27 echo???????? 在图表中找出与差值对应的符号，并把这个符号牢记心中 echo.??? 然后进入下一步，你会发现：显示出来的符号就是你刚刚心里记下的那个符号。 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=!n