Delay 85
                KeyUp "5", 1
                Delay 85
            End If
        End If
        Delay 1000
        FindPic 0,0,1280,800,"Attachment:\1.bmp",0.9,intX,intY
    Loop
End If
//丢宝箱
Delay 400
FindPic 0,0,1280,800,"Attachment:\bx.bmp",0.9,bxX,bxY
If bxX > 0 And bxY > 0 Then
    Call bxc()
End If
Sub bxc()
    If bxX > 0 And bxY > 0 Then
        Do While bxX > 0 And bxY > 0
            MoveTo bxX,bxY
            LeftDown 1
            Delay 100
            MoveTo 1280/2, 800/2
            Delay 100
            LeftUp 1
            Delay 350
            KeyDown "Enter", 1
            Delay 85
            KeyUp "Enter", 1
            Delay 500
            FindPic 0,0,1280,800,"Attachment:\bx.bmp",0.9,bxX,bxY
        Loop
    End If
End Sub
FindPic 0,0,1280,800,"Attachment:\xaye.bmp",0.9,xayeX,xayeY
Delay 200
MoveTo xayeX+2,xayeY+2
LeftClick 1
LeftUp 1
Delay 800
FindPic 0,0,1280,800,"Attachment:\bx.bmp",0.9,bxX,bxY
If bxX > 0 And bxY > 0 Then
    Call bxc()
End If
Delay 500
FindPic 0,0,1280,800,"Attachment:\saye.bmp",0.9,sayeX,sayeY
MoveTo sayeX+2,sayeY+2
LeftDown 1
Delay 80
LeftUp 1
Delay 700
If inth > 0 And intj > 0 Then
    MoveTo inth,intj
    For 2
        LeftDown 1
        Delay 80
        LeftUp 1
        Delay 80
    Next
End If
Delay 300
Delay 5000
Goto xfanxx
//召唤宠物
Sub cw()
    FindPic 0,0,1280,800,"Attachment:\cw.bmp",0.9,cwX,cwY
    MoveTo cwX+2,cwY+2
    LeftDown 1
    Delay 80
    LeftUp 1
    Delay 500
    FindPic 0,0,1280,800,"Attachment:\czan.bmp",0.9,czanX,czanY
    MoveTo czanX+2,czanY+2
    LeftDown 1
    Delay 80
    LeftUp 1
    Delay 300
    FindPic 0,0,1280,800,"Attachment:\tchu3.bmp",0.9,tchu3X,tchu3Y
    MoveTo tchu3X+2,tchu3Y+2
    LeftDown 1
    Delay 80
    LeftUp 1
    Delay 300
End Sub
Sub fsss()
    MoveTo cvn+5,cvm+5
    Delay 85
    LeftDown 1
    Delay 80
    LeftClick 1
    Delay 120
    LeftUp 1
End Sub