Basic 2d Collision - GameCreators Forum

Author

Message

Lost Kid

19

Years of Service

User Offline

Joined: 16th Feb 2005

Location: Usa

Posted: 31st May 2005 02:43

Link

I've been messing around, tryin' to do Sprite Collision in dbp but I have no idea what to do, I just wanna make it so that when my char hits the other sprite then my char stops but i dont know what to do, help please?

+ Code Snippet

Start:
Sync on : Sync Rate 100
`Players Commands
pm#=1.0
Cls Rgb(0,255,0)
center text 20,5,"Up"
Get Image 1,0,0,40,40
Sprite 1,300,200,1
offset sprite 1,sprite width(1) / 2,sprite height(1) / 2

`A.I.1's Commands
Cls Rgb(255,0,0)
center text 20,5,"A.I.1"
Get Image 2,0,0,40,40
Sprite 2,100,100,2

Do
Gosub Collision
Gosub PlayerMovement
Sync
Loop

`Players Movement Commands
PlayerMovement:
If Upkey()=1 Then Move Sprite 1,+pm#
If Downkey()=1 Then Move Sprite 1,-pm#
If Upkey()=1 Then Move Sprite 1,+pm#
If Rightkey()=1 Then angle#=angle# +2.0
If Leftkey()=1 Then angle#=angle# -2.0
Rotate Sprite 1,angle#
Return

Collision:
If Sprite Hit(1,2)
endif
Return

My Forum

TGC-Stuff

Back to top

Profile PM Email

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 31st May 2005 05:31

Link

Try something like this. You will have to modify it a bit to use sliding collision but it is the basic idea.

Start:
forward = 1
backward = 0

Sync on : Sync Rate 100
`Players Commands
pm#=1.0
Cls Rgb(0,255,0)
center text 20,5,"Up"
Get Image 1,0,0,40,40
Sprite 1,300,200,1
offset sprite 1,sprite width(1) / 2,sprite height(1) / 2

`A.I.1's Commands
Cls Rgb(255,0,0)
center text 20,5,"A.I.1"
Get Image 2,0,0,40,40
Sprite 2,100,100,2

Do
Gosub Collision
Gosub PlayerMovement
Sync
Loop

`Players Movement Commands
PlayerMovement:
If Upkey()=1
	`if not hitting other sprite or it was moving in the 
	`opposite direction when it hit it
	if Coll = 0 or move = backward
		`set movement direction to forward
		move = forward
		Move Sprite 1,pm#
	endif
endif

If Downkey()=1
	`if not hitting other sprite or it was moving in the 
	`opposite direction when it hit it
	if Coll = 0 or move = forward
		`set movement direction to backward
		move = backward
		Move Sprite 1,-pm#
	endif
endif
If Rightkey()=1 Then angle#=angle# +2.0
If Leftkey()=1 Then angle#=angle# -2.0
Rotate Sprite 1,angle#
Return

Collision:
If Sprite Hit(1,2)
	Coll = 1
else
	Coll = 0
endif
Return

+ Code Snippet

Start:
forward = 1
backward = 0

Sync on : Sync Rate 100
`Players Commands
pm#=1.0
Cls Rgb(0,255,0)
center text 20,5,"Up"
Get Image 1,0,0,40,40
Sprite 1,300,200,1
offset sprite 1,sprite width(1) / 2,sprite height(1) / 2

`A.I.1's Commands
Cls Rgb(255,0,0)
center text 20,5,"A.I.1"
Get Image 2,0,0,40,40
Sprite 2,100,100,2

Do
Gosub Collision
Gosub PlayerMovement
Sync
Loop

`Players Movement Commands
PlayerMovement:
If Upkey()=1
	`if not hitting other sprite or it was moving in the 
	`opposite direction when it hit it
	if Coll = 0 or move = backward
		`set movement direction to forward
		move = forward
		Move Sprite 1,pm#
	endif
endif

If Downkey()=1
	`if not hitting other sprite or it was moving in the 
	`opposite direction when it hit it
	if Coll = 0 or move = forward
		`set movement direction to backward
		move = backward
		Move Sprite 1,-pm#
	endif
endif
If Rightkey()=1 Then angle#=angle# +2.0
If Leftkey()=1 Then angle#=angle# -2.0
Rotate Sprite 1,angle#
Return

Collision:
If Sprite Hit(1,2)
	Coll = 1
else
	Coll = 0
endif
Return

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Basic 2d Collision