17173首页 - 免费新游 - 火爆论坛 - 游戏博客 - 游戏播客 - 百科问答 - 网游排行榜 - 网游期待榜
| 通行证 注册
大航海时代OL > > 正文
自己编写的酒吧挂保管脚本(修改版)
2007-12-10           【 加入收藏 / 文章投稿 / 截图上传 / 发表评论
作者:小魔女 获得积分: Z 投稿总数:

挂机条件(有修改,请重新看一遍):


1、会烹饪、保管4级以上;


2、行动力最大300以上,建议400以上的号挂;


3、800×600窗口模式,窗口位置不限,但不能后台运行。。。。郁闷啊


4、必须用按键精灵6.6以上版本,我用的是华军6.603免费版,否则有窗口插件运行不正常。


挂机要求:


1、开始挂机之前,船上留50只鸡,其余物品全部清空;


2、吃好够生产49次的行动力,不要吃满红条,至少留50的空余


3、在酒吧站好位置,使鼠标在信息窗口左上1平方厘米之内能点到老板,又绝对不会挡住;(就是那个切换显示内容的图标上方)


4、在酒吧吃一次最小组合的食物(如奶+生火腿)


5、自定义F10功能键菜单内:F1:料理;F2烹饪书(禽的章节);F3保管书(旅客的食品筹集术);


6、如果吃饱了,程序会自动判断,改吃料理,饿了后继续吃老板的。


7、如果发现问题,可以联系我哟,我是2-3小魔女


------下面是脚本--------------


#这是按键精灵生成的脚本源文件
#在理解各条命令的基础上,您可以修改这个文件的内容
#您修改的结果将会在普通视图上有所反映
 
VBS dim eatNO,workNO,yanshi,jibenyanshi,xxx,yyy,n,x0,y0,x1,y1,x00,y00
Plugin handle=Window.Foreground()
Plugin s = Window.GetClientRect(handle)
MyArray = Split(s, "|", -1, 1)
Delay jibenyanshi
MoveTo MyArray(0),MyArray(1)
Delay jibenyanshi
MoveR 794,402
Delay jibenyanshi
SaveMousePos
Delay jibenyanshi
UserVar yanshi=1500 根据网速输入生产延时
UserVar jibenyanshi=400 根据计算机速度定义基本延时,建议大于400毫秒
Rem 主程序
For 999999
    Delay jibenyanshi
    Gosub 判断行动力
    Gosub 鸡生蛋
    Delay jibenyanshi
    VBS eatNO=6
    Delay jibenyanshi
    Gosub 吃饭
    Delay jibenyanshi
    Gosub 判断行动力
    Gosub 孵小鸡
    Delay jibenyanshi
    VBS eatNO=5
    Delay jibenyanshi
    Gosub 吃饭
    Delay jibenyanshi
    Goto 主程序
EndFor
Rem 主程序结束
Sub 吃饭
    Delay jibenyanshi
    RestoreMousePos
    Delay jibenyanshi
    MoveR -778,25
    Delay jibenyanshi
    LeftDoubleClick 1
    Delay 2500
    For eatNO
        Delay jibenyanshi
        RestoreMousePos
        Delay jibenyanshi
        MoveR -148,-46
        Delay jibenyanshi
        LeftClick 1
        Delay 2000
        RestoreMousePos
        Delay jibenyanshi
        MoveR -336,-200
        Delay jibenyanshi
        VBSCall GetCursorPos(xxx,yyy)
        IfColor xxx,yyy,312018,2
            Delay jibenyanshi
            KeyPress 27,1
            Delay 2000
            Goto 老板不让吃
        Else
            RestoreMousePos
            Delay jibenyanshi
            MoveR -197,0
            Delay jibenyanshi
            LeftClick 1
            Delay 2000
        EndIf
    EndFor
    Rem 老板不让吃
    Delay jibenyanshi
    KeyPress 27,1
    Delay jibenyanshi
    KeyPress 27,1
Return 吃饭
Delay jibenyanshi
Sub 鸡生蛋
    Delay jibenyanshi
    KeyPress 121,1
    Delay 2500
    KeyPress 113,1
    Delay 2500
    RestoreMousePos
    Delay jibenyanshi
    MoveR -341,0
    Delay jibenyanshi
    LeftClick 1
    Delay 2500
    VBS workNO=60
    Gosub 生产画面
    If n>=49
        Goto 鸭子生蛋结束
    EndIf
    Delay jibenyanshi
    Rem 这里几只鸭子生蛋
    Delay jibenyanshi
    KeyPress 121,1
    Delay 2500
    KeyPress 113,1
    Delay 2500
    KeyPress 40,1
    Delay jibenyanshi
    RestoreMousePos
    Delay jibenyanshi
    MoveR -341,0
    Delay jibenyanshi
    LeftClick 1
    Delay 2500
    VBS workNO=20
    Gosub 生产画面
    Delay jibenyanshi
    Rem 鸭子生蛋结束
    KeyPress 27,1
    Delay jibenyanshi
    KeyPress 27,1
    Delay jibenyanshi
    Gosub 丢弃第一格物品
Return 丢弃第一格物品
Sub 丢弃第一格物品
    Delay jibenyanshi
    KeyPress 118,1
    Delay 2500
    RestoreMousePos
    Delay jibenyanshi
    MoveR -361,-38
    Delay jibenyanshi
    LeftClick 1
    Delay 2500
    Rem 丢弃第一格
    RestoreMousePos
    Delay jibenyanshi
    MoveR -624,-266
    Delay jibenyanshi
    VBSCall GetCursorPos(xxx,yyy)
    Delay jibenyanshi
    IfColor xxx,yyy,422818,2
        Delay jibenyanshi
        RestoreMousePos
        Delay jibenyanshi
        MoveR -165,-15
        Delay jibenyanshi
        LeftClick 1
        Delay 2500
    Else
        Delay jibenyanshi
        RestoreMousePos
        Delay jibenyanshi
        MoveR -683,-262
        Delay jibenyanshi
        LeftClick 1
        Delay 2500
        Gosub 选择最多
        Delay jibenyanshi
        Goto 丢弃第一格
    EndIf
    KeyPress 27,1
    Delay jibenyanshi
    KeyPress 27,1
    Delay jibenyanshi
