1.     否则如果(Key = 84 And BuyItemCount < 4)为真,则
  2.         Mystring= "选择[T][添加]材料[" & I+1 & "]..."
  3.         调用子程序 [说话]
  4.         调用子程序 [设置材料]
  5.     否则如果(Key = 83)为真,则
  6.         Mystring= "选择[S][商店类型]..."
  7.         调用子程序 [说话]
  8.         调用子程序 [选择商店]
  9.         调用子程序 [材料列表]
  10.     否则如果(Key = 68)为真,则
  11.         Mystring= "选择[D][清空][材料列表]..."
  12.         调用子程序 [说话]
  13.         调用子程序 [清空材料列表]
  14.         调用子程序 [材料列表]
  15.     否则如果(Key = 89)为真,则
  16.         如果表达式 (BuyItemCount >0) 为真,则
  17.             I=0
  18.             循环 BuyItemCount 遍
  19.                 如果表达式 (I>=1) 为真,则
  20.                     如果表达式 (BuyItem_Page(I)<>BuyItem_Page(I-1)) 为真,则
  21.                         Ptype=2
  22.                     条件结束
  23.                 条件结束
  24.                 I=I+1
  25.             循环结束
  26.         条件结束
  27.     条件结束
  28. 子程序结束,回到调用处
  29. 子程序 [设置材料]
  30.     如果表达式 (ItemList = "") 为真,则
  31.         调用子程序 [读取商店材料列表]
  32.     条件结束
  33.     Mystring = "│[" & StoreName & "]-材料[" & I+1 & "]" & vblf
  34.     Mystring = Mystring & "├─────────" & vblf
  35.     Mystring = Mystring & ItemList
  36.     调用子程序 [说话]
  37.     调用子程序 [等待按键]
  38.     如果表达式 (ItemCount < CInt("&H" & Chr(Key))) 为真,则循环执行
  39.         调用子程序 [等待按键]
  40.     循环结束
  41.     调用插件命令 BuyItem(I) =File.ReadINI(StoreName,Chr(Key),IniFile)
  42.     BuyItem(I) = Chr(Key) & BuyItem(I)
  43.     BuyItemCount= BuyItemCount+1
  44.     Mystring = "材料[" & I+1 & "]选择[" & Chr(Key) & "][" & Mid(BuyItem(I),6) & "]..."
  45.     调用子程序 [说话]
  46.     调用子程序 [设置材料个数]
  47. 子程序结束,回到调用处
  48. 子程序 [设置材料个数]
  49.     Cnt =0
  50.     BuyItem_PosX(I) = 466+((Mid(BuyItem(I),2,3)-1) mod 15 mod 5)*35
  51.     BuyItem_PosY(I) = 71+(((Mid(BuyItem(I),2,3)-1) Mod 15)\5)*35
  52.     BuyItem_Page(I) = (Mid(BuyItem(I),2,3)-1)\15+1
  53.     Mystring = "│材料[" & I+1 & "]-[" & Mid(BuyItem(I),6) & "]" & vblf
  54.     Mystring = Mystring & "├" & String(11,"─") & vblf
  55.     循环 6 遍
  56.         Cnt=Cnt+1
  57.         Mystring = Mystring & "│<" & Cnt & ">[" & Cnt*10 & "]个"& vblf
  58.     循环结束
  59.     Mystring = Mystring & "│<Z>自定义..."
  60.     调用子程序 [说话]
  61.     调用子程序 [等待按键]
  62.     如果表达式 ((Key <49 Or Key >Asc(Cnt)) And Key <>90) 为真,则循环执行
  63.         调用子程序 [等待按键]
  64.     循环结束
  65.     如果表达式 (Key = 90) 为真,则
  66.         标记 [自定义个数]
  67.         输入文本 "请输入购买材料[" & I+1 & "][" & Mid(BuyItem(I),6) & "]的数量:"
  68.         调用子程序 [取得数字]
  69.         如果表达式 (Numb > 72) 为真,则
  70.             Mystring = "物品栏最多只有[72]个位置,请重新输入..."
  71.             调用子程序 [说话]
  72.             跳转到标记 [自定义个数]
  73.         条件结束
  74.         BuyItem_Amount(I) = Numb
  75.         调用子程序 [材料操作]
  76.     否则
  77.         BuyItem_Amount(I) = Chr(Key)*10
  78.         Mystring = "材料[" & I+1 & "]-购买[" & Mid(BuyItem(I),6) & "][" & BuyItem_Amount(I) &"]个..."
  79.         调用子程序 [说话]
  80.         调用子程序 [材料操作]
  81.     条件结束
  82. 子程序结束,回到调用处
  83. 子程序 [材料操作]
  84.     Mystring = "│材料[" & I+1 & "]-["
  85.     如果表达式 (Len(Mid(BuyItem(I),6)) >5) 为真,则
  86.         Mystring = Mystring & Mid(BuyItem(I),6,4) & ".."
  87.     否则
  88.         Mystring = Mystring & Mid(BuyItem(I),6)
  89.     条件结束
  90.     Mystring = Mystring & "][" & BuyItem_Amount(I) & "]个"
  91.     如果表达式 (Len(Mid(BuyItem(I),6)) <5) 为真,则
  92.         Mystring = Mystring & vblf
  93.     条件结束
  94.     Mystring = Mystring & "├" & String(11,"─") & vblf
  95.     Mystring = Mystring & "│<Y>确定 <X>修改 <D>删除"
  96.     调用子程序 [说话]
  97.     调用子程序 [等待按键]
  98.     如果表达式 (Key <>88 And Key <>89 And Key <>68) 为真,则循环执行
  99.         调用子程序 [等待按键]
  100.     循环结束