End Sub

Sub dier()
dm.MoveTo 680, 373
Delay 2000
dm.LeftDoubleClick 
Delay 100
Delay 10000
Goto 查找二或一
End Sub
 


Sub disan()
dm.MoveTo 743,374
Delay 1000
dm.LeftDoubleClick 
Delay 100
Delay 1000
Goto 查找三或二
End Sub


//关闭任务窗口
dm.keypress 27
Delay 25000

//打开任务地图按L键    
dm.keypress 76
Delay 1000      



Rem 查找三或二
i=0
While i=0
dm_ret=dm.FindStr(580,391,596,409,"3","362000-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
 i=1 
 Else 
 Call disan()
 End If
Wend


//关闭任务窗口
dm.keypress 27
    Delay 10000


//找广陵城
For 5
dm_ret=dm.FindStr(893,5,910,24,"陵","f0e69d-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
Goto 打开地图
Else 
Goto 回城卷
End If
Next

Rem 回城卷
dm.keypress 120
    Delay 5000

i=0
While i=0
dm_ret=dm.FindStr(909,4,929,23,"城","f0e69d-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
 i=1
End If
Wend


Rem 打开地图
//按M打开地图
 dm.keypress 77
    Delay 1000


//找传送
dm_ret=dm.FindStr(735,166,795,189,"传送Npc","ffd495-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
    dm.MoveTo x, y
      Delay 500
      dm.LeftDoubleClick 
     Delay 2000
      Else 
      MessageBox "地图传送没找到"
End If

//找虹曜
dm_ret=dm.FindStr(748,227,867,248,"虹曜","ffd495-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
    dm.MoveTo x, y
      Delay 500
      dm.LeftDoubleClick 
     Delay 1000
      Else 
      MessageBox "虹曜没找到"
End If