Delay hongT
//吃药冷却延时
EndIf
IfColor lan/100*(231-126)+126,52,cda262,2
//蓝百分比吃蓝脚本
KeyPress jn3,1
//吃药按钮
Delay lanT
//吃药冷却延时
EndIf
Else
IfColor 441,49,1914a4,2
//判断怪物是否死亡
Goto 战斗
EndIf
EndIf
EndIf
Return 吃血打坐
Sub 外挂提示
VBSCall FindPic(196,49,1017,434,"Attachment:\kdxy1.bmp",0.7,x,y)
//当反外挂提示到最后一分钟后弹出的窗口判定
If x>=0 and y>=0
//不想要报警声音的话就吧这句脚本删除
Gosub 登出
//...........
Gosub 重新登录
//.........
EndIf
Return 外挂提示
Sub 登出
//这里就是当反外挂出现4分钟后自动返回登出的脚本
MoveTo 995,726
Delay 500
LeftClick 1
Delay 500
Rem 继续登出
IfColor 959,671,80f8ff,2
MoveTo 959,671
Delay 200
LeftClick 1
Delay 1000
EndIf
VBSCall FindPic(389,390,502,430,"Attachment:\kdxys.bmp",0.5,x,y)
If x>=0 and y>=0
MoveTo x+12,y+12
Delay 200
LeftClick 1
Delay 2000
IfColor 959,671,80f8ff,2
Goto 继续登出
EndIf
EndIf
Return 登出
Sub 重新登录
//这就是退出后 又自动登录的脚本
Rem 继续登录
VBSCall FindPic(450,700,570,736,"Attachment:\kdjr.bmp",0.5,x,y)
If x>=0 and y>=0
MoveTo 171,m
Delay 200
LeftClick 1
Delay 200
MoveTo x,y
Delay 200
LeftClick 1
Else
Goto 继续登录
EndIf
Rem 登录中
VBSCall FindPic(689,340,717,419,"Attachment:\kdjr1.bmp",0.5,x,y)
If x>=0 and y>=0
Delay 2000
Else
Goto 登录中
EndIf
Return 重新登录
Sub 召唤宝宝
VBSCall FindPic(184,683,222,718,"Attachment:\kdxybb.bmp",0.5,x,y)
//1号宝宝召唤方式的脚本 可以选择是 合体 和召唤战斗
If x>=0 and y>=0
MoveTo x-v,y+5
Delay 50
LeftClick 1
MoveTo 931,645
Delay 3000
EndIf
VBSCall FindPic(179,731,213,763,"Attachment:\kdxybb.bmp",0.5,x,y)
//2宝宝召唤方式的脚本 可以选择是 合体 和召唤战斗
If x>=0 and y>=0
MoveTo x-b,y+5
Delay 50
LeftClick 1
Delay 3000
MoveTo 31,690
Delay 50
LeftClick 1
Delay 50
MoveTo 931,645
EndIf
Return 召唤宝宝