1.         跳转到标记 zhuren(子程序 竞技场加怪)
  2.     条件结束
  3.     延时 500 毫秒
  4.     标记 jingji(子程序 竞技场加怪)
  5.     延时 500 毫秒
  6.     令 jingji = Bkgnd.GetPixelColor(Hwnd,103,46)
  7.     如果 jingji = "B8EBF5" 则
  8.         调用 Bkgnd.LeftClick(Hwnd,103,46)
  9.     否则
  10.         跳转到标记 jingji(子程序 竞技场加怪)
  11.     条件结束
  12.     延时 500 毫秒
  13.     SR.SetMode(1,Hwnd)
  14.     令 x1 = 871
  15.     令 y1 = 326
  16.     令 x2 = 931
  17.     令 y2 = 340
  18.     令 colordsc = "990101-000000"
  19.     令 similar = 0.95
  20.     令 STR = SR.ShapeRec(x1,y1,x2,y2,colordsc,similar)
  21.     如果 STR = "发起挑战" 则
  22.         调用 Bkgnd.LeftClick(Hwnd,898,334)
  23.     条件结束
  24.     标记 guding(子程序 竞技场加怪)
  25.     延时 500 毫秒
  26.     令 XY = Bkgnd.FindColor(Hwnd,422,380,495,404,"A9C7D4")
  27.     令 ZB = InStr(XY,"|")
  28.     令 X = Clng(Left(XY,ZB - 1))
  29.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  30.     如果 X > 0 并且 Y > 0 则
  31.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  32.     否则
  33.         跳转到标记 guding(子程序 竞技场加怪)
  34.     条件结束
  35.     标记 ga1(子程序 竞技场加怪)
  36.     延时 500 毫秒
  37.     令 XY = Bkgnd.FindColor(Hwnd,974,34,987,49,"6A7CDB")
  38.     令 ZB = InStr(XY,"|")
  39.     令 X = Clng(Left(XY,ZB - 1))
  40.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  41.     如果 X > 0 并且 Y > 0 则
  42.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  43.     否则
  44.         跳转到标记 ga1(子程序 竞技场加怪)
  45.     条件结束
  46.     标记 guX(子程序 竞技场加怪)
  47.     延时 500 毫秒
  48.     令 XY = Bkgnd.FindColor(Hwnd,930,32,949,50,"010C66")
  49.     令 ZB = InStr(XY,"|")
  50.     令 X = Clng(Left(XY,ZB - 1))
  51.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  52.     如果 X > 0 并且 Y > 0 则
  53.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  54.     否则
  55.         跳转到标记 guX(子程序 竞技场加怪)
  56.     条件结束
  57.     启动线程 jjcguanji
  58.     延时 500 毫秒
  59. 子程序结束
  60. 子程序 jjcguanji
  61.     标记 guguan(子程序 jjcguanji)
  62.     延时 500 毫秒
  63.     令 XY = Bkgnd.FindColor(Hwnd,506,431,578,456,"A9C7D4")
  64.     令 ZB = InStr(XY,"|")
  65.     令 X = Clng(Left(XY,ZB - 1))
  66.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  67.     如果 X > 0 并且 Y > 0 则
  68.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  69.     否则
  70.         跳转到标记 guguan(子程序 jjcguanji)
  71.     条件结束
  72. 子程序结束
  73. 子程序 红90
  74.     延时 500 毫秒
  75.     标记 再来6(子程序 红90)
  76.     令 ga = Bkgnd.GetPixelColor(Hwnd,416,541)
  77.     如果 ga = "0D1012" 则
  78.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  79.     否则
  80.         跳转到标记 红达到要求2(子程序 红90)
  81.     条件结束
  82.     延时 300 毫秒
  83.     令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
  84.     如果 ga1 = "000068" 则
  85.         调用 Bkgnd.LeftClick(Hwnd,646,330)
  86.     否则
  87.         延时 300 毫秒
  88.         跳转到标记 再来6(子程序 红90)
  89.     条件结束
  90.     标记 gh(子程序 红90)
  91.     延时 500 毫秒
  92.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
  93.     令 ZB = InStr(XY,"|")
  94.     令 X = Clng(Left(XY,ZB - 1))
  95.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  96.     如果 X > 0 并且 Y > 0 则
  97.         调用 Bkgnd.LeftClick(Hwnd,x,y)
  98.         延时 400 毫秒
  99.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  100.         延时 400 毫秒