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