EndIf 

    EndWhile 

    gggju=0

    While gggju<100

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

        If x>0 and y>0

            LeftClick 1

            Delay 200

            gggju=100

        Else 

            Delay 100

            gggju=gggju+1

        EndIf 

    EndWhile 

Return 给予

Sub 报警

    For 3

        Plugin Media.Beep(1976, 100)

        Plugin Media.Beep(349, 100)

    EndFor 

    MessageBox "装备出售完毕！恭喜发财，红包拿来！！！！！！！~"

Return 报警

Sub 善后

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

    If x>0 and y>0

        zx=x+124

        zy=y-20

        Gosub 天鼠

        Delay 100

        LeftDown 1

        Delay 300

        zx=x+124

        zy=y+10

        Gosub 天鼠

        Delay 100

        LeftUp 1

        Delay 200

        RightClick 1

        Delay 500

    EndIf 

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

        zy=yud+238

        Gosub 天鼠

        LeftClick 1

        Delay 500

    EndIf