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

88annyall · 发表于 2020-3-3 09:47:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

玩的端游，在地图中找怪，打怪，这样循环，由于怪物是晃动的状态，只能用找色来找怪，可是一开始找一个怪，然后就不怎么找了，而是随机移动。代码如下，请老师指导下
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

大海里的淡水鱼 · 发表于 2020-3-3 13:56:48

那第二遍应该是没找到，

		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。