Gosub 坐标转换
                IfColor PosX,PosY,FFFFFF,2
                    PosX = 650
                    PosY = 328
                    Gosub 坐标转换
                    IfColor PosX,PosY,FFFFFF,2
                        StMenu = 1
                        Gosub 等按钮
                        Gosub 当前时间
                        Message = CurrentTime & "入码头成功..."
                        Gosub 写入日志文件
                    Else 
                        Gosub 当前时间
                        Message = CurrentTime & "！！！入码头未成功..."
                        Gosub 写入日志文件
                        If MaTou = 1
                            Gosub 查找码头导航员
                        Else 
                            Gosub 查找码头官员
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndWhile 
    //补给
    PosX = 689
    PosY = 356
    Gosub 移动鼠标
    LeftClick 1
    Gosub 延时判定
    Delay 1500
    //补给到保存数量（30，30，35）
    PosX = 138
    PosY = 350
    Gosub 移动鼠标
    LeftClick 1
    Delay 1000
    PosX = 602
    PosY = 393
    Gosub 移动鼠标
    IfColor PosX,PosY,6A604D,1
        LeftClick 1
        Gosub 延时判定
        Delay 2000
    Else 
        KeyPress 27,1
        Delay 2000
    EndIf 
    //出航
    StMenu = 0
    While StMenu = 0
        PosX = 649
        PosY = 357
        Gosub 移动鼠标
        LeftClick 1
        Gosub 延时判定
        Delay 1500
        PosX = 640
        PosY = 386
        Gosub 移动鼠标
        LeftClick 1
        Gosub 延时判定
        Delay 1000
        PosX = 23
        PosY = 2
        Gosub 坐标转换
        IfColor PosX,PosY,9A9EAF,2
            PosX = 2
            PosY = 23
            Gosub 坐标转换
            IfColor PosX,PosY,9A9EAF,2
                PosX = 23
                PosY = 44
                Gosub 坐标转换
                IfColor PosX,PosY,9A9EAF,2
                    PosX = 45
                    PosY = 23
                    Gosub 坐标转换
                    IfColor PosX,PosY,9A9EAF,2
                        StMenu = 1
                        Gosub 当前时间
                        Message = CurrentTime & "出航成功..."
                        Gosub 写入日志文件
                    Else 
                        Gosub 当前时间
                        Message = CurrentTime & "！！！出航未成功..."
                        Gosub 写入日志文件
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndWhile 
Return 入码头出航
//======================================================================================
Sub 交易事项
    If iaccountant = 0
        Gosub 卖出商品
    ElseIf iaccountant = 1
        Gosub 会计卖出