1.     令 MF(7,2) = 0
  2. 条件结束
  3. 令 s1 = InStr(ZJ8,",")
  4. 如果 s1 > 0 则
  5.     令 MF(8,1) = int(Mid(ZJ8,1,s1 - 1))
  6.     令 MF(8,2) = int(Mid(ZJ8,s1 + 1))
  7. 否则
  8.     令 MF(8,1) = 0
  9.     令 MF(8,2) = 0
  10. 条件结束
  11. 令 s1 = InStr(ZJ9,",")
  12. 如果 s1 > 0 则
  13.     令 MF(9,1) = int(Mid(ZJ9,1,s1 - 1))
  14.     令 MF(9,2) = int(Mid(ZJ9,s1 + 1))
  15. 否则
  16.     令 MF(9,1) = 0
  17.     令 MF(9,2) = 0
  18. 条件结束
  19. 令 s1 = InStr(ZJ10,",")
  20. 如果 s1 > 0 则
  21.     令 MF(10,1) = int(Mid(ZJ10,1,s1 - 1))
  22.     令 MF(10,2) = int(Mid(ZJ10,s1 + 1))
  23. 否则
  24.     令 MF(10,1) = 0
  25.     令 MF(10,2) = 0
  26. 条件结束
  27. 令 s1 = InStr(NT1,",")
  28. 如果 s1 > 0 则
  29.     令 NT(1,1) = int(Mid(NT1,1,s1 - 1))
  30.     令 NT(1,2) = int(Mid(NT1,s1 + 1))
  31. 否则
  32.     令 NT(1,1) = 0
  33.     令 NT(1,2) = 0
  34. 条件结束
  35. 令 s1 = InStr(NT2,",")
  36. 如果 s1 > 0 则
  37.     令 NT(2,1) = int(Mid(NT2,1,s1 - 1))
  38.     令 NT(2,2) = int(Mid(NT2,s1 + 1))
  39. 否则
  40.     令 NT(2,1) = 0
  41.     令 NT(2,2) = 0
  42. 条件结束
  43. 令 s1 = InStr(NT3,",")
  44. 如果 s1 > 0 则
  45.     令 NT(3,1) = int(Mid(NT3,1,s1 - 1))
  46.     令 NT(3,2) = int(Mid(NT3,s1 + 1))
  47. 否则
  48.     令 NT(3,1) = 0
  49.     令 NT(3,2) = 0
  50. 条件结束
  51. 令 s1 = InStr(NT4,",")
  52. 如果 s1 > 0 则
  53.     令 NT(4,1) = int(Mid(NT4,1,s1 - 1))
  54.     令 NT(4,2) = int(Mid(NT4,s1 + 1))
  55. 否则
  56.     令 NT(4,1) = 0
  57.     令 NT(4,2) = 0
  58. 条件结束
  59. 令 s1 = InStr(NT5,",")
  60. 如果 s1 > 0 则
  61.     令 NT(5,1) = int(Mid(NT5,1,s1 - 1))
  62.     令 NT(5,2) = int(Mid(NT5,s1 + 1))
  63. 否则
  64.     令 NT(5,1) = 0
  65.     令 NT(5,2) = 0
  66. 条件结束
  67. (语句无法识别，可能有错误): Dim DQCK,cki //记录当前窗口句柄，当前需要激活的窗口序号
  68. 令 DQCK = ""
  69. 如果 CK1 = 1 并且 CKJB1 <> "" 则
  70.     令 cki = 1
  71. 否则如果 CK2 = 1 并且 CKJB2 <> "" 则
  72.     令 cki = 2
  73. 否则如果 CK3 = 1 并且 CKJB3 <> "" 则
  74.     令 cki = 3
  75. 否则
  76.     令 cki = 0
  77. 条件结束
  78. 如果 cki = 0 则
  79.     注释：MessageBox("未指定窗口句柄，默认只对当前窗口进行挂机操作")
  80.     注释：Call Plugin.Window.Max(Hwnd)
  81. 否则
  82. 条件结束
  83. 弹出窗口 ("【作者】幻狼——10区——弑军团——坏开 欢迎加入本军团")
  84. (语句无法识别，可能有错误): MFi=1 //当前需要升级的建筑
  85. (语句无法识别，可能有错误): While true //让下面的脚本一直执行，直到终止按钮被按
  86. 如果 DateDiff("s",t1,now) >= 1800 则
  87.     (语句无法识别，可能有错误): KeyPress 116,1 //设置成1个小时刷新一次，避免卡住的现象
  88.     令 t1 = now
  89. 条件结束
  90. 如果 cki = 1 则
  91.     调用 Window.Max(CKJB1)
  92.     调用 Window.Active(CKJB1)
  93.     如果 CK2 = 1 并且 CKJB2 <> "" 则
  94.         注释：查找下一个应该激活的窗口
  95.     条件结束
  96.     令 cki = 2
  97. 否则如果 CK3 = 1 并且 CKJB3 <> "" 则
  98.     令 cki = 3
  99. 否则
  100.     令 cki = 1