Mystring = "脚本[" & ScriptName & "]保存完毕..."
    Gosub [说话]
Return [保存脚本]
Sub [加载脚本]
    Plugin Script = File.ReadINI("脚本",ScriptNum,IniFile)
    ScriptArray = Split(Script,",",-1,1)
    MakeItem_Row = ( Left(ScriptArray(1),3) -1)\5 +1
    MakeItem_Col = ( Left(ScriptArray(1),3) -1) Mod 5 +1
    Mtype = CInt(Mid(ScriptArray(1),4,1))
    Ttype = CInt(Mid(ScriptArray(1),5,1))
    Stype = CInt(Mid(ScriptArray(1),6,1))
    StoreNum = Mid(ScriptArray(1),7,1)
    StoreName = Mid(ScriptArray(1),8)
    I = 0
    BuyItemCount = UBound(ScriptArray)-1
    For BuyItemCount
        BuyItem(I)= Mid(ScriptArray(I+2),3)
        BuyItem_PosX(I)= 466+((Mid(BuyItem(I),2,3)-1) Mod 15 Mod 5)*35
        BuyItem_PosY(I)= 71+(((Mid(BuyItem(I),2,3)-1) Mod 15)\5)*35
        BuyItem_Page(I)= (Mid(BuyItem(I),2,3)-1)\15+1
        If I>=1
            If BuyItem_Page(I) <> BuyItem_Page(I-1)
                Ptype=2
            EndIf 
        EndIf 
        BuyItem_Amount(I)= CInt(Left(ScriptArray(I+2),2))
        I=I+1
    EndFor 
    Erase ScriptArray
    Mystring= "[" &  ScriptName & "]设置加载完毕..."
    Gosub [说话]
Return [加载脚本]
//
//--------------------------------------------------------------------------------