我一直用的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吃料理
相关新闻
