LeftDoubleClick 2
End If
Rem quluoyang
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\敦煌地图.bmp", 0.9, intX, intY
                                Next
If intX > 0 And intY > 0 Then 
Else
Goto quluoyang
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:\去洛阳.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 luoyangditu
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\洛阳地图.bmp", 0.9, intX, intY
                                        Next
If intX > 0 And intY > 0 Then 
Else
Goto luoyangditu
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:\去雁南.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 yannai
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\雁南地图.bmp", 0.9, intX, intY
                                        Next
If intX > 0 And intY > 0 Then 
Else
Goto yannai
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:\去雁南正北校尉.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 tt
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\城市3.bmp", 0.9, intX, intY
                                                Next
If intX > 0 And intY > 0 Then 
    Else
    Goto tt
    End If
MoveTo intX+25,intY+8
    Delay 500
    LeftDoubleClick 2
 Delay 3296
KeyDown 18, 1
KeyPress 192, 1
KeyUp 18, 1
    Delay 500
    KeyDown 18, 1
    KeyPress 50, 1
    KeyUp 18, 1
Delay 300
For i=1 To 3
FindPic 0, 0, 800, 600, "Attachment:\坐标.bmp", 0.9, intX, intY
        Next