End If
                Else
                    IfColor jssbx+2,jssby+1,"C8E0D0",0 Then
                        IfColor jssbx+2,jssby+5,"C8E0D0",0 Then
                            i = 4
                        Else
                            i = 7
                        End If
                    Else
                        IfColor jssbx-1,jssby+6,"C8E0D0",0 Then
                            i=2
                        Else
                            IfColor jssbx-1,jssby+1,"C8E0D0",0 Then
                                i=8
                            Else
                                i=3
                            End If
                        End If
                    End If
                End If
        
          
            End If

        End If
    
    
    
    
        Delay 30
        
        
        jswby=jswby&i

        jssbx=jssbx+6
    end if

    Call 坐标y()


End sub




         

Sub 测位数x()
    n=0
    i=0   
    While i=0   

        IfColor jssbx,jssby,"C8E0D0",0 Then
            n=n+1
            jssbx=jssbx-6
        Else
            IfColor jssbx+2,jssby-1,"C8E0D0",0 Then
                n=n+1
                jssbx=jssbx-6
            Else
                i=1
            End If
        End If

    EndWhile
    i=0

    jssbx=xgwsx
    jssby =179+h1

    call 坐标x()
End sub


Sub 测位数y()
    n=0
    i=0   
    
    While i=0   

        IfColor jssbx,jssby,"C8E0D0",0 Then
            n=n+1
            jssbx=jssbx+6
        Else
            IfColor jssbx+2,jssby-1,"C8E0D0",0 Then
                n=n+1
                jssbx=jssbx+6
            Else
                i=1
            End If
        End If
    
    EndWhile
    i=0

    jssbx=xgwsx+12
    jssby =179+h1


    call 坐标y()