[游戏娱乐] 批处理娱乐测试-出生日期看天赋

foxJL

学会批处理倒是可以写些基本的娱乐程序.

 
@echO Off & cOlOr 57 & title 出生日期看天赋
setlocal enabledelayedexpansion
call :setresult
:home
for /l %%j in (1,1,9) do (set z%%j=0)
set num=0
echo\
echo    从你出生年、月、日中，找出不同的数位。 
echo\
echo    例如：1978年12月9日，就有(2个1)(1个2)(1个7)(1个8)和(2个9)。 
echo\
echo    经过测试，就会知道你的感情表达能力、思维能力、失恋治疗能力等内在玄妙了.
echo\
echO    zjl根据 し●ひёˇ猪 空间日志编写.
echo\
for /l %%c in (1,1,80) do (set/p hx=※<nul)
echo/
(set max1=5)&(set max2=3)&(set max3=3)
(set max4=2)&(set max5=3)&(set max6=3)
(set max7=3)&(set max8=2)&(set max9=2)
set/p dates=   输入你的生日(格式如:19860929):
for /l %%a in (0,1,8) do (
    set /a num+=1
        for /l %%b in (0,1,7) do (
            if "!dates:~%%b,1!"=="!num!" (
            set /a z!num!+=1
            call :ren
            )
        )
    )
cls
echo.你的生日:%dates%.以下是你的测试结果.
echo.
for /l %%c in (1,1,80) do (set/p hx=※<nul)
for %%d in (!%z1%1!,!%z2%2!,!%z3%3!,!%z4%4!,!%z5%5!,!%z6%6!,!%z7%7!,!%z8%8!,!%z9%9!) do (
set yesorno=%%d
call :yesorno)
:quit
echO.&echO.&echO.
for /l %%c in (1,1,80) do (set/p hx=※<nul)
echO.&echO.&echO.
set/p quit=测试完成,是否重来[yes/nO]:
if /i "%quit%"=="yes" cls&gOtO hOme
if /i "%quit%"=="nO" eXit
gOtO quit
:yesorno
if "%yesorno%"=="0" (goto :eof) else (
    echo/&echo/
    for /l %%k in (0,1,60) do (
        call set/p cyc=!yesorno:~%%k,1!<nul
        ping -n 1 127.1>nul
    )
)
goto :eof
:ren
if !z%num%! geq !max%num%! set z!num!=!max%num%!
goto :eof
:setresult
set 11=1个1：你属于固执而不懂表达感情的人，故经常暗恋人。由于你都算理智，甚少被情所伤。
set 21=2个1：你善于表达感情，面对心仪对象，往往能大胆示爱。由于你喜怒形于色，恋爱过程亦见顺利。
set 31=3个1：你不易透露心底秘密，往往经过深思熟虑，才会将事情告知他人，所以做你的情人要有十足耐性。
set 41=4个1：你十分敏感，情绪起伏不定，毫不掩饰自己的喜怒哀乐，容易意志消沉，需要情人不时地鼓励。
set 51=5个1：你极度情绪化，容易伤害别人，作为你的情人，一定要对你耐心关怀，才能彼此沟通无阻。
set 12=1个2：你懂得顾及别人的感受，善于洞悉别人的想法，是一个可靠的朋友和情人。
set 22=2个2：你善解人意，乐于助人，爱付出。对于异性来说，你的细心体贴甚具吸引力。
set 32=3个2或以上：你的直觉一般，幸好反应能力强。你喜欢多姿多彩的生活，对神秘的爱情也心向往之。
set 13=1个3：超强的想象力令你能散发独特的魅力，而你同时向往浪漫而甜蜜的恋爱。
set 23=2个3：言行常超出常规，常胡思乱想。与爱侣相处时，经常云游太虚，令对方觉得无趣。
set 33=3个3或以上：你智商很高，思维清晰，无法忍受单调的生活，若没机会发挥才能，会变得精神紧张。
set 14=1个4：热情澎湃，言出必行，自信十足，你会大胆表露内心感情，性欲亦旺盛。
set 24=2个4或以上：做人缺乏自信心，对于爱侣忠心耿耿。不会有越轨的念头，亦期望另一半对你专心不二。
set 15=1个5：思想单纯，即使情人见异思迁，你亦不会放弃，希望有守得云开见月明的一日。
set 25=2个5：你的意志并不坚定，容易半途而废，往往事倍功半，想好好发挥才能，最好将精力放在创意活动上。
set 35=3个5或以上：内心有着无法克制的热情，做事冲动，决不会改变自己决定的事情，还要另一半听你指示。
set 16=1个6：你天性敏感，喜欢被别人欣赏，只有这样，你才能感受到自己存在的价值。
set 26=2个6：你多愁善感，缺乏自信，伴侣对你的爱护，是你发挥才能的推动力。
set 36=3个6或以上：你有绝对的自信心，为了令自己与众不同，永远全力以赴，喜欢出风头。
set 17=1个7：谈恋爱时，你会为对方周全考虑，失恋治疗能力亦强，对人欢笑，背人垂泪。
set 27=2个7：由于你每次恋爱都很投入，故失恋时，往往伤得很深，需要向别人倾诉，才能解开郁结。
set 37=3个7或以上：你不易爱上人，但一旦恋爱，会是十分专情的情人。如果被抛弃，你会对曾经的一切念念不忘。
set 18=1个8：你聪明独立，表达能力强，有决断能力，有领导才华，做事往往得心应手。
set 28=2个8或以上：你智力一般，但逻辑性强，做事喜欢循序渐进，不喜欢预期以外的变化。
set 19=1个9：你尝试理解别人对感情的渴求，然后尽量配合。
set 29=2个9或以上：无论智力或精力，你都非常旺盛，但缺点是经常沉醉于自己的想法中，令情人觉得你难以捉摸。
goto :eof
复制代码

ranon

自己测过了没啊?,.,,,,

novaa

呵呵
经测试
不准确