set dm = createobject("dm.dmsoft")
TracePrint dm.ver()
dm_ret = dm.SetPath("E:\top")
dm_ret = dm.SetDict(0, "dm_soft.txt")
Delay 1100
a =  Plugin.Window.Find(0,"KEmulator Lite v0.9.8")
Delay 268
Call Plugin.Window.Move(a,6,6)
Delay 268
Call Plugin.Window.Active(a)
Call aw()
Sub aw()
Delay 1268
dm_ret = dm.FindStr(94,113,148,607,"7级黄巾","cccccc-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
     dm.MoveTo intX,intY
    LeftDoubleClick 2
        Delay 126
    Goto a
End If
Delay 568
dm_ret = dm.FindStr(94,113,148,607,"8级黄巾","cccccc-000000",1.0,ntX,ntY)
If ntX >= 0 and ntY >= 0 Then
     dm.MoveTo ntX,ntY
    LeftDoubleClick 2
        Delay 126
    Goto a
End If
Delay 568
dm_ret = dm.FindStr(94,113,148,607,"9级黄巾","cccccc-000000",1.0,inX,inY)
If inX >= 0 and inY >= 0 Then
     dm.MoveTo inX,inY
    LeftDoubleClick 2
        Delay 126
    Goto a
End If
    End Sub
Rem a
Delay 1288
KeyDown "W", 1
Delay 168
KeyUp "W", 1
For 5
Delay 1088
KeyDown "R", 1
    Delay 168
KeyUp "R", 1
    Delay 688
KeyDown "Down", 1
    Delay 168
KeyUp "Down", 1
    Next
Delay 1268
dm_ret = dm.FindStr(179,548,211,573,"5/5","ffff5a-000000",1.0,ingX,ingY)
If ingX >= 0 and ingY >= 0 Then
    KeyDown "W", 1
    Delay 168
    KeyUp "W", 1
    Else 
    
KeyDown "E", 1
    Delay 168
    KeyUp "E", 1
    Delay 168
    Call aw()
End If
Delay 2568
dm_ret = dm.FindStr(116,212,144,230,"未知","5fd6d6-000000",1.0,gfX,gfY)
If gfX >= 0 and gfY >= 0 Then
  
KeyDown "E", 1
    Delay 168
    KeyUp "E", 1
    Delay 168
    Call aw()
    Else 
    

      KeyDown "W", 1
    Delay 168
    KeyUp "W", 1
End If
Delay 2168
KeyDown "E", 1
Delay 168
KeyUp "E", 1
Delay 1268
KeyDown "2", 1
Delay 168
KeyUp "2", 1
Delay 1268
KeyDown "R", 1
Delay 168
KeyUp "R", 1
EndScript