魔域自动交易(按键精灵脚本)
没有物品宝宝存仓库,有的可以自己增加一下.
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交易等待
如何用按键精灵做自动脚本
1、打开按键精灵，点击新建脚本，然后会弹出空白的脚本界面。
2、点击【控制命令】，创建一个表达式为true的循环命令。
3、点开源文件，在表达式后面创建两个变量“小时”“分钟”，并且后面用一个实时语句（Now）。
4、添加判断语句“If”，如果小时=（你想要设定的时间几点），分钟=（你想设定的时间几分），
5、添加【跳出循环】语句，结束判断语句“If”。
6、点开普通界面，把循环结束语句向下移动到定时脚本就完成了，在本脚本后面把需要用到的游戏操作复制过来添加进去启动即可，到了预设的时间，脚本会自动启动开始预设的脚本操作！
怎么制作魔域窗口模式的合bb按键精灵脚本
精灵脚本的！
就是鼠标点击器
就是别人按照路径实现弄好的！
因为一般全屏的多
所以做的时候就都做全屏的
窗口的有狠多中！
分辨率不一样所以窗口的准确位置也会有所变动！
如果你想用个窗口模式的！
那我建议你学习一下怎么用按键精灵自己做一下！
其实狠简单的！
点下录制手动的合一下BB
停止—保存！
设置快截键！
基本就是这样做的！