2d Sprite Collisions!!! - GameCreators Forum

Author

Message

Nathan C

14

Years of Service

User Offline

Joined: 26th Jan 2010

Location:

Posted: 20th Mar 2010 10:15 Edited at: 21st Mar 2010 10:24

Link

Whenever i try to get two sprites (Person sprite, and a building sprite) to have a collision with each other, it doesnt work! all i want is for my character to walk up to a building and stop because of a collision but cant!!! Im new to programming so i dont realy know what to do. ive tried the Sprite Collision command, the Hit sprite command, and they dont work. Im going to give my source file so somebody can show me what to do. Please somebody help me, it will be greatly appreciated

Here it is:

GLOBAL X AS INTEGER = 50      
GLOBAL Y AS INTEGER = 50

CImage1 = 5
CImage2 = 6
CImage3 = 7
CImage4 = 8
CImage5 = 32
CImage6 = 33

TIM=timer()
ImageTim=timer()
OldDirection=1

set image colorkey 255,255,255
color backdrop rgb(72,152,72)

SYNC ON
SYNC RATE 90

`***********************Animation Of Link walking Right*******************
load bitmap "Media/spr_Link_Right_strip6.png",1
get image 5,0,0,19,26,5
get image 6,20,0,38,26,5
get image 7,39,0,58,26,5
get image 8,58,0,78,26,5
get image 9,78,0,98,26,5
get image 10,98,0,118,26,5
`*************************************************************************
`***********************Animation of Link walking Left********************
load bitmap "Media/spr_Link_Left_Strip6.png",2
get image 11,0,0,19,26,6
get image 12,19,0,39,26,6
get image 13,40,0,59,26,6
get image 14,60,0,79,26,6
get image 15,80,0,99,26,6
get image 16,100,0,119,26,6
`************************************************************************
`*******************Animation of Link Walking Down***********************
load bitmap "Media/spr_Link_Front_strip8.png",3
get image 17,0,0,17,26,7
get image 18,17,0,37,26,7
get image 19,37,0,57,26,7
get image 20,57,0,77,26,7
get image 21,77,0,97,26,7
get image 22,97,0,117,26,7
get image 23,117,0,137,26,7
get image 24,137,0,157,26,7
`*************************************************************************

`********************Animation of Link Walking Up*************************
load bitmap "Media/spr_Link_Back_strip7.png",4
get image 25,0,0,20,26,8
get image 26,20,0,40,26,8
get image 27,40,0,60,26,8
get image 28,60,0,80,26,8
get image 29,80,0,100,26,8
get image 30,100,0,120,26,8
get image 31,120,0,140,26,8

`**************************************************************************
`******************Loading Tiles*******************************************
load bitmap "Media/house.bmp",5
get image  32,0,0,106,102,32
`***************************************************************************

`*******************Road One Sprite*****************************************
load bitmap "Media/ground.bmp",6
get image 33,0,0,28,131,33
`***************************************************************************

set current bitmap 0

`***Main loop***
DO

`***************sprites*********************************
sprite 5,x,y,CImage1 `Ani Right
sprite 6,x,y,CImage2 `Ani Left
sprite 7,x,y,CImage3 `Ani Down
sprite 8,x,y,CImage4 `Ani Up
sprite 32,120,180,CImage5 `House
sprite 33,156,283,CImage6 `Ground One
`*******************************************************

`**************Link Walking Right*************************
if rightkey() and timer()>tim+10
   show sprite 5
   hide sprite 6
   hide sprite 7
   hide sprite 8
if OldDirection=2 then mirror sprite 5:OldDirection=5
inc x
if timer()>ImageTim+30
      inc CImage1
      if CImage1>=10 then CImage1=5
      Imagetim=timer()
   endif
endif
`********************************************************

`**************Link Walking Left*************************
if leftkey() and timer()>tim+10
   show sprite 6
   hide sprite 5
   hide sprite 7
   hide sprite 8
if OldDirection=2 then mirror sprite 6,:OldDirection=6
dec x
if timer()>ImageTim+30
      inc CImage2
      if CImage2>=16 then CImage2=11
      Imagetim=timer()
   endif
endif
`*********************************************************

`**********Link Walking Down******************************
if downkey() and timer()>tim+10
   show sprite 7
   hide sprite 5
   hide sprite 6
   hide sprite 8
if OldDirection=1 then mirror sprite 7,:OldDirection=7
inc y
if timer()>ImageTim+30
      inc CImage3
      if CImage3>=24 then CImage3=17
      Imagetim=timer()
   endif
