按键精灵自动打怪脚本如何设置(神途自动打怪脚本设置)
按键精灵自动打怪脚本如何设置(神途自动打怪脚本设置)
[Script]
Plugin hwnd=Window.Foreground()
Import window.dll
VBSBegin
win=Window.Foreground()
client=Window.GetClientRect(win)
s=split(client,"|")
dx=s(0)
dy=s(1)
zx=s(2)
zy=s(3)
VBSEnd
Dim red,blue,bbred,redwait,bluewait,monwait,fqg,jb,a,b,c,k,q,s1,s2,s3,s4,s5,s6,s7,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10
t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=0
UserVar fqg=DropList{防抢怪:0|不防抢怪:1}=0 防抢怪设置
UserVar jb=DropList{不捡包:0|自动捡包:1}=0 是否捡物
UserVar s1=2 门派普攻F1间隔(秒)
UserVar s2=20 单体攻击F2间隔(秒)
UserVar s3=20 单体攻击F3间隔(秒)
UserVar s4=25 怒气攻击F4间隔(秒)
UserVar s5=80 自定技能F5间隔(秒)
UserVar s6=60 BB技能F6间隔(秒)
UserVar s7=10 状态技能F7间隔(分)
UserVar red=DropList{30%:30|50%:50|70%:70}=1 血少于%加血F8
UserVar blue=DropList{30%:30|50%:50|70%:70}=0 蓝少于%加蓝F9
UserVar bbred=DropList{没有出战:0|20%:20|30%:30|50%:50}=2 宠少于%加血F10
UserVar redwait=1 红药冷却时间(秒)
UserVar bluewait=1 蓝药冷却时间(秒)
UserVar monwait=100 寻怪延时(毫秒)
PutAttachment .\plugin *.dll
Rem 开始
Delay monwait
Gosub 验证码
Gosub 找怪
If fqg=0
IfColor dx+369,dy+31,1E252A,2
Goto 开始
EndIf
EndIf
Rem 继续杀怪
Gosub 判断血蓝状态
Gosub BB血状态
Gosub 杀怪
Rem End
EndScript
Sub 验证码
Rem 再次报警
VBSCall FindPic(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y)
If x0 and y0
Plugin SimPlayer.ring(19)
//使用了声音插件，需要自己去官网下载
Delay 2000
EndIf
While x0
VBSCall FindPic(0,300,600,550,"Attachment:\20S.bmp",0.9,x,y)
If x=0 and y=0
IfColor x+17,y+9-k,FFFFFF,0
KeyPress 27 1
Delay 1000
MoveTo dx+446,dy+315
Delay 1000
LeftClick 1
Goto End
EndIf
Else
Goto 再次报警
EndIf
EndWhile
Return 验证码
Sub 判断血蓝状态
IfColor red/100*120+66+dx,dy+31,222222,2
a=a+1
Else
EndIf
IfColor blue/100*120+66+dx dy+37 222222 2
b=b+1
Else
EndIf
Return 判断血蓝状态
Sub BB血状态
If bbred0
IfColor bbred+91+dx dy+69 111111 2
c=c+1
EndIf
EndIf
Return BB血状态
Sub 找怪
KeyDown 1,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 1,1
Delay 10
Return 找怪
Sub 杀怪
IfColor dx+247,dy+31,0019FF,2
IfColor dx+261,dy+31,0011ff,2
Gosub 技能
Else
KeyPress 12 1
Delay 1000
EndIf
Goto 继续杀怪
Else
If jb=1
Gosub 捡包
Else
Goto 开始
EndIf
EndIf
Return 杀怪
Sub 怒气判断
IfColor qx+126,qy+43,00ffff,2
q=1
EndIf
IfColor qx+188,qy+43,00ffff,2
q=2
EndIf
Return 怒气判断
Sub 技能
Goto 开始
If DateDiff("s",t1,now)=s1
KeyPress 12 1
t1=now
Delay 100
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t2,now)=s2
Delay 500
KeyPress 113 1
t2=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t3,now)=s3
Delay 500
KeyPress 114 1
t3=now
Delay 500
EndIf
Else
EndIf
Gosub 怒气判断
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t4,now)=s4 and q=1
Delay 500
KeyPress 115 1
t4=now:q=q-1
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t5,now)=s5
Delay 500
KeyPress 116 1
t5=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t6,now)=s6
KeyPress 117 1
t6=now
Delay 100
EndIf
EndIf
If DateDiff("n",t7,now)=s7
MoveTo dx+36,dy+35
LeftClick 1
Delay 100
KeyPress 118 1
t7=now
Delay 100
KeyDown 17,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 17,1
Delay 10
EndIf
If DateDiff("s",t8,now)=redwait and a=1
KeyPress 119 1
t8=now:a=0
Delay 500
EndIf
If DateDiff("s",t9,now)=bluewait and b=1
KeyPress 120 1
t9=now:b=0
Delay 500
EndIf
If DateDiff("s",t10,now)=1 and c=1
KeyPress 121 1
t10=now
c=0
Delay 500
EndIf
Return 技能
Sub 捡包
Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1
l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560
If x0-a1=a2-x0
n=a1
Else
n=x0-(a2-x0)
EndIf
Rem 开始搜索
v=l
i=m
x1=x0:y1=y0-v
While x1=n
k1=0:k2=v
For 2
For i
x1=x1+k1:y1=y1+k2
If x1=a1 and x1=a2 and y1=b1 and y1=b2
MoveTo x1,y1
Delay 2
VBSCall shape=GetCursorShape(0)
If shape=d
Delay 50
RightClick 1
Delay 400
Goto 开始
EndIf
EndIf
EndFor
k1=v:k2=0
EndFor
i=i+1:v=v*(-1)
EndWhile
Goto 开始
Return 捡包
自动打怪是比较简单的,TC的自动打怪脚本主要是一下几天,然后自己去整合就可以了。
1.会TC的找图找色
2.会TC的模拟鼠标键盘
3.会TC的基本语法
思路
1.根据快捷键取怪物(模拟TC按键)
2.判断是否取到怪物,通过怪物固定坐标出现的颜色值(TC找色)
3.如果取到怪物,模拟鼠标键盘,进行自动打怪操作。(模拟TC按键)
4. 打怪过程中,判断自己的人物血量,如果低于某个血量,自动按键回血。(TC按键,TC找色)
5.判断怪物是否死亡,如果怪物死亡继续第一步操作,从下取怪,如果没有死亡,继续第三步,继续自动打怪。(TC找色,TC语法)
打开按键精灵的新建选项，选择键盘命令，输入以下数值，按插入键。
选择其他命令键，选择时间“毫秒，1”。
选择循环次数时，点击循环热键，循环到按终止键为止。
按键精灵中右侧热键的启动和中止热键分别选择“滑轮向上浮动”和“滑轮向下浮动”。之后退出保存。
