1. （键盘）弹起 "CTrl" 键
  2. 延时 100 毫秒
  3. 从左上到右下查找图片 "Attachment:\宝石数量.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：pyX 上：pyY 右：pyX + pmK 下：pyY + pmG），相似度 0.6
  4. 如果 intX > 0 并且 intY > 0 则
  5.     根据 xxsl 选择
  6.     情况 1:
  7.         （键盘）按下 "1" 键
  8.     情况 2:
  9.         （键盘）按下 "2" 键
  10.     情况 3:
  11.         （键盘）按下 "3" 键
  12.     情况 4:
  13.         （键盘）按下 "4" 键
  14.     情况 :
  15.         msgbox("拿宝石程序出错")
  16.     选择结束
  17.     调用 yanshi()
  18.     （鼠标）移动到 (pyX + 445, pyY + 463)
  19.     注释：MsgBox pyX & pyY
  20.     调用 yanshi()
  21.     （鼠标）左键单击, 1次
  22.     调用 yanshi()
  23.     （鼠标）移动到 (pyX + 455, pyY + 480)
  24.     注释：MsgBox pyX & pyY
  25.     调用 yanshi()
  26.     （鼠标）左键单击, 1次
  27.     调用 yanshi()
  28. 条件结束
  29. 函数结束
  30. (语句无法识别，可能有错误): Function zaxing(pyX,pyY,pmK,pmG)//砸星，xxdj星星原有等级
  31. 定义变量 xxdj
  32. 标记 jixu
  33. 令 xxdj = pdxj(pyX,pyY,pmK,pmG)
  34. 注释：MsgBox xxdj
  35. 如果 xxdj = 6 则
  36.     令 zb(izb,2) = 7
  37.     退出函数
  38. 条件结束
  39. 如果 xxdj = 4 或者 xxdj = 5 则
  40.     调用 quxing(4,pyX,pyY,pmK,pmG)
  41. 条件结束
  42. 如果 xxdj = 3 则
  43.     调用 quxing(3,pyX,pyY,pmK,pmG)
  44. 条件结束
  45. 如果 xxdj = 2 则
  46.     调用 quxing(2,pyX,pyY,pmK,pmG)
  47. 条件结束
  48. 如果 xxdj = 1 或者 xxdj = 0 则
  49.     调用 quxing(1,pyX,pyY,pmK,pmG)
  50. 条件结束
  51. 调用 yanshi()
  52. （鼠标）移动到 (pyX + 537, pyY + 617)
  53. 调用 yanshi()
  54. （鼠标）左键单击, 1次
  55. 调用 yanshi()
  56. 令 zaxing = xxdj + 1
  57. 跳转到标记 jixu
  58. 函数结束
  59. Event(Form1.CheckBox1.Click)
  60. 如果 Form1.CheckBox1.Value = 0 则
  61.     令 zb(0,2) = 7
  62. 否则
  63.     令 zb(0,2) = 0
  64. 条件结束
  65. (语句无法识别，可能有错误): End Event
  66. Event(Form1.CheckBox2.Click)
  67. 如果 Form1.CheckBox2.Value = 0 则
  68.     令 zb(1,2) = 7
  69. 否则
  70.     令 zb(1,2) = 0
  71. 条件结束
  72. (语句无法识别，可能有错误): End Event
  73. Event(Form1.CheckBox3.Click)
  74. 如果 Form1.CheckBox3.Value = 0 则
  75.     令 zb(2,2) = 7
  76. 否则
  77.     令 zb(2,2) = 0
  78. 条件结束
  79. (语句无法识别，可能有错误): End Event
  80. Event(Form1.CheckBox4.Click)
  81. 如果 Form1.CheckBox4.Value = 0 则
  82.     令 zb(3,2) = 7
  83. 否则
  84.     令 zb(3,2) = 0
  85. 条件结束
  86. (语句无法识别，可能有错误): End Event
  87. Event(Form1.CheckBox5.Click)
  88. 如果 Form1.CheckBox5.Value = 0 则
  89.     令 zb(4,2) = 7
  90. 否则
  91.     令 zb(4,2) = 0
  92. 条件结束
  93. (语句无法识别，可能有错误): End Event
  94. Event(Form1.CheckBox6.Click)
  95. 如果 Form1.CheckBox6.Value = 0 则
  96.     令 zb(5,2) = 7
  97. 否则
  98.     令 zb(5,2) = 0
  99. 条件结束
  100. (语句无法识别，可能有错误): End Event