- 展开附件 *.* 到 D:\temp 文件夹
- 展开附件 RegDll.dll 到 .\Plugin 文件夹
- (语句无法识别,可能有错误): 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)
- 延时 1000 毫秒
- 定义变量 Pass
- 子程序 打开演义目标()
- 标记 等待_关闭(子程序 打开演义目标)
- 令 dm_ret = dm.FindPic(0,0,w,h,"关闭图标.bmp","000000",0.9,0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- dm.moveTo(intX + 8,intY + 8)
- 延时 100 毫秒
- dm.LeftClick()
- 延时 250 毫秒
- 跳转到标记 等待_关闭(子程序 打开演义目标)
- 条件结束
- 令 dm_ret = dm.FindStr(0,0,w,h,"魏|蜀|吴","ffffff-000000",1.0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- dm.moveTo(intX + 30,intY + 44)
- 延时 100 毫秒
- dm.LeftClick()
- 延时 250 毫秒
- 条件结束
- 标记 等待_界面(子程序 打开演义目标)
- 令 dm_ret = dm.FindStr(0,0,w,h,"演义目标","fee858-000000",1.0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- 注释:pass = "余党据点"'变量处理
- 延时 250 毫秒
- 调用 刷卡选择()
- 否则
- 延时 200 毫秒
- 跳转到标记 等待_界面(子程序 打开演义目标)
- 条件结束
- 子程序结束
- 子程序 刷卡选择()
- 调用 演义关卡()
- 延时 100 毫秒
- dm.moveTo(int(w / 2),int(h / 2))
- 延时 250 毫秒
- 注释:==========张角军====================================
- 如果 pass = "张角军" 则
- 标记 翻卷拉条1(子程序 刷卡选择)
- 令 dm_ret = dm.FindPic(0,0,w,h,"张角军.bmp","000000",0.9,0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- dm.MoveTo(intX + 10,intY + 5)
- 延时 100 毫秒
- dm.LeftClick()
- 否则
- dm.WheelDown()
- 延时 250 毫秒
- 跳转到标记 翻卷拉条1(子程序 刷卡选择)
- 条件结束
- 条件结束
- 注释:==========张角军====================================
- 标记 翻卷拉条(子程序 刷卡选择)
- 令 dm_ret = dm.FindStr(0,0,w,h,pass,"00d7ff-000000",1.0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- dm.MoveTo(intX + 10,intY + 5)
- 延时 100 毫秒
- dm.LeftClick()
- 否则
- dm.WheelDown()
- 延时 250 毫秒
- 跳转到标记 翻卷拉条(子程序 刷卡选择)
- 条件结束
- 子程序结束
- 子程序 演义关卡()
- 如果 pass = "黄龙军" 或者 pass = "裴元绍军" 或者 pass = "程远志军" 或者 pass = "张梁军" 或者 pass = "何仪军" 或者 pass = "张角军" 则
- 令 p = "汉室余晖"
- 令 dm_ret = dm.FindStr(0,0,w,h,p,"fdf8c3-000000",1.0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- dm.MoveTo(intX + 10,intY + 5)
- 延时 100 毫秒
- dm.LeftClick()
- 条件结束
- 退出子程序
- 否则如果 pass = "徐荣军" 或者 pass = "李肃军" 或者 pass = "华雄军" 或者 pass = "郭汜近卫军" 或者 pass = "李儒军" 或者 pass = "潘凤营寨" 或者 pass = "华雄营寨" 或者 pass = "曹性部队" 或者 pass = "轻骑兵" 或者 pass = "陈宫谋阵" 或者 pass = "天道大营" 或者 pass = "公孙瓒营地" 或者 pass = "袁术主队" 或者 pass = "袁术后军" 或者 pass = "公孙大帐" 或者 pass = "西凉军寨" 或者 pass = "马腾主帐" 或者 pass = "北海守军" 或者 pass = "荆州中阵" 或者 pass = "东吴老将宫" 或者 pass = "杜康仙庄" 或者 pass = "洛阳书院" 或者 pass = "洛阳宫殿" 或者 pass = "貂蝉军" 或者 pass = "吕布军" 或者 pass = "董卓军" 或者 pass = "虎豹大帐" 或者 pass = "吕布大寨" 或者 pass = "曹军突击团" 或者 pass = "曹军坚兵营" 或者 pass = "许褚军" 或者 pass = "曹操主帐" 或者 pass = "赵云护卫营" 或者 pass = "孙策亲卫军" 或者 pass = "千唐志斋" 则
- 令 p = "讨伐董卓"
- 令 dm_ret = dm.FindStr(0,0,w,h,p,"fdf8c3-000000",1.0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- dm.MoveTo(intX + 10,intY + 5)
- 延时 100 毫秒
- dm.LeftClick()
- 条件结束
- 退出子程序
- 否则如果 pass = "颜良文丑营" 或者 pass = "袁绍先锋" 或者 pass = "袁军谋士营" 或者 pass = "乌巢粮屯" 或者 pass = "袁军中军" 或者 pass = "袁军左翼" 或者 pass = "袁军右翼" 或者 pass = "山贼营地" 或者 pass = "洛阳城" 或者 pass = "袁绍残部" 或者 pass = "周仓山寨" 或者 pass = "桃花源" 或者 pass = "天山阁" 或者 pass = "仙山府" 或者 pass = "粮仓护卫" 或者 pass = "粮仓救援军" 或者 pass = "袁守大寨" 或者 pass = "张郃重军" 或者 pass = "西凉中军" 或者 pass = "军锋大寨" 或者 pass = "战马中城" 或者 pass = "西凉主帐" 或者 pass = "张勋军" 或者 pass = "重兵纪灵军" 或者 pass = "袁术主帐" 或者 pass = "皇宫" 或者 pass = "袁绍大营" 或者 pass = "关羽营地" 或者 pass = "曹军追兵营" 或者 pass = "黑山中阵" 或者 pass = "袁绍救援军" 或者 pass = "相思林" 或者 pass = "美人关" 或者 pass = "望夫崖" 或者 pass = "离魂境" 或者 pass = "锁妖塔" 或者 pass = "七巧潭" 或者 pass = "流沙河" 或者 pass = "忘云阁" 或者 pass = "三生石" 或者 pass = "铜雀台" 或者 pass = "凤仪亭" 或者 pass = "吕布军中帐" 或者 pass = "董卓亲卫营" 或者 pass = "董卓军主帐" 则
- 令 p = "群雄并起"
- 令 dm_ret = dm.FindStr(0,0,w,h,p,"fdf8c3-000000",1.0,intX,intY)
- 如果 intX >= 0 并且 intY >= 0 则
- dm.MoveTo(intX + 10,intY + 5)
- 延时 100 毫秒
- dm.LeftClick()
- 条件结束
- 退出子程序
- 条件结束