魔域自动交易（按键精灵脚本）

没有物品宝宝存仓库,有的可以自己增加一下.
VBS dim tp(16),a,x,y,linex,liney,bx,by,s,i,jsq
VBS jsjg,jsjiage,jyjg,jyjiage,zdljg,zdljiage,mhjg,mhjiage,hmjg,hmjiage
VBS jszjg,jszjiage,jyzjg,jyzjiage,zdlzjg,zdlzjiage,mhzxjg,mhzxjiage,hmzxjg,hmzxjiage
VBS lhjg,lhjiage,ojg,ojiage,gxjg,gxjiage,sxjg,sxjiage,fzjg,fzjiage
VBS 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 4000
Rem 开始喊话
KeyPress 13 1
Delay 300
SayExpression str1
KeyPress 13 1
Delay Yanshi
Gosub 检查有没有交易
KeyPress 13 1
Delay 300
SayExpression str2
KeyPress 13 1
Gosub 检查有没有交易
Delay Yanshi
KeyPress 13 1
Delay 300
SayExpression str3
KeyPress 13 1
Gosub 检查有没有交易
Delay DaYanshi
Rem 等待半分钟后，进行下一轮叫卖
Goto 开始喊话
EndScript
Sub 程序开始
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 程序开始
EndIf
EndIf
Return 检查有没有交易
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。这里的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
//弹出结果
EndFor
Return 计算物品数量
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
EndIf
Return 计算价格
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
EndIf
Return 输入价钱
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 交易等待

好象没有哦