ElseIf 吃蓝=3 then
          Gosub 蓝70
          ElseIf 吃蓝=4 then
          Gosub 蓝60
           ElseIf 吃蓝=5 then
           Gosub 蓝50
            ElseIf 吃蓝=6 then
            Gosub 蓝40
             ElseIf 吃蓝=7 then
             Gosub 蓝30
              ElseIf 吃蓝=8 then
              Gosub 蓝20
               ElseIf 吃蓝=9 then
               Gosub 蓝10
                ElseIf 吃蓝=10 then
         ElseIf xuelan = 2 then
          
Dim a
a=InputBox ("请输入你搜索到的地址,记住，在你的地址前要加上&H","血的地址","&H")
C=a
ha = Plugin.Memory.Read16Bit(Hwnd, C)
dim b
b=InputBox ("请输入你搜索到的地址,记住，在你的地址前要加上&H","血的地址","&H")
D=b
ha2 = Plugin.Memory.Read16Bit(Hwnd, D)
Gosub 内存血
gosub 内存蓝
End If
          End If
        
 If chongwushengji = 1 then
gosub 宠物升级
ElseIf chongwushengji = 2 then
End If
If gujjc  = 0 then
ElseIf gujjc = 1 then
If X2<=time Then
gosub 竞技场加怪
X1 = time
X2=DateAdd("n",daguaijingji,X1)
End If
End if
 Next 
 Delay 300
 GOsub 修理装备

End Sub
Sub ceng3
Rem ceng3
Delay 300
XY = Plugin.Bkgnd.FindColor(Hwnd, 378,302, 396,320, "070A0B")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Else 
Goto ceng3
End If

Rem cengding
Delay 300
XY = Plugin.Bkgnd.FindColor(Hwnd, 414,395, 486,415, "A9C7D4")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Else
Goto cengding
End If

End Sub
Sub ceng2
Delay 300
Rem ceng2
XY = Plugin.Bkgnd.FindColor(Hwnd, 377,277, 395,292, "070A0B")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Else 
Goto ceng2
End If
Rem cengding
Delay 300
XY = Plugin.Bkgnd.FindColor(Hwnd, 414,395, 486,415, "A9C7D4")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Else
Goto cengding
End If
End Sub
Sub ceng1
Rem ceng1
Delay 300
XY = Plugin.Bkgnd.FindColor(Hwnd,378,252, 396,265, "040606")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then