Collision Help - GameCreators Forum

Author

Message

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 15th Feb 2004 06:00

Link

I need to make my guy stop when he hits a wall which is a one tile..here's my code..

do

sync

rem moves sprite

if upkey()=1 then guyy=guyy-5: movedy=movedy-5
if downkey()=1 then guyy=guyy+5: movedy=movedy+5
if leftkey()=1 then guyx=guyx-5: movedx=movedx-5
if rightkey()=1 then guyx=guyx+5: movedx=movedx+5

if movedx>=oldmovedx+50 
   posx=posx+1

gosub col

if blocked = 0
      movedx=oldmovedx
      print "x",posx
   endif
   if blocked = 1
      guyx=guyx-50
		movedx=oldmovedx
   endif
endif

if movedx<=oldmovedx-50 
   posx=posx-1

gosub col

if blocked = 0
      movedx=oldmovedx
      print "x",posx
   endif
   if blocked = 1
      guyx=guyx+50
		movedx=oldmovedx
   endif
endif

if movedy>=oldmovedy+50 
   posy=posy+1

gosub col

if blocked = 0
      movedy=oldmovedy
      print "y",posy
   endif
   if blocked = 1
      guyy=guyy-50
		movedy=oldmovedy
   endif
endif

if movedy<=oldmovedy-50 
   posy=posy-1

gosub col

if blocked = 0
      movedy=oldmovedy
      print "y",posy
   endif
   if blocked = 1
      guyy=guyy+50
		movedy=oldmovedy
   endif
endif

sprite 2,guyx,guyy,2

loop

col:

blocked = 0
if map(posx,posy)=1 then blocked = 1:print "wall"

return

+ Code Snippet

do

sync

rem moves sprite

if upkey()=1 then guyy=guyy-5: movedy=movedy-5
if downkey()=1 then guyy=guyy+5: movedy=movedy+5
if leftkey()=1 then guyx=guyx-5: movedx=movedx-5
if rightkey()=1 then guyx=guyx+5: movedx=movedx+5

if movedx>=oldmovedx+50 
   posx=posx+1

   gosub col

   if blocked = 0
      movedx=oldmovedx
      print "x",posx
   endif
   if blocked = 1
      guyx=guyx-50
		movedx=oldmovedx
   endif
endif


if movedx<=oldmovedx-50 
   posx=posx-1

   gosub col

   if blocked = 0
      movedx=oldmovedx
      print "x",posx
   endif
   if blocked = 1
      guyx=guyx+50
		movedx=oldmovedx
   endif
endif


if movedy>=oldmovedy+50 
   posy=posy+1

   gosub col

   if blocked = 0
      movedy=oldmovedy
      print "y",posy
   endif
   if blocked = 1
      guyy=guyy-50
		movedy=oldmovedy
   endif
endif

if movedy<=oldmovedy-50 
   posy=posy-1

   gosub col

   if blocked = 0
      movedy=oldmovedy
      print "y",posy
   endif
   if blocked = 1
      guyy=guyy+50
		movedy=oldmovedy
   endif
endif

sprite 2,guyx,guyy,2

loop

col:

blocked = 0
if map(posx,posy)=1 then blocked = 1:print "wall"

return

if you know how to that would be a huge help..thanks a lot

.....

Back to top

Profile PM

indi

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 15th Feb 2004 06:47

Link

sprite collision is not that hard.

If this mini snippet helps, feel free to pull it apart.

