Delay 1000
				dm_ret = dm.FindStr(0, 0, 2000, 2000, "魔", "ffa000-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			dm.MoveTo intX+20 , intY
     			delay 100
	 			dm.LeftDoubleClick
				Delay 100
				Else 
				End If
				Delay 1000
				dm_ret = dm.FindStr(0, 0, 2000, 2000, "光", "ffa000-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			dm.MoveTo intX-10 , intY
     			delay 100
	 			dm.LeftDoubleClick
				Delay 100
				Else 
				End If
				Delay 300
				dm_ret = dm.FindStr(0, 0, 2000, 2000, "成", "f2e88f-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			dm.MoveTo intX , intY
     			delay 100
	 			dm.LeftDoubleClick
				Delay 1000
				Else 
				End if 
    		End Sub
    	
    		
    		
    		
    		
    		Sub daguai
    			dm_ret = dm.FindStr(0, 0, 2000, 2000, "打", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			dm.MoveTo intX+80 , intY
     			delay 100
	 			dm.LeftDoubleClick
				Delay 2000
				dm.keydown 9
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				
				Else 
				End If
				
				
    		End Sub
    		
    		Sub daguai2
    			dm_ret = dm.FindStr(0, 0, 2000, 2000, "击", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then