PutAttachment "d:\test_game" ,"*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("c:\test_game\dm.dll")
set dm = createobject("dm.dmsoft")
TracePrint "当前版本:"&dm.Ver
dm.SetPath "D:\字库和图片集"
dm.SetDict 0,"抢小.txt"
UserVar 延时=30 "延时(毫秒)"
TTBB2_Hwnd_抢小 = Plugin.Window.Foreground()
dm_ret = dm.BindWindow(TTBB2_Hwnd_抢小,"normal","normal","normal",0)
dm_ret = dm.GetClientSize(TTBB2_Hwnd_抢小,w,h)
Call 开始抢小()
Call 副本创建成功()
Sub 开始抢小()
    Call Plugin.Msg.HideScrTXT()
    Delay 500
    Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "【开始抢小】", "0000FF")
    Do
        dm_ret = dm.FindStrFast(0,0,w,h,"江湖","F9F900-1E1E00",1.0,intX,intY)
        If intX >= 0 and intY >= 0 Then
            dm.MoveTo intX+22,intY+50
                        dm . LeftClick 
            Delay 延时
            Exit Do
        End If

 
    Loop
End Sub
Sub 副本创建成功()
    Do
        dm_ret = dm.FindPic(0,0,w,h,"刀.bmp","000000",0.9,0,intX,intY)
        If intX >= 0 and intY >= 0 Then
            Exit Do
        End If
    Loop
    dm .  MoveTo intX +55, intY+3
    For i=0 to 5
        dm . LeftClick 
        Delay 100
    Next
    EndScript
End Sub
Sub OnScriptExit()
    dm_ret = dm.UnBindWindow() 
        Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "抢小完毕脚本退出", "0000FF")
End Sub