怎么制作机战捡物品脚本

按键精灵

打怪的

机战自动打怪简易脚本

今天用按键里的原有脚本组合改造出了一个机战的自动打怪脚本，初测试了一下可以用，不过有几个地方不足，一是不能锁定坐标，由于是两点抓色的寻怪，所以会有乱跑的可能，不能自动检物品（包括钱，水晶，装备，核心）。第一次做脚本，还请大家***同研究，有那位朋友能将这个脚本改进的也发上来***同研究下。有时间的话，我把抓图也加进去，这样就可以检东西了，不过这个需要比较长的时间，最近比较忙没太多的时间弄。脚本中不能技能只能平砍，红放在F6。

UserVar LTop=262,154 鼠标活动范围：左上角坐标

UserVar RBot=776,491 鼠标活动范围：右下角坐标

UserVar Center=493,292方形渐开搜怪起点

UserVar L=15 2个搜怪点之间的距离

UserVar M=2 从第几圈开始搜索

//变量定义

Dim s,v,i,n,x,y,a1,b1,a2,b2,c1,c2,x0,y0,k1,k2

s=InStr(LTop,",")

a1=int(Mid(LTop,1,s-1))

b1=int(Mid(LTop,s+1))

s=InStr(RBot,",")

a2=int(Mid(RBot,1,s-1))

b2=int(Mid(RBot,s+1))

s=InStr(Center,",")

x0=int(Mid(Center,1,s-1))

y0=int(Mid(Center,s+1))

If x0-a1>=a2-x0

n=a1

Else

n=x0-(a2-x0)

EndIf

Rem 开始

//循环开始标记

Delay 32

Rem 补红

IfColor 196,31,92ff,1

Else

KeyPress 117,1

Delay 256

//补血延时

EndIf

v=L

i=M

x=x0:y=y0-v

While x>=n

k1=0:k2=v

For 2

For i

x=x+k1:y=y+k2

If x>=a1 and x<=a2 and y>=b1 and y<=b2

VBSCall c1=GetPixelColor(x,y)

MoveTo x y

Delay 10

VBSCall c2=GetPixelColor(x,y)

If c1<>c2

LeftClick 1

//打怪代码

Delay 8000

//打完怪后再重新开始搜索

EndIf

Delay 1

EndIf

EndFor

k1=v:k2=0

EndFor

i=i+1:v=v*(-1)

EndWhile

Delay 200

//搜索完鼠标活动范围后重新开始搜索

Goto 开始

这是找怪的

Rem 找怪

VBSCall FindPic(173,201,1100,600,"sinuezhe.bmp",0.8,x,y)

If x>=0 and y>=0

i=0

MoveTo x+10 y+10

Delay 50

MoveR 30,60

Delay 60

LeftDoubleClick 1

Delay 1000

RightClick 1

Delay 1500

RightClick 1

Delay 1000

EndIf

Goto 钱

Rem 钱

For 5

VBSCall FindPic(173,201,1136,652,"qian.bmp",0.9,x,y)

If x>=0 and y>=0

MoveTo x+10 y+10

Delay 50

MoveR -22,13

Delay 250

LeftClick 1

Delay 1500

VBSCall FindPic(441,273,777,535,"sinuezhe.bmp",0.8,x,y)

If x>=0 and y>=0

Goto 找怪

EndIf

EndIf

EndFor

goto 找怪

这是我的机战找怪的脚本命令 图片见附件。图片的制作其实非常简单，论坛当中有说明的。但是需要补充就是背景颜色不一定非得是白色。:lol :lol

自动检物品的没有..

根本不起作用 例如这些水晶 流星之类的 抓图什么都不起作用