Can anyone please help me? - GameCreators Forum

Author

Message

DracoFireDragon

21

Years of Service

User Offline

Joined: 12th Sep 2002

Location:

Posted: 25th Feb 2004 04:48

Link

Ive been smacking my head against the wall for the past 2 hours trying to get any decent 'array'/data 2d collsion to work properly on this little atari-esque map I created

Ive tryed pushing my red block man where he is supposed to go and trying to get the location between him and the X and Y parts of the map correctly, but it doesnt seem to work....

I would appriciate if some programmer whiz could fill me in or fiddle with my code....I made this in DB pro..

This source requires no media.....All tiles are 10x10 on a 320 x 240 screen

You might need to put that screen resolution change in because I just enabled it within the DB pro file...

Back to top

Profile PM

PowerFang

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location: Australia (But currently in the USA)

Posted: 25th Feb 2004 18:25

Link

Check Collision:

Tile = Map(x,y)

REM if hit a wall
if Tile = 1
REM take back movement
Playerx# = Playerx# - xmove#
Playery# = Playery# - ymove#
endif

REM Draw player/refresh screen
Gosub DrawPlayer

return

This is real simple array collision and i use it alot. You need to add a xmove# and ymove# variable so when you hit a wall, you can take back the movement. Without these variables its alot harder to know which direction the sprite was travelling at the time so its harder to make it look like the sprite stops after hitting a wall.

I dont use DATA statements so i want quite sure how your code was going but if you convert it to an array then collision is easy.

One thing is you need to be able to work out what tile you are in so you can check collision.

But i'll load the code and come back with an alternative solution....or try

Back to top

Profile PM

zircher

21

Years of Service

User Offline

Joined: 27th Dec 2002

Location: Oklahoma

Posted: 25th Feb 2004 18:43

Link

Using floats for sprite location is a bad idea. I suggest integers since you're using screen coordinates.

Also, you are constantly incrementing your sprite number. No need for that. Create the sprites once and then control them.
--
TAZ

Game Beavers

Back to top

Profile PM Email Website

PowerFang

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location: Australia (But currently in the USA)

Posted: 25th Feb 2004 18:46

Link

Heres the editted version of your program and it works. What i did:

* Converted the DATA into an array called MAP
* Made your FOR loop go from 0 -> 23 0 -> 31 to accomodate for the array
* Therefore i took out the -10 in the Sprite print statement
* Changed your collision detection and deleted what i didnt use (you can obviously put it back in) and i implemented a ymove# variable instead of (+ 0.8*Speed#)

MaxTiles=816 : Dim Tiles(MaxTiles,3)

DIM map(31,23)

`Simple Grass tiles
INK RGB(0,255,0),0 : box 0,0,10,10 : INc ImgNum : get image ImgNum,0,0,10,10

`Simple Brown tiles
INK RGB(128,64,0),0 : box 0,0,10,10 : INc ImgNum : get image ImgNum,0,0,10,10

`Simple Blue tiles
INK RGB(0,0,170),0 : box 0,0,10,10 : INc ImgNum : get image ImgNum,0,0,10,10

`Simple LightBlue tiles
INK RGB(0,0,210),0 : box 0,0,10,10 : INc ImgNum : get image ImgNum,0,0,10,10

`Character is a red dot
INK RGB(200,0,0),0 : box 0,0,10,10 : INc ImgNum : PlayerImg=ImgNum+1 : get image PlayerImg,0,0,10,10

Sync on : Sync rate 0

`Draw the map
For Y=0 to 23
For x=0 to 31
Inc SpriteNum
Read SpriteVal
Map(x,y) = SpriteVal
if spriteval = 1

endif
IF SpriteVal>0 then Sprite SpriteNum,(X*10),(Y*10),SpriteVal
Next x
Next y
Restore : SpriteNum=0

PlayerX#=100
PlayerY#=20

