VBS dim hong,lan,xgT,BB,BBB,bhong,blan,jn1,jn2,jn3,jn4,jn5,x3,hhh,hh,ll,lll,bh,bbh
UserVar hong=DropList{35%加血:145,57|55%加血:188,58|75%加血:222,58}=1 人百分比加血
UserVar hhh=DropList{35%加血:24292a|55%加血:24292a|75%加血:24292a}=1 人百分比加血
UserVar lan=DropList{25%加蓝:144,75|75%加蓝:222,74}=1 人百分比加蓝
UserVar lll=DropList{25%加蓝:24292a|75%加蓝:24292a}=1 人百分比加蓝
UserVar bhong=DropList{25%加红:162,113|50%加红:182,113|75%加红:202,113}=1 宠百分比加红
UserVar bh=DropList{25%加红:24292a|50%加红:24292a|75%加红:24292a}=1 宠百分比加红
UserVar BB=DropList{第一位宝宝:240|第二位宝宝:255|第三位宝宝:270|第四位宝宝:285}=1 召唤宝宝
UserVar jn1=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 人血药键
UserVar jn2=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 人蓝药键
UserVar jn3=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 宠血药键
UserVar jn4=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 宠蓝药键
UserVar jn5=DropList{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55|-F1-:112|-F2-:113|-F3-:114|-F4-:115|-F5-:116|-F6-:117|-F7-:118|-F8-:119} 普技能键
UserVar x3=DropList{二星怪:638|三星怪:658}=1 不打几星怪
Delay 2000
Gosub 视觉调整
Gosub 召唤宝宝
Rem 开始
Gosub 寻怪
Goto 开始
Sub 视觉调整
    MoveTo 1179,52
    Delay 200
    LeftClick 1
    Delay 200
    KeyPress 35,15
    Delay 200
Return 视觉调整
Sub 召唤宝宝
    IfColor 255,117,21147b,1
        KeyPress 88,1
        Delay 500
        MoveTo 1148,BB
        LeftClick 1
        Delay 300
        MoveTo 1232,421
        Delay 300
        LeftClick 1
        Delay 59
        KeyPress 88,1
        Delay 4200
    EndIf 
Return 召唤宝宝
Sub 拾取
    For 3
        VBSCall FindPic(10,10,1000,750,"2.bmp",0.4,x,y)
        If x>=0 and y>=0
            MoveTo x y
            Delay 50
            RightClick 1
        EndIf 
    EndFor 
    Goto 报警
Return 拾取
Sub 寻怪
    KeyPress 192,1
    IfColor 619,58,3C88AF,2
        Gosub 怪物星级
    Else 
        KeyPress 192,1
        Delay 200
    EndIf 
Return 寻怪
Sub 怪物星级
    IfColor x3,58,3C88AF,2
        KeyPress 192,1
    Else 
        Gosub 打怪
    EndIf 
Return 怪物星级
Sub 打怪
    IfColor 618 58 3C88AF 2
        KeyPress jn5,2
        Delay 500
        hh=split(cstr(hong),",")
        IfColor clng(hh(0)),clng(hh(1)),hhh,2
            KeyPress jn1,1
        Else 
        EndIf 
        //加蓝
        ll=split(cstr(lan),",")
        IfColor clng(ll(0)),clng(ll(1)),lll,2
            KeyPress jn2,1
        Else 
        EndIf 
        bbh=split(cstr(bhong),",")
        IfColor clng(bbh(0)),clng(bbh(1)),bh,2
            KeyPress jn3,1
        EndIf 
        IfColor 613,41,25272a,2
            Gosub 拾取
        Else 
            Gosub 打怪
        EndIf 
    EndIf 
Return 打怪
Sub 报警
    VBSCall FindPic(6,283,379,698,"1.bmp",0.8,x,y)
    If x>=0 and y>=0
        For 60