魔域按键精灵脚本制作流程(魔域按键精灵脚本)|每日速看
2023-06-11 10:56:11来源:互联网
(资料图片)
1、没有物品宝宝存仓库,有的可以自己增加一下.VBS dim tp(16),a,x,y,linex,liney,bx,by,s,i,jsqVBS jsjg,jsjiage,jyjg,jyjiage,zdljg,zdljiage,mhjg,mhjiage,hmjg,hmjiageVBS jszjg,jszjiage,jyzjg,jyzjiage,zdlzjg,zdlzjiage,mhzxjg,mhzxjiage,hmzxjg,hmzxjiageVBS lhjg,lhjiage,ojg,ojiage,gxjg,gxjiage,sxjg,sxjiage,fzjg,fzjiageVBS zzjg,zzjiage,cjqsjg,cjqsjiage,zongjiage//声明变量UserVar jsjg=1 减伤害低级的价格UserVar jyjg=1 经验低级的价格UserVar zdljg=5 战斗力低级的价格UserVar mhjg=3 魔魂的价格UserVar hmjg=7 幻魔的价格UserVar jszjg=15 减伤害中级的价格UserVar jyzjg=15 经验中级的价格UserVar zdlzjg=60 战斗力中级的价格UserVar mhzxjg=90 魔魂之心的价格UserVar hmzxjg=120 幻魔之心的价格UserVar lhjg=60 灵魂的价格UserVar ojg=20 O型宝宝的价格UserVar gxjg=6 孤星的价格UserVar sxjg=6 双星的价格UserVar fzjg=15 法猪的价格UserVar zzjg=15 战猪的价格UserVar cjqsjg=7 莎菲的价格VBS tp(0)="1js1":tp(1)="2jyx1":tp(2)="3zdx5":tp(3)="4mh4":tp(4)="5hm8":tp(5)="6jsz15"VBS tp(6)="7jyz15":tp(7)="8zdz60":tp(8)="9mhzx100":tp(9)="10hmzx120":tp(10)="11lh70":tp(11)="12o20"VBS tp(12)="13gx5":tp(13)="14sx5":tp(14)="15fz14":tp(15)="16zz14":tp(16)="17cjqs7"//初始化变量,x是区域左边、y是区域左边、bx是区域下边、by是区域下边,s是图片数量UserVar str1="收裁决骑士莎菲7 双防22 猪18 双孤星8 战斗力+1/5" 请输入自动叫喊的第1句话UserVar str2="人在【一】号摊位旁边卖的速度,不收的东西放上去价格全部不计" 请输入自动叫喊的第2句话UserVar str3="收裁决骑士莎菲7 双防22 猪18 双孤星8 战斗力+1/5" 请输入自动叫喊的第3句话UserVar str4="请速度放上东西,时间不等人,不收的东西放上去价格全部不计" 请输入自动叫喊的第4句话UserVar str5="这是自动喊的第5句话" 请输入自动叫喊的第5句话UserVar Yanshi=5000 两句喊话之间的等待时间,1秒钟是1000//****************设置结束*****************Delay 4000Rem 开始喊话KeyPress 13 1Delay 300SayExpression str1KeyPress 13 1Delay YanshiGosub 检查有没有交易KeyPress 13 1Delay 300SayExpression str2KeyPress 13 1Gosub 检查有没有交易Delay YanshiKeyPress 13 1Delay 300SayExpression str3KeyPress 13 1Gosub 检查有没有交易Delay DaYanshiRem 等待半分钟后,进行下一轮叫卖Goto 开始喊话EndScriptSub 程序开始 Gosub 计算物品数量 Delay 100 Gosub 输入价钱 Delay 100 Gosub 交易等待Return 程序开始Sub 检查有没有交易 VBSCall findpic(0,0,1024,768,"..myphoto商贸.bmp",0.9,x,y) If x>=0 and y>=0 Delay 300 MoveTo 443,446 Delay 500 LeftClick 1 Delay 2000 Gosub 检测放物品 Delay 500 Gosub 程序开始 EndIfEndIfReturn 检查有没有交易Sub 检测放物品 VBS i=0 VBS a = 0 : x = 51 : y = 264 VBS s=0 For 12 Rem 开始检测放物品 If i>=6 Goto 检测放物品结束 EndIf IfColor x,y,80808,2 Delay 2000 VBS i=i+1 Goto 开始检测放物品 Else VBS x=x+34 VBS i=0 VBS a=a+1 If a=5 VBS x = 51 : y = 264+34 EndIf EndIf EndFor Rem 检测放物品结束Return 检测放物品Sub 检测交易有没有被提前结束 IfColor 125,144,896c6,2 IfColor 149,141,896c6,2 Goto 交易没被结束 Else Goto 开始喊话 EndIf Else Goto 开始喊话 EndIf Rem 交易没被结束Return 检测交易有没有被提前结束Sub 计算物品数量 VBS i=0 Gosub 检测交易有没有被提前结束 For 17 VBS a = 0 : x = 34 : y = 247 : bx = 294 : by = 347 VBS s=0 Delay 100 While a = 0 //如果变量a等于0,则循环执行下面命令 Delay 10 VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp",0.9,x,y) //区域找图 If x>=0 and y>=0 //Delay 1000 //MoveTo x,y //Delay 1000 //MoveTo 247,294 //Delay 3000 x = x + 34 : by = y + 34 //区域左边加1。
2、这里的34指的是图片的宽度,自改 s = s + 1 //如果找到图片在数量上加1 Rem line Delay 10 VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp",0.9,linex,liney) //这是是在同一行再查找 If linex>=0 and liney>=0 //Delay 1000 //MoveTo linex,liney //Delay 1000 //MoveTo 247,294 //Delay 3000 x = linex + 34 //区域左边加1 s = s + 1 //数量加1 Goto line //返回同一行再查找 Else //否则 x = 34 : y = y + 34 : by = 347 //左边初始为0,上边加1,初始化区域下边 EndIf Else //如果没有找到图片 a = 1 //变量a为1(退出循环) EndIf EndWhile Gosub 计算价格 // VBSCall messagebox("共找到 " & s & " 个"&"tp("&i&") "&"相同图片" & tp(i) & " ") VBS i=i+1 //弹出结果 EndForReturn 计算物品数量Sub 计算价格 //《计算价格》 If i=0 Rizhi="减伤害低级石头" VBS jsjiage=(jsjg*s) //VBSCall messagebox("合计 " & jsjiage & " MS") ElseIf i=1 Rizhi="经验低级石头" VBS jyjiage=jyjg*s //VBSCall messagebox("合计 " & jyjiage & " MS") ElseIf i=2 Rizhi="战斗力低级石头" VBS zdljiage=zdljg*s //VBSCall messagebox("合计 " & zdljiage & " MS") ElseIf i=3 Rizhi="魔魂" VBS mhjiage=mhjg*s //VBSCall messagebox("合计 " & mhjiage & " MS") ElseIf i=4 Rizhi="幻魔" VBS hmjiage=(hmjg*s) //VBSCall messagebox("合计 " & hmjiage & " MS") ElseIf i=5 Rizhi="减伤害中级石头" VBS jszjiage=jszjg*s ElseIf i=6 Rizhi="经验中级石头" VBS jyzjiage=jyzjg*s ElseIf i=7 Rizhi="战斗力中级石头" VBS zdlzjiage=zdlzjg*s ElseIf i=8 Rizhi="魔魂之心" VBS mhzxjiage=mhzxjg*s ElseIf i=9 Rizhi="幻魔之心" VBS hmzxjiage=hmzxjg*s ElseIf i=10 Rizhi="灵魂" VBS lhjiage=lhjg*s //VBSCall messagebox("合计 " & lhjiage & " MS") ElseIf i=11 Rizhi="O型宝宝" VBS ojiage=ojg*s ElseIf i=12 Rizhi="孤星" VBS gxjiage=gxjg*s ElseIf i=13 Rizhi="双星" VBS sxjiage=sxjg*s ElseIf i=14 Rizhi="法猪" VBS fzjiage=fzjg*s ElseIf i=15 Rizhi="战猪" VBS zzjiage=zzjg*s ElseIf i=16 Rizhi="莎菲" VBS cjqsjiage=cjqsjg*s VBS zongjiage=0 VBS zongjiage=(jsjiage+jyjiage+zdljiage+mhjiage+hmjiage+jszjiage+jyzjiage+zdlzjiage+mhzxjiage+hmzxjiage+lhjiage+ojiage+gxjiage+sxjiage+fzjiage+zzjiage+cjqsjiage) //VBSCall messagebox("合计 " & zongjiage & " MS") Else VBS zongjiage=0 EndIfReturn 计算价格Sub 输入价钱 MoveTo 200,410 Delay 1000 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 100 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 1000 SayString zongjiage Delay 1000 Rem 输入ms MoveTo 263,415 Delay 1000 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 100 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 500 IfColor 263,415,8ccfde,2 Goto 输入ms Else MoveTo 136,513 Delay 500 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 300 EndIfReturn 输入价钱Sub 交易等待 jsq=0 Rem 等待交易 If jsq>=20 MoveTo 205,515 Delay 1000 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 300 Goto 对方不交易 EndIf IfColor 233,494,a5f62,2 Delay 1000 jsq=jsq+1 Goto 等待交易 Else EndIf Rem 对方不交易Return 交易等待好象没有哦。
本文到此分享完毕,希望对大家有所帮助。
标签:
责任编辑:hnmd003
相关阅读
阅读排行
资讯播报
- 世界热文:广西异地就医直接结算...
- 保卫萝卜4周赛6.10攻略 2023...
- 图灵奖得主杨立昆:AI的逻辑推理...
- 【世界新要闻】中超:大连人2:2...
- 广州血液中心:瞄准一个目标,把...
- 环球快看:口袋妖怪增强绿宝石攻...
- 今日看点:为何古代打仗一方高挂...
- 当前动态:动漫IP“雅皮兔” 携...
- 天天新动态:一组数据,看各地“...
- 焦点热门:第12届东盟残运会在柬...
- 环球观察:买家秀与卖家秀大相径...
- 文化IP智能应用让历史文化“活”...
- “这堂电影体验课超乎想象!”近...
- 焦点快报!10月五行属什么(月份的...
- 济南海关查获禁止进口固体废物23...
- 杭州国家版本馆:宋韵悠长,文“...
- “这些空姐,立即停飞!”网友怒了
- 他是最嚣张美国人,扬言在中国无...
- 个人境外汇款新规2020(个人境外...
- 312斤女网红在减肥营离世:2个月...
- 光线传媒王长田:AI有可能让动画...
- 世界快消息!朱元璋给孙子留下一...
- 小米产品序列号查询(小米序列号...
- 擦亮“常有善育”名片 常州工会...
- 天天热资讯!沈腾在红毯上发彩票...
- 特斯拉强敌来了!豪华电动轿车Lu...
- 曼城首夺欧冠冠军!名帅瓜迪奥拉...
- 世界滚动:亚麻籽油品牌排行榜202...
- “千万工程”调研行|宁波湾底村...
- 重点区域实施机动车国六排放标准...
- 青春爱心的传递,生命希望的接力
- 中建科工到柳州融水大苗山开展爱...
- 【天天播资讯】非营利组织账务处...
- 前沿热点:小学心理健康教育制度...
- 2023年西藏首届G219(极地)摩托车...
- 新华全媒+ | 贵州“村超”,点...
- 修桥师傅眼中的家乡巨变:出门即...
- 勒夫:总决赛1比3落后我经历过-...
- 环球最资讯丨中国女排前队长魏秋...
- 北青:斯坦利下课已成定局,他会...
- 全力以赴“龙口夺粮”——各部门...
- 看热讯:全国已收获冬小麦面积2....
- 郑裕美、李善均恐怖悬疑新电影《...
- 尼基-巴特:每个人都知道曼联的...
- 每日热文:曾凡博谈未来:想玩命...
- 75部影片已定档,暑期档票房有望...
- Netflix订户数量大幅上升,打击...
- 世界时讯:我爱发明钓鱼神钩真的...
- 美英领导人发表《大西洋宣言》 ...
- 严正化不敢看《车贞淑医生》首播...
- 当前播报:购物券怎么用图片 购...
- 西安高新区2023“文化和自然遗产...
- 世界最资讯丨得不到就毁掉!租客...
- 氩弧焊土把接线方法(氩弧焊土把...
- 国铁集团今起在12306网站(含App)...
- 何处招魂香草还生三户地说的是谁...
- 科技动态:三星Galaxy Tab S7带...
- 造一座“纸上博物馆” 大型出版...
- 赶紧转给爸妈!陕西警方紧急预警!
- 通灵学院入口在哪(通灵学院入口...
- OpenAI首席执行官同韩总统会面:...
- 欧冠决赛:曼城1比0战胜国际米兰...
- 世界短讯!国家防总启动防汛四级...
- 2023年高考成绩何时可查?多地最...
- 环球速读:员工培训计划实施方案...
- 江西成立“江西工职院‘6·1’食...
- 桉木是什么档次的木材(桉木) ...
- 怎么样查询手机号码登录了APP ...
- 天天快看点丨时隔24年,中国再度...
- 当前热讯:强观察丨让广阔大地上...
- 北斗卫星种玉米!“三夏”进度条...
- 广汇汽车与工行江西省分行签署战...
- “二阳”来袭,无论身体是否中招...
- 焦点短讯!国产大飞机C919的16年...
- 2023年法网:斯维亚泰克击败穆霍...
- 20天,22份“罚单”!监管层紧盯...
- 奇兵对决掘金略胜一筹!热火半场...
- 天天滚动:半年线上穿年线意味着...
- 斯瓦尔巴条约中国谁签的 签约斯...
- 环球热消息:无人之境歌词分解 ...
- 梦想中的同事!乒乓球选手陈梦在...
- 梅西非常清楚,放弃纽卡和国米报...
- 诺贝尔经济学奖得主保罗·克鲁格...
- 环球通讯!福克斯足球晒美国运动...
- 离离原上草一岁一枯荣野火烧不尽...
- 全球今亮点!用小说法,而以记史
- 【环球报资讯】保卫萝卜4周赛6.10攻略
- 受天气影响,上海市部分公交、客...
- 恶劣天气影响京沪高铁部分列车晚...
- 在二级制裁压力下,俄罗斯的“友...
- 当前热门:恭喜梅西!迈阿密新阵...
- 天天微资讯!揭秘高校食堂外包生意
- 交通银行手机客户端,交通银行手...
- 刘奕君:逆反大叔的坚韧
- 事关猴痘!广东疾控最新提醒
- 五洲四海的意思和造句_五洲四海...
- 卧铺可自选上下铺位置 今日起12...
- 【环球播资讯】高考成绩何时可查...
- 中越边境都龙口岸全面恢复客运通...
- 新台两地自媒体人:用镜头架起两...