HodakDu的***采集&自动生产脚本（2）

2007-03-15　　　　　　　　　　 【 加入收藏 / 文章投稿 / 截图上传 / 发表评论 】

//料理检查
Sub 料理检查
    CurrentFoodNo = 0
    Gosub 当前时间
    Message = CurrentTime & "检查料理数量......"
    Gosub 输出消息
    Plugin Window.SendKeyPress(hwn,122)
    Delay 2000
    Plugin Window.SendKeyPress(hwn,112)
    Delay 2000
    PosX = 690
    PosY = 111
    Gosub 坐标转换
    IfColor PosX PosY ffffff 0
        CurrentFoodNo = 1
        Goto 料理检查结束
    EndIf
    PosX = 690
    PosY = 165
    Gosub 坐标转换
    IfColor PosX PosY ffffff 0
        CurrentFoodNo = 2
        Goto 料理检查结束
    EndIf
    PosX = 690
    PosY = 219
    Gosub 坐标转换
    IfColor PosX PosY ffffff 0
        CurrentFoodNo = 3
        Goto 料理检查结束
    EndIf
    Rem 料理检查结束
    Gosub 当前时间
    If CurrentFoodNo = 0
        EndFlag = 1
        Message = CurrentTime & "料理全部用完......, 自动登出游戏......"
        Gosub 输出消息
        Gosub 自动登出
        Goto 脚本结束
    Else
        Gosub 当前时间
        Message = CurrentTime & "当前使用料理: " & Food_Name(CurrentFoodNo)
        Gosub 输出消息
    EndIf
Return 料理检查
//窗口初始化
Sub 窗口初始化
    //ESC键
    Plugin Window.SendKeyPress(hwn,27)
    Delay 500
    Plugin Window.SendKeyPress(hwn,27)
    PosX = 400 : PosY = 300
    Gosub 移动鼠标
    RightClick 1
    Delay 500
Return 窗口初始化
//执行展销货物
Sub 执行展销货物
    If AutoSellGoods <> 1
        GoodsSetCount = 1
        For GoodsCount
            Goods_SellPrice(GoodsSetCount) = Goods_Price(GoodsSetCount)
            GoodsSetCount = GoodsSetCount + 1
        EndFor
    Else
        Gosub 价格调整
        GoodsSetCount = 1
        For GoodsCount
            If (Goods_SellPrice(GoodsSetCount) > 0) And (Goods_Name(GoodsSetCount) <> "")
                Gosub 露天展销
                Goto 完成展销
            EndIf
            GoodsSetCount = GoodsSetCount + 1
        EndFor
        Rem 完成展销
        If AutoSayPrice = 1
            Gosub 自动报价
        EndIf
    EndIf
Return 执行展销货物
//执行丢弃货物
Sub 执行丢弃货物
    GoodsSetCount = 1
    For GoodsCount
        If (Goods_SellPrice(GoodsSetCount) = 0) And (Goods_Name(GoodsSetCount) <> "")
            Gosub 丢弃货物
            Goto 完成丢弃
        EndIf
        GoodsSetCount = GoodsSetCount + 1
    EndFor
    Rem 完成丢弃
Return 执行丢弃货物
//执行定时任务
Sub 执行定时任务
    Plugin OldWindow = Window.Foreground()
    Plugin Window.Active(hwn)
    Delay 500
    Plugin Window.Restore(hwn)
    Delay 500
    Gosub 窗口初始化
    LockMouse
    Gosub 料理检查
    Gosub 当前时间
    Message = CurrentTime
    Gosub 断线保护
    Gosub 疲劳度保护
    Gosub 无行动力保护
    Gosub 输出消息
    Gosub 前台吃料理
    If AutoMakeSet = 1
        Gosub 自动生产
    EndIf
    Gosub 前台吃料理
    Gosub 行动力过高处理
    If TimeShutDownSet = 1
        Gosub 定时关机
    EndIf
    If EndFlag = 0
        Gosub 执行展销货物
        Delay 500
        Gosub 执行丢弃货物
        Delay 500
        Gosub 当前时间
        Message = CurrentTime & "继续采集......"
        Gosub 输出消息
    EndIf
    UnlockMouse
    //Plugin Window.Min(hwn)
    Plugin Window.Active(OldWindow)
    Delay 500
    Plugin Window.Restore(OldWindow)