Return 蛋生鸡
Delay jibenyanshi
Sub 孵小鸡
    Delay jibenyanshi
    KeyPress 121,1
    Delay 2500
    KeyPress 114,1
    Delay 2500
    KeyPress 40,1
    Delay jibenyanshi
    KeyPress 40,1
    Delay jibenyanshi
    KeyPress 40,1
    Delay jibenyanshi
    KeyPress 40,1
    Delay jibenyanshi
    KeyPress 40,1
    Delay jibenyanshi
    KeyPress 40,1
    Delay jibenyanshi
    RestoreMousePos
    Delay jibenyanshi
    MoveR -341,0
    Delay jibenyanshi
    LeftClick 1
    Delay 2500
    VBS workNO=60
    Gosub 生产画面
    Delay jibenyanshi
    KeyPress 27,1
    Delay jibenyanshi
    KeyPress 27,1
    Delay jibenyanshi
    Gosub 丢弃第三格物品
    Delay jibenyanshi
Return 丢弃第三格物品
Sub 丢弃第三格物品
    Delay jibenyanshi
    KeyPress 118,1
    Delay 2500
    RestoreMousePos
    Delay jibenyanshi
    MoveR -361,-38
    Delay jibenyanshi
    LeftClick 1
    Delay 2500
    RestoreMousePos
    Delay jibenyanshi
    MoveR -564,-266
    Delay jibenyanshi
    VBSCall GetCursorPos(xxx,yyy)
    Delay jibenyanshi
    IfColor xxx,yyy,422818,2
        Delay jibenyanshi
        KeyPress 27,1
        Delay 2000
        KeyPress 27,1
        Delay 2000
    Else
        Delay jibenyanshi
        LeftClick 1
        Delay 2500
        Gosub 选择最多
        Delay jibenyanshi
        RestoreMousePos
        Delay jibenyanshi
        MoveR -165,-15
        Delay jibenyanshi
        LeftClick 1
        Delay 2500
    EndIf
    KeyPress 27,1
    Delay jibenyanshi
    KeyPress 27,1
    Delay jibenyanshi
Return 鸡生蛋
Delay jibenyanshi
Sub 生产画面
    VBS n=0
    Rem 生产循环开始
    Delay jibenyanshi
    RestoreMousePos
    Delay jibenyanshi
    MoveR -342,-104
    Delay jibenyanshi
    LockMouse
    VBS workNO=workNO-n
    For workNO
        VBSCall GetCursorPos(xxx,yyy)
        IfColor xxx,yyy,4a657b,2
            UnlockMouse
            Delay jibenyanshi
            RestoreMousePos
            Delay jibenyanshi
            MoveR -410,-269
            Delay jibenyanshi
            VBSCall GetCursorPos(xxx,yyy)
            Delay jibenyanshi
            IfColor xxx,yyy,8482ff,2
                Goto 没材料了
            Else
                UnlockMouse
                Delay jibenyanshi
                RestoreMousePos
                Delay jibenyanshi
                MoveR -359,-89
                Delay jibenyanshi
                VBSCall GetCursorPos(xxx,yyy)
                Delay jibenyanshi
                IfColor xxx,yyy,f77df7,2
                    Goto 生产循环开始
                Else
                    Goto 没有行动力了
                EndIf
            EndIf
        Else
            Delay jibenyanshi
            LeftClick 1
            VBS n=n+1
            Delay yanshi
        EndIf
    EndFor
    Rem 没材料了
    Rem 没有行动力了
    UnlockMouse
    Delay jibenyanshi
    RestoreMousePos
    Delay jibenyanshi
    MoveR -167,0
    Delay jibenyanshi
    LeftClick 1
    Delay 2500
    KeyPress 27,1
    Delay jibenyanshi
    KeyPress 27,1
    Delay jibenyanshi
Return 生产画面
Delay jibenyanshi
Delay jibenyanshi
Sub 选择最多
    Delay jibenyanshi
    KeyPress 107,1
    Delay 2500
    KeyPress 13,1
    Delay 2500
Return 选择最多
Delay jibenyanshi
Sub 判断行动力
    Rem 判断开始
    Delay jibenyanshi
    RestoreMousePos
    Delay jibenyanshi
    MoveR -696,-287
    Delay jibenyanshi
    VBSCall GetCursorPos(xxx,yyy)
    Delay jibenyanshi
    IfColor xxx,yyy,ff7dff,2
        Goto 有行动力
    Else
        Delay jibenyanshi
        KeyPress 121,1
        Delay 2500
        KeyPress 112,1
        Delay 2500
    EndIf
    Goto 判断开始
    Rem 有行动力
    Delay jibenyanshi
Return 判断行动力
Sub 是否没材料了
    UnlockMouse
    Delay jibenyanshi
    RestoreMousePos
    Delay jibenyanshi
    MoveR -410,-269
    Delay jibenyanshi
    VBSCall GetCursorPos(xxx,yyy)
    Delay jibenyanshi
    IfColor xxx,yyy,8482ff,2
        Goto 没材料了
    Else
        Goto 生产循环开始
    EndIf
Return 是否没材料了


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

相关链接

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

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

我要发布Sogou推广服务

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