MyArray5 = Split(io, "|")
    x2 = Clng(MyArray5(0)): y2 = Clng(MyArray5(1))
    If x2>0 and y2>0 Then
        Delay 256
        Call Plugin.Bkgnd.LeftClick(Hwnd,471,396)
        Delay 256
        Call Plugin.Bkgnd.LeftClick(Hwnd,471,396)
        Call 加蓝()
        Call 退出加血加蓝循环()
    End if
End Sub
Sub 添加物品过量3()
    io = Plugin.Bkgnd.FindColorEx(Hwnd, 471,396,472,397,"010067", 0, 0.9)
    Delay 32
    MyArray5 = Split(io, "|")
    x2 = Clng(MyArray5(0)): y2 = Clng(MyArray5(1))
    If x2>0 and y2>0 Then
        Delay 256
        Call Plugin.Bkgnd.LeftClick(Hwnd,471,396)
        Delay 256
        Call Plugin.Bkgnd.LeftClick(Hwnd,471,396)
        Call 退出加血加蓝循环()
    End if
End Sub
Sub 修理装备()
    If n>=no Then
        Delay 25
        Call Plugin.Bkgnd.LeftClick(Hwnd,902,367)
        Delay 1000
        Call Plugin.Bkgnd.LeftClick(Hwnd,458,393)
        Delay 256
        Rem 延时时间过长
        io = Plugin.Bkgnd.FindColorEx(Hwnd, 654,245,655,246,"ABD4EA", 0, 0.9)
        Delay 32
        MyArray5 = Split(io, "|")
        x2 = Clng(MyArray5(0)): y2 = Clng(MyArray5(1))
        If x2>0 and y2>0 Then
            Delay 1000
            Call Plugin.Bkgnd.LeftClick(Hwnd,497,390)
            n=0
        Else
            Goto 延时时间过长
        End if
        Delay 1000
    End if
End Sub
Sub 复活()
    io = Plugin.Bkgnd.FindColorEx(Hwnd, 354,239,356,241,"000080", 0, 0.9)
    Delay 32
    MyArrayy = Split(io, "|")
    xa = Clng(MyArrayy(0)): ya = Clng(MyArrayy(1))
    If xa>0 and ya>0 Then
        If sw=1 Then
            Delay 25
            Call Plugin.Bkgnd.LeftClick(Hwnd,354,239)
            Goto 打怪开始
        ElseIf sw=2 Then
            Call 报警1()
        End if
        If sw=3 Then
            Call Plugin.Sys.ExitOS(1)
            Delay 256
            EndScript
        End if
    End if
End Sub
Sub 报警()
    For 5
        Call Plugin.Media.Beep(523, 200)
        Call Plugin.Media.Beep(659, 200)
        Delay 32
    Next
    MessageBox "没有药水了！～请买好药水后重新启动脚本!"
    EndScript
End Sub
Sub 无蓝报警()
    If wulan=2 Then
        For 5
            Call Plugin.Media.Beep(523, 200)
            Call Plugin.Media.Beep(659, 200)
            Delay 32
        Next
        MessageBox "没有药水了！～请买好药水后重新启动脚本!"
        EndScript
    End if
End Sub
Sub 报警1()
    For 5
        Call Plugin.Media.Beep(523, 200)
        Call Plugin.Media.Beep(659, 200)
        Delay 32
    Next
    MessageBox "人物死亡，请选择好后重新启动脚本!"
    EndScript
End Sub
Sub 宠物模块()
    //如果超过60分钟
    If ch=0 Then
        If ms=3 Then
            Goto 关闭宠物升级2