[已回复] 找茬游戲Findpic找多圖的問題

Dim screenX,screenY,deviceID,colorDep,shijian
screenX = GetScreenX()
screenY = GetScreenY()
colorDep = GetScreenColorDep()
ShowMessage "Reso" & screenX & "*" & screenY & Chr(10)

Delay 500

Dim intX, intY
Dim pic1, pic2, pic3, pic4

Rem FindPicGame

pic1 = 0
pic2 = 0
pic3 = 0
pic4 = 0


SnapShot "/sdcard/pic1.png", 762,37,1142,423


If FindPic(728,7,1169,451, "/sdcard/pic1.png", "000000", 0, 0.95, intX, intY) > -1 Then
   pic1 = 1
End If

// pic2
If FindPic(728,454,1167,893, "/sdcard/pic1.png", "000000", 0, 0.95, intX, intY) > -1 Then
   pic2 = 1
End If

// pic3
If FindPic(289,10,726,4482, "/sdcard/pic1.png", "000000", 0, 0.95, intX, intY) > -1 Then
   pic3 = 1
End If

// pic4
If FindPic(306,471,712,872, "/sdcard/pic1.png", "000000", 0, 0.5, intX, intY) > -1 Then
   pic4 = 1
End If

Goto FindPicGame