Q=0
W=0
CheckST = 5
#何連続の数字か
b=6

while b < 7
 a=0
 W=0
 while a < 5
  if getVariable("ダイス")[a]==b
   W=1     
  end
  a=a+1
 end
 if W==1
  Q=Q+1
 else
  Q=0
 end
 b=b+1 
end

if Q==CheckST
 speak("ストレートが揃っている")
end
if Q==CheckST - 1
 speak("セミストレート！！！")
else
 speak("ストレートはそろっていない")
end

Q=0
W=0
CheckST = 5
#何連続の数字か
b=6

while b < 7
 a=0
 W=0
 while a < 5
  if getVariable("ダイス")[a]==b
   W=1     
  end
  a=a+1
 end
 if W==1
  Q=Q+1
 else
  Q=0
 end
 b=b+1 
end

if Q==CheckST
 speak("ストレートが揃っている")
end
if Q==CheckST - 1
 speak("セミストレート！！！")
else
 speak("ストレートはそろっていない")
end