Gosub [说话]
    Gosub [等待按键]
    While Key < 49 Or Key > 51
        Gosub [等待按键]
    EndWhile 
    Mtype = CInt(Chr(Key))
    Mystring= "[制作类型]选择[" & Mtype &"]["
    If Mtype = 1
        Mystring= Mystring & "只做不拣"
    ElseIf Mtype = 2
        Mystring= Mystring & "蓄成功率"
    ElseIf Mtype = 3
        Mystring= Mystring & "拣物出售"
    EndIf 
    Mystring= Mystring & "]..."
    Gosub [说话]
Return [制作类型]
Sub [选择菜单]
    Mystring="│[选择菜单]" & vblf
    Mystring= Mystring & "├" & String(8,"─") &vblf
    Mystring= Mystring & "│<C>参数设置" & vblf
    Mystring= Mystring & "│<F>脚本设置" & vblf
    If BuyItemCount > 0
        Mystring= Mystring & "│<S>保存设置" & vblf
        Mystring= Mystring & "│<Y>启动脚本@"
    EndIf 
    Gosub [说话]
    Gosub [等待按键]
    While Key <> 67 And Key <> 70 And (Key <> 83 Or BuyItemCount = 0) And (Key <> 89 Or BuyItemCount = 0)
        Gosub [等待按键]
    EndWhile 
    If Key = 67
        Mystring= "选择[C][参数设置]..."
        Gosub [说话]
        Gosub [参数设置]
    ElseIf Key = 70
        Mystring= "选择[F][脚本设置]..."
        Gosub [说话]
        Gosub [脚本设置]
    ElseIf Key = 83 And BuyItemCount > 0
        Mystring= "选择[S][保存设置]..."
        Gosub [说话]
        If ScriptName <> ""
            Gosub [保存设置]
        Else 
            Gosub [设置脚本名]
        EndIf 
        Gosub [选择菜单]
    ElseIf Key = 89 And BuyItemCount > 0
        Mystring= "选择[Y][启动脚本]..."
        Gosub [说话]
        Gosub [设置列表]
    EndIf 
Return [选择菜单]
Sub [脚本操作]
    Mystring= "│[脚本] -[" & ScriptName & "] " & vblf
    Mystring= Mystring & "├" & String(11,"─") & vblf
    Mystring= Mystring & "│<Y>加载 <N>取消 <D>删除"
    Gosub [说话]
    Gosub [等待按键]
    While Key <> 68 And Key <> 78 And Key <> 89
        Gosub [等待按键]
    EndWhile 
    If Key = 68
        Mystring="选择[D]删除脚本[" & ScriptName & "]..."
        Gosub [说话]
        Gosub [确认删除脚本]
        Gosub [脚本设置]
    ElseIf Key = 78
        Mystring="选择[N][取消]返回[脚本设置]..."
        Gosub [说话]
        Gosub [脚本设置]
    ElseIf Key = 89
        Mystring="选择[Y]加载脚本[" & ScriptName & "]..."
        Gosub [说话]
        Gosub [加载脚本]
        Gosub [设置列表]
    EndIf 
Return [脚本操作]
Sub [确认删除脚本]
    Mystring= "│[删除] -[" & ScriptName & "]" & vblf
    Mystring= Mystring & "├" & String(11,"─") & vblf
    Mystring= Mystring & "│<Y>确定 <N>取消 "
    Gosub [说话]
    Gosub [等待按键]
    While Key <> 89 And Key <> 78
        Gosub [等待按键]
    EndWhile 
    If Key = 89
        Mystring = "选择[Y][确定][删除]脚本[" & ScriptName & "]..."
        Gosub [说话]
        Gosub [删除脚本]
    ElseIf Key = 78
        Mystring = "选择[N][取消]返回[脚本设置]..."
        Gosub [说话]
    EndIf 
Return [确认删除脚本]
Sub [读取脚本列表]
    ScriptList =""
    ScriptCount = 0