Graphics 800,600,0,60

Repeat
   Cls
      If rectsoverlap(MouseX(),MouseY(),10,10,300,300,100,25) Then
         SetColor 255,0,255
         Else
         SetColor 0,0,255
      End If
      DrawRect 300,300,100,25
      SetColor 255,255,255

      SetColor 255,0,0
      DrawRect MouseX(),MouseY(),10,10
      
      
      If MouseHit(1) Then
         If rectsoverlap(MouseX(),MouseY(),1,1,300,300,100,25) Then
            Print "Hit"
         End If
      End If
   Flip
Until KeyHit(key_escape)



Function RECTSOVERLAP(x1,y1,w1,h1,x2,y2,w2,h2)
   If x1 > (x2 + w2) Or (x1 + w1) < x2 Then Return False
   If y1 > (y2 + h2) Or (y1 + h1) < y2 Then Return False
   Return True
End Function