endif
`*************************************************************

`***************Link Walking Up*******************************

if upkey() and timer()>tim+10
   show sprite 8
   hide sprite 5
   hide sprite 6
   hide sprite 7
if OldDirection=1 then mirror sprite 8,:OldDirection=8
dec y
if timer()>ImageTim+30
      inc CImage4
      if CImage4>31 then CImage4=25
      Imagetim=timer()
   endif
endif

`*************************************************************
`*************Sprites/Tiles**********************************
set sprite priority 5,50
set sprite priority 6,50
set sprite priority 7,50
set sprite priority 8,50
set sprite priority 32,5

paste sprite 32,120,180

SYNC
LOOP

+ Code Snippet

             GLOBAL X AS INTEGER = 50      
GLOBAL Y AS INTEGER = 50


CImage1 = 5
CImage2 = 6
CImage3 = 7
CImage4 = 8
CImage5 = 32
CImage6 = 33

TIM=timer()
ImageTim=timer()
OldDirection=1


set image colorkey 255,255,255
color backdrop rgb(72,152,72)


SYNC ON
SYNC RATE 90

`***********************Animation Of Link walking Right*******************
load bitmap "Media/spr_Link_Right_strip6.png",1
get image 5,0,0,19,26,5
get image 6,20,0,38,26,5
get image 7,39,0,58,26,5
get image 8,58,0,78,26,5
get image 9,78,0,98,26,5
get image 10,98,0,118,26,5
`*************************************************************************
`***********************Animation of Link walking Left********************
load bitmap "Media/spr_Link_Left_Strip6.png",2
get image 11,0,0,19,26,6
get image 12,19,0,39,26,6
get image 13,40,0,59,26,6
get image 14,60,0,79,26,6
get image 15,80,0,99,26,6
get image 16,100,0,119,26,6
`************************************************************************
`*******************Animation of Link Walking Down***********************
load bitmap "Media/spr_Link_Front_strip8.png",3
get image 17,0,0,17,26,7
get image 18,17,0,37,26,7
get image 19,37,0,57,26,7
get image 20,57,0,77,26,7
get image 21,77,0,97,26,7
get image 22,97,0,117,26,7
get image 23,117,0,137,26,7
get image 24,137,0,157,26,7
`*************************************************************************

`********************Animation of Link Walking Up*************************
load bitmap "Media/spr_Link_Back_strip7.png",4
get image 25,0,0,20,26,8
get image 26,20,0,40,26,8
get image 27,40,0,60,26,8
get image 28,60,0,80,26,8
get image 29,80,0,100,26,8
get image 30,100,0,120,26,8
get image 31,120,0,140,26,8

`**************************************************************************
`******************Loading Tiles*******************************************
load bitmap "Media/house.bmp",5
get image  32,0,0,106,102,32
`***************************************************************************

`*******************Road One Sprite*****************************************
load bitmap "Media/ground.bmp",6
get image 33,0,0,28,131,33
`***************************************************************************


set current bitmap 0

`***Main loop***
DO


`***************sprites*********************************
sprite 5,x,y,CImage1 `Ani Right
sprite 6,x,y,CImage2 `Ani Left
sprite 7,x,y,CImage3 `Ani Down
sprite 8,x,y,CImage4 `Ani Up
sprite 32,120,180,CImage5 `House
sprite 33,156,283,CImage6 `Ground One
`*******************************************************

`**************Link Walking Right*************************
if rightkey() and timer()>tim+10
   show sprite 5
   hide sprite 6
   hide sprite 7
   hide sprite 8
if OldDirection=2 then mirror sprite 5:OldDirection=5
inc x
if timer()>ImageTim+30
      inc CImage1
      if CImage1>=10 then CImage1=5
      Imagetim=timer()
   endif
endif
`********************************************************

`**************Link Walking Left*************************
if leftkey() and timer()>tim+10
   show sprite 6
   hide sprite 5
   hide sprite 7
   hide sprite 8
if OldDirection=2 then mirror sprite 6,:OldDirection=6
dec x
if timer()>ImageTim+30
      inc CImage2
      if CImage2>=16 then CImage2=11
      Imagetim=timer()
   endif
endif
`*********************************************************

`**********Link Walking Down******************************
if downkey() and timer()>tim+10
   show sprite 7
   hide sprite 5
   hide sprite 6
   hide sprite 8
