Gosub 说话
        Ctype = 1
    ElseIf AnJian = 50
        Mystring = "选择[2][技能回复]..."
        Gosub 说话
        Ctype = 2
    ElseIf AnJian = 51
        Mystring = "选择[3][CP药剂]..."
        Gosub 说话
        Ctype = 3
    Else 
        Mystring = "只能在[1]-[3]之间选择,请重新输入..."
        Gosub 说话
        Gosub 取得CP回复
    EndIf 
Return 取得CP回复
Sub 取得补体方式
    Mystring="│[补体方式]" & vblf
    Mystring= Mystring & "├" & String(7,"─") &vblf
    Mystring= Mystring & "│<1>JS群体"
    If Ttype = 1
        Mystring= Mystring & " @"
    EndIf 
    Mystring= Mystring & vblf
    Mystring= Mystring & "│<2>食物"
    If Ttype = 2
        Mystring= Mystring & " @"
    EndIf 
    Gosub 说话
    Gosub 等待按键
    If AnJian >= 49 and AnJian <= 50
        Ttype = CInt(Chr(AnJian))
        Mystring = "[补体方式]选择[" & Ttype & "]["
        If Ttype = 1
            Mystring = Mystring & "JS群体"
        ElseIf Ttype = 2
            Mystring = Mystring & "食物"
        EndIf 
        Mystring = Mystring & "]..."
        Gosub 说话
    Else 
        Mystring="只能在[1][2]之间选择,请重新输入..."
        Gosub 说话
        Gosub 取得补体方式
    EndIf 
Return 取得补体方式
Sub 补充体力
    If Dtime = 0
        IfColor 80,534,c7ef,1
            If Ttype=1
                KeyPress 13,1
                Mystring = "快没体力了,给我加点吧..."
                Gosub 说话
                KeyPress 27,3
            ElseIf Ttype=2
                KeyDown 50,1
                Delay 400
                KeyUp 50,1
                Delay 100
            EndIf 
        EndIf 
    EndIf 
Return 补充体力
Sub 更换武器
    If Wtype = 2 and Datediff("s",Wtime,now) >= 10
        KeyDown 120,1
        Delay 200
        KeyUp 120,1
        Wtime= now
    EndIf 
Return 更换武器
Sub 保存脚本设置
    set fso=CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(ScriptFolder & SettingFolder)
        fso.CreateFolder(ScriptFolder & SettingFolder)
    EndIf 
    set myfile=fso.OpenTextFile(ScriptFolder & SettingFolder & SettingFile,2,True)
    myfile.writeline "Htype=" & Htype
    myfile.writeline "Ctype=" & Ctype
    myfile.writeline "Ttype=" & Ttype
    myfile.writeline "Wtype=" & Wtype
    myfile.writeline "HPdelay=" & HPdelay
    myfile.writeline "HPlower=" & HPlower
    myfile.writeline "HPlowerColor=""" & HPlowerColor & """"
    myfile.writeline "CallForHelp=" & CallForHelp
    myfile.close
    set fso = nothing
    Mystring = "设置保存完毕..."
    Gosub 说话
Return 保存脚本设置
Sub 加载脚本设置
    set fso=CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(ScriptFolder & SettingFolder)
        fso.CreateFolder(ScriptFolder & SettingFolder)
    EndIf 
    set myfile=fso.OpenTextFile(ScriptFolder & SettingFolder & SettingFile,1,True)
    While myfile.atendofstream <>True
        linestring= Trim(myfile.readline)
        If linestring <> "" and linestring <> vbCr and linestring <> "#"
            Execute linestring