机战脚本代码

你那个脚本是改不了的。。你那个是屏幕坐标。做后台需要的是窗口坐标。。

按键精灵

打怪的

机战主动打怪简易脚本

今天用按键里的原有脚本组合革新出了一个机战的主动打怪脚本，初测试了一下能够用，不外有几个处所不敷，一是不克不及锁定坐标，因为是两点抓色的寻怪，所以会有乱跑的可能，不克不及主动检物品（包罗钱，水晶，配备，核心）。第一次做脚本，还请各人配合研究，有那位伴侣能将那个脚本改良的也发上来配合研究下。有时间的话，我把抓图也加进去，如许就能够检工具了，不外那个需要比力长的时间，比来比力忙没太多的时间弄。脚本中不克不及技能只能平砍，红放在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

主动检物品的没有..

底子不起感化 例如那些水晶 流星之类的 抓图什么都不起感化

机战点组件脚本

因为电脑屏幕分辩率差别 有些脚本不是"兼容"的

我那里只给你把游戏窗口拖到左上角的

:

起头

键盘[CONTROL]按下

------为什么按Ctrl,因为点到空中时候机体就乱跑了,所以点组件时候找个角

落,别让机体乱跑,当然你也能够去掉那步------

鼠标移至[X726Y371]

单击鼠标左键

延时[33]毫秒

鼠标移至[X220Y407]

单击鼠标左键

延时[33]毫秒

鼠标移至[X724Y427]

单击鼠标左键

延时[33]毫秒

鼠标移至[X220Y407]

单击鼠标左键

延时[33]毫秒

鼠标移至[X724Y536]

单击鼠标左键

延时[33]毫秒

鼠标移至[X220Y407]

单击鼠标左键

延时[33]毫秒

鼠标移至[X662Y609]

单击鼠标左键

延时[33]毫秒

返回脚本第一句运行[999]次

完毕

别的因为网速及设置装备摆设的影响 是做不出完全契合游戏并且主动的脚本的

那个只能升满一个组件

所以换组件时候还要本身手动换:

选好要升的组件 开脚本 点满 关脚本 选另一个 再开...

你的第二条可行，我试过，取阿谁技能图标坐标就行.

第三条.能够用在血条上用抓点抓色的法子。按键精灵上有那种用VB写的补红补篮脚本.你间接复造语句改下就OK撒.

机战绿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 定位

我刚玩没几天 复造一个给你 希望有用~~~~~~~~~

1.起首要选择职业 0近战 1远战

2.要把显示人物名字的选项封闭

3.能够利用带加PW的4号核心

4.脚本撑持两个技能 放的时候更好一个用PW的 一个用EN的

5.XP技能从右到左1,2,3 按照爱好本身修改用哪种XP 默认1

6.F1红 F2 F3技能 F8回城卷

7.更好封闭与按键无关的其他软件 制止呈现游戏变卡 影响脚本一般运行

//F1红 F2 F3技能 F8回城卷

VBS dim hp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r

VBS dim zhiye,zidongzhaoguai,zidongjianwu,xp

VBS m=85:n=10

VBS a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""

VBS c=0:d=0

VBS dim jn1,jn2

VBS jn1=0:jn2=0

UserVar zhiye=1 选择职业 0近战 1远战

UserVar hp=50 红量%几时,补红

UserVar zidongzhaoguai=1 0定点刷怪 1主动刷怪

UserVar zidongjianwu=1 0不主动捡物 1主动捡物

UserVar xp=1 选择利用哪种XP技能,从右到左1,2,3

Rem 机战

Gosub 找怪

Gosub 攻击怪

Gosub 补红

Gosub 捡钱

Gosub 捡纯熟度

Gosub 捡流星

Gosub 捡粉红水晶

Gosub 捡蓝水晶x

Gosub 捡聚态水晶

Gosub 检测xp

Gosub 无弹回城

Gosub 回绝交易

Gosub 同意组队

Gosub 封闭保举使命

Gosub 封闭导师界面

Delay 32

Goto 机战

Sub 找怪

If zidongzhaoguai=1

VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)

If x0 and y0

Delay 32

VBS c=c+1

If c4

Delay 225

MoveTo 510 500

LeftClick 1

Gosub 快速找怪

VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)

If x0 and y0

Delay 520

MoveTo 100 330

LeftClick 1

Gosub 快速找怪

VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)

If x0 and y0

Delay 520

MoveTo 510 200

LeftClick 1

Gosub 快速找怪

VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)

If x0 and y0

Delay 520

MoveTo 920 330

LeftClick 1

Gosub 快速找怪

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

Return

Sub 攻击怪

VBSCall FindColorEx(479,49,922,399,"303b8",1,0.8,x,y)

If x=0 and y=0

VBS c=0

MoveTo x-20 y+20

LeftClick 1

Delay 32

Gosub 攻击

VBSCall FindColorEx(479,339,922,650,"303b8",1,0.8,x,y)

If x=0 and y=0

VBS c=0

MoveTo x-20 y-20

LeftClick 1

Delay 32

Gosub 攻击

VBSCall FindColorEx(99,339,479,658,"303b8",1,0.8,x,y)

If x=0 and y=0

VBS c=0

MoveTo x+20 y-20

LeftClick 1

Delay 32

Gosub 攻击

