谁有17173的账号给我一个，梦幻我不会把账号密码建，电脑有点问...

www.51yue.net    2011-04-09    标签：17173账号
谁能给个大航海开美8脚本？（17173上的那个有点问题，到了教会门口进不去）
谁能给个大航海开美8脚本？（17173上的那个有点问题，到了教会门口进不去）
09-09-22 &
游戏启动环境设置中必须把2D和3D两个属性设置为低。//快捷键设置，f11是自定义栏，自定义栏中f5是搜索，请使人物有充足的行动力，本脚本不自动吃料理。//视角设置，800*600分辨率，32位色。人物最大视角，出王宫后不动，调整视角到屏幕上沿和对面门的最上沿重合。//本脚本版权属守信誉的西瓜所有//bgtql报告提前量这个变量的作用是，当你报告发现物的时候，如果你的美术是在第四项或者第五项，这个值你就设置为0，如果美术是在第三项，就设置为1，如果美术是在第二项，就设置为2.bgtql=2Plugin hwnd=Window.Foreground()Plugin Window.Move(hwnd,0,0)//将窗口移动到左上角KeyPress 27,3Rem 开始For 48    Gosub 走到教会附近    Gosub 进教会    Gosub 走到美术8附近    Gosub 进行搜索    //Gosub 快速搜索    Gosub 走到教会门口    Gosub 找出口    Gosub 走到住宅附近    Gosub 找卫兵    Gosub 找国王    Gosub 进行报告    //Beep    Gosub 走到住宅门口    Gosub 找出口EndFor //////////报警鸣笛For 5    Beep
   Delay 200EndFor 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,3Return 走到教会附近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 1400Return 走到美术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 1400Return 走到美术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 5000Return 快速搜索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 200Return 走到教会门口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 6500Return 走到住宅附近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,                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 200Return 走到住宅门口Sub 鼠标形状    //如果是漏斗，就等待    Delay 100    //***箭头时候的鼠标形状    //Shape1 =
   Shape1=    //网络延时的时候漏斗的形状    //Shape2 =
   Shape2=    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
请登录后再发表评论!

参考资料

 

随机推荐