17173首页 - 免费新游 - 火爆论坛 - 游戏博客 - 游戏播客 - 百科问答 - 网游排行榜 - 网游期待榜
| 通行证 注册
大航海时代OL > 探险经验> 正文
稳定的全自动开美术8脚本
2009年04月11日 14:28:24           【 加入收藏 / 文章投稿 / 截图上传 / 发表评论
作者:守信誉的西瓜 获得积分: 0Z 投稿总数: 1篇

该脚本其实一年前就编好了,我自己用它练冒险等级和声望来着,为了纪念我成功开发出5开全自动读图脚本。现公开给大家使用!本脚本速度很快,55秒便可以跑一圈,几乎比所有人的手动都快。而且很稳定。如果你的开锁技能和搜索技能都超过12级,你还可以开启快速搜索,这样可以使每圈速度提高到51秒,几乎可以天下无敌的速度了。最后做广告:如果你自己读图嫌麻烦嫌慢,需要买图,请上淘宝搜索:老鼠美术8

以下是脚本正文

//开图要求,美术技能8,搜索技能8,开锁技能8
//游戏启动环境设置中必须把2D和3D两个属性设置为低。
//快捷键设置,f11是自定义栏,自定义栏中f5是搜索,请使人物有充足的行动力,本脚本不自动吃料理。
//视角设置,800*600分辨率,32位色。人物最大视角,出王宫后不动,调整视角到屏幕上沿和对面门的最上沿重合。
//本脚本版权属守信誉的西瓜所有
//bgtql报告提前量这个变量的作用是,当你报告发现物的时候,如果你的美术是在第四项或者第五项,这个值你就设置为0,如果美术是在第三项,就设置为1,如果美术是在第二项,就设置为2.
bgtql=2
Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
//将窗口移动到左上角
KeyPress 27,3
Rem 开始
For 48
    Gosub 走到教会附近
    Gosub 进教会
    Gosub 走到美术8附近
    Gosub 进行搜索
    //Gosub 快速搜索
    Gosub 走到教会门口
    Gosub 找出口
    Gosub 走到住宅附近
    Gosub 找卫兵
    Gosub 找国王
    Gosub 进行报告
    //Beep
    Gosub 走到住宅门口
    Gosub 找出口
EndFor
//////////报警鸣笛
For 5
    Beep
    Delay 200
EndFor
MessageBox "本轮开图完毕"
//Goto 开始
EndScript
/////////////////////////////////////////////////////////////////////////////////////////////////
Sub
    //
Return
Sub 走到教会附近
    KeyPress 27,3
    MoveTo 10,35
    KeyDown 37,1
    Delay 800
    KeyUp 37,1
    LeftClick 2
    KeyDown 27,1
    Delay 3000
    KeyPress 36,3
Return 走到教会附近
Sub 进教会
    q1=0
    While q1=0
        KeyPress 9,1
        Delay 200
        IfColor 667,360,ffffff,0
            IfColor 663,371,ffffff,0
                IfColor 676,371,ffffff,0
                    IfColor 689,371,ffffff,0
                        q1=1
                        KeyUp 38,1
                        While q1=1
                            KeyPress 13,1
                            Delay 500
                            Gosub 鼠标形状
                            IfColor 83,39,ffffff,0
                                IfColor 99,52,ffffff,0
                                    q1=2
                                EndIf
                            EndIf
                        EndWhile
                    EndIf
                EndIf
            EndIf
        EndIf
    EndWhile
Return 进教会
Sub 走到美术4附近
    //
    MoveTo 180,270
    Delay 200
    LeftClick 2
    Delay 300
    KeyPress 36,1
    KeyPress 122,1
    //提前启动F11
    Delay 1400
Return 走到美术4附近
Sub 走到美术8附近
    //
    KeyDown 39,1
    Delay 500
    KeyUp 39,1
    MoveTo 760,240
    Delay 200
    LeftClick 2
    Delay 300
    KeyPress 36,1
    KeyPress 122,1
    //提前启动F11
    Delay 1400
Return 走到美术8附近
Sub 快速搜索
    q1=0
    While q1=0
        IfColor 662,104,ffffff,1
            KeyPress 122,1
            Delay 500
        EndIf
        Delay 100
        IfColor 662,104,ffffff,2
            q1=1
        EndIf
    EndWhile
    KeyPress 116,1
    Delay 5000
Return 快速搜索
Sub 进行搜索
    //
    q1=0
    While q1=0
        IfColor 662,104,ffffff,1
            KeyPress 122,1
            Delay 500
        EndIf
        q01=0
        While q01=0
            Delay 100
            IfColor 662,104,ffffff,2
                q01=1
            EndIf
        EndWhile
        KeyPress 116,1
        Delay 11000
        q1=1
        //未发现任何物品
        IfColor 18,585,ffaa84,2
            IfColor 29,584,ffaa84,2
                IfColor 110,579,ffaa84,2
                    IfColor 114,579,ffaa84,2
                        IfColor 130,592,ffaa84,2
                            IfColor 134,592,ffaa84,2
                                q1=0
                            EndIf
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
        //附近好像有什么东西
        IfColor 92,581,ffaa84,2
            IfColor 104,580,ffaa84,2
                IfColor 111,579,ffaa84,2
                    IfColor 116,579,ffaa84,2
                        IfColor 123,586,ffaa84,2
                            IfColor 134,591,ffaa84,2
                                IfColor 143,592,ffaa84,2
                                    IfColor 164,579,ffaa84,2
                                        q1=0
                                    EndIf
                                EndIf
                            EndIf
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
        //有已经被发现的地图
        IfColor 17,561,ffaa80,2
            IfColor 43,559,ffaa80,2
                IfColor 50,539,ffaa80,2
                    IfColor 71,539,ffaa80,2
                        IfColor 83,539,ffaa80,2
                            IfColor 97,539,ffaa80,2
                                IfColor 101,539,ffaa80,2
                                    IfColor 164,552,ffaa80,2
                                        q1=1
                                    EndIf
                                EndIf
                            EndIf
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    EndWhile
Return 进行搜索
Sub 走到教会门口
    //
    KeyDown 27,3
    KeyDown 40,2
    Delay 200