cls
sync rate 0
sync on
randomize timer()
Dim tSin#(360)
For i = 0 To 360
tSin#(i) = Sin(i)
Next i
set text font "verdana"
set text size 24
set text opaque
plr1_start_pos_x = 10
plr1_start_pos_y = 10
dim plr1x(1)
dim plr1y(1)
plr1x(1) = plr1_start_pos_x
plr1y(1) = plr1_start_pos_y
dim oldplr1x(1)
dim oldplr1y(1)
oldplr1x(1) = plr1_start_pos_x
oldplr1y(1) = plr1_start_pos_y
dim plr1lives(1)
plr1lives(1) = 5
dim enemyx(6)
dim enemyy(6)
cls
ink rgb(rnd(255),rnd(255),rnd(255)),1
box 0,0,16,16
get image 1,0,0,16,16
cls
for i = 2 to 6
ink rgb(rnd(255),rnd(255),rnd(255)),1
box 0,0,16,16
get image i,0,0,16,16
next i
cls
for i = 2 to 6
enemyx(i) = i * 50
enemyy(i) = i * 50
sprite i,enemyx(i),enemyy(i),i
next i
ink rgb(100,100,100),1
text 100,10," plr1 lives :" + STR$(plr1lives(1))
do
h = h + 1
h = wrapvalue(h)
v = v + 4
v = wrapvalue(v)
enemyx(6) = int(tSin#(h)*-145)+320
enemyy(6) = int(tSin#(v)*-145)+240
sprite 6,enemyx(6),enemyy(6),6
if upkey()=1 then plr1y(1)=plr1y(1)-3
if downkey()=1 then plr1y(1)=plr1y(1)+3
if leftkey()=1 then plr1x(1)=plr1x(1)-3
if rightkey()=1 then plr1x(1)=plr1x(1)+3
sprite 1,plr1x(1),plr1y(1),1
if sprite hit(1,0)>0
if sprite collision(1,0)>0
plr1x(1)=oldplr1x(1)
plr1y(1)=oldplr1y(1)
plr1lives(1) = plr1lives(1) - 1
if plr1lives(1) = -1
cls
center text 320,240,"game over"
end
endif
text 100,10," plr1 lives :" + STR$(plr1lives(1))
sprite 1,plr1x(1),plr1y(1),1
endif
endif
text 100,10," plr1 lives :" + STR$(plr1lives(1))

sync
loop

+ Code Snippet

cls
sync rate 0
sync on
randomize timer()
Dim tSin#(360)
For i = 0 To 360
tSin#(i) = Sin(i)
Next i
set text font "verdana"
set text size 24
set text opaque
plr1_start_pos_x = 10
plr1_start_pos_y = 10
dim plr1x(1)
dim plr1y(1)
plr1x(1) = plr1_start_pos_x
plr1y(1) = plr1_start_pos_y
dim oldplr1x(1)
dim oldplr1y(1)
oldplr1x(1) = plr1_start_pos_x
oldplr1y(1) = plr1_start_pos_y
dim plr1lives(1)
plr1lives(1) = 5
dim enemyx(6)
dim enemyy(6)
cls
ink rgb(rnd(255),rnd(255),rnd(255)),1
box 0,0,16,16
get image 1,0,0,16,16
cls
for i = 2 to 6
ink rgb(rnd(255),rnd(255),rnd(255)),1
box 0,0,16,16
get image i,0,0,16,16
next i
cls
for i = 2 to 6
enemyx(i) = i * 50
enemyy(i) = i * 50
sprite i,enemyx(i),enemyy(i),i
next i
ink rgb(100,100,100),1
text 100,10," plr1 lives :" + STR$(plr1lives(1))
do
h = h + 1
h = wrapvalue(h)
v = v + 4
v = wrapvalue(v)
enemyx(6) = int(tSin#(h)*-145)+320
enemyy(6) = int(tSin#(v)*-145)+240
sprite 6,enemyx(6),enemyy(6),6
if upkey()=1 then plr1y(1)=plr1y(1)-3
if downkey()=1 then plr1y(1)=plr1y(1)+3
if leftkey()=1 then plr1x(1)=plr1x(1)-3
if rightkey()=1 then plr1x(1)=plr1x(1)+3
sprite 1,plr1x(1),plr1y(1),1
if sprite hit(1,0)>0
if sprite collision(1,0)>0
plr1x(1)=oldplr1x(1)
plr1y(1)=oldplr1y(1)
plr1lives(1) = plr1lives(1) - 1
if plr1lives(1) = -1
cls
center text 320,240,"game over"
end
endif
text 100,10," plr1 lives :" + STR$(plr1lives(1))
sprite 1,plr1x(1),plr1y(1),1
endif
endif
text 100,10," plr1 lives :" + STR$(plr1lives(1))

sync
loop

Back to top

Profile PM Email

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 15th Feb 2004 17:56

Link

thanks...but its not exactly what i was looking for..here my whole program:

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=100
guyy=100

rem the map is 14 tiles by 10 tiles

dim map(10,14)

rem reads the map

for x = 1 to 14
for y = 1 to 10

read map
map(x,y)=map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

posx=2
posy=2

oldmovedx=100
oldmovedy=100

movedx=100
movedy=100

do

sync

rem moves sprite

if upkey()=1 then guyy=guyy-5: movedy=movedy-5
if downkey()=1 then guyy=guyy+5: movedy=movedy+5
if leftkey()=1 then guyx=guyx-5: movedx=movedx-5
if rightkey()=1 then guyx=guyx+5: movedx=movedx+5

if movedx>=oldmovedx+50 
   posx=posx+1

gosub col

if blocked = 0
      movedx=oldmovedx
      print "x",posx
   endif
   if blocked = 1
      guyx=guyx-50
		movedx=oldmovedx
   endif
endif

if movedx<=oldmovedx-50 
   posx=posx-1

gosub col

if blocked = 0
      movedx=oldmovedx
      print "x",posx
   endif
   if blocked = 1
      guyx=guyx+50
		movedx=oldmovedx
   endif
endif

if movedy>=oldmovedy+50 
   posy=posy+1

gosub col

if blocked = 0
      movedy=oldmovedy
      print "y",posy
   endif
   if blocked = 1
      guyy=guyy-50
		movedy=oldmovedy
   endif
endif

if movedy<=oldmovedy-50 
   posy=posy-1

gosub col

if blocked = 0
      movedy=oldmovedy
      print "y",posy
   endif
   if blocked = 1
      guyy=guyy+50
		movedy=oldmovedy
   endif
endif

sprite 2,guyx,guyy,2

loop

col:

blocked = 0
if map(posx,posy)=1 then blocked = 1:print "wall"

return

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,1,0,1,0,1,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,1,0,1,0,1,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

+ Code Snippet

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=100
guyy=100

rem the map is 14 tiles by 10 tiles

dim map(10,14)

rem reads the map

for x = 1 to 14
for y = 1 to 10

read map
map(x,y)=map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

posx=2
posy=2

oldmovedx=100
oldmovedy=100

movedx=100
movedy=100


do

sync

rem moves sprite

if upkey()=1 then guyy=guyy-5: movedy=movedy-5
if downkey()=1 then guyy=guyy+5: movedy=movedy+5
if leftkey()=1 then guyx=guyx-5: movedx=movedx-5
if rightkey()=1 then guyx=guyx+5: movedx=movedx+5

if movedx>=oldmovedx+50 
   posx=posx+1

   gosub col

   if blocked = 0
      movedx=oldmovedx
      print "x",posx
   endif
   if blocked = 1
      guyx=guyx-50
		movedx=oldmovedx
   endif
endif


if movedx<=oldmovedx-50 
   posx=posx-1

   gosub col

   if blocked = 0
      movedx=oldmovedx
      print "x",posx
   endif
   if blocked = 1
      guyx=guyx+50
		movedx=oldmovedx
   endif
endif


if movedy>=oldmovedy+50 
   posy=posy+1

   gosub col

   if blocked = 0
      movedy=oldmovedy
      print "y",posy
   endif
   if blocked = 1
      guyy=guyy-50
		movedy=oldmovedy
   endif
endif

if movedy<=oldmovedy-50 
   posy=posy-1

   gosub col

   if blocked = 0
      movedy=oldmovedy
      print "y",posy
   endif
   if blocked = 1
      guyy=guyy+50
		movedy=oldmovedy
   endif
endif

sprite 2,guyx,guyy,2

loop

col:

blocked = 0
if map(posx,posy)=1 then blocked = 1:print "wall"

return
 

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,1,0,1,0,1,0,0,1
data 1,0,0,0,1,0,0,0,0,1
data 1,0,1,0,1,0,1,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

if you know how to make it so the guy stops when he hits a wall that would be great. thanks!

.....

Back to top

Profile PM

LordoFire

20

Years of Service

User Offline

Joined: 14th Feb 2004

Location: United States

Posted: 16th Feb 2004 05:06 Edited at: 16th Feb 2004 05:07

Link

is your wall a sprite? If not then sprite collision wont work on it(unless you put an invisible sprite on it and set the collision)

When it comes to programing, I'm on fire!

Back to top

Profile PM Email Website

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 16th Feb 2004 12:37

Link

He's using array collision.

you could change this......if movedx>=oldmovedx+50

for this...

if movedx >= 50 then movedx = movedx - 50
posy = posy + 1

Back to top

Profile PM Email Website

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 16th Feb 2004 15:02

Link

if map(posx,posy)=1 then blocked = 1

All I'm looking for is how to make my guy stop when blocked=1
I know how to check if he is at a 1 tile on my map, I just don't know how to stop him. If you know how that would be a great help.
Thanks a lot!

.....

Back to top

Profile PM

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 16th Feb 2004 15:25 Edited at: 16th Feb 2004 15:26

Link

Put the man to his last position.

if blocked = 1
guyx = Oldguyx
guyy = OldGuyy
movedx=oldmovedx
movedy=oldmovedy
posx=Oldposx
posy=Oldposy
blocked = 0

endif

That should fix it, although you need to keep the OldGuyy updated in the loop.

Pincho.

Back to top

Profile PM Email Website

MakcKid

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location:

Posted: 16th Feb 2004 20:06

Link

thanks, that works. I have a problem though. I purposly took out all of the walls from my data, but it thinks that there are walls at
1,3 2,3 3,3 3,2 3,1...there aren't. Here's my code:

sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=100
guyy=100

oldguyx=100
oldguyy=100

rem the map is 14 tiles by 10 tiles

dim map(10,14)

rem reads the map

for x = 1 to 14
for y = 1 to 10

read map
map(x,y)=map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

oldposx=2
oldposy=2

posx=2
posy=2

oldmovedx=100
oldmovedy=100

movedx=100
movedy=100

do

sync

rem moves sprite

if upkey()=1 then guyy=guyy-5: movedy=movedy-5
if downkey()=1 then guyy=guyy+5: movedy=movedy+5
if leftkey()=1 then guyx=guyx-5: movedx=movedx-5
if rightkey()=1 then guyx=guyx+5: movedx=movedx+5

if movedx>=oldmovedx+50 
   posx=posx+1

gosub col

if blocked = 0
      movedx=oldmovedx
      guyx=oldguyx
		posx=oldposx
		
   endif
  if blocked = 1
	guyx = Oldguyx
	guyy = OldGuyy
	movedx=oldmovedx
	movedy=oldmovedy
	posx=Oldposx
	posy=Oldposy
	blocked = 0
	endif

endif

if movedx<=oldmovedx-50 
   posx=posx-1

gosub col

if blocked = 0
      movedx=oldmovedx
      guyx=oldguyx
		posx=oldposx
   endif

if blocked = 1
	guyx = Oldguyx
	guyy = OldGuyy
	movedx=oldmovedx
	movedy=oldmovedy
	posx=Oldposx
	posy=Oldposy
	blocked = 0
	endif
endif

if movedy>=oldmovedy+50 
   posy=posy+1

gosub col

if blocked = 0
      movedy=oldmovedy
      guyy=oldguyy
		posy=oldposy
   endif

if blocked = 1
	guyx = Oldguyx
	guyy = OldGuyy
	movedx=oldmovedx
	movedy=oldmovedy
	posx=Oldposx
	posy=Oldposy
	blocked = 0
	endif
endif

if movedy<=oldmovedy-50 
   posy=posy-1

gosub col

if blocked = 0
      movedy=oldmovedy
      guyy=oldguyy
		posy=oldposy
   endif
  if blocked = 1
	guyx = Oldguyx
	guyy = OldGuyy
	movedx=oldmovedx
	movedy=oldmovedy
	posx=Oldposx
	posy=Oldposy
	blocked = 0
	endif
   endif

sprite 2,guyx,guyy,2

loop

col:

blocked = 0
if map(posx,posy)=1 then blocked = 1

return

data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0

+ Code Snippet


sync on

set display mode 800,600,32

rem load images

load image "c:\sprites\wall.bmp",1
load image "c:\sprites\sprite2.bmp",2
load image "c:\sprites\grass.bmp",3

rem movable sprite postion

guyx=100
guyy=100

oldguyx=100
oldguyy=100

rem the map is 14 tiles by 10 tiles

dim map(10,14)

rem reads the map

for x = 1 to 14
for y = 1 to 10

read map
map(x,y)=map

if map=1 then paste image 1,x*50,y*50,1
if map=0 then paste image 3,x*50,y*50,1

next x
next y

oldposx=2
oldposy=2

posx=2
posy=2

oldmovedx=100
oldmovedy=100

movedx=100
movedy=100


do

sync

rem moves sprite

if upkey()=1 then guyy=guyy-5: movedy=movedy-5
if downkey()=1 then guyy=guyy+5: movedy=movedy+5
if leftkey()=1 then guyx=guyx-5: movedx=movedx-5
if rightkey()=1 then guyx=guyx+5: movedx=movedx+5

if movedx>=oldmovedx+50 
   posx=posx+1

   gosub col

   if blocked = 0
      movedx=oldmovedx
      guyx=oldguyx
		posx=oldposx
		
   endif
  if blocked = 1
	guyx = Oldguyx
	guyy = OldGuyy
	movedx=oldmovedx
	movedy=oldmovedy
	posx=Oldposx
	posy=Oldposy
	blocked = 0
	endif

endif

if movedx<=oldmovedx-50 
   posx=posx-1

   gosub col

   if blocked = 0
      movedx=oldmovedx
      guyx=oldguyx
		posx=oldposx
   endif

   if blocked = 1
	guyx = Oldguyx
	guyy = OldGuyy
	movedx=oldmovedx
	movedy=oldmovedy
	posx=Oldposx
	posy=Oldposy
	blocked = 0
	endif
endif


if movedy>=oldmovedy+50 
   posy=posy+1

   gosub col

   if blocked = 0
      movedy=oldmovedy
      guyy=oldguyy
		posy=oldposy
   endif

   if blocked = 1
	guyx = Oldguyx
	guyy = OldGuyy
	movedx=oldmovedx
	movedy=oldmovedy
	posx=Oldposx
	posy=Oldposy
	blocked = 0
	endif
endif

if movedy<=oldmovedy-50 
   posy=posy-1

   gosub col

   if blocked = 0
      movedy=oldmovedy
      guyy=oldguyy
		posy=oldposy
   endif
  if blocked = 1
	guyx = Oldguyx
	guyy = OldGuyy
	movedx=oldmovedx
	movedy=oldmovedy
	posx=Oldposx
	posy=Oldposy
	blocked = 0
	endif
   endif


sprite 2,guyx,guyy,2

loop

col:

blocked = 0
if map(posx,posy)=1 then blocked = 1

return
 

data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0

Whats's wrong. Thanks again.

.....

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / Collision Help