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

没有物品宝宝存仓库,有的可以自己增加一下.

魔域按键精灵脚本 按键精灵 脚本魔域按键精灵脚本 按键精灵 脚本


魔域按键精灵脚本 按键精灵 脚本


魔域按键精灵脚本 按键精灵 脚本


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=(jsjgs)

//VBSCall messagebox("合计 " & jsjiage & " MS")

ElseIf i=1

Rizhi="经验低级石头"

VBS jyjiage=jyjgs

//VBSCall messagebox("合计 " & jyjiage & " MS")

ElseIf i=2

Rizhi="战斗力低级石头"

VBS zdljiage=zdljgs

//VBSCall messagebox("合计 " & zdljiage & " MS")

ElseIf i=3

Rizhi="魔魂"

VBS mhjiage=mhjgs

//VBSCall messagebox("合计 " & mhjiage & " MS")

ElseIf i=4

Rizhi="幻魔"

VBS hmjiage=(hmjgs)

//VBSCall messagebox("合计 " & hmjiage & " MS")

ElseIf i=5

Rizhi="减伤害中级石头"

VBS jszjiage=jszjgs

ElseIf i=6

Rizhi="经验中级石头"

VBS jyzjiage=jyzjgs

ElseIf i=7

Rizhi="战斗力中级石头"

VBS zdlzjiage=zdlzjgs

ElseIf i=8

Rizhi="魔魂之心"

VBS mhzxjiage=mhzxjgs

ElseIf i=9

Rizhi="幻魔之心"

VBS hmzxjiage=hmzxjgs

ElseIf i=10

Rizhi="灵魂"

VBS lhjiage=lhjgs

//VBSCall messagebox("合计 " & lhjiage & " MS")

ElseIf i=11

Rizhi="O型宝宝"

VBS ojiage=ojgs

ElseIf i=12

Rizhi="孤星"

VBS gxjiage=gxjgs

ElseIf i=13

Rizhi="双星"

VBS sxjiage=sxjgs

ElseIf i=14

Rizhi="法猪"

VBS fzjiage=fzjgs

ElseIf i=15

Rizhi="战猪"

VBS zzjiage=zzjgs

ElseIf i=16

Rizhi="莎菲"

VBS cjqsjiage=cjqsjgs

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 交易等待

跪求魔域合BB按键精灵脚本

MoveTo 777,70

LeftClick 1

MoveTo 167,390

LeftClick 1

Delay 1000

MoveTo 752,152

LeftClick 1

MoveTo 369,3

LeftClick 1

Delay 1000

MoveTo 192,551

LeftClick 1

MoveTo 477,427

LeftClick 1

Delay 1000

MoveTo 338,173

LeftClick 1

MoveTo 708,103

LeftClick 1

MoveTo 477,442

LeftClick 1

Delay 1000

这是有草和宝宝的脚本

这个还没有哦,要想合B级快,就要用RMB,还有找游戏里面的商人和朋友的帮忙,要搞好关系~!

下在按键精灵！直接就可以添家脚本了！SF才用，GF用了封号！

要有钱 啊 买个BB 先和初始的加快 在和主的 和太古的

我用按键精灵做的魔域脚本为什么和对话的时候人会跑动？

网络延迟了吧 按键精灵在网络延迟的情况下应该会出现的情况就是会再点一次。所以才会出现以上情况的把。

这样的话基本解决不了.除非有专门针对此游戏的脚本.否则正常情况下是没有的.