функция пересечения квадрата и прямоугольника тебе в помощь
Function cross_square_and_rect(x1#,y1#,x2#,y2#,x#,y#,side#)
w#=x1-x2
h#=y1-y2
centerx#=x1-w/2
centery#=y1-h/2
If Abs(centerx - x) <= (Abs(w) + side) / 2 And Abs(centery - y) <= (Abs(h) + side) / 2 Return True
End Function