//自动找怪打怪，且自动判别怪死亡
//自动捡东西四次（东西不分级别，全捡）
    PutAttachment ".\bao","*.dll"
    PutAttachment ".\bao\damo","*.bmp"
    PutAttachment ".\bao\damo","*.txt"
    PutAttachment ".\bao\damo", "dm.dll"
    Call Plugin.RegDll.Reg(".\bao\damo\dm.dll")
    set dm = createobject("dm.dmsoft")
    dm.SetPath (damo)

TracePrint dm.Ver

Delay 2000
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, "dx2", "windows", "dx", 1)
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy = CLng(MyArray(1))

dm_ret = dm.BindWindow(hwnd, "dx2", "windows", "dx", 1)

si = dm.GetColor(439, 37)
huo = dm.GetColor(439, 38)
bu = dm.GetColor(170,39)

dm.KeyDown 40
Delay 1000
dm.KeyUp 40

dm.KeyPress 9
Rem zhunbei
//dm_huo = dm.CmpColor(439, 38, "764323-000000", 1)
dm_si = dm.CmpColor(440,37,"0b0f0f-000000",1)
dm_bu = dm.CmpColor(168,39, "ad5d2e-000000", 1)
Delay 800

Do While true   

    If dm_si = 0 Then  
        	dm.KeyPress 49
    		Delay 1050
    		
    Else      
        Exit do   
    End if   
  
  dm_si = dm.CmpColor(440,37,"0b0f0f-000000",1)      
Loop

If dm_si <> 0 Then 
		Call xuanguai()
End If

Sub xuanguai()
	For 5
	dm.KeyPress 32
	Next
	dm.KeyPress 9
	Delay 200
	goto zhunbei
End Sub