1.         如果 j > 30 则
  2.             注释：15次未找到则认为出错，提出循环
  3.         条件结束
  4.         跳出循环
  5.     条件结束
  6.     延时 50 毫秒
  7. 条件结束
  8. 令 xx2 = intA
  9. 令 shape = 返回当前鼠标的形状特征（0）
  10. 循环结束
  11. 令 intA = (xx2 - xx1) / 2 + xx1
  12. 注释：将鼠标向上移动到鱼漂最上方恰好不变形状的位置
  13. 循环当 shape = 1053591638 时
  14.     （鼠标）移动到 (intA, intB)
  15.     如果 shape = 1053591638 则
  16.         令 intB = intB - 1
  17.         延时 5 毫秒
  18.     条件结束
  19.     令 shape = 返回当前鼠标的形状特征（0）
  20. 循环结束
  21. 注释：将鼠标向下移动到鱼漂上方恰好变形状的位置
  22. 循环当 shape <> 1053591638 时
  23.     （鼠标）移动到 (intA, intB)
  24.     如果 shape <> 1053591638 则
  25.         令 intB = intB + 1
  26.         令 i = i + 1
  27.         如果 i > 15 则
  28.             注释：15次未找到位置则认为出错，退出循环
  29.         条件结束
  30.         跳出循环
  31.     条件结束
  32.     延时 50 毫秒
  33. 条件结束
  34. 令 shape = 返回当前鼠标的形状特征（0）
  35. 循环结束
  36. 注释：根据鱼漂形状改变判断鱼漂是否下沉
  37. 令 shape = 返回当前鼠标的形状特征（0）
  38. 循环当 shape = 1053591638 时
  39.     令 shape = 返回当前鼠标的形状特征（0）
  40.     延时 100 毫秒
  41. 循环结束
  42. 注释：向左下方移动鼠标点击右键拾取鱼儿
  43. 延时 500 毫秒
  44. （鼠标）移动到 (intA - 20, intB + 20)
  45. 解除鼠标锁定
  46. （鼠标）右键单击, 1次
  47. 令 数量 = 数量 + 1
  48. 跳转到标记 fish(子程序 开始)
  49. 子程序结束
  50. 标记 GM警报
  51. 注释：获取指定点颜色，GM警报
  52. 令 GetColor = 得到指定点 (758 + rect(0), 90 + rect(1)) 的颜色
  53. 循环 60 次
  54.     令 GetColor1 = 得到指定点 (758 + rect(0), 90 + rect(1)) 的颜色
  55.     如果 GetColor1 <> GetColor 则
  56.         注释：下面这句是音阶(标准(M))音符(DO(1))节拍(1/16拍)
  57.         调用 Media.Beep(523,200)
  58.         注释：下面这句是音阶(标准(M))音符(RE(2))节拍(1/16拍)
  59.         调用 Media.Beep(578,200)
  60.         注释：下面这句是音阶(标准(M))音符(MI(3))节拍(1/16拍)
  61.         调用 Media.Beep(659,200)
  62.         注释：下面这句是音阶(标准(M))音符(FA(4))节拍(1/16拍)
  63.         调用 Media.Beep(698,200)
  64.         注释：下面这句是音阶(标准(M))音符(SO(5))节拍(1/16拍)
  65.         调用 Media.Beep(784,200)
  66.         注释：下面这句是音阶(标准(M))音符(LA(6))节拍(1/16拍)
  67.         调用 Media.Beep(880,200)
  68.         注释：下面这句是音阶(标准(M))音符(SI(7))节拍(1/16拍)
  69.         调用 Media.Beep(988,200)
  70.         StopThread(开始线程)
  71.         StopThread(计时线程)
  72.         调用 Bkgnd.KeyPress(Hwnd,32)
  73.         脚本停止运行
  74.     条件结束
  75.     延时 1000 毫秒
  76. 循环结束
  77. 跳转到标记 GM警报
  78. 子程序 计时()
  79.     令 开始时间 = now
  80.     循环开始
  81.         令 aaa = DateDiff("s",开始时间,now)
  82.         令 t1 = aaa mod 60
  83.         令 t2 = Fix(aaa / 60) mod 60
  84.         令 t3 = Fix(aaa / 3600)
  85.         令 text_t1 = String(2 - Len(t1),"0") & t1
  86.         令 text_t2 = String(2 - Len(t2),"0") & t2
  87.         令 text_t3 = String(2 - Len(t3),"0") & t3
  88.         令 new_title = title & " D4T WoW自动钓鱼运行中：已钓" & 数量 & "条，用时 " & text_t3 & ":" & text_t2 & ":" & text_t1
  89.         调用 Window.SetText(hwnd,new_title)
  90.     循环结束
  91. 子程序结束
  92. 子程序 OnScriptExit()
  93.     解除鼠标锁定
  94.     调用 Window.SetText(hwnd,title)
  95. 子程序结束