1. //游戏窗口可在任意位置.脚本启动后也可移动.
  2. //释放插件,此脚本需要361后台插件第五版,请自行下载.
  3. 展开附件 .\plugin *.dll
  4. //自定义变量挖矿时间
  5. 用户定义变量 wakuangtime=7000
  6. //自定义变量找色精度
  7. 用户定义变量 muhu=0.7
  8. //自定义变量吃食物数量
  9. 用户定义变量 shiwu=1
  10. //获得吃食物时的窗口句柄
  11. 调用插件命令 win=Window.MousePoint()
  12. 调用子程序 挖矿
  13. 脚本停止运行
  14. //子程序挖矿
  15. 子程序 挖矿
  16.     //获得挖矿的窗口句柄
  17.     调用插件命令 wkwin=Window.MousePoint()
  18.     //获得当前鼠标坐标
  19.     调用外部VBScript子程序 得到鼠标当前位置(wkx1,wky1)
  20.     //把屏幕坐标转换成窗口坐标,这样窗口能随意移动.
  21.     调用插件命令 wkq=BGKM5.ScrToCli(wkwin,wkx1,wky1)
  22.     MyArray=Split(wkq,"|")
  23.     wkx=CInt(MyArray(0)):wky=CInt(MyArray(1))
  24.     //转换完成后跳到挖矿子程序
  25.     调用子程序 定点挖矿
  26. 子程序结束,回到调用处
  27. //正式挖矿
  28. 子程序 定点挖矿
  29.     标记 挖矿开始
  30.     调用子程序 叛断颜色
  31.     //按F1拿起工具
  32.     调用插件命令 BGKM5.KeyClick(wkwin,112,1)
  33.     延时100毫秒
  34.     //开始挖矿
  35.     调用插件命令 BGKM5.LClick(wkwin,wkx,wky)
  36.     //挖矿延时
  37.     延时wakuangtime毫秒
  38.     //按一下F2把食物举起来.为防挖矿出错,最好留下这句
  39.     调用插件命令 BGKM5.KeyClick(wkwin,113,1)
  40.     延时50毫秒
  41.     //找色搜索捡矿,搜索两个颜色一个白天,一个晚上.
  42.     调用插件命令 jkq=Bkgnd.FindColorEx(wkwin,wkx-160,wky-160,wkx+200,wky+160,"308888",1,muhu)
  43.     延时200毫秒
  44.     调用插件命令 jkq=Bkgnd.FindColorEx(wkwin,wkx-60,wky-50,wkx+100,wky+60,"50F8F8",1,muhu)
  45.     MyArray=Split(jkq,"|")
  46.     jkx=CInt(MyArray(0)):jky=CInt(MyArray(1))
  47.     如果表达式 (jkx>0 and jky>0) 为真,则
  48.         调用插件命令 BGKM5.LClick(wkwin,jkx,jky)
  49.         延时200毫秒
  50.     条件结束
  51.     跳转到标记 挖矿开始
  52. 子程序结束,回到调用处
  53. //加体力
  54. 子程序 加体力
  55.     //重复次数,也就是吃多少个食物.
  56.     循环 shiwu 遍
  57.         延时100毫秒
  58.         //按F2举起食物.
  59.         调用插件命令 BGKM5.KeyClick(win,113,1)
  60.         延时200毫秒
  61.         //吃的位置
  62.         调用插件命令 BGKM5.LClick(win,566,502)
  63.         延时2000毫秒
  64.     循环结束
  65. 子程序结束,回到调用处
  66. 子程序 叛断颜色
  67.     //如果角色体力小于10%.那么就跳到子程序加体力,否则返回挖矿"20202"是没体力时的颜色
  68.     调用插件命令 Color=Bkgnd.FindColorEx(win,81,61,100,64,"20202",0,muhu)
  69.     MyArray=Split(Color,"|")
  70.     如果表达式 (CInt(MyArray(0))>0 and CInt(MyArray(1))>0) 为真,则
  71.         调用子程序 加体力
  72.     条件结束
  73. 子程序结束,回到调用处