我刚玩没几天 复造一个给你 期看 有用~~~~~~~~~
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
机战怎么挂机晋级
有那个来挂吧 又不消钱 只是花点时就 OK. 软件名称：迅雷机战擎天柱1.0(081205)正式版 软件大小：1.9MB 软件语言：简体中文 受权体例：免费版 软件类别：免哪山郑费外挂 运行情况：Win9x/Me/NT/2000/XP/2003 软件更新：2008-12-5 14:53:23 页面收躲 ： 所属类别：机战外挂 今日下载：17 软件介绍：
对应游戏更新
1.主动打怪主动打怪
2.主动拾取主动检唯察物
3.原地挂技原地挂技
4.主动判定
5.主动补缀
6.脚本系统(主动使命)
7.核心操行 和辅助法式操行 细分存仓设李颂定
[快速挂机指南]
1 开启UPJZ.exe 更新版本。
2 输进 游戏账号点启动（验证账号需要和游戏账号一致）
3 开启机战主程式。进进 游戏前按滑轮唤 出外挂。
4 进进 游戏后根本设置抉择 近战或者远战。
5 抉择 脚本，起头挂机。
有没有机战私服能够用的挂机脚本啊呵呵， 你的问题很希罕 啊，如今传世的私服一般都是检配备然后往 兑换体味 ，神武100w经棚蚂吩。要挂机也要挂成专门捡配备换体味 撒。地道靠打怪的体味 来晋级时很慢的。
如今的私服一般都摘 用的公用登岸器，譬如：帝王牌登岸器。所以假设 有可以挂机的软件必需摘 用通俗登岸器才脊唯能进往 。
至于挂机软件樱和培吗，传世朋友 能够挂私服，传家宝2.54c版的能够挂以前的版本，天元心法版本就不要指看 了。必定挂不了。
传世朋友是要钱的 哦
想好了再挂。
脚本本身录造个