If intX > 0 And intY > 0 Then 
MoveTo intX+25,intY+8
    Delay 300
        LeftClick 2
        Delay 220
    KeyPress "1", 1
        Delay 200
    KeyPress "4", 1
            Delay 200
        KeyPress "7", 1
    KeyPress "Enter", 1
            Delay 200
    KeyPress "5", 1
            Delay 200
    KeyPress "7", 1
    KeyPress "Enter", 2
End If
Call Plugin.Media.Play("e:\mp3.mp3")
WaitKey
    Delay 200
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:\坐标hui.bmp", 0.9, intX, intY
    Next
If intX > 0 And intY > 0 Then 
MoveTo intX+25,intY+8
    Delay 500
        LeftClick 2
        Delay 350
    KeyPress "9", 1
        Delay 200
    KeyPress "9", 1
    KeyPress "Enter", 1
    KeyPress "1", 1
            Delay 200
    KeyPress "5", 1
            Delay 200
    KeyPress "7", 1
    KeyPress "Enter", 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 300
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