Return 执行定时任务
//自动采集
Sub 自动采集
    //
    VBS StartTime = Timer
    Gosub 执行定时任务
    //
    Rem 自动采集循环
    VBS CurrentTime = Timer
    VBS TimeInterval = CurrentTime - StartTime
    If (TimeInterval >= UpdateTimeInterval * 60) Or (TimeInterval < 0)
        Gosub 执行定时任务
        VBS StartTime = Timer
    EndIf
    Gosub 执行采集
    If EndFlag = 0
        Goto 自动采集循环
    EndIf
Return 自动采集
//执行采集
Sub 执行采集
    FoodGetCount = Food_AddValue(CurrentFoodNo) \ 5 - 1
    For FoodGetCount
        Gosub 采集一次
    EndFor
    Gosub 边吃料理边采集
Return 执行采集
//边吃料理边采集
Sub 边吃料理边采集
    Plugin Window.SendKeyPress(hwn,112)
    Delay 1500
    Plugin Window.SendKeyPress(hwn,112)
    Delay 1500
    Gosub 常规吃料理
    Delay 1500
Return 边吃料理边采集
//采集一次
Sub 采集一次
    //F1-快捷方式按键
    Plugin Window.SendKeyPress(hwn,112)
    Delay 1500
    //F1-采集快捷键
    Plugin Window.SendKeyPress(hwn,112)
    Delay 1500
    //F11-使用技能(刷新用)
    Plugin Window.SendKeyPress(hwn,122)
    Delay 4500
Return 采集一次
//丢弃货物
Sub 丢弃货物
    Gosub 当前时间
    Message = CurrentTime & "开始丢弃货物......"
    Gosub 输出消息
    Delay 500
    //F7-丢弃货物
    Plugin Window.SendKeyPress(hwn,118)
    Delay 1000
    For 5
        //丢弃货物按钮坐标
        PosX = 430
        PosY = 365
        Gosub 移动鼠标
        IfColor PosX PosY d5db8c 0
            LeftClick 1
            Delay 500
            Goto 丢弃货物窗口正常
        EndIf
        Delay 1000
    EndFor
    Goto 丢弃货物结束
    Rem 丢弃货物窗口正常
    PosSet = 0
    For GoodsCount
        PosX = 116 + (PosSet Mod 5) * 56
        PosY = 138 + (PosSet \ 5) * 56
        Gosub 坐标转换
        GoodsSetCount = 1
        For GoodsCount
            If Goods_SellPrice(GoodsSetCount) = 0
                IfColor PosX PosY Goods_Color(GoodsSetCount) 0
                    Gosub 选择丢弃
                EndIf
            EndIf
            GoodsSetCount = GoodsSetCount + 1
        EndFor
        PosSet = PosSet + 1
    EndFor
    //检查船装载量
    PosX = 369 : PosY = 360
    Gosub 坐标转换
    IfColor PosX PosY 7c7cf7 0
        Gosub 当前时间
        Message = CurrentTime & "船已经超载, 自动登出游戏......"
        Gosub 输出消息
        Gosub 自动登出
        Goto 脚本结束
    EndIf
    Delay 1000
    //确定按钮坐标
    PosX = 630 : PosY = 390
    Gosub 移动鼠标
    IfColor PosX PosY d4dd84 0
        LeftClick 1
        Delay 500
    EndIf
    Rem 丢弃货物结束
    Gosub 窗口初始化
Return 丢弃货物
//选择丢弃
Sub 选择丢弃
    MoveTo PosX PosY
    KeyDown 17 1
    Delay 500
    LeftClick 1
    Delay 500
    KeyUp 17 1
    PosSet = PosSet - 1
