Plugin hwnd=Window.Foreground()
Import window.dll
VBSBegin 
    win=Window.Foreground()
    client=Window.GetClientRect(win)
    s=split(client,"|")
    dx=s(0)
    dy=s(1)
    zx=s(2)
    zy=s(3)
VBSEnd 
Dim red,blue,bbred,redwait,bluewait,monwait,fqg,jb,a,b,c,k,q,s1,s2,s3,s4,s5,s6,s7,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10
t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=0
UserVar fqg=DropList{防抢怪:0|不防抢怪:1}=0 防抢怪设置
UserVar jb=DropList{不捡包:0|自动捡包:1}=0 是否捡物
UserVar s1=2 门派普攻F1间隔(秒)
UserVar s2=20 单体攻击F2间隔(秒)
UserVar s3=20 单体攻击F3间隔(秒)
UserVar s4=25 怒气攻击F4间隔(秒)
UserVar s5=80 自定技能F5间隔(秒)
UserVar s6=60 BB技能F6间隔(秒)
UserVar s7=10 状态技能F7间隔(分)
UserVar red=DropList{30%:30|50%:50|70%:70}=1 血少于%加血F8
UserVar blue=DropList{30%:30|50%:50|70%:70}=0 蓝少于%加蓝F9
UserVar bbred=DropList{没有出战:0|20%:20|30%:30|50%:50}=2 宠少于%加血F10
UserVar redwait=1 红药冷却时间(秒)
UserVar bluewait=1 蓝药冷却时间(秒)
UserVar monwait=100 寻怪延时(毫秒)
PutAttachment .\plugin *.dll
Rem 开始
Delay monwait
Gosub 验证码
Gosub 找怪
If fqg=0
    IfColor dx+369,dy+31,1E252A,2
        Goto 开始
    EndIf 
EndIf 
Rem 继续杀怪
Gosub 判断血蓝状态
Gosub BB血状态
Gosub 杀怪
Rem End
EndScript 
Sub 验证码
    Rem 再次报警
    VBSCall FindPic(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y)
    If x>0 and y>0
        Plugin SimPlayer.ring(19)
        //使用了声音插件,需要自己去官网下载
        Delay 2000
    EndIf 
    While x>0
        VBSCall FindPic(0,300,600,550,"Attachment:\20S.bmp",0.9,x,y)
        If x>=0 and y>=0
            IfColor x+17,y+9-k,FFFFFF,0
                KeyPress 27 1
                Delay 1000
                MoveTo dx+446,dy+315
                Delay 1000
                LeftClick 1
                Goto End
            EndIf 
        Else 
            Goto 再次报警
        EndIf 
    EndWhile 
Return 验证码
Sub 判断血蓝状态
    IfColor red/100*120+66+dx,dy+31,222222,2
        a=a+1
    Else 
    EndIf 
    IfColor blue/100*120+66+dx dy+37 222222 2
        b=b+1
    Else 
    EndIf 
Return 判断血蓝状态
Sub BB血状态
    If bbred>0
        IfColor bbred+91+dx dy+69 111111 2
            c=c+1
        EndIf 
    EndIf 
Return BB血状态
Sub 找怪
    KeyDown 1,1
    Delay 10
    KeyPress 9,1
    Delay 10
    KeyUp 1,1
    Delay 10
Return 找怪
Sub 杀怪
    IfColor dx+247,dy+31,0019FF,2
        IfColor dx+261,dy+31,0011ff,2
            Gosub 技能
        Else 
            KeyPress 12 1
            Delay 1000