大航海台服开美大航海台服开美 8 8 脚本脚本 E4+E4+版版/1.台服开美 8 脚本 T1 版,推荐使用按键精灵 9/2.快捷键 F8 自定栏,F9 使用技能,F10 露天市场,F11 城市放大地图，其余为空/3.自定义栏 F1 为搜索，F5 和 F6 为料理,游戏 800*600（全屏、窗口均可）,请设置好美术发现物栏/4.有防掉线功能,在按键右边“脚本属性” “自定义”中设置。不能开大写键盘,否则会登录失败/5.使用方式:把代码复制到按键精灵里,在那不勒斯（拿坡里）教会门口按启动快捷键/6.按键精灵 8.0 版下载地址:http:/www.vrbrothers.com/cn/qmacro/downloading8.html/7.需要 361 后台插件第 6 版，下载解压后的后台插件文件BGKM6.dll 放在按建精灵/plugin 目录下/8.下载地址:http:/bbs.vrbrothers.com/viewthread.php?tid=33722/9.需要懒神内存插件，下载解压后的后台插件文件 LazyGod.dll放在按建精灵/plugin 目录下/10.下载地址:http:/bbs.vrbrothers.com/viewthread.php?tid=79936/11.本脚本由爱情弱势群体原创，感谢懒神和 yh000888 的帮助并提供部分重要代码/12.请尊重别人的劳动果实，转载请注明。交流脚本请加 QQ 群84513712/程式码如下:/=我是分隔线=/ *定义变量*UserVar UserName=“aaaaaaaaa“ “用户名“UserVar Password=“aaaaaaaaa“ “密码“UserVar ms=“4“ “美术发现物位置栏，默认值为 4（第 5 栏）“/*Hwnd=Plugin.Window.ForegroundVBS Dim DX,DYs = Plugin.Window.GetClientRect(hwnd)MyArray = Split(s, “|“, -1, 1)DX = MyArray(0)DY = Myarray(1)/获取窗口原始位置函数VBS chpAdd=&H00C16E3EVBS renAdd=&H00C16E30VBS xdlAdd=&H00C16E24VBS xdmAdd=&H00C16E28VBS htsAdd=&H00C193B0VBS zdxAdd=&H00C16CACVBS ycyAdd=&H00C13268VBS yczAdd=&H00C12790VBS kzbAdd=&H00C12810VBS dlbAdd=&H00C8C504VBS dylAdd=&H00C190E8VBS clzAdd=&H00C17351VBS mbtAdd=&H00C18994VBS ktzAdd=&H00C1f814VBS jnsAdd=&H00C7FFF0object01_addr=&H00C127C0object02_addr=&H00C127BCliveobj_addr=&H00C172E8stillobj_addr=&H00C17308addrobj_addr=&H00C17A00addr_addr=&H00C17328Addr_Person_X=&h00c16e78Addr_Person_Y=&h00c16e80Addr_Person_angle1=&h00c16e88Addr_Person_angle2=&h00c16e90PI = 4*Atn(1)/设置内存地址PutAttachment “.plugin“,“*.*“/设置文件路径Rem 脚本开始For 999999Call 判断是否掉线Call 找教会Call 走到教会开图位置Call 吃料理Call 开图Call 走到教会出口前面Call 找出口Call 教会到王宫Call 找卫兵Call 走到国王前面Call 找国王Call 报告发现物Call 走到王宫出口前面Call 找出口Call 王宫到教会NextSub 读参数chp=Plugin.Memory.Read32Bit(Hwnd,chpAdd)ren=Plugin.Memory.Read32Bit(Hwnd,renAdd)xdl=Plugin.Memory.Read32Bit(Hwnd,xdlAdd)xdm=Plugin.Memory.Read32Bit(Hwnd,xdmAdd)hts=Plugin.Memory.Read32Bit(Hwnd,htsAdd)zdx=Plugin.Memory.Read32Bit(Hwnd,zdxAdd)ycy=Plugin.Memory.Read32Bit(Hwnd,ycyAdd)ycz=Plugin.Memory.Read32Bit(Hwnd,yczAdd)kzb=Plugin.Memory.Read32Bit(Hwnd,kzbAdd)dlb=Plugin.Memory.Read32Bit(Hwnd,dlbAdd)dyl=Plugin.Memory.Read32Bit(Hwnd,dylAdd)ktz=Plugin.Memory.Read32Bit(Hwnd,ktzAdd)Addr1=Plugin.Memory.Read32Bit(hwnd,jnsAdd)Addr2=Plugin.Memory.Read32Bit(hwnd,Addr1+&H20)jns=Plugin.Memory.Read32Bit(hwnd,Addr2+&H38)/读入目前船耐久、水手数、行动力、航海天数、在线判断End SubSub 延时判定For 500Call 读参数If ycy=0 and ycz=0 ThenGoto 延时判定完毕ElseDelay 100End ifNextRem 延时判定完毕End SubSub 判断是否掉线Delay 50Call 读参数Delay 50If zdx=0 ThenDelay 200Call Plugin.Bkgnd.KeyPress(Hwnd,13)Delay 1000Call Plugin.Bkgnd.KeyPress(Hwnd,13)Delay 1000Call Plugin.Bkgnd.KeyPress(Hwnd,13)Delay 6000Call Plugin.Bkgnd.KeyPress(Hwnd,13)Delay 1000Call LogInDelay 9500Delay 100End ifEnd SubSub 打开自定义栏()Call 读参数If dyl=0For 10Call Plugin.Bkgnd.KeyPress(hwnd,119)Delay 100NextEnd ifEnd SubSub 找教会Call 调整窗口视角 1name0 = “教會入口“Call 寻找目标For 5MyKeyCode = 13Call 执行按键动作Delay 200NextCall 延时判定End SubSub 找出口Call 延时判定name0 = “出口“Call 寻找目标For 5MyKeyCode = 13Call 执行按键动作Delay 200NextCall 延时判定()End SubSub 找卫兵Call 延时判定name0 = “衛兵“Call 寻找目标For 5MyKeyCode = 13Call 执行按键动作Delay 200NextCall 延时判定Call 读参数If kzb=2Call Plugin.BGKM6.LClick(Hwnd,650,360)Delay 600End ifCall 延时判定End SubSub 找国王Call 延时判定name0 = “費迪南戈國王“Call 寻找目标For 3MyKeyCode = 13Call 执行按键动作Delay 300NextCall 延时判定End SubSub 教会到王宫Call 延时判定Call 调整窗口视角 2for 100Call 获得目前所在的场景名称Delay 100If addrname = “拿坡里“ ThenGoto 开地图 1ElseDelay 100End ifNextrem 开地图 1Call Plugin.Bkgnd.KeyPress(Hwnd,122)Delay 500Call 延时判定Call Plugin.BGKM6.LClick(Hwnd,395,150)Delay 7900Call 延时判定End SubSub 王宫到教会Call 延时判定Call 调整窗口视角 2for 100Call 获得目前所在的场景名称Delay 100If addrname = “拿坡里“ ThenGoto 开地图 2ElseDelay 100End ifNextrem 开地图 2Call Plugin.Bkgnd.KeyPress(Hwnd,122)Delay 500Call 延时判定Call Plugin.BGKM6.LClick(Hwnd,440,130)Delay 6900Call 延时判定End SubSub 吃料理Call 读参数If xdl/xdm0.5Goto 吃饱了End If Nextrem 吃饱了End If End SubSub 开图For 1Call 打开自定义栏Call 延时判定Call Plugin.Bkgnd.KeyPress(hwnd,112)Delay 1000For 90Delay 100Call 读参数If ktz=1Goto 图开好了End IfNextNextrem 图开好了Call 读参数If jns0Call Plugin.BGKM6.LClick(Hwnd,787,287)Delay 500Call Plugin.Bkgnd.KeyPress(Hwnd,13)Delay 500Call Plugin.Bkgnd.KeyPress(Hwnd,13)Delay 100End IfEnd SubSub 报告发现物Call 延时判定Call 读参数If kzb=4Call Plugin.BGKM6.LClick(Hwnd,730,360)Delay 600End IfCall 延时判定Call 读参数If kzb=0For ms/上面这个数字为选择美术发现物，发现物等级不同，选择也不同Call Plugin.Bkgnd.KeyPress(Hwnd, 40)Delay 250NextCall 延时判定for 3Call Plugin.Bkgnd.KeyPress(Hwnd,13)Delay 500Call 延时判定NextEnd IfEnd SubSub 寻找目标tabsum = 0 : tabfalse = 0Call Plugin.BGKM6.RClick(Hwnd,400,300)Delay 200compobj = 0Call 获得目标名称compobj = instr(name,name0)While compobj = 0Delay 100Call 调整窗口视角 1MyKeyCode = 9Call 执行按键动作Delay 100If tabsum = 8 Thentabfalse = 1Goto 这里找不到目标End iftabsum = tabsum + 1Call 获得目标名称compobj = instr(name,name0)WendRem 这里找不到目标End SubSub 获得目标名称tet = 0a=1Rem 开始读目标内存If a 10 ThenGoto 获得目标名称结束End ifObjType=P