1. 条件结束
  2. 否则如果 cki = 2 则
  3.     调用 Window.Max(CKJB2)
  4.     调用 Window.Active(CKJB2)
  5.     如果 CK3 = 1 并且 CKJB3 <> "" 则
  6.         注释：查找下一个应该激活的窗口
  7.     条件结束
  8.     令 cki = 3
  9. 否则如果 CK1 = 1 并且 CKJB1 <> "" 则
  10.     令 cki = 1
  11. 否则
  12.     令 cki = 2
  13. 条件结束
  14. 否则如果 cki = 3 则
  15.     调用 Window.Max(CKJB3)
  16.     调用 Window.Active(CKJB3)
  17.     如果 CK1 = 1 并且 CKJB1 <> "" 则
  18.         注释：查找下一个应该激活的窗口
  19.     条件结束
  20.     令 cki = 1
  21. 否则如果 CK3 = 2 并且 CKJB2 <> "" 则
  22.     令 cki = 2
  23. 否则
  24.     令 cki = 3
  25. 条件结束
  26. 条件结束
  27. 如果 MinFang = 1 则
  28.     注释：升级建筑
  29. 条件结束
  30. 延时 500 毫秒
  31. 注释：循环里设置延时 防止系统内存占用太高
  32. 注释：VBSCall FindCenterColor(0,0,1024,768,Cor(s),x,y)
  33. 令 Cor = "33CC66"
  34. 如果 allx = 1280 并且 ally = 800 则
  35.     调用 从中心到四周查找颜色 Cor，把找到的坐标保存到 (x, y)，指定区域（左：144 上：323 右：316 下：454）
  36. 否则
  37.     调用 从中心到四周查找颜色 Cor，把找到的坐标保存到 (x, y)，指定区域（左：18 上：322 右：202 下：438）
  38. 条件结束
  39. 注释：MessageBox(x & " " & y)
  40. 注释：区域从中间向外查找颜色。144,323,316,454为区域范围，Cor为颜色变量，x,y为坐标变量
  41. 注释：If x>0 and y>0 Then
  42. 循环当 x > 0 并且 y > 0 时
  43.     注释：如果找到颜色
  44.     延时 100 毫秒
  45.     注释：MessageBox(MFi & " " & MF(MFi,1))
  46.     循环当 MF(MFi,1) = 0 并且 MFi <= 10 时
  47.         令 MFi = MFi + 1
  48.     循环结束
  49.     注释： MessageBox(MFi & " " & MF(MFi,1))
  50.     如果 MFi > 10 则
  51.         (语句无法识别，可能有错误): found=true //说明所有的建筑都无法升级，直接跳过升级建筑功能
  52.         令 MFi = 1
  53.         跳转到标记 跳过建筑升级
  54.     否则
  55.         （鼠标）移动到 (MF(MFi,1), MF(MFi,2))
  56.         延时 500 毫秒
  57.         （鼠标）左键单击, 2次
  58.         延时 1000 毫秒
  59.         令 found = false
  60.     条件结束
  61.     令 outi = 0
  62.     调用 从左上到右下查找图片 "傲视天地\按钮建筑升级.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：150 上：100 右：1100 下：650），相似度 0.9
  63.     循环当 not found 并且 outi < 3 时
  64.         如果 intX > 0 并且 intY > 0 则
  65.             （鼠标）移动到 (intX, intY)
  66.             延时 500 毫秒
  67.             （鼠标）左键单击, 2次
  68.             令 found = true
  69.         条件结束
  70.         如果 not found 则
  71.             （鼠标）移动到 (MF(MFi,1), MF(MFi,2))
  72.             延时 500 毫秒
  73.             （鼠标）左键单击, 2次
  74.             延时 1000 毫秒
  75.             调用 从左上到右下查找图片 "傲视天地\按钮建筑升级.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：150 上：100 右：1100 下：650），相似度 0.9
  76.             延时 500 毫秒
  77.             调用 从左上到右下查找图片 "傲视天地\按钮建筑无法升级.bmp"，把找到的坐标保存到 (intX1, intY1)，指定区域（左：150 上：100 右：1100 下：650），相似度 0.9
  78.             延时 500 毫秒
  79.             如果 intX1 > 0 并且 intY1 > 0 则
  80.                 注释： MessageBox(MFi & "位置无法继续升级！" & MF(MFi,1))
  81.                 令 MF(MFi,1) = 0
  82.                 令 MF(MFi,2) = 0
  83.                 令 found = true
  84.             条件结束
  85.         条件结束
  86.         令 outi = outi + 1
  87.     循环结束
  88.     令 MFi = MFi + 1
  89.     如果 MFi = 11 则
  90.         令 MFi = 1
  91.     条件结束
  92.     令 found = false
  93.     令 outi = 0
  94.     调用 从左上到右下查找图片 "傲视天地\按钮关闭窗口.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：150 上：100 右：1100 下：650），相似度 0.9
  95.     循环当 not found 并且 outi < 3 时
  96.         如果 intX > 0 并且 intY > 0 则
  97.             （鼠标）移动到 (intX, intY)
  98.             延时 500 毫秒
  99.             （鼠标）左键单击, 2次
  100.             令 found = true