22

Sub FindMonsterSecond()
  Dim tempFoundS
    tempFoundS = 0
    FindBlockColor 0,0,800,450,2,2,&HBD61BD,0.85,0,x,y
    If x>=0 And y>=0 Then
      Dprint "Start FindMonsterSecond"
        tempFoundS=1
    End If
    MonFoundSecond =  tempFoundS
End Sub

Sub KillMonster() 
    FindBlockColor 0,0,800,450,2,2,&HBD61BD,0.85,0,x,y
    If x>=0 And y>=0 Then
      Dprint "Start KillMonster Older"
        MoveTo x,y
        LeftClick 1
        Delay 10
        KeyPressH "F1",1  
        Delay 10
    Else
      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 KillMonster Newer"
        MoveTo x,y
        LeftClick 1
        Delay 10
        KeyPressH "F1",1   
        Delay 10
     End If
    End If  
End Sub

Sub Attack()
  Dprint "Start Attack"
  'AddRed
  'AddBlue
  'CallBaby
  
  If MonFoundSecond = 0 Then
      FindMonsterFirst
   End If
    FindMonsterSecond   
    If MonFoundFirst = 1 Then
        KillMonster
    End If
    If MonFoundSecond = 1 Then
        KillMonster
    End If
End Sub