功夫世界自动打怪脚本源码

【功能说明】 

自动打怪 自动加血 自动加兰 自动捡取 

【使用说明】 

1、红放F1键，兰放F2键。 

2、1键放普通功击，2、3键放功击技能。 

3、窗口化游戏进入，本脚本会自动将游戏窗口设为最大化。 

4、请先进入游戏跑到打怪点再运行本脚本。 

5、屏幕分辩率支持两种版本，请先按说明设好，然后在设定窗口选定相应的设置。 

A、1024*768  32位真彩色； 

B、1280*768  32位真彩色。 

6、加红和加兰以百分比形式设定，在设定窗口可以选择。 

运行环境：分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@cnfull 

UserVar jhp=80 当生命少于%时，使用红药  
UserVar jmp=30 当真气少于%时，使用兰药  
Delay 300  
Rem 开始  
Gosub 屏幕检测  
Delay 300  
EndScript   
Sub 屏幕检测  
    Plugin cx=Sys.GetScRX()  
    Plugin cy=Sys.GetScRY()  
    Delay 300  
    Plugin s=Sys.GetScDep()  
    Delay 300  
    If cx=1280 and cy=1024 and s=32  
        Delay 100  
        Gosub 窗口检测  
        Delay 300  
        Gosub 主程序1  
    Else   
        If cx=1024 and cy=768 and s=32  
            Gosub 窗口检测  
            Gosub 主程序2  
        EndIf   
        VBSCall MessageBox ("检测2：屏幕分辩率或者颜色设置不对，请按标准设置后，重新运行脚本！")  
    EndScript   
EndIf   
Return   
Sub 窗口检测  
    Delay 300  
    Plugin hwnd=Window.Find(0,"Gongfu Client")  
    Delay 300  
    If hwnd<>0  
        Delay 300  
        Plugin Window.Active(hwnd)  
        Delay 300  
        Plugin Window.Max(hwnd)  
        Delay 300  
    Else   
        Delay 300  
        MessageBox "程序未启动，请先启动程序！重新运行脚本！"  
    EndScript   
EndIf   
Return   
Sub 主程序1  
    Gosub 判断血兰1  
    For 6  
        KeyPress 192,1  
        Delay 100  
    EndFor   
    KeyPress 9,1  
    Delay 100  
    Gosub 打怪1  
Return   
Sub 打怪1  
    Rem 技能1  
    KeyPress 49,1  
    Delay 100  
    KeyPress 50,1  
    Delay 100  
    KeyPress 51,1  
    Delay 1000  
    Gosub 判断血兰1  
    IfColor 553,82,3938FF,2  
        Delay 300  
        Goto 技能1  
    EndIf   
    Gosub 主程序1  
Return   
Sub 判断血兰1  
    Lx=16  
    Rx=175  
    hpy=93  
    mpy=111  
    Hcolor="584D3F"  
    Mcolor="605548"  
    VBSCall Hpx=int(jhp/100*(RX-lx)+lx)  
    VBSCall mpx=int(jmp/100*(Rx-lx)+LX)  
    IfColor Hpx,hpy,Hcolor,2  
        KeyPress 112,1  
        Delay 50  
    EndIf   
    IfColor mpx,mpy,Mcolor,2  
        KeyPress 113,1  
        Delay 50  
    EndIf   
Return   
Sub 主程序2  
    Gosub 判断血兰2  
    For 6  
        KeyPress 192,1  
        Delay 100  
    EndFor   
    KeyPress 9,1  
    Delay 100  
    Gosub 打怪2  
Return   
Sub 打怪2  
    Rem 技能2  
    KeyPress 49,1  
    Delay 100  
    KeyPress 50,1  
    Delay 100  
    KeyPress 51,1  
    Delay 1000  
    Gosub 判断血兰2  
    IfColor 441,67,0201EA,0  
        Delay 300  
        Goto 技能2  
    EndIf   
    Gosub 主程序2  
Return   
Sub 判断血兰2  
    Lx=14  
    Rx=139  
    hpy=74  
    mpy=86  
    Hcolor="574C3E"  
    Mcolor="524539"  
    VBSCall hpx=int(jhp/100*(Rx-Lx)+Lx)  
    VBSCall mpx=int(jmp/100*(Rx-Lx)+Lx)  
    IfColor Hpx,hpy,Hcolor,2  
        KeyPress 112,1  
        Delay 50  
    EndIf   
    IfColor mpx,mpy,Mcolor,2  
        KeyPress 113,1  
        Delay 50  
    EndIf   
Return