1.     调用 yanshi()
  2.     从左上到右下查找图片 "Attachment:\宝石.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：pyX 上：pyY 右：pyX + pmK 下：pyY + pmG），相似度 0.6
  3.     如果 intX > 0 并且 intY > 0 则
  4.         （鼠标）移动到 (intX, intY)
  5.         调用 yanshi()
  6.         （鼠标）左键单击, 1次
  7.         调用 yanshi()
  8.         （鼠标）移动到 (pyX + 979, pyY + 481)
  9.         调用 yanshi()
  10.         （鼠标）左键单击, 1次
  11.         调用 yanshi()
  12.     条件结束
  13. 否则
  14.     令 chushihua = "包裹"
  15.     退出函数
  16. 条件结束
  17. 函数结束
  18. (语句无法识别，可能有错误): Function nazb(zbi,pyX,pyY)//从装备栏中拿装备放入新月瓶中
  19. 调用 yanshi()
  20. （鼠标）移动到 (zb(zbi,0), zb(zbi,1))
  21. 调用 yanshi()
  22. （鼠标）左键单击, 1次
  23. 调用 yanshi()
  24. （鼠标）移动到 (pyX + 536, pyY + 524)
  25. 调用 yanshi()
  26. （鼠标）左键单击, 1次
  27. 调用 yanshi()
  28. （鼠标）移动到 (pyX + 536, pyY + 424)
  29. 调用 yanshi()
  30. 从左上到右下查找图片 "Attachment:\判断装备.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：pyX + 493 上：pyY + 487 右：pyX + 593 下：pyY + 587），相似度 0.8
  31. 如果 intX > 0 并且 intY > 0 则
  32.     令 nazb = 0
  33. 否则
  34.     令 nazb = 1
  35. 条件结束
  36. 函数结束
  37. (语句无法识别，可能有错误): Function fangzb(zbi,pyX,pyY)//从新月瓶中拿出放入装备栏中
  38. 调用 yanshi()
  39. （鼠标）移动到 (pyX + 536, pyY + 524)
  40. 调用 yanshi()
  41. （鼠标）左键单击, 1次
  42. 调用 yanshi()
  43. （鼠标）移动到 (zb(zbi,0), zb(zbi,1))
  44. 调用 yanshi()
  45. （鼠标）左键单击, 1次
  46. 调用 yanshi()
  47. 函数结束
  48. (语句无法识别，可能有错误): Function pdxj(pyX,pyY,pmK,pmG)//判定装备现有星星数量返回值0-6
  49. 注释：MsgBox "判定星级我运行了"
  50. 定义变量 str1，xxdj
  51. 重定义变量 rgbsum(2), blue1(2)
  52. 令 rgbsum(0) = 0
  53. 令 rgbsum(1) = 0
  54. 令 rgbsum(2) = 0
  55. 令 str1 = ""
  56. 令 xxdj = 0
  57. （鼠标）移动到 (pyX + 536, pyY + 524)
  58. 延时 500 毫秒
  59. 从左上到右下查找图片 "Attachment:\装备位置.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：pyX 上：pyY 右：pyX + pmK 下：pyY + pmG），相似度 0.9
  60. 如果 intX > 0 并且 intY > 0 则
  61.     循环 j 从 0 到 2
  62.         循环 i 从 0 到 2
  63.             令 GetColor = 得到指定点 (intX - 94 + i, intY - 46) 的颜色
  64.             调用 Color.ColorToRGB(getcolor,R,G,B)
  65.             令 rgbsum(0) = rgbsum(0) + cint(R)
  66.             令 rgbsum(1) = rgbsum(1) + Cint(G)
  67.             令 rgbsum(2) = rgbsum(2) + cint(B)
  68.             令 str1 = str1 & "第" & i & "次" & r & "," & g & "," & b & vbcrlf
  69.             令 blue1(i) = b
  70.         循环结束
  71.         如果 blue1(0) > 150 并且 blue1(1) > 180 则
  72.             如果 blue1(2) < 150 则
  73.                 令 xxdj = xxdj + 1
  74.                 注释：MsgBox "加1蓝色值" & blue1(0) & blue1(1) & blue1(2)
  75.             否则
  76.                 令 xxdj = xxdj + 2
  77.                 注释：MsgBox "加2蓝色值" & blue1(0) & blue1(1) & blue1(2)
  78.             条件结束
  79.         条件结束
  80.         令 intX = intX + 22
  81.     循环结束
  82.     注释：MsgBox str1 & "总和：" & rgbsum(0) & "," & rgbsum(1) & "," & rgbsum(2)
  83.     如果 rgbsum(0) > 1850 则
  84.         令 xxdj = 6
  85.     条件结束
  86.     注释：MsgBox xxdj
  87.     令 pdxj = xxdj
  88. 否则
  89.     MsgBox("找不到装备位置图片")
  90. 条件结束
  91. 函数结束
  92. (语句无法识别，可能有错误): Function quxing(xxsl,pyX,pyY,pmK,pmG)//根据星星等级取出相应数量宝石
  93. 调用 yanshi()
  94. 注释：MsgBox "取星程序我也运行了"
  95. （键盘）按下 "Ctrl" 键
  96. 调用 yanshi()
  97. （鼠标）移动到 (pyX + 979, pyY + 481)
  98. 调用 yanshi()
  99. （鼠标）左键单击, 1次
  100. 调用 yanshi()