大航海時代OL貝法近港繞港腳本

大航海時代OL貝法近港繞港腳本//直接復制或?qū)氚存I精靈8就能用了//1、貝魯-法馬任一港口開始//2、船上要有東西可以賣//3、開始前在碼頭保存好補給量//4、船倉要大至少要大于你一次全買的量//5、本腳本不自帶吃料理//最好與船長GPS搭配使用//6、貝魯-法馬投資出所有交易品//7、防暴風（海上突然來的暴風就。。。）//8、視野要拉到最遠//9、800*600窗口//出錯請聯(lián)系作者//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)//獲取窗口原始位置函數(shù)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貝魯?shù)椒R()Delay5000Call進法馬()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買貨()Delay250KeyPress"Down",1Delay250Call買貨()Delay250KeyPress"Down",1Delay250Call買貨()Delay250KeyPress"Down",1Delay250Call買貨()Delay250KeyPress"Down",1Delay250Call買貨()Delay250KeyPress"Down",3Delay250Call買貨()Delay250KeyPress"Down",1Delay250Call買貨()//確定Delay500MoveTo665,438LeftClick1//右鍵MoveTo409,250Delay1000RightClick1EndIfElseMoveTo651,384Delay200LeftClick1Delay250Goto說話EndIfEndSubSub找貝魯碼頭官員()KeyDown"Esc",1Delay250MoveTo440,570LeftClick1Delay1500MoveTo440,570LeftClick1Delay1500MoveTo440,570LeftClick1Delay1500MoveTo440,570LeftClick1Delay1500MoveTo440,570LeftClick1Delay1500MoveTo440,570LeftClick1Delay1500MoveTo130,560LeftClick1Delay1500MoveTo130,560LeftClick1Delay1500MoveTo130,560LeftClick1Delay1500MoveTo130,560LeftClick1Delay1500MoveTo380,580LeftClick1Delay1500MoveTo380,580LeftClick1Delay1500MoveTo380,580LeftClick1Delay1500MoveTo770,460LeftClick1Delay1500MoveTo413,579LeftClick1Delay500KeyUp"Esc",1Rem碼頭官員Delay250KeyPress"Tab",1IfColor640,364,"FFFFFF",0ThenIfColor659,366,"FFFFFF",0ThenIfColor670,359,"FFFFFF",0ThenIfColor684,361,"FFFFFF",0ThenKeyPress"Enter",1Delay500KeyPress"Enter",1ElseGoto碼頭官員EndIfElseGoto碼頭官員EndIfElseGoto碼頭官員EndIfElseGoto碼頭官員EndIfDelay1000MoveTo649,389Delay250LeftClick1EndSubSub在碼頭()//補給Delay500MoveTo691,386Delay250LeftClick1Delay1500MoveTo190,380Delay250LeftClick1Delay500MoveTo605,421Delay250LeftClick1Delay500RightClick1//補人Delay1000IfColor147,128,"646464",0ThenMoveTo730,389Delay250LeftClick1Delay1500KeyDown"Ctrl",1Delay250MoveTo381,185Delay250LeftClick1Delay500KeyUp"Ctrl",1Delay250MoveTo602,407Delay250LeftClick1Delay500RightClick1Delay250Goto出港ElseRem出港Delay1000MoveTo653,388Delay250LeftClick1Delay1500//多云IfColor684,377,"FFFFFF",0ThenMoveTo645,413Delay250LeftClick1Else//雨IfColor699,374,"E7DFDA",0ThenMoveTo645,413Delay250LeftClick1Else//晴IfColor697,378,"B2F0FD",0ThenMoveTo645,413Delay250LeftClick1Else//暴風Delay500RightClick1Delay30000Goto出港EndIfEndIfEndIfEndIfEndSubSub貝魯?shù)椒R()//調(diào)整視角Delay2000KeyDown"Ctrl",1Delay250KeyDown"Down",1Delay2000KeyUp"Down",1Delay250KeyUp"Ctrl",1Delay500//開帆MoveTo785,552Delay250LeftClick1Delay20000//轉(zhuǎn)向MoveTo458,55Delay250LeftDoubleClick1Delay500//再調(diào)整視角KeyDown"Ctrl",1Delay250KeyDown"Up",1Delay1500KeyUp"Up",1Delay250KeyUp"Ctrl",1Delay500RightClick1rem找法馬KeyPress"Tab",1Delay500IfColor634,363,"FFFFFF",0ThenIfColor657,359,"FFFFFF",0ThenIfColor665,366,"FFFFFF",0ThenIfColor682,364,"FFFFFF",0ThenIfColor699,364,"FFFFFF",0ThenKeyPress"Enter",1Delay1000KeyPress"Enter",1Delay1000KeyPress"Enter",1Delay1000KeyPress"Enter",1Delay1000KeyPress"Enter",1Delay1000KeyPress"Enter",1Delay1000KeyPress"Enter",1ElseGoto找法馬EndIfElseGoto找法馬EndIfElseGoto找法馬EndIfElseGoto找法馬EndIfElseGoto找法馬EndIfEndSubSub進法馬()Delay1000MoveTo326,298Delay100RightClick1MoveTo326,298Delay1000RightClick1MoveTo648,414LeftClick1Delay2000EndSubsub找法馬老板//調(diào)整視角KeyDown"Ctrl",1KeyDown"Down",1Delay2000KeyUp"Down",1KeyUp"Ctrl",1Delay250KeyDown"Esc",1Delay250MoveTo364,120Delay100LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500MoveTo590,150Delay100LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500LeftClick1Delay1500MoveTo207,95Delay100LeftClick1Delay2000KeyUp"Esc",1Rem老板1Delay300KeyPress"Tab",1IfColor640,359,"FFFFFF",0ThenIfColor657,365,"FFFFFF",0ThenIfColor670,362,"FFFFFF",0ThenIfColor684,363,"FFFFFF",0ThenKeyPress"Enter",1Delay500KeyPress"Enter",1ElseGoto老板1EndIfElseGoto老板1EndIfElseGoto老板1EndIfElseGoto老板1EndIfendsubsub法馬買賣()Rem說話1Delay1000IfColor651,384,"C3E1E6",1Then//進賣貨界面Delay1000MoveTo694,386Delay250LeftClick1Delay2000rem抬價Delay1500IfColor468,352,"6B6150",1ThenMoveTo471,348Delay200LeftClick1goto抬價ElseMoveTo331,100Delay250LeftClick1Delay1000MoveTo636,443Delay250LeftClick1EndIfDelay1000MoveTo409,250Delay100RightClick1//進買貨界面Delay1000MoveTo654,384LeftClick1Delay2000rem砍價Delay1500IfColor483,352,"675D4D",1ThenMoveTo483,352Delay250LeftClick1Delay250Goto砍價elseDelay250Call買貨()Delay250KeyPress"Down",1Delay250Call買貨()Delay250KeyPress"Down",1Delay250Call買貨()Delay250KeyPress"Down",4Delay500Call買貨()Delay250KeyPress"Down",1Call買貨()//確定Delay500MoveTo665,438LeftClick1//右鍵Delay1000MoveTo409,250Delay100RightClick1endifElseMoveTo651,384Delay200LeftClick1Delay250Goto說話1endifendSubSub找法馬碼頭官員()KeyDown"Esc",1Delay250MoveTo30,290Delay100LeftClick1Delay2000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo320,220Delay100LeftClick1Delay1000MoveTo170,360Delay100LeftClick1Delay1500MoveTo170,360Delay100LeftClick1Delay1500MoveTo170,360Delay100LeftClick1Delay1500MoveTo170,360Delay100LeftClick1Delay1500MoveTo170,360Delay100LeftClick1Delay1500MoveTo170,360Delay100LeftClick1Delay1500MoveTo170,360Delay100LeftClick1Delay1500MoveTo170,360Delay100LeftClick1Delay1500MoveTo170,360Delay100LeftClick1Delay1500MoveTo170,360Delay100LeftClick1Delay1500MoveTo365,560Delay100LeftClick1Delay1500MoveTo365,560Delay100LeftClick1Delay1500MoveTo140,310LeftClick1Delay1500MoveTo115,215LeftClick1Delay1500KeyUp"Esc",1Rem碼頭官員1Delay250KeyPress"Tab",1IfColor640,364,"FFFFFF",0ThenIfColor659,366,"FFFFFF",0ThenIfColor670,359,"FFFFFF",0ThenIfColor684,361,"FFFFFF",0ThenKeyPress"Ent