大航海时代ol贝法近港绕港脚本.docxVIP

大航海时代OL 贝法近港绕港 脚本 　 　 　　 　 　 　 　 　　 　 　 　 　 //直接复制或导入按键精灵8就能用了 ／/1、贝鲁-法马任一港口开始　 /／2、船上要有东西可以卖 //3、开始前在码头保存好补给量 ／/4、船仓要大 至少要大于你一次全买的量 //5、本脚本不自带吃料理 // 最好与船长GＰS搭配使用 //6、贝鲁－法马投资出所有交易品 //7、防暴风（海上突然来的暴风就。。。) //8、视野要拉到最远 ／／9、800*600 窗口 /／出错请联系作者 //QＱ:９08３1１６21 // 风行　海岚 無ㄨ聊 Hwnd　= Plugiｎ.Winｄow．Fiｎd（0, ＆quot;大航海时代 Onlｉneｑuot;) VBＳ Dim DＸ,ＤY s ＝ Pｌugin.Window.GetCｌiｅｎtRｅct(ｈwnd） ＭｙArray = Split(s， ｑuot；|ｑuot;,　-1, 1) ＤX ＝ MyArray(0) DY　= Mｙａrray(１) //获取窗口原始位置函数 VBS Dim dａy，heｘ,chｐ,hｐ,onｌine ＶＢS Ｄｉm ｄayAdｄ，hｅxAｄd,cｈｐAdｄ，hｐＡdd,onlｉneＡｄd ＶBS daｙAdd=amp；h０0B6A998 VBS hexAdd=amｐ;ｈ０0B６8A20 VBS chｐAｄd=amｐ;h0０B68A3A VBS hpAdd＝ａｍp;h００B6８Ａ２C VBS oｎｌinｅＡdｄ=aｍp;H00B688９Ｃ Call Plｕgin．Window.Move（hｗnd,0,0) //判断起点 IfColｏr 2１,４５,ｑｕoｔ;FFFFＦFqｕｏｔ;,０ Tｈｅn IｆColoｒ 31，44,quot;FFＦFＦＦquｏt;，0 Then IｆＣolor 49，44，quoｔ;ＦFFFFF＆ｑｕot;,０　Thｅｎ ＩｆCoｌｏr 59，47，ｑuot;ＦＦFFFＦquot；,0 Ｔhｅn ＩｆＣolor 84,4８，quot；FFFＦＦF＆quoｔ;,０ Theｎ IfCｏlｏｒ 89,48，quot；FFFFFFqｕｏｔ；,0　Then IfColor １08,46,quot;FFFFFFquot;，0 Then Caｌl 法马起点() Else Cａｌｌ　贝鲁起点() Eｎd If Eｌse Cａｌl 贝鲁起点() Ｅｎd If Else Call 贝鲁起点（) End　If Eｌse Cａｌl 贝鲁起点() Ｅnd If Else Caｌl　贝鲁起点() End Ｉｆ Else Cａll 贝鲁起点() Ｅｎｄ If Eｌse Cａll 贝鲁起点() End Iｆ sｕb　贝鲁起点（) For ９999９9 Cａlｌ 进贝鲁（) Dｅlaｙ 500０ Cａlｌ 找贝鲁老板(） Ｄelaｙ　1000 Ｃall　贝鲁买卖() Delay　1000 Caｌｌ 找贝鲁码头官员() Delaｙ ５000 Calｌ 在码头() Dｅlay 2０00 Caｌl　贝鲁到法马() Deｌａy　50０0 Cａll 进法马() Dｅlａy 5０00 Cａll 找法马老板（） Deｌａｙ　１000 Cａll 法马买卖() Dｅlay １000 Ｃａlｌ 找法马码头官员() Deｌay 5000 Cａll 在码头() Ｄeｌａｙ　５000 Cａll 法马到贝鲁() Delaｙ 5０00 ｎexｔ eｎd sub Sｕｂ　法马起点() foｒ ９９９99９9 Call 进法马(） Delay ５0０0 Call　找法马老板() Ｄｅｌay　1000 Call 法马买卖() Delａy 100０ Calｌ 找法马码头官员(） Ｄeｌaｙ 5０0０ Calｌ 在码头（) Ｄｅlay 5000 Call 法马到贝鲁（） Ｄelay 5000 Cａll　进贝鲁() Dｅlaｙ　500０ Ｃall　找贝鲁老板() Ｄeｌay　1000 Cａll 贝 　 　　 　 　 　 　 　　 　 　 　 鲁买卖() Dｅｌay 1000 Cａll　找贝鲁码头官员() Ｄelaｙ　５００0 Cａll 在码头() Delaｙ　2０00 Cａｌl 贝鲁到法马(） Delay 5000 neｘt Ｅｎd Sｕb Sub 买货() Dｅｌay　50０ KeｙDｏwｎ quot;Ctrｌ＆quot;, 1 Ｒｅｍ 买 Delaｙ ２5０ ＭｏveTｏ 38６, ３3４ Delａy　1０0 LeftＣｌｉck 1 Deｌay ２50 MoveＴo 386, 261 Delay　１０0 Le