Call zhaoguai()
        End If
    End If

    dm_ret = dm.FindColor(300,150,800,600,"06ff04-050505",1.0,4,intX,intY)  '找材料  
    If intX >= 0 and intY >= 0 Then 
       
        dm.moveto intX, intY + 40
        Call ydpd
        Delay 10
        dm.RightClick 
        
        If Form1.CheckBox3.Value = 1 Then 
        	
            Delay 1000
            For ni = 1 To 20
                color = dm.GetColor(560, 571)
                TracePrint color
                If color <> "000000" Then 
                    Call zhaoguai
                    Goto a
                End If
           
            
                Delay 200
            Next
        Else 
            Delay 5000
        End If 
    End If
 
 
End Sub


Sub Move(x,y) ' 自动寻路
 
    Delay 10
    dm.KeyPress 77
    Delay 10
    dm.moveto 800, 190
    Delay 10
    dm.Leftclick 
    Delay 10
    Call zhuanhuan(x)
    TracePrint x
    Delay 10
    dm.moveto 850, 190
    Delay 10
    dm.Leftclick 
    Delay 10
    Call zhuanhuan(y)
    Delay 10
    dm.moveto 900, 190
    Delay 10
    dm.Leftclick 
    Delay 10
    dm.KeyPress 77
    Delay 10
 
End Sub
Sub zhaoguai() '找怪
    Do
        dm_ret = dm.FindColor(350,200,800,480,"ef2124-050505|fb2224-050505|fc2225-050505",1.0,4,inX,inY)
        If inX >= 0 and inY >= 0 Then 

            dm.KeyPress jineng
            Delay 10
              
        Else 

    
            Exit Do
            
        End If
  
    Loop
    If Form1.CheckBox1.Value = 1 Then '判断是否骑马
        Delay 800
        dm.KeyPress 57
        Delay 20
    End If
    Delay 20

    Call find()
	
End Sub
sub zhuanhuan(a) '将TextBox 坐标转换成 ASC码  依次输出
	
    b1 = Mid(a, 1, 1)
    TracePrint b1
    c=Asc(b1)
    dm.KeyPress c
    Delay 10
    b2 = Mid(a, 2, 2)

    c=Asc(b2)
    dm.KeyPress c
    Delay 10