Rem 提前结束
Rem 结束
j=j+1
EndFor
Delay yanshi*200
Gosub jieshu1
EndFor
Rem over
EndScript
Return
Sub 开三国策
t0=timer
t1=timer
i=0
KeyPress 106,1
Rem 开三国策1
IfColor 358,290,96ff3f,0
If j<>0
t2=timer
t3=t2-t1
Set file=fso.OpenTextFile(filename,ForAppending)
file.WriteLine("循环"&i&"次开三国策--"&t3)
file.Close
EndIf
Delay 1000
Rem kaisi
SayString zhanhao
MoveTo 487 378
LeftClick 1
SayString mima
MoveTo 452 469
LeftClick 1
t1=timer
i=0
Delay yanshi*50
Rem bs
IfColor 555,278,1a29c6,0
If j<>0
t2=timer
t3=t2-t1
Set file=fso.OpenTextFile(filename,ForAppending)
file.WriteLine("循环"&i&"次bs--"&t3)
file.Close
EndIf
Gosub 变速
Else
sjbb1=timer
sjbb2=sjbb-sjbb1
i=i+1
Goto bs
EndIf
Delay yanshi*40
t1=timer
i=0
Rem 进入游戏
IfColor 129 102 a0ff46 0
If j<>0
t2=timer
t3=t2-t1
Set file=fso.OpenTextFile(filename,ForAppending)
file.WriteLine("循环"&i&"次进入游戏--"&t3)
file.Close
EndIf
If gxfwq=1
x=423
y=431
ElseIf gxfwq=2
x=423
y=444
ElseIf gxfwq=3
x=429
y=458
ElseIf gxfwq=4
x=431
y=470
Else
x=429
y=485
EndIf
MoveTo x,y
LeftClick 0
MoveTo 470 510
LeftClick 1
Delay yanshi
Else
MoveTo 791 179
LeftClick 1
Delay yanshi*3
MoveTo 791 150
LeftClick 1
i=i+1
Goto 进入游戏
EndIf
Delay yanshi*120
t1=timer
i=0
Rem 选择服务器
IfColor 358 364 8CFF31 0
t2=timer
t3=t2-t1