你的位置：
[很多人都弄不明白的问题]：大漠注册成功之后,调试脚本小时缺少“DM”对象
14:11:33 |
来源: 按键精灵资源站
确认大漠3.1233文件在附件里
下载地址请访问原帖
// 首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它(字库，图片等)也可以一并打包
// 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时，记得更改这个值.
need_ver = &3.1233&
// 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
set ws=createobject(&Wscript.Shell&)
ws.run &regsvr32 atl.dll /s&
set ws=nothing
// 释放附件&&&&&&&&&&&&&&&&&&&
// 这里选择c盘的test-_game作为插件的基本目录 也就是SetPath对应的目录。所以所有资源都释放在此目录.
PutAttachment &c:\test_game&,&*.*&
// 这里要用到RegDll来注册插件，所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.
PutAttachment &.\Plugin& ,&RegDll.dll&
// 插件注册开始&&&&&&&&&&&&&&&&&&&
// 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
Call Plugin.RegDll.Reg(&c:\test_game\dm.dll&)
// 这里判断是否注册成功
set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
if ver && need_ver then
// 先释放先前创建的dm
set dm = nothing
& &// 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
set ws=createobject(&Wscript.Shell&)
ws.run &regsvr32 c:\test_game\dm.dll /s&
set ws=nothing
Delay 1500&&
// 再判断插件是否注册成功
set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
if ver && need_ver then
// 这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析.
messagebox &插件版本错误,当前使用的版本是:&&ver&&,插件所在目录是:&&dm.GetBasePath()
messagebox &请关闭程序,重新打开本程序再尝试&
& & endscript
// 插件注册结束&&&&&&&&&&&&&&&
注册成功后文件在C盘的截图
下载地址请访问原帖
主要问题在这里：看下面
调试脚本的时候显示，缺少对象“DM”
下载地址请访问原帖
希望大神帮帮忙解决，对于大神来说简单，对于我这种小鸟来说难呀。弄了一天了。大漠插件也换成3.1233来弄都是这样显示缺少对象“DM”查看: 21426|回复: 15
原创COC辅助源码按键精灵（不完整大家自己研究吧）
阅读权限10
原创COC辅助源码（按键精灵）本人辅助爱好者，最近玩COC 看见很多用挂的，自己也想做一个，这个是我学按键一个月的结果，还没有完结，由于工作原因不能更新了，特将源码放出，有兴趣的朋友可以继续研究，大神别喷，不要跟其他收费的比较，纯属技术交流。人气高放出& &按键.Q 纯源码。
================================================================================================================================================
Global Hwnd&&//全局句柄
Global youfanye1& &&&//全局右翻页X坐标
Global youfanye2& &&&//全局右翻页Y坐标
Global guanbi1& && & //全局关闭训练营X坐标
Global guanbi2& && & //全局关闭训练营Y坐标
Global xunlianying1&&//全局第一个训练营X坐标
Global xunlianying2//全局第一个训练营Y坐标
Global xunlianyingyoufanyecishu
Global 线程ID1
Global 线程ID2
Global 线程ID3
Global 删除兵营内的兵的减号横
Global 删除兵营内的兵的减号纵
Global 进攻1
Global 进攻2
Global 进攻确定1
Global 进攻确定2
Global 结束战斗1
Global 结束战斗2
Global 出战野蛮人1
Global 出战野蛮人2
Global 出战弓箭手1
Global 出战弓箭手2
Global 出战哥布林1
Global 出战哥布林2
Global 出战炸弹人1
Global 出战炸弹人2
Global 出战巨人1
Global 出战巨人2
Global 出战国王1
Global 出战国王2
Global 出战女皇1
Global 出战女皇2
Call 注册插件()
dm_ret = dm.FindMultiColorEx(0,0,800,800,&18B27F&,&14|10||9|00D9F9&,0.8,1)
count = dm.GetResultCount(dm_ret)
Do While index & count
& &aa = dm.GetResultPos(dm_ret,index,intX,intY)
& &dm.MoveTo intX,intY
& &index = index + 1
& &Delay&&1000
MessageBox dm_ret
MessageBox count
MessageBox aa
MessageBox index
If 缩放窗口 && 1 Then
& & MessageBox &缩放窗口失败&
& & EndScript
Call 收集资源()
If 查找训练营 && 1 Then
& & MessageBox &查找训练营失败&
& & EndScript
If 训练军队 && 1 Then
& & MessageBox &训练失败&
& & EndScript
Call 删除兵营内已做的兵()
Call 查找关闭训练营按钮()
If 判断兵营是否装满 = 1 Then //判断兵营是否已经装满
& & TracePrint &已经装满&
& & If 兵营右翻页 = 1 Then
& && &&&Delay 500
& && &&&Call 删除兵营已经做的兵()
& && &&&Delay 500
& && &&&Call 做兵1()
& && &&&Delay 500
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye1 + 25, youfanye2 + 5)
& && &&&Call 删除兵营已经做的兵()
& && &&&Delay 500
& && &&&Call 做兵2()
& && &&&Delay 500
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye1 + 25, youfanye2 + 5)
& && &&&Delay 500
& && &&&Call 删除兵营已经做的兵()
& && &&&Delay 500
& && &&&Call 做兵3()
& && &&&Delay 500
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye1 + 25, youfanye2 + 5)
& && &&&Delay 500
& && &&&Call 删除兵营已经做的兵()
& && &&&Delay 500
& && &&&Call 做兵4()
& & End If
& & TracePrint &未满补兵&
& & Call 补做兵()
Call Plugin.Bkgnd.KeyPress(Hwnd, 27)//&&关闭训练营
Sub 注册插件()
& & //首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库，图片等)也可以一并打包
& & // 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时，记得更改这个值.
& & need_ver = &3.1233&
& & // 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
& & set ws=createobject(&Wscript.Shell&)
& & ws.run &regsvr32 atl.dll /s&
& & set ws=nothing
& & // 释放附件&&&&&&&&&&&&&&&&&&&
& & // 这里选择c盘的test-_game作为插件的基本目录 也就是SetPath对应的目录。所以所有资源都释放在此目录.
& & PutAttachment &c:\test_game&,&*.*&
& & // 这里要用到RegDll来注册插件，所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.
& & PutAttachment &.\Plugin& ,&RegDll.dll&
& & // 插件注册开始&&&&&&&&&&&&&&&&&&&
& & // 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
& & Call Plugin.RegDll.Reg(&c:\test_game\dm.dll&)
& & // 这里判断是否注册成功
& & set dm = createobject(&dm.dmsoft&)
& & ver = dm.Ver()
& & //If ver = need_ver Then
& & //MessageBox &注册成功&
& & //end if
& & if ver && need_ver then
& && &&&// 先释放先前创建的dm
& && &&&set dm = nothing
& && &&&// 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
& && &&&set ws=createobject(&Wscript.Shell&)
& && &&&ws.run &regsvr32 c:\test_game\dm.dll /s&
& && &&&set ws=nothing
& && &&&Delay 1500&&
& && &&&// 再判断插件是否注册成功
& && &&&set dm = createobject(&dm.dmsoft&)
& && &&&ver = dm.Ver()
& && &&&if ver && need_ver then
& && && && &// 这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析.
& && && && &messagebox &插件版本错误,当前使用的版本是:&&ver&&,插件所在目录是:&&dm.GetBasePath()
& && && && &messagebox &请关闭程序,重新打开本程序再尝试&
& && && && &endscript
& && &&&end if
& & end if
& & Hwnd = Plugin.Window.Find(0, &BlueStacks App Player for Windows (beta-1)&)
& & //& & Hwnd = Plugin.Window.Find(0, &靠谱助手&&-- Powered by BlueStacks&)&&//靠谱助手
& & Delay 200
& & If Hwnd = 0&&Then
& && &&&//& && &&&MessageBox &未找到游戏窗口&
& && &&&Hwnd = Plugin.Window.Find(0, &靠谱助手&&-- Powered by BlueStacks&)//靠谱助手
& && &&&If Hwnd = 0&&Then
& && && && &MessageBox &未找到游戏窗口&
& && && && &EndScript
& && &&&Else
& && && && &Call Plugin.Window.Top(Hwnd, 0)
& && && && &Delay 200
& && && && &Call Plugin.Window.Move(Hwnd, 0, 0)
& && && && &Delay 200
& && &&&End If
& && &&&Call Plugin.Window.Top(Hwnd, 0)
& && &&&Delay 200
& && &&&Call Plugin.Window.Move(Hwnd, 0, 0)
& && &&&Delay 200
& & End If
Function 坐标点的颜色(句柄,横,纵,颜色值)// 判断位置坐标的颜色值
& & 获得的颜色值=GetPixelColor(横,纵)
& & If 颜色值 = 获得的颜色值 Then
& && &&&坐标点的颜色 = 1
& && &&&坐标点的颜色=0
& & End If
End Function
Function 找图(x1, y1, x2, y2, 要找的图片, 相似度, intX, intY)
& & Dim 坐标(1)
& & FindPic x1, y1, x2, y2, 要找的图片, 相似度, intX, intY
& & If intX & 0 And intY & 0 Then
& && &&&坐标(0) = intX
& && &&&坐标(1) = intY
& & End If
& & 找图 = 坐标(1)
End Function
Function 大漠找图 (x1,y1,x2,y2,要找的图片,偏色,相似度,查找方向)
& & Dim 坐标1(1)
& & pos = dm.FindPicE(x1, y1, x2, y2, 要找的图片, 偏色, 相似度, 查找方向)
& & pos = split(pos, &|&)
& & //MessageBox int(pos(1))
& & //MessageBox int(pos(2))
& & If int(pos(1)) & 0 Then
& && &&&坐标1(0) = int(pos(1))
& && &&&坐标1(1) = int(pos(2))
& && &&&//MessageBox 坐标1(0)
& && &&&//MessageBox 坐标1(1)
& & End If
& & 大漠找图 = 坐标1
End function
Function 多点找色 (x1,y1,x2,y2,要找点的颜色,附近点的颜色,相似度)
& & Dim 坐标1(1)
& & XY=Plugin.Color.FindMutiColor(x1,y1,x2,y2,要找点的颜色,附近点的颜色,相似度)
& & dim MyArray
& & MyArray = Split(XY, &|&)
& & X = CInt(MyArray(0)): Y = CInt(MyArray(1))
& & If X & 0 Then
& && &&&坐标1(0) = X
& && &&&坐标1(1) = Y
& & End If
& & 多点找色 = 坐标1
End function
Function 缩放窗口
& & Call Plugin.Window.Active(Hwnd) //激活窗口
& & KeyDown &Ctrl&, 1
& & Delay 200
& & MouseWheel - 10
& & Delay 200
& & MouseWheel - 10
& & Delay 200
& & MouseWheel - 10
& & Delay 200
& & Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
& & Delay 200
& & Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
& & Delay 200
& & Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
& & Delay 200
& & KeyUp &Ctrl&, 1
& & Delay 500
& & a = 找图(0, 0, 800, 600, &Attachment:\suofang1.bmp&, 0.8, intX, intY) //调用Function 找图
& & If a & 0 Then
& && &&&缩放窗口 = 1
& && &&&Call Plugin.Window.Active(Hwnd) //激活窗口
& && &&&KeyDown &Ctrl&, 1
& && &&&Delay 200
& && &&&MouseWheel - 10
& && &&&Delay 200
& && &&&MouseWheel - 10
& && &&&Delay 200
& && &&&MouseWheel - 10
& && &&&Delay 200
& && &&&Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
& && &&&Delay 200
& && &&&Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
& && &&&Delay 200
& && &&&Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
& && &&&Delay 200
& && &&&KeyUp &Ctrl&, 1
& && &&&Delay 500
& && &&&a = 找图(0, 0, 800, 600, &Attachment:\suofang2.bmp&, 0.5, intX, intY) //调用Function 找图
& && &&&If a & 0 Then
& && && && &缩放窗口 = 1
& && &&&Else
& && && && &MessageBox &缩放错误&
& && &&&End If
& & End If
& & Delay 200
End Function
Function 收集资源
& & 线程ID1=BeginThread(收集金币)
& & 线程ID2=BeginThread(收集紫水)
& & 线程ID3 = BeginThread(收集黑水)
& & For 40
& && &&&Delay 200
& & If 线程ID1 & 1 and 线程ID2 & 1 and 线程ID3 & 1 Then
& && &&&收集资源=1
& & End If
End Function
Function 判断兵营是否装满
& & Dim bm
& & bm=坐标点的颜色 (Hwnd,167,450,&4840D0& )
& & If bm = 1 Then
& && &&&bm = 1
& && &&&bm = 0
& & End If
& & 判断兵营是否装满 = bm
& & //& & MessageBox 判断兵营是否装满
End Function
Function 删除兵营内已做的兵 //删除训练营内的兵的减号坐标
& & XY=Plugin.Color.FindMutiColor(432,162,480,203,&FFFCF8&,&4|-1|FFFCF8,0|-4|837FF2,2|5|.6)
& & Dim 删除兵种
& & 删除兵种 = Split(XY, &|&)
& & X = CInt(删除兵种(0)): Y = CInt(删除兵种(1))
& & 删除兵营内已做的兵 = 删除兵种
& & 删除兵营内的兵的减号横 = X
& & 删除兵营内的兵的减号纵 = Y
End Function
Function 删除兵营已经做的兵
& & For 80
& && &&&Delay 50
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 删除兵营内的兵的减号横, 删除兵营内的兵的减号纵)
End Function
Sub 收集金币()
& & Dim zyj
& & Delay 200
& && &&&zyj = 多点找色(0, 0, 800, 600, &B8DCD7&, &9|0|B8DCD8,4|4|55E8F0,6|6|40D3F2,-1|9|88C2B8&, 0.6)
& && &&&If zyj(0) & 0 Then
& && && && &Call Plugin.Bkgnd.MoveTo(Hwnd,&&zyj(0), zyj(1))
& && && && &Delay 200
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, zyj(0), zyj(1))
& && &&&End If
& && &&&Delay 200
& & StopThread 线程ID1
Sub 收集紫水()
& & Dim zys
& && &&&zys = 多点找色(0,0,800,600,&B7DBD7&,&4|2|D730EF,2|4|D65CEB,-3|4|A7D3C9,9|1|B7D9D5&,0.6)
& && &&&If zys(0) & 0 Then
& && && && &Call Plugin.Bkgnd.MoveTo(Hwnd,&&zys(0), zys(1))
& && && && &Delay 200
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, zys(0), zys(1))
& && &&&End If
& && &&&Delay 200
& & StopThread 线程ID2
Sub 收集黑水()
& & Dim zyh
& && &&&zyh = 多点找色(0, 0, 800, 600, &B8DCD7&, &4|2||1|B0D8D3,-1|9|7FBCB1,5|7|4E3145&, 0.6)
& && &&&If zyh(0) & 0 Then
& && && && &Call Plugin.Bkgnd.MoveTo(Hwnd,&&zyh(0), zyh(1))
& && && && &Delay 200
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, zyh(0), zyh(1))
& && &&&End If
& && &&&Delay 200
& & StopThread 线程ID3
function 查找训练营
& & Delay 500
& & b = 多点找色(0, 0, 800, 600, &687DF8&, &4|-4|B39FA4,-1|5|E0C8C0,-6|3|5263E7&, 0.5)//调用Function 多点找色
& & If b(0) & 0 Then
& && &&&Delay 500
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, b(0), b(1))
& && &&&Delay 1000
& && &&&查找训练营=1
& && &&&查找训练营=0
& & End If
& & xunlianying1 = b(0)
& & xunlianying2 = b(1)
& & Delay 200
End function
function 训练军队
& & c = 大漠找图(0, 0, 800, 600, &C:\test_game\xunlianjundui.bmp&, &000000&, 0.9, 3)//调用Function 大漠找图
& & If c(1) & 0 Then
& && &&&//& && &&&Call Plugin.Bkgnd.MoveTo(Hwnd,&&c(0), c(1))
& && &&&//& && &&&Delay 500
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, c(0), c(1) )
& && &&&Delay 500
& && &&&训练军队 = 1
& && &&&训练军队 = 0
& & End If
& & Delay 200
End function
function 兵营右翻页
& & Delay 200
& & Dim youfanye
& & youfanye = 大漠找图(0, 0, 800, 600, &C:\test_game\youfanye.bmp&, &000000&, 0.9, 0)//调用Function 大漠找图
& & If youfanye(1) & 0 Then
& && &&&youfanye1 = youfanye(0)+ 25
& && &&&youfanye2 = youfanye(1)+ 5
& && &&&//MessageBox d(1)
& && &&&Call Plugin.Bkgnd.MoveTo(Hwnd,&&youfanye(0)+25, youfanye(1)+5)
& && &&&Delay 200
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && &&&xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && &&&Delay 500
& && &&&Dim e
& && &&&e = 大漠找图(338, 122, 460, 151, &C:\test_game\peizhi.bmp&, &000000&, 0.9, 0)//调用Function 大漠找图
& && &&&If e(1) & 0 Then
& && && && &Delay 500
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && &xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && &兵营右翻页=1
& && &&&Else
& && && && &Delay 500
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && &xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && &Delay 500
& && && && &e = 大漠找图(338, 122, 460, 151, &C:\test_game\peizhi.bmp&, &000000&, 0.9, 0)//调用Function 大漠找图
& && && && &If e(1) & 0 Then
& && && && && & Delay 500
& && && && && & Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && & xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && & 兵营右翻页=1
& && && && &Else
& && && && && & Delay 500
& && && && && & Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && & xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && & Delay 500
& && && && && & e = 大漠找图(338, 122, 460, 151, &C:\test_game\peizhi.bmp&, &000000&, 0.9, 0)//调用Function 大漠找图
& && && && && & If e(1) & 0 Then
& && && && && && &&&Delay 500
& && && && && && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && && &&&xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && && &&&兵营右翻页=1
& && && && && & Else
& && && && && && &&&Delay 500
& && && && && && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && && &&&xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && && &&&Delay 500
& && && && && && &&&e = 大漠找图(338, 122, 460, 151, &C:\test_game\peizhi.bmp&, &000000&, 0.9, 0)//调用Function 大漠找图
& && && && && && &&&If e(1) & 0 Then
& && && && && && && && &Delay 500
& && && && && && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && && && && &xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && && && && &兵营右翻页=1
& && && && && && &&&Else
& && && && && && && && &Delay 500
& && && && && && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && && && && &xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && && && && &Delay 500
& && && && && && && && &e = 大漠找图(338, 122, 460, 151, &C:\test_game\peizhi.bmp&, &000000&, 0.9, 0)//调用Function 大漠找图
& && && && && && && && &If e(1) & 0 Then
& && && && && && && && && & Delay 500
& && && && && && && && && & Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && && && && && & xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && && && && && & 兵营右翻页=1
& && && && && && && && &Else
& && && && && && && && && & Delay 500
& && && && && && && && && & Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && && && && && & xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && && && && && & Delay 500
& && && && && && && && && & e = 大漠找图(338, 122, 460, 151, &C:\test_game\peizhi.bmp&, &000000&, 0.9, 0)//调用Function 大漠找图
& && && && && && && && && & If e(1) & 0 Then
& && && && && && && && && && &&&Delay 500
& && && && && && && && && && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && && && && && && &&&xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && && && && && && &&&兵营右翻页=1
& && && && && && && && && & Else
& && && && && && && && && && &&&Delay 500
& && && && && && && && && && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && && && && && && &&&xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && && && && && && &&&Delay 500
& && && && && && && && && && &&&e = 大漠找图(338, 122, 460, 151, &C:\test_game\peizhi.bmp&, &000000&, 0.9, 0)//调用Function 大漠找图
& && && && && && && && && && &&&If e(1) & 0 Then
& && && && && && && && && && && && &Delay 500
& && && && && && && && && && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye(0) + 25, youfanye(1) + 5)
& && && && && && && && && && && && &xunlianyingyoufanyecishu = xunlianyingyoufanyecishu + 1
& && && && && && && && && && && && &兵营右翻页=1
& && && && && && && && && && &&&Else
& && && && && && && && && && && && &MessageBox &翻页失败&
& && && && && && && && && && &&&End If
& && && && && && && && && & End If
& && && && && && && && &End If
& && && && && && &&&End If
& && && && && & End If
& && && && &End If
& && &&&End If
& & End If
& & Delay 200
End function
Function 判断资源
& & Dim 返回数值（2）
& & dm.SetPath &c:\test_game&
& & dm.SetDict 0,&字库.txt&
& & ret1 = (dm.Ocr(0, 0, , &fffbcc-000000&, 1.0))
& & Delay 200
& & ret2 = (dm.Ocr(0, 0, , &ffe8fd-000000&, 1.0))
& & Delay 200
& & ret3 = (dm.Ocr(0, 0, , &f3f3f3-000000&, 1.0))
& & Delay 200
& & //MessageBox &金币& & ret1 & &圣水& & ret2 & &黑油& & ret3
& & 返回数值（0） = ret1
& & 返回数值（1） = ret2
& & 返回数值（2） = ret3
& & 判断资源 = 返回数值
End Function
Sub 查找关闭训练营按钮()
& & Dim guanbi
& & Delay 300
& & //& & Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye1 + 25, youfanye2 + 5)
& & //& & Delay 500
& & guanbi = 多点找色(630, 115, 681, 159, &FFFCF8&, &1|-11||0||0||10|0804DA&, 1)//找训练营关闭按钮
& & guanbi1 = guanbi(0)
& & guanbi2 = guanbi(1)
& & Delay 500
Sub 做兵1()
& & If guanbi1 & 0 Then
& && &&&For CDbl(Form1.InputBox1.text)
& && && && &Delay 80
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 72, guanbi2 + 150)//炸弹人
& && && && &//& && && && &MessageBox &11&
& && &&&Next
& && &&&Delay 80
& && &&&For CDbl(Form1.InputBox2.text)
& && && && &Delay 80
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 252, guanbi2 + 150)//巨人
& && &&&Next
& && &&&Delay 80
& && &&&For CDbl(Form1.InputBox3.text)
& && && && &Delay 80
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 345, guanbi2 + 150) //弓箭手
& && &&&Next
& & End If
& & Delay 200
Sub 做兵2()
& & delay 300
& & //& & Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye1 + 25, youfanye2 + 5)
& & //& & Delay 300
& & For CDbl(Form1.InputBox4.text)
& && &&&Delay 80
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 72, guanbi2 + 150)
& & Delay 80
& & For CDbl(Form1.InputBox5.text)
& && &&&Delay 80
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 252, guanbi2 + 150)
& & Delay 80
& & For CDbl(Form1.InputBox6.text)
& && &&&Delay 80
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 437, guanbi2 + 150) //野蛮人
Sub 做兵3()
& & delay 300
& & //& & Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye1 + 25, youfanye2 + 5)
& & //& & Delay 300
& & For CDbl(Form1.InputBox7.text)
& && &&&Delay 80
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 72, guanbi2 + 150)
& & Delay 80
& & For CDbl(Form1.InputBox8.text)
& && &&&Delay 80
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 252, guanbi2 + 150)
& & Delay 80
& & For CDbl(Form1.InputBox9.text)
& && &&&Delay 80
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 160, guanbi2 + 150) //哥布林
Sub 做兵4()
& & delay 300
& & //& & Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye1 + 25, youfanye2 + 5)
& & //& & Delay 300
& & For CDbl(Form1.InputBox10.text)
& && &&&Delay 80
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 72, guanbi2 + 150)
& & Delay 80
& & For CDbl(Form1.InputBox11.text)
& && &&&Delay 80
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 252, guanbi2 + 150)
& & Delay 80
& & For CDbl(Form1.InputBox12.text)
& && &&&Delay 80
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 345, guanbi2 + 150)
Sub 补做兵()
& & If 兵营右翻页 = 1 Then
& && &&&For 10
& && && && &Delay 80
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 345, guanbi2 + 150) //弓箭手
& && &&&Next
& && &&&Delay 500
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye1, youfanye2)
& && &&&//& && &&&MoveTo youfanye1,youfanye2
& && &&&//& && &&&EndScript
& && &&&Delay 500
& && &&&For 10
& && && && &Delay 80
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 437, guanbi2 + 150) //野蛮人
& && &&&Next
& && &&&Delay 500
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye1, youfanye2)
& && &&&Delay 500
& && &&&For 10
& && && && &Delay 80
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 160, guanbi2 + 150) //哥布林
& && &&&Next
& && &&&Delay 500
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, youfanye1, youfanye2)
& && &&&Delay 500
& && &&&For 10
& && && && &Delay 80
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, guanbi1 - 345, guanbi2 + 150) //弓箭手
& && &&&Next
& & End If
Function 进攻
& & Dim jingong
& & jingong=大漠找图(0,0 ,800,600 ,&C:\test_game\进攻.bmp&, &000000&, 0.6, 0)
& & If jingong(0) & 0 Then
& && &&&进攻1 = jingong(0)
& && &&&进攻2 = jingong(1)
& && &&&MessageBox &查找进攻按钮出错&
& & End If
& & 进攻 = jingong
End Function
Function 进攻确定
& & Dim jingongqueding
& & jingongqueding=大漠找图(0,0 ,800,600 ,&C:\test_game\进攻确定.bmp&, &000000&, 0.6, 0)
& & If jingongqueding(0) & 0 Then
& && &&&进攻确定1 = jingongqueding(0)
& && &&&进攻确定2 = jingongqueding(1)
& && &&&MessageBox &查找进攻按钮出错&
& & End If
& & 进攻确定 = jingongqueding
End Function
Function 结束战斗
& & Dim jszd
& & jszd = 大漠找图(6,383 ,118,462 , &C:\test_game\结束战斗.bmp&, &000000&, 0.8, 0)
& & If jszd(0) & 0 Then
& && &&&结束战斗1 = jszd(0)
& && &&&结束战斗2 = jszd(1)
& && &&&//&&MessageBox &查找出战野蛮人出错&
& & End If
& & 结束战斗 = jszd
End Function
Function 出战野蛮人
& & Dim czymr
& & czymr = 大漠找图(43,465 ,783,569&&, &C:\test_game\出战野蛮人.bmp&, &000000&, 0.6, 0)
& & If czymr(0) & 0 Then
& && &&&出战野蛮人1= czymr(0) + 5
& && &&&出战野蛮人2= czymr(1) + 5
& & End If
& & 出战野蛮人= czymr
End Function
Function 出战弓箭手
& & Dim czgjs
& & czgjs = 大漠找图(43,465 ,783,569&&, &C:\test_game\出战弓箭手.bmp&, &000000&, 0.6, 0)
& & If czgjs(0) & 0 Then
& && &&&出战弓箭手1= czgjs(0) + 5
& && &&&出战弓箭手2= czgjs(1) + 5
& & End If
& & 出战弓箭手 = czgjs
End Function
Function 出战炸弹人
& & Dim czzdr
& & czzdr = 大漠找图(43,465 ,783,569&&, &C:\test_game\出战炸弹人.bmp&, &000000&, 0.6, 0)
& & If czzdr(0) & 0 Then
& && &&&出战炸弹人1= czzdr(0) + 5
& && &&&出战炸弹人2= czzdr(1) + 5
& & End If
& & 出战炸弹人= czzdr
End Function
Function 出战巨人
& & Dim czjr
& & czjr = 大漠找图(43,465 ,783,569&&, &C:\test_game\出战巨人.bmp&, &000000&, 0.6, 0)
& & If czjr(0) & 0 Then
& && &&&出战巨人1= czjr(0) + 5
& && &&&出战巨人2= czjr(1) + 5
& & End If
& & 出战巨人= czjr
End Function
Function 出战哥布林
& & Dim czgbl
& & czgbl = 大漠找图(43,465 ,783,569&&, &C:\test_game\出战哥布林.bmp&, &000000&, 0.6, 0)
& & If czgbl(0) & 0 Then
& && &&&出战哥布林1= czgbl(0) + 5
& && &&&出战哥布林2= czgbl(1) + 5
& & End If
& & 出战哥布林= czgbl
End Function
Function 出战国王
& & Dim czgw
& & czgw = 大漠找图(43,465 ,783,569&&, &C:\test_game\出战国王.bmp&, &000000&, 0.6, 0)
& & If czgw(0) & 0 Then
& && &&&出战国王1= czgw(0) + 5
& && &&&出战国王2= czgw(1) + 5&&
& & End If
& & 出战国王= czgw
End Function
Function 出战女皇
& & Dim cznh
& & cznh = 大漠找图(43,465 ,783,569&&, &C:\test_game\出战女皇.bmp&, &000000&, 0.6, 0)
& & If cznh(0) & 0 Then
& && &&&出战女皇1= cznh(0) + 5
& && &&&出战女皇2= cznh(1) + 5
& & End If
& & 出战女皇= cznh
End Function
Function 出战点1(点击次数)
& & Call Plugin.Bkgnd.MoveTo(Hwnd, 114, 199)
& & For 点击次数
& && &&&Delay 100
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 114, 199)&&
End Function
Function 出战点2(点击次数)
& & Call Plugin.Bkgnd.MoveTo(Hwnd, 204, 130)
& & For 点击次数
& && &&&Delay 100
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 204, 130)
End Function
Function 出战点3(点击次数)
& & Call Plugin.Bkgnd.MoveTo(Hwnd, 299, 59)
& & For 点击次数
& && &&&Delay 100
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 299, 59)
End Function
Function 出战点4(点击次数)
& & Call Plugin.Bkgnd.MoveTo(Hwnd, 488, 67)
& & For 点击次数
& && &&&Delay 100
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 488, 67)
End Function
Function 出战点5(点击次数)
& & Call Plugin.Bkgnd.MoveTo(Hwnd, 582, 128)
& & For 点击次数
& && &&&Delay 100
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 582, 128)&&
End Function
Function 出战点6(点击次数)
& & Call Plugin.Bkgnd.MoveTo(Hwnd, 670, 196)
& & For 点击次数
& && &&&Delay 100
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 670, 196)
End Function
Function 出战点7(点击次数)
& & Call Plugin.Bkgnd.MoveTo(Hwnd, 663, 355)
& & For 点击次数
& && &&&Delay 100
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 663, 355)
End Function
Function 出战点8(点击次数)
& & Call Plugin.Bkgnd.MoveTo(Hwnd, 588, 411)
& & For 点击次数
& && &&&Delay 100
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 588, 488)
End Function
Function 出战点9(点击次数)
& & Call Plugin.Bkgnd.MoveTo(Hwnd, 195, 395)
& & For 点击次数
& && &&&Delay 100
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 195, 395)
End Function
Function 出战点10(点击次数)
& & Call Plugin.Bkgnd.MoveTo(Hwnd, 110, 335)
& & For 点击次数
& && &&&Delay 100
& && &&&Call Plugin.Bkgnd.LeftClick(Hwnd, 110, 335)
End Function
Function 出战兵种定位
& & Call 出战野蛮人()
& & //MoveTo 出战野蛮人1,出战野蛮人2
& & //MessageBox 出战野蛮人1
& & Delay 100
& & Call 出战弓箭手()
& & //MoveTo 出战弓箭手1,出战弓箭手2
& & //MessageBox 出战弓箭手1
& & Delay 100
& & Call 出战炸弹人()
& & //MoveTo 出战炸弹人1,出战炸弹人2
& & //MessageBox 出战炸弹人1
& & Delay 100
& & Call 出战巨人()
& & //MoveTo 出战巨人1,出战巨人2
& & //MessageBox 出战巨人1
& & Delay 100
& & Call 出战哥布林()
& & //MoveTo 出战哥布林1,出战哥布林2
& & //MessageBox 出战哥布林1
& & Delay 100
& & Call 出战国王()
& & //MoveTo 出战国王1,出战国王2
& & //MessageBox 出战国王1
& & Delay 100
& & Call 出战女皇()
& & //MoveTo 出战女皇1,出战女皇2
& & //MessageBox 出战女皇1
& & 出战兵种定位 = 1
End Function& && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && && &&&
Function 出战1(兵种, 出战点, 点击次数)
& & If 兵种 = &野蛮人& Then
& && &&&If 出战野蛮人1 & 5 Then
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, 出战野蛮人1, 出战野蛮人2)
& && && && &Delay 80
& && && && &If 出战点 = 1 Then
& && && && && & Call 出战点1(点击次数)
& && && && &ElseIf 出战点 = 2 Then
& && && && && & Call 出战点2(点击次数)
& && && && &ElseIf 出战点 = 3 Then
& && && && && & Call 出战点3(点击次数)
& && && && &ElseIf 出战点 = 4 Then
& && && && && & Call 出战点4(点击次数)
& && && && &ElseIf 出战点 = 5 Then
& && && && && & Call 出战点5(点击次数)
& && && && &ElseIf 出战点 = 6 Then
& && && && && & Call 出战点6(点击次数)
& && && && &ElseIf 出战点 = 7 Then
& && && && && & Call 出战点7(点击次数)
& && && && &ElseIf 出战点 = 8 Then
& && && && && & Call 出战点8(点击次数)
& && && && &ElseIf 出战点 = 9 Then
& && && && && & Call 出战点9(点击次数)
& && && && &ElseIf 出战点 = 10 Then
& && && && && & Call 出战点10(点击次数)& && && && && &
& && && && &End If
& && &&&End If
& & ElseIf 兵种 = &弓箭手& Then
& && &&&If 出战弓箭手1 & 5 Then
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, 出战弓箭手1, 出战弓箭手2)
& && && && &Delay 80
& && && && &If 出战点 = 1 Then
& && && && && & Call 出战点1(点击次数)
& && && && &ElseIf 出战点 = 2 Then
& && && && && & Call 出战点2(点击次数)
& && && && &ElseIf 出战点 = 3 Then
& && && && && & Call 出战点3(点击次数)
& && && && &ElseIf 出战点 = 4 Then
& && && && && & Call 出战点4(点击次数)
& && && && &ElseIf 出战点 = 5 Then
& && && && && & Call 出战点5(点击次数)
& && && && &ElseIf 出战点 = 6 Then
& && && && && & Call 出战点6(点击次数)
& && && && &ElseIf 出战点 = 7 Then
& && && && && & Call 出战点7(点击次数)
& && && && &ElseIf 出战点 = 8 Then
& && && && && & Call 出战点8(点击次数)
& && && && &ElseIf 出战点 = 9 Then
& && && && && & Call 出战点9(点击次数)
& && && && &ElseIf 出战点 = 10 Then
& && && && && & Call 出战点10(点击次数)& && && && && &
& && && && &End If
& && &&&End If
& & ElseIf 兵种 = &哥布林& Then
& && &&&If 出战哥布林1 & 5 Then
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, 出战哥布林1, 出战哥布林2)
& && && &&&Delay 80
& && && && &If 出战点 = 1 Then
& && && && && & Call 出战点1(点击次数)
& && && && &ElseIf 出战点 = 2 Then
& && && && && & Call 出战点2(点击次数)
& && && && &ElseIf 出战点 = 3 Then
& && && && && & Call 出战点3(点击次数)
& && && && &ElseIf 出战点 = 4 Then
& && && && && & Call 出战点4(点击次数)
& && && && &ElseIf 出战点 = 5 Then
& && && && && & Call 出战点5(点击次数)
& && && && &ElseIf 出战点 = 6 Then
& && && && && & Call 出战点6(点击次数)
& && && && &ElseIf 出战点 = 7 Then
& && && && && & Call 出战点7(点击次数)
& && && && &ElseIf 出战点 = 8 Then
& && && && && & Call 出战点8(点击次数)
& && && && &ElseIf 出战点 = 9 Then
& && && && && & Call 出战点9(点击次数)
& && && && &ElseIf 出战点 = 10 Then
& && && && && & Call 出战点10(点击次数)& && && && && &
& && && && &End If
& && &&&End If
& & ElseIf 兵种 = &巨人& Then
& && &&&If 出战巨人1 & 5 Then
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, 出战巨人1, 出战巨人2)
& && && && &Delay 80
& && && && &If 出战点 = 1 Then
& && && && && & Call 出战点1(点击次数)
& && && && &ElseIf 出战点 = 2 Then
& && && && && & Call 出战点2(点击次数)
& && && && &ElseIf 出战点 = 3 Then
& && && && && & Call 出战点3(点击次数)
& && && && &ElseIf 出战点 = 4 Then
& && && && && & Call 出战点4(点击次数)
& && && && &ElseIf 出战点 = 5 Then
& && && && && & Call 出战点5(点击次数)
& && && && &ElseIf 出战点 = 6 Then
& && && && && & Call 出战点6(点击次数)
& && && && &ElseIf 出战点 = 7 Then
& && && && && & Call 出战点7(点击次数)
& && && && &ElseIf 出战点 = 8 Then
& && && && && & Call 出战点8(点击次数)
& && && && &ElseIf 出战点 = 9 Then
& && && && && & Call 出战点9(点击次数)
& && && && &ElseIf 出战点 = 10 Then
& && && && && & Call 出战点10(点击次数)& && && && && &
& && && && &End If
& && && && &Delay 1000
& && &&&End If
& & ElseIf 兵种 = &炸弹人& Then
& && &&&If 出战炸弹人1 & 5 Then
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, 出战炸弹人1, 出战炸弹人2)
& && && && &Delay 80
& && && && &If 出战点 = 1 Then
& && && && && & Call 出战点1(点击次数)
& && && && &ElseIf 出战点 = 2 Then
& && && && && & Call 出战点2(点击次数)
& && && && &ElseIf 出战点 = 3 Then
& && && && && & Call 出战点3(点击次数)
& && && && &ElseIf 出战点 = 4 Then
& && && && && & Call 出战点4(点击次数)
& && && && &ElseIf 出战点 = 5 Then
& && && && && & Call 出战点5(点击次数)
& && && && &ElseIf 出战点 = 6 Then
& && && && && & Call 出战点6(点击次数)
& && && && &ElseIf 出战点 = 7 Then
& && && && && & Call 出战点7(点击次数)
& && && && &ElseIf 出战点 = 8 Then
& && && && && & Call 出战点8(点击次数)
& && && && &ElseIf 出战点 = 9 Then
& && && && && & Call 出战点9(点击次数)
& && && && &ElseIf 出战点 = 10 Then
& && && && && & Call 出战点10(点击次数)& && && && && &
& && && && &End If
& && &&&End If
& & ElseIf 兵种 = &国王& Then
& && &&&If 出战国王1 & 5 Then
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, 出战国王1, 出战国王2)
& && && && &Delay 80
& && && && &If 出战点 = 1 Then
& && && && && & Call 出战点1(点击次数)
& && && && &ElseIf 出战点 = 2 Then
& && && && && & Call 出战点2(点击次数)
& && && && &ElseIf 出战点 = 3 Then
& && && && && & Call 出战点3(点击次数)
& && && && &ElseIf 出战点 = 4 Then
& && && && && & Call 出战点4(点击次数)
& && && && &ElseIf 出战点 = 5 Then
& && && && && & Call 出战点5(点击次数)
& && && && &ElseIf 出战点 = 6 Then
& && && && && & Call 出战点6(点击次数)
& && && && &ElseIf 出战点 = 7 Then
& && && && && & Call 出战点7(点击次数)
& && && && &ElseIf 出战点 = 8 Then
& && && && && & Call 出战点8(点击次数)
& && && && &ElseIf 出战点 = 9 Then
& && && && && & Call 出战点9(点击次数)
& && && && &ElseIf 出战点 = 10 Then
& && && && && & Call 出战点10(点击次数)& && && && && &
& && && && &End If
& && &&&End If
& & ElseIf 兵种 = &女皇& Then
& && &&&If 出战女王1 & 5 Then
& && && && &Call Plugin.Bkgnd.LeftClick(Hwnd, 出战女王1, 出战女王2)
& && && && &Delay 80
& && && && &If 出战点 = 1 Then
& && && && && & Call 出战点1(点击次数)
& && && && &ElseIf 出战点 = 2 Then
& && && && && & Call 出战点2(点击次数)
& && && && &ElseIf 出战点 = 3 Then
& && && && && & Call 出战点3(点击次数)
& && && && &ElseIf 出战点 = 4 Then
& && && && && & Call 出战点4(点击次数)
& && && && &ElseIf 出战点 = 5 Then
& && && && && & Call 出战点5(点击次数)
& && && && &ElseIf 出战点 = 6 Then
& && && && && & Call 出战点6(点击次数)
& && && && &ElseIf 出战点 = 7 Then
& && && && && & Call 出战点7(点击次数)
& && && && &ElseIf 出战点 = 8 Then
& && && && && & Call 出战点8(点击次数)
& && && && &ElseIf 出战点 = 9 Then
& && && && && & Call 出战点9(点击次数)
& && && && &ElseIf 出战点 = 10 Then
& && && && && & Call 出战点10(点击次数)& && && && && &
& && && && &End If
& && &&&End If
& & End If&&
End Function
Function 正式出战(出战点, 野蛮人个数, 弓箭手个数, 哥布林个数, 巨人个数, 炸弹人个数,国王个数,女皇个数)
& & //& & MessageBox 出战点 & 野蛮人个数 & 弓箭手个数 & 哥布林个数 & 巨人个数 & 炸弹人个数 & 国王个数 & 女皇个数
& & Call 出战1(&巨人&, 出战点, 巨人个数)
& & Delay 150
& & Call 出战1(&野蛮人&, 出战点, 野蛮人个数)
& & Delay 150
& & Call 出战1(&弓箭手&, 出战点, 弓箭手个数)
& & Delay 150
& & Call 出战1(&哥布林&, 出战点, 哥布林个数)
& & Delay 150
& & Call 出战1(&炸弹人&, 出战点, 炸弹人个数)
& & Delay 150
& &&&Call 出战1(&国王&, 出战点, 国王个数)
& & Delay 150
& &&&Call 出战1(&女皇&, 出战点, 女皇个数)
& & Delay 150
End Function
Function 进入战斗
Call 出战兵种定位()
Call 正式出战(&1&, &5&, &5&, &2&, &1&, &1&,&0&,&0&)// 出战点 & 野蛮人个数 & 弓箭手个数 & 哥布林个数 & 巨人个数 & 炸弹人个数 & 国王个数 & 女皇个数
Call 正式出战(&2&, &5&, &5&, &2&, &1&, &1&,&0&,&0&)
Call 正式出战(&3&, &10&, &10&, &5&, &1&, &1&,&0&,&0&)
Call 正式出战(&2&, &10&, &10&, &5&, &1&, &1&,&0&,&0&)
Call 正式出战(&3&, &5&, &5&, &5&, &1&, &1&,&0&,&0&)
Call 正式出战(&2&, &5&, &5&, &5&, &1&, &1&,&0&,&0&)
Call 正式出战(&1&, &5&, &5&, &5&, &1&, &1&,&0&,&0&)
Call 正式出战(&2&, &5&, &5&, &5&, &1&, &1&,&0&,&0&)
Call 正式出战(&3&, &10&, &10&, &5&, &1&, &1&,&1&,&1&)
Call 正式出战(&2&, &5&, &10&, &5&, &1&, &1&, &0&, &0&)
Call 正式出战(&2&, &0&, &0&, &0&, &10&, &10&,&0&,&0&)//补放所有
Call 正式出战(&2&, &0&, &0&, &30&, &0&, &0&, &0&, &0&)
Call 正式出战(&2&, &30&, &0&, &0&, &10&, &10&, &0&, &0&)
Call 正式出战(&2&, &0&, &30&, &0&, &0&, &0&, &0&, &0&)
End Function
Function 法师塔识别
fst6 = Lib.图像.查找屏幕图片数量(0,0,800,600,&C:\test_game\6级法师塔.bmp&,0.5)
法师塔识别 = fst6
MessageBox 法师塔识别
End Function
我很赞同！
无就错误运行不了
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限25
支持原创& && && && && &
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
游戏很不错，现在收费辅助已经做得很不错了，不过还是支持楼主自己开发
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
眼睛不好使，，，看成COD。。。
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限80
放弃coc很久了，楼主辛苦了
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
COC是什么东西？
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限20
楼主好强大，
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限20
楼主辛苦了
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限25
百度才知道这游戏，辛苦楼主 了
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
没玩过这游戏，写个脚本挺辛苦，赞一个
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
不玩coc很久了。
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
免责声明：吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。
( 京ICP备号 | 京公网安备 87号 )
Powered by Discuz!
Comsenz Inc.