if OldDirection=1 then mirror sprite 7,:OldDirection=7
inc y
if timer()>ImageTim+30
      inc CImage3
      if CImage3>=24 then CImage3=17
      Imagetim=timer()
   endif
endif
`*************************************************************

`***************Link Walking Up*******************************

if upkey() and timer()>tim+10
   show sprite 8
   hide sprite 5
   hide sprite 6
   hide sprite 7
if OldDirection=1 then mirror sprite 8,:OldDirection=8
dec y
if timer()>ImageTim+30
      inc CImage4
      if CImage4>31 then CImage4=25
      Imagetim=timer()
   endif
endif


`*************************************************************
`*************Sprites/Tiles**********************************
set sprite priority 5,50
set sprite priority 6,50
set sprite priority 7,50
set sprite priority 8,50
set sprite priority 32,5

paste sprite 32,120,180


SYNC
LOOP

Back to top

Profile PM

Link102

19

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 20th Mar 2010 17:31 Edited at: 20th Mar 2010 23:18

Link

please use [code lang=dbp*]<code here>[/code*] without the *

so we can actually read the code.

Back to top

Profile PM

flashing snall

18

Years of Service

User Offline

Joined: 8th Oct 2005

Location: Boston

Posted: 22nd Mar 2010 22:58

Link

I didnt see any actual collision there.

DBPro has a built in command called
sprite collision

you can use it one of two ways. First, you can do something like this

+ Code Snippet

hit = sprite collision(sprite1,sprite2)
if hit =1 then end

that will give you a 1 if sprites 1 and 2 are colliding. However, if you want to open it up some more, you can do

+ Code Snippet

hit = sprite collision(sprite1,0)
if hit > 0 then end

That will give hit the value of whatever sprite is colliding with sprite 1. If no sprite is hitting it, it returns a 0. This means you can have a whole bunch of sprites and check to see what sprite is hitting your player.

Hope that helped... maybe. Now I have to go to work, gr.

Back to top

Profile PM Email Website

Nathan C

14

Years of Service

User Offline

Joined: 26th Jan 2010

Location:

Posted: 23rd Mar 2010 00:06 Edited at: 23rd Mar 2010 05:11

Link

my problem still exists. Ok, what i want is for the WHOLE building to be a solid object so when i walk to it, my character stops. I can get 2 sides of the building solid but not the rest, i have tried multiple time and still don't know what to do.

ive tried these:

+ Code Snippet

 hit = sprite collision(8,32)
if hit > 0 then dec y

+ Code Snippet

 if sprite collision(8,32)<=0
   oldx = x : oldy = y
else
   x = oldx : y = oldy
endif

+ Code Snippet

 if sprite collision(8,32)<=0
   oldx = x : oldy = y
else
   x = Newx : y = Newy
endif

and yet i still cant get this to work. its fustrating. and i know that the way i am trying to do this is probably dumb.

Back to top

Profile PM

Zergei

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location: Everywhere

Posted: 27th May 2010 03:58

Link

This should go right after your sprites section and before the control code:

+ Code Snippet

if sprite collision(8,32)<=0
   oldx = x : oldy = y

else
   x = oldx : y = oldy

    sprite 5,x,y,CImage1 `Ani Right
    sprite 6,x,y,CImage2 `Ani Left
    sprite 7,x,y,CImage3 `Ani Down
    sprite 8,x,y,CImage4 `Ani Up   
   
endif

the entire thing would be:

GLOBAL X AS INTEGER = 50      
GLOBAL Y AS INTEGER = 50

CImage1 = 5
CImage2 = 6
CImage3 = 7
CImage4 = 8
CImage5 = 32
CImage6 = 33

TIM=timer()
ImageTim=timer()
OldDirection=1

set image colorkey 255,255,255
color backdrop rgb(72,152,72)

SYNC ON
SYNC RATE 90

`***********************Animation Of Link walking Right*******************
load bitmap "Media/spr_Link_Right_strip6.png",1
get image 5,0,0,19,26,5
get image 6,20,0,38,26,5
get image 7,39,0,58,26,5
get image 8,58,0,78,26,5
get image 9,78,0,98,26,5
get image 10,98,0,118,26,5
`*************************************************************************
`***********************Animation of Link walking Left********************
load bitmap "Media/spr_Link_Left_Strip6.png",2
get image 11,0,0,19,26,6
get image 12,19,0,39,26,6
get image 13,40,0,59,26,6
get image 14,60,0,79,26,6
get image 15,80,0,99,26,6
get image 16,100,0,119,26,6
`************************************************************************
`*******************Animation of Link Walking Down***********************
load bitmap "Media/spr_Link_Front_strip8.png",3
get image 17,0,0,17,26,7
get image 18,17,0,37,26,7
get image 19,37,0,57,26,7
get image 20,57,0,77,26,7
get image 21,77,0,97,26,7
get image 22,97,0,117,26,7
get image 23,117,0,137,26,7
get image 24,137,0,157,26,7
`*************************************************************************

