1.     Mystring = "脚本[" & ScriptName & "]保存完毕..."
  2.     调用子程序 [说话]
  3. 子程序结束,回到调用处
  4. 子程序 [加载脚本]
  5.     调用插件命令 Script = File.ReadINI("脚本",ScriptNum,IniFile)
  6.     ScriptArray = Split(Script,",",-1,1)
  7.     MakeItem_Row = ( Left(ScriptArray(1),3) -1)\5 +1
  8.     MakeItem_Col = ( Left(ScriptArray(1),3) -1) Mod 5 +1
  9.     Mtype = CInt(Mid(ScriptArray(1),4,1))
  10.     Ttype = CInt(Mid(ScriptArray(1),5,1))
  11.     Stype = CInt(Mid(ScriptArray(1),6,1))
  12.     StoreNum = Mid(ScriptArray(1),7,1)
  13.     StoreName = Mid(ScriptArray(1),8)
  14.     I = 0
  15.     BuyItemCount = UBound(ScriptArray)-1
  16.     循环 BuyItemCount 遍
  17.         BuyItem(I)= Mid(ScriptArray(I+2),3)
  18.         BuyItem_PosX(I)= 466+((Mid(BuyItem(I),2,3)-1) Mod 15 Mod 5)*35
  19.         BuyItem_PosY(I)= 71+(((Mid(BuyItem(I),2,3)-1) Mod 15)\5)*35
  20.         BuyItem_Page(I)= (Mid(BuyItem(I),2,3)-1)\15+1
  21.         如果表达式 (I>=1) 为真,则
  22.             如果表达式 (BuyItem_Page(I) <> BuyItem_Page(I-1)) 为真,则
  23.                 Ptype=2
  24.             条件结束
  25.         条件结束
  26.         BuyItem_Amount(I)= CInt(Left(ScriptArray(I+2),2))
  27.         I=I+1
  28.     循环结束
  29.     Erase ScriptArray
  30.     Mystring= "[" & ScriptName & "]设置加载完毕..."
  31.     调用子程序 [说话]
  32. 子程序结束,回到调用处
  33. //
  34. //--------------------------------------------------------------------------------