1. 子程序结束
  2. 子程序 古堡打怪()
  3.     如果 dgjs >= gbcs 则
  4.         弹出窗口 "古堡已经探险到规定的层数！～"
  5.         脚本停止运行
  6.     否则
  7.         延时 256 毫秒
  8.         调用 Bkgnd.LeftClick(Hwnd,390,310)
  9.         延时 256 毫秒
  10.         调用 Bkgnd.LeftClick(Hwnd,453,394)
  11.         延时 150 毫秒
  12.         调用 Bkgnd.LeftClick(Hwnd,453,394)
  13.         如果 yys = 1 则
  14.             延时 56 毫秒
  15.             调用 关闭打怪界面()
  16.         否则
  17.             跳转到标记 d2(子程序 古堡打怪)
  18.         条件结束
  19.         标记 d2(子程序 古堡打怪)
  20.         注释：下面这句按(从左到右从上到下的顺序找色)模糊查找窗口句柄(变量：Hwnd)窗口的指定矩形区域内指定颜色
  21.         延时 256 毫秒
  22.         令 XY = Bkgnd.FindColorEx(Hwnd,509,436,512,438,"020149",0,0.9)
  23.         注释：下面这句用于分割字符串0
  24.         延时 32 毫秒
  25.         令 MyArray = Split(XY,"|")
  26.         注释：下面这句将字符串转换成数值
  27.         令 x = Clng(MyArray(0))
  28.         令 y = Clng(MyArray(1))
  29.         延时 23 毫秒
  30.         如果 x > 0 并且 y > 0 则
  31.             注释：颜色一样
  32.             调用 Bkgnd.LeftClick(Hwnd,512,436)
  33.             延时 256 毫秒
  34.             调用 Bkgnd.LeftClick(Hwnd,512,436)
  35.             延时 256 毫秒
  36.             令 XY = Bkgnd.FindColorEx(Hwnd,471,394,472,395,"00015C",0,0.9)
  37.             延时 32 毫秒
  38.             令 MyArray = Split(XY,"|")
  39.             注释：下面这句将字符串转换成数值
  40.             令 x = Clng(MyArray(0))
  41.             令 y = Clng(MyArray(1))
  42.             延时 23 毫秒
  43.             如果 x > 0 并且 y > 0 则
  44.                 调用 报警1()
  45.             条件结束
  46.         否则
  47.             延时 1000 毫秒
  48.             跳转到标记 d2(子程序 古堡打怪)
  49.             注释：颜色不一样
  50.         条件结束
  51.     条件结束
  52. 子程序结束
  53. 子程序 竞技场()
  54.     如果 jjn = 0 则
  55.         如果 gj = 1 则
  56.             调用 Bkgnd.LeftClick(Hwnd,293,210)
  57.             延时 1500 毫秒
  58.         否则如果 gj = 2 则
  59.             调用 Bkgnd.LeftClick(Hwnd,110,119)
  60.             延时 1500 毫秒
  61.         条件结束
  62.         如果 gj = 3 则
  63.             调用 Bkgnd.LeftClick(Hwnd,663,376)
  64.             延时 1500 毫秒
  65.         条件结束
  66.         调用 Bkgnd.LeftClick(Hwnd,898,332)
  67.         延时 1000 毫秒
  68.         调用 Bkgnd.LeftClick(Hwnd,453,394)
  69.         延时 23 毫秒
  70.         调用 Bkgnd.LeftClick(Hwnd,453,394)
  71.         标记 a1(子程序 竞技场)
  72.         延时 500 毫秒
  73.         令 XY = Bkgnd.FindColorEx(Hwnd,511,436,513,437,"000062",0,0.9)
  74.         注释：下面这句用于分割字符串0
  75.         延时 32 毫秒
  76.         令 MyArray = Split(XY,"|")
  77.         注释：下面这句将字符串转换成数值
  78.         令 x = Clng(MyArray(0))
  79.         令 y = Clng(MyArray(1))
  80.         延时 23 毫秒
  81.         如果 x > 0 并且 y > 0 则
  82.             注释：颜色一样
  83.             调用 Bkgnd.LeftClick(Hwnd,511,436)
  84.             延时 256 毫秒
  85.             调用 Bkgnd.LeftClick(Hwnd,511,436)
  86.             延时 256 毫秒
  87.         否则
  88.             延时 1000 毫秒
  89.             跳转到标记 a1(子程序 竞技场)
  90.             注释：颜色不一样
  91.         条件结束
  92.         调用 退出加血加蓝循环()
  93.         令 jjn = jjn + 1
  94.     否则如果 jjn = jjccs 则
  95.         弹出窗口 "已经打到您设置的竞技场次数！～"
  96.         脚本停止运行
  97.     条件结束
  98.     如果 jjn < jjccs 则
  99.         如果 DateDiff("n",TXX,now) >= TN 则
  100.             如果 gj = 1 则