1. 用户定义变量 jw=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 淘金快捷键设定
  2. 用户定义变量 se 筛子更换间隔时间"分(筛子放在背包的第一行放3个除手中已装备的)
  3. 用户定义变量 sa 检查背包是否已满间隔时间"分
  4. 用户定义变量 num=2 原地淘金次数
  5. 用户定义变量 d=DropList{音乐报警} 包满、无备用筛子
  6. setime=now:satime=now
  7. gh=1
  8. 展开附件 c:\ *.wav
  9. 标记 窗口位置移动
  10. 调用插件命令 hd=Window.Foreground()
  11. 调用插件命令 Window.Move(hd,0,0)
  12. 延时300毫秒
  13. 标记 小地图确定位置
  14. 鼠标移到 689 , 231
  15. 延时50毫秒
  16. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  17. 延时20毫秒
  18. 如果表达式 (x>=0 and y>=0) 为真,则
  19.     跳转到标记 淘金走动
  20. 条件结束
  21. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  22. 延时20毫秒
  23. 如果表达式 (x>=0 and y>=0) 为真,则
  24.     跳转到标记 淘金走动
  25. 否则
  26.     msgbox "无法确定人物所在地图!@..@!"
  27. 脚本停止运行
  28. 条件结束
  29. 标记 淘金走动
  30. //msgbox x&"|"&y
  31. n=0
  32. 如果表达式 (n<=5) 为真,则循环执行
  33.     鼠标移到 x+15-n*6 , y-18
  34.     延时100毫秒
  35.     左键单击
  36.     鼠标移到 689 , 231
  37.     标记 search
  38.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  39.     延时100毫秒
  40.     如果表达式 (colx>=0 and coly>=0) 为真,则
  41.         跳转到标记 search
  42.     否则
  43.         调用子程序 开始淘金
  44.         //淘金
  45.     条件结束
  46.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  47.     延时20毫秒
  48.     如果表达式 (x>=0 and y>=0) 为真,则
  49.     否则
  50.         msgbox "无法确定人物所在地图!@..@!"
  51.         按键<Z>
  52.         跳转到标记 search
  53.     条件结束
  54.     n=n+1
  55. 循环结束
  56. 标记 更换区域
  57. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  58. 延时20毫秒
  59. 如果表达式 (x>=0 and y>=0) 为真,则
  60. 否则
  61.     msgbox "无法确定人物所在地图!@..@!"
  62. 条件结束
  63. 鼠标移到 689 , 231
  64. 延时20毫秒
  65. 鼠标移到 x+42 , y-11
  66. 延时100毫秒
  67. 左键单击
  68. 标记 检测
  69. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  70. 延时100毫秒
  71. 如果表达式 (colx>=0 and coly>=0) 为真,则
  72.     跳转到标记 检测
  73. 否则
  74.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  75.     延时20毫秒
  76.     如果表达式 (x>=0 and y>=0) 为真,则
  77.     否则
  78.         msgbox "无法确定人物所在地图!@..@!"
  79.     条件结束
  80.     鼠标移到 689 , 231
  81.     延时20毫秒
  82.     鼠标移到 x+41 , y+24
  83.     延时100毫秒
  84.     左键单击
  85.     标记 二次检测
  86.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  87.     延时100毫秒
  88.     如果表达式 (colx>=0 and coly>=0) 为真,则
  89.         跳转到标记 二次检测
  90.     否则
  91.         跳转到标记 二次淘金
  92.     条件结束
  93. 条件结束
  94. 标记 二次淘金
  95. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
  96. 延时20毫秒
  97. 如果表达式 (x>=0 and y>=0) 为真,则
  98. 否则
  99.     msgbox "无法确定人物所在地图!@..@!"
  100. 条件结束