If Numb = ""
        Numb = 0
    Else 
        Numb = CLng(Numb)
    EndIf 
Return 取得数字
Sub 取消国战
    KeyPress 27,3
    Delay 50
    IfColor 758,430,0,0
        MoveTo 400,400
        Delay 200
        LeftClick 2
        Delay 300
    EndIf 
Return 取消国战
Sub 等待按键
    WaitKey AnJian
    KeyPress 13,1
    Delay 50
Return 等待按键
Sub 说话
    SayExpression Mystring
    Delay 50
    KeyPress 13,1
    Delay 50
Return 说话
Sub 攻击
    For 15
        LeftClick 1
        Delay 20
    EndFor 
Return 攻击
Sub 参数设置
    Mystring = "│[参数设置]" & vblf
    Mystring = Mystring & "├" & String(11,"─") & vblf
    Mystring = Mystring & "│<1>HP设置" & String(6," ") & "..["
    If Htype =1
        Mystring = Mystring & "启用"
    ElseIf Htype =2
        Mystring = Mystring & "禁用"
    EndIf 
    Mystring = Mystring & "]" & vblf  & "│<2>CP回复"
    If Ctype =1
        Mystring = Mystring & "  ..[自然回复]"
    ElseIf Ctype =2
        Mystring = Mystring & "  ..[技能回复]"
    ElseIf Ctype =3
        Mystring = Mystring & "    ..[CP药剂]"
    EndIf 
    Mystring = Mystring & vblf & "│<3>补体方式"
    If Ttype =1
        Mystring = Mystring & "  ..[JS群体]"
    ElseIf Ttype =2
        Mystring = Mystring & "    ..[食物]"
    EndIf 
    Mystring = Mystring & vblf & "│<4>死后呼救" & String(4," ") & "..["
    If CallForHelp =1
        Mystring = Mystring & "启用"
    ElseIf CallForHelp =2
        Mystring = Mystring & "禁用"
    EndIf 
    Mystring = Mystring & "]" & vblf & "│<5>更换武器" & String(4," ") & "..["
    If Wtype =1
        Mystring = Mystring & "禁用"
    ElseIf Wtype =2
        Mystring = Mystring & "启用"
    EndIf 
    Mystring = Mystring & "]" & vblf
    Mystring = Mystring & "├" & String(11,"─") & vblf
    Mystring = Mystring & "│<Y>启动 <S>保存设置"
    Gosub 说话
    Gosub 等待按键
    If AnJian = 49
        Mystring = "选择[1][HP设置]..."
        Gosub 说话
        Gosub 取得HP设置
        Gosub 参数设置
    ElseIf AnJian = 50
        Mystring = "选择[2][CP回复]..."
        Gosub 说话
        Gosub 取得CP回复
        Gosub 参数设置
    ElseIf AnJian = 51
        Mystring = "选择[3][补体方式]..."
        Gosub 说话
        Gosub 取得补体方式
        Gosub 参数设置
    ElseIf AnJian = 52
        CallForHelp = 3-CallForHelp
        Mystring = "选择[4]"
        If CallForHelp = 1
            Mystring = Mystring & "[启用]"
        ElseIf CallForHelp = 2
            Mystring = Mystring & "[禁用]"
        EndIf 
        Mystring = Mystring & "[死后呼救]..."
        Gosub 说话
        Gosub 参数设置
    ElseIf AnJian = 53