Return 走到教会门口
Sub 找出口
    qi=0
    While qi=0
        KeyPress 9,1
        Delay 100
        //出口
        IfColor 635,361,ffffff,0
            IfColor 640,359,ffffff,0
                IfColor 645,367,ffffff,0
                    IfColor 645,372,ffffff,0
                        IfColor 659,360,ffffff,0
                            IfColor 660,361,ffffff,0
                                IfColor 659,371,ffffff,0
                                    IfColor 650,371,ffffff,0
                                        KeyUp 40,1
                                        qi=1
                                    EndIf
                                EndIf
                            EndIf
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    EndWhile
    //按回车,走到跟前并进入按钮页面
    While qi=1
        KeyPress 13,3
        Delay 500
        IfColor 135,40,ffffff,0
            qi=2
        EndIf
    EndWhile
Return 找出口
Sub 走到住宅附近
    //
    KeyPress 27,3
    MoveTo 270,35
    KeyDown 39,1
    Delay 1200
    KeyUp 39,1
    LeftClick 3
    KeyDown 27,1
    Delay 2000
    KeyPress 36,3
    KeyDown 38,1
    Delay 6500
Return 走到住宅附近
Sub 找卫兵
    //
    q1=0
    While q1=0
        KeyPress 9,1
        Delay 200
        IfColor 648,372,ffffff,0
            IfColor 646,371,ffffff,0
                IfColor 658,359,ffffff,0
                    IfColor 659,363,ffffff,0
                        q1=1
                        KeyUp 27,1
                        KeyUp 38,2
                        While q1=1
                            KeyPress 13,2
                            Delay 500
                            Gosub 鼠标形状
                            IfColor 640,384,ffffff,0
                                q1=2
                                MoveTo 645,390
                                Delay 200
                                LeftClick 2
                            EndIf
                        EndWhile
                    EndIf
                EndIf
            EndIf
        EndIf
    EndWhile
Return 找卫兵
Sub 找国王
    //
    KeyDown 27,1
    q1=0
    While q1=0
        KeyPress 9,1
        Delay 100
        IfColor 681,359,ffffff,0
            IfColor 678,372,ffffff,0
                IfColor 705,369,ffffff,0
                    IfColor 714,359,ffffff,0
                        q1=1
                        KeyUp 27,1
                        While q1=1
                            KeyPress 13,1
                            Delay 500
                            Gosub 鼠标形状
                            IfColor 680,384,ffffff,0
                                IfColor 720,384,ffffff,0
                                    q1=2
                                EndIf
                            EndIf
                        EndWhile
                    EndIf
                EndIf
            EndIf
        EndIf
    EndWhile
Return 找国王
Sub 进行报告
    i=0
    MoveTo 725,390
    MoveTo 725,390
    MoveTo 725,390
    Delay 200
    LeftClick 2
    Delay 500
    Gosub 鼠标形状
    Delay 50
    //If bgml=4
    //美术
    q1=0
    While q1=0
        KeyPress 40,1
        Delay 50
        IfColor 229,322-bgtql*56,ffffff,2
            IfColor 230,322-bgtql*56,909937,2
                q1=1
            EndIf
        EndIf
        //i=i+1
    EndWhile
    //EndIf
    q1=0
    While q1=0
        KeyPress 13,2
        Delay 200
        //发现物
        IfColor 195,162,0,2
            IfColor 199,162,0,2
                IfColor 216,162,0,2
                    IfColor 223,175,0,2
                        q1=1
                        KeyPress 13,2
                        Delay 100
                        While q1=1
                            IfColor 595,414,ffffff,2
                                q1=2
                            EndIf
                            Delay 50
                        EndWhile
                    EndIf
                EndIf
            EndIf
        EndIf
        Delay 100
    EndWhile
Return 进行报告
Sub 走到住宅门口
    //
    q1=0
    While q1=0
        KeyPress 27,1
        Delay 50
        IfColor 634,360,ffffff,2
            q1=1
        EndIf
        //IfColor 634,360,7a5346,2
        //    q1=1
        //EndIf
    EndWhile
    KeyDown 40,2
    Delay 200
Return 走到住宅门口
Sub 鼠标形状
    //如果是漏斗,就等待
    Delay 100
    //黄色箭头时候的鼠标形状
    //Shape1 = 1404965592
    Shape1=2106545426
    //网络延时的时候漏斗的形状
    //Shape2 = 758902698
    Shape2=2012885647
    DelayTime = 0
    While DelayTime = 0
        VBSCall shape=GetCursorShape(0)
        If shape = shape2
            Delay 200
        ElseIf shape<>shape2
            DelayTime = 1
        EndIf
    EndWhile
Return 鼠标形状
Sub 检测F
    IfColor 662,104,ffffff,2
        IfColor 675,110,10cfff,2
            KeyPress 122,1
            Delay 400
        EndIf
    EndIf
Return 检测F


此篇文章为17173玩家原创作品,获得积分奖励 0Z。
17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击
游戏截图
    用户: 匿名
    史上最强的拼音输入法 下载>>>
    评论

    我要发布Sogou推广服务

    © 2001-2009 www.17173.com All Rights Reserved.
    建议意见:玩家留言区 商务合作:客户留言区
    广告专线:0591-87878497 客服电话:0591-87826743 关于我们 设为首页 玩家客服