b = 0 #サイコロ数値の中身
Q = 0 #役成立カウント
while b < 7 && Q < 4
 Q = 0 #カウントリセット
 a = 0 #調べるダイスの番号
 while a < 5
  if getVariable("ダイス")[a] == b
   Q = Q + 1
   q = getVariable("ダイス")[a]
  end
  a = a + 1
 end
 b = b + 1
end
if Q >= 4
 D3 = q * 4 + 15
else
 D3 = 0
end

b = 0 #サイコロ数値の中身
Q = 0 #スリーカード成立カウント
while b < 7 && Q < 3
 Q = 0 #カウントリセット
 a = 0 #調べるダイスの番号
 while a < 5
  if getVariable("ダイス")[a] == b
   Q = Q + 1
   q = getVariable("ダイス")[a]
  end
  a = a + 1
 end
 b = b + 1
end
e = 0 #サイコロ数値の中身その２
W = 0 #ワンペア成立のカウント
while e < 7 && W < 2
 W = 0 #カウントリセット
 s = 0 #調べるダイスの番号
 while s < 5
  if e == q #スリーカード部分の検索避け
  else
   if getVariable("ダイス")[s] == e 
    W = W + 1
    y = getVariable("ダイス")[s]
   end
  end 
  s = s + 1
 end
 e = e + 1
end
if Q >= 3 && W >= 2
 D4 = q * 3 + (y * 2) + 15
else
 D4 = 0
end