Do
`Make a rate of speed so this will work on almost all computers
FPS#=Screen Fps()
Speed#=60.0/FPS#

Gosub HandleTiles
Gosub HandlePlayer

If leftkey()=1 then Playerx#=Playerx#-(0.8*Speed#)
If Rightkey()=1 then Playerx#=Playerx#+(0.8*Speed#)

Text 10,10,Str$(PlayerX#)
Text 10,20,Str$(PlayerY#)
Circle ((17*10)-10),((7*10)-10),5
SpriteNum=0
Sync
Loop

`*********************************** Sub-Routes *********************************************
HandleTiles:
`Some Scrolling
xtile = Playerx#/10
ytile = (Playery#/10)
Check = map(xtile,(ytile+1))
print xtile
print ytile
print check

if check = 1
   ymove# = 0
endif
if check = 0
   ymove# = (0.8*Speed#)
endif

return

HandlePlayer:
Sprite SpriteNum+1,Playerx#,PlayerY#,PlayerImg
PlayerY#=PlayerY#+ymove#
Return

`********************************* Data statements ********************************************
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

+ Code Snippet

MaxTiles=816 : Dim Tiles(MaxTiles,3)

DIM map(31,23)

`Simple Grass tiles
INK RGB(0,255,0),0 : box 0,0,10,10 : INc ImgNum : get image ImgNum,0,0,10,10

`Simple Brown tiles
INK RGB(128,64,0),0 : box 0,0,10,10 : INc ImgNum : get image ImgNum,0,0,10,10

`Simple Blue tiles
INK RGB(0,0,170),0 : box 0,0,10,10 : INc ImgNum : get image ImgNum,0,0,10,10

`Simple LightBlue tiles
INK RGB(0,0,210),0 : box 0,0,10,10 : INc ImgNum : get image ImgNum,0,0,10,10

`Character is a red dot
INK RGB(200,0,0),0 : box 0,0,10,10 : INc ImgNum : PlayerImg=ImgNum+1 : get image PlayerImg,0,0,10,10


Sync on : Sync rate 0

`Draw the map
For Y=0 to 23
For x=0 to 31
Inc SpriteNum
Read SpriteVal
Map(x,y) = SpriteVal
if spriteval = 1

endif
IF SpriteVal>0 then Sprite SpriteNum,(X*10),(Y*10),SpriteVal
Next x
Next y
Restore : SpriteNum=0

PlayerX#=100
PlayerY#=20

Do
`Make a rate of speed so this will work on almost all computers
FPS#=Screen Fps()
Speed#=60.0/FPS#

Gosub HandleTiles
Gosub HandlePlayer


If leftkey()=1 then Playerx#=Playerx#-(0.8*Speed#)
If Rightkey()=1 then Playerx#=Playerx#+(0.8*Speed#)

Text 10,10,Str$(PlayerX#)
Text 10,20,Str$(PlayerY#)
Circle ((17*10)-10),((7*10)-10),5
SpriteNum=0
Sync
Loop

`*********************************** Sub-Routes *********************************************
HandleTiles:
`Some Scrolling
xtile = Playerx#/10
ytile = (Playery#/10)
Check = map(xtile,(ytile+1))
print xtile
print ytile
print check

if check = 1
   ymove# = 0
endif
if check = 0
   ymove# = (0.8*Speed#)
endif

return


HandlePlayer:
Sprite SpriteNum+1,Playerx#,PlayerY#,PlayerImg
PlayerY#=PlayerY#+ymove#
Return

`********************************* Data statements ********************************************
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

Back to top

Profile PM

CloseToPerfect

21

Years of Service

User Offline

Joined: 20th Dec 2002

Location: United States

Posted: 27th Feb 2004 06:16

Link

Quote: "floating integers"

RGT may be gone but the best DBP forum is still alive and kicking, check it out.
http://www.dannywartnaby.co.uk/rgt/

Back to top

Profile PM Email

Sorry your browser is not supported!

2D All the way! / Can anyone please help me?