Call Plugin.RegDll.Reg(".\plugin\大漠梦想\dm.dll")
    set dm = createobject("dm.dmsoft")
    dm.SetPath ".\plugin\大漠梦想"
    '======================= > > >注册大漠 < < < ==================================
    Delay 50
End Sub

Sub gamestart(cwa)
    set dm = createobject("dm.dmsoft")
    //↑创建“一个对象”
    dm.SetPath ".\plugin\大漠梦想"
    Hwnd = kk
    Call Plugin.Window.Size(Hwnd, 1200, 800)
    dm_ret = dm.BindWindow(hwnd,"dx2","dx","dx",0)
    Delay 50
    Dim mx, my
    TracePrint cwa
    
    mx = split(x1, ",")
    my = split(y1, ",")
    
    If Form1.CheckBox1.Value = 1 Then
        Delay 20
        dm.KeyPress 57
        Delay 20
    End If

    Do
        cnm = 1
        For cnm = 1 To 2
            dm.KeyPress 48

            For i = 0 To cwa
                Call Move(mx(i), my(i))
                Call ydpd()
                Call find()


            Next

            If Form1.CheckBox2.Value = 1 Then  '换线
                Call change(cnm)
                Delay 3000
                dm.keypress 57
            End If  
            If Form1.CheckBox4.Value = 1 Then  ' 打坐
                Call Move(mx(0), my(0))
                Delay 1000
                dm.keypress 55
                Call ydpd()
 
                Call dazuo
            End If
          
        
        Next

    Loop

End Sub
    
Sub dazuo()
	
	

    dm.keypress 57
    Delay 1000
    dm.KeyPress 86
    Delay 20
    Do
        col3 = dm.GetColor(230, 90)
        
        col = dm.GetColor(250, 80)
        Delay 3000
        col2 = dm.GetColor(250, 80)
        TracePrint col
        TracePrint col3
        If col <> col2 Then 
            dm.KeyPress 86
            Exit Do
        ElseIf col2 = "d96d35" and col3 <> "353b37"  Then
            dm.KeyPress 86
            Exit Do
        End If
        Delay 1000
    Loop
        

    Delay 20
    dm.KeyPress 57  '骑马
    Delay 20
    
End Sub


Sub find() '找材料
    If Form1.CheckBox3.Value = 1 Then
        Rem a
        dm_ret = dm.FindColor(400,200,900,480,"ef2124-050505|fb2224-050505|fc2225-050505",1.0,4,iX,iY) '判断是否有怪
        If iX >= 0 and iY >= 0 Then