KeyDown 49,1
                    Delay 400
                    KeyUp 49,1
                EndIf 
            EndIf 
        EndIf 
        Delay 500
        Gosub 判断死亡
    Else 
        //复活
        If Dtime <> 0 and Died=1
            Dtime=0
            Ctime= 0
            Died=0
            T = 0
            KeyPress 13,1
            Delay 50
            Mystring ="终于活了,不容易啊..."
            Gosub 说话
            Mystring ="好了,开练吧..."
            Gosub 说话
            KeyPress 27,2
            Delay 200
        EndIf 
        Gosub 判断血量
        Gosub 切换状态
    EndIf 
Return 判断死亡
Sub 切换状态
    IfColor 731,564,ffffff,1
        If Chgtime =0
            Chgtime = now
            Ctime= 0
        Else 
            If Datediff("s",Chgtime,now) <=15
                KeyPress 9,1
                Delay 120
            Else 
                Chgtime =0
                KeyPress 27,2
                Gosub 取消国战
                Gosub 判断死亡
            EndIf 
        EndIf 
        Gosub 切换状态
    Else 
        Chgtime =0
    EndIf 
Return 切换状态
Sub 判断血量
    If Htype =1
        IfColor 40,HPlowerY,HPlowerColor,0
            //少血,需要吃红
            If HPdelay > 0
                If Htime = 0
                    Htime = now
                Else 
                    If DateDiff("s",Htime,now) >= HPdelay
                        KeyDown 49,1
                        Delay 400
                        KeyUp 49,1
                        Htime = 0
                    EndIf 
                EndIf 
            ElseIf HPdelay = 0
                KeyDown 49,1
                Delay 400
                KeyUp 49,1
            EndIf 
        Else 
            Htime = 0
        EndIf 
    EndIf 
Return 判断血量
Sub 计算时间
    THour=0
    TMin=0
    Tsec=0
    THour = T\60\60
    TMin = T\60 Mod 60
    Tsec = T Mod 60
    If THour >0
        Mystring = Mystring & "[" & THour & "]小时"
    EndIf 
    If TMin >0
        Mystring = Mystring & "[" & TMin & "]分"
    EndIf 
    Mystring = Mystring & "[" & Tsec & "]秒"
Return 计算时间
Sub 取得数字
    Numb= ""
    AnJian= 0
    While AnJian<>13
        WaitKey AnJian
        If AnJian >= 48 and AnJian <= 57
            Numb = Numb & Chr(AnJian)
        ElseIf AnJian= 8
            Numb = Left(Numb,Len(Numb)-1)
        EndIf 
    EndWhile