1.     调用插件命令 Script = File.ReadINI("脚本",Hex(ScriptCount+1),IniFile)
  2.     如果表达式 (Script <> "0") 为真,则循环执行
  3.         ScriptList = ScriptList & "│<" & Hex(ScriptCount+1) & ">" & Left(Script,InStr(1,Script,",",1)-1) & vblf
  4.         ScriptCount = ScriptCount + 1
  5.         调用插件命令 Script = File.ReadINI("脚本",Hex(ScriptCount+1),IniFile)
  6.     循环结束
  7. 子程序结束,回到调用处
  8. 子程序 [删除脚本]
  9.     Cnt = 0
  10.     调用插件命令 Script = File.ReadINI("脚本",Chr(Asc(ScriptNum)+Cnt+1),IniFile)
  11.     如果表达式 (Script <> "0") 为真,则循环执行
  12.         调用插件命令 File.WriteINI("脚本",Chr(Asc(ScriptNum)+Cnt),Script,IniFile)
  13.         Cnt = Cnt + 1
  14.         调用插件命令 Script = File.ReadINI("脚本",Chr(Asc(ScriptNum)+Cnt+1),IniFile)
  15.     循环结束
  16.     调用插件命令 File.WriteINI("脚本",Chr(Asc(ScriptNum)+Cnt)," ",IniFile)
  17.     ScriptName = ""
  18. 子程序结束,回到调用处
  19. 子程序 [设置列表]
  20.     I=0
  21.     Mystring= "│["
  22.     如果表达式 (Mtype = 1) 为真,则
  23.         Mystring = Mystring & "只做不拣"
  24.     否则如果(Mtype = 2)为真,则
  25.         Mystring = Mystring & "蓄成功率"
  26.     否则如果(Mtype = 3)为真,则
  27.         Mystring = Mystring & "拣物出售"
  28.     条件结束
  29.     Mystring = Mystring & "] ["
  30.     如果表达式 (Ttype = 1) 为真,则
  31.         Mystring = Mystring & "食物"
  32.     否则如果(Ttype = 2)为真,则
  33.         Mystring = Mystring & "魔法"
  34.     条件结束
  35.     Mystring = Mystring & "]补体" & vblf
  36.     Mystring = Mystring & "├" & String(12,"─") & vblf
  37.     Mystring = Mystring & "│[材料]-[" & StoreName & "]" & vblf
  38.     Mystring = Mystring & "├" & String(8,"─") & vblf
  39.     循环 BuyItemCount 遍
  40.         Mystring= Mystring & "│[" & I+1 & "]" & Mid(BuyItem(I),6) & String(13-2*Len(Mid(BuyItem(I),6))," ") &"-[" & BuyItem_Amount(I) & "]个" & vblf
  41.         I=I+1
  42.     循环结束
  43.     Mystring = Mystring & "├" & String(12,"─") & vblf
  44.     Mystring = Mystring & "│[制品位置] -[" & MakeItem_Row & "]排[" & MakeItem_Col & "]列" & vblf
  45.     Mystring = Mystring & "├" & String(12,"─") & vblf
  46.     Mystring = Mystring & "│<Y>启动 <N>取消 <S>保存"
  47.     调用子程序 [说话]
  48.     调用子程序 [等待按键]
  49.     如果表达式 (Key <> 78 And Key <> 89 And Key <> 83) 为真,则循环执行
  50.         调用子程序 [等待按键]
  51.     循环结束
  52.     如果表达式 (Key = 78) 为真,则
  53.         Mystring = "选择[N][取消]返回[选择菜单]..."
  54.         调用子程序 [说话]
  55.         调用子程序 [选择菜单]
  56.     否则如果(Key = 89)为真,则
  57.         Mystring = "选择[Y][确定]启动脚本"
  58.         如果表达式 (ScriptName <> "") 为真,则
  59.             Mystring = Mystring & "[" & ScriptName & "]"
  60.         条件结束
  61.         Mystring = Mystring & "..."
  62.         调用子程序 [说话]
  63.         调用子程序 [数据预处理]
  64.         调用子程序 [防交易防震]
  65.         调用子程序 [工作]
  66.     否则如果(Key = 83)为真,则
  67.         Mystring = "选择[S][保存]脚本设置..."
  68.         调用子程序 [说话]
  69.         如果表达式 (ScriptName <> "") 为真,则
  70.             调用子程序 [保存设置]
  71.         否则
  72.             调用子程序 [设置脚本名]
  73.         条件结束
  74.         调用子程序 [设置列表]
  75.     条件结束
  76. 子程序结束,回到调用处
  77. 子程序 [脚本设置]
  78.     调用子程序 [读取脚本列表]
  79.     Mystring = "│[脚本设置]" & vblf
  80.     Mystring = Mystring & "├" & String(11,"─") & vblf
  81.     如果表达式 (ScriptList = "") 为真,则
  82.         Mystring = Mystring & "│<空>" & vblf
  83.     否则
  84.         Mystring = Mystring & ScriptList
  85.     条件结束
  86.     Mystring = Mystring & "├" & String(11,"─") & vblf
  87.     Mystring = Mystring & "│<R>返回主菜单 <T>添加"
  88.     调用子程序 [说话]
  89.     调用子程序 [等待按键]
  90.     如果表达式 (IsNumeric("&H" & Chr(Key))) 为真,则
  91.         Numb = CInt("&H" & Chr(Key))
  92.     否则
  93.         Numb = 16
  94.     条件结束
  95.     如果表达式 ((ScriptCount < Numb And Numb <> 0) And Key <> 82 And Key <> 84) 为真,则循环执行
  96.         调用子程序 [等待按键]
  97.         如果表达式 (IsNumeric("&H" & Chr(Key))) 为真,则
  98.             Numb = CInt("&H" & Chr(Key))
  99.         否则
  100.             Numb = 16