Beginners question about collison detection

BlitzMax Forums/BlitzMax Beginners Area/Beginners question about collison detection

Zacho

(Posted 2011) [#1]

How can I get it to register if I have two images that have no colors masked at all? I can provide code if necessary

YellBellzDotCom

(Posted 2011) [#2]

Heres the quickest example I could come up with...

Blue ball... (Right click and save image as)

Yellow Ball (Right click and save image as)

Strict

Local ball1:TImage = LoadImage("Ball_Yellow.png")
Local ball2:TImage = LoadImage("Ball_Blue.png")

Local ball1X:Int = 50
Local ball1Y:Int = 50

Local ball2X:Int = 200-32
Local ball2Y:Int = 200-32


Graphics 400,400,0
While Not KeyHit(KEY_ESCAPE)
	Cls 'clear screen before drawing
	
	'check user input
	If(KeyDown(KEY_UP)) If(ImagesCollide(ball1,ball1X,ball1Y-1,0,ball2,ball2X,ball2Y,0) = False) ball1Y = ball1Y - 1
	If(KeyDown(KEY_DOWN)) If(ImagesCollide(ball1,ball1X,ball1Y+1,0,ball2,ball2X,ball2Y,0) = False) ball1Y = ball1Y + 1
	If(KeyDown(KEY_LEFT)) If(ImagesCollide(ball1,ball1X-1,ball1Y,0,ball2,ball2X,ball2Y,0) = False) ball1X = ball1X - 1
	If(KeyDown(KEY_RIGHT)) If(ImagesCollide(ball1,ball1X+1,ball1Y,0,ball2,ball2X,ball2Y,0) = False) ball1X = ball1X + 1
	
	
	'draw balls
	DrawImage(ball1,ball1X,ball1Y)
	DrawImage(ball2,ball2X,ball2Y)
	
	
	'Draw info
	DrawText("X: "+ball1X+", Y: "+ball1Y,10,10)
	
	
	
	Flip(30)
	
	If AppTerminate() Then End 
Wend

Last edited 2011

Last edited 2011

Last edited 2011

Zacho

(Posted 2011) [#3]

I found the problem. I was using If ImagesCollide ball1:TImage,ball1x... etc

apparently that doesnt work well with BMax :D

Thank you for helping me.