MakeItem_Row =1 :MakeItem_Col =1
        Mtype=1 :Ttype=1 :Ptype=1 :Stype=1
        ScriptHaved=0
        Gosub [参数设置]
    ElseIf Key = 83 And BuyItemCount > 0
        Mystring = "选择[S][保存设置]..."
        Gosub [说话]
        If ScriptName <> ""
            Gosub [保存设置]
        Else 
            Gosub [设置脚本名]
        EndIf 
        Gosub [参数设置]
    ElseIf Key = 89
        Gosub [选择菜单]
    EndIf 
Return [参数设置]
Sub [制作物品排]
    Cnt = 0
    Mystring= "│[制作物品位置]" & vblf
    Mystring= Mystring & "├" & String(11,"─")
    For 2
        Cnt = Cnt+1
        Mystring= Mystring & vblf & "│<" & Cnt & ">第[" & Cnt & "]排"
        If MakeItem_Row = Cnt
            Mystring = Mystring & " @"
        EndIf 
    EndFor 
    Gosub [说话]
    Gosub [等待按键]
    While Key < 49 Or Key > 50
        Gosub [等待按键]
    EndWhile 
    MakeItem_Row= CInt(Chr(Key))
    Mystring = "[制作物品]位于第[" & MakeItem_Row & "]排..."
    Gosub [说话]
Return [制作物品排]
Sub [制作物品列]
    Cnt = 0
    Mystring= "│[制作物品位置]-[" & MakeItem_Row & "]排" & vblf
    Mystring= Mystring & "├" & String(11,"─")
    For 5
        Cnt = Cnt+1
        Mystring= Mystring & vblf & "│<" & Cnt & ">第[" & Cnt & "]列"
        If MakeItem_Col = Cnt
            Mystring= Mystring & " @"
        EndIf 
    EndFor 
    Gosub [说话]
    Gosub [等待按键]
    While Key < 49 Or Key > 53
        Gosub [等待按键]
    EndWhile 
    MakeItem_Col= CInt(Chr(Key))
    Mystring = "[制作物品]位于第[" & MakeItem_Col & "]列..."
    Gosub [说话]
Return [制作物品列]
Sub [补体方式]
    Mystring="│[补体方式]" & vblf
    Mystring= Mystring & "├" & String(7,"─") &vblf
    Mystring= Mystring & "│<1>食物"
    If Ttype = 1
        Mystring= Mystring & " @"
    EndIf 
    Mystring= Mystring & vblf
    Mystring= Mystring & "│<2>魔法"
    If Ttype = 2
        Mystring= Mystring & " @"
    EndIf 
    Gosub [说话]
    Gosub [等待按键]
    While Key < 49 Or Key > 50
        Gosub [等待按键]
    EndWhile 
    Ttype = CInt(Chr(Key))
    Mystring = "[补体方式]选择[" & Ttype & "]["
    If Ttype = 1
        Mystring = Mystring & "食物"
    ElseIf Ttype = 2
        Mystring = Mystring & "魔法"
    EndIf 
    Mystring = Mystring & "]..."
    Gosub [说话]
Return [补体方式]
Sub [制作类型]
    Mystring= "│[制作类型]" & vblf
    Mystring= Mystring & "├" & String(7,"─") & vblf
    Mystring= Mystring & "│<1>只做不拣"
    If Mtype =1
        Mystring= Mystring & " @"
    EndIf 
    Mystring= Mystring & vblf & "│<2>蓄成功率"
    If Mtype =2
        Mystring= Mystring & " @"
    EndIf 
    Mystring= Mystring & vblf & "│<3>拣物出售"
    If Mtype =3
        Mystring= Mystring & " @"
    EndIf 
    Mystring= Mystring & vblf