| |
征途仙 组队给别人加状态脚本
VBS dim t1,t2,t3,t4,t5,q,w,e,r,t,anjian,an
t1=now:t2=now:t3=now:t4=now
UserVar anjian=14000 技能的冷却时间（毫秒）
UserVar an=1000 两个技能之间延时秒 （毫秒），一般不用动
UserVar r=186 第一个技能(f1)的间隔时间(秒)，
UserVar e=300第一个技能(f2)的间隔时间(秒)，
UserVar q=126 第一个技能(f3)的间隔时间(秒)，
UserVar w=306 第一个技能(f4)的间隔时间(秒)，
Gosub 1
Delay anjian
Gosub 2
Delay anjian
Gosub 3
Delay anjian
Gosub 4
Delay anjian
Gosub 5
a=1
While a=1
Gosub dddd
EndWhile
Sub 1
IfColor 41,93,103842,0
MoveTo 41,93
LeftClick 1
KeyPress 112,1
Delay an
KeyPress 113,1
Delay an
KeyPress 114,1
Delay an
KeyPress 115,1
Else
EndIf
Return 1
Sub 2
IfColor 41,174,103842,0
MoveTo 41,174
LeftClick 1
KeyPress 112,1
Delay an
KeyPress 113,1
Delay an
KeyPress 114,1
Delay an
KeyPress 115,1
Else
EndIf
Return 2
Sub 3
IfColor 41,255,103842,0
MoveTo 41,255
LeftClick 1
KeyPress 112,1
Delay an
KeyPress 113,1
Delay an
KeyPress 114,1
Delay an
KeyPress 115,1
Else
EndIf
Return 3
Sub 4
IfColor 41,336,103842,0
MoveTo 41,336
LeftClick 1
KeyPress 112,1
Delay an
KeyPress 113,1
Delay an
KeyPress 114,1
Delay an
KeyPress 115,1
Else
EndIf
Return 4
Sub 5
IfColor 41,417,103842,0
MoveTo 41,417
LeftClick 1
KeyPress 112,1
Delay an
KeyPress 113,1
Delay an
KeyPress 114,1
Delay an
KeyPress 115,1
Else
EndIf
Return 5
Sub dddd
If datediff("s",t1,now)>=r
Gosub 11
Delay an
Gosub 21
Delay an
Gosub 31
Delay an
Gosub 41
Delay an
Gosub 51
t1=now
EndIf
If datediff("s",t2,now)>=e
Gosub 12
Delay an
Gosub 22
Delay an
Gosub 32
Delay an
Gosub 42
Delay an
Gosub 52
t2=now
EndIf
If datediff("s",t3,now)>=q
Gosub 111
Delay an
Gosub 211
Delay an
Gosub 311
Delay an
Gosub 411
Delay an
Gosub 511
t3=now
EndIf
If datediff("s",t4,now)>=w
Gosub 122
Delay an
Gosub 222
Delay an
Gosub 322
Delay an
Gosub 422
Delay an
Gosub 522
t4=now
EndIf
Return dddd
Sub 11
IfColor 41,93,103842,0
MoveTo 41,93
LeftClick 1
KeyPress 112,1
Else
EndIf
Return 11
Sub 21
IfColor 41,174,103842,0
MoveTo 41,174
LeftClick 1
KeyPress 112,1
Else
EndIf
Return 21
Sub 31
IfColor 41,255,103842,0
MoveTo 41,255
LeftClick 1
KeyPress 112,1
Else
EndIf
Return 31
Sub 41
IfColor 41,336,103842,0
MoveTo 41,336
LeftClick 1
KeyPress 112,1
Else
EndIf
Return 41
Sub 51
IfColor 41,417,103842,0
MoveTo 41,417
LeftClick 1
KeyPress 112,1
Else
EndIf
Return 51
Sub 12
IfColor 41,93,103842,0
MoveTo 41,93
LeftClick 1
KeyPress 113,1
Else
EndIf
Return 12
Sub 22
IfColor 41,174,103842,0
MoveTo 41,174
LeftClick 1
KeyPress 113,1
Else
EndIf
Return 22
Sub 32
IfColor 41,255,103842,0
MoveTo 41,255
LeftClick 1
KeyPress 113,1
Else
EndIf
Return 32
Sub 42
IfColor 41,336,103842,0
MoveTo 41,336
LeftClick 1
KeyPress 113,1
Else
EndIf
Return 42
Sub 52
IfColor 41,417,103842,0
MoveTo 41,417
LeftClick 1
KeyPress 113,1
Else
EndIf
Return 52
Sub 111
IfColor 41,93,103842,0
MoveTo 41,93
LeftClick 1
KeyPress 114,1
Else
EndIf
Return 111
Sub 211
IfColor 41,174,103842,0
MoveTo 41,174
LeftClick 1
KeyPress 114,1
Else
EndIf
Return 211
Sub 311
IfColor 41,255,103842,0
MoveTo 41,255
LeftClick 1
KeyPress 114,1
Else
EndIf
Return 311
Sub 411
IfColor 41,336,103842,0
MoveTo 41,336
LeftClick 1
KeyPress 114,1
Else
EndIf
Return 411
Sub 511
IfColor 41,417,103842,0
MoveTo 41,417
LeftClick 1
KeyPress 114,1
Else
EndIf
Return 511
Sub 122
IfColor 41,93,103842,0
MoveTo 41,93
LeftClick 1
KeyPress 115,1
Else
EndIf
Return 122
Sub 222
IfColor 41,174,103842,0
MoveTo 41,174
LeftClick 1
KeyPress 115,1
Else
EndIf
Return 222
Sub 322
IfColor 41,255,103842,0
MoveTo 41,255
LeftClick 1
KeyPress 115,1
Else
EndIf
Return 322
Sub 422
IfColor 41,336,103842,0
MoveTo 41,336
LeftClick 1
KeyPress 115,1
Else
EndIf
Return 422
Sub 522
IfColor 41,417,103842,0
MoveTo 41,417
LeftClick 1
KeyPress 115,1
Else
EndIf
Return 522 |
|
