// Print "Game1"
Sleep(0.1)
LClick(185,235) //STARTをクリック
Sleep(0.5)
LClick(185,235) //念のための追いクリック
Sleep(1.5) //一秒おくのはＳＴＡＲＴの表示が暗くなるのを待つため
OKCheck() //OKの表示待ち
Dim Card[4]
Dim State[4]
Dim Hold[4]
Card[0] = val(Number1(0,0)) //カードの数字判別開始
Card[1] = val(Number1(PointX[1] - PointX[0],0))
Card[2] = val(Number1(PointX[2] - PointX[0],0))
Card[3] = val(Number1(PointX[3] - PointX[0],0))
Card[4] = val(Number1(PointX[4] - PointX[0],0))
For I = 0 To 4 //完成ストレートのチェック
State[I] = Card[I]
Next
QSORT(state)
L = 0
IF State[0] <> State[1] and State[1] <> State[2] and State[2] <> State[3] and State[3] <> State[4] and State[4] - State[0] = 4 then L = 1
IF State[0] <> State[1] and State[1] <> State[2] and State[2] <> State[3] and State[3] - State[0] <= 4 and State[4] = 14 then L = 1
IF State[0] = 1 and State[1] = 10 and State[1] <> State[2] and State[2] <> State[3] and State[3] <> State[4] then L = 1
IF State[0] = 1 and State[1] >= 10 and State[1] <> State[2] and State[2] <> State[3] and State[3] - State[0] <= 3 and State[4] = 14 then L = 1
IF State[0] = 10 and State[0] <> State[1] and State[1] <> State[2] and State[2] <> State[3] and State[3] <> State[4] then L = 1
For I = 0 To 4 //ペアのチェックとHold処理
IF L = 1 then Hold[I] = 1
K = 0
For J = 0 To 4
IFB I <> J
if Card[I] = Card[J] or Card[I] = 14 Then Hold[I] = 1
Endif
Next
IF Hold[I] = 1 Then LClick(I*84 + 30,30)
Next
LClick(185,235) //OKクリック
Sleep(0.5)
LClick(185,235) //追いクリック
Sleep(1)
Fend