If Key  = 89
        Mystring = "选择[Y][确定]..."
        Gosub [说话]
        Gosub [材料列表]
    ElseIf Key  = 88
        Mystring= "选择[X][修改]材料[" & I+1 & "][" & Mid(BuyItem(I),6) &"]..."
        Gosub [说话]
        BuyItemCount = BuyItemCount-1
        Gosub [设置材料]
    ElseIf Key = 68
        Mystring = "选择[D][删除]材料[" & I+1 & "][" & Mid(BuyItem(I),6) &"]..."
        Gosub [说话]
        BuyItemCount = BuyItemCount-1
        For BuyItemCount-I
            BuyItem(I) = BuyItem(I+1)
            BuyItem_PosX(I) = BuyItem_PosX(I+1)
            BuyItem_PosY(I) = BuyItem_PosY(I+1)
            BuyItem_Page(I) = BuyItem_Page(I+1)
            BuyItem_Amount(I) = BuyItem_Amount(I+1)
        EndFor 
        Gosub [材料列表]
    EndIf 
Return [材料操作]
Sub [参数设置]
    Mystring = "│[参数设置]" & vblf
    Mystring = Mystring & "├" & String(11,"─") & vblf
    Mystring = Mystring & "│<1>材料列表" & String(5," ") & "..[" & BuyItemCount & "]种" & vblf
    Mystring = Mystring & "│<2>制品位置" & "..[" & MakeItem_Row & "]排[" & MakeItem_Col & "]列" & vblf
    Mystring = Mystring & "│<3>补体方式" & String(4," ") & "..["
    If Ttype = 1
        Mystring = Mystring & "食物"
    ElseIf Ttype = 2
        Mystring = Mystring & "魔法"
    EndIf 
    Mystring = Mystring & "]" & vblf
    Mystring= Mystring & "│<4>制作类型..["
    If Mtype = 1
        Mystring = Mystring & "只做不拣"
    ElseIf Mtype = 2
        Mystring = Mystring & "蓄成功率"
    ElseIf Mtype = 3
        Mystring = Mystring & "拣物出售"
    EndIf 
    Mystring = Mystring & "]" & vblf
    Mystring = Mystring &"│<5>满包出售清空..["
    If Stype = 1
        Mystring = Mystring & "禁用"
    Else Stype = 2
        Mystring = Mystring & "启用"
    EndIf 
    Mystring = Mystring & "]" & vblf
    Mystring= Mystring & "├" & String(11,"─") & vblf
    Mystring= Mystring & "│<Y>确定 <D>清空"
    If BuyItemCount > 0
        Mystring= Mystring &" <S>保存"
    EndIf 
    Gosub [说话]
    Gosub [等待按键]
    While (Key <49 Or Key >53) And Key <> 68 And (Key <> 83 Or BuyItemCount = 0) And Key <> 89
        Gosub [等待按键]
    EndWhile 
    If Key = 49
        If StoreName = ""
            Gosub [选择商店]
        EndIf 
        Gosub [材料列表]
        Gosub [参数设置]
    ElseIf Key = 50
        Mystring="选择[2][制作物品位置]..."
        Gosub [说话]
        Gosub [制作物品排]
        Gosub [制作物品列]
        Gosub [参数设置]
    ElseIf Key = 51
        Mystring="选择[3][补体方式]..."
        Gosub [说话]
        Gosub [补体方式]
        Gosub [参数设置]
    ElseIf Key = 52
        Mystring="选择[4][制作类型]..."
        Gosub [说话]
        Gosub [制作类型]
        Gosub [参数设置]
    ElseIf Key = 53
        Stype = 3- Stype
        Mystring = "选择[5]["
        If Stype = 1
            Mystring = Mystring & "禁用"
        ElseIf Stype = 2
            Mystring = Mystring & "启用"
        EndIf 
        Mystring = Mystring & "][满包出售清空]..."
        Gosub [说话]
        Gosub [参数设置]
    ElseIf Key = 68
        Mystring = "选择[D][清空][参数设置]..."
        Gosub [说话]
        BuyItemCount = 0
        Gosub [清空材料列表]
        ScriptName = ""