Plugin Script = File.ReadINI("脚本",Hex(ScriptCount+1),IniFile)
    While Script <> "0"
        ScriptList = ScriptList & "│<" &  Hex(ScriptCount+1) & ">" & Left(Script,InStr(1,Script,",",1)-1) & vblf
        ScriptCount = ScriptCount + 1
        Plugin Script = File.ReadINI("脚本",Hex(ScriptCount+1),IniFile)
    EndWhile 
Return [读取脚本列表]
Sub [删除脚本]
    Cnt = 0
    Plugin Script = File.ReadINI("脚本",Chr(Asc(ScriptNum)+Cnt+1),IniFile)
    While Script <> "0"
        Plugin File.WriteINI("脚本",Chr(Asc(ScriptNum)+Cnt),Script,IniFile)
        Cnt = Cnt + 1
        Plugin Script = File.ReadINI("脚本",Chr(Asc(ScriptNum)+Cnt+1),IniFile)
    EndWhile 
    Plugin File.WriteINI("脚本",Chr(Asc(ScriptNum)+Cnt)," ",IniFile)
    ScriptName = ""
Return [删除脚本]
Sub [设置列表]
    I=0
    Mystring= "│["
    If Mtype = 1
        Mystring = Mystring & "只做不拣"
    ElseIf Mtype = 2
        Mystring = Mystring & "蓄成功率"
    ElseIf Mtype = 3
        Mystring = Mystring & "拣物出售"
    EndIf 
    Mystring = Mystring & "] ["
    If Ttype = 1
        Mystring = Mystring & "食物"
    ElseIf Ttype = 2
        Mystring = Mystring & "魔法"
    EndIf 
    Mystring = Mystring & "]补体" & vblf
    Mystring = Mystring & "├" & String(12,"─") & vblf
    Mystring = Mystring & "│[材料]-[" & StoreName & "]" & vblf
    Mystring = Mystring & "├" & String(8,"─") & vblf
    For BuyItemCount
        Mystring= Mystring & "│[" & I+1 & "]" & Mid(BuyItem(I),6) & String(13-2*Len(Mid(BuyItem(I),6))," ") &"-[" & BuyItem_Amount(I) & "]个" & vblf
        I=I+1
    EndFor 
    Mystring = Mystring & "├" & String(12,"─") & vblf
    Mystring = Mystring & "│[制品位置] -[" & MakeItem_Row & "]排[" & MakeItem_Col & "]列" & vblf
    Mystring = Mystring & "├" & String(12,"─") & vblf
    Mystring = Mystring & "│<Y>启动 <N>取消 <S>保存"
    Gosub [说话]
    Gosub [等待按键]
    While Key <> 78 And Key <> 89 And Key <> 83
        Gosub [等待按键]
    EndWhile 
    If Key = 78
        Mystring = "选择[N][取消]返回[选择菜单]..."
        Gosub [说话]
        Gosub [选择菜单]
    ElseIf Key = 89
        Mystring = "选择[Y][确定]启动脚本"
        If ScriptName <> ""
            Mystring = Mystring & "[" & ScriptName & "]"
        EndIf 
        Mystring = Mystring & "..."
        Gosub [说话]
        Gosub [数据预处理]
        Gosub [防交易防震]
        Gosub [工作]
    ElseIf Key = 83
        Mystring = "选择[S][保存]脚本设置..."
        Gosub [说话]
        If ScriptName <> ""
            Gosub [保存设置]
        Else 
            Gosub [设置脚本名]
        EndIf 
        Gosub [设置列表]
    EndIf 
Return [设置列表]
Sub [脚本设置]
    Gosub [读取脚本列表]
    Mystring = "│[脚本设置]" & vblf
    Mystring = Mystring & "├" & String(11,"─") & vblf
    If ScriptList = ""
        Mystring = Mystring & "│<空>" & vblf
    Else 
        Mystring = Mystring & ScriptList
    EndIf 
    Mystring = Mystring & "├" & String(11,"─") & vblf
    Mystring = Mystring & "│<R>返回主菜单 <T>添加"
    Gosub [说话]
    Gosub [等待按键]
    If IsNumeric("&H" & Chr(Key))
        Numb = CInt("&H" & Chr(Key))
    Else 
        Numb = 16
    EndIf 
    While (ScriptCount < Numb And Numb <> 0) And Key <> 82 And Key <> 84
        Gosub [等待按键]
        If IsNumeric("&H" & Chr(Key))
            Numb = CInt("&H" & Chr(Key))
        Else 
            Numb = 16