PutAttachment "D:\temp" ,"*.*"
PutAttachment ".\Plugin", "RegDll.dll"
Call Plugin.RegDll.Reg("D:\temp\dm.dll") '注册大漠插件dm.dll
set dm = createobject("dm.dmsoft") '创建大漠插件对象
dm.Setpath "D:\temp" '设置大漠插件文件夹的路径
dm.SetDict 0, "演义三国.txt"'自定义游戏字符串字库
hwnd = dm.GetMousePointWindow()
dm_ret = dm.GetClientSize(hwnd, w, h)
dm_ret = dm.BindWindow(hwnd,"normal","dx","windows",0)
Delay 1000
Dim Pass

Sub 打开演义目标()
    Rem 等待_关闭
    dm_ret = dm.FindPic(0,0,w,h,"关闭图标.bmp","000000",0.9,0,intX,intY)
    If intX >= 0 and intY >= 0 Then
        dm.moveTo intX + 8, intY + 8
        Delay 100
        dm.LeftClick 
        Delay 250
        Goto 等待_关闭
    End If
    dm_ret = dm.FindStr(0,0,w,h,"魏|蜀|吴","ffffff-000000",1.0,intX,intY)
    If intX >= 0 and intY >= 0 Then
        dm.moveTo intX + 30, intY + 44
        Delay 100
        dm.LeftClick 
        Delay 250
    End If
    Rem 等待_界面
    dm_ret = dm.FindStr(0,0,w,h,"演义目标","fee858-000000",1.0,intX,intY)
    If intX >= 0 and intY >= 0 Then 
        'pass = "余党据点"'变量处理
        Delay 250
        Call 刷卡选择()
    Else 
        Delay 200
        Goto 等待_界面
    End If
End Sub

Sub 刷卡选择()
    Call 演义关卡()
    Delay 100
    dm.moveTo int(w / 2), int(h / 2)
    Delay 250
    '==========张角军====================================
    If pass = "张角军" Then 
    	Rem 翻卷拉条1
    	dm_ret = dm.FindPic(0,0,w,h,"张角军.bmp","000000",0.9,0,intX,intY)
    	If intX >= 0 and intY >= 0 Then
        	dm.MoveTo intX + 10, intY + 5
        	Delay 100
        	dm.LeftClick 
    	Else 
        	dm.WheelDown
        	Delay 250
        	Goto 翻卷拉条1
    	End If
    End If
    '==========张角军====================================	
    Rem 翻卷拉条
    dm_ret = dm.FindStr(0,0,w,h,pass,"00d7ff-000000",1.0,intX,intY)
    If intX >= 0 and intY >= 0 Then
        dm.MoveTo intX + 10, intY + 5
        Delay 100
        dm.LeftClick 
    Else 
        dm.WheelDown
        Delay 250
        Goto 翻卷拉条
    End If
End Sub

Sub 演义关卡()
    If pass = "黄龙军" or pass = "裴元绍军" or pass = "程远志军" or pass = "张梁军" or pass = "何仪军" or pass = "张角军" Then 
        p = "汉室余晖"
        dm_ret = dm.FindStr(0,0,w,h,p,"fdf8c3-000000",1.0,intX,intY)
        If intX >= 0 and intY >= 0 Then
            dm.MoveTo intX + 10, intY + 5
            Delay 100
            dm.LeftClick 
        End If
        Exit Sub
    ElseIf pass = "徐荣军" or pass = "李肃军" or pass = "华雄军" or pass = "郭汜近卫军" or pass = "李儒军" or pass = "潘凤营寨" or pass = "华雄营寨" or pass = "曹性部队" or pass = "轻骑兵" or pass = "陈宫谋阵" or pass = "天道大营" or pass = "公孙瓒营地" or pass = "袁术主队" or pass = "袁术后军" or pass = "公孙大帐" or pass = "西凉军寨" or pass = "马腾主帐" or pass = "北海守军" or pass = "荆州中阵" or pass = "东吴老将宫" or pass = "杜康仙庄" or pass = "洛阳书院" or pass = "洛阳宫殿" or pass = "貂蝉军" or pass = "吕布军" or pass = "董卓军" or pass = "虎豹大帐" or pass = "吕布大寨" or pass = "曹军突击团" or pass = "曹军坚兵营" or pass = "许褚军" or pass = "曹操主帐" or pass = "赵云护卫营" or pass = "孙策亲卫军" or pass = "千唐志斋" Then
        p = "讨伐董卓"
        dm_ret = dm.FindStr(0,0,w,h,p,"fdf8c3-000000",1.0,intX,intY)
        If intX >= 0 and intY >= 0 Then
            dm.MoveTo intX + 10, intY + 5
            Delay 100
            dm.LeftClick
        End If
        Exit Sub
    ElseIf pass = "颜良文丑营" or pass = "袁绍先锋" or pass = "袁军谋士营" or pass = "乌巢粮屯" or pass = "袁军中军" or pass = "袁军左翼" or pass = "袁军右翼" or pass = "山贼营地" or pass = "洛阳城" or pass = "袁绍残部" or pass = "周仓山寨" or pass = "桃花源" or pass = "天山阁" or pass = "仙山府" or pass = "粮仓护卫" or pass = "粮仓救援军" or pass = "袁守大寨" or pass = "张郃重军" or pass = "西凉中军" or pass = "军锋大寨" or pass = "战马中城" or pass = "西凉主帐" or pass = "张勋军" or pass = "重兵纪灵军" or pass = "袁术主帐" or pass = "皇宫" or pass = "袁绍大营" or pass = "关羽营地" or pass = "曹军追兵营" or pass = "黑山中阵" or pass = "袁绍救援军" or pass = "相思林" or pass = "美人关" or pass = "望夫崖" or pass = "离魂境" or pass = "锁妖塔" or pass = "七巧潭" or pass = "流沙河" or pass = "忘云阁" or pass = "三生石" or pass = "铜雀台" or pass = "凤仪亭" or pass = "吕布军中帐" or pass = "董卓亲卫营" or pass = "董卓军主帐" Then
        p = "群雄并起"
        dm_ret = dm.FindStr(0,0,w,h,p,"fdf8c3-000000",1.0,intX,intY)
        If intX >= 0 and intY >= 0 Then
            dm.MoveTo intX + 10, intY + 5
            Delay 100
            dm.LeftClick