xh=xh+1

            EndIf 

        EndWhile 

    Else 

        MessageBox "没有飞行符你让我飞什么飞"

        EndScript 

    EndIf 

    KeyDown 18,1

    KeyPress 69,1

    KeyUp 18,1

    Delay 1000

    KeyPress 120,1

    Delay 1000

    cch=0

    While cch<20

        Gosub 坐标

        If gx=361 and gy=243

            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+110

                zy=yud+112

                Gosub 天鼠

                LeftClick 1

                Delay 500

            EndIf 

            KeyPress 9,1

            Delay 500

            cch=20

        Else 

            Delay 500

            cch=cch+1

        EndIf 

    EndWhile 

    xgxg=0

    While xgxg<100

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

        If x>0 and y>0

            Delay 8000

            xgxg=100

            IfColor 387,71,e0fcf8,0

                KeyDown 18,1

                KeyPress 84,1

                KeyUp 18,1

                Delay 300

                VBSCall FindPic(0,0,640,480,"c:\gujias\likai.bmp",0.8,x14,y14)

                If x14>0 and y14>0

                    zx=567

                    zy=145