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

《大航海时代OL贝法近港绕港脚本.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、.VBSDimDX,DYs=Plugin.Window.GetClientRect(hwnd)MyArray=Split(s,"

3、",-1,1)DX=MyArray(0)DY=Myarray(1)//获取窗口原始位置函数VBSDimday,hex,chp,hp,onlineVBSDimdayAdd,hexAdd,chpAdd,hpAdd,onlineAddVBSdayAdd=&h00B6A998VBShexAdd=&h00B68A20VBSchpAdd=&h00B68A3AVBShpAdd=&h00B68A2CVBSonlineA

4、dd=&H00B6889CCallPlugin.Window.Move(hwnd,0,0)//判断起点IfColor21,45,"FFFFFF",0ThenIfColor31,44,"FFFFFF",0ThenIfColor49,44,"FFFFFF",0ThenIfColor59,47,"FFFFFF",0ThenIfColor84,48,"FFFFFF",0ThenIfColor89,48,"FFFFFF",0Then.专业资料.学习参考..word格

5、式.IfColor108,46,"FFFFFF",0ThenCall法马起点()ElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfElseCall贝鲁起点()EndIfElseCall贝鲁起点().专业资料.学习参考..word格式.EndIfsub贝鲁起点()For999999Call进贝鲁()Delay5000Call找贝鲁老板()Delay1000Call贝鲁买卖()Delay1000Call找贝鲁码头官员()Dela

6、y5000Call在码头()Delay2000Call贝鲁到法马()Delay5000Call进法马()Delay5000.专业资料.学习参考..word格式.Call找法马老板()Delay1000Call法马买卖()Delay1000Call找法马码头官员()Delay5000Call在码头()Delay5000Call法马到贝鲁()Delay5000nextendsubSub法马起点()for9999999Call进法马()Delay5000Call找法马老板()Delay1000.专业资料.学习参考..word格式.Call法马买卖()Delay1000Call找法马码头官

7、员()Delay5000Call在码头()Delay5000Call法马到贝鲁()Delay5000Call进贝鲁()Delay5000Call找贝鲁老板()Delay1000Call贝鲁买卖()Delay1000Call找贝鲁码头官员()Delay5000Call在码头()Delay2000.专业资料.学习参考..word格式.Call贝鲁到法马()Delay5000nextEndSubSub买货()Delay500KeyDown"Ctrl",1Rem买Delay250MoveTo386,334Delay100LeftClick1Delay250MoveTo3

8、86,261Delay100LeftClick1Delay250MoveTo386,195Delay100.专业资料.学习参考..word格式.LeftClick1Delay250KeyUp"Ctrl",1EndSubsub进贝鲁Delay1000MoveTo326,298Delay100RightClick1Delay1000MoveTo326,298RightClick1MoveTo648,414LeftClick1Delay2000EndSu