1. 如果表达式 (1>0) 为真,则循环执行
  2.     如果表达式 (delaytime>28000) 为真,则
  3.         跳转到标记 start
  4.     条件结束
  5.     i=i+1
  6.     调用外部VBScript子程序 cpix=得到指定点的颜色(xx,yy)
  7.     dr=abs(color0(2)-cint("&H"&right(cpix,2)))
  8.     dg=abs(color0(1)-cint("&H"&mid(cpix,3,2)))
  9.     db=abs(color0(0)-cint("&H"&left(cpix,2)))
  10.     avcolor=int((dr+db+dg)/3)
  11.     ddcolor=abs(dr-avcolor)+abs(dg-avcolor)+abs(db-avcolor)
  12.     如果表达式 (ddcolor>40 or dr+dg+db>150) 为真,则
  13.         跳转到标记 over5
  14.     条件结束
  15. 循环结束
  16. 标记 over5
  17. //WOW的国际惯例，五区恶魔之翼，战士 佳宝
  18. //有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
  19. //起杆
  20. 鼠标移到 xx+50 , yy+50
  21. 延时100毫秒
  22. 鼠标移到 xx , yy
  23. 按住<Shift>
  24. 右键单击
  25. 弹起<Shift>
  26. 延时2000毫秒
  27. //WOW的国际惯例，五区恶魔之翼，战士 佳宝
  28. //有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
  29. //判断BUFF时间，到了五分钟运行一次自动加BUFF的宏
  30. 如果表达式 (datediff("s",starttime,now)>303 and fishertime<>0) 为真,则
  31.     按住<Alt>
  32.     按键<O>
  33.     弹起<Alt>
  34.     延时6000毫秒
  35.     starttime=now
  36.     dela=0
  37. 条件结束
  38. 跳转到标记 start
  39. 标记 over
  40. //WOW的国际惯例，五区恶魔之翼，战士 佳宝
  41. //有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
  42. // BY 灰烬燃烧
  43. // 2007-5-16