EndIf 
    EndWhile 
Return 最大量
Sub 砍价要价
    PosX = 467
    PosY = 319
    Gosub 移动鼠标
    LeftClick 1
    Delay 2600
Return 砍价要价
Sub 向前行走
    KeyDown 38,1
    Delay TurnAngle
    KeyUp 38,1
    Delay 100
Return 向前行走
Sub 航行技能
    //Delay 1000
    //F2技能
    KeyPress 112,1
    Delay 1500
    KeyPress 113,1
    Delay 1500
    KeyPress 122,1
    Delay 1500
    //F3技能
    KeyPress 112,1
    Delay 1500
    KeyPress 114,1
    Delay 1500
    KeyPress 122,1
    Delay 1500
    //F4技能
    KeyPress 112,1
    Delay 1500
    KeyPress 115,1
    Delay 1500
    KeyPress 122,1
    Delay 1500
Return 航行技能
Sub 航向向前
    PosX = 399
    PosY = 296
    Gosub 移动鼠标
    LeftDoubleClick 2
    Delay 600
Return 航向向前
Sub 修船
    //Delay 1000
    MP = 0
    While MP = 0
        PosX = 45
        PosY = 79
        Gosub 坐标转换
        VBSCall FindColor(PosX,PosY,(PosX+100),PosY,"282828",x,y)
        If x>0 and y>0
            KeyPress 112,1
            Delay 1500
            KeyPress 119,1
            Delay 1500
            KeyPress 122,1
            Delay 1500
        Else 
            MP = 1
        EndIf 
    EndWhile 
Return 修船
Sub 行动力保护
    //Delay 1000
    MP = 0
    While MP = 0
        PosX = 45
        PosY = 115
        Gosub 坐标转换
        VBSCall FindColor(PosX,PosY,(PosX+100),PosY,"282828",x,y)
        If x>0 and y>0
            //行动力为50~150，故行动力长度为100，补到80这个点就可以了，即80%
            x = x - PosX
            If x<80
                KeyPress 112,1
                Delay 1500
                KeyPress 116,1
                Delay 1000
                KeyPress 122,1
                Delay 1000
                iLiaoLi = iLiaoLi-1
            Else 
                MP = 1
            EndIf 
        Else 
            MP = 1
        EndIf 
    EndWhile 
Return 行动力保护
Sub 延时判定
    Delay 500
    Shape1 = 2106545426
    //黄色箭头时候的鼠标形状
    Shape2 = 2012885647
    //网络延时的时候漏斗的形状