机战脚本 机战源码
机战脚本怎么用
机战绿B完美脚本
下面是我的脚本
UserVar zidongjianwu=1 0不自动捡物 1自动捡物
Delay 250
Gosub 打怪
Gosub 捡水晶
Delay 150
Gosub 捡流星
Delay 150
Gosub 1捡钱
Delay 50
Sub 打怪
Rem 打怪
VBSCall FindColorEx(0,0,1024,768,"303b8",1,0.8,x,y)
If x=0 and y=0
MoveTo x+10 y+10
RightClick 1
Delay 800
MoveTo 586,427 ----------------这里是防止鼠标卡死 回一下鼠标位置的
RightClick 1
Delay 500
Else
Goto 捡水晶
EndIf
Return
Sub 捡水晶
Rem 捡水晶
If zidongjianwu=1
VBSCall FindPic(0,0,1024,768,"水晶.bmp",0.9,x,y)
If x=0 and y=0
MoveTo x+10 y+10
LeftClick 1
Delay 300
LeftClick 1
Else
Delay 500
Goto 捡钱
EndIf
EndIf
EndIf
Return
Sub 捡流星
If zidongjianwu=1
VBSCall FindPic(0,0,1024,768,"流星.bmp",0.9,x,y)
If x=0 and y=0
MoveTo x+10 y+10
LeftClick 1
Delay 5000
LeftClick 1
EndIf
EndIf
EndIf
Return
Sub 捡钱
Rem 捡钱
If zidongjianwu=1
VBSCall FindPic(0,0,1024,768,"钱.bmp",0.9,x,y)
If x=0 and y=0
MoveTo x+00 y+30
LeftClick 1
Delay 900
LeftClick 1
Else
Delay 500
Goto 定位
EndIf
EndIf
EndIf
Return
Sub 定位
Rem 定位
MoveTo 898,130
LeftClick 1
Delay 600
EndIf
MoveTo 952,356
LeftClick 1
Delay 600
EndIf
MoveTo 456,310
Delay 1500
LeftClick 1
MoveTo 225,408
LeftClick 1
Delay 600
EndIf
MoveTo 140,230
LeftClick 1
VBSCall FindColorEx(0,0,1024,768,"303b8",1,0.8,x,y)
If x=0 and y=0
MoveTo x+10 y+10
RightClick 1
Delay 800
Else
Delay 500
Goto 定位2
Return 定位
Sub 定位2
Delay 1000
EndIf
MoveTo 190,547
LeftClick 1
Delay 1000
EndIf
Goto 打怪
Return 定位
用按键精灵制作机战Online自动打怪的脚本
你的第二条可行,我试过,取那个技能图标坐标就行.
第三条.可以用在血条上用抓点抓色的办法。按键精灵上有这种用VB写的补红补篮脚本.你直接复制语句改下就OK撒.
怎么制作机战捡物品脚本
按键精灵
打怪的
机战自动打怪简易脚本
今天用按键里的原有脚本组合改造出了一个机战的自动打怪脚本,初测试了一下可以用,不过有几个地方不足,一是不能锁定坐标,由于是两点抓色的寻怪,所以会有乱跑的可能,不能自动检物品(包括钱,水晶,装备,核心)。第一次做脚本,还请大家共同研究,有那位朋友能将这个脚本改进的也发上来共同研究下。有时间的话,我把抓图也加进去,这样就可以检东西了,不过这个需要比较长的时间,最近比较忙没太多的时间弄。脚本中不能技能只能平砍,红放在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 c1c2
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
自动检物品的没有..
根本不起作用 例如这些水晶 流星之类的 抓图什么都不起作用