读心术代码。

时间：2008-02-20 来源：xinyv

骗mm的东西，读心术代码。linux 是我写的，windows脚本不熟悉，摘抄一段，出处不详。 for linux

#!/bin/bash
# Function and Variables definition
PATH=$PATH:/sbin:/usr/sbin:/usr/local/bin
VAR=( " " "☆" "★" "○" "●" "◎" "◇" "◆" "□" "■" "△" "▲" "※" "→" "←" "↑" "↓" "〓" "＠" "≈" "≡" "∑" "∈" "⊙" "∵" "∴" "¤" "♀" "♂" "≌" "Й" "Ю" )

# Program main
while :;do
  clear;echo -e "\n"
  NUM=$((RANDOM%30+1))
  RESULT=${VAR[$NUM]}
  VAR[$NUM]=${VAR[31]}
  for i in $(seq -w 01 99);do
    _STORT[$[10#$i]]="$i ${VAR[$((RANDOM%30+1))]}"
    [ $(echo $i%9|bc) -eq 0 ] && _STORT[$[10#$i]]="$i $RESULT"
  done
_STORT[0]="00 $RESULT"
_STORT[99]="99 ${VAR[$((RANDOM%30+1))]}"
echo "     从10～99之间任意选择一个数,把这个数的十位与个位相加,再把任意选择的"
echo " 数减去这个和，例如：你选的数是23，然后2+3=5，然后23-5=18在图表中找出与"
echo " 差值对应的符号，并把这个符号牢记心中,进入下一步,你会发现显示出来的符号"
echo " 就是你刚刚心里记下的那个符号."
  echo "#-----------------------------------------------------------------------#"
  echo -n -e "\t\t"
  for i in $(seq 0 99);do
    echo -n -e "${_STORT[$i]}\t"
    [ $(($[$i+1]%5)) -eq 0 ] && { echo ;echo -n -e "\t\t" ; }
  done
echo -e "\n\t\t按 q 健退出，其他键进入下一步。"
  echo -e "#-----------------------------------------------------------------------#\n"
  read -s -n1 _Q;[[ $_Q == q ]] && kill $$
echo -e "\t\t\t You Think Is $RESULT \n"
echo "#-----------------------------------------------------------------------#"
  read -s -n1 _Q;[[ $_Q == q ]] && kill $$
done

for windows:

@echo off
:echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
:chcp 437>nul
:graftabl 936>nul

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