1.     如果表达式 (Key = 89) 为真,则
  2.         Mystring = "选择[Y][确定]..."
  3.         调用子程序 [说话]
  4.         调用子程序 [材料列表]
  5.     否则如果(Key = 88)为真,则
  6.         Mystring= "选择[X][修改]材料[" & I+1 & "][" & Mid(BuyItem(I),6) &"]..."
  7.         调用子程序 [说话]
  8.         BuyItemCount = BuyItemCount-1
  9.         调用子程序 [设置材料]
  10.     否则如果(Key = 68)为真,则
  11.         Mystring = "选择[D][删除]材料[" & I+1 & "][" & Mid(BuyItem(I),6) &"]..."
  12.         调用子程序 [说话]
  13.         BuyItemCount = BuyItemCount-1
  14.         循环 BuyItemCount-I 遍
  15.             BuyItem(I) = BuyItem(I+1)
  16.             BuyItem_PosX(I) = BuyItem_PosX(I+1)
  17.             BuyItem_PosY(I) = BuyItem_PosY(I+1)
  18.             BuyItem_Page(I) = BuyItem_Page(I+1)
  19.             BuyItem_Amount(I) = BuyItem_Amount(I+1)
  20.         循环结束
  21.         调用子程序 [材料列表]
  22.     条件结束
  23. 子程序结束,回到调用处
  24. 子程序 [参数设置]
  25.     Mystring = "│[参数设置]" & vblf
  26.     Mystring = Mystring & "├" & String(11,"─") & vblf
  27.     Mystring = Mystring & "│<1>材料列表" & String(5," ") & "..[" & BuyItemCount & "]种" & vblf
  28.     Mystring = Mystring & "│<2>制品位置" & "..[" & MakeItem_Row & "]排[" & MakeItem_Col & "]列" & vblf
  29.     Mystring = Mystring & "│<3>补体方式" & String(4," ") & "..["
  30.     如果表达式 (Ttype = 1) 为真,则
  31.         Mystring = Mystring & "食物"
  32.     否则如果(Ttype = 2)为真,则
  33.         Mystring = Mystring & "魔法"
  34.     条件结束
  35.     Mystring = Mystring & "]" & vblf
  36.     Mystring= Mystring & "│<4>制作类型..["
  37.     如果表达式 (Mtype = 1) 为真,则
  38.         Mystring = Mystring & "只做不拣"
  39.     否则如果(Mtype = 2)为真,则
  40.         Mystring = Mystring & "蓄成功率"
  41.     否则如果(Mtype = 3)为真,则
  42.         Mystring = Mystring & "拣物出售"
  43.     条件结束
  44.     Mystring = Mystring & "]" & vblf
  45.     Mystring = Mystring &"│<5>满包出售清空..["
  46.     如果表达式 (Stype = 1) 为真,则
  47.         Mystring = Mystring & "禁用"
  48.     否则
  49.         Mystring = Mystring & "启用"
  50.     条件结束
  51.     Mystring = Mystring & "]" & vblf
  52.     Mystring= Mystring & "├" & String(11,"─") & vblf
  53.     Mystring= Mystring & "│<Y>确定 <D>清空"
  54.     如果表达式 (BuyItemCount > 0) 为真,则
  55.         Mystring= Mystring &" <S>保存"
  56.     条件结束
  57.     调用子程序 [说话]
  58.     调用子程序 [等待按键]
  59.     如果表达式 ((Key <49 Or Key >53) And Key <> 68 And (Key <> 83 Or BuyItemCount = 0) And Key <> 89) 为真,则循环执行
  60.         调用子程序 [等待按键]
  61.     循环结束
  62.     如果表达式 (Key = 49) 为真,则
  63.         如果表达式 (StoreName = "") 为真,则
  64.             调用子程序 [选择商店]
  65.         条件结束
  66.         调用子程序 [材料列表]
  67.         调用子程序 [参数设置]
  68.     否则如果(Key = 50)为真,则
  69.         Mystring="选择[2][制作物品位置]..."
  70.         调用子程序 [说话]
  71.         调用子程序 [制作物品排]
  72.         调用子程序 [制作物品列]
  73.         调用子程序 [参数设置]
  74.     否则如果(Key = 51)为真,则
  75.         Mystring="选择[3][补体方式]..."
  76.         调用子程序 [说话]
  77.         调用子程序 [补体方式]
  78.         调用子程序 [参数设置]
  79.     否则如果(Key = 52)为真,则
  80.         Mystring="选择[4][制作类型]..."
  81.         调用子程序 [说话]
  82.         调用子程序 [制作类型]
  83.         调用子程序 [参数设置]
  84.     否则如果(Key = 53)为真,则
  85.         Stype = 3- Stype
  86.         Mystring = "选择[5]["
  87.         如果表达式 (Stype = 1) 为真,则
  88.             Mystring = Mystring & "禁用"
  89.         否则如果(Stype = 2)为真,则
  90.             Mystring = Mystring & "启用"
  91.         条件结束
  92.         Mystring = Mystring & "][满包出售清空]..."
  93.         调用子程序 [说话]
  94.         调用子程序 [参数设置]
  95.     否则如果(Key = 68)为真,则
  96.         Mystring = "选择[D][清空][参数设置]..."
  97.         调用子程序 [说话]
  98.         BuyItemCount = 0
  99.         调用子程序 [清空材料列表]
  100.         ScriptName = ""