UserVar liaoli=50 料理恢复度
UserVar Cl=100 料理存量
//货物位置是打开的那个窗口左上角第一格为1,使用前请先打开窗口看下
//货物位置请从小到大排以免出错,丢弃货物位置要先点"丢弃货物"再看
UserVar DH1=3 要丢的货物1的位置
UserVar DH2=4 要丢的货物2的位置
UserVar DH3=5 要丢的货物3的位置
//每五分钟能采集40次看船舱和采集等级定
UserVar Jtime=3 丢货间隔时间单位(分钟)
//数字"1"为启用"0"为不启用
UserVar Pd0=1 是否启用自动切换窗口
UserVar Pd1=1 是否启用丢弃货物
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwn=Window.GetKeyFocusWnd()
//设置结束
Delay 1000
Gosub 采集通用版
Rem 结束
EndScript 
Sub 采集通用版
    lun=(Jtime*600)\((liaoli\5)*75)
    y=Cl\lun+1
    For y
        Gosub 采集
        If Pd0=1
            Gosub 激活窗口
        EndIf 
        If Pd1=1
            huo1=DH1:huo2=DH2:huo3=DH3
            Gosub 丢垃圾
        EndIf 
        If Pd0=1
            Gosub 返回窗口
        EndIf 
    EndFor 
Return 采集通用版
//系统默认自定义栏F10、F11使用技能(用于纠错) 设置快捷键 F1采集或搜索、 F2匹萨
//参数lun 采集一轮吃一次料理
Sub 采集
    For lun
        ci=liaoli\5
        For ci
            Plugin Window.SendKeyPress(hwn,121)
            Delay 1500
            Plugin Window.SendKeyPress(hwn,112)
            Delay 1000
            Plugin Window.SendKeyPress(hwn,122)
            Delay 5000
        EndFor 
        Plugin Window.SendKeyPress(hwn,121)
        Delay 1000
        Plugin Window.SendKeyPress(hwn,113)
        Delay 1000
        Plugin Window.SendKeyPress(hwn,122)
        Delay 1000
        Plugin Window.SendKeyPress(hwn,27)
        Delay 600
    EndFor 
Return 采集
Sub 丢垃圾
    Delay 500
    Plugin Window.SendKeyPress(hwn,118)
    Delay 1800
    VBS ax=429:ay=366
    Gosub 移动鼠标
    Delay 1000
    LeftClick 1
    Delay 1000
    For 10
        If huo1>0
            ax=92+((huo1+4) MOD 5)*56
            ay=114+((huo1-1)\5)*56
            Gosub 移动鼠标
            LeftClick 1
            Delay 700
            MoveR 119 124
            LeftClick 1
            Delay 700
            MoveR 0 73
            LeftClick 1
            Delay 700
        EndIf 
        huo1=huo2-1:huo2=huo3-1:huo3=huo4-1
        huo4=huo5-1:huo5=huo6-1:huo6=huo7-1
        huo7=huo8-1:huo8=huo9-1;huo9=huo10-1
        huo10=0
    EndFor 
    VBS ax=630:ay=391
    Gosub 移动鼠标
    LeftClick 1
    Delay 600
    ax=400:ay=300
    Gosub 移动鼠标
    RightClick 1
    Delay 600
Return 丢垃圾
Sub 移动鼠标
    Plugin winRect=Window.GetClientRect(hwn)
    winPoint = Split(winRect, "|", -1, 1)
    bx = CInt(winPoint(0)) + ax