见过不少挂船脚本,不过都不适合我这种专门练" />

新鲜出炉的贝鲁特挂小飞脚本

网友评论0 来源: 17173作者: 西瓜·礼拜天

见过不少挂船脚本,不过都不适合我这种专门练造船级的,所以还是自己写了个脚本,写的很有耐心哦。


从下面的gerneal开始复制~~


文内有使用说明~~


[General]
Description=小飞脚本
BeginHotkey=49
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=48
StopHotkeyMod=4
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=


[Script]
//1-1西瓜·礼拜天写的贝鲁特挂船脚本
//使用说明:本脚本于贝鲁特使用,身上要带足够的钱
//此脚本不带粮食不带水,水手可能会遭遇不测
//造的是战斗小飞
//将游戏调节为-----1024*768------32位-------全屏,
//海上会释放  3  个技能,F2   ,    F3 ,       F4
//第三个船是卖的,脚本启动是在贝码头
//身上可以有2条或3条船,不能有4条,也不能在造船期间启动,不能乱搞
//启动热键是   Ctrl+1   ,终止热键是  Alt+0
//脚本内容自己看吧,不是很复杂,欢迎自己根据自身情况改动
//要顺便产星书的自己改,要找老板吃饭的自己改
//貌似大家都挂船毕业了,只是写个供大家参考参考
Delay 1000
Gosub 进港岸上活动到找老板
Sub 进港岸上活动到找老板
    Rem 点击码头广场
    Delay 3000
    MoveTo 512,6
    IfColor 859,545,ffffff,2
        MoveTo 859,545
        Delay 200
        LeftDoubleClick 1
        MoveTo 512,6
        Goto 上岸黑屏等待
    Else
        Delay 200
        Goto 点击码头广场
    EndIf
    Rem 上岸黑屏等待
    MoveTo 512,6
    IfColor 154,15,ffffff,2
        Delay 2000
        Goto 岸上开始走路去找老板
    Else
        Delay 200
        Goto 上岸黑屏等待
    EndIf
    Rem 岸上开始走路去找老板
    //调节视角
    KeyDown 17,1
    KeyDown 40,1
    Delay 1000
    KeyUp 40,1
    KeyDown 38,1
    Delay 500
    KeyUp 38,1
    KeyUp 17,1
    Delay 200
    KeyDown 38,1
    Delay 8000
    KeyUp 38,1
    Delay 20
    KeyDown 39,1
    Delay 640
    KeyUp 39,1
    Delay 20
    KeyDown 38,1
    Delay 7400
    KeyUp 38,1
    //这里是造船卖船部分
    Rem 找造船厂老板
    KeyPress 9,1
    Delay 300
    MoveTo 512,6
    IfColor 925,508,ffffff,2
        IfColor 923,496,ffffff,2
            IfColor 912,504,ffffff,2
                IfColor 903,496,ffffff,2
                    IfColor 894,496,ffffff,2
                        For 3
                            Delay 200
                            KeyPress 13,1
                        EndFor
                        For 5
                            KeyPress 27,1
                            Delay 200
                        EndFor
                    Else
                        Delay 100
                        Goto 找造船厂老板
                    EndIf
                Else
                    Delay 100
                    Goto 找造船厂老板
                EndIf
            Else
                Delay 100
                Goto 找造船厂老板
            EndIf
        Else
            Delay 100
            Goto 找造船厂老板
        EndIf
    Else
        Delay 100
        Goto 找造船厂老板
    EndIf
    Delay 200
    Rem 找造船厂老板3
    KeyPress 9,1
    Delay 300
    MoveTo 512,6
    IfColor 925,508,ffffff,2
        IfColor 923,496,ffffff,2
            IfColor 912,504,ffffff,2
                IfColor 903,496,ffffff,2
                    IfColor 894,496,ffffff,2
                        For 3
                            Delay 200
                            KeyPress 13,1
                        EndFor
                    Else
                        Delay 100
                        Goto 找造船厂老板3
                    EndIf
                Else
                    Delay 100
                    Goto 找造船厂老板3
                EndIf
            Else
                Delay 100
                Goto 找造船厂老板3
            EndIf
        Else
            Delay 100
            Goto 找造船厂老板3
        EndIf
    Else
        Delay 100
        Goto 找造船厂老板3
    EndIf
    Gosub 我要和老板亲密接触
