1. 子程序 yaoshi33
  2.     标记 钥匙3(子程序 yaoshi33)
  3.     令 se = Bkgnd.GetPixelColor(Hwnd,470,288)
  4.     如果 se = "AFE2FF" 则
  5.         调用 Bkgnd.LeftClick(Hwnd,470,288)
  6.     否则
  7.         跳转到标记 钥匙3(子程序 yaoshi33)
  8.     条件结束
  9. 子程序结束
  10. 子程序 喊话
  11.     令 ag = Bkgnd.GetPixelColor(diyige,81,583)
  12.     如果 ag = "070A0C" 则
  13.         调用 Bkgnd.LeftClick(diyige,81,583)
  14.     条件结束
  15.     调用 Window.SendString(diyige,ziti)
  16.     延时 200 毫秒
  17.     调用 Bkgnd.KeyPress(diyige,13)
  18.     令 X1 = time
  19.     令 X2 = DateAdd("n",1,X1)
  20. 子程序结束
  21. 子程序 竞技场模式
  22.     延时 500 毫秒
  23.     循环 gude 次
  24.         SR.SetMode(1,Hwnd)
  25.         令 x1 = 871
  26.         令 y1 = 326
  27.         令 x2 = 931
  28.         令 y2 = 340
  29.         令 colordsc = "990101-000000"
  30.         令 similar = 0.95
  31.         令 STR = SR.ShapeRec(x1,y1,x2,y2,colordsc,similar)
  32.         如果 STR = "发起挑战" 则
  33.             调用 Bkgnd.LeftClick(Hwnd,898,334)
  34.         条件结束
  35.         标记 guding(子程序 竞技场模式)
  36.         延时 300 毫秒
  37.         令 XY = Bkgnd.FindColor(Hwnd,422,380,495,404,"A9C7D4")
  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.             跳转到标记 guding(子程序 竞技场模式)
  45.         条件结束
  46.         标记 ga1(子程序 竞技场模式)
  47.         延时 300 毫秒
  48.         令 XY = Bkgnd.FindColor(Hwnd,974,34,987,49,"6A7CDB")
  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.             跳转到标记 ga1(子程序 竞技场模式)
  56.         条件结束
  57.         标记 guX(子程序 竞技场模式)
  58.         延时 500 毫秒
  59.         令 XY = Bkgnd.FindColor(Hwnd,930,32,949,50,"010C66")
  60.         令 ZB = InStr(XY,"|")
  61.         令 X = Clng(Left(XY,ZB - 1))
  62.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  63.         如果 X > 0 并且 Y > 0 则
  64.             调用 Bkgnd.LeftClick(Hwnd,X,Y)
  65.         否则
  66.             跳转到标记 guX(子程序 竞技场模式)
  67.         条件结束
  68.         标记 guguan(子程序 竞技场模式)
  69.         延时 500 毫秒
  70.         令 XY = Bkgnd.FindColor(Hwnd,506,431,578,456,"A9C7D4")
  71.         令 ZB = InStr(XY,"|")
  72.         令 X = Clng(Left(XY,ZB - 1))
  73.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  74.         如果 X > 0 并且 Y > 0 则
  75.             调用 Bkgnd.LeftClick(Hwnd,X,Y)
  76.         否则
  77.             跳转到标记 guguan(子程序 竞技场模式)
  78.         条件结束
  79.         如果 shifouhanhua = 1 则
  80.             调用 喊话()
  81.         否则如果 shifouhanhua = 2 则
  82.         条件结束
  83.         SR.SetMode(1,Hwnd)
  84.         标记 dianji(子程序 竞技场模式)
  85.         延时 300 毫秒
  86.         令 x1 = 290
  87.         令 y1 = 153
  88.         令 x2 = 315
  89.         令 y2 = 212
  90.         令 colordsc = "S[0-26]"
  91.         令 similar = 0.95
  92.         令 STR = SR.ShapeRec(x1,y1,x2,y2,colordsc,similar)
  93.         如果 STR = "竞技场" 则
  94.             调用 Bkgnd.LeftClick(Hwnd,295,216)
  95.         否则
  96.             跳转到标记 dianji(子程序 竞技场模式)
  97.         条件结束
  98.         延时 gubaoshijian 毫秒
  99.         如果 chongwushengji = 1 则
  100.             调用 宠物升级()