If datediff("s",Ctime,now) >40
            Gosub 取消国战
            Gosub 更换武器
            Delay 200
            Gosub 判断血量
            KeyPress 112,1
            Ctime =0
        EndIf 
        Gosub 攻击
        Gosub 判断血量
    EndIf 
Else 
    IfColor 775,590,182429,0
        If Ctype = 1
        ElseIf Ctype = 2
            If Ctime = 0
                IfColor 775,594,182429,1
                    Gosub 取消国战
                    Gosub 更换武器
                    Delay 200
                    KeyPress 113,1
                    Gosub 判断血量
                    Gosub 攻击
                    MoveTo Skill_X,Skill_Y
                    Gosub 判断血量
                    Delay 200
                    RightDown 3
                    Ctime=now
                    Delay 400
                    RightUp 1
                    Delay 50
                    MoveTo Attack_X,Attack_Y
                    Delay 50
                    Gosub 判断血量
                EndIf 
            Else 
                If datediff("s",Ctime,now) >40
                    Gosub 取消国战
                    Gosub 更换武器
                    Delay 200
                    Gosub 判断血量
                    KeyPress 112,1
                    Ctime =0
                EndIf 
            EndIf 
        ElseIf Ctype = 3
            KeyDown 51,1
            Delay 300
            KeyUp 51,1
        EndIf 
        Gosub 攻击
        Gosub 判断血量
    Else 
        Gosub 取消国战
        Gosub 更换武器
        Delay 200
        Gosub 判断血量
        KeyPress 112,1
        Gosub 攻击
        Gosub 判断血量
    EndIf 
EndIf 
Goto 开始
////////////////////////////////  过程定义
Sub 等待按键
    WaitKey AnJian
    KeyPress 13,1
    Delay 50
Return 等待按键
Sub 判断死亡
    IfColor 40,596,637994,0
        //可能死亡
        If Dtime = 0
            Dtime = now
            Died = 0
        Else 
            If DateDiff("s",Dtime,now) >= 15
                //死亡
                If CallForHelp =1
                    If Died = 0
                        KeyPress 13,1
                        Delay 50
                        Mystring = "晕,我怎么死了...麻烦JS救下..."
                        Gosub 说话
                        T = 0
                    Else 
                        If Datediff("s",Dateadd("s",T,Dtime),now) >= 15
                            T = Datediff("s",Dtime,now)
                            KeyPress 13,1
                            Delay 50
                            Mystring = "救救我,求你们了,我已经死了"
                            Gosub 计算时间
                            Mystring = Mystring & "了..."
                            Gosub 说话
                        EndIf 
                    EndIf 
                EndIf 
                Died = 1
            Else 
                If Htype = 1