hyzb=hyzb+10

                    Delay 1000

                    Goto 春天

                EndIf 

                If kja=1

                    hyzb=hyzb+10

                    Delay 1000

                    Goto 白天

                EndIf 

            EndIf 

        EndIf 

    EndWhile 

    gujia1=0

    While gujia1<20

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

        If x>0 and y>0

            gujia1=20

            If xzzy<1

                zx=x+124

                zy=y-20

                Gosub 天鼠

                Delay 100

                LeftDown 1

                Delay 300

                zx=x+124

                zy=y-50

                Gosub 天鼠

                Delay 100

                LeftUp 1

                Delay 200

                xzzy=1

            EndIf 

        Else 

            Delay 500

            gujia1=gujia1+1

            If gujia1>20

                Delay 500

                Goto 夏天

            EndIf 

        EndIf 

    EndWhile 

Return 查找

Sub 交易

    jy=0

    While jy<22

        Plugin FindPicture5.FindPictureN(jianfei(jm),3,22,640,480,xiaohaa,30,1,x4,y4,wpo)

        If x4>0 and y4>0 and wpo>=0

            zx=x4+5

            zy=y4+30

            Gosub 天鼠