/ ============= 2-1区   西瓜  流星雨 制作  ==========================
/             前台任意分辩率操舵划船操帆脚本
/**********************功能描述****************************************
/                   支持任意分辩率
/ 练习 操帆 操舵 划船, 吃料理 自我救助 ,第一次用请把鼠标放到岸边,启动脚  本后
/  会记录鼠标位置,脚本会自我究错,如有什么疑问可在线m我!(副官可以设船医)
/ delaymax 参数是用来调节网速的,跟剧网速自己调一下默认为10
/*********************功能键描述**************************************
/
/自定义栏登陆: f1=救助(或道具),f2=划船,f5=操帆,f7=料理
/快捷键登陆: f1,f2,f5,f7=自定义栏  f9=持有物品一揽
/
/*********************************************************************
VBS Dim delaymax,i,ren,chp,hp,xmin
UserVar delaymax=10
SaveMousePos
While 1
    Gosub 读参数
    Gosub 点岸边
    Gosub 救助
    Gosub 点岸边
    Gosub 吃料理
    Gosub 点岸边
    Gosub 划船
    Gosub 点岸边
    Gosub 操帆
    Gosub 点岸边
EndWhile
Sub 读参数
    VBSCall ReadMemory(&h00a77e60,2,ren)
    VBSCall ReadMemory(&h00a77e54,2,xmin)
    VBSCall ReadMemory(&h00a77e6e,2,chp)
Return 读参数
Sub 清屏
    VBS i=0
    KeyPress 120,1
Return 清屏
Sub 划船
    VBSCall ReadMemory(&h00a77e54,2,xmin)
    VBS hp=xmin
    While hp=xmin
        KeyPress 113,1
        KeyPress 27,1
        KeyPress 46,1
        Gosub 点岸边
        VBSCall ReadMemory(&h00a77e54,2,xmin)
        VBS i=i+1
        If i>delaymax
            Goto 超时退出
        EndIf
    EndWhile
    Rem 超时退出
    Gosub 清屏
Return 划船
Sub 操帆
    VBSCall ReadMemory(&h00a77e54,2,xmin)
    VBS hp=xmin
    While hp=xmin
        KeyPress 116,1
        KeyPress 27,1
        Gosub 点岸边
        VBSCall ReadMemory(&h00a77e54,2,xmin)
        VBS i=i+1
        If i>delaymax
            Goto 超时退出1
        EndIf
    EndWhile
    Rem 超时退出1
    Gosub 清屏
Return 操帆
Sub 点岸边
    RestoreMousePos
    LeftClick 1
Return 点岸边
Sub 救助
    While ren<1 or chp<1
        KeyPress 112,1
        Gosub 点岸边
        KeyPress 27,1
        VBSCall ReadMemory(&h00a77e60,2,ren)
        VBSCall ReadMemory(&h00a77e6e,2,chp)
    EndWhile
Return 救助
Sub 吃料理
    VBSCall ReadMemory(&h00a77e54,2,xmin)
    While xmin<=460
        KeyPress 118,1
        Gosub 点岸边
        KeyPress 27,1
        VBSCall ReadMemory(&h00a77e54,2,xmin)
    EndWhile
Return 吃料理