Gosub 天鼠

                    RightClick 1

                    Delay 100

                    LeftClick 1

                    Delay 5000

                Else 

                    zx=227

                    zy=322

                    Gosub 天鼠

                    RightClick 1

                    Delay 500

                    KeyDown 18,1

                    KeyPress 84,1

                    KeyUp 18,1

                    Delay 300

                    zx=567

                    zy=145

                    Gosub 天鼠

                    LeftClick 1

                    Delay 5000

                EndIf 

            EndIf 

        Else 

            Delay 500

            xgxg=xgxg+1

        EndIf 

    EndWhile 

Return 长安

Sub 彪局

    KeyPress 9,1

    Delay 500

    VBSCall FindPic(3,22,640,480,"c:\gujias\renwu.bmp",0.9,xud,yud)

    If xud>0 and yud>0

        zx=xud+140

        zy=yud+165

        Gosub 天鼠

        LeftClick 1

        Delay 500

    EndIf 

    KeyPress 9,1

    Delay 500

Return 彪局

Sub 卖体

    dh=0

    While dh<500

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

        If x>0 and y>0

            Delay 2000

            KeyPress 120,1

            Delay 200