1.                 调用 商队交易(shangb_x + 1,shangb_y + 13,Buy_b)
  2.                 延时 200 毫秒
  3.                 调用 Bkgnd.LeftClick(Hwnd,shanga_x,shanga_y)
  4.                 延时 500 毫秒
  5.                 调用 Bkgnd.LeftClick(Hwnd,503,410)
  6.                 延时 500 毫秒
  7.             条件结束
  8.         条件结束
  9.         注释：为最后一次跑商计算起始时间，并设定间隔时间，间隔时间根据各自情况设定
  10.         令 h = Hour(Time)
  11.         令 m = Minute(time)
  12.         令 TimeA = h * 60 + m
  13.         令 delaytime = 25
  14.     条件结束
  15. 子程序结束
  16. 子程序 竞技场()
  17.     如果 jccount > 0 则
  18.         延时 500 毫秒
  19.         调用 Bkgnd.LeftClick(Hwnd,890,38)
  20.         延时 1000 毫秒
  21.         调用 Bkgnd.LeftClick(Hwnd,465,173)
  22.         延时 500 毫秒
  23.         注释：随机指定一个位子
  24.         令 post = Int(10 * Rnd)
  25.         令 postx = 798
  26.         令 posty = 234 + 27 * post
  27.         注释：攻击
  28.         调用 Bkgnd.LeftClick(Hwnd,postx,posty)
  29.         延时 2000 毫秒
  30.         注释：进入后，点 结果
  31.         调用 Bkgnd.LeftClick(Hwnd,967,39)
  32.         延时 500 毫秒
  33.         注释：关闭
  34.         调用 Bkgnd.LeftClick(Hwnd,691,429)
  35.         延时 1000 毫秒
  36.         注释：如果没有次数了，则按回车，补充一下关闭
  37.         调用 Bkgnd.KeyPress(Hwnd,13)
  38.         延时 500 毫秒
  39.         令 jccount = jcount - 1
  40.     条件结束
  41. 子程序结束
  42. 子程序 进入城池()
  43.     延时 200 毫秒
  44.     调用 Bkgnd.LeftClick(Hwnd,902,62)
  45.     延时 2000 毫秒
  46. 子程序结束
  47. 子程序 开始训练()
  48.     如果 xlms = 1 则
  49.         调用 Bkgnd.LeftClick(Hwnd,640,317)
  50.         延时 500 毫秒
  51.     条件结束
  52.     如果 xlms = 2 则
  53.         调用 Bkgnd.LeftClick(Hwnd,640,337)
  54.         延时 500 毫秒
  55.     条件结束
  56.     如果 xlms = 3 则
  57.         调用 Bkgnd.LeftClick(Hwnd,640,357)
  58.         延时 500 毫秒
  59.     条件结束
  60.     调用 Bkgnd.LeftClick(Hwnd,853,421)
  61.     延时 500 毫秒
  62. 子程序结束
  63. 子程序 商队A()
  64.     根据 shangA 选择
  65.     情况 "1":
  66.         注释：晋阳
  67.         令 shanga_x = 511
  68.         令 shanga_y = 317
  69.     情况 "2":
  70.         注释：灵寿
  71.         令 shanga_x = 591
  72.         令 shanga_y = 259
  73.     情况 "3":
  74.         注释：新郑
  75.         令 shanga_x = 420
  76.         令 shanga_y = 469
  77.     情况 "4":
  78.         注释：商丘
  79.         令 shanga_x = 505
  80.         令 shanga_y = 442
  81.     情况 "5":
  82.         注释：会
  83.         令 shanga_x = 561
  84.         令 shanga_y = 482
  85.     情况 "6":
  86.         注释：曲
  87.         令 shanga_x = 578
  88.         令 shanga_y = 377
  89.     情况 "7":
  90.         注释：洛
  91.         令 shanga_x = 458
  92.         令 shanga_y = 476
  93.     情况 :
  94.         注释：否则
  95.     选择结束
  96. 子程序结束
  97. 子程序 商队B()
  98.     根据 shangB 选择
  99.     情况 "1":
  100.         令 shangb_x = 511