(南十字星3.002版本修改)
我是在173上看到的,但是版本更新后,原来的内存地址更改了,不能用,现在帮作者更新。
// 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=&H00ac24f2
//VBS chpAdd=&H00ab94ee
//船耐久
VBS renAdd=&H00ac24e4
//VBS renAdd=&H00ab94e0
//水手数
VBS hpAdd=&H00ac24d8
//VBS hpAdd=&H00ab94d4
//当前行动力
VBS dayAdd=&H00ac4354
//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 读参数
//16
Plugin ren=Memory.Read32Bit(hwn,renAdd)
Plugin xmin=Memory.Read32Bit(hwn,hpAdd)
Plugin chp=Memory.Read32Bit(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)
Gosub 点岸边
Plugin Window.SendKeyPress(hwn,27)
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)
Gosub 点岸边
Plugin Window.SendKeyPress(hwn,27)
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 吃料理
此篇文章为17173玩家原创作品,获得积分奖励 0Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
此篇文章为17173玩家原创作品,获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |