If qys-dy068>=12
                            VBS zf2="6"
                        ElseIf qys-dy068<12
                            VBS zf2="8"
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndIf 
Return {↑}
//
Sub {←}
    VBS zf2=""
    VBS m=0:k=0:dx=qxd:dy=qyd
    VBS dx=dx+m:dy=dy+k
    VBSCall c5=GetPixelColor(dx+0,dy+0)
    While c5="000000"
        VBSCall c1=GetPixelColor(dx-1,dy+1)
        VBSCall c2=GetPixelColor(dx+0,dy+1)
        VBSCall c4=GetPixelColor(dx-1,dy+0)
        VBSCall c5=GetPixelColor(dx+0,dy+0)
        If c5=c4
            VBS dx=dx-1
        ElseIf c5=c1
            VBS dx=dx-1:dy=dy+1
        ElseIf c5=c2
            VBS dy=dy+1
        ElseIf c5<>c4 and c5<>c1 and c5<>c2
            VBS c5="010101"
        EndIf 
    EndWhile 
    VBSCall c5=GetPixelColor(dx+0,dy+0)
    While c5="000000"
        VBSCall c5=GetPixelColor(dx+0,dy+0)
        VBSCall c6=GetPixelColor(dx+1,dy+0)
        If c5=c6
            VBS dx=dx+1
        ElseIf c5<>c6
            VBS c5="010101"
        EndIf 
    EndWhile 
    //这里相当于{↑}的起点了
    VBS qxs=dx:qys=dy
    Gosub {↑}
Return {←}
//
VBSCall c7=GetPixelColor(dx-1,dy-1)
VBSCall c8=GetPixelColor(dx+0,dy-1)
VBSCall c9=GetPixelColor(dx+1,dy-1)
VBSCall c4=GetPixelColor(dx-1,dy+0)
VBSCall c5=GetPixelColor(dx+0,dy+0)
VBSCall c6=GetPixelColor(dx+1,dy+0)
VBSCall c1=GetPixelColor(dx-1,dy+1)
VBSCall c2=GetPixelColor(dx+0,dy+1)
VBSCall c3=GetPixelColor(dx+1,dy+1)
//(qx+m-1,qy+k-1)(qx+m+0,qy+k-1)(qx+m+1,qy+k-1)
//(qx+m-1,qy+k+0)(qx+m+0,qy+k+0)(qx+m+1,qy+k+0)
//(qx+m-1,qy+k+1)(qx+m+0,qy+k+1)(qx+m+1,qy+k+1)
//⑦⑧⑨
//④⑤⑥
//①②③
//┏　┓┗　┛━┃ ①②③④⑤⑥⑦⑧⑨⑩→←↓↑⒈⒉⒊⒋⒌⒍⒎△▲【】
Sub {luweijile}
    If zf1=zf2
        Gosub {←}
    EndIf 
    //M zf1&","&zf2
    If zf1=zf2
        //3-5-4-2-6-1
        VBS is2=InStr(dan(2),zf1)
        If is2>0
            VBS jguo=Left(dan(2),2):weizhi=3
        Else 
            VBS is2=InStr(dan(4),zf1)
            If is2>0
                VBS jguo=Left(dan(4),2):weizhi=5
            Else 
                VBS is2=InStr(dan(3),zf1)
                If is2>0
                    VBS jguo=Left(dan(3),2):weizhi=4
                Else 
                    VBS is2=InStr(dan(1),zf1)
                    If is2>0
                        VBS jguo=Left(dan(1),2):weizhi=2
                    Else 
                        VBS is2=InStr(dan(5),zf1)
                        If is2>0
                            VBS jguo=Left(dan(5),2):weizhi=6
                        Else 
                            VBS is2=InStr(dan(0),zf1)
                            If is2>0
                                VBS jguo=Left(dan(0),2):weizhi=1
                                //
                            EndIf 
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        EndIf