Return 选择丢弃
//露天展销
Sub 露天展销
    Gosub 当前时间
    Message = CurrentTime & "开始露天展销......"
    Gosub 输出消息
    Delay 500
    //F9-露天市场
    Plugin Window.SendKeyPress(hwn,120)
    Delay 1000
    For 5
        PosX = 440
        PosY = 140
        Gosub 坐标转换
        IfColor PosX PosY 44d8e1 0
            Goto 露天展销窗口正常
        EndIf
        Delay 1000
    EndFor
    Goto 露天展销结束
    Rem 露天展销窗口正常
    PosSet = 0
    For GoodsCount
        PosX = 136 + (PosSet Mod 5) * 56
        PosY = 123 + (PosSet \ 5) * 56
        Gosub 坐标转换
        GoodsSetCount = 1
        For GoodsCount
            If Goods_SellPrice(GoodsSetCount) > 0
                IfColor PosX PosY Goods_Color(GoodsSetCount) 0
                    SalesPrice = Goods_SellPrice(GoodsSetCount)
                    MoveTo PosX PosY
                    Delay 500
                    Gosub 选择展销
                    Goods_OldPrice(GoodsSetCount) = Goods_SellPrice(GoodsSetCount)
                EndIf
            EndIf
            GoodsSetCount = GoodsSetCount + 1
        EndFor
        PosSet = PosSet + 1
    EndFor
    //确定按钮坐标
    PosX = 610 : PosY = 405
    Gosub 移动鼠标
    IfColor PosX PosY d1de83 0
        LeftClick 1
        Delay 500
    EndIf
    //变更展销内容按钮坐标
    PosX = 490 : PosY = 405
    Gosub 移动鼠标
    IfColor PosX PosY ccde86 0
        LeftClick 1
        Delay 500
    EndIf
    Rem 露天展销结束
    Gosub 窗口初始化
Return 露天展销
//选择展销
Sub 选择展销
    //价格变化时重新设置价格
    If SalesPrice <> Goods_OldPrice(GoodsSetCount)
        SaveMousePos
        DeleteSet = 0
        For GoodsCount
            PosX = 492 + (DeleteSet Mod 5) * 56
            PosY = 123 + (DeleteSet \ 5) * 56
            Gosub 坐标转换
            IfColor PosX PosY Goods_Color(GoodsSetCount) 0
                MoveTo PosX PosY
                Delay 500
                LeftClick 1
                Delay 500
            EndIf
            DeleteSet = DeleteSet + 1
        EndFor
        RestoreMousePos
        Delay 500
    EndIf
    //设置展销价格
    LeftClick 1
    Delay 500
    //Max按钮
    PosX = 350
    PosY = 220
    Gosub 移动鼠标
    LeftClick 1
    Delay 500
    PosX = 465
    PosY = 393
    Gosub 移动鼠标
    IfColor PosX PosY b4c15e 0
        LeftClick 1
        Delay 500
    Else
        NumPos = 1
        For 5
            NumSet = Mid(SalesPrice,NumPos,1)
            If NumSet = "9"
                PosX = 473 : PosY = 220
            EndIf
            If NumSet = "8"
                PosX = 449 : PosY = 220
            EndIf
            If NumSet = "7"
                PosX = 425 : PosY = 220
            EndIf
            If NumSet = "6"
                PosX = 473 : PosY = 245
            EndIf
            If NumSet = "5"
                PosX = 449 : PosY = 245
            EndIf
            If NumSet = "4"
                PosX = 425 : PosY = 245
            EndIf
            If NumSet = "3"
                PosX = 473 : PosY = 270
            EndIf
            If NumSet = "2"
                PosX = 449 : PosY = 270
            EndIf
            If NumSet = "1"
                PosX = 425 : PosY = 270
            EndIf
            If NumSet = "0"
                PosX = 437 : PosY = 292
            EndIf
            If NumSet <> ""
                Gosub 移动鼠标
                LeftClick 1
            EndIf
            NumPos = NumPos + 1
        EndFor
        PosX = 465
        PosY = 393
        Gosub 移动鼠标
        IfColor PosX PosY b4c15e 0
            LeftClick 1
        EndIf
    EndIf
    Delay 500
    PosSet = PosSet - 1
