If Key = 78
        Mystring = "选择[N][取消]返回[选择菜单]..."
        Gosub [说话]
    ElseIf Key = 89
        Mystring = "选择[Y][确定][覆盖]脚本[" & ScriptName &"]..."
        Gosub [说话]
        If strURL <> ""
            ScriptName = strURL
        EndIf 
        strURL = ""
        ScriptNum = ScriptHaved
        Gosub [保存脚本]
    EndIf 
Return [确认覆盖设置]
Sub [设置脚本名]
    Rem [脚本名设置]
    Mystring="│[设置脚本名]" & vblf
    Mystring= Mystring & "├" & String(7,"─") &vblf
    Mystring= Mystring & "│复制到剪贴板" & vblf
    Mystring= Mystring & "│然后按[回车]" & vblf
    Gosub [说话]
    Rem [脚本名检测]
    WaitKey Key
    If Key = 13
        Gosub [取得剪贴板]
        If strURL = ""
            Mystring = "[脚本名不能为空]..."
            Gosub [说话]
            Goto [脚本名设置]
        Else 
            ScriptHaved = 0
            ScriptCount = 0
            Plugin Script = File.ReadINI("脚本",Hex(ScriptCount+1),IniFile)
            While Script <> "0"
                If strURL = Left(Script,InStr(1,Script,",",1)-1)
                    ScriptHaved = Hex(ScriptCount+1)
                EndIf 
                ScriptCount = ScriptCount + 1
                Plugin Script = File.ReadINI("脚本",Hex(ScriptCount+1),IniFile)
            EndWhile 
            If ScriptHaved = 0
                Mystring = "保存为[" & strURL & "]..."
                Gosub [说话]
                Gosub [确认保存设置]
            ElseIf ScriptHaved > 0
                Mystring = "脚本[" & strURL & "]已存在..."
                Gosub [说话]
                Gosub [确认覆盖设置]
            EndIf 
        EndIf 
    Else 
        Goto [脚本名检测]
    EndIf 
Return [设置脚本名]
Sub [保存设置]
    Mystring ="│[覆盖] -[" & ScriptName &"]" & vblf
    Mystring = Mystring & "├" & String(11,"─") & vblf
    Mystring = Mystring & "│<Y>确定 <N>取消 <A>另存" & vblf
    Gosub [说话]
    Gosub [等待按键]
    While Key <> 89 And Key <> 78 And Key <> 65
        Gosub [等待按键]
    EndWhile 
    If Key = 89
        Mystring= "选择[Y][覆盖][" & ScriptName &"]..."
        Gosub [说话]
        Gosub [保存脚本]
    ElseIf Key = 78
        Mystring = "选择[N][取消]..."
        Gosub [说话]
    ElseIf Key = 65
        Mystring = "选择[A][另存]..."
        Gosub [说话]
        Gosub [设置脚本名]
    EndIf 
Return [保存设置]
Sub [清空材料列表]
    BuyItemCount=0
    Erase BuyItem
    Erase BuyItem_PosX
    Erase BuyItem_PosY
    Erase BuyItem_Page
    Erase BuyItem_Amount
Return [清空材料列表]
Sub [保存脚本]
    Script = ScriptName & ","
    For 3-Len((MakeItem_Row-1)*5+MakeItem_Col)
        Script = Script & "0"
    EndFor 
    Script = Script & (MakeItem_Row-1)*5+MakeItem_Col & Mtype & Ttype & Stype & StoreNum & StoreName
    I=0
    For BuyItemCount
        Script = Script & ","
        For 2-Len(BuyItem_Amount(I))
            Script = Script & "0"
        EndFor 
        Script = Script & BuyItem_Amount(I) & BuyItem(I)
        I = I + 1
    EndFor 
    Plugin File.WriteINI("脚本",ScriptNum,Script,IniFile)