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
          End If
If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
 If 吃蓝=1
        Gosub 蓝90
        ElseIf 吃蓝=2 then
         Gosub 蓝80
         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
 If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
         ElseIf xuelan = 2 then
Gosub 内存血
If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
gosub 内存蓝
If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
End If
          End If 
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 294, 224, 368, 249, " 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)
End If
Rem fbda
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 592, 227, 655, 249, "ACC8D3")
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 fbda
End If
Delay 500
If 关闭战斗显示 = 0
Gosub 关闭战斗显示1
ElseIf 不关闭战斗显示 =1
End If
Rem fbguanbi
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 294, 224, 368, 249, " 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)
End If

XY = Plugin.Bkgnd.FindColor(Hwnd, 505, 432, 578, 455, " 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
Delay 2000
Goto fbguanbi
End If
If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
If chongwushengji = 1 then
gosub 宠物升级
ElseIf chongwushengji = 2 then