Question

按键精灵如何根据区域内找到不同颜色执行不同命令

在某个区域内，找5种颜色，如有找到前4种颜色，则移到颜色所在区域左键点击，如找到第五种颜色，则连续点击，下面是我找前4种颜色，没问题，但第五种颜色因为操作不一样，不知道怎么来写，请高手指点。
Dim Cor(3)
Dim s,x,y
Cor(0)="102664":Cor(1)="E6F9FF":Cor(2)="C5C8FB":Cor(3)="85B3F1"
Rem start
s=0
For 4
Delay 30
Call FindCenterColor(490,170,1015,570,Cor(s),x,y)
If x > 0 and y > 0 Then
MoveTo x,y
LeftClick 1
Else
End If
s=s+1
Next
EndScript
Goto start

Answer 1

虽然第五种颜色是根据操作不同而显示不同，但终究是有规律可循的呀，写脚本可不能怕麻烦呃，第五种的各种颜色都截取下来吧。

追问

不是怕麻烦，最后一个颜色是需要连接且不需要再循环的动作，所以不知道怎么镶嵌到上面的程序里面去。

追答

那么，是和前四种颜色一样的脚本，还是如果找不到上面4种颜色才执行第五种颜色的脚本呢？

追问

是个打地鼠的游戏脚本，总共60秒，前面45秒内只会出现3种不同颜色的怪物，到最后15秒的时候，随机会刷BOSS出来，这时我需要做的是一旦boss画面出来，前面找色的动作就不用了，只需在设定的框内任意一点去快速点击就好了，前面3中颜色的找色动作都可以不用。

追答

懂了，如果BOSS的颜色都不一样的，我建议你还是在各个洞口设置固定取色点，只要颜色不同于洞口的颜色，那么就快速点击，这样不是更简单吗？

追问

9个洞口，每个洞口判断4种颜色，程序太繁琐，效率很低，这种方式也试过了，执行起来不行的，呵呵，看来你我水平类似啊。

Answer 2

Dim Cor(3)
Dim s,x,y
Cor(0)="102664":Cor(1)="E6F9FF":Cor(2)="C5C8FB":Cor(3)="85B3F1"
Cor(4)="??????"
Rem start
s=0
For 5
Delay 30
Call FindCenterColor(490,170,1015,570,Cor(s),x,y)
If x > 0 and y > 0 Then
If Cor(s)="第5颜色" Then
Rem q
MoveTo x,y
Delay 30
LeftClick 1
Goto q
Else
MoveTo x,y
LeftClick 1
End If
Else
End If
s=s+1
Next
EndScript
Goto start