FindPic 0,0,1366,768,"Attachment:\拜访礼物.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
        MoveTo intX+30, intY+30
        Delay 300
                LeftClick 1
End If
//检查宝币的箱子
    FindPic 0,0,1366,768,"Attachment:\被打开的箱子.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
                MoveTo intX+20, intY+20
    Delay 300
                        LeftClick 1
        Delay 300
        Call 打钩钩()
End If
    FindPic 0,0,1366,768,"Attachment:\没打开的箱子.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
        MoveTo intX+20, intY+20
    Delay 600
    LeftClick 1
    Delay 600
    Call 打钩钩()
End If
End Sub
//拜访破晓
Delay 100
FindPic 0,0,1366,768,"Attachment:\破晓的宁静.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
    Delay 300
        MoveTo intX+20, intY+20
    Delay 300
LeftClick 1
    Delay 1000
Else 
    Delay 100
MoveTo 403, 620
    Delay 300
    LeftClick 1
    Delay 1000
End If
Call 拜访()
//继续拜访717
FindPic 0,0,1366,768,"Attachment:\717先生.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
    Delay 100
        MoveTo intX+20, intY+20
    Delay 300
LeftClick 1
    Delay 1000
Else 
    Delay 100
MoveTo 497, 618
    Delay 300
            LeftClick 1
    Delay 1000
End If
Call 拜访()
Sub 打钩钩()
//查找新手任务的钩钩
FindPic 0,0,1366,768,"Attachment:\新手任务的钩钩.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+15, intY+15
        Delay 300
        LeftClick 1
        Delay 300
End If
FindPic 0,0,1366,768,"Attachment:\登陆奖励的钩钩.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+15, intY+15
        Delay 300
        LeftClick 1
        Delay 300
End If
FindPic 0,0,1366,768,"Attachment:\答题的钩钩.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+15, intY+15
        Delay 300
        LeftClick 1
        Delay 300
End If
FindPic 0,0,1366,768,"Attachment:\买鱼饵的钩钩.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+15, intY+15
        Delay 300
        LeftClick 1
        Delay 300
End If
FindPic 0,0,1366,768,"Attachment:\零花钱的钩钩.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+15, intY+15
        Delay 300
        LeftClick 1
        Delay 300
End If
End Sub
Delay 500
MoveTo 1340, 8
Delay 500
LeftClick 1
Delay 500