老帖子过了能修改的时间了～只好重新发帖 能用的朋友请顶顶 ～谢谢
我一直用的2-1流星雨的脚本 挺不错的。。南10字星后救助和吃料理的内存地址改变了，现在把修改好的贴出来～ 蓝字部分是修改的内存地址，到现在我能正常使用 提别提醒下 如果多开的话 这个脚本只针对你启动的第一个大航海窗口

// 2-1区 西瓜 流星雨 制作
// 后台漂副官操舵划船操帆脚本 V1.4正式版
// 需要361后台插件支持
// 361后台插件下载地址:http://bbs.vrbrothers.com/viewthread.php?tid=33722&extra=page%3D1
// 请把解压后的文件放在按建精灵/plugin目录下
//**********************功能描述****************************************
// 支持800*600/任意分辩率
// 练习 操帆 操舵 划船,漂副官 吃料理 自我救助 ,第一次用请把鼠标放到船侧身 或岸边,启动脚本后
// 会记录鼠标位置,脚本会自我究错,如有什么疑问可在线m我!(副官可以设船医)
// 提示==>请不要把游戏最小化,目前不支持,可以后台但不能最小化!
// 1.3版新加入自定义技能键 F3,F4 放入想要用的技能,并打开SW3 SW4
// 1.4版新加入漂副官功能, 请把一副设为航海长,二副设为船医
//
// delaymax 参数 是用来调节网速的,跟据网速自己调一下默认为10
// hcsw 开关参数 为1启用转圈划船,为0点岸边! 启用转圈时请把光标指向船侧身
// 启用点岸时请把光标指向岸边 ,脚本会记录光标位置!
// jssw 开关参数 操帆加速练习开关 1启用加速但需要分辩率为800*600,0关闭加速支持任意分辩率
// sw1 操帆开关1开启0关闭
// sw1_1 操帆加速练习开关 1启用加速但需要分辩率为800*600,0关闭加速支持任意分辩率
// sw2 划船开关1开启0关闭
// sw3 开关参数 1开启 0关闭 用户自定义要练习的技能
// sw4 开关参数 1开启 0关闭 用户自定义要练习的技能
// sw5 漂副官1开启0关闭
// sw5_1 二副官开关1开启0关闭 , 启用二副需要800*600支持
// sw5_2 漂副官职位天数(天)
// 帮助
// 1:为什么不能使用技能?
// 答:可能你电脑卡,请把调节网速参数调高
// 由于没有进行长久的测试,如有问题出现,请留言或游戏里m我!
//*********************功能键描述**************************************
//
// 自定义栏登陆: f1=救助(或救生圈),f2=划船,F3=自定义1,F4=自定义2f5=操帆,f7=料理
// 快捷键登陆: f1,f2,f3,f4,f5,f7=自定义栏 f9=使用技能 f12=副官负责内容变更
// 注:f9改为使用技能感觉稳定性好点
//*********************************************************************
VBS Dim i,j,ren,chp,hp,xmin,pd1,pd2,hpmax,delaymax,hcsw,jssw
VBS Dim sw1,sw2,sw3,sw4,sw5,sw5_1,sw5_2,sw1_1,day,day1,day2,day3,day4
VBS Dim chpAdd,renAdd,hpAdd,DayAdd
UserVar hpmax=60 吃料理体力上限
UserVar delaymax=30 调节网速
UserVar hcsw=1 转圈/点岸开关,1转圈,0点岸边
UserVar sw1=1 操帆开关1开启0关闭(F5)
UserVar sw1_1=1 操帆加速练习开关1启用0关闭
UserVar sw2=1 划船开关1开启0关闭(F2)
UserVar sw3=1 自定义开关1开启0关闭(F3)
UserVar sw4=1 自定义开关1开启0关闭(F4)
UserVar sw5=1 漂副官开关1开启0关闭
UserVar sw5_1=1 二副官开关1开启0关闭
UserVar sw5_2=30 漂副官职位天数(天)
VBS chpAdd=&H00ab94ee
VBS renAdd=&H00ab94e0
VBS hpAdd=&H00ab94d4
VBS dayAdd=&H00abb354
VBSCall Call GetCursorPos(pd1,pd2)
Plugin hwn=Window.Foreground()
//Plugin hwn=Window.GetKeyFocusWnd()
Plugin win=BGKM5.ScrToCli(hwn,pd1,pd2)
MyArray = Split(win, "|", -1, 1)
pd1 = MyArray(0)
pd2 = MyArray(1)
Gosub 读参数
VBS day4=day
While 1
Gosub 点岸边
Gosub 救助
Gosub 点岸边
Gosub 吃料理
Gosub 点岸边
Gosub 划船
Gosub 点岸边
Gosub 操帆
Gosub 点岸边
Gosub 自定义1
Gosub 点岸边
Gosub 自定义2
Gosub 点岸边
Gosub 副官
Gosub 点岸边
EndWhile
Sub 读参数
Plugin ren=Memory.Read16Bit(hwn,renAdd)
Plugin xmin=Memory.Read16Bit(hwn,hpAdd)
Plugin chp=Memory.Read16Bit(hwn,chpAdd)
Plugin day=Memory.Read32Bit(hwn,dayAdd)
Return 读参数
Sub 清屏
VBS i=0
Plugin Window.SendKeyPress(hwn,120)
Return 清屏
Sub 划船
If sw2=1
Gosub 读参数
VBS hp=xmin
While hp=xmin
Plugin Window.SendKeyPress(hwn,113)
Plugin Window.SendKeyPress(hwn,27)
Gosub 点岸边
Gosub 读参数
VBS i=i+1
If i-delaymax>0
Goto 超时退出
EndIf
EndWhile
Rem 超时退出
Gosub 清屏
EndIf
Return 划船
Sub 操帆
If sw1=1
Gosub 读参数
VBS hp=xmin
While hp=xmin
Plugin Window.SendKeyPress(hwn,116)
Plugin Window.SendKeyPress(hwn,27)
Gosub 点岸边
Gosub 读参数
VBS i=i+1
If i-delaymax>0
Goto 超时退出1
EndIf
EndWhile
Rem 超时退出1
If sw1_1=1
Plugin BGKM5.LClick(hwn,781,581)
EndIf
Gosub 清屏
EndIf
Return 操帆
Sub 点岸边
If hcsw=1
Plugin BGKM5.RClick(hwn,pd1,pd2)
Plugin BGKM5.LDBCLK(hwn,pd1,pd2)
EndIf
If hcsw=0
Plugin BGKM5.LDBCLK(hwn,pd1,pd2)
Plugin BGKM5.LDBCLK(hwn,pd1+20,pd2)
EndIf
Return 点岸边
Sub 副官
If sw5=1
Gosub 读参数
VBS day1=(day-day4)/sw5_2-(day-day4)\sw5_2
VBS day2=day-day4-sw5_2
If day1=0 and day2>=0 and day3-day<>0
VBS day3=day
For 3
Plugin Window.SendKeyPress(hwn,123)
EndFor
Delay 2000
Plugin Window.SendKeyPress(hwn,40)
Delay 1000
If sw5_1=1
Plugin BGKM5.LClick(hwn,343,98)
Delay 1000
Plugin Window.SendKeyPress(hwn,38)
Delay 1000
EndIf
Plugin Window.SendKeyPress(hwn,13)
Delay 1000
Plugin Window.SendKeyPress(hwn,27)
EndIf
EndIf
Return 副官
Sub 自定义1
If sw3=1
Gosub 读参数
VBS hp=xmin
While hp=xmin
Plugin Window.SendKeyPress(hwn,114)
Plugin Window.SendKeyPress(hwn,27)
Gosub 点岸边
Gosub 读参数
VBS i=i+1
If i-delaymax>0
Goto 超时退出2
EndIf
EndWhile
Rem 超时退出2
Gosub 清屏
EndIf
Return 自定义1
Sub 自定义2
If sw4=1
Gosub 读参数
VBS hp=xmin
While hp=xmin
Plugin Window.SendKeyPress(hwn,115)
Plugin Window.SendKeyPress(hwn,27)
Gosub 点岸边
Gosub 读参数
VBS i=i+1
If i-delaymax>0
Goto 超时退出3
EndIf
EndWhile
Rem 超时退出3
Gosub 清屏
EndIf
Return 自定义2
Sub 救助
Gosub 读参数
While ren=0 or chp=0
Plugin Window.SendKeyPress(hwn,112)
Gosub 点岸边
Plugin Window.SendKeyPress(hwn,27)
Gosub 读参数
EndWhile
Return 救助
Sub 吃料理
Gosub 读参数
While xmin-hpmax<0
Plugin Window.SendKeyPress(hwn,118)
Gosub 点岸边
Plugin Window.SendKeyPress(hwn,27)
Gosub 读参数
EndWhile
Return 吃料理



