// 2-1区 西瓜 流星雨 制作
// 后台操舵划船操帆脚本 V1.3版
// 需要361后台插件支持
// 361后台插件下载地址:http://bbs.vrbrothers.com/viewthread.php?tid=33722&extra=page%3D1
// 请把解压后的文件放在按建精灵/plugin目录下
//**********************功能描述****************************************
// 支持800*600/任意分辩率
// 练习 操帆 操舵 划船, 吃料理 自我救助 ,第一次用请把鼠标放到船侧身 或岸边,启动脚本后
// 会记录鼠标位置,脚本会自我究错,如有什么疑问可在线m我!(副官可以设船医)
// 1.3版新加入自定义技能键 F3,F4 放入想要用的技能,并打开SW3 SW4
//
// delaymax 参数 是用来调节网速的,跟剧网速自己调一下默认为10
// hcsw 开关参数 为1启用转圈划船,为0点岸边! 启用转圈时请把光标指向船侧身
// 启用点岸时请把光标指向岸边 ,脚本会记录光标位置!
// jssw 开关参数 操帆加速练习开关 1启用加速但需要分辩率为800*600,0关闭加速支持任意分辩率
// SW1 开关参数 1开启 0关闭 用户自定义要练习的技能
// SW2 开关参数 1开启 0关闭 用户自定义要练习的技能
//*********************功能键描述**************************************
//
// 自定义栏登陆: f1=救助(或道具),f2=划船,F3=自定义1,F4=自定义2f5=操帆,f7=料理
// 快捷键登陆: f1,f2,f5,f7=自定义栏 f9=持有物品一揽
//
//*********************************************************************
VBS Dim i,j,ren,chp,hp,xmin,pd1,pd2,hpmax,delaymax,hcsw,jssw,sw1,sw2
VBS Dim chpAdd,renAdd,hpAdd,DayAdd
UserVar hpmax=60 吃料理体力上限
UserVar delaymax=10 调节网速
UserVar hcsw=1 为1启用转圈划船,为0点岸边! 启用转圈时请把光标指向船侧身
UserVar jssw=1 操帆加速练习开关 1启用加速但需要分辩率为800*600,0关闭加速支持任意分辩率
UserVar sw1=1 操帆开关1开启0关闭(F5)
UserVar sw2=1 划船开关1开启0关闭(F2)
UserVar sw3=1 自定义开关1开启0关闭(F3)
UserVar sw4=1 自定义开关1开启0关闭(F4)
VBS chpAdd=&H00a77e6e
VBS renAdd=&H00a77e60
VBS hpAdd=&H00A77e54
VBS DayAdd=&H00a79b6c
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)
While 1
Gosub 点岸边
Gosub 救助
Gosub 点岸边
Gosub 吃料理
Gosub 点岸边
Gosub 划船
Gosub 点岸边
Gosub 操帆
Gosub 点岸边
Gosub 自定义1
Gosub 点岸边
Gosub 自定义2
Gosub 点岸边
EndWhile
Sub 读参数
Plugin ren=Memory.Read16Bit(hwn,renAdd)
Plugin xmin=Memory.Read16Bit(hwn,hpAdd)
Plugin chp=Memory.Read16Bit(hwn,chpAdd)
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 jssw=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,400,100)
Delay 400
Plugin BGKM5.LDBCLK(hwn,400+15,100)
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 救助
While ren<1 or chp<1
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 吃料理