1.     鼠标移到 x , y
  2.     左键单击
  3.     延时1000毫秒
  4.     鼠标移到 ljx , ljy
  5.     左键单击
  6.     延时1000毫秒
  7.     //关大地图
  8.     调用插件命令 Bkgnd.KeyPress(hwnd,77)
  9.     跳转到标记 怪去地点
  10. 否则
  11.     跳转到标记 怪出城刷怪
  12. 条件结束
  13. //////////////////////////////////////////////////采集部分//////////////////////////////////////////////
  14. //////////////////////////////////////////////////采集部分//////////////////////////////////////////////
  15. //////////////////////////////////////////////////采集部分//////////////////////////////////////////////
  16. 标记 采集部分
  17. 延时2000毫秒
  18. （VBScript语句） starttime=timer
  19. （VBScript语句） sj1=t1*njd*gjsl
  20. （VBScript语句） sj2=t1*wpsl
  21. 如果表达式 (sj1>sj2) 为真,则
  22.     msg="本次采集完成!脚本结束!"
  23.     t=sj2
  24. 否则
  25.     msg="采集工具已经消耗完,脚本结束!"
  26.     t=sj1
  27. 条件结束
  28. MessageBox"现在可以最小化窗口了哟!"
  29. 如果表达式 (t1>0 and njd>0) 为真,则
  30.     标记 采集
  31.     （VBScript语句） stoptime=timer
  32.     （VBScript语句） it=stoptime-starttime
  33.     延时1000毫秒
  34.     调用插件命令 Bkgnd.KeyPress(hwnd,56)//8键放工具
  35.     延时1000毫秒
  36.     调用插件命令 Bkgnd.KeyPress(hwnd,55)//7键放技能
  37.     延时1000毫秒
  38.     如果表达式 (it>=t) 为真,则
  39.         如果表达式 (down=1) 为真,则
  40.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,w,h,"Attachment:\小手.bmp",0.8,shoux,shouy)
  41.         条件结束
  42.         MessageBox(msg)
  43.         跳转到标记 结束
  44.     条件结束
  45.     跳转到标记 采集
  46. 否则
  47.     MessageBox"设置错误"
  48. 条件结束
  49. 标记 休息
  50. 延时2000毫秒
  51. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,w,h,"Attachment:\小手.bmp",0.8,shoux,shouy)
  52. 如果表达式 (x>0 and y>0) 为真,则
  53.     调用插件命令 Bkgnd.KeyPress(hwnd,9)
  54.     延时1000毫秒
  55.     跳转到标记 怪判断打怪
  56. 条件结束
  57. 如果 (hongx+100,hongy) 的颜色大约等于 #hongc 则
  58.     //如果是捉妖
  59.     如果表达式 (j=1) 为真,则
  60.         跳转到标记 开始捉妖
  61.     否则
  62.         跳转到标记 怪开始刷怪
  63.     条件结束
  64. 条件结束
  65. 延时2000毫秒
  66. 跳转到标记 休息
  67. 标记 结束
  68. 脚本停止运行