============================================

希望大家喜欢这个脚本，有什么问题的话 大家都一起来交流 修改！
我们共同把这个脚本完善～
该贴在 2008年07月02日 02:16:34 被 嚣张·公爵 修改过!
该贴在 2008年07月02日 02:17:27 被 嚣张·公爵 修改过!

给大家推荐个 查游戏内存地址的工具 Cheat Engine

SF~~~``

置顶关于打击马甲通告
从即日起 大航海时代论坛将开始打击无端造谣挑拨是非的马甲
有无端造谣挑拨是非的马甲嫌疑的论坛ID一律在调查之列
一经查实确实为挑拨是非的马甲将永久封号
做出处理后版主将会公告马甲ID
17173论坛版主与管理员保留最终解释权

謝謝！！但我不挂機的！

如果_我ザ]能回到︿從前︿我會ｏ選擇ω不認識伱”
々不是我後悔→是我不能ｏ￡面對。|沒有|伱的§結局][
�…分手後→不可以做朋友→因爲彼此傷害過^O^
Θ¨不可以做敵人]…因爲彼此心愛過※＼
(所以￡兩嗰人成爲了最熟悉的￣∞￣←陌生人

有人在吗

谁能发个后台脚本用的按键精灵补丁给我

....公爵竟然是北碚的啊！！！

游戏ID:1-3 寻找

静静等待朋友的归来！

难道你是福州的老乡?是的话,我看你帮我装下比较好.谢谢

大航海时代1-3
荷兰 。所属商会（荷兰风车）
副官名字（我爱船长，船长爱我，2楞子，划船叫我）

谢谢lz分享,好东西大家都会顶!o(∩_∩)o...

后台可以最小化吗？

貌似不能最小化，但是可以覆盖

我说的对不

技术贴

善待你身边的动物，就是善待你的心。

好贴要顶

怎么挂一到两个小时，游戏就自动退出？其他一切正常！望解答！！！老版本一切正常，没出现过这种情况！望大虾解答

谢谢公爵

上级逼,下级逼,互相逼,自我逼。不吃苦中苦、难有大突破,不经逼中逼、难上冠军台。--------------預祝女子體操隊取得佳績^^
1-3 小葡萄 无党派人士 醉清风（停留在Aztec）

ren hao duo a

这个帖子一定要顶,挂采集被限制了,还好挂划船操舵没限..

楼主说的查内存地址的工具没用过,不会搞 以后就等楼主修改好了的!

顶

借贵宝地一水,努力80000贴中···

1-3 堂诘诃德 荷兰 <海上特别行动旅>

谢谢LZ。。。。

我的按键根本就没plugin文件夹....