批处理问题（制作骰子）

Question

这是我的批量代码：

:Dice
set /a roll=(%random% %% 6) + 1
set /a on=%on%+%roll%
if %on%>19 goto DiceOver19
if %on%<20 goto Camp1_1

我试图垄断，我几乎所有的设置。 我一直试图解决这个问题，但我不能理解。一切顺利，直到我选择＆＃34;滚动骰子＆＃34;。 ^^以上是骰子的代码。

一旦我去骰子，程序就会退出，有人可以帮忙吗？

编辑：已修复，现在工作正常。

Answer 1

尽管你已经在评论的帮助下解决了自己的问题，但我添加了这个回复，虽然技术上不是对您的问题的直接回复，但包括比较运算符和标准滚动循环，它允许在事件中再次使用滚动功能滚六双。 （我希望它至少有益于其他人）

@Echo Off
:Roll
Set "dice=0"
:Loop
Set/A "die1=%random%%%6+1"
Set/A "die2=%random%%%6+1"
Echo( %die1% + %die2%
Set/A "dice=die1+die2+dice"
Set/A "mod=dice%%12"
If %mod% Equ 0 (Echo= Double 6 rolls again & GoTo Loop)
Echo( Total=%dice%
:Next
Timeout 3 1>Nul

请注意，这仅供参考。