11

最新推荐文章于 2024-07-16 15:36:19 发布

duanxy932

最新推荐文章于 2024-07-16 15:36:19 发布

阅读量746

点赞数

文章标签： colors delay random

本文链接：https://blog.csdn.net/duanxy932/article/details/4384800

版权

Dim MonFoundFirst,MonFoundSecond 'judge whether there is the monster in map or not
Dim rdX,rdY 'create double random coordinate
Dim MoneyExist 'judge whether there is the money in map or not
Dim MonColor ' colors of the monsters
Sub Main()
  InitMonColor
    MonFoundFirst=0
    MonFoundSecond=0
    Do While 1=1
        Attack
        If MonFoundFirst =0 And MonFoundSecond =0 Then
          Do While MoneyExist = 1
           PickUp
          Loop
           Randomize
           rdX = Int(40 * Rnd) - 20
           Randomize
           rdY = Int(40 * Rnd) - 20
           MoveTo 350+rdX,300+rdY 'need modify to be role's coordinate
           RightDown
           Delay 3000
           RightUp
    Else
       Delay 2000
       End If
    Loop
End Sub

Sub InitMonColor()
MonColor = Array(&H185118)'colors of the monsters
End Sub

Sub FindMonsterFirst()
  Dim tempFoundF
    tempFoundF = 0
    FindBlockColor 0,0,800,450,2,2,MonColor(0),0.85,0,x,y 'need modify
    If x>=0 And y>=0 Then
      Dprint "Start FindMonsterFirst"
        tempFoundF=1
    End If
    MonFoundFirst = tempFoundF
End Sub