1.             如果 shifouhanhua = 1 则
  2.                 调用 喊话()
  3.             否则如果 shifouhanhua = 2 则
  4.             条件结束
  5.             如果 吃蓝 = 1 则
  6.                 调用 蓝90()
  7.             否则如果 吃蓝 = 2 则
  8.                 调用 蓝80()
  9.             否则如果 吃蓝 = 3 则
  10.                 调用 蓝70()
  11.             否则如果 吃蓝 = 4 则
  12.                 调用 蓝60()
  13.             否则如果 吃蓝 = 5 则
  14.                 调用 蓝50()
  15.             否则如果 吃蓝 = 6 则
  16.                 调用 蓝40()
  17.             否则如果 吃蓝 = 7 则
  18.                 调用 蓝30()
  19.             否则如果 吃蓝 = 8 则
  20.                 调用 蓝20()
  21.             否则如果 吃蓝 = 9 则
  22.                 调用 蓝10()
  23.             否则如果 吃蓝 = 10 则
  24.                 如果 shifouhanhua = 1 则
  25.                     调用 喊话()
  26.                 否则如果 shifouhanhua = 2 则
  27.                 条件结束
  28.             否则如果 xuelan = 2 则
  29.                 调用 内存血()
  30.                 如果 shifouhanhua = 1 则
  31.                     调用 喊话()
  32.                 否则如果 shifouhanhua = 2 则
  33.                 条件结束
  34.                 调用 内存蓝()
  35.                 如果 shifouhanhua = 1 则
  36.                     调用 喊话()
  37.                 否则如果 shifouhanhua = 2 则
  38.                 条件结束
  39.             条件结束
  40.         条件结束
  41.         如果 chongwushengji = 1 则
  42.             调用 宠物升级()
  43.         否则如果 chongwushengji = 2 则
  44.         条件结束
  45.         如果 gujjc = 0 则
  46.         否则如果 gujjc = 1 则
  47.             如果 X2 <= time 则
  48.                 调用 竞技场加怪()
  49.                 令 X1 = time
  50.                 令 X2 = DateAdd("n",daguaijingji,X1)
  51.             条件结束
  52.         条件结束
  53.     循环结束
  54.     延时 300 毫秒
  55.     调用 修理装备()
  56.     跳转到标记 继续(子程序 模式1)
  57.     标记 哈哈(子程序 模式1)
  58.     标记 shibai(子程序 模式1)
  59.     延时 300 毫秒
  60.     令 XY = Bkgnd.FindColor(Hwnd,462,381,537,404,"A9C7D4")
  61.     令 ZB = InStr(XY,"|")
  62.     令 X = Clng(Left(XY,ZB - 1))
  63.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  64.     如果 X > 0 并且 Y > 0 则
  65.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  66.     否则
  67.         跳转到标记 shibai(子程序 模式1)
  68.     条件结束
  69.     标记 shibaijiesu(子程序 模式1)
  70.     延时 300 毫秒
  71.     令 XY = Bkgnd.FindColor(Hwnd,458,305,530,323,"A9C7D4")
  72.     令 ZB = InStr(XY,"|")
  73.     令 X = Clng(Left(XY,ZB - 1))
  74.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  75.     如果 X > 0 并且 Y > 0 则
  76.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  77.     否则
  78.         跳转到标记 shibaijiesu(子程序 模式1)
  79.     条件结束
  80.     标记 shibaiding(子程序 模式1)
  81.     延时 300 毫秒
  82.     令 XY = Bkgnd.FindColor(Hwnd,424,384,490,405,"A9C7D4")
  83.     令 ZB = InStr(XY,"|")
  84.     令 X = Clng(Left(XY,ZB - 1))
  85.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  86.     如果 X > 0 并且 Y > 0 则
  87.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  88.     否则
  89.         跳转到标记 shibaiding(子程序 模式1)
  90.     条件结束
  91.     SR.SetMode(1,Hwnd)
  92.     标记 gubao(子程序 模式1)
  93.     延时 200 毫秒
  94.     令 x1 = 110
  95.     令 y1 = 238
  96.     令 x2 = 201
  97.     令 y2 = 282
  98.     令 colordsc = "S[0-14]"
  99.     令 similar = 0.95
  100.     令 SAA = SR.ShapeRec(x1,y1,x2,y2,colordsc,similar)