createobject("dm.dmsoft")

TracePrint dm.Ver

dm.setpath"g:\星辰变\SnapShot"

hwnd = dm.FindWindow("XCBClientWnd", 0)

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

UserVar 刷怪模式=DropList{"0":"0"|"1":"1"}=0 "刷怪模式"
UserVar 自动组队=DropList{"0":"0"|"1":"1"}=0 "自动组队"
UserVar 是否拾取=DropList{"0":"0"|"1":"1"}=0 "是否拾取"

UserVar 辅助技能1=DropList{"关闭":""|"1":"49"|"2":"50"|"3":"51"|"4":"52"|"5":"53"|"6":"54"|"7":"55"|"8":"56"|"9":"57"}=0 "辅助技能1"

UserVar 辅助技能1时间=0 "辅助技能1时间(s)"

UserVar 辅助技能2=DropList{"关闭":""|"1":"49"|"2":"50"|"3":"51"|"4":"52"|"5":"53"|"6":"54"|"7":"55"|"8":"56"|"9":"57"}=0 "辅助技能2"

UserVar 辅助技能2时间=0 "辅助技能2时间(s)"

UserVar 首发技按键=DropList{"关闭":""|"1":"49"|"2":"50"|"3":"51"|"4":"52"|"5":"53"|"6":"54"|"7":"55"|"8":"56"|"9":"57"}=0 "首发技"

UserVar 组合技按键=DropList{"关闭":""|"1":"49"|"2":"50"|"3":"51"|"4":"52"|"5":"53"|"6":"54"|"7":"55"|"8":"56"|"9":"57"}=0 "组合技"

UserVar 组合技延时=0 "组合技延时(ms)"

UserVar 其它技能按键=DropList{"关闭":""|"1":"49"|"2":"50"|"3":"51"|"4":"52"|"5":"53"|"6":"54"|"7":"55"|"8":"56"|"9":"57"}=0 "其它技能"

UserVar 其它技能冷却时间=0 "其它技能冷却时间(ms)"

UserVar 引怪数量=0 "引怪数量"

UserVar 引怪技能=DropList{"1":"49"|"2":"50"|"3":"51"|"4":"52"|"5":"53"|"6":"54"|"7":"55"|"8":"56"|"9":"57"}=0 "引怪技能"

UserVar 群怪技能=DropList{"1":"49"|"2":"50"|"3":"51"|"4":"52"|"5":"53"|"6":"54"|"7":"55"|"8":"56"|"9":"57"}=0 "群怪技能"

UserVar 群怪时间=0 "群怪时间(s)"

Dim qt, ft1, ft2

组队 = dm.getcolor(602,493)

灵力 = dm.getcolor(681,184)

//***********************刷怪模式**********
//************************单刷*****************
If 刷怪模式 = 0 Then                
	
	dm.keypress 辅助技能2
	
	Delay 1500
	
    Rem f1

    ft1 = now
	
    ft2 = now
	
    dm.keypress 辅助技能1 
		
    If datediff("s", ft2, now) >= 辅助技能2时间 Then 
			
        dm.keypress 辅助技能2
            
        ft2 = now
			
    End If
	
    Do  While true

        Rem Start1
	
        Delay 500
	 
        //***************自动灵力*********
        If 灵力 = "6a341a" Then 
			
            dm.moveto 681,184
			
            Delay 300
			
            dm.leftclick 
			
            Delay 300
			
            dm.leftclick 
			
        End If
        //**************自动组队**********
        If 自动组队=0 Then
			
            dm_ret = dm.FindPic(0,0,2000,2000,"组队.bmp","000000",0.9,0,X,Y)
		
            If X >= 0 Then
    		
                dm.moveto 609,484
			
                Delay 300