EndIf 

    If bt>35 or bt<-35

        If bt>35

            bt=35

        EndIf 

        If bt<-35

            bt=-35

        EndIf 

    EndIf 

    MoveR at,bt

    Delay 100

    For 3

        Plugin xy=Color.FindMutiColor(3,22,640,480,"F0F428", "-1|7|F0C810,8|10|48C480,7|11|50F890",1)

        wxy=split(xy,"|")

        wx=CInt(wxy(0))-9

        wy=CInt(wxy(1))-4

        If wx<0 and wy<0

            Plugin xy=Color.FindMutiColor(3,22,640,480,"78A4B0", "-2|4|C0C8D8,-3|5|C0C8D8,-4|6|C0C8D8,-5|7|C0C4D0,-9|9|98C0C8",1)

            wxy=split(xy,"|")

            wx=CInt(wxy(0))-18

            wy=CInt(wxy(1))-9

        EndIf 

        rx=zx-wx

        ry=zy-wy

        MoveR rx,ry

        Delay 80

    EndFor 

Return 天鼠

Sub 天鼠1

    If zx<53 or zx>543

        If zx<53

            zzx=zx+40

        EndIf 

        If zx>543

            zzx=zx-40

        EndIf 

    Else 

        zzx=zx

    EndIf 

    If zy<72 or zy>422

        If zy<72

            zzy=zy+40

        EndIf 

        If zy>422

            zzy=zy-40

        EndIf 

    Else 

        zzy=zy

    EndIf 

    MoveTo zzx,zzy