1.     条件结束
  2. 循环结束
  3. 子程序结束
  4. 子程序 CLoseAll()
  5.     循环当 True 时
  6.         令 GameHwnd = Window.Find(0,"三国 - Google Chrome")
  7.         如果 GameHwnd = 0 则
  8.             跳出循环
  9.         条件结束
  10.         调用 CloseGame()
  11.         延时 500 毫秒
  12.     循环结束
  13. 子程序结束
  14. 子程序 MyDelay()
  15.     令 IsError = True
  16.     令 IsTimeout = IsTimeout + 1
  17.     (语句无法识别,可能有错误): Delay 500 //延时0.5ms
  18. 子程序结束
  19. 子程序 FindMilitary
  20.     注释:找军事按钮
  21.     令 IsTimeout = 0
  22.     循环当 True 时
  23.         从左上到右下查找图片 "Attachment:\军事.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  24.         如果 intX > 0 并且 intY > 0 则
  25.             注释:关闭抽奖
  26.             调用 CloseLottery
  27.             从左上到右下查找图片 "Attachment:\军事.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  28.             如果 intX > 0 并且 intY > 0 则
  29.                 MouseClick(intX,intY,1)
  30.                 令 IsError = False
  31.             条件结束
  32.             跳出循环
  33.         否则
  34.             调用 MyDelay()
  35.             如果 IsTimeout > 20 则
  36.                 注释:超时 10s
  37.             条件结束
  38.             跳出循环
  39.         条件结束
  40.     条件结束
  41. 循环结束
  42. 子程序结束
  43. 子程序 FindLdle()
  44.     注释:找空闲武将
  45.     (语句无法识别,可能有错误): IsLdle = False //假调没有空闲武将
  46.     令 IsTimeout = 0
  47.     循环当 True 时
  48.         从左上到右下查找图片 "Attachment:\命令.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:526 上:300 右:606 下:700),相似度 0.9
  49.         如果 intX > 0 并且 intY > 0 则
  50.             从左上到右下查找图片 "Attachment:\空闲.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:526 上:300 右:606 下:700),相似度 0.9
  51.             如果 intX > 0 并且 intY > 0 则
  52.                 (语句无法识别,可能有错误): IsLdle = True //找到空闲武将
  53.                 MouseClick(intX,intY,1)
  54.                 令 IsError = False
  55.                 跳出循环
  56.             否则
  57.                 令 IsLdle = False
  58.                 跳出循环
  59.             条件结束
  60.         否则
  61.             调用 MyDelay()
  62.             如果 IsTimeout > 20 则
  63.                 注释:超时 10s
  64.             条件结束
  65.             跳出循环
  66.         条件结束
  67.     条件结束
  68. 循环结束
  69. 子程序结束
  70. 注释:程序开始
  71. 调用 SetUser
  72. 令 nIndex = 0
  73. 调用 Main()
  74. ExitScript()
  75. 注释:------------------------------
  76. 子程序 Start()
  77.     循环当 True 时
  78.         (语句无法识别,可能有错误): Call FindLdle() //找空间武将
  79.         如果 IsLdle 则
  80.             令 IsTimeout = 0
  81.             循环当 True 时
  82.                 从左上到右下查找图片 "Attachment:\配兵.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  83.                 如果 intX > 0 并且 intY > 0 则
  84.                     MouseClick(intX,intY,1)
  85.                     令 IsError = False
  86.                     跳出循环
  87.                 否则
  88.                     调用 MyDelay()
  89.                     如果 IsTimeout > 20 则
  90.                         注释:超时 10s
  91.                     条件结束
  92.                     跳出循环
  93.                 条件结束
  94.             条件结束
  95.         循环结束
  96.         注释:开始配兵
  97.         令 IsTimeout = 0
  98.         循环当 True 时
  99.             从左上到右下查找图片 "Attachment:\修改.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  100.             如果 intX > 0 并且 intY > 0 则