jn4m=jn4m+1

EndFor 

dhp=0

While dhp<5

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

    If x>0 and y>0

        dhp=5

    Else 

        zx=148

        zy=387

        Gosub 天鼠

        LeftClick 1

        Delay 2000

        dhp=dhp+1

    EndIf 

EndWhile 

Gosub 等级

If tx>30

    thn=0

    For kyu

        Plugin Window.Active(jianfei(thn))

        Delay 500

        Gosub 彪局

        thn=thn+1

    EndFor 

EndIf 

If tx=30

    thyn=0

    For kyu

        Plugin Window.Active(jianfei(thyn))

        Delay 500

        Gosub 小兔

        thyn=thyn+1

    EndFor 

EndIf 

If bj=0

    Gosub 报警

EndIf 

EndScript 

Sub OnScriptExit

    Plugin FindPicture5.FreeBMP(xiahaa)

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-146

        zy=yud+179

        Gosub 天鼠