1.     条件结束
  2. 子程序结束
  3. 注释：************************帮派战子程序******************************
  4. 子程序 帮派战()
  5.     标记 帮派战斗(子程序 帮派战)
  6.     延时 300 毫秒
  7.     如果 hour(now) = 21 并且 minute(now) = 40 则
  8.         调用 关闭()
  9.         退出子程序
  10.     条件结束
  11.     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "帮派战窗口.bmp",10,0.8,x,y)
  12.     如果 x + y > 0 则
  13.         延时 300 毫秒
  14.         BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & ":参加帮战.bmp",10,1,x,y)
  15.         如果 x + y > 0 则
  16.             调用 Bkgnd.LeftClick(Hwnd,x + 14,y + 7)
  17.             延时 300 毫秒
  18.         条件结束
  19.         调用 确定()
  20.         跳转到标记 帮派战斗(子程序 帮派战)
  21.     否则
  22.         标记 帮派战传送(子程序 帮派战)
  23.         BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "传送按钮.bmp",10,1,x,y)
  24.         如果 x + y > 0 则
  25.             调用 Bkgnd.LeftClick(Hwnd,x + 13,y + 7)
  26.             延时 300 毫秒
  27.             令 qrjs = 1
  28.             标记 确认(子程序 帮派战)
  29.             BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "确认.bmp",10,1,x,y)
  30.             如果 x + y > 0 则
  31.                 调用 Bkgnd.LeftClick(Hwnd,x + 13,y + 7)
  32.                 延时 300 毫秒
  33.                 跳转到标记 帮派战斗(子程序 帮派战)
  34.             否则
  35.                 延时 300 毫秒
  36.                 跳转到标记 确认(子程序 帮派战)
  37.                 令 qrjs = qrjs + 1
  38.                 如果 qrjs = 50 则
  39.                     跳转到标记 帮派战斗(子程序 帮派战)
  40.                 条件结束
  41.             条件结束
  42.         否则
  43.             延时 300 毫秒
  44.             跳转到标记 帮派战传送(子程序 帮派战)
  45.         条件结束
  46.     条件结束
  47. 子程序结束
  48. 注释：************************阵营战子程序******************************
  49. 子程序 阵营战()
  50.     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "阵营战窗口.bmp",10,0.9,x,y)
  51.     如果 x + y > 0 则
  52.         标记 阵营战斗(子程序 阵营战)
  53.         延时 300 毫秒
  54.         令 h1 = hour(now)
  55.         令 m1 = minute(now)
  56.         如果 h1 = 20 并且 m1 = 30 则
  57.             调用 关闭()
  58.             退出子程序
  59.         条件结束
  60.         延时 300 毫秒
  61.         BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "参加.bmp",10,1,x,y)
  62.         如果 x + y > 0 则
  63.             延时 300 毫秒
  64.             调用 Bkgnd.LeftClick(Hwnd,x + 14,y + 7)
  65.         条件结束
  66.         调用 确定()
  67.         跳转到标记 阵营战斗(子程序 阵营战)
  68.     否则
  69.         标记 阵营传送(子程序 阵营战)
  70.         BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "传送按钮.bmp",1,x,y)
  71.         如果 x + y > 0 则
  72.             延时 300 毫秒
  73.             调用 Bkgnd.LeftClick(Hwnd,x + 13,y + 7)
  74.             跳转到标记 阵营战斗(子程序 阵营战)
  75.         否则
  76.             延时 300 毫秒
  77.             跳转到标记 阵营传送(子程序 阵营战)
  78.         条件结束
  79.     条件结束
  80. 子程序结束
  81. 注释：************************************锁妖塔子程序************************待完善
  82. 子程序 锁妖塔()
  83.     令 sytjs = 1
  84.     如果 sytjs < 26 则
  85.         标记 封印(子程序 锁妖塔)
  86.         延时 300 毫秒
  87.         BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "封印.bmp",10,0.9,x,y)
  88.         如果 x + y > 0 则
  89.             延时 300 毫秒
  90.             调用 Bkgnd.LeftClick(Hwnd,x + 10,y + 10)
  91.             延时 300 毫秒
  92.             标记 上一层(子程序 锁妖塔)
  93.             调用 确定()
  94.             BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "上一层.bmp",10,0.9,x,y)
  95.             如果 x + y > 0 则
  96.                 延时 300 毫秒
  97.                 调用 Bkgnd.LeftClick(Hwnd,x + 5,y + 20)
  98.                 令 sytjs = sytjs + 1
  99.             否则
  100.                 跳转到标记 上一层(子程序 锁妖塔)