LeftClick 1

            Delay 200

            MoveTo 50,430

            Delay 100

            Gosub 给予

            Gosub 查找

            jy=jy+1

        Else 

            jy=22

        EndIf 

    EndWhile 

Return 交易

Return 交易

Sub 给予

    xh=0

    Rem 冬天1

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

    If x>0 and y>0

        zx=x+127

        zy=y+36

        Gosub 天鼠

        LeftClick 1

        Delay 200

        MoveTo 50,430

        Delay 100

    EndIf 

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

    If x>0 and y>0

    Else 

        Delay 200

        xh=xh+1

        If xh>100

            Plugin WindowEx5.SetWindowState(jianfei(jm),1)

            xh=0

        EndIf 

        Goto 冬天1

    EndIf 

    ggju=0

    While ggju<100

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

        If x>0 and y>0

            zx=x+30

            zy=y+6

            Gosub 天鼠

            LeftClick 1

            Delay 200

            ggju=100

        Else 

            Delay 100

            ggju=ggju+1