1.             条件结束
  2.         否则
  3.             跳转到标记 封印(子程序 锁妖塔)
  4.         条件结束
  5.     否则
  6.         退出子程序
  7.     条件结束
  8. 子程序结束
  9. 子程序 阵图()
  10.     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "阵图次数.bmp",10,1,x,y)
  11.     如果 x + y > 0 则
  12.         延时 200 毫秒
  13.         调用 关闭()
  14.         退出子程序
  15.     条件结束
  16.     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "阵图窗口.bmp",10,0.9,x,y)
  17.     如果 x + y > 0 则
  18.         延时 300 毫秒
  19.         调用 Bkgnd.LeftClick(Hwnd,x + 38,y + 330)
  20.     条件结束
  21. 子程序结束
  22. 子程序 闯关()
  23.     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "单人挑战.bmp",10,0.8,x,y)
  24.     如果 x + y > 0 则
  25.         延时 300 毫秒
  26.         调用 Bkgnd.LeftClick(Hwnd,x + 38,y + 330)
  27.     条件结束
  28. 子程序结束
  29. 子程序 副本()
  30.     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "副本.bmp",10,0.9,x,y)
  31.     如果 x + y > 0 则
  32.         延时 300 毫秒
  33.         调用 Bkgnd.LeftClick(Hwnd,x + 15,y + 45)
  34.     条件结束
  35. 子程序结束
  36. 注释：*************************************斗剑子程序********************************************
  37. 子程序 斗剑()
  38.     标记 斗剑(子程序 斗剑)
  39.     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "斗剑场窗口.bmp",10,1,x,y)
  40.     如果 x + y > 0 则
  41.         延时 300 毫秒
  42.         BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "可以斗剑.bmp",10,1,x,y)
  43.         如果 x + y > 0 则
  44.             BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "斗剑次数.bmp",10,1,x,y)
  45.             如果 x + y > 0 则
  46.                 BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "挑战.bmp",10,1,x,y)
  47.                 如果 x + y > 0 则
  48.                     延时 300 毫秒
  49.                     调用 Bkgnd.LeftClick(Hwnd,x + 13,y + 29)
  50.                 条件结束
  51.             否则
  52.                 BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "斗剑人物选择.bmp",10,0.8,x,y)
  53.                 如果 x + y > 0 则
  54.                     延时 300 毫秒
  55.                     调用 Bkgnd.LeftClick(Hwnd,x + 35,y + 59)
  56.                     标记 斗剑结束(子程序 斗剑)
  57.                     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "确定.bmp",10,0.9,x,y)
  58.                     如果 x + y > 0 则
  59.                         延时 300 毫秒
  60.                         调用 Bkgnd.LeftClick(Hwnd,x + 31,y + 14)
  61.                         延时 1000 毫秒
  62.                         调用 关闭()
  63.                     否则
  64.                         延时 1000 毫秒
  65.                         跳转到标记 斗剑结束(子程序 斗剑)
  66.                     条件结束
  67.                     令 djcs = djcs + 1
  68.                 条件结束
  69.             条件结束
  70.         条件结束
  71.     否则
  72.         BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "斗剑图标.bmp",10,1,x,y)
  73.         如果 x + y > 0 则
  74.             调用 Bkgnd.LeftClick(Hwnd,x + 24,y + 27)
  75.             延时 300 毫秒
  76.             跳转到标记 斗剑(子程序 斗剑)
  77.         条件结束
  78.     条件结束
  79. 子程序结束
  80. 子程序 领奖()
  81.     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "抽奖.bmp",10,0.9,x,y)
  82.     如果 x + y > 0 则
  83.         延时 300 毫秒
  84.         调用 Bkgnd.LeftClick(Hwnd,x + 27,y + 9)
  85.     条件结束
  86.     标记 领奖(子程序 领奖)
  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 + 27,y + 9)
  91.     否则
  92.         延时 300 毫秒
  93.         跳转到标记 领奖(子程序 领奖)
  94.     条件结束
  95. 子程序结束
  96. 子程序 打怪()
  97.     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "发动攻击.bmp",10,0.9,x,y)
  98.     如果 x + y > 0 则
  99.         延时 300 毫秒
  100.         调用 Bkgnd.LeftClick(Hwnd,x + 25,y + 7)