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