Colision

[DarKsLiMe]

PLEASE HELP ME PLEASE!
lol
I'm a secondary 5 students and I do a game in a crappy Computer class with a stupid teacher who doesn't know anything! So there is the problem. I have 2 picture box.

picMan
picRock

I move the man with left and top proprieties. I want to know the code for the colision between the rock and the man.
And where I need to copy it! Thank you a lot!

Sorry for my english! I speak french!

[kedaman]

dim collision as boolean,l1&,l2&,r1&,r2&,t1&,t2&,b1&,b2&
l1=picMan.left
l2=picRock.left
t1=picMan.top
t2=picRock.top
r1=picMan.width-l1
r2=picRock.width-l2
b1=picMan.height-t1
b2=picRock.height-t2
collision = (r1>l2 and r1<r2 or l1>l2 and l1<r2) and (b1>t2 and b1<b2 or t1>t2 and t1<b2)

[Zaei]

So, kedaman, are you a mathematician, or a scientist? =)

You can use the "IntersectRect" API call. Look around in the help files for more information.

Z.

[kedaman]

I'm a contrarian visioner :P

[DarKsLiMe]

Hi,

I use your code but it do nothing... I first copy it on the form load. After, I decide to put it in a timer. No difference...
I'm a newbie... so maybe it's stupid to ask but can you say where to put the code and an example of a collision(The picMan to not move)

Thanck you

[kedaman]

the code should go where you want to detect the collision, if you put it in a timer you should ensure you have a interval>0 and enabled, the code itself just assigns collision variable true if there is a collision, otherways false. how do you move picman?

[DarKsLiMe]

To move picman, I use this code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then picMan.Top = picMan.Top - 50
If KeyCode = vbKeyDown Then picMan.Top = picMan.Top + 50
If KeyCode = vbKeyLeft Then picMan.Left = picMan.Left - 50
If KeyCode = vbKeyRight Then picMan.Left = picMan.Left + 50
End Sub

And it work perfectly

All I want it to do is that when he touch the rock, he can't pass thrue it! I want him to not move!
Tank you for your help man

[DarKsLiMe]

There is a little program similar to what I'm doing with little funny graphic. If you can modify it and send it back to me, i would be cool!

There is the program!

[Sastraxi]

You want to check for the collision FIRST, and then do it:

If CheckCollision() = False Then 'execute code

something along those lines, where it (CheckCollision()) would tell if picRock is in picMan.

[DarKsLiMe]

Hi!
With the help of J Wilton who e-mail me, we almost got the perfect code. There is only one last bug! When the picMan come from the bottom, he pass thrue the picRock but not in the other side! Someone is havint an idea how to fix that? Please help me!


here is the code

Dim collision As Boolean, l1&, l2&, r1&, r2&, t1&, t2&, b1&, b2&

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (collision) Then
picMan.Left = picMan.Left - 50
picMan.Top = picMan.Top - 50
picMan.Left = picMan.Left + 50
Exit Sub
End If
If KeyCode = vbKeyUp Then picMan.Top = picMan.Top - 50
If KeyCode = vbKeyDown Then picMan.Top = picMan.Top + 50
If KeyCode = vbKeyLeft Then picMan.Left = picMan.Left - 50
If KeyCode = vbKeyRight Then picMan.Left = picMan.Left + 50
End Sub

Private Sub Timer1_Timer()
l1 = picMan.Left
l2 = picRock.Left
t1 = picMan.Top
t2 = picRock.Top
r1 = picMan.Width + l1
r2 = picRock.Width + l2
b1 = picMan.Height + t1
b2 = picRock.Height + t2
collision = (r1 > l2) And (l1 < r2) And (b1 > t2) And (t1 < b2)
'If (collision) Then imgcool.Visible = True
End Sub

[DarKsLiMe]

Is anybody here to save me?