For 10
MoveTo 1079, 210
LeftClick 1
Delay 1000
IfColor 1079,210,"0",0 Then
MoveTo 360, 483
LeftClick 1
Delay 1000
End If
MoveTo 859, 498
LeftClick 1
Delay 1000
Next
//如果上面找色命令10分钟内找到并执行2次后执行下面命令后再返回之前的循环
MoveTo 1049, 123
LeftClick 1
MoveTo 197, 565
LeftClick 1
MoveTo 1119, 533
LeftClick 1
//上面移动3个点后点击的操作要求循环跳出后循环点击坐标1,2,3

UserVar Var1=DropList{"換線刷":"选项1"|"本線刷":"选项2"}=0 "換線刷紅"
n=1 //给n一个初始值
Sub A()
Rem a
Delay 1000
FindPic 0,0,1024,768,"Attachment:\点.bmp",0.5,intX2,intY2
If intX2 > 0 And intY2 > 0 Then
Goto a
End If
Delay 3000
End Sub
Sub B()
MoveTo 1238, 52
LeftClick 1
Delay 1000
select case n
case 1
MoveTo 645, 469
LeftClick 1
Delay 1000
n=2
case 2
MoveTo 637, 261
LeftClick 1
Delay 1000
n=3
case 3
MoveTo 643, 366
LeftClick 1
Delay 1000
n=1
end select
End Sub
do
For 10
Rem c
FindColor 470,20,700,120,"1717C1",intX3,intY3
If intX3 > 0 And intY3 > 0 Then
Delay 2000
Goto c
Else
IfColor 246,589,"C5C2BE",0 Then
MoveTo 1144, 119
LeftClick 1
Delay 1000
End If
Delay 3000
MoveTo 1180, 110
LeftClick 1
Delay 1000
End If
FindPic 0,0,1024,768,"Attachment:\红.bmp",0.4,intX1,intY1
If intX1 > 0 And intY1 > 0 Then
MoveTo intX1+10, intY1+16
LeftClick 1
Delay 1000
MoveTo 470, 20
Call A()
MoveTo 1144, 119
LeftClick 1
Delay 1000
KeyPress "Tab", 1
Delay 1000
KeyPress "Q", 1
Delay 3000
KeyPress "E", 1
Delay 5000
If Var1=換線刷 Then
if datediff(lasttime,now,m)<=10 then
lasttime=now
Call B()
end if
lasttime=now
End If
Goto c
End If
FindPic 630,450,1024,768,"Attachment:\金.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+10, intY+16
LeftClick 1
Delay 1000
MoveTo 470, 20
Call A()
MoveTo 1144, 119
LeftClick 1
Delay 1000
Else
MoveTo 1144, 119
LeftClick 1
Delay 1000
Goto c
End If
KeyPress "E", 1
Delay 5000
Next
MoveTo 1242, 297
Delay 1000
Rem Aa
LeftClick 1
Delay 1000
IfColor 1003,57,"E0E0E",1 Then
Goto Aa
End If
MoveTo 1111, 688
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
MoveTo 859, 55
Delay 10000
Rem Ba
LeftClick 1
Delay 1000
IfColor 1003,57,"E0E0E",0 Then
Goto Ba
End If
loop