//关闭地图窗口
dm.keypress 27
    Delay 10000

//延时8秒
 Delay 8000


//我去
i=0
While i=0
dm_ret=dm.FindStr(67,419,100,440,"我去","362000-000000",1.0,x,y)   
 If x>=0 And y>=0 Then
i=1
Else 
 Call shuangji()
End If
Wend
 
  dm.MoveTo x,y
   Delay 1000
dm.LeftDoubleClick 
   Delay 100

Sub shuangji()
Delay 5000
dm.keypress 77
    Delay 1000
dm.MoveTo 788, 237
      Delay 1000
      dm.LeftDoubleClick 
     Delay 1000
dm.keypress 77
Delay 1000
End Sub


//回到帮派
i=0
While i=0
dm_ret=dm.FindStr(35,421,101,442,"回到帮派","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

Rem 绿子仓
i=0
While i=0
dm_ret=dm.FindStr(802,321,837,339,"绿子仓","61e400-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 500

dm.MoveTo 511, 408
 Delay 1000

//还任务
i=0
While i=0
dm_ret=dm.FindStr(98,446,132,461,"任务","362000-000000",1.0,x,y)   
If x>=0 And y>=0 Then
Call renwu()
 Else 
Goto 绿子仓
End If
Wend




Sub renwu()
i=0
While i=0
dm_ret=dm.FindStr(98,446,132,461,"任务","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 500
End Sub


//按下F12
dm.keypress 123