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