1.         延时 50 毫秒
  2.         解除鼠标锁定
  3.         令 IsError = False
  4.         跳出循环
  5.     否则
  6.         调用 MyDelay()
  7.         如果 IsTimeout > 20 则
  8.             注释:超时 10s
  9.         条件结束
  10.         跳出循环
  11.     条件结束
  12. 条件结束
  13. 循环结束
  14. 注释:选择功击方式输入框
  15. 令 IsTimeout = 0
  16. 循环当 True 时
  17.     从左上到右下查找图片 "Attachment:\请选择.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:6 上:300 右:95 下:768),相似度 0.9
  18.     如果 intX > 0 并且 intY > 0 则
  19.         注释: MoveTo intX, intY
  20.         注释: Delay 50
  21.         注释: LeftClick 1
  22.         注释: Delay 50
  23.         MouseClick(intX,intY,1)
  24.         令 IsError = False
  25.         跳出循环
  26.     否则
  27.         调用 MyDelay()
  28.         如果 IsTimeout > 20 则
  29.             注释:超时 10s
  30.         条件结束
  31.         跳出循环
  32.     条件结束
  33. 条件结束
  34. 循环结束
  35. 注释:选择掠夺
  36. 令 IsTimeout = 0
  37. 循环当 True 时
  38.     从左上到右下查找图片 "Attachment:\掠夺.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:362 上:373 右:542 下:439),相似度 0.9
  39.     如果 intX > 0 并且 intY > 0 则
  40.         MouseClick(intX - 10,intY + 4,1)
  41.         令 IsError = False
  42.         跳出循环
  43.     否则
  44.         调用 MyDelay()
  45.         如果 IsTimeout > 20 则
  46.             注释:超时 10s
  47.         条件结束
  48.         跳出循环
  49.     条件结束
  50. 条件结束
  51. 循环结束
  52. 注释:确定选择
  53. 令 IsTimeout = 0
  54. 循环当 True 时
  55.     从左上到右下查找图片 "Attachment:\确定.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  56.     如果 intX > 0 并且 intY > 0 则
  57.         MouseClick(intX,intY,1)
  58.         令 IsError = False
  59.         跳出循环
  60.     否则
  61.         调用 MyDelay()
  62.         如果 IsTimeout > 20 则
  63.             注释:超时 10s
  64.         条件结束
  65.         跳出循环
  66.     条件结束
  67. 条件结束
  68. 循环结束
  69. 注释:出征
  70. 令 IsTimeout = 0
  71. 循环当 True 时
  72.     从左上到右下查找图片 "Attachment:\出征1.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:295 上:343 右:707 下:719),相似度 0.9
  73.     如果 intX > 0 并且 intY > 0 则
  74.         MouseClick(intX,intY,1)
  75.         令 IsError = False
  76.         跳出循环
  77.     否则
  78.         调用 MyDelay()
  79.         如果 IsTimeout > 20 则
  80.             注释:超时 10s
  81.         条件结束
  82.         跳出循环
  83.     条件结束
  84. 条件结束
  85. 循环结束
  86. 注释:标测是否出征失败
  87. 令 IsErr = False
  88. 令 IsTimeout = 0
  89. 循环当 True 时
  90.     从左上到右下查找图片 "Attachment:\返回.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:361 上:328 右:657 下:525),相似度 0.9
  91.     如果 intX > 0 并且 intY > 0 则
  92.         MouseClick(intX,intY,1)
  93.         令 IsErr = True
  94.         跳出循环
  95.     否则
  96.         调用 MyDelay()
  97.         如果 IsTimeout > 5 则
  98.             注释:超时 2.5s
  99.         条件结束
  100.         跳出循环