17173首页 - 免费新游 - 火爆论坛 - 游戏博客 - 游戏播客 - 百科问答 - 网游排行榜 - 网游期待榜
| 通行证 注册
大航海时代OL > > 正文
3782造船脚本修改版
2007-03-08           【 加入收藏 / 文章投稿 / 截图上传 / 发表评论
作者:浪荡的航行 获得积分: Z 投稿总数:

最近被手动造船搞疯了,又不想用幽灵挂船.所以决定自己做个造船脚本,下了N多脚本发现,就卡卡的哪个脚本最稳定,但是因为卡卡码头出来到船厂老板那里跑的路线老师不好定位,所以想到3782,这个比较容易产3*,4*书的地方.


脚本的设置就不多说了,800X600窗口模式,左上屏幕1024*960地球人都知道(0,0,800,600,22,1).
启动是在卖了第3条船准备并且造好船在码头准备出去的时候.
该脚本基本和卡卡造船脚本一样,主要是跑城找船厂老板和回码头属于自己写的,运行相当稳定,鼠标点击只出现在和NPC的对话中,所以这个脚本很稳定,挂24小时都没问题
请自己抓点3782这个名字    I(fColor 633 372 ffffff 0, IfColor 683 371 ffffff 0),和判断是否进入了码头的点  (IfColor 660 593 94bee2 1)
For 9999999
    Gosub 补给出港
    Gosub 转向找城
    Gosub 找老板
    Gosub 卖第3船
    Gosub 造船
    Gosub 找官员
EndFor
Sub 补给出港
    Delay 1000
    MoveTo 689 381
    Delay 1000
    LeftClick 1
    Delay 2000
    MoveTo 182 375
    Delay 1000
    LeftClick 1
    Delay 2000
    MoveTo 604 417
    Delay 1000
    LeftClick 1
    Delay 2000
    MoveTo 650 381
    Delay 1000
    LeftClick 1
    Delay 2000
    MoveTo 642 411
    Delay 1000
    LeftClick 1
    Delay 10000
    For 2
        For 5                          (挂机动作)
            Delay 1000
            KeyPress 119 1
            Delay 3000
            KeyPress 116 1
            Delay 2000
            KeyPress 27 1
            Delay 500
            KeyPress 119 1
            Delay 3000
            KeyPress 117 1
            Delay 2000
            KeyPress 27 1
            Delay 500
            KeyPress 119 1
            Delay 3000
            KeyPress 118 1
            KeyPress 27 1
            Delay 500
            Delay 60000
        EndFor
        Rem 吃料理
        KeyPress 119 1
        Delay 3000
        KeyPress 113 1
        Delay 2000
        KeyPress 27 1
        Delay 500
        KeyPress 119 1
        Delay 3000
        KeyPress 113 1
        Delay 2000
        KeyPress 27 1
        Delay 500
    EndFor
    Rem 开奖卷
    KeyDown 112 1
    Delay 20000
    KeyUp 112 1
    Delay 100000
Return 补给出港6天
Sub 转向找城
    KeyDown 17 1
    Delay 1000
    KeyDown 39 1
    Delay 3000
    KeyUp 39 1
    Delay 141
    KeyUp 17 1
    Delay 1000
    For 20
        KeyPress 9 1
        Delay 1000
        IfColor 633 372 ffffff 0
            Delay 250
            IfColor 683 371 ffffff 0
                Delay 3000
                KeyPress 13 1
                Delay 1000
                KeyPress 13 1
                Goto 跳出找城
            Else
            EndIf
        Else
        EndIf
    EndFor
    Rem 跳出找城
    Delay 12000
    IfColor 660 593 94bee2 1
        Goto 转向找城
    Else
    EndIf
Return 转向找城
Sub 找老板
    Delay 1000
    MoveTo 653 413
    Delay 1000
    LeftClick 1
    Delay 5000
    KeyDown 38 1
    Delay 7500
    KeyDown 39 1
    Delay 600
    KeyUp 39 1
    Delay 6500
    KeyUp 38 1
    Delay 1500
    For 10
        KeyPress 9 1
        Delay 1000
        IfColor 675 359 ffffff 0
            Delay 250
            IfColor 689 360 ffffff 0
                Delay 1000
                KeyPress 13 1
                Delay 2500
                KeyPress 13 1
                Goto 找老板结束
            Else
            EndIf
        Else
        EndIf
    EndFor
    Rem 找老板结束
    Delay 500
Return 找老板
Sub 卖第3船
    MoveTo 651 382
    Delay 1500
    LeftClick 1
    Delay 5000
    MoveTo 733 380
    Delay 1500
    LeftClick 1
    Delay 5000
    MoveTo 139 266
    Delay 1500
    LeftClick 1
    Delay 1500
    MoveTo 612 421
    Delay 1500
    LeftClick 1
    Delay 1500
    MoveTo 372 278
    Delay 1500
    LeftClick 1
    Delay 1500
Return 卖第3船
Sub 造船
    MoveTo 651 382
    Delay 1500
    LeftClick 1
    Delay 3000
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 500
    KeyPress 40 1
    Delay 1500
    MoveTo 632 431
    Delay 1500
    LeftClick 1
    KeyPress 38 1
    Delay 500
    KeyPress 38 1
    Delay 1000
    LeftClick 1
    Delay 1500
    LeftClick 1
    Delay 1500
    KeyPress 49 1
    Delay 1500
    LeftClick 1
    Delay 5000
Return 造船
Sub 找官员
    KeyDown 40 1
    Delay 13500
    KeyUp 40 1
    Delay 1000
    KeyDown 17 1
    KeyDown 39 1
    Delay 1700
    KeyUp 17 1
    KeyUp 39 1
    Delay 1000
    KeyDown 38 1
    Delay 5000
    KeyUp 38 1
    Delay 1000
    For 10
        KeyPress 9 1
        Delay 1000
        IfColor 651 360 ffffff 0
            Delay 250
            IfColor 650 363 ffffff 0
                Delay 1000
                KeyPress 13 1
                Delay 2000
                KeyPress 13 1
                Goto 跳出找官员
            Else
            EndIf
        Else
        EndIf
    EndFor
    Rem 跳出找官员
    Delay 1000
    MoveTo 652 380
    Delay 1500
    LeftClick 1
    Delay 6000
Return 找官员
 
本人1-3浪荡的航行,感谢以下感谢猪猪叫我羊咩,北海の斗狼,北极光海狼


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

相关链接

http://dol.17173.com/jingyan/jingyan.shtml

游戏截图
用户: 匿名
史上最强的拼音输入法 下载>>>
评论

我要发布Sogou推广服务

热点标签:
新闻 标题 栏目 文章 图片 链接
热点标签:
新闻 标题 栏目 文章 图片 链接