`********************Animation of Link Walking Up*************************
load bitmap "Media/spr_Link_Back_strip7.png",4
get image 25,0,0,20,26,8
get image 26,20,0,40,26,8
get image 27,40,0,60,26,8
get image 28,60,0,80,26,8
get image 29,80,0,100,26,8
get image 30,100,0,120,26,8
get image 31,120,0,140,26,8

`**************************************************************************
`******************Loading Tiles*******************************************
load bitmap "Media/house.bmp",5
get image  32,0,0,106,102,32
`***************************************************************************

`*******************Road One Sprite*****************************************
load bitmap "Media/ground.bmp",6
get image 33,0,0,28,131,33
`***************************************************************************

set current bitmap 0

`***Main loop***
DO

`***************sprites*********************************
sprite 5,x,y,CImage1 `Ani Right
sprite 6,x,y,CImage2 `Ani Left
sprite 7,x,y,CImage3 `Ani Down
sprite 8,x,y,CImage4 `Ani Up
sprite 32,120,180,CImage5 `House
sprite 33,156,283,CImage6 `Ground One
`*******************************************************
if sprite collision(8,32)<=0
   oldx = x : oldy = y

else
   x = oldx : y = oldy

sprite 5,x,y,CImage1 `Ani Right
    sprite 6,x,y,CImage2 `Ani Left
    sprite 7,x,y,CImage3 `Ani Down
    sprite 8,x,y,CImage4 `Ani Up   
   
endif
`**************Link Walking Right*************************
if rightkey() and timer()>tim+10
   show sprite 5
   hide sprite 6
   hide sprite 7
   hide sprite 8
if OldDirection=2 then mirror sprite 5:OldDirection=5
inc x
if timer()>ImageTim+30
      inc CImage1
      if CImage1>=10 then CImage1=5
      Imagetim=timer()
   endif
endif
`********************************************************

`**************Link Walking Left*************************
if leftkey() and timer()>tim+10
   show sprite 6
   hide sprite 5
   hide sprite 7
   hide sprite 8
if OldDirection=2 then mirror sprite 6,:OldDirection=6
dec x
if timer()>ImageTim+30
      inc CImage2
      if CImage2>=16 then CImage2=11
      Imagetim=timer()
   endif
endif
`*********************************************************

`**********Link Walking Down******************************
if downkey() and timer()>tim+10
   show sprite 7
   hide sprite 5
   hide sprite 6
   hide sprite 8
if OldDirection=1 then mirror sprite 7,:OldDirection=7
inc y
if timer()>ImageTim+30
      inc CImage3
      if CImage3>=24 then CImage3=17
      Imagetim=timer()
   endif
endif
`*************************************************************

`***************Link Walking Up*******************************

if upkey() and timer()>tim+10
   show sprite 8
   hide sprite 5
   hide sprite 6
   hide sprite 7
if OldDirection=1 then mirror sprite 8,:OldDirection=8
dec y
if timer()>ImageTim+30
      inc CImage4
      if CImage4>31 then CImage4=25
      Imagetim=timer()
   endif
endif

`*************************************************************
`*************Sprites/Tiles**********************************
set sprite priority 5,50
set sprite priority 6,50
set sprite priority 7,50
set sprite priority 8,50
set sprite priority 32,5

paste sprite 32,120,180

SYNC
LOOP

+ Code Snippet

             GLOBAL X AS INTEGER = 50      
GLOBAL Y AS INTEGER = 50


CImage1 = 5
CImage2 = 6
CImage3 = 7
CImage4 = 8
CImage5 = 32
CImage6 = 33

TIM=timer()
ImageTim=timer()
OldDirection=1


set image colorkey 255,255,255
color backdrop rgb(72,152,72)


SYNC ON
SYNC RATE 90

