按键自用

i = 0
While i = 0
    call 归位
Wend
While i = 1
    call 寻宝
Wend
Sub 寻宝
    Delay 100
    FindColorEx 141,717,280,860,"7EBA8D",0,0.8,intX,intY
    If intX > 0 And intY > 0 Then
        Tx = intX
        Ty = intY
    Else
        Delay 100
        FindColorEx 141,717,280,860,"120933",0,0.9,intX,intY
        If intX > 0 And intY > 0 Then
            Tx = intX
            Ty = intY
        End if
    End If
    Delay 100
    FindColor 199,779,215,795,"166F7E",intX,intY
    If intX > 0 And intY > 0 Then
        Zx = intX
        Zy = intY
    Else
        Rem 等
        FindColorEx 60,860,150,890,"2F97C8",0,0.9,intX,intY
        If intX > 0 And intY > 0 Then
            Delay 5000
            Goto 等
        Else
            MoveTo 200,800
            Delay 100
            LeftClick 1
            Delay 100
            MoveTo X, Y
            Delay 2000
            i = 0
        End If
    End If
    x = Tx - Zx
    y = Ty - Zy
    X = x * 2 + 960
    Y = y * 2 + 576
    MoveTo X, Y
    Delay 100
    LeftClick 1
End Sub
Sub 归位
    FindColorEx 1715,85,1870,225,"DFDFDF",0,0.9,intX,intY
    If intX > 0 And intY > 0 Then
        Tx = intX
        Ty = intY
        
        TracePrint 1
    Else

//E7E9E4 找墓碑点时要吧小地图周围相似颜色的图标遮挡起来哦

        FindColorEx 1715,85,1870,225,"E7E9E4",0,0.9,intX,intY
        If intX > 0 And intY > 0 Then
            Tx = intX
            Ty = intY
               sx = intX
        End If
    End If
    FindColorEx 1780,147,1814,174,"55E8F0",0,0.9,intX,intY
    If intX > 0 And intY > 0 Then
        Zx = intX
        Zy = intY
       
    End If
    x1 = sx - Zx
    xx = Tx - Zx
    yy = Ty - Zy
    X = xx * 3 + 960
    Y = yy * 3 + 576
    TracePrint x1
    If x1 >= -10 Then
    
        MoveTo 200, 800
        LeftClick 1
        Delay 50
        MoveTo 960, 576
        Delay 4000
        i = 1
    End If
    MoveTo X, Y
    Delay 100
    LeftClick 1
    Delay 100
End Sub