dm_ret=dm.FindStr(757,191,851,206,"天青","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 "天青没找到"
      EndScript
End If

//关闭地图
dm.keypress 77
    Delay 1000

//请送
i = 0
While i=0
dm_ret=dm.FindStr(32,419,67,440,"请送","362000-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
  i=1     
End If
Wend
  dm.MoveTo x, y
      Delay 500
      dm.LeftDoubleClick 
     Delay 1000

//离开帮派
i = 0
While i=0
dm_ret=dm.FindStr(37,423,98,440,"离开帮派","362000-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
  i=1      
End If
Wend
 dm.MoveTo x, y
      Delay 500
      dm.LeftDoubleClick 
     Delay 1000
     
//打开任务地图按L键    
    dm.keypress 76
    Delay 1000
    
//将货物送给
i = 0
While i=0
dm_ret=dm.FindStr(529,364,607,382,"将货物送给","362000-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
  i=1      
End If
Wend
    
//鼠标点第一个人物
dm.MoveTo 631, 373
Delay 500
dm.LeftDoubleClick 
Delay 3000
 
//关闭任务窗口
dm.keypress 27
Delay 1000

Delay 30000

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

Rem 查找一或零
i=0
While i=0
dm_ret=dm.FindStr(583,393,594,407,"1","362000-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
  Call dier()
Else 
Call diyi()
End If
Wend

     
Rem 查找二或一
i=0
While i=0
dm_ret=dm.FindStr(581,393,596,408,"2","362000-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
Call disan()
Else        
Call dier()
End If
Wend   


Sub diyi()
dm.MoveTo 631, 373
Delay 1000
dm.LeftDoubleClick 
Delay 100
Goto 查找一或零