EndIf 
    EndWhile 
    If Key = 82
        Mystring = "选择[R]返回[选择菜单]..."
        Gosub [说话]
        Gosub [选择菜单]
    ElseIf Key = 84
        Mystring = "选择[T][添加]脚本..."
        Gosub [说话]
        Gosub [清空材料列表]
        StoreName = "" :ScriptName = ""
        ScriptHaved=0
        Mystring="[选择商店]..."
        Gosub [说话]
        Gosub [选择商店]
        Mystring="设置[材料列表]..."
        Gosub [说话]
        Rem [设置材料]
        Gosub [材料列表]
        If BuyItemCount = 0
            Mystring="[材料列表]不能为<空>,请重新设置..."
            Gosub [说话]
            Goto [设置材料]
            Gosub [说话]
        EndIf 
        Mystring="取得[制作物品位置]..."
        Gosub [说话]
        Gosub [制作物品排]
        Gosub [制作物品列]
        Mystring="取得[补体方式]..."
        Gosub [说话]
        Gosub [补体方式]
        Mystring="取得[制作类型]..."
        Gosub [说话]
        Gosub [制作类型]
        Mystring="设置[脚本名]..."
        Gosub [说话]
        Gosub [设置脚本名]
        Gosub [脚本设置]
    Else 
        ScriptNum = Chr(Key)
        Plugin Script = File.ReadINI("脚本",ScriptNum,IniFile)
        ScriptName =  Left(Script,InStr(1,Script,",",1)-1)
        Mystring="选择脚本[" & ScriptNum & "][" & ScriptName & "]..."
        Gosub [说话]
        Gosub [脚本操作]
    EndIf 
Return [脚本设置]
Sub [取得剪贴板]
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate("about:blank")
    strURL = objIE.document.parentwindow.clipboardData.GetData("text")
    objIE.Quit
    strURL = Replace(strURL,vbCrLf,"",1)
    strURL = Replace(strURL,vbLf,"",1)
    strURL = Replace(strURL,"#","",1)
    strURL = Replace(strURL,",","",1)
    strURL = Replace(strURL,"│","",1)
    strURL = Trim(Left(strURL,6))
Return [取得剪贴板]
Sub [确认保存设置]
    Mystring="│[保存] -[" & strURL &"]" & vblf
    Mystring= Mystring & "├" & String(11,"─") & vblf
    Mystring= Mystring & "│<Y>确定 <N>取消" & vblf
    Gosub [说话]
    Gosub [等待按键]
    While Key <> 89 And Key <> 78
        Gosub [等待按键]
    EndWhile 
    If Key = 89
        Mystring = "选择[Y][确定][保存]脚本[" & strURL & "]..."
        Gosub [说话]
        If ScriptCount >= 15
            Mystring = "脚本个数已超出上限..."
            Gosub [说话]
        Else 
            ScriptName = strURL
            ScriptNum = Hex(ScriptCount + 1)
            Gosub [保存脚本]
        EndIf 
    ElseIf Key = 78
        Mystring = "选择[N][取消]..."
        Gosub [说话]
    EndIf 
Return 确认保存设置
Sub [确认覆盖设置]
    If strURL <> ""
        Mystring="│[覆盖] -[" & strURL &"]" & vblf
    Else 
        If ScriptName <> ""
            Mystring="│[覆盖] -[" & ScriptName &"]" & vblf
        EndIf 
    EndIf 
    Mystring= Mystring & "├" & String(11,"─") & vblf
    Mystring= Mystring & "│<Y>确定 <N>取消" & vblf
    Gosub [说话]
    Gosub [等待按键]
    While Key <> 89 And Key <> 78
        Gosub [等待按键]
    EndWhile