魔域按键精灵脚本制作流程(魔域按键精灵脚本)_环球简讯
(资料图)
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 交易等待好象没有哦。
本文到此分享完毕,希望对大家有所帮助。
标签:
为您推荐
广告
- 年近50岁书记出轨36岁已婚女子,两人多次开房,被网络实名举报!
- 闻汛而动!暴雨中广州警方驰援解救受困群众
- 博文管理学院官网 博文管理
- 郑钦文美网第四轮比赛什么时候打
- 周五美联储隔夜逆回购协议(RRP)使用规模为1.525万亿美元
- 不为人知下一句是什么(不为人知为己知什么意思)
- 复旦微电:上海晔莘控制的公司具有表决权的股份比例增加6.56%
- 上海哪个医院看尖锐湿疣好
- 内蒙古鄂尔多斯通报高压气体泄漏事故最新情况:已成立调查组彻查事故原因
- 8月乘用车零售量为192万辆
- 外交部发言人就美方在东亚峰会上无理指责中方答记者问
- IPO参考:第四范式通过港交所聆讯 拓邦新能、津同仁堂审核终止
- 还有3天!黄石网络安全宣传盛宴即将“开席”
- 瑞丰银行:董事长章伟东辞任 选举吴智晖为董事长
- 准备就绪!杭州亚运会边检专用通道明起正式启用
- 今日宁波学车多少钱呀(宁波学车要多少钱)
- 我国明年将发射2艘“神舟”和2艘“天舟”
- 直播推荐化妆品“专研抗老” 北京婼薇乐护肤品公司被罚20万
- A股VR音视频板块上市公司有哪些?(2023/9/1)
- 全国技能大赛 漯河医专再传捷报
- 1记者:帕尔默体检没问题,切尔西将在明天官宣他加盟
- 2插到里面下面图片
- 3投教大讲堂|杨德龙谈价值投资:如何选择值得一生拥有的好企业?
- 4旅游搭子“费用全包”涉黄?小红书回应
- 5白衣观音神咒的威力和作用(白衣观音神咒全文)
- 6商务部:近期将陆续出台促进新能源汽车贸易合作等专项政策措施
- 7山东郓城:一碗粥情满一座城
- 8广东中山官宣:即日起施行“认房不认贷”政策
- 9今年前七个月物流运行平稳 结构优化明显
- 10中国银河给予立高食品推荐评级,大B端生意彰显弹性
- 1中国一汽物流有限公司王少民被查
- 2合肥空港保税物流中心外贸增长超五成
- 3严重或危及生命!亚洲多国流行登革热,海关紧急提醒
- 4圣诺医药-B(02257.HK):戴晓畅获调任为集团首席战略官
- 5datagridview绑定list(datagridview绑定的是类的名字 如何处理)
- 6多次被行政处罚,上半年净利润却暴增271%,温州银行究竟靠的什么?
- 7一汽解放上半年研发投入12.48亿元 加速新能源、智能车全面布局
- 8数读 | 长城汽车上半营收近700亿元,平均单车售价达13.61万元
- 9第18届中国国际山地户外运动公开赛(重庆·武隆)暨公开赛20周年庆典系列活动将于9月7日至11日在武隆举行
- 10汇洲智能:中科华世的图书库房位于涿州市,部分图书遭受损失。目前公司各项生产经营活动均正常有序进行
广告
- 【关注】遵义市260名大学生获得“习酒·我的大学”奖学金
- 沈阳燕都医院是正规医院吗?是骗人的吗?
- 谢长廷“媚日”过头,沈富雄:听了很难过
- 2023厦门(思明)音乐季落幕 助力打造“文化中心、艺术之城、音乐之岛”
- 入职体检在线预约 员工入职体检项目
- 暑假,那些关于夏天的美好记忆
- 时政纪录片丨大道众行远 携手启新程——习近平主席出席金砖国家领导人第十五次会晤并对南非进行国事访问纪实
- 今日相见不如不见的短语(相见不如不见是什么意思)
- 汤普森想和字母哥打球!
- 更济宁|原创MV《尼好戏剧 你好济宁》
- 图解世荣兆业中报:第二季度单季净利润同比增100.91%
- 航发动力2023年上半年净利7.25亿 同比增加11.32%
- 对公共政策效果进行评估时所遵循的客观尺寸和准则是_对公共政策效果进行评估时所遵循的客观尺度和准则是什么
- 即将进入24小时警戒线!强降雨持续,浙江这些地方灾害风险较高
- 2023成都车展|旗舰豪华轿车捷尼赛思G90上市,以传奇之姿,释至臻之境
- “2023年全球乳业20强”榜单发布 伊利居全球乳业五强
- 国金证券:给予洋河股份买入评级
- 广东6市市级国土空间总体规划获批
- 政策利好推动股指期货集体收涨
- 美股“七姊妹”热度不减!对冲基金对其持有敞口创新高