Return 进港岸上活动到找老板
Sub 我要和老板亲密接触
    Rem 点击卖出船只
    Delay 400
    MoveTo 512,6
    IfColor 899,521,fffbff,2
        MoveTo 899,521
        Delay 200
        LeftDoubleClick 1
        MoveTo 512,6
    Else
        Delay 200
        Goto 点击卖出船只
    EndIf
    Rem 找第三个船卖掉
    Delay 3000
    MoveTo 512,6
    IfColor 226,306,b5b2b5,2
        MoveTo 249,318
        Delay 200
        LeftDoubleClick 2
        Delay 200
        LeftDoubleClick 2
        Delay 200
        MoveTo 512,6
        IfColor 462,332,ffffff,2
            MoveTo 462,332
            Delay 200
            LeftDoubleClick 1
            MoveTo 512,6
        Else
            Delay 400
            KeyPress 27,1
            Delay 400
            KeyPress 27,1
            Gosub 直接找老板造船
        EndIf
    Else
        Delay 200
        Goto 找第三个船卖掉
    EndIf
    Delay 5000
    Rem 点击造船
    Delay 500
    MoveTo 512,6
    IfColor 859,545,ffffff,2
        MoveTo 859,545
        Delay 200
        LeftDoubleClick 1
        MoveTo 512,6
    Else
        Delay 200
        KeyPress 13,2
        Goto 点击造船
    EndIf
    Rem 开始造小飞
    Delay 1500
    MoveTo 512,6
    IfColor 221,221,b5b2b5,2
        For 8
            Delay 200
            KeyPress 40,1
        EndFor
        For 4
            Delay 200
            KeyPress 13,1
        EndFor
        Rem 点击下一步
        Delay 200
        MoveTo 512,6
        IfColor 701,494,ffffff,2
            MoveTo 701,494
            Delay 200
            LeftDoubleClick 2
            MoveTo 512,6
        Else
            Delay 200
            Goto 点击下一步
        EndIf
        Rem 输入船名
        Delay 200
        KeyPress 49,1
        KeyPress 50,1
        KeyPress 51,1
        MoveTo 512,6
        IfColor 701,494,ffffff,2
            MoveTo 701,494
            Delay 200
            LeftDoubleClick 1
            MoveTo 512,6
        Else
            Delay 200
            Goto 输入船名
        EndIf
    Else
        Delay 200
        Goto 开始造小飞
    EndIf
    Gosub 和码头官员玩np
Return 我要和老板亲密接触
Sub 和码头官员玩np
    Rem 造完走人
    Delay 5000
    KeyDown 40,1
    Delay 5500
    KeyUp 40,1
    Delay 20
    KeyDown 37,1
    Delay 500
    KeyUp 37,1
    Delay 20
    KeyDown 40,1
    Delay 9000
    KeyUp 40,1
    Delay 20
    KeyDown 37,1
    Delay 960
    KeyUp 37,1
    Delay 20
    KeyDown 40,1
    Delay 3400
    KeyUp 40,1
    Rem 找码头官员
    KeyPress 9,1
    Delay 300
    MoveTo 512,6
    IfColor 867,509,ffffff,2
        IfColor 898,509,ffffff,2
            IfColor 863,509,ffffff,2
                IfColor 893,509,ffffff,2
                    IfColor 908,497,ffffff,2
                        Delay 200
                        KeyPress 13,2
                        Goto 点击前往码头
                    Else
                        Delay 100
                        Goto 找码头官员
                    EndIf
                Else
                    Delay 100
                    Goto 找码头官员
                EndIf
            Else
                Delay 100
                Goto 找码头官员
            EndIf
        Else
            Delay 100
            Goto 找码头官员
        EndIf
    Else
        Delay 100
        Goto 找码头官员
    EndIf
    Rem 点击前往码头
    Delay 200
    MoveTo 512,6
    IfColor 859,521,ffffff,2
        MoveTo 859,521
        Delay 200
        LeftDoubleClick 1
        MoveTo 512,6
    Else
        Delay 200
        Goto 点击前往码头
    EndIf
    Gosub 出海活动一下死掉的水手喂鲨鱼
