(相关资料图)
1、[Script]Plugin hwnd=Window.Foreground()Import window.dllVBSBegin 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,t10t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=0UserVar 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 血少于%加血F8UserVar blue=DropList{30%:30|50%:50|70%:70}=0 蓝少于%加蓝F9UserVar bbred=DropList{没有出战:0|20%:20|30%:30|50%:50}=2 宠少于%加血F10UserVar redwait=1 红药冷却时间(秒)UserVar bluewait=1 蓝药冷却时间(秒)UserVar monwait=100 寻怪延时(毫秒)PutAttachment .plugin *.dllRem 开始Delay monwaitGosub 验证码Gosub 找怪If fqg=0 IfColor dx+369,dy+31,1E252A,2 Goto 开始 EndIf EndIf Rem 继续杀怪Gosub 判断血蓝状态Gosub BB血状态Gosub 杀怪Rem EndEndScript 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) //使用了声音插件。
2、需要自己去官网下载 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 10Return 找怪Sub 杀怪 IfColor dx+247,dy+31,0019FF,2 IfColor dx+261,dy+31,0011ff,2 Gosub 技能 Else KeyPress 12 1 Delay 1000 EndIf Goto 继续杀怪 Else If jb=1 Gosub 捡包 Else Goto 开始 EndIf EndIf Return 杀怪Sub 怒气判断 IfColor qx+126,qy+43,00ffff,2 q=1 EndIf IfColor qx+188,qy+43,00ffff,2 q=2 EndIf Return 怒气判断Sub 技能 Goto 开始 If DateDiff("s",t1,now)>=s1 KeyPress 12 1 t1=now Delay 100 EndIf IfColor dx+261,dy+31,0011ff,2 If DateDiff("s",t2,now)>=s2 Delay 500 KeyPress 113 1 t2=now Delay 500 EndIf Else EndIf IfColor dx+261,dy+31,0011ff,2 If DateDiff("s",t3,now)>=s3 Delay 500 KeyPress 114 1 t3=now Delay 500 EndIf Else EndIf Gosub 怒气判断 IfColor dx+261,dy+31,0011ff,2 If DateDiff("s",t4,now)>=s4 and q>=1 Delay 500 KeyPress 115 1 t4=now:q=q-1 Delay 500 EndIf Else EndIf IfColor dx+261,dy+31,0011ff,2 If DateDiff("s",t5,now)>=s5 Delay 500 KeyPress 116 1 t5=now Delay 500 EndIf Else EndIf IfColor dx+261,dy+31,0011ff,2 If DateDiff("s",t6,now)>=s6 KeyPress 117 1 t6=now Delay 100 EndIf EndIf If DateDiff("n",t7,now)>=s7 MoveTo dx+36,dy+35 LeftClick 1 Delay 100 KeyPress 118 1 t7=now Delay 100 KeyDown 17,1 Delay 10 KeyPress 9,1 Delay 10 KeyUp 17,1 Delay 10 EndIf If DateDiff("s",t8,now)>=redwait and a>=1 KeyPress 119 1 t8=now:a=0 Delay 500 EndIf If DateDiff("s",t9,now)>=bluewait and b>=1 KeyPress 120 1 t9=now:b=0 Delay 500 EndIf If DateDiff("s",t10,now)>=1 and c>=1 KeyPress 121 1 t10=now c=0 Delay 500 EndIf Return 技能Sub 捡包 Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1 l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560 If x0-a1>=a2-x0 n=a1 Else n=x0-(a2-x0) EndIf Rem 开始搜索 v=l i=m x1=x0:y1=y0-v While x1>=n k1=0:k2=v For 2 For i x1=x1+k1:y1=y1+k2 If x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2 MoveTo x1,y1 Delay 2 VBSCall shape=GetCursorShape(0) If shape=d Delay 50 RightClick 1 Delay 400 Goto 开始 EndIf EndIf EndFor k1=v:k2=0 EndFor i=i+1:v=v*(-1) EndWhile Goto 开始Return 捡包。
本文分享完毕,希望对大家有所帮助。
1、[Script]Pluginhwnd=Window Foreground()Importwindow dllVB
IT之家6月24日消息,微软宣布将于今年8月23日关闭《极限竞速:地平线1
1、常用的治疗盆腔炎的口服药物可以是康妇炎胶囊、妇炎康片或常规的头
1、好处:符合宝宝听觉视觉的发展和运动规律:珠心算教育中耳听、眼看
真是悲剧啊!6月19日,《华尔街日报》报道称,破产的美国硅谷银行在亚
龙之谷2黑暗女王技能加点图龙之谷2黑暗女王和时空领主哪个好龙之谷2黑
1、麦克斯韦关于电磁波的预言被实验证实,证明了位移电流假说和电磁场
(一)不涉及财产关系的:2000元-30000元 件。上下浮动幅度:20%但收费额
6月23日上午,《笔墨丹青瓷彩华章不负百年》百名艺术名家邀请展开幕式
甘靖中在“四不两直”检查燃气领域安全生产工作时强调,坚决防范遏制各
因为JDG是刚刚拿到MSI冠军的队伍,队内又有2位韩国亚运会选手,所以这
创业板五大饮料股排名(2023市值榜单),创业板饮料股有新美星、中亚股份
1、企鹅属于企鹅目(学名:Sphenisciformes)企鹅科(Spheniscidae),
快科技6月22日消息,今天不但是端午节,也是周星驰61岁生日,不少曾经
直播吧6月24日讯footmercato记者SantiAouna独家消息,马科斯-图拉姆已
大家好,小万来为大家解答以上的问题。小学奥数优秀生培养教程10级,关
1、1计:通俗说计记账、算账报账计概念:计货币作主要计量单位运用系列专
1、招标和投标属于对立的。2、举个例子,你的公司需要一万个水杯,但是
1、参考答案:①幼稚、笨拙。2、②灰心失望。3、2、示例:①往事又浮现
原标题:助企中心就在企业门口衢州公安倾力书写服务保障新答卷□本报记
1、1,新日(电动车领导品牌,中国驰名商标。2、电动车行业骨干企业,新
官宣,76人两人离队!恩比德醒醒吧,这么打下去没有人再和你合作,哈登,
美记称保罗油箱还有油能帮助勇士普尔有望接替比尔位置成首发,保罗,比尔
据转会专家罗马诺消息,曼联将第三次报价芒特。罗马诺写道:“曼联第三
五谷杂粮中属于温性的有赤小豆、高粱等,这些食物适用寒性体质人群。温
如何抓好今冬明春市场监管领域安全生
12月16日,达州市达川区市场监督管理局下发《市场监管领域今冬明春安全生产隐患大排查大整治行动工作方案》,要求下属各部门从2022年12月16日起至2023年3月15日,全面聚焦城镇燃气、特种设备、危险化学品、烟花爆
《2021年度中国对外直接投资统计公报
金港高速公路连接柬埔寨首都金边和该国最大深水海港西哈努克港,是中国路桥按建造—运营—移交模式投资的项目,采用中国设计及质量标准,横跨5个省份,全长187 05公里,双向四车道。金港高速公路通车后,从金边到
总体保持稳定恢复态势 工业经济展现
2022年1至10月,浙江省宁波市811家汽车制造业规上工业总产值2646 8亿元,同比增长14 2%。图为11月19日,工人在领克汽车宁波梅山工厂的总装车间作业。今年以来,受疫情多发散发、市场需求不振等因素影响,国内工业
14家券商获首批个人养老金代销展业资
11月18日晚间,证监会发布《个人养老金基金销售机构名录》,共37家机构入围,其中券商14家,银行16家,独立基金销售机构7家。14家券商包括华泰证券、中信证券、海通证券、国泰君安、申万宏源、中金财富和长江证券
北京再担保承保规模超6000亿 覆盖中
北京中小企业融资再担保有限公司(简称北京再担保)发布的最新数据显示,成立14年来已累计承保规模超过6000亿元,覆盖中小微企业(农户)超过16万户次,积极推动北京市中小微企业融资规模不断扩大。北京再担保2008年
Copyright @ 2001-2023 www.u74.cn All Rights Reserved 商业时报网 版权所有 关于我们
网站信息内容, 均为相关单位具有著作权,未经书面授权,转载注明出处
未经商业时报网书面授权,请勿建立镜像,转载请注明来源,违者依法必究