Advertisement
kaed

Simple Collision Detection

Apr 19th, 2012
148
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.52 KB | None | 0 0
  1. '::::::::::::::::::::Made by kaed @ swag.li & hackcommunity.com::::::::::::::::::::
  2. 'If your new to making games and want to check for a collision this is what you need.
  3. 'Example of use: simple_collision_detection(PictureBox1, PictureBox2)
  4. Private Sub simple_collision_detection(ByVal control1 As Control, ByVal control2 As Control)
  5.     If control1.Left < control2.Left And control2.Left < control1.Right And control1.Top < control2.Top And control2.Top < control1.Bottom Or _
  6.      control1.Left < control2.Left And control2.Left < control1.Right And control2.Bottom < control1.Bottom And control1.Top < control2.Bottom Or _
  7.      control1.Left < control2.Right And control2.Right < control1.Right And control1.Top < control2.Top And control2.Top < control1.Bottom Or _
  8.      control1.Left < control2.Right And control2.Right < control1.Right And control2.Bottom < control1.Bottom And control1.Top < control2.Bottom Or _
  9.      control1.Left < control2.Left And control2.Left < control1.Right And control2.Top < control1.Top And control1.Bottom < control2.Bottom Or _
  10.      control2.Right < control1.Right And control1.Left < control2.Right And control2.Top < control1.Top And control1.Bottom < control2.Bottom Or _
  11.      control1.Top < control2.Top And control2.Top < control1.Bottom And control2.Left < control1.Left And control1.Right < control2.Right Or _
  12.      control2.Bottom < control1.Bottom And control1.Top < control2.Bottom And control2.Left < control1.Left And control1.Right < control2.Right Then
  13.  
  14.         'code goes here!
  15.         MessageBox.Show("hit!")
  16.     End If
  17. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement