如图我想实现在固定路径上不同坐标点循坏打怪。
通过通过左下角的坐标来判断角色是否到达指定坐标A。
如果到达指定坐标A,则选择去指定坐标B
如果没到达坐标A,则先到达坐标A。再去坐标B。
以此类推
Dim zbx(8), zby(8)
zbx(0) = 142 : zby(0) = 184//冒号在这里起到链接作用,要不用冒号的话,需要另起一行。这样写方便调试
zbx(1) = 669 : zby(1) = 531
zbx(2) = 748 : zby(2) = 489
zbx(3) = 686 : zby(3) = 607
zbx(4) = 751 : zby(4) = 570
zbx(5) = 818 : zby(5) = 529
zbx(6) = 756 : zby(6) = 638
zbx(7) = 826 : zby(7) = 602
zbx(8) = 899 : zby(8) = 567
set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0,"dm_soft.txt")
s = dm.Ocr(190,772,264,798,"ffffc8-000000",1.0)
TracePrint s
Dim myarray
Myarray = Split(s, ",")
ux=Clng(myarray(0))
uy = Clng(myarray(1))
For i = 0 To 8
TracePrint ux
TracePrint uy
TracePrint zbx(i)
TracePrint zby(i)
If UX > zbx(i) and uy > zby(i) Then
MoveTo 300,200
Delay 50
RightClick 1
Else
If UX > zbx(i) and uy < zby(i) Then
MoveTo 300,500
Delay 50
RightClick 1
Else
If UX <zbx(i) and uy < zby(i) Then
MoveTo 700,500
Delay 50
RightClick 1
Else
If UX < zbx(i) and uy > zby(i) Then
MoveTo 700,200
Delay 50
RightClick 1
Else
If UX > zbx(i) and uy = zby(i) Then
MoveTo 300,400
Delay 50
RightClick 1
Else
If UX < zbx(i) and uy = zby(i) Then
MoveTo 700,400
Delay 50
RightClick 1
Else
If UX = zbx(i) and uy < zby(i) Then
MoveTo 500,500
Delay 50
RightClick 1
Else
If UX = zbx(i) and uy > zby(i) Then
MoveTo 500,200
Delay 50
RightClick 1
End If
End If
End If
End If
End If
End If
End If
End If
