Delay 3000
        //判断码头两字是否还在
        PosX = 628
        PosY = 329
        Gosub 坐标转换
        IfColor PosX,PosY,FFFFFF,1
            PosX = 640
            PosY = 329
            Gosub 坐标转换
            IfColor PosX,PosY,FFFFFF,1
                PosX = 646
                PosY = 329
                Gosub 坐标转换
                IfColor PosX,PosY,FFFFFF,1
                    PosX = 650
                    PosY = 328
                    Gosub 坐标转换
                    IfColor PosX,PosY,FFFFFF,1
                        StMenu = 1
                        Gosub 当前时间
                        Message = CurrentTime & "下码头成功..."
                        Gosub 写入日志文件
                    Else 
                        Gosub 当前时间
                        Message = CurrentTime & "！！！下码头未成功..."
                        Gosub 写入日志文件
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndWhile 
Return 下码头
Sub 查找码头官员
    //Delay 1000
    NPC_Find = 0
    KeyDown 27,1
    Delay 600
    While NPC_Find = 0
        KeyPress 9,1
        Delay 1000
        PosX = 639
        PosY = 328
        Gosub 坐标转换
        IfColor PosX,PosY,FFFFFF,2
            PosX = 650
            PosY = 328
            Gosub 坐标转换
            IfColor PosX,PosY,FFFFFF,2
                PosX = 664
                PosY = 328
                Gosub 坐标转换
                IfColor PosX,PosY,FFFFFF,2
                    PosX = 683
                    PosY = 328
                    Gosub 坐标转换
                    IfColor PosX,PosY,FFFFFF,2
                        NPC_Find = 1
                        KeyUp 27,1
                        Delay 600
                        KeyPress 13,1
                        Delay 1000
                        Gosub 等按钮
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndWhile 
Return 查找码头官员
Sub 查找码头导航员
    //Delay 1000
    NPC_Find = 0
    KeyDown 27,1
    Delay 600
    While NPC_Find = 0
        KeyPress 9,1
        Delay 2000
        PosX = 639
        PosY = 328
        Gosub 坐标转换
        IfColor PosX,PosY,FFFFFF,2
            PosX = 650
            PosY = 328
            Gosub 坐标转换
            IfColor PosX,PosY,FFFFFF,2
                PosX = 668
                PosY = 328
                Gosub 坐标转换
                IfColor PosX,PosY,FFFFFF,2
                    PosX = 681
                    PosY = 328
                    Gosub 坐标转换
                    IfColor PosX,PosY,FFFFFF,2
                        PosX = 698
                        PosY = 328
                        Gosub 坐标转换
                        IfColor PosX,PosY,FFFFFF,2
                            NPC_Find = 1
                            KeyUp 27,1
                            Delay 600
                            KeyPress 13,1