Return 选择展销
//自动报价
Sub 自动报价
    Message = "出售："
    GoodsSetCount = 1
    For GoodsCount
        If (Goods_Name(GoodsSetCount) <> "") And (Goods_SellPrice(GoodsSetCount) > 0)
            Message = Message & Goods_Name(GoodsSetCount) & ":" & Goods_SellPrice(GoodsSetCount) & "  "
        EndIf
        GoodsSetCount = GoodsSetCount + 1
    EndFor
    Gosub 输出消息
Return 自动报价
//自动生产
Sub 自动生产
    KeyPress 27 1
    Delay 500
    KeyPress 122 1
    Delay 500
    //F2-变更副官负责内容
    KeyPress 113 1
    Delay 1500
    For 6
        KeyPress 38 1
        Delay 200
    EndFor
    KeyPress 40 1
    Delay 200
    KeyPress 40 1
    Delay 200
    KeyPress 13 1
    Delay 200
    KeyPress 27 1
    Delay 200
    Gosub 制作红宝石
    Gosub 制作铁材
    Delay 500
    KeyPress 27 1
    Delay 500
    KeyPress 122 1
    Delay 500
    //F2-变更副官负责内容
    KeyPress 113 1
    Delay 1500
    For 6
        KeyPress 38 1
        Delay 200
    EndFor
    KeyPress 40 1
    Delay 200
    KeyPress 13 1
    Delay 200
    KeyPress 27 1
    Delay 200
Return 自动生产
//执行生产
Sub 执行生产
    Delay 1000
    For 100
        PosX = 452
        PosY = 300
        Gosub 移动鼠标
        IfColor PosX PosY 6da3d0 0
            LeftClick 1
            Delay 600
        Else
            Delay 600
            PosX = 452
            PosY = 300
            Gosub 移动鼠标
            IfColor PosX PosY 6da3d0 1
                Goto 执行生产结束
            EndIf
        EndIf
    EndFor
    Rem 执行生产结束
    Delay 1000
    PosX = 630
    PosY = 405
    Gosub 移动鼠标
    IfColor PosX PosY b1c25d 0
        LeftClick 1
        Delay 600
    EndIf
Return 执行生产
//制作红宝石
Sub 制作红宝石
    Gosub 当前时间
    Message = CurrentTime & "自动生产红宝石......"
    Gosub 输出消息
    Gosub 使用红宝石切割书
    KeyPress 13 1
    Delay 1000
    Gosub 执行生产
Return 制作红宝石
//制作铁材
Sub 制作铁材
    Gosub 当前时间
    Message = CurrentTime & "自动生产铁材......"
    Gosub 输出消息
    Gosub 使用金属提炼的书
    KeyPress 13 1
    Delay 1000
    Gosub 执行生产
Return 制作铁材
//使用红宝石切割书
Sub 使用红宝石切割书
    KeyDown 122 1
    Delay 1500
    KeyDown 112 1
    Delay 1500
    KeyDown 116 1
    Delay 1500
Return 使用红宝石切割书
//使用金属提炼的书
Sub 使用金属提炼的书
    KeyDown 122 1
    Delay 1500
    KeyDown 112 1
    Delay 1500
    KeyDown 117 1
    Delay 1500
Return 使用金属提炼的书

此篇文章为17173玩家原创作品，获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击

相关文章

我要投稿　 发表/查看评论

游戏截图

截图上传

• HodakDu的***采集&自动生产脚本（1） (2007-03-15)
• HodakDu的采集玛瑙脚本（第一版脚本） (2007-03-06)

最新最全的单机游戏下载

史上最难游戏第2辑