VBSCall FindColorEx(83,85,479,399,"303b8",1,0.8,x,y)

If x=0 and y=0

VBS c=0

MoveTo x+20 y+20

LeftClick 1

Delay 32

Gosub 攻击

EndIf

EndIf

EndIf

EndIf

Return

Sub 攻击

VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)

If x=0 and y=0

MoveTo x+n y+m

RightClick 1

Gosub 技能1

Gosub 技能2

Else

VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)

If x=0 and y=0

MoveTo x+n y+m-n

RightClick 1

EndIf

EndIf

Return

Sub 快速找怪

VBSCall FindColorEx(313,10,315,12,"0",1,0.8,x,y)

If x0 and y0

KeyDown 17 1

LeftClick 1

KeyUp 17 1

EndIf

Return

Sub 技能1

IfColor 139 45 ae21 2

Delay 32

VBS jn1=jn1+1

If jn1=4

KeyPress 113 1

VBS jn1=0

EndIf

EndIf

Return

Sub 技能2

IfColor 139 45 ae21 2

Delay 32

VBS jn2=jn2+1

If jn2=8

KeyPress 114 1

VBS jn2=0

EndIf

EndIf

Return

Sub 补红

IfColor hp*1.13+121 31 313033 2

KeyPress 112 1

EndIf

Return

Sub 捡钱

If zidongjianwu=1

VBSCall FindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1)

If x1=0 and y1=0

VBS a=x1:b=y1

VBSCall FindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)

If x2=0 and y2=0

MoveTo a b

Delay 32

LeftClick 1

VBS a="":b=""

EndIf

EndIf

EndIf

Return

Sub 捡纯熟度

If zidongjianwu=1

VBSCall FindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1)

If x1=0 and y1=0

VBS e=x1:f=y1

VBSCall FindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)

If x2=0 and y2=0

MoveTo e f

Delay 32

LeftClick 1

VBS e="":f=""

EndIf

EndIf

EndIf

Return

Sub 捡流星

If zidongjianwu=1

VBSCall FindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1)

If x1=0 and y1=0

VBS g=x1:h=y1

VBSCall FindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)

If x2=0 and y2=0

MoveTo g h

Delay 32

LeftClick 1

VBS g="":h=""

EndIf

EndIf

EndIf

Return

Sub 捡粉红水晶

If zidongjianwu=1

VBSCall FindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1)

If x1=0 and y1=0

VBS i=x1:j=y1

VBSCall FindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)

If x2=0 and y2=0

MoveTo i j

Delay 32

LeftClick 1

VBS i="":j=""

EndIf

EndIf

EndIf

Return

Sub 捡蓝水晶

If zidongjianwu=1

VBSCall FindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1)

If x1=0 and y1=0

VBS k=x1:l=y1

VBSCall FindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)

If x2=0 and y2=0

MoveTo k l

Delay 32

LeftClick 1

VBS k="":l=""

EndIf

EndIf

EndIf

Return

Sub 捡聚态水晶

If zidongjianwu=1

VBSCall FindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1)

If x1=0 and y1=0

VBS q=x1:r=y1

VBSCall FindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2)

If x2=0 and y2=0

MoveTo g h

Delay 32

LeftClick 1

VBS q="":r=""

EndIf

EndIf

EndIf

Return

Sub 检测xp

VBSCall FindColorEx(800,500,900,550,"cdb886",1,0.8,x,y)

If x=0 and y=0

Gosub xp1

Gosub xp2

Gosub xp3

EndIf

Return

Sub xp1

If xp=1

MoveTo 935 540

Delay 32

LeftClick 1

EndIf

Return

Sub xp2

If xp=2

MoveTo 881 547

Delay 32

LeftClick 1

EndIf

Return

Sub xp3

If xp=3

MoveTo 812 551

Delay 32

LeftClick 1

EndIf

Return

Sub 无弹回城

If zhiye=1

VBSCall FindColorEx(575,6,580,10,"101010",1,0.8,x,y)

If x0 and y0

Delay 32

VBS d=d+1

If d=6

KeyPress 119 1

EndIf

EndIf

EndIf

Return

Sub 回绝交易

VBSCall FindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1)

VBSCall FindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2)

VBSCall FindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3)

If x1=0 and y1=0 and x2=0 and y2=0 and x3=0 and y3=0

MoveTo 312 390

Delay 32

LeftClick 1

EndIf

Return

Sub 同意组队

VBSCall FindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1)

VBSCall FindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2)

If x1=0 and y1=0 and x2=0 and y2=0

MoveTo 223 394

Delay 32

LeftClick 1

EndIf

Return

Sub 封闭保举使命

VBSCall FindColorEx(905,236,907,238,"c7ff",1,0.8,x1,y1)

VBSCall FindColorEx(605,234,607,236,"c3ff",1,0.8,x2,y2)

If x1=0 and y1=0 and x2=0 and y2=0

MoveTo 906 237

Delay 32

LeftClick 1

EndIf

Return

Sub 封闭导师界面

VBSCall FindColorEx(269,180,271,182,"c3f7",1,0.8,x1,y1)

VBSCall FindColorEx(276,175,278,177,"dec7b5",1,0.8,x2,y2)

If x1=0 and y1=0 and x2=0 and y2=0

MoveTo 270 181

Delay 32

LeftClick 1

EndIf

Return