1.                 调用 蓝80()
  2.             否则如果 吃蓝 = 3 则
  3.                 调用 蓝70()
  4.             否则如果 吃蓝 = 4 则
  5.                 调用 蓝60()
  6.             否则如果 吃蓝 = 5 则
  7.                 调用 蓝50()
  8.             否则如果 吃蓝 = 6 则
  9.                 调用 蓝40()
  10.             否则如果 吃蓝 = 7 则
  11.                 调用 蓝30()
  12.             否则如果 吃蓝 = 8 则
  13.                 调用 蓝20()
  14.             否则如果 吃蓝 = 9 则
  15.                 调用 蓝10()
  16.             否则如果 吃蓝 = 10 则
  17.             否则如果 xuelan = 2 则
  18.                 定义变量 a
  19.                 令 a = InputBox("请输入你搜索到的地址,记住，在你的地址前要加上&H","血的地址","&H")
  20.                 令 C = a
  21.                 令 ha = Memory.Read16Bit(Hwnd,C)
  22.                 定义变量 b
  23.                 令 b = InputBox("请输入你搜索到的地址,记住，在你的地址前要加上&H","血的地址","&H")
  24.                 令 D = b
  25.                 令 ha2 = Memory.Read16Bit(Hwnd,D)
  26.                 调用 内存血()
  27.                 调用 内存蓝()
  28.             条件结束
  29.         条件结束
  30.         如果 chongwushengji = 1 则
  31.             调用 宠物升级()
  32.         否则如果 chongwushengji = 2 则
  33.         条件结束
  34.         如果 gujjc = 0 则
  35.         否则如果 gujjc = 1 则
  36.             如果 X2 <= time 则
  37.                 调用 竞技场加怪()
  38.                 令 X1 = time
  39.                 令 X2 = DateAdd("n",daguaijingji,X1)
  40.             条件结束
  41.         条件结束
  42.     循环结束
  43.     延时 300 毫秒
  44.     调用 修理装备()
  45. 子程序结束
  46. 子程序 ceng3
  47.     标记 ceng3(子程序 ceng3)
  48.     延时 300 毫秒
  49.     令 XY = Bkgnd.FindColor(Hwnd,378,302,396,320,"070A0B")
  50.     令 ZB = InStr(XY,"|")
  51.     令 X = Clng(Left(XY,ZB - 1))
  52.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  53.     如果 X > 0 并且 Y > 0 则
  54.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  55.     否则
  56.         跳转到标记 ceng3(子程序 ceng3)
  57.     条件结束
  58.     标记 cengding(子程序 ceng3)
  59.     延时 300 毫秒
  60.     令 XY = Bkgnd.FindColor(Hwnd,414,395,486,415,"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.         跳转到标记 cengding(子程序 ceng3)
  68.     条件结束
  69. 子程序结束
  70. 子程序 ceng2
  71.     延时 300 毫秒
  72.     标记 ceng2(子程序 ceng2)
  73.     令 XY = Bkgnd.FindColor(Hwnd,377,277,395,292,"070A0B")
  74.     令 ZB = InStr(XY,"|")
  75.     令 X = Clng(Left(XY,ZB - 1))
  76.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  77.     如果 X > 0 并且 Y > 0 则
  78.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  79.     否则
  80.         跳转到标记 ceng2(子程序 ceng2)
  81.     条件结束
  82.     标记 cengding(子程序 ceng2)
  83.     延时 300 毫秒
  84.     令 XY = Bkgnd.FindColor(Hwnd,414,395,486,415,"A9C7D4")
  85.     令 ZB = InStr(XY,"|")
  86.     令 X = Clng(Left(XY,ZB - 1))
  87.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  88.     如果 X > 0 并且 Y > 0 则
  89.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  90.     否则
  91.         跳转到标记 cengding(子程序 ceng2)
  92.     条件结束
  93. 子程序结束
  94. 子程序 ceng1
  95.     标记 ceng1(子程序 ceng1)
  96.     延时 300 毫秒
  97.     令 XY = Bkgnd.FindColor(Hwnd,378,252,396,265,"040606")
  98.     令 ZB = InStr(XY,"|")
  99.     令 X = Clng(Left(XY,ZB - 1))
  100.     令 Y = Clng(Right(XY,Len(XY) - ZB))