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=&H00CD38B2
VBS renAdd=&H00CD38A4
VBS hpAdd=&H00CD3898
VBS dayAdd=&H00CD65F4
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