魔域按键精灵脚本魔域按键精灵脚本制作流程 _知识经验

文章插图
大家好,小豆豆来为大家解答以上的问题。魔域按键精灵脚本制作流程，魔域按键精灵脚本这个很多人还不知道,现在让我们一起来看看吧！
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 100Gosub 输入价钱Delay 100Gosub 交易等待Return 程序开始Sub 检查有没有交易VBSCall findpic(0,0,1024,768,"..myphoto商贸.bmp",0.9,x,y)If x>=0 and y>=0Delay 300MoveTo 443,446Delay 500LeftClick 1Delay 2000Gosub 检测放物品Delay 500Gosub 程序开始EndIfEndIfReturn 检查有没有交易Sub 检测放物品VBS i=0VBS a = 0 : x = 51 : y = 264VBS s=0For 12Rem 开始检测放物品If i>=6Goto 检测放物品结束EndIfIfColor x,y,80808,2Delay 2000VBS i=i+1Goto 开始检测放物品ElseVBS x=x+34VBS i=0VBS a=a+1If a=5VBS x = 51 : y = 264+34EndIfEndIfEndForRem 检测放物品结束Return 检测放物品Sub 检测交易有没有被提前结束IfColor 125,144,896c6,2IfColor 149,141,896c6,2Goto 交易没被结束ElseGoto 开始喊话EndIfElseGoto 开始喊话EndIfRem 交易没被结束Return 检测交易有没有被提前结束Sub 计算物品数量VBS i=0Gosub 检测交易有没有被提前结束For 17VBS a = 0 : x = 34 : y = 247 : bx = 294 : by = 347VBS s=0Delay 100While a = 0//如果变量a等于0 ，则循环执行下面命令Delay 10VBSCall 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 3000x = x + 34 : by = y + 34//区域左边加1 。
2、这里的34指的是图片的宽度，自改s = s + 1//如果找到图片在数量上加1Rem lineDelay 10VBSCall 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 3000x = linex + 34//区域左边加1s = s + 1//数量加1Goto line//返回同一行再查找Else//否则x = 34 : y = y + 34 : by = 347//左边初始为0，上边加1 ，初始化区域下边EndIfElse//如果没有找到图片a = 1//变量a为1（退出循环）EndIfEndWhileGosub 计算价格//VBSCall messagebox("共找到 " & s & " 个"&"tp("&i&") "&"相同图片" & tp(i) & " ")VBS i=i+1//弹出结果EndForReturn 计算物品数量Sub 计算价格//《计算价格》If i=0Rizhi="减伤害低级石头"VBS jsjiage=(jsjg*s)//VBSCall messagebox("合计 " & jsjiage & " MS")ElseIf i=1Rizhi="经验低级石头"VBS jyjiage=jyjg*s//VBSCall messagebox("合计 " & jyjiage & " MS")ElseIf i=2Rizhi="战斗力低级石头"VBS zdljiage=zdljg*s//VBSCall messagebox("合计 " & zdljiage & " MS")ElseIf i=3Rizhi="魔魂"VBS mhjiage=mhjg*s//VBSCall messagebox("合计 " & mhjiage & " MS")ElseIf i=4Rizhi="幻魔"VBS hmjiage=(hmjg*s)//VBSCall messagebox("合计 " & hmjiage & " MS")ElseIf i=5Rizhi="减伤害中级石头"VBS jszjiage=jszjg*sElseIf i=6Rizhi="经验中级石头"VBS jyzjiage=jyzjg*sElseIf i=7Rizhi="战斗力中级石头"VBS zdlzjiage=zdlzjg*sElseIf i=8Rizhi="魔魂之心"VBS mhzxjiage=mhzxjg*sElseIf i=9Rizhi="幻魔之心"VBS hmzxjiage=hmzxjg*sElseIf i=10Rizhi="灵魂"VBS lhjiage=lhjg*s//VBSCall messagebox("合计 " & lhjiage & " MS")ElseIf i=11Rizhi="O型宝宝"VBS ojiage=ojg*sElseIf i=12Rizhi="孤星"VBS gxjiage=gxjg*sElseIf i=13Rizhi="双星"VBS sxjiage=sxjg*sElseIf i=14Rizhi="法猪"VBS fzjiage=fzjg*sElseIf i=15Rizhi="战猪"VBS zzjiage=zzjg*sElseIf i=16Rizhi="莎菲"VBS cjqsjiage=cjqsjg*sVBS zongjiage=0VBS zongjiage=(jsjiage+jyjiage+zdljiage+mhjiage+hmjiage+jszjiage+jyzjiage+zdlzjiage+mhzxjiage+hmzxjiage+lhjiage+ojiage+gxjiage+sxjiage+fzjiage+zzjiage+cjqsjiage)//VBSCall messagebox("合计 " & zongjiage & " MS")ElseVBS zongjiage=0EndIfReturn 计算价格Sub 输入价钱MoveTo 200,410Delay 1000Gosub 检测交易有没有被提前结束LeftClick 1Delay 100Gosub 检测交易有没有被提前结束LeftClick 1Delay 1000SayString zongjiageDelay 1000Rem 输入msMoveTo 263,415Delay 1000Gosub 检测交易有没有被提前结束LeftClick 1Delay 100Gosub 检测交易有没有被提前结束LeftClick 1Delay 500IfColor 263,415,8ccfde,2Goto 输入msElseMoveTo 136,513Delay 500Gosub 检测交易有没有被提前结束LeftClick 1Delay 300EndIfReturn 输入价钱Sub 交易等待jsq=0Rem 等待交易If jsq>=20MoveTo 205,515Delay 1000Gosub 检测交易有没有被提前结束LeftClick 1Delay 300Goto 对方不交易EndIfIfColor 233,494,a5f62,2Delay 1000jsq=jsq+1Goto 等待交易ElseEndIfRem 对方不交易Return 交易等待好象没有哦。
【魔域按键精灵脚本魔域按键精灵脚本制作流程】本文到此分享完毕，希望对大家有所帮助。

魔域按键精灵脚本 魔域按键精灵脚本制作流程

魔域按键精灵脚本魔域按键精灵脚本制作流程