1.     条件结束
  2.     延时 3000 毫秒
  3.     如果 mengzhan = 1 则
  4.         调用 参加盟战()
  5.     条件结束
  6.     延时 3000 毫秒
  7.     注释：刷新跑商
  8.     调用 商队刷新()
  9.     令 jccount = 30
  10. 条件结束
  11. 注释：每隔五分钟进入一次城池
  12. 令 mm = m mod 5
  13. 如果 mm = 0 则
  14.     调用 进入城池()
  15. 条件结束
  16. 注释：防止长时间没有动作，过段时间就点一下游戏界面^_^
  17. 调用 Bkgnd.LeftClick(Hwnd,270,40)
  18. 延时 1000 毫秒
  19. 如果 paoshang = 1 则
  20.     调用 跑商()
  21. 条件结束
  22. 延时 1000 毫秒
  23. 如果 delaytime > 0 则
  24.     令 h = Hour(Time)
  25.     令 m = Minute(time)
  26.     令 TimeB = h * 60 + m
  27.     如果 (TimeB - TimeA) > delaytime 则
  28.         注释：进入跑商界面
  29.         调用 Bkgnd.LeftClick(Hwnd,942,110)
  30.         延时 2000 毫秒
  31.         注释：判断在哪交易，然后进行最后一次交易
  32.         令 color_a = Bkgnd.GetPixelColor(Hwnd,shanga_x + 1,shanga_y + 13)
  33.         如果 color_a = "13ADFD" 则
  34.             调用 商队交易(shanga_x + 1,shanga_y + 13,1)
  35.             延时 500 毫秒
  36.         否则
  37.             令 color_b = Bkgnd.GetPixelColor(Hwnd,shangb_x + 1,shangb_y + 13)
  38.             如果 color_b = "13ADFD" 则
  39.                 调用 商队交易(shangb_x + 1,shangb_y + 13,1)
  40.                 延时 500 毫秒
  41.             条件结束
  42.         条件结束
  43.         令 delaytime = 0
  44.         延时 500 毫秒
  45.     条件结束
  46. 条件结束
  47. 延时 1000 毫秒
  48. 如果 keji = 1 则
  49.     调用 升级科技()
  50. 条件结束
  51. 延时 1000 毫秒
  52. 如果 xunlian = 1 则
  53.     调用 武将训练()
  54. 条件结束
  55. 延时 1000 毫秒
  56. 如果 tufei = 1 则
  57.     调用 武将突飞()
  58. 条件结束
  59. 延时 1000 毫秒
  60. 如果 peiyang = 1 并且 pycount > 0 则
  61.     调用 武将培养()
  62. 条件结束
  63. 延时 1000 毫秒
  64. 如果 jingji = 1 则
  65.     调用 竞技场()
  66. 条件结束
  67. 延时 1000 毫秒
  68. 如果 shangjin = 1 则
  69.     调用 刷赏金()
  70. 条件结束
  71. 延时 1000 毫秒
  72. 如果 FB20 = 1 则
  73.     如果 h = 20 并且 m < 3 则
  74.         调用 创建20FB()
  75.     条件结束
  76. 条件结束
  77. 延时 5000 毫秒
  78. 跳转到标记 挂机开始
  79. 子程序 升级科技()
  80.     注释：以下判断科技升级是否空闲，空闲则升级，否则跳出
  81.     令 GetColor = Bkgnd.GetPixelColor(Hwnd,27,159)
  82.     如果 GetColor = "00FF00" 则
  83.         注释：打开科技界面
  84.         调用 Bkgnd.LeftClick(Hwnd,27,159)
  85.         注释：转到科技第一页
  86.         调用 Bkgnd.LeftClick(Hwnd,433,484)
  87.         如果 kj11 = 1 则
  88.             调用 Bkgnd.LeftClick(Hwnd,440,204)
  89.             延时 500 毫秒
  90.             调用 Bkgnd.LeftClick(Hwnd,824,426)
  91.             延时 500 毫秒
  92.         条件结束
  93.         如果 kj12 = 1 则
  94.             调用 Bkgnd.LeftClick(Hwnd,520,204)
  95.             延时 500 毫秒
  96.             调用 Bkgnd.LeftClick(Hwnd,824,426)
  97.             延时 500 毫秒
  98.         条件结束
  99.         如果 kj21 = 1 则
  100.             调用 Bkgnd.LeftClick(Hwnd,440,304)