//-------------------------------------------------  [用户初值设置] ------------
//
//-------------- [脚本安装目录]
//
UserVar ScriptFolder=[Setting.ini]的绝对路径 [Setting 路径]
//
//-------------- [拣物点击延迟] 单位:毫秒
//
UserVar CDelay=5 [拣物点击延迟]
//
//-------------- [制造类型] 1.只做不拣 2.蓄成功率 3.拣物出售
//
UserVar Mtype=1 [制造类型]
//
//-------------- [补体方式] 1.食物 2.魔法
//
UserVar Ttype=1 [补体方式]
//
//-------------- [满包出售清空] 1.禁用 2.启用
//
UserVar Stype=1 [满包出售清空]
//
//-------------- [制造物品位置] 排: 1-2 列:1-5
//
//----- 排
UserVar MakeItem_Row=1 [制造物品排]
//----- 列
UserVar MakeItem_Col=1 [制造物品列]
//
//--------------------------------------------------------------------------------
//
//-------------------------------------------------  [一般变量定义 ]
//
IniFile = ScriptFolder & "\Setting.ini"
Plugin file = File.ExistFile(IniFile)
If file <> 1
    Plugin IniFile = File.SelectFile()
EndIf 
Dim BuyItem(4),BuyItem_PosX(4),BuyItem_PosY(4),BuyItem_Page(4),BuyItem_Amount(4)
StoreList = "" : ItemList = "" : ScriptList ="":StoreName = ""
BuyItemCount = 0 :ScriptHaved = 0 :Ptype = 1
//
//-------------------------------------------------  [脚本流程]
//
KeyPress 13 1
Delay 50
Mystring = "[羽枫进阶工作脚本][4.0]版...By CDK1 YS 飘飘的枫"
Gosub [说话]
Gosub [选择菜单]
EndScript 
//
//-------------------------------------------------  [过程定义]
//
Sub [读取商店列表]
    StoreList = ""
    StoreCount = 0
    Plugin Store = File.ReadINI("商店",Hex(StoreCount+1),IniFile)
    While Store <> "0"
        StoreList = StoreList & "│<" & Hex(StoreCount+1) & ">" & Store & vblf
        StoreCount = StoreCount + 1
        Plugin Store = File.ReadINI("商店",Hex(StoreCount+1),IniFile)
    EndWhile 
Return [读取商店列表]
Sub [读取商店材料列表]
    ItemList = ""
    ItemCount = 0
    Plugin Item = File.ReadINI(StoreName,Hex(ItemCount+1),IniFile)
    While Item <> "0"
        ItemList = ItemList & "│<" &  Hex(ItemCount+1) & ">" & Mid(Item,5) & vblf
        ItemCount = ItemCount + 1
        Plugin Item = File.ReadINI(StoreName,Hex(ItemCount+1),IniFile)
    EndWhile 
Return [读取商店材料列表]
Sub [工作]
    Rem [开始工作]
    KeyPress 32 2
    Delay 200
    KeyPress 32 2
    Delay 200
    Gosub [补充体力]
    RestoreMousePos 
    Delay 100
    KeyPress 13 2
    Delay 100
    Boss = Boss + 1
    Mystring= "BOSS[" & Boss & "]次｜羽枫进阶工作脚本[4.0]版｜制作[" & Make & "]出售[" & Sale & "]次..."
    Gosub [说话]
    stime = now()
    Rem [买卖界面]
    IfColor 485 73 8c9aad 1
        If DateDiff("s",stime,now()) < 5
            Delay 100
            Goto [买卖界面]
        Else 
            Gosub [取消国战]
            If Ptype = 2
                Gosub [购买取消]
            EndIf 
            KeyPress 27 3
            Delay 300