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

大航海时代 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