大航海时代OL贝法近港绕港脚本

大航海时代OL贝法近港绕港脚本大航海时代OL 贝法近港绕港脚本 //直接复制或导入按键精灵8就能用了//1、贝鲁-法马任一港口开始 //2、船上要有东西可以卖 //3、开始前在码头保存好补给量 //4、船仓要大至少要大于你一次全买的量 //5、本脚本不自带吃料理 // 最好与船长GPS搭配使用 //6、贝鲁-法马投资出所有交易品 //7、防暴风(海上突然来的暴风就。。。) //8、视野要拉到最远 //9、800*600 窗口 //出错请联系作者 //QQ:908311621 // 风行海岚無ㄨ聊 Hwnd = Pl...

大航海时代OL 贝法近港绕港脚本 //直接复制或导入按键精灵8就能用了//1、贝鲁-法马任一港口开始 //2、船上要有东西可以卖 //3、开始前在码头保存好补给量 //4、船仓要大至少要大于你一次全买的量 //5、本脚本不自带吃料理 // 最好与船长GPS搭配使用 //6、贝鲁-法马投资出所有交易品 //7、防暴风(海上突然来的暴风就。。。) //8、视野要拉到最远 //9、800*600 窗口 //出错请联系作者 //QQ:908311621 // 风行海岚無ㄨ聊 Hwnd = Plugin.Window.Find(0, "大航海时代Online") VBS Dim DX,DY s = Plugin.Window.GetClientRect(hwnd) MyArray = Split(s, "|", -1, 1) DX = MyArray(0) DY = Myarray(1) //获取窗口原始位置函数 VBS Dim day,hex,chp,hp,online VBS Dim dayAdd,hexAdd,chpAdd,hpAdd,onlineAdd VBS dayAdd=&h00B6A998 VBS hexAdd=&h00B68A20 VBS chpAdd=&h00B68A3A VBS hpAdd=&h00B68A2C VBS onlineAdd=&H00B6889C Call Plugin.Window.Move(hwnd,0,0) //判断起点 IfColor 21,45,"FFFFFF",0 Then IfColor 31,44,"FFFFFF",0 Then IfColor 49,44,"FFFFFF",0 Then IfColor 59,47,"FFFFFF",0 Then IfColor 84,48,"FFFFFF",0 Then IfColor 89,48,"FFFFFF",0 Then IfColor 108,46,"FFFFFF",0 Then Call 法马起点() Else Call 贝鲁起点() End If Else Call 贝鲁起点() End If Else Call 贝鲁起点() End If Else Call 贝鲁起点() End If Else Call 贝鲁起点() End If Else Call 贝鲁起点() End If Else Call 贝鲁起点() End If sub 贝鲁起点() For 999999 Call 进贝鲁() Delay 5000 Call 找贝鲁老板() Delay 1000 Call 贝鲁买卖() Delay 1000 Call 找贝鲁码头官员() Delay 5000 Call 在码头() Delay 2000 Call 贝鲁到法马() Delay 5000 Call 进法马() Call 找法马老板() Delay 1000 Call 法马买卖() Delay 1000 Call 找法马码头官员() Delay 5000 Call 在码头() Delay 5000 Call 法马到贝鲁() Delay 5000 next end sub Sub 法马起点() for 9999999 Call 进法马() Delay 5000 Call 找法马老板() Delay 1000 Call 法马买卖() Delay 1000 Call 找法马码头官员() Delay 5000 Call 在码头() Delay 5000 Call 法马到贝鲁() Delay 5000 Call 进贝鲁() Delay 5000 Call 找贝鲁老板() Delay 1000 Call 贝鲁买卖() Delay 1000 Call 找贝鲁码头官员() Delay 5000 Call 在码头() Call 贝鲁到法马() Delay 5000 next End Sub Sub 买货() Delay 500 KeyDown "Ctrl", 1 Rem 买 Delay 250 MoveTo 386, 334 Delay 100 LeftClick 1 Delay 250 MoveTo 386, 261 Delay 100 LeftClick 1 Delay 250 MoveTo 386, 195 Delay 100 LeftClick 1 Delay 250 KeyUp "Ctrl", 1 End Sub sub 进贝鲁 Delay 1000 MoveTo 326, 298 Delay 100 RightClick 1 Delay 1000 MoveTo 326, 298 RightClick 1 MoveTo 648, 414 LeftClick 1 Delay 2000 End Sub sub 找贝鲁老板 //调整视角 KeyDown "Ctrl", 1 KeyDown "Down", 1 Delay 2000 KeyUp "Down", 1 KeyUp "Ctrl", 1 Delay 250 KeyDown "Esc", 1 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 400, 150 LeftClick 1 Delay 1000 MoveTo 240, 135 LeftClick 1 继续阅读

                    本文档为【大航海时代OL贝法近港绕港脚本】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

大航海时代OL贝法近港绕港脚本

你可能还喜欢