dim hong,bhong,blan,lan,hongT,lanT,bbh,hgsd,jn1,jn2,jn3,jn4,jn5,jn6,jn7,dhong,dlan,n,dhongT,xg,dlanT,m,v,b,kkkk,bbhong
UserVar hong=DropList{20%:20|30%:30|40%:40|50%:50|60%:60|70%:70|80%:80|90%:90}=1 血多少吃药
UserVar lan=DropList{20%:20|30%:30|40%:40|50%:50|60%:60|70%:70|80%:80|90%:90}=1 蓝多少吃药
UserVar dhong=DropList{20%:20|30%:30|40%:40|50%:50|60%:60|70%:70|80%:80|90%:90}=1 血多少打坐
UserVar dlan=DropList{20%:20|30%:30|40%:40|50%:50|60%:60|70%:70|80%:80|90%:90}=1 蓝多少打坐
UserVar bhong=DropList{20%:20|30%:30|40%:40|50%:50|60%:60|70%:70|80%:80|90%:90}=1 宠血多少吃药
UserVar bbhong=DropList{20%:20|30%:30|40%:40|50%:50|60%:60|70%:70|80%:80|90%:90}=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 jn6=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 jn7=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 kkkk=DropList{人形怪:"\kdrx.bmp"|五毒怪:"\wudu.bmp"|妖兽怪:"\kddys1024.bmp"|玄冥怪:"\kdym.bmp"|元素怪:"\kdys1024.bmp"|鳞皇怪:"\kdlh1024.bmp"|木魔怪:"\kdmm.bmp"|天空怪:"\kdtk.bmp"|花人形:"\kdrx1024.bmp"|金属怪:"\kdjs1024.bmp"} 选攻怪物
UserVar kka=DropList{全打:0.1|选打:0.8} 打怪模式
UserVar m=DropList{一号角色:136|二号角色:202|三号角色:267|四号角色:331|五号角色:396|六号角色:465} 角色选择
UserVar v=DropList{宝宝合体:20|宝宝出战:40}=1 1宝宝召唤模式
UserVar b=DropList{宝宝合体:20|宝宝出战:40}=1 2宝宝召唤模式
UserVar hongT=500 红药冷却时间
UserVar lanT=500 蓝药冷却时间
UserVar xg=1000 寻怪延时
UserVar dhongT=10000 打坐时间血
UserVar dlanT=10000 打坐时间蓝
UserVar n=4 拾取次数
kkkk = "Attachment:" & kkkk
Rem 开始
Gosub 外挂提示
Gosub 意外窗口
Gosub 召唤宝宝
Gosub 宝宝加血一号
Gosub 宝宝加血二号
Gosub 吃血打坐
Rem 准备战斗
Gosub 拾取
Gosub 寻怪
Rem 战斗
Gosub 判断是否有怪
Goto 开始
Sub 判断是否有怪
    IfColor 532,37,0,0
        VBSCall FindPic(400,24,451,58,kkkk,kka,x,y)
        If x>=0 and y>=0
            IfColor 441,49,1914a4,2
                Gosub 有怪物
            EndIf 
        Else 
            KeyPress 9,1
            Delay 500
        EndIf 
    EndIf 
Return 判断是否有怪
Sub 有怪物
    KeyPress jn1,5
    //释放技能按钮
Return 有怪物
Sub 拾取
    For n
        KeyPress jn5,n
        //拾取按钮
        Delay 20
    EndFor 
Return 拾取
Sub 寻怪
    IfColor 546,37,0,1
        //怪物信息处 名字背景不是黑色 就执行寻怪
        KeyPress 9,1
        //寻怪按钮TAB
        Delay xg
        //延时 避免网络卡的情况下  寻怪于打坐冲突
    Else 
        //当怪物信息处 名字背景是黑色的时候 返回战斗开始标记
        Goto 战斗
    EndIf 
Return 寻怪
Sub 吃血打坐
    IfColor 531,37,0,1
        //怪物信息处 名字背景不是黑色 就执行查看人物血量
        IfColor dhong/100*(248-131)+131,32,9d650d,2
            //红百分比加血打坐脚本
            KeyPress jn4,1
            //打坐按钮
            Delay dhongT
            //打坐多少时间才站起来
            KeyPress jn4,1
            //打坐站起按钮
        EndIf 
        IfColor dlan/100*(231-126)+126,52,cda262,2
            //蓝百分比加蓝打坐脚本
            KeyPress jn4,1
            //打坐按钮
            Delay dlanT
            //打坐多长时间才站起来
            KeyPress jn4,1
            //打坐站起来按钮
        EndIf 
        IfColor hong/100*(248-131)+131,32,9d650d,2
            //红百分比吃血脚本
            KeyPress jn2,1
            //吃药按钮