在论坛上下的屠夫脚本，很强大，唯一的遗憾就是无法自动开始，估计是分辨率的问题。。。哪位大哥能帮我改成1280*1024全屏用的呢？？感激不尽啊。。。。
[General]
Description=勤奋屠夫脚本
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
UserVar pddy=0
UserVar t1=0
UserVar ZDMB=0
UserVar QJAX=0
UserVar wq=2
UserVar t=3
UserVar c=0,TRn=1,wzb=0,zrs=1,fx=2,HH259=0,c2=0
UserVar YS=5
UserVar IsFZ=1
UserVar Wait=1
UserVar Fight=0
UserVar mbx,mby,tc,chaoshi
UserVar repair
VBS dim TR(8),TRx(8),TRy(8),Ttime1(8),Ttime2(8)
TRx(1)=118
TRx(2)=243
TRx(3)=368
TRx(4)=495
TRx(5)=513
TRx(6)=641
TRx(7)=766
TRx(8)=891
TRy(1)=276
TRy(2)=257
TRy(3)=237
TRy(4)=217
TRy(5)=216
TRy(6)=236
TRy(7)=257
TRy(8)=276
tc=0
Gosub 环境判断
Rem 等待中
Wait=1
Fight=0
Gosub 准备游戏
Fight=1
Wait=0
Gosub 环境判断
HH259=0
repair=0
chaoshi=0
ZDMB=0
krs=0
fx=2
Rem 尚未开始战斗
IfColor 36,73,ffffff,0
If repair=0
Delay 7000
repair=1
EndIf
KeyPress 50,1
Delay 100
RightDown 1
KeyDown 32,1
Delay 100
KeyPress 87,2
Delay 100
KeyDown 87,1
Delay 1000
For 10
Delay 200
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
LeftClick 1
KeyPress 87,1
QJAX=0
Goto 开始攻击
EndIf
EndFor
KeyUp 32,1
KeyUp 87,1
Else
Delay 200
VBSCall FindPic(0,0,1023,768,"qp确认.bmp",0.8,intX,intY)
If intX>=0 and intY>=0
KeyPress 13,1
Delay 200
Gosub 环境判断
EndIf
Goto 尚未开始战斗
EndIf
Rem 战斗开始
Fight=1
Wait=0
Gosub 擂台攻击
EndScript
Sub 自动找房
Return 自动找房
Sub 踢人
wzb=0
TRn=1
zrs=1
While TRn<=8
IfColor TRx(TRn),TRy(TRn),ffffff,1
Ttime1(TRn)=0
VBS Ttime1(TRn)=timer
If TRn=3
EndIf
TR(TRn)=0
Else
If TRn<=4
VBSCall FindColor(TRx(TRn)-87,TRy(TRn)+264,TRx(TRn)-1,TRy(TRn)+270,"ffffff",intX,intY)
Else
VBSCall FindColor(TRx(TRn)+22,TRy(TRn)+264,TRx(TRn)+110,TRy(TRn)+270,"ffffff",intX,intY)
EndIf
If intX>=0 and intY>=0
TR(TRn)=1
VBS Ttime1(TRn)=timer
Else
VBS Ttime2(TRn)=timer
If Ttime2(TRn)-Ttime1(TRn)>=40
TR(TRn)=2
wzb=wzb+1
Else
TR(TRn)=1
EndIf
EndIf
zrs=zrs+1
EndIf
TRn=TRn+1
EndWhile
If zrs>7 and wzb=1
TRn=1
While TRn<=8
If TR(TRn)=2
KeyPress 13,1
Delay 100
MoveTo TRx(TRn)+3,TRy(TRn)+3
Delay 100
LeftClick 1
Delay 100
VBS Ttime1(TRn)=timer
TR(TRn)=0
zrs=zrs-1
wzb=wzb-1
EndIf
TRn=TRn+1
EndWhile
Else
EndIf
Return 踢人
Sub 前进
If QJAX=0
VBS QJAXt=timer
RightDown 1
KeyPress 87,2
Delay 90
KeyDown 87,1
KeyDown 32,1
For 7
Delay 100
VBSCall FindColorEx(0,0,940,710,"2020ff",1,1,intX,intY)
If intX>=0 and intY>=0
KeyPress 87,1
QJAX=0
Goto 1
EndIf
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
LeftClick 1
KeyPress 87,1
QJAX=0
Goto 开始攻击
EndIf
EndFor
KeyUp 32,1
KeyDown 87,1
RightUp 1
QJAX=1
EndIf
Return 前进
Sub 智能攻击
RightDown 1
Delay 200
Rem 找红色
Gosub 找红色目标
If JL<=2
// Rem 开始攻击
Gosub 攻击
If gj=0
If QJAX3=0
VBS QJAXt3=timer
KeyDown 32,1
Delay 600
KeyDown 87,1
QJAX3=1
EndIf
EndIf
Goto 找红色
Else
VBS QJAXt2=timer
If QJAXt2-QJAXt1>=2
If QJAX=1
KeyUp 32,1
KeyUp 87,1
QJAX=0
EndIf
Gosub 判断转向
EndIf
If QJAX=0
VBS QJAXt1=timer
KeyDown 32,1
Delay 100
KeyPress 87,1
Delay 50
KeyDown 87,1
QJAX=1
EndIf
Goto 找红色
EndIf
Return 智能攻击
Sub 环境判断
TracePrint fight
Rem 环境判断start
Delay 50
VBSCall FindPic(738,0,875,68,"准备标记.bmp",1,intX,intY)
If intX>=0 and intY>=0
If Fight=0
Goto 返回调用处
EndIf
KeyUp 87,1
KeyUp 32,1
RightUp 1
Goto 等待中
Else
EndIf
Delay 60
IfColor 36,73,ffffff,0
If Fight=1
Goto 返回调用处
EndIf
KeyUp 87,1
KeyUp 32,1
RightUp 1
Goto 战斗开始
Else
IfColor 341,213,ffffff,0
IfColor 503,210,ffffff,0
repair=1
ZDMB=0
KeyUp 87,1
RightUp 1
KeyUp 32,1
Goto 尚未开始战斗
Else
EndIf
Else
EndIf
Goto 环境判断start
EndIf
Delay 60
VBSCall FindPic(500,200,800,550,"qp确认.bmp",0.8,intX,intY)
If intX>=0 and intY>=0
Delay 100
KeyPress 13,1
Delay 100
Else
EndIf
Goto 环境判断start
Rem 返回调用处
Return 环境判断
Sub 准备游戏
Rem 准备游戏start
MoveTo 0,0
Delay 100
LeftClick 1
Delay 100
c=0
IfColor 190,700,ff9900,0
Else Gosub 找自己
Gosub 找自己
VBSCall FindColor(intX+10,intY+212,intX+95,intY+213,"ffffff",intX2,intY2)
If intX2>=0 and intY2>=0
KeyPress 116,1
Else
Delay 100
EndIf
Delay 500
Gosub 充电
EndIf
Delay 500
VBS TRt=timer
Rem 看是否为房主
VBSCall FindPic(100,0,250,68,"成为房主.bmp",1,intX,intY)
If intX>=0 and intY>=0
KeyPress 116,1
Delay 110
KeyPress 13,1
Delay 110
VBS TRt2=timer
KeyPress 13,1
If c=0
If TRt2-TRt>=30
c=1
TRn=1
While TRn<=8
VBS Ttime1(TRn)=timer
TR(TRn)=0
TRn=TRn+1
EndFor
Else
Goto 看是否为房主
EndIf
EndIf
If c=1
Gosub 踢人
EndIf
Goto 看是否为房主
EndIf
Delay 100
Gosub 找自己
VBSCall FindColor(intX+10,intY+212,intX+63,intY+213,"ffffff",intX2,intY2)
If intX2>=0 and intY2>=0
Else
KeyPress 116,1
Delay 100
EndIf
Delay 100
VBSCall FindPic(738,0,875,68,"准备标记.bmp",1,intX,intY)
If intX>=0 and intY>=0
Else
Goto 结束准备游戏
EndIf
Delay 100
VBSCall FindPic(0,0,1023,768,"qp确认.bmp",0.8,intX,intY)
If intX>=0 and intY>=0
KeyPress 13,1
Else
Goto 准备游戏start
EndIf
Rem 结束准备游戏
// Gosub 等待读取
Return 准备游戏
Sub 判断转向
RightUp 1
Delay 30
MoveRH 0,500
Delay 90
MoveRH 0,-160
RightDown 1
c=0
Rem 转向start
If QJAX=1
KeyUp 32,1
KeyUp 87,1
QJAX=0
EndIf Rem 转向start
RightDown 1
Delay 500
VBSCall FindColorEx(975,38,1013,144,"ffffff",2,1,intX,intY)
If intX>=0 and intY>=0
RightUp 1
Delay 30
MoveRH -180,0
RightDown 1
Delay 100
VBSCall FindColorEx(0,0,940,710,"2020ff",1,1,intX3,intY3)
If intX3>=0 and intY3>=0
KeyPress 87,1
QJAX=0
Goto 结束转向
EndIf
VBSCall FindColorEx(451,330,460,344,"6AE69B",1,0.7,intX3,intY3)
If intX3>=0 and intY3>=0
Goto 开始攻击
EndIf
VBSCall FindColorEx(intX-5,intY-5,intX+5,intY+5,"ffffff",2,1,intX2,intY2)
If intX2>=0 and intY2>=0
Else
If c<=4
c=c+1
Goto 转向start
Else
EndIf
EndIf
EndIf
Rem 结束转向
Return 判断转向
Sub 找红色目标
VBSCall FindColorEx(0,0,940,710,"2020ff",1,0.9,intX,intY)
If intX<=115 and intY<=139
intX=-1
intY=-1
EndIf
If intX<=391 or intX>=641
JL=2
Else
If intX>=0 and intY>=0
VBSCall FindColorEx(intX-10,intY-25,intX+10,intY+2,"2020ff",0,0.9,intX,intY)
If intX>=0 and intY>=0
VBSCall FindColorEx(intX-5,intY+9,intX+5,intY+35,"2020ff",2,0.9,intX2,intY2)
If intX2>=0 and intY2>=0
If intY2-intY>=20
//近距离
JL=0
Else
//中距离
JL=1
EndIf
Else
//远距离
JL=2
EndIf
EndIf
Else
JL=3
EndIf
EndIf
Return 找红色目标
Sub 找自己
VBSCall FindPic(0,254,1023,354,"qp剪刀2.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
VBSCall FindPic(0,254,1023,354,"qp拳头2.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
VBSCall FindPic(0,254,1023,354,"qp包2.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
EndIf
EndIf
EndIf
VBSCall FindPic(0,254,1023,354,"qp剪刀3.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
VBSCall FindPic(0,254,1023,354,"qp拳头3.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
VBSCall FindPic(0,254,1023,354,"qp包3.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
EndIf
EndIf
EndIf
VBSCall FindPic(0,254,1023,354,"qp剪刀4.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
VBSCall FindPic(0,254,1023,354,"qp拳头4.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
VBSCall FindPic(0,254,1023,354,"qp包4.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
EndIf
EndIf
EndIf
VBSCall FindPic(0,254,1023,354,"qp剪刀5.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
VBSCall FindPic(0,254,1023,354,"qp拳头5.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
VBSCall FindPic(0,254,1023,354,"qp包5.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
Goto 结束找自己
Else
EndIf
EndIf
EndIf
Rem 结束找自己
Return 找自己
Sub 备用充电
Gosub 找自己
If intX>=0 and intY>=0
Else
Goto 结束备用充电
EndIf
MoveTo intX+50,intY+130
MoveRH -10,3
Delay 100
RightClick 1
Delay 1200
MoveTo intX+80,intY+180
MoveRH -10,-4
Delay 100
LeftClick 1
Delay 1000
MoveTo 520,354
Delay 100
LeftClick 1
Delay 2000
KeyPress 13,1
MoveTo 520,100
Delay 100
LeftClick 1
Rem 结束备用充电
Return 备用充电
Sub sd询问确认
c=0
Rem sd询问确认start
Delay 400
VBSCall FindPic(0,0,1023,768,"qp询问确认.bmp",0.8,intX,intY)
If intX>=0 and intY>=0
Delay 100
MoveTo intX,intY+10
Delay 100
LeftClick 1
Delay 100
Else
If c<=YS
c=c+1
Goto sd询问确认start
Else
c=0
EndIf
EndIf
Return sd询问确认
Sub sd确认
c=0
Rem sd确认start
Delay 400
VBSCall FindPic(0,0,1023,768,"qp确认.bmp",0.8,intX,intY)
If intX>=0 and intY>=0
Delay 100
MoveTo intX,intY+10
Delay 100
LeftClick 1
Delay 100
Else
If c<=YS
c=c+1
Goto sd确认start
Else
c=0
EndIf
EndIf
Return sd确认
Sub 充电
c=0
Rem 充电start
Gosub 找自己
If intX>=0 and intY>=0
Else
Goto 结束充电
EndIf
MoveTo intX+30,intY+130
Delay 100
MoveRH -10,-10
Delay 100
RightClick 1
Delay 100
VBSCall FindPic(0,0,1023,768,"qp编写邮件.bmp",0.5,intX,intY)
If intX>=0 and intY>=0
MoveTo intX,intY+39
Delay 100
MoveRH 6,-3
Delay 100
VBSCall FindPic(0,0,1023,768,"qp充电选中.bmp",0.6,intX,intY)
If intX>=0 and intY>=0
LeftClick 1
Gosub sd询问确认
Gosub sd确认
Else
MoveTo 520,215
Delay 100
LeftClick 1
Gosub 备用充电
EndIf
Else
EndIf
Rem 结束充电
Return 充电
Sub 擂台攻击
c=0
c2=0
Rem 1
If chaoshi=0
Gosub 259才杀
EndIf
KeyPress 50,1
wq=2
RightDown 1
Gosub 环境判断
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
Goto 开始攻击
EndIf
Gosub 找红色目标
If JL<=2
ZDMB=1
Gosub 选择武器
Delay 50
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
LeftClick 1
Rem 开始攻击
VBS gjts=timer
KeyUp 87,1
Gosub 选择武器
For 8
LeftClick 1
Delay 50
EndFor
Goto 1
Else
VBS gjte=timer
If gjte-gjts<2
Goto 1
EndIf
If QJAX=1
VBS QJAXt2=timer
If QJAXt2-QJAXt>5
KeyUp 87,1
QJAX=0
If JL<=1
KeyPress 50,1
KeyDown 32,1
Delay 100
RightDown 1
Delay 100
LeftClick 1
Delay 1000
KeyUp 32,1
LeftClick 1
KeyDown 32,1
Delay 200
KeyPress 51,1
Delay 200
LeftClick 1
Delay 1000
LeftClick 1
RightUp 1
Else
Gosub 判断转向
EndIf
If wq=2
KeyPress 50,1
Else
If wq=3
KeyPress 51,1
Else
KeyPress 49,1
EndIf
EndIf
KeyUp 32,1
EndIf
EndIf
If QJAX=0
VBS QJAXt=timer
RightDown 1
KeyDown 32,1
Delay 100
For 14
Delay 40
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
LeftClick 1
QJAX=0
KeyUp 32,1
KeyUp 87,1
Goto 开始攻击
EndIf
EndFor
KeyPress 87,2
Delay 100
KeyDown 87,1
For 20
Delay 40
// VBSCall FindColorEx(0,0,940,710,"2020ff",1,1,intX,intY)
// If intX>=0 and intY>=0
// KeyPress 87,1
// QJAX=0
// // Goto 1
// EndIf
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
LeftClick 1
QJAX=0
KeyUp 32,1
KeyUp 87,1
Goto 开始攻击
EndIf
EndFor
KeyUp 32,1
RightUp 1
QJAX=1
EndIf
EndIf
Goto 1
Else
Gosub 判断转向
RightDown 1
KeyDown 32,1
Delay 100
For 14
Delay 40
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
LeftClick 1
QJAX=0
KeyUp 32,1
KeyUp 87,1
Goto 开始攻击
EndIf
EndFor
KeyPress 87,2
Delay 100
KeyDown 87,1
QJAX=1
KeyUp 32,1
IfColor 470,654,cfec54,2
Else
EndIf
For 20
Delay 40
// // VBSCall FindColorEx(0,0,940,710,"2020ff",1,1,intX,intY)
// If intX>=0 and intY>=0
//// KeyPress 87,1
// QJAX=0
// Goto 1
// EndIf
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
LeftClick 1
QJAX=0
KeyUp 32,1
Goto 开始攻击
KeyUp 87,1
EndIf
EndFor
Goto 1
EndIf
Return 擂台攻击
Sub 选择武器
If wq=2 or wq=4
IfColor 498,686,a00e1,0
IfColor 635,725,ff,0
KeyPress 49,1
wq=1
Goto 结束选择武器
Else
KeyPress 51,1
wq=3
Goto 结束选择武器
EndIf
Else
wq=2
KeyPress 50,1
Goto 结束选择武器
EndIf
EndIf
If wq=3
IfColor 645,685,a00e1,0
IfColor 485,728,ff,0
KeyPress 49,1
wq=1
Goto 结束选择武器
Else
KeyPress 50,1
wq=2
Goto 结束选择武器
EndIf
Else
KeyPress 51,1
Goto 结束选择武器
EndIf
EndIf
If wq=1
IfColor 485,733,ff,0
IfColor 635,725,ff,0
Else
KeyPress 51,1
wq=3
Goto 结束选择武器
EndIf
Else
KeyPress 50,1
wq=2
Goto 结束选择武器
EndIf
KeyPress 49,1
EndIf
Rem 结束选择武器
Return 选择武器
Sub 按Tab看人数
KeyPress 9,1
VBS tabT1=timer
Rem 按Tab
Delay 100
IfColor 274,452,ffffff,0
Else
VBS tabT2=timer
If tabT2-tabT1>=2.5
VBS tabT1=timer
KeyPress 9,1
EndIf
Goto 按Tab
EndIf
Delay 300
l=0
num1=0
num0=0
For 4
IfColor 287,380+(l*23),ffffff,0
IfColor 289,379+(l*23),202020,0
num1=num1+1
EndIf
EndIf
IfColor 285,381+(l*23),ffffff,0
IfColor 285,377+(l*23),ffffff,0
num0=num0+1
EndIf
EndIf
l=l+1
EndFor
If (num0+num1)=0
KeyPress 9,1
Goto 按Tab
EndIf
KeyPress 9,1
Return 按Tab看人数
Sub 259才杀
Rem 259start
If HH259=1
HH259=2
KeyUp 87,1
KeyUp 32,1
EndIf
IfColor 555,67,51208f,2
Else
//
If krs=2
Goto 看时间
EndIf
If krs=1
VBSCall FindColorEx(919,188,960,255,"0000ff",2,1,swX,swY)
If swX>=0 and swY>=0
tab=1
swY2=swY
Else
If (num0+num1)=4 and num1<=2
krs=2
Else
Goto 259end
EndIf
EndIf
Else
tab=1
EndIf
krs=1
If tab=1
Gosub 按Tab看人数
If (num0+num1)=4 and num1<=2
krs=2
Else
Goto 259end
EndIf
EndIf
//
Rem 看时间
IfColor 763,52,ffffff,1
chaoshi=0
Delay 200
VBSCall FindPic(738,0,875,68,"准备标记.bmp",1,intX,intY)
If intX>=0 and intY>=0
Goto 等待中
EndIf
If HH259=0
IfColor 341,213,ffffff,0
IfColor 503,210,ffffff,0
Goto 259start
Else
EndIf
Else
EndIf
HH259=1
EndIf
Goto 259start
EndIf
IfColor 765,57,ffffff,1
chaoshi=0
Delay 200
VBSCall FindPic(738,0,875,68,"准备标记.bmp",1,intX,intY)
If intX>=0 and intY>=0
Goto 等待中
EndIf
If HH259=0
IfColor 341,213,ffffff,0
IfColor 503,210,ffffff,0
Goto 259start
Else
EndIf
Else
EndIf
HH259=1
EndIf
Goto 259start
EndIf
IfColor 763,62,ffffff,1
chaoshi=0
Delay 200
VBSCall FindPic(738,0,875,68,"准备标记.bmp",1,intX,intY)
If intX>=0 and intY>=0
Goto 等待中
EndIf
If HH259=0
IfColor 341,213,ffffff,0
IfColor 503,210,ffffff,0
Goto 259start
Else
EndIf
Else
EndIf
HH259=1
EndIf
Goto 259start
EndIf
IfColor 764,56,ffffff,2
chaoshi=0
VBSCall FindPic(738,0,875,68,"准备标记.bmp",1,intX,intY)
If intX>=0 and intY>=0
Goto 等待中
EndIf
Delay 200
If HH259=0
IfColor 341,213,ffffff,0
IfColor 503,210,ffffff,0
Goto 259start
Else
EndIf
Else
EndIf
HH259=1
EndIf
Goto 259start
EndIf
chaoshi=1
RightDown 1
Delay 100
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
LeftClick 1
KeyPress 87,1
QJAX=0
Goto 开始攻击
EndIf
KeyDown 32,1
Delay 100
KeyPress 87,2
Delay 100
KeyDown 87,1
Delay 200
For 12
Delay 200
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
LeftClick 1
KeyPress 87,1
QJAX=0
Goto 开始攻击
EndIf
EndFor
KeyUp 32,1
KeyUp 87,1
EndIf
Rem 259end
Return 259才杀
Sub 测试攻击
c=0
c2=0
// Rem 1
KeyPress 50,1
wq=2
If chaoshi=0
Gosub 259才杀
EndIf
RightDown 1
Gosub 环境判断
Delay 100
Gosub 找红色目标
If JL<=2
ZDMB=1
Gosub 选择武器
Delay 100
VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
If intX>=0 and intY>=0
Else
VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
EndIf
If intX>=0 and intY>=0
LeftClick 1
// Rem 开始攻击
If QJAX=1
LeftClick 1
KeyUp 87,1
QJAX=0
EndIf
Gosub 攻击
If gj=0
If QJAX=1
VBS QJAXt2=timer
If QJAXt2-QJAXt>5
KeyUp 87,1
QJAX=0
KeyPress 50,1
KeyDown 32,1
Delay 100
RightDown 1
Delay 100
LeftClick 1
Delay 1000
KeyUp 32,1
LeftClick 1
KeyDown 32,1
Delay 200
KeyPress 51,1
Delay 200
LeftClick 1
Delay 1000
LeftClick 1
RightUp 1
If wq=2
KeyPress 50,1
Else
If wq=3
KeyPress 51,1
Else
KeyPress 49,1
EndIf
EndIf
KeyUp 32,1
EndIf
EndIf
Gosub 前进
EndIf
EndIf
Goto 1
Else
Gosub 判断转向
Gosub 前进
Goto 1
EndIf
Return 测试攻击
