大航海时代OL贝法近港绕港脚本//直接复制或导入按键精灵8就能用了//1、贝鲁-法马任一港口开始//2、船上要有东西可以卖//3、开始前在码头保存好补给量//4、船仓要大至少要大于你一次全买的量//5、本脚本不自带吃料理//最好与船长GPS搭配使用//6、贝鲁-法马投资出所有交易品//7、防暴风（海上突然来的暴风就。。。）//8、视野要拉到最远//9、800*600窗口//出错请联系作者//QQ：908311621//风行海岚無ㄨ聊Hwnd=Plugin.Window.Find(0,"大航海时代Online")VBSDimDX,DYs=Plugin.Window.GetClientRect(hwnd)MyArray=Split(s,"|",-1,1)DX=MyArray(0)DY=Myarray(1)//获取窗口原始位置函数VBSDimday,hex,chp,hp,onlineVBSDimdayAdd,hexAdd,chpAdd,hpAdd,onlineAddVBSdayAdd=&h00B6A998VBShexAdd=&h00B68A20VBSchpAdd=&h00B68A3AVBShpAdd=&h00B68A2CVBSonlineAdd=&H00B6889CCallPlugin.Window.Move(hwnd,0,0)//判断起点IfColor21,45,"FFFFFF",0ThenIfColor31,44,"FFFFFF",0ThenIfColor49,44,"FFFFFF",0ThenIfColor59,47,"FFFFFF",0ThenIfColor84,48,"FFFFFF",0ThenIfColor89,48,"FFFFFF",0ThenIfColor108,46,"FFFFFF",0ThenCall法马起点()ElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfsub贝鲁起点()For999999Call进贝鲁()Delay5000Call找贝鲁老板()Delay1000Call贝鲁买卖()Delay1000Call找贝鲁码头官员()Delay5000Call在码头()Delay2000Call贝鲁到法马()Delay5000Call进法马()Delay5000Call找法马老板()Delay1000Call法马买卖()Delay1000Call找法马码头官员()Delay5000Call在码头()Delay5000Call法马到贝鲁()Delay5000nextendsubSub法马起点()for9999999Call进法马()Delay5000Call找法马老板()Delay1000Call法马买卖()Delay1000Call找法马码头官员()Delay5000Call在码头()Delay5000Call法马到贝鲁()Delay5000Call进贝鲁()Delay5000Call找贝鲁老板()Delay1000Call贝鲁买卖()Delay1000Call找贝鲁码头官员()Delay5000Call在码头()Delay2000Call贝鲁到法马()Delay5000nextEndSubSub买货()Delay500KeyDown"Ctrl",1Rem买Delay250MoveTo386,334Delay100LeftClick1Delay250MoveTo386,261Delay100LeftClick1Delay250MoveTo386,195Delay100LeftClick1Delay250KeyUp"Ctrl",1EndSubsub进贝鲁Delay1000MoveTo326,298Delay100RightClick1Delay1000MoveTo326,298RightClick1MoveTo648,414LeftClick1Delay2000EndSubsub找贝鲁老板//调整视角KeyDown"Ctrl",1KeyDown"Down",1Delay2000KeyUp"Down",1KeyUp"Ctrl",1Delay250KeyDown"Esc",1MoveTo400,150LeftClick1Delay1000MoveTo400,150LeftClick1Delay1000MoveTo400,150LeftClick1Delay1000MoveTo400,150LeftClick1Delay1000MoveTo400,150LeftClick1Delay1000MoveTo400,150LeftClick1Delay1000MoveTo400,150LeftClick1Delay1000MoveTo400,150LeftClick1Delay1000MoveTo400,150LeftClick1Delay1000MoveTo400,150LeftClick1Delay1000MoveTo400,150LeftClick1Delay1000MoveTo240,135LeftClick1Delay1500MoveTo240,135LeftClick1Delay1500MoveTo240,135LeftClick1Delay1500MoveTo240,135LeftClick1Delay1500KeyUp"Esc",1Rem老板KeyPress"Tab",1Delay300IfColor640,359,"FFFFFF",0ThenIfColor657,365,"FFFFFF",0ThenIfColor670,362,"FFFFFF",0ThenIfColor684,363,"FFFFFF",0ThenKeyPress"Enter",1Delay500KeyPress"Enter",1ElseGoto老板EndIfElseGoto老板EndIfElseGoto老板EndIfElseGoto老板EndIfEndSubSub贝鲁买卖()Rem说话Delay1000IfColor651,384,"C3E1E6",1Then//进卖货界面Delay1000MoveTo694,386Delay250LeftClick1Delay2000//卖MoveTo331,100Delay250LeftClick1Delay1000MoveTo636,443Delay250LeftClick1//右键Delay1000MoveTo409,250Delay100RightClick1//进买货界面Delay1000MoveTo654,384LeftClick1Delay2000rem砍价Delay1500IfColor483,352,"675D4D",1ThenMoveTo483,352Delay200LeftClick1Goto砍价Else//买Delay250Call买货()Dela...
