110,567
社区成员
发帖
与我相关
我的任务
分享
UserVar Var1=DropList{8000:8000|10000:10000|15000:15000}=1 打多长时间
Rem denga
Rem 看人出来没有
IfColor 85,57,20ea6,0
Else
Delay 1000
Goto denga
EndIf
Rem 食技能珠
MoveTo 610,10
Delay 200
LeftClick 1
Delay 300
KeyPress 73,1
Delay 200
VBSCall FindColorEx(1121,452,1231,631,"3436ff",0,0.8,a,b)
Delay 100
MoveTo a,b
Delay 100
RightClick 1
Delay 200
KeyPress 73,1
Delay 200
KeyPress 119,1
Rem 等待开始
Rem 点外挂传送要挂机的地方
Rem 判断开始出现
IfColor 870,912,5050ff,0
Else
Delay 100
Goto 等待开始
EndIf
Rem Delay 100
Rem MoveTo 269,765
Rem Delay 100
Rem LeftClick 1
Rem Delay 200
Rem MoveTo 610,10
Rem Delay 200
Rem LeftClick 1
Rem Delay 300
Rem KeyPress 119,1
Rem 边打边判断蓝多少 共8秒
IfColor 137,72,222222,0
KeyPress 187,1
Else
EndIf
Delay 1000
IfColor 137,72,222222,0
KeyPress 187,1
Else
EndIf
Delay 1000
IfColor 137,72,222222,0
KeyPress 187,1
Else
EndIf
Delay 1000
IfColor 137,72,222222,0
KeyPress 187,1
Else
EndIf
Delay 1000
IfColor 137,72,222222,0
KeyPress 187,1
Else
EndIf
Delay 1000
IfColor 137,72,222222,0
KeyPress 187,1
Else
EndIf
Delay 1000
IfColor 137,72,222222,0
KeyPress 187,1
Else
EndIf
Delay 1000
IfColor 137,72,222222,0
KeyPress 187,1
Else
EndIf
Delay 1000
KeyPress 119,1
Rem 判断有没有死亡
IfColor 80,56,151da8,1
Delay 200
KeyPress 119,1
Delay 2000
MoveTo 639,393
Delay 2000
LeftClick 1
Delay 2000
For 2
KeyPress 27,1
EndFor
IfColor 613,313,f3973d,0
MoveTo 636,409
Delay 1000
LeftClick 1
Goto dang
Else
EndIf
Else
EndIf
Rem 判断有没有断线
IfColor 437,262,b12ee,0
VBSCall RunApp("D:\迅雷广告绿色\Program\download-complete.wav")
EndScript
Else
EndIf
KeyPress 27,1
Delay 200
MoveTo 636,409
Delay 20
LeftClick 1
Rem dang
Rem deng
IfColor 1025,385,eeeeee,0
Else
Delay 1000
Goto deng
EndIf
For 3
KeyPress 13,1
Delay 100
EndFor
Delay 500