zx=105

                    zy=315

                    Gosub 天鼠

                    LeftClick 1

                    Delay 200

                    MoveTo 50,430

                    Delay 100

                EndIf 

                xff=xff+1

            EndIf 

        EndWhile 

    EndIf 

    If kja=1

        Rem 白天

        xff=0

        While xff<100

            VBSCall FindPic(0,0,640,480,"c:\gujias\zhuang.bmp",0.9,x,y)

            If x>0 and y>0

                xff=100

                zx=x+39

                zy=y-38

                Gosub 天鼠

                LeftClick 1

                Delay 200

                MoveTo 50,430

                Delay 100

            Else 

                Delay 100

                xff=xff+1

            EndIf 

        EndWhile 

    EndIf 

    Rem 夏天

    gujia=0

    While gujia<20

        VBSCall FindPic(0,0,640,480,"c:\gujias\gei.bmp",0.9,x8k,y8k)

        If x8k>0 and y8k>0

            gujia=20

            zx=x8k+8

            zy=y8k+5

            Gosub 天鼠

            LeftClick 1

            Delay 200

            MoveTo 50,430

            Delay 100

        Else 

            Delay 500

            gujia=gujia+1

            If gujia>10

                If kja=0