11

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