Next
If intX > 0 And intY > 0 Then 
Else
Goto 敦煌回剑阁
End If
Delay 200
KeyDown 18, 1
KeyPress 192, 1
KeyUp 18, 1
    Delay 500
    KeyDown 18, 1
    KeyPress 50, 1
    KeyUp 18, 1
Delay 500
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\去剑阁hui.bmp", 0.9, intX, intY
                            Next
If intX > 0 And intY > 0 Then 
        MoveTo intX+10,intY+1
Delay 500
        LeftDoubleClick 2
End If
Rem 剑阁回大理
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\剑阁地图hui.bmp", 0.9, intX, intY
                        Next
If intX > 0 And intY > 0 Then 
Else
Goto 剑阁回大理
End If
Delay 200
KeyDown 18, 1
KeyPress 192, 1
KeyUp 18, 1
    Delay 500
    KeyDown 18, 1
    KeyPress 50, 1
    KeyUp 18, 1
Delay 500
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\去大理hui.bmp", 0.9, intX, intY
                            Next
If intX > 0 And intY > 0 Then 
        MoveTo intX+10,intY+1
Delay 500
        LeftDoubleClick 2
End If
Rem 大理回洱海
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\大理地图hui.bmp", 0.9, intX, intY
                        Next
If intX > 0 And intY > 0 Then 
Else
Goto 大理回洱海
End If
Delay 200
KeyDown 18, 1
KeyPress 192, 1
KeyUp 18, 1
    Delay 500
    KeyDown 18, 1
    KeyPress 50, 1
    KeyUp 18, 1
Delay 500
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\去洱海hui.bmp", 0.9, intX, intY
                            Next
If intX > 0 And intY > 0 Then 
        MoveTo intX+7,intY+5
Delay 500
        LeftDoubleClick 2
End If
Rem 洱海回帮
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\洱海地图hui.bmp", 0.9, intX, intY
                        Next
If intX > 0 And intY > 0 Then 
Else
Goto 洱海回帮
End If
Delay 200
KeyDown 18, 1
KeyPress 192, 1
KeyUp 18, 1
    Delay 500
    KeyDown 18, 1
    KeyPress 50, 1
    KeyUp 18, 1
Delay 500
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\洱海正南校尉hui.bmp", 0.9, intX, intY
                            Next
If intX > 0 And intY > 0 Then 
        MoveTo intX+5,intY+1
Delay 500
        LeftDoubleClick 2
End If
Rem 回自己帮
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\洱海城市hui.bmp", 0.9, intX, intY