`***********************Animation Of Link walking Right*******************
load bitmap "Media/spr_Link_Right_strip6.png",1
get image 5,0,0,19,26,5
get image 6,20,0,38,26,5
get image 7,39,0,58,26,5
get image 8,58,0,78,26,5
get image 9,78,0,98,26,5
get image 10,98,0,118,26,5
`*************************************************************************
`***********************Animation of Link walking Left********************
load bitmap "Media/spr_Link_Left_Strip6.png",2
get image 11,0,0,19,26,6
get image 12,19,0,39,26,6
get image 13,40,0,59,26,6
get image 14,60,0,79,26,6
get image 15,80,0,99,26,6
get image 16,100,0,119,26,6
`************************************************************************
`*******************Animation of Link Walking Down***********************
load bitmap "Media/spr_Link_Front_strip8.png",3
get image 17,0,0,17,26,7
get image 18,17,0,37,26,7
get image 19,37,0,57,26,7
get image 20,57,0,77,26,7
get image 21,77,0,97,26,7
get image 22,97,0,117,26,7
get image 23,117,0,137,26,7
get image 24,137,0,157,26,7
`*************************************************************************

`********************Animation of Link Walking Up*************************
load bitmap "Media/spr_Link_Back_strip7.png",4
get image 25,0,0,20,26,8
get image 26,20,0,40,26,8
get image 27,40,0,60,26,8
get image 28,60,0,80,26,8
get image 29,80,0,100,26,8
get image 30,100,0,120,26,8
get image 31,120,0,140,26,8

`**************************************************************************
`******************Loading Tiles*******************************************
load bitmap "Media/house.bmp",5
get image  32,0,0,106,102,32
`***************************************************************************

`*******************Road One Sprite*****************************************
load bitmap "Media/ground.bmp",6
get image 33,0,0,28,131,33
`***************************************************************************


set current bitmap 0

`***Main loop***
DO


`***************sprites*********************************
sprite 5,x,y,CImage1 `Ani Right
sprite 6,x,y,CImage2 `Ani Left
sprite 7,x,y,CImage3 `Ani Down
sprite 8,x,y,CImage4 `Ani Up
sprite 32,120,180,CImage5 `House
sprite 33,156,283,CImage6 `Ground One
`*******************************************************
if sprite collision(8,32)<=0
   oldx = x : oldy = y

else
   x = oldx : y = oldy

    sprite 5,x,y,CImage1 `Ani Right
    sprite 6,x,y,CImage2 `Ani Left
    sprite 7,x,y,CImage3 `Ani Down
    sprite 8,x,y,CImage4 `Ani Up   
   
endif
`**************Link Walking Right*************************
if rightkey() and timer()>tim+10
   show sprite 5
   hide sprite 6
   hide sprite 7
   hide sprite 8
if OldDirection=2 then mirror sprite 5:OldDirection=5
inc x
if timer()>ImageTim+30
      inc CImage1
      if CImage1>=10 then CImage1=5
      Imagetim=timer()
   endif
endif
`********************************************************

`**************Link Walking Left*************************
if leftkey() and timer()>tim+10
   show sprite 6
   hide sprite 5
   hide sprite 7
   hide sprite 8
if OldDirection=2 then mirror sprite 6,:OldDirection=6
dec x
if timer()>ImageTim+30
      inc CImage2
      if CImage2>=16 then CImage2=11
      Imagetim=timer()
   endif
endif
`*********************************************************

`**********Link Walking Down******************************
if downkey() and timer()>tim+10
   show sprite 7
   hide sprite 5
   hide sprite 6
   hide sprite 8
if OldDirection=1 then mirror sprite 7,:OldDirection=7
inc y
if timer()>ImageTim+30
      inc CImage3
      if CImage3>=24 then CImage3=17
      Imagetim=timer()
   endif
endif
`*************************************************************

`***************Link Walking Up*******************************

if upkey() and timer()>tim+10
   show sprite 8
   hide sprite 5
   hide sprite 6
   hide sprite 7
if OldDirection=1 then mirror sprite 8,:OldDirection=8
dec y
if timer()>ImageTim+30
      inc CImage4
      if CImage4>31 then CImage4=25
      Imagetim=timer()
   endif
endif


`*************************************************************
`*************Sprites/Tiles**********************************
set sprite priority 5,50
set sprite priority 6,50
set sprite priority 7,50
set sprite priority 8,50
set sprite priority 32,5

paste sprite 32,120,180


SYNC
LOOP

Further on my stuff at...
TurboSquid.com
The3dStudio.com

Back to top

Profile PM Email Website

Sorry your browser is not supported!

2D All the way! / 2d Sprite Collisions!!!