forum.boolean.name - Показать сообщение отдельно

NitE · 11.07.2011, 22:52

Function RectsOverlap:Byte(x0, y0, w0, h0, x2, y2, w2, h2)
If x0 > (x2 + w2) Or (x0 + w0) < x2 Or y0 > (y2 + h2) Or (y0 + h0) < y2
Return 0
Else
Return 1
EndIf
End Function

11.07.2011, 22:52	#2
NitE злобный флудер Регистрация: 10.07.2007 Сообщений: 2,585 Написано 789 полезных сообщений (для 1,476 пользователей) Всего наград 1	Ответ: Определить наличие объекта в точке Function RectsOverlap:Byte(x0, y0, w0, h0, x2, y2, w2, h2) If x0 > (x2 + w2) Or (x0 + w0) < x2 Or y0 > (y2 + h2) Or (y0 + h0) < y2 Return 0 Else Return 1 EndIf End Function
(Offline)