Return 和码头官员玩np
Sub 出海活动一下死掉的水手喂鲨鱼
    Rem 贝鲁特到码头的黑屏等待
    Delay 2000
    MoveTo 512,6
    IfColor 859,521,ffffff,2
        MoveTo 859,521
        Delay 200
        LeftDoubleClick 1
        MoveTo 512,6
    Else
        Delay 200
        Goto 贝鲁特到码头的黑屏等待
    EndIf
    Rem 不点怎么行
    Delay 300
    MoveTo 512,6
    IfColor 733,465,ffffff,2
        MoveTo 733,465
        Delay 200
        LeftDoubleClick 1
        MoveTo 512,6
    Else
        Delay 200
        Goto 不点怎么行
    EndIf
    Rem 我泡海里面了死了拉到
    For 12
        Delay 3000
        KeyPress 121,1
        Delay 3000
        KeyPress 115,1
        Delay 3000
        KeyPress 122,1
        Delay 3000
        KeyPress 121,1
        Delay 3000
        KeyPress 114,1
        Delay 3000
        KeyPress 122,1
        Delay 3000
        KeyPress 121,1
        Delay 3000
        KeyPress 113,1
        Delay 3000
        KeyPress 122,1
        Delay 3000
    EndFor
    //这里是调节视角
    MoveTo 2,100
    Delay 100
    RightDown 1
    Delay 200
    MoveTo 256,100
    Delay 200
    MoveTo 512,100
    Delay 200
    MoveTo 768,100
    Delay 200
    MoveTo 1022,100
    RightUp 1
    KeyDown 17,1
    KeyDown 40,1
    Delay 1500
    KeyUp 40,1
    KeyDown 38,1
    Delay 1100
    KeyUp 38,1
    KeyUp 17,1
    Delay 2000
    Rem 找贝鲁特鸟城
    KeyPress 9,1
    Delay 200
    MoveTo 512,6
    IfColor 853,509,ffffff,2
        IfColor 895,504,ffffff,2
            IfColor 893,498,ffffff,2
                IfColor 872,496,ffffff,2
                    IfColor 855,497,ffffff,2
                        Delay 200
                        KeyPress 13,1
                        Delay 200
                        KeyPress 13,1
                        Delay 200
                        KeyPress 13,1
                        Delay 200
                        KeyPress 13,1
                    Else
                        Delay 50
                        Goto 找贝鲁特鸟城
                    EndIf
                Else
                    Delay 50
                    Goto 找贝鲁特鸟城
                EndIf
            Else
                Delay 50
                Goto 找贝鲁特鸟城
            EndIf
        Else
            Delay 50
            Goto 找贝鲁特鸟城
        EndIf
    Else
        Delay 50
        Goto 找贝鲁特鸟城
    EndIf
    Gosub 进港岸上活动到找老板
Return 出海活动一下死掉的水手喂鲨鱼
Sub 直接找老板造船
    Rem 找造船厂老板2
    KeyPress 27,2
    Delay 200
    KeyPress 9,1
    Delay 500
    MoveTo 512,6
    IfColor 925,508,ffffff,2
        IfColor 923,496,ffffff,2
            IfColor 912,504,ffffff,2
                IfColor 903,496,ffffff,2
                    IfColor 894,496,ffffff,2
                        Delay 200
                        KeyPress 13,2
                    Else
                        Delay 100
                        Goto 找造船厂老板2
                    EndIf
                Else
                    Delay 100
                    Goto 找造船厂老板2
                EndIf
            Else
                Delay 100
                Goto 找造船厂老板2
            EndIf
        Else
            Delay 100
            Goto 找造船厂老板2
        EndIf
    Else
        Delay 100
        Goto 找造船厂老板2
    EndIf
    Rem 点击造船2
    Delay 500
    MoveTo 512,6
    IfColor 859,545,ffffff,2
        MoveTo 859,545
        Delay 200
        LeftDoubleClick 1
        MoveTo 512,6
    Else
        Delay 200
        KeyPress 13,2
        Goto 点击造船2
    EndIf
    Rem 开始造小飞2
    Delay 1500
    MoveTo 512,6
    IfColor 221,221,b5b2b5,2
        For 8
            Delay 200
            KeyPress 40,1
        EndFor
        For 4
            Delay 200
            KeyPress 13,1
        EndFor
        Rem 点击下一步2
        Delay 200
        MoveTo 512,6
        IfColor 701,494,ffffff,2
            MoveTo 701,494
            Delay 200
            LeftDoubleClick 2
            MoveTo 512,6
        Else
            Delay 200
            Goto 点击下一步2
        EndIf
        Rem 输入船名2
        Delay 200
        KeyPress 49,1
        KeyPress 50,1
        KeyPress 51,1
        MoveTo 512,6
        IfColor 701,494,ffffff,2
            MoveTo 701,494
            Delay 200
            LeftDoubleClick 1
            MoveTo 512,6
        Else
            Delay 200
            Goto 输入船名2
        EndIf
    Else
        Delay 200
        Goto 开始造小飞2
    EndIf
    Gosub 和码头官员玩np
Return 直接找老板造船

相关新闻

发 表 留 言
我要留名

综合经验

新闻资讯

航海日志