夺宝中华打修脚本

夺宝中华打修脚本是一款适用于电脑、手机双端夺宝中华侠客行的挂机脚本，用法同大多按键精灵脚本差不多，让你在休息之余轻松修炼内力，提升战力，推荐给大家哦！

夺宝中华侠客行脚本简介

#这是按键精灵生成的脚本源文件

#在理解各条命令的基础上,您可以修改这个文件的内容

#您修改的结果将会在普通视图上有所反映

#本脚本需配合winwap4.0使用

夺宝中华修内力脚本/挂机脚本

Sub xiunei

    Rem 状态

    vbSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\状态.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Gosub chenkstop

        Goto 身体状态

    EndIf 

    If intX=-1 and intY=-1

        Gosub reg

        Goto 状态

    EndIf 

    Rem 身体状态

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\身体状态.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Gosub chenkstop

        Goto 修炼内力

    EndIf 

    If intX=-1 and intY=-1

        Gosub 返回游戏

        Goto 状态

    EndIf 

    Rem 修炼内力

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\修炼内力.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Gosub chenkstop

        Goto 方框

    EndIf 

    If intX=-1 and intY=-1

        Gosub 返回游戏

        Goto 状态

    EndIf 

    Rem 方框

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\内力方框.bmp",1,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Delay 100

        KeyDown 50,1

        Delay 100

        KeyUp 50,1

        Delay 100

        KeyDown 48,1

        Delay 100

        KeyUp 48,1

        Delay 100

        Gosub queding

        //xinx=信息

        Gosub xinxi

        Goto xiunei_end

    EndIf 

    If intX=-1 and intY=-1

        Gosub 返回游戏

        Goto 状态

    EndIf 

    Rem xiunei_end

    Goto 状态

Return 

Sub reg

    Rem denglu

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\登陆.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Gosub chenkstop

        Goto 进入五区

    EndIf 

    If intX=-1 and intY=-1

        MoveTo 170,70

        LeftClick 1

        Gosub chenkstop

        Goto denglu

    EndIf 

    //

    Rem 进入五区

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\进入五区.bmp",1,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Gosub chenkstop

        Goto 环顾四方

    EndIf 

    If intX=-1 and intY=-1

        MoveTo 170,70

        LeftClick 1

        Gosub chenkstop

        Goto denglu

    EndIf 

    //

    Rem 环顾四方

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\环顾四方.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        Goto reg_end

    EndIf 

    If intX=-1 and intY=-1

        Goto 进入江湖

    EndIf 

    //

    Rem 进入江湖

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\进入江湖.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Gosub chenkstop

        Goto 环顾四方

    EndIf 

    If intX=-1 and intY=-1

        MoveTo 170,70

        LeftClick 1

        Gosub chenkstop

        Goto denglu

    EndIf 

    Rem reg_end

Return 

Sub chenkstop

    Rem quxiao

    Delay 2222

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\取消.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Delay 500

        MoveTo 225,75

        LeftClick 1

        Delay 500

        Goto stop

    EndIf 

    If intX=-1 and intY=-1

        Goto stop

    EndIf 

    Rem stop

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\停止.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        Goto error

    EndIf 

    If intX=-1 and intY=-1

        Goto quxiao

    EndIf 

    Rem error

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\error.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo 230,70

        LeftClick 1

        Goto stop

    EndIf 

    If intX=-1 and intY=-1

        Goto chenkstop_end

    EndIf 

    Rem chenkstop_end

Return 

Sub fanhui

    Rem 返回

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\返回.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Gosub chenkstop

        Goto fanhui_end

    EndIf 

    If intX=-1 and intY=-1

        Goto reg

    EndIf 

    Rem fanhui_end

Return 

Sub fanhuiyouxi

    Rem 返回游戏

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\返回游戏.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Gosub chenkstop

        Goto fanhuiyouxi_end

    EndIf 

    If intX=-1 and intY=-1

        Goto reg

    EndIf 

    Rem fanhuiyouxi_end

Return 

Sub queding

    Rem 确定

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\确定.bmp",1,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Gosub chenkstop

    EndIf 

Return 

Sub xinxi

    Rem 信息

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\继续修炼.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        Gosub queding

        Goto 信息

    EndIf 

    If intX=-1 and intY=-1

        Goto 内力提高

    EndIf 

    Rem 内力提高

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\内力提高.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        Gosub queding

        Gosub fanhui

        Gosub queding

        Goto 信息

    EndIf 

    If intX=-1 and intY=-1

        Goto 等级提高

    EndIf 

    Rem 等级提高

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\等级提高.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        Gosub fanhui

        Gosub queding

        Goto 信息

    EndIf 

    If intX=-1 and intY=-1

        Goto 精神不够

    EndIf 

    Rem 精神不够

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\太累了.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        Gosub fanhuiyouxi

        Gosub xiuxi

        Goto xinxi_end

    EndIf 

    If intX=-1 and intY=-1

        Goto 等级不够

    EndIf 

    Rem 等级不够

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\等级不够.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        Gosub fanhuiyouxi

        Goto 开始挂机

    EndIf 

    If intX=-1 and intY=-1

        Goto reg

    EndIf 

    Rem xinxi_end

Return 

Sub xiuxi

    Rem 长安睡觉

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\睡觉.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Delay 8000

        Gosub chenkstop

        Goto 等待

    EndIf 

    If intX=-1 and intY=-1

        Goto 休息

    EndIf 

    Rem 休息

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\休息.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY+10

        LeftClick 1

        Delay 8000

        Gosub chenkstop

        Goto 等待

    EndIf 

    If intX=-1 and intY=-1

        Goto xiuxi_end

    EndIf 

    Rem 等待

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\等待.bmp",1,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Gosub chenkstop

        Goto xiuxi_end

    EndIf 

    If intX=-1 and intY=-1

        Goto xiuxi_end

    EndIf 

    Rem xiuxi_end

Return 

Sub 开始挂机

    Rem hgsf

    VBSCall Call FindPic(0,50,1023,767,"E:\luzooy\duobao\外挂\bmp\环顾四方.bmp",0.9,intX,intY)

    If intX>=0 and intY>=0

        MoveTo intX,intY

        LeftClick 1

        Delay 5000

        Gosub chenkstop

        Goto hgsf

    EndIf 

    If intX=-1 and intY=-1

        Goto hgsf

    EndIf 

Return 

EndScript