Rem 开始
Delay 500
FindPic 273,241,1154,821,"Attachment:\ci.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+5, intY+6
    Delay 50
    LeftClick 1
    Delay 100
End If
Call 工作()
Call 抓捕()
Call 找银帽子()
Call XX()
Call 交战()
Delay 1000
Sub 抓捕()
    // 找抓捕图标
    Delay 200
    FindPic 640,250,1280,960,"Attachment:\1.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX+10, intY+15
        Delay 100
        LeftClick 1
        Delay 100
    End If
End Sub
Sub 找银帽子()
    FindPic 300,300,1279,959,"Attachment:\YM.bmp",0.8,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX, intY 
        GetCursorPos x, y
        Delay 50
        FindPic x-5,y,x+100,y+170,"Attachment:\ZN1.bmp",0.8,intX,intY
        If intX> 0 And intY> 0 Then 
            MoveTo X+40,Y+40          
            Delay 300
            LeftClick 1
        End If
        FindPic x-5,y,x+100,y+170,"Attachment:\ZQ1.bmp",0.8,intX,intY
        If intX> 0 And intY> 0 Then 
            MoveTo X+40,Y+40          
            Delay 300
            LeftClick 1
        End If
    End If
//       经验卷
//    FindPic 300,300,1279,959,"Attachment:\YM.bmp",0.8,intX,intY
//    If intX > 0 And intY > 0 Then 
//        MoveTo intX+35,intY+40          
//        Delay 200
//        LeftClick 1
//    End If
    Delay 1000
    
    
End Sub
Sub XX()
    FindPic 200,100,1280,930,"Attachment:\XX.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX+5, intY+5
        Delay 100
        LeftClick 1
    End If
    Delay 1000
End Sub

Sub 交战()
    FindPic 560,775,900,885,"Attachment:\ck.bmp",0.8,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX+10, intY+5
        LeftClick 1
        Delay 500
    End If
    Delay 200
    FindPic 500, 530, 875, 625, "Attachment:\guan.bmp", 0.8, intX, intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX+10, intY+5
        LeftClick 1
    End If
    Delay 500
End Sub
Sub 工作()
    //     找开工图标
    FindPic 300,300,1280,959,"Attachment:\2.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX+13,intY+15
        Delay 50
        LeftClick 1
    End If
    Delay 1000
    //   找女娲石  
    FindPic 300,300,1280,959,"Attachment:\AN0.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX, intY 
        GetCursorPos x, y
        Delay 50
        FindPic x-80,y,x+100,y+80,"Attachment:\kg.bmp",0.9,x,y
        If x >= 0 And y > 0 Then 
            MoveTo x+8,y+8
        End If