1.             如果 (x,y) 的颜色等于 #000000 则
  2.                 延时100毫秒
  3.                 如果 (x,y) 的颜色等于 #000000 则
  4.                     跳转到标记 over1
  5.                 条件结束
  6.             条件结束
  7.         循环结束
  8.         c=a:a=b:b=c
  9.     循环结束
  10.     p=p*(-1)
  11.     j=j+1:q=q+1
  12. 循环结束
  13. Dela=dela+10
  14. 跳转到标记 start
  15. //WOW的国际惯例，五区恶魔之翼，战士 佳宝
  16. //有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
  17. // BY 灰烬燃烧
  18. // 2007-5-16
  19. //扫描鱼漂下限坐标
  20. 标记 over1
  21. 延时100毫秒
  22. xx=x
  23. yy=y+50
  24. 如果表达式 (k=1) 为真,则
  25.     yy=yy+10
  26. 条件结束
  27. 循环 70 遍
  28.     鼠标移到 xx , yy
  29.     延时10+dela毫秒
  30.     如果 (xx,yy) 的颜色等于 #000000 则
  31.         y0=yy
  32.         鼠标移到 x-80 , y0-20
  33.         跳转到标记 over3
  34.     条件结束
  35.     yy=yy-2
  36. 循环结束
  37. 标记 over3
  38. //WOW的国际惯例，五区恶魔之翼，战士 佳宝
  39. //有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
  40. //扫描鱼漂左限坐标
  41. 延时100毫秒
  42. xx=x-60
  43. yy=y0-20
  44. 循环 50 遍
  45.     鼠标移到 xx , yy
  46.     延时10+dela毫秒
  47.     如果 (xx,yy) 的颜色等于 #000000 则
  48.         x0=xx
  49.         跳转到标记 over7
  50.     条件结束
  51.     xx=xx+2
  52. 循环结束
  53. 标记 over7
  54. //WOW的国际惯例，五区恶魔之翼，战士 佳宝
  55. //有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
  56. //扫描鱼漂露水部分的下限坐标
  57. dim color0(2)
  58. xx=x0+14
  59. yy=y0+20
  60. 鼠标移到 xx , yy+1
  61. 延时100毫秒
  62. 调用外部VBScript子程序 cpix=得到指定点的颜色(xx,yy)
  63. color0(0)=cint("&H"&left(cpix,2))
  64. color0(1)=cint("&H"&mid(cpix,3,2))
  65. color0(2)=cint("&H"&right(cpix,2))
  66. 循环 70 遍
  67.     鼠标移到 xx , yy+1
  68.     yy=yy-1
  69.     调用外部VBScript子程序 cpix=得到指定点的颜色(xx,yy)
  70.     dr=abs(color0(2)-cint("&H"&right(cpix,2)))
  71.     dg=abs(color0(1)-cint("&H"&mid(cpix,3,2)))
  72.     db=abs(color0(0)-cint("&H"&left(cpix,2)))
  73.     avcolor=int((dr+db+dg)/3)
  74.     ddcolor=abs(dr-avcolor)+abs(dg-avcolor)+abs(db-avcolor)
  75.     如果表达式 (ddcolor>10 or dr+dg+db>100) 为真,则
  76.         // If y0-yy<11
  77.         // Goto re1
  78.         // EndIf
  79.         y0=yy
  80.         x0=xx
  81.         跳转到标记 over4
  82.     条件结束
  83.     标记 re1
  84.     color0(0)=cint("&H"&left(cpix,2))
  85.     color0(1)=cint("&H"&mid(cpix,3,2))
  86.     color0(2)=cint("&H"&right(cpix,2))
  87. 循环结束
  88. 跳转到标记 start
  89. 标记 over4
  90. //WOW的国际惯例，五区恶魔之翼，战士 佳宝
  91. //有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
  92. //等鱼上钩
  93. xx=x0
  94. yy=y0-5
  95. ddcolor=0
  96. i=0
  97. 调用外部VBScript子程序 cpix=得到指定点的颜色(xx,yy)
  98. color0(0)=cint("&H"&left(cpix,2))
  99. color0(1)=cint("&H"&mid(cpix,3,2))
  100. color0(2)=cint("&H"&right(cpix,2))