新人学习一段时间了，请老师帮看下这段代码怎么出问题

88annyall

玩的端游，在地图中找怪，打怪，这样循环，由于怪物是晃动的状态，只能用找色来找怪，可是一开始找一个怪，然后就不怎么找了，而是随机移动。代码如下，请老师指导下
Dim xiuluo(2)
xiuluo(0) = "04C5FF"
xiuluo(1) = "0036FA"
xiuluo(2) = "06F81A"
Do

FindCenterColor 5, 90, 700, 600,xiuluo(s), intX, intY//找怪
Delay 1000
If intX > 0 And intY > 0 Then
Delay 1000
MoveTo intX, intY
    Delay 1000
    LeftClick 1
     MoveTo 312, 296
    Delay 500
        LeftClick 1
        Delay 500
                  End If
x = int((800 - 50 + 1) * Rnd + 50)
y = int((600 -150 + 1) * Rnd + 150)
MoveTo x, y
Delay 2000
LeftClick 1
s = int((4000 - 2000 + 1) * Rnd + 2000)
Delay 1000
Loop

大海里的淡水鱼

那第二遍应该是没找到，