修改到C3+的内存地址.
漂副官！首先设置 飘副官的天数为 你副官中属性值最高的那个职位+20的天数
比如 2个副官中 100的属性值就忽略 剩下其中1个最高的属性值是85 那么你的飘副官天数就是105
UserVar sw5_2=105 漂副官职位天数(天)
还有个需要提醒的是 这个是个简单的方法 开始漂的时候
第1副官最好设置在 航海长 第2副官设置在 船医 位置
目的就是 在第一次换副官位置的时候 第1 和第2 副官的
位置 不能换成一样的了。。如果换成一样 就无法确定！
呵呵。。暂时这样吧。。。
查内存软件 Cheat Engine
4个内存变量顺序分别是 耐久 水手 行动力 海上的天数
============================================================
// 后台漂副官操舵划船操帆脚本 V3.1正式版
// 需要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=80 漂副官职位天数(天)
VBS chpAdd=&H00b0663a
VBS renAdd=&H00b0662c
VBS hpAdd=&H00b06620
VBS dayAdd=&H00b084e4
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
Plugin BGKM5.LClick(hwn,343,98)
Delay 1000
Plugin Window.SendKeyPress(hwn,38)
Delay 1000
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 吃料理
该贴在 2009年03月17日 21:40:50 被 嚣张·公爵 修改过!
