占星骰子合集（练手+计算飞宫转宫）

抱歉啊，练手程序少写一行代码pause,造成一直在运行，已修正！

练手的：

@echo off
setlocal enabledelayedexpansion
echo 占星骰子练手程序
echo. 
echo 作者：phenix
echo. 
echo 联系方式：[email protected]
echo. 
if not exist %temp%\12行星.txt (
echo 北交>%temp%\12行星.txt
echo 南交>>%temp%\12行星.txt
echo 太阳>>%temp%\12行星.txt
echo 月亮>>%temp%\12行星.txt
echo 水星>>%temp%\12行星.txt
echo 金星>>%temp%\12行星.txt
echo 火星>>%temp%\12行星.txt
echo 土星>>%temp%\12行星.txt
echo 木星>>%temp%\12行星.txt
echo 天王>>%temp%\12行星.txt
echo 海王>>%temp%\12行星.txt
echo 冥王>>%temp%\12行星.txt
)
if not exist %temp%\12星座.txt (
echo 白羊>%temp%\12星座.txt
echo 金牛>>%temp%\12星座.txt
echo 双子>>%temp%\12星座.txt
echo 巨蟹>>%temp%\12星座.txt
echo 狮子>>%temp%\12星座.txt
echo 处女>>%temp%\12星座.txt
echo 天秤>>%temp%\12星座.txt
echo 天蝎>>%temp%\12星座.txt
echo 射手>>%temp%\12星座.txt
echo 摩羯>>%temp%\12星座.txt
echo 水瓶>>%temp%\12星座.txt
echo 双鱼>>%temp%\12星座.txt
)
if not exist %temp%\12宫位.txt (
echo 1宫>%temp%\12宫位.txt
echo 2宫>>%temp%\12宫位.txt
echo 3宫>>%temp%\12宫位.txt
echo 4宫>>%temp%\12宫位.txt
echo 5宫>>%temp%\12宫位.txt
echo 6宫>>%temp%\12宫位.txt
echo 7宫>>%temp%\12宫位.txt
echo 8宫>>%temp%\12宫位.txt
echo 9宫>>%temp%\12宫位.txt
echo 10宫>>%temp%\12宫位.txt
echo 11宫>>%temp%\12宫位.txt
echo 12宫>>%temp%\12宫位.txt
)
:main
set p=
set s=
set g=
for /L %%a in (1,1,50) DO (
set idx=1
set /a r=!random!%%12+1
for /f %%i in (%temp%\12行星.txt) do (
if "!r!" equ "!idx!" (
set p=%%i
)
set /a idx+=1
)
set idx=1
set /a r=!random!%%12+1
for /f %%j in (%temp%\12星座.txt) do (
if "!r!" equ "!idx!" (
set s=%%j
)
set /a idx+=1
)
set idx=1
set /a r=!random!%%12+1
for /f %%k in (%temp%\12宫位.txt) do (
if "!r!" equ "!idx!" (
set g=%%k
)
set /a idx+=1
)
echo !p!!s!!g!
for /L %%b in (1,1,800) DO (
echo.>nul
) 
cls
)
echo !p!!s!!g!
echo. 
pause
goto :main

计算的：

@echo off
setlocal enabledelayedexpansion
echo 飞宫转宫程序
echo.
echo 作者:phenix
echo.
echo 联系方式:[email protected]
echo.
rem 生成守护星对应宫位的字典,依次为:太阳-5宫,月亮-4宫,水星-3/6宫,金星-2/7宫,火星-1/8宫,木星-9/12宫,土星-10/11宫
if not exist %temp%\守护星宫位.txt (
echo 5宫>%temp%\守护星宫位.txt
echo 4宫>>%temp%\守护星宫位.txt
echo 3宫 6宫>>%temp%\守护星宫位.txt
echo 2宫 7宫>>%temp%\守护星宫位.txt
echo 1宫 8宫>>%temp%\守护星宫位.txt
echo 9宫 12宫>>%temp%\守护星宫位.txt
echo 10宫 11宫>>%temp%\守护星宫位.txt
)
:main
rem 输入,依次是:1.人物或事件的数字,如问另一半就输入7,问工作就输入10 2.占星骰子的行星的数字 3.占星骰子的星座的数字 4.占星骰子的宫位的数字
set /p things=请输入人物或事件的数字,如,问另一半就输入7,问工作就输入10:
echo.
set /p planet=请输入行星代表的数字1-7分别为1太阳2月亮3水星4金星5火星6木星7土星:
echo.
set /p star=请输入星座代表的数字1-12分别为1白羊座2金牛座3双子座4巨蟹座5狮子座6处女座7天秤座8天蝎座9射手座10摩羯座11水瓶座12双鱼座:
echo.
set /p place=请输入宫位数字1-12分别为1-12宫:
echo.
rem 飞宫计算开始
set idx=1
for /f "tokens=1,2* delims= " %%a in (%temp%\守护星宫位.txt) do (
rem 找到行星守护的宫位,一个或多个
if "!planet!" equ "!idx!" (
set fly1=%%a
set fly1=!fly1:宫=!
set /a place1=!fly1!-!star!+!place!
if !place1! lss 0 (
set /a place1+=12
)
if !place1! gtr 12 (
set /a place1-=12
)
set fly2=
set place2=
if not "%%b" equ "" (
set fly2=%%b
set fly2=!fly2:宫=!
set /a place2=!fly2!-!star!+!place!
if !place2! lss 0 (
set /a place2+=12
)
if !place2! gtr 12 (
set /a place2-=12
)
)
rem 转宫计算开始
set /a place3=!place!-!things!+1
if !place3! lss 0 (
set /a place3+=12
)
if "%%b" equ "" (
echo 飞宫转宫结果=!place1!宫飞入!place!宫 人物/事件!things!对应的转宫是!place3!宫
echo.
) else (
echo 飞宫结果=!place1!宫、!place2!宫飞入!place!宫 事件!things!对应的转宫是!place3!宫
echo.
)
echo 飞宫转宫相关文章:http://www.12sign.cn/ss/35981.html
echo.
)
set /a idx+=1
)
goto :main

解释的：

暂无

 

使用方法：记事本保存，文件名xx. bat，保存类型选所有文件，双击运行。分享给占星爱好者和职业占星师，但请保留所有内容，不得删改，谢谢！