Wtype = 3-Wtype
        Mystring = "选择[5]"
        If Wtype = 1
            Mystring = Mystring & "[禁用]"
        ElseIf Wtype = 2
            Mystring = Mystring & "[启用]"
        EndIf 
        Mystring = Mystring & "[更换武器]..."
        Gosub 说话
        Gosub 参数设置
    ElseIf AnJian = 83
        Mystring = "选择[S][保存设置]..."
        Gosub 说话
        Gosub 保存脚本设置
        Gosub 参数设置
    ElseIf AnJian = 89
        Mystring = "选择[Y][启动]..."
        Gosub 说话
        Gosub 取得技能使用位置
    Else 
        Mystring = "只能在[1]-[5][Y][S]之间选择,请重新输入..."
        Gosub 说话
        Gosub 参数设置
    EndIf 
Return 参数设置
Sub 取得HP设置
    Mystring = "│[HP 设置]" & vblf
    Mystring = Mystring & "├" & String(11,"─") & vblf
    Mystring = Mystring & "│<1>下限[" & HPlower & "%]" & vblf
    Mystring = Mystring & "│<2>延迟[" & HPdelay & "]秒" & vblf
    Mystring = Mystring & "├" & String(11,"─") & vblf
    Mystring = Mystring & "│<Y>启用 <N>禁用"
    Gosub 说话
    Gosub 等待按键
    If AnJian = 49
        SayExpression "请输入HP下限(%): "
        Gosub 取得数字
        If Numb >= 95
            Mystring = "HP下限不要高于[95%]..."
            Gosub 说话
            HPlower = 95
        ElseIf Numb <= 14
            Mystring = "HP下限不要低于[15%]..."
            Gosub 说话
            HPlower = 15
        Else 
            HPlower =Numb
        EndIf 
        Mystring = "HP低于[" & HPlower & "%]喝水..."
        Gosub 说话
        Gosub 读取血量色点
        Gosub 取得HP设置
    ElseIf AnJian = 50
        SayExpression "请输入喝水延迟(秒): "
        Gosub 取得数字
        If Numb > 18
            Mystring = "延迟时间不要超过[18]秒..."
            Gosub 说话
            HPdelay = 18
        Else 
            HPdelay =Numb
        EndIf 
        Mystring = "延迟[" & HPdelay & "]秒喝水..."
        Gosub 说话
        Gosub 取得HP设置
    ElseIf AnJian = 89
        Mystring = "选择[Y][启用][HP设置]..."
        Gosub 说话
        Htype=1
    ElseIf AnJian = 78
        Mystring = "选择[N][禁用][HP设置]..."
        Gosub 说话
        Htype =2
    Else 
        Mystring = "只能在[1][2][Y][N]之间选择,请重新输入..."
        Gosub 说话
        Gosub 取得HP设置
    EndIf 
Return 取得HP设置
Sub 取得CP回复
    Mystring = "│[CP 回复]" & vblf
    Mystring = Mystring & "├" & String(11,"─") & vblf
    Mystring = Mystring & "│<1>自然回复"
    If Ctype = 1
        Mystring = Mystring & " @"
    EndIf 
    Mystring = Mystring & vblf
    Mystring = Mystring & "│<2>技能回复"
    If Ctype = 2
        Mystring = Mystring & " @"
    EndIf 
    Mystring = Mystring & vblf
    Mystring = Mystring & "│<3>CP药剂"
    If Ctype = 3
        Mystring = Mystring & " @"
    EndIf 
    Gosub 说话
    Gosub 等待按键
    If AnJian = 49
        Mystring = "选择[1][自然回复]..."