LeftClick 1

        Delay 500

    EndIf 

    KeyPress 9,1

    Delay 500

Return 小兔

Sub 等级

    KeyDown 18,1

    KeyPress 87,1

    KeyUp 18,1

    Delay 500

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

    If x>0 and y>0

        Delay 100

        tilix=x+41

        tiliy=y-19

        Gosub 体力

    EndIf 

    KeyDown 18,1

    KeyPress 87,1

    KeyUp 18,1

    Delay 300

Return 等级

Sub 长安

    Rem 菲菲

    KeyDown 18,1

    KeyPress 69,1

    KeyUp 18,1

    Delay 800

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

    If x>0 and y>0

        zx=x

        zy=y

        Gosub 天鼠

        RightClick 1

        Delay 1000

        xh=0

        While xh<100

            IfColor 445,206,907050,0

                zx=433

                zy=244

                Gosub 天鼠

                LeftClick 1

                Delay 500

                xh=100

            Else 

                If xh>50

                    Goto 菲菲

                EndIf 

                Delay 500