x2 = x
y2 = y
y = y + 48
yanse3 = GetPixelColor(x, y)
x3 = x
y3 = y
y = y1
x = x + 48//下一行
yanse11 = GetPixelColor(x, y)
x11 = x
y11 = y
y = y + 48
yanse22 = GetPixelColor(x, y)
x22 = x
y22 = y
y = y + 48
yanse33 = GetPixelColor(x, y)
x33 = x
y33 = y
//==================竖向右交叉判断程序=================
If yanse11 = yanse2 And yanse11 = yanse3 Then
MoveTo x1, y1
Delay 10
LeftClick 1
Delay 10
MoveTo x11, y11
Delay 10
LeftClick 1
Delay 10
End If
If yanse22 = yanse1 And yanse22 = yanse3 Then
MoveTo x2, y2
Delay 10
LeftClick 1
Delay 10
MoveTo x22, y22
Delay 10
LeftClick 1
Delay 10
End If
If yanse33 = yanse1 And yanse33 = yanse2 Then
MoveTo x3, y3
Delay 10
LeftClick 1
Delay 10
MoveTo x33, y33
Delay 10
LeftClick 1
Delay 10
End If
If yanse1 = yanse22 And yanse1 = yanse33 Then
MoveTo x1, y1
Delay 10
LeftClick 1
Delay 10
MoveTo x11, y11
Delay 10
LeftClick 1
Delay 10
End If
If yanse2 = yanse11 And yanse2 = yanse33 Then
MoveTo x2, y2
Delay 10
LeftClick 1
Delay 10
MoveTo x22, y22
Delay 10
LeftClick 1
Delay 10
End If
If yanse3 = yanse11 And yanse3 = yanse22 Then
MoveTo x3, y3
Delay 10
LeftClick 1
Delay 10
MoveTo x33, y33
Delay 10
LeftClick 1
Delay 10
End If
x = x2
y = y2
Next
x = x1 + 48 : y = 118 + Uy
Next
Loop
Sub 开始()//判断游戏开始子程序
Rem kaishi
FindPic 345+Ux,370+Uy,425+Ux,407+Uy,"Attachment:\kaishi.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 200
LeftClick 1
End If
FindPic 442+Ux,367+Uy,526+Ux,408+Uy,"Attachment:\biaoqing.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "当前状态:游戏还未开始", "0000FF")
Goto kaishi
End If
End Sub