Tile Collision using arrays - GameCreators Forum

Author

Message

The Viking

15

Years of Service

User Offline

Joined: 21st Oct 2008

Location: Asgard

Posted: 19th Feb 2009 21:46

Link

Hey all, having an issue with collision. I'm using arrays to store all tile information. This is the code for my program.
My problem is that the collision is not working. It seems to either not detect the collision, or make a solid line just above the character not allowing movement upwards, even if the collision layer returns a value of 0 instead of 1. The collision is only being checked currently for movement upwards. Does anyone have any idea as to why this is not working out properly? Thanks

Sync ON
Set Display Mode 640,480,32 `20x15 tiles
`Set Display Mode 800,600,32 `25x18.75 tiles
`Set Display Mode 1024,768,32 `32x24 tiles
Set Image ColorKey 255, 0, 255

`----------------------------------------------------------------------------------------------------------------------------
REM Miscellaneous Globals
`----------------------------------------------------------------------------------------------------------------------------
Layers = 5
Global SNum# : SNum# = 1
Global time# : Time# = 1
`----------------------------------------------------------------------------------------------------------------------------
REM Tile Sizes
`----------------------------------------------------------------------------------------------------------------------------
Global CharWidth : CharWidth = 64
Global CharLength : CharLength = 80
Global BaseTileLength : BaseTileLength = 32
Global BaseTileWidth : BaseTileWidth = 32

`----------------------------------------------------------------------------------------------------------------------------
REM STANDARD TILE SET
`----------------------------------------------------------------------------------------------------------------------------
Load Bitmap "32x32Dungeon1d.bmp",10   `This may be used for the items and weapons
Load Bitmap "Kadall02.bmp",2

`----------------------------------------------------------------------------------------------------------------------------
REM Level Tiles
`----------------------------------------------------------------------------------------------------------------------------

dim World(1000,1000,3) `Creates a world with 20x15 blocks and 3 layers,(one screen size) blocks will be MUCH bigger on the overworld like in the 10,000's or more
dim Dungeon(19,14,3) `Creates a world with 20x15 blocks and 3 layers,(one screen size) blocks will be MUCH bigger on the overworld like in the 10,000's or more
dim Tavern(29,20,3)

`----------------------------------------------------------------------------------------------------------------------------
REM Character Tiles
`----------------------------------------------------------------------------------------------------------------------------

Set Current Bitmap 2

get image 1,0,80,64,160
get Image 2,64,80,128,160
get Image 3,128,80,192,160
get Image 4,192,80,256,160
get image 5,256,80,320,160
get Image 6,320,80,384,160
get Image 7,384,80,448,160
get Image 8,448,80,512,160
get image 9,0,160,64,240
get Image 10,64,160,128,240
get Image 11,128,160,192,240
get Image 12,192,160,256,240
get image 13,256,160,320,240
get Image 14,320,160,384,240
get Image 15,384,160,448,240
get Image 16,448,160,512,240

Set Current Bitmap 10

get image 500,0,0,32,32
get Image 501,32,0,64,32
get Image 502,64,0,96,32

get image 503,0,32,32,64
get Image 504,32,32,64,64
get Image 505,64,32,96,64

get image 506,0,64,32,96
get Image 507,32,64,64,96
get Image 508,64,64,96,96

get image 509,0,96,32,128
get Image 510,32,96,64,128
get Image 511,64,96,96,128

get image 512,0,128,32,160
get Image 513,32,128,64,160
get Image 514,64,128,96,160

get image 515,0,160,32,192
get Image 516,32,160,64,192
get Image 517,64,160,96,192

get image 518,0,192,32,224
get Image 519,32,192,64,224
get Image 520,64,192,96,224

Delete Bitmap 10

Delete Bitmap 2
sprite 1,0,0,1
sprite 2,0,0,2
sprite 3,0,0,3
sprite 4,0,0,4
sprite 5,0,0,5
sprite 6,0,0,6
sprite 7,0,0,7
sprite 8,0,0,8
sprite 9,0,0,9
sprite 10,0,0,10
sprite 11,0,0,11
sprite 12,0,0,12
sprite 13,0,0,13
sprite 14,0,0,14
sprite 15,0,0,15
sprite 16,0,0,16

`----------------------------------------------------------------------------------------------------------------------------
REM Weapon/Item Tiles
`----------------------------------------------------------------------------------------------------------------------------

`----------------------------------------------------------------------------------------------------------------------------
REM Main Loop
`----------------------------------------------------------------------------------------------------------------------------
MoveTimerSet# = 1000/10
MoveTimer# = Timer()

restore layer0
for indexY=0 to 14
   for indexX=0 to 19
      read maintile
      Dungeon(indexX,indexY,0)=maintile
   next indexY
next indexX

restore layer1
for indexY=0 to 14
   for indexX=0 to 19
      read MainLayer
      Dungeon(indexX,indexY,1)=MainLayer
   next indexX
Next Layer

restore layer2
for indexY=0 to 14
   for indexX=0 to 19
      read Overhead
      Dungeon(indexX,indexY,2)=Overhead
   next indexX
Next Layer

restore layer3
for indexY=0 to 14
   for indexX=0 to 19
      read Collision
      Dungeon(indexX,indexY,3)=Collision
   next indexX
Next Layer
X# = 0
Y# = 0

do

cls 0

if upkey()=1
   y#=y#-1 : SAdd# = 12`SNum# will be between 1 and 4
   for indexY=0 to 14
      for indexX=0 to 19
         Layer = 3
            if Dungeon(indexX,indexY,Layer)=1 and Sprite Y(SNum# + SAdd#) = IndexY*32 + y#
               y# = y# + 1
            endif
         next index
      next indexY
   endif

for indexY=0 to 14
   for indexX=0 to 19
      For Layer = 0 to 1
         if Dungeon(indexX,indexY,Layer)>0
            paste image Dungeon(indexX,indexY,Layer),indexX*32 - x#,indexY*32 - y#,1
         endif
      next Layer
   next indexX
next indexY

Paste Sprite SNum# + SAdd#,128,126 `can also be x#, y# if needed

for indexY=0 to 14
   for indexX=0 to 19
      Layer = 2
         if Dungeon(indexX,indexY,Layer)>0
            sprite Clone,indexX*32,indexY*32
            paste image Dungeon(indexX,indexY,Layer),indexX*32 - x#,indexY*32 - y#,1
         endif
   next indexX
next indexY

text 0,0,"FPS: "+str$(screen fps())

if leftkey()=1 then x#=x#-1 : SAdd# = 0`SNum# will be between 5 and 8
if rightkey()=1 then x#=x#+1 : SAdd# = 4`SNum# will be between 9 and 12
if downkey()=1 then y#=y#+1 : SAdd# = 8`SNum# will be between 13 and 16

Inc Time#
If Time# > 20 then Time# = 0
If Time# = 20 and upkey() = 1 or Time# = 20 and downkey() = 1 or Time# = 20 and leftkey() = 1 or Time# = 20 and rightkey() = 1
   Inc SNum#, 1
   If SNum# > 4 then SNum# = 1
endif
Inc LayerTime
   If LayerTime > 1 then LayerTime = 0
sync
loop

Layer0:
`Layer 0
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519

Layer1:
`Layer 1 COLLISION LAYER
Data 507,507,507,507,507,507,507,508,0,0,503,504,504,504,504,504,504,504,504,504
Data 510,510,510,510,510,510,510,511,0,0,503,504,504,504,504,504,504,504,504,504
Data 513,513,513,513,513,513,513,514,0,0,506,507,507,507,507,507,507,504,504,504
Data 516,516,516,516,516,516,516,517,0,0,509,510,510,510,510,510,510,503,504,504
Data 0,0,0,0,0,0,0,0,0,0,512,513,513,513,513,513,513,503,504,504
Data 0,0,0,0,0,0,0,0,0,0,515,516,516,516,516,516,516,503,504,504
Data 0,0,0,500,501,501,501,502,0,0,0,0,0,0,0,0,0,503,504,504
Data 0,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,503,504,504
Data 502,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,506,507,507,507,508,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,509,510,510,510,511,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,512,513,513,513,514,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,515,516,516,516,517,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,0,0,0,0,0,0,0,0,500,501,501,501,501,501,504,504,504
Data 504,501,501,501,501,501,501,502,0,0,0,503,504,504,504,504,504,504,504,504

Layer2:
`Layer 2 Overhead Layer
Data 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
Data 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
Data 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
Data 0,0,0,500,501,501,501,502,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,0,0,0
Data 502,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
Data 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
Data 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,500,501,501,501,501,501,0,0,0
Data 0,501,501,501,501,501,501,502,0,0,0,503,504,504,504,504,504,0,0,0

Layer3:
`Layer 3 Collision Layer
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1

+ Code Snippet

Sync ON
Set Display Mode 640,480,32 `20x15 tiles
`Set Display Mode 800,600,32 `25x18.75 tiles
`Set Display Mode 1024,768,32 `32x24 tiles
Set Image ColorKey 255, 0, 255

`----------------------------------------------------------------------------------------------------------------------------
REM Miscellaneous Globals
`----------------------------------------------------------------------------------------------------------------------------
Layers = 5
Global SNum# : SNum# = 1
Global time# : Time# = 1
`----------------------------------------------------------------------------------------------------------------------------
REM Tile Sizes
`----------------------------------------------------------------------------------------------------------------------------
Global CharWidth : CharWidth = 64
Global CharLength : CharLength = 80
Global BaseTileLength : BaseTileLength = 32
Global BaseTileWidth : BaseTileWidth = 32

`----------------------------------------------------------------------------------------------------------------------------
REM STANDARD TILE SET
`----------------------------------------------------------------------------------------------------------------------------
Load Bitmap "32x32Dungeon1d.bmp",10   `This may be used for the items and weapons
Load Bitmap "Kadall02.bmp",2

`----------------------------------------------------------------------------------------------------------------------------
REM Level Tiles
`----------------------------------------------------------------------------------------------------------------------------

dim World(1000,1000,3) `Creates a world with 20x15 blocks and 3 layers,(one screen size) blocks will be MUCH bigger on the overworld like in the 10,000's or more
dim Dungeon(19,14,3) `Creates a world with 20x15 blocks and 3 layers,(one screen size) blocks will be MUCH bigger on the overworld like in the 10,000's or more
dim Tavern(29,20,3)

`----------------------------------------------------------------------------------------------------------------------------
REM Character Tiles
`----------------------------------------------------------------------------------------------------------------------------

Set Current Bitmap 2

get image 1,0,80,64,160
get Image 2,64,80,128,160
get Image 3,128,80,192,160
get Image 4,192,80,256,160
get image 5,256,80,320,160
get Image 6,320,80,384,160
get Image 7,384,80,448,160
get Image 8,448,80,512,160
get image 9,0,160,64,240
get Image 10,64,160,128,240
get Image 11,128,160,192,240
get Image 12,192,160,256,240
get image 13,256,160,320,240
get Image 14,320,160,384,240
get Image 15,384,160,448,240
get Image 16,448,160,512,240


Set Current Bitmap 10

get image 500,0,0,32,32
get Image 501,32,0,64,32
get Image 502,64,0,96,32

get image 503,0,32,32,64
get Image 504,32,32,64,64
get Image 505,64,32,96,64

get image 506,0,64,32,96
get Image 507,32,64,64,96
get Image 508,64,64,96,96

get image 509,0,96,32,128
get Image 510,32,96,64,128
get Image 511,64,96,96,128

get image 512,0,128,32,160
get Image 513,32,128,64,160
get Image 514,64,128,96,160

get image 515,0,160,32,192
get Image 516,32,160,64,192
get Image 517,64,160,96,192

get image 518,0,192,32,224
get Image 519,32,192,64,224
get Image 520,64,192,96,224

Delete Bitmap 10

Delete Bitmap 2
sprite 1,0,0,1
sprite 2,0,0,2
sprite 3,0,0,3
sprite 4,0,0,4
sprite 5,0,0,5
sprite 6,0,0,6
sprite 7,0,0,7
sprite 8,0,0,8
sprite 9,0,0,9
sprite 10,0,0,10
sprite 11,0,0,11
sprite 12,0,0,12
sprite 13,0,0,13
sprite 14,0,0,14
sprite 15,0,0,15
sprite 16,0,0,16


`----------------------------------------------------------------------------------------------------------------------------
REM Weapon/Item Tiles
`----------------------------------------------------------------------------------------------------------------------------

`----------------------------------------------------------------------------------------------------------------------------
REM Main Loop
`----------------------------------------------------------------------------------------------------------------------------
MoveTimerSet# = 1000/10
MoveTimer# = Timer()

restore layer0
for indexY=0 to 14
   for indexX=0 to 19
      read maintile
      Dungeon(indexX,indexY,0)=maintile
   next indexY
next indexX

restore layer1
for indexY=0 to 14
   for indexX=0 to 19
      read MainLayer
      Dungeon(indexX,indexY,1)=MainLayer
   next indexX
Next Layer

restore layer2
for indexY=0 to 14
   for indexX=0 to 19
      read Overhead
      Dungeon(indexX,indexY,2)=Overhead
   next indexX
Next Layer

restore layer3
for indexY=0 to 14
   for indexX=0 to 19
      read Collision
      Dungeon(indexX,indexY,3)=Collision
   next indexX
Next Layer
X# = 0
Y# = 0

do

cls 0

if upkey()=1
   y#=y#-1 : SAdd# = 12`SNum# will be between 1 and 4
   for indexY=0 to 14
      for indexX=0 to 19
         Layer = 3
            if Dungeon(indexX,indexY,Layer)=1 and Sprite Y(SNum# + SAdd#) = IndexY*32 + y#
               y# = y# + 1
            endif
         next index
      next indexY
   endif


for indexY=0 to 14
   for indexX=0 to 19
      For Layer = 0 to 1
         if Dungeon(indexX,indexY,Layer)>0
            paste image Dungeon(indexX,indexY,Layer),indexX*32 - x#,indexY*32 - y#,1
         endif
      next Layer
   next indexX
next indexY

Paste Sprite SNum# + SAdd#,128,126 `can also be x#, y# if needed

for indexY=0 to 14
   for indexX=0 to 19
      Layer = 2
         if Dungeon(indexX,indexY,Layer)>0
            sprite Clone,indexX*32,indexY*32
            paste image Dungeon(indexX,indexY,Layer),indexX*32 - x#,indexY*32 - y#,1
         endif
   next indexX
next indexY

text 0,0,"FPS: "+str$(screen fps())

if leftkey()=1 then x#=x#-1 : SAdd# = 0`SNum# will be between 5 and 8
if rightkey()=1 then x#=x#+1 : SAdd# = 4`SNum# will be between 9 and 12
if downkey()=1 then y#=y#+1 : SAdd# = 8`SNum# will be between 13 and 16

Inc Time#
If Time# > 20 then Time# = 0
If Time# = 20 and upkey() = 1 or Time# = 20 and downkey() = 1 or Time# = 20 and leftkey() = 1 or Time# = 20 and rightkey() = 1
   Inc SNum#, 1
   If SNum# > 4 then SNum# = 1
endif
Inc LayerTime
   If LayerTime > 1 then LayerTime = 0
sync
loop



Layer0:
`Layer 0
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519

Layer1:
`Layer 1 COLLISION LAYER
Data 507,507,507,507,507,507,507,508,0,0,503,504,504,504,504,504,504,504,504,504
Data 510,510,510,510,510,510,510,511,0,0,503,504,504,504,504,504,504,504,504,504
Data 513,513,513,513,513,513,513,514,0,0,506,507,507,507,507,507,507,504,504,504
Data 516,516,516,516,516,516,516,517,0,0,509,510,510,510,510,510,510,503,504,504
Data 0,0,0,0,0,0,0,0,0,0,512,513,513,513,513,513,513,503,504,504
Data 0,0,0,0,0,0,0,0,0,0,515,516,516,516,516,516,516,503,504,504
Data 0,0,0,500,501,501,501,502,0,0,0,0,0,0,0,0,0,503,504,504
Data 0,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,503,504,504
Data 502,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,506,507,507,507,508,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,509,510,510,510,511,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,512,513,513,513,514,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,515,516,516,516,517,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,0,0,0,0,0,0,0,0,500,501,501,501,501,501,504,504,504
Data 504,501,501,501,501,501,501,502,0,0,0,503,504,504,504,504,504,504,504,504

Layer2:
`Layer 2 Overhead Layer
Data 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
Data 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
Data 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
Data 0,0,0,500,501,501,501,502,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,0,0,0
Data 502,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
Data 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
Data 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,500,501,501,501,501,501,0,0,0
Data 0,501,501,501,501,501,501,502,0,0,0,503,504,504,504,504,504,0,0,0

Layer3:
`Layer 3 Collision Layer
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1

Back to top

Profile PM Email

Zergei

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location: Everywhere

Posted: 19th Feb 2009 22:39

Link

Try this...

+ Code Snippet

if Dungeon(indexX,indexY,Layer)=1  and Sprite Y(SNum# + SAdd#)-1 = IndexY*32 + y#

at line ~163.

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

Back to top

Profile PM Email Website

The Viking

15

Years of Service

User Offline

Joined: 21st Oct 2008

Location: Asgard

Posted: 20th Feb 2009 00:20 Edited at: 20th Feb 2009 00:22

Link

No, sorry, that didn't change anything. Though, that area is the problem. It's like a completely straight wall, which the area Layer3 is definitely not a flat wall across.

To make everyone's lives easier: this is the section instead of going through all that code:

+ Code Snippet

if upkey()=1
   y#=y#-1 : SAdd# = 12`SNum# will be between 1 and 4
   for indexY=0 to 14
      for indexX=0 to 19
         Layer = 3
            if Dungeon(indexX,indexY,Layer)=1 and Sprite Y(SNum# + SAdd#)-1 = IndexY*32 + y#
               y# = y# + 1
            endif
         next index
      next indexY
   endif

And this is the data for it:

+ Code Snippet

Layer3:
`Layer 3 Collision Layer
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1

Back to top

Profile PM Email

Zergei

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location: Everywhere

Posted: 20th Feb 2009 01:13

Link

The problem is with the paste sprite command for the player.
Paste Sprite doesn't change the X and Y position of the sprite, thus the "Sprite Y(SNum# + SAdd#)" always returns 0.

I've noticed that you use 1 diferent sprite for each image of the player, however, you should use the same sprite and only change its image.

I could try fixing your code to work the way your doing it, but in my opinion, its better you change the way you're working with sprites.

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

Back to top

Profile PM Email Website

The Viking

15

Years of Service

User Offline

Joined: 21st Oct 2008

Location: Asgard

Posted: 20th Feb 2009 01:24

Link

Thanks for that... I did plan to make it an animated sprite eventually, once i had the rest worked out, but i guess i have to rearrange my priorities. I agree though, I would like to try my own, its the best way to learn. Though my player sprite is positioned at 128,126.

I'll see how that works, one more thing, is it better to make a map out of sprites or tiles? I assumed tiles because they could be reused, but sometimes it seems sprites would be a better option, though it slowed down the fps.

Back to top

Profile PM Email

Zergei

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location: Everywhere

Posted: 20th Feb 2009 01:35

Link

Quote: "Though my player sprite is positioned at 128,126."

I added to the code some Text commands to show me the map collision data, the sprite's position and the calculated position, this for each iteration of the collision check and for all of them, the sprite's position was always 0.

+ Code Snippet

text IndexX*32-#,IndexY*32-#,str$(Dungeon(indexX,indexY,Layer))
text IndexX*32-x#,IndexY*32-y#+10,str$(Sprite Y(SNum# + SAdd#))
text IndexX*32-x#,IndexY*32-y#+20,str$(IndexY*32 + y#)

This would go right before the collition detection "if".

Quote: "I'll see how that works, one more thing, is it better to make a map out of sprites or tiles? I assumed tiles because they could be reused, but sometimes it seems sprites would be a better option, though it slowed down the fps."

Depends on what type of game your doing. Mostly i'd recommend usign 2.5D . It's like the tiles system, but using partial 3D. It fastens a lot the scenary drawing.

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

Back to top

Profile PM Email Website

The Viking

15

Years of Service

User Offline

Joined: 21st Oct 2008

Location: Asgard

Posted: 20th Feb 2009 02:00 Edited at: 20th Feb 2009 02:10

Link

Ok, I see what you mean. Though, when i used:

+ Code Snippet

Paste Sprite SNum# + SAdd#,128 + x#,126 + y#

my sprites position does move on the number map, though the same problem persists. I tried to use just the command:

+ Code Snippet

Sprite SNum#,128 + x#,126 + y#, SNum#

Instead, though it didn't solve anything, and it also causes problems with the overhead tiles. I have also removed the alternating sprites for an animation, though, there still remained no change. I think there is something i'm still missing here. As for changing the way i am working with sprites, I am not too sure how else to deal with them. Sorry if i'm being pain... Thank you for your help so far though.

Back to top

Profile PM Email

Zergei

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location: Everywhere

Posted: 20th Feb 2009 03:48 Edited at: 20th Feb 2009 03:50

Link

Replace you collision code

+ Code Snippet

   for indexY=0 to 14
      for indexX=0 to 19
         Layer = 3
            
         
            if Dungeon(indexX,indexY,Layer)=1  and Sprite Y(SNum# + SAdd#) = IndexY*32 + y#
               y# = y# + 1
            endif
         
         next index
      next indexY

with this...

+ Code Snippet

if Dungeon(int((128+x#)/32) , int((126+y#)/32),3)=1
        y# = y# + 1
    endif

I tried this with both, the sprite command and the paste sprite command. For both it works for me, though if you go outbounds of the map it kinda blows up, but it can be easily fix.

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

Back to top

Profile PM Email Website

The Viking

15

Years of Service

User Offline

Joined: 21st Oct 2008

Location: Asgard

Posted: 21st Feb 2009 02:07

Link

Hmmm, it does work, although, it seems to enlarge the area, it seems to read 1 tile as multiple, like 4... by adding

+ Code Snippet

if Dungeon(int((128+x#)/32*1.75) , int((126+y#)/32*1.75),3)=1

to it, it seems to help but it is still off by way more than enough...

Back to top

Profile PM Email

Zergei

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location: Everywhere

Posted: 21st Feb 2009 02:26

Link

well, im not totally sure how it looks like since i have no images to show me the map or the player. Rigth now i had to change a bit your code to see the map in numbers regarding the collision.

If you could suply me with the images of the map and player i may better understand your point of view.

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

Back to top

Profile PM Email Website

The Viking

15

Years of Service

User Offline

Joined: 21st Oct 2008

Location: Asgard

Posted: 21st Feb 2009 02:38

Link

Sure, thanks for all the help... here's both tilesets Thanks again

Attachments

Login to view attachments

Back to top

Profile PM Email

Zergei

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location: Everywhere

Posted: 21st Feb 2009 02:58 Edited at: 21st Feb 2009 03:01

Link

Put the following code right after creating the 16 sprites for your character, before the main loop

+ Code Snippet

for i= 1 to 16
    offset sprite i,sprite width(i)/2 , sprite height(i)/2
next i

this is just a quick fix, but still has the problem that half the players body goes through the wall.

Edit:

+ Code Snippet

if Dungeon(int((116+x#)/32) , int((126+y#)/32),3)=1 or Dungeon(int((140+x#)/32) , int((126+y#)/32),3)=1

Sort of fixed it. Tell me how it works.

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

Back to top

Profile PM Email Website

The Viking

15

Years of Service

User Offline

Joined: 21st Oct 2008

Location: Asgard

Posted: 21st Feb 2009 03:05 Edited at: 21st Feb 2009 03:06

Link

No, sorry, it didn't really fix anything. It still seems like the collision tiles are more like a 64 x 64 size instead of 32 x 32, unfortunately. Actually, it seems a lot larger than 64 x 64...

Back to top

Profile PM Email

Zergei

19

Years of Service

User Offline

Joined: 9th Feb 2005

Location: Everywhere

Posted: 21st Feb 2009 03:26 Edited at: 21st Feb 2009 03:27

Link

Mmm... just to be sure...
this is my exact code:

Sync ON
Set Display Mode 640,480,32 `20x15 tiles
`Set Display Mode 800,600,32 `25x18.75 tiles
`Set Display Mode 1024,768,32 `32x24 tiles
Set Image ColorKey 255, 0, 255

`----------------------------------------------------------------------------------------------------------------------------
REM Miscellaneous Globals
`----------------------------------------------------------------------------------------------------------------------------
Layers = 5
Global SNum# : SNum# = 1
Global time# : Time# = 1
`----------------------------------------------------------------------------------------------------------------------------
REM Tile Sizes
`----------------------------------------------------------------------------------------------------------------------------
Global CharWidth : CharWidth = 64
Global CharLength : CharLength = 80
Global BaseTileLength : BaseTileLength = 32
Global BaseTileWidth : BaseTileWidth = 32

`----------------------------------------------------------------------------------------------------------------------------
REM STANDARD TILE SET
`----------------------------------------------------------------------------------------------------------------------------
Load Bitmap "32x32Dungeon1d.bmp",10   `This may be used for the items and weapons
Load Bitmap "Kadall02.bmp",2

`----------------------------------------------------------------------------------------------------------------------------
REM Level Tiles
`----------------------------------------------------------------------------------------------------------------------------

dim World(1000,1000,3) `Creates a world with 20x15 blocks and 3 layers,(one screen size) blocks will be MUCH bigger on the overworld like in the 10,000's or more
dim Dungeon(19,14,3) `Creates a world with 20x15 blocks and 3 layers,(one screen size) blocks will be MUCH bigger on the overworld like in the 10,000's or more
dim Tavern(29,20,3)

`----------------------------------------------------------------------------------------------------------------------------
REM Character Tiles
`----------------------------------------------------------------------------------------------------------------------------

Set Current Bitmap 2

get image 1,0,80,64,160
get Image 2,64,80,128,160
get Image 3,128,80,192,160
get Image 4,192,80,256,160
get image 5,256,80,320,160
get Image 6,320,80,384,160
get Image 7,384,80,448,160
get Image 8,448,80,512,160
get image 9,0,160,64,240
get Image 10,64,160,128,240
get Image 11,128,160,192,240
get Image 12,192,160,256,240
get image 13,256,160,320,240
get Image 14,320,160,384,240
get Image 15,384,160,448,240
get Image 16,448,160,512,240

Set Current Bitmap 10

get image 500,0,0,32,32
get Image 501,32,0,64,32
get Image 502,64,0,96,32

get image 503,0,32,32,64
get Image 504,32,32,64,64
get Image 505,64,32,96,64

get image 506,0,64,32,96
get Image 507,32,64,64,96
get Image 508,64,64,96,96

get image 509,0,96,32,128
get Image 510,32,96,64,128
get Image 511,64,96,96,128

get image 512,0,128,32,160
get Image 513,32,128,64,160
get Image 514,64,128,96,160

get image 515,0,160,32,192
get Image 516,32,160,64,192
get Image 517,64,160,96,192

get image 518,0,192,32,224
get Image 519,32,192,64,224
get Image 520,64,192,96,224

Delete Bitmap 10

Delete Bitmap 2
sprite 1,0,0,1
sprite 2,0,0,2
sprite 3,0,0,3
sprite 4,0,0,4
sprite 5,0,0,5
sprite 6,0,0,6
sprite 7,0,0,7
sprite 8,0,0,8
sprite 9,0,0,9
sprite 10,0,0,10
sprite 11,0,0,11
sprite 12,0,0,12
sprite 13,0,0,13
sprite 14,0,0,14
sprite 15,0,0,15
sprite 16,0,0,16

for i= 1 to 16
    offset sprite i,sprite width(i)/2 , sprite height(i)/2
next i
`----------------------------------------------------------------------------------------------------------------------------
REM Weapon/Item Tiles
`----------------------------------------------------------------------------------------------------------------------------

`----------------------------------------------------------------------------------------------------------------------------
REM Main Loop
`----------------------------------------------------------------------------------------------------------------------------
MoveTimerSet# = 1000/10
MoveTimer# = Timer()

restore layer0
for indexY=0 to 14
   for indexX=0 to 19
      read maintile
      Dungeon(indexX,indexY,0)=maintile
   next indexY
next indexX

restore layer1
for indexY=0 to 14
   for indexX=0 to 19
      read MainLayer
      Dungeon(indexX,indexY,1)=MainLayer
   next indexX
Next Layer

restore layer2
for indexY=0 to 14
   for indexX=0 to 19
      read Overhead
      Dungeon(indexX,indexY,2)=Overhead
   next indexX
Next Layer

restore layer3
for indexY=0 to 14
   for indexX=0 to 19
      read Collision
      Dungeon(indexX,indexY,3)=Collision
   next indexX
Next Layer
X# = 0
Y# = 0

do

cls 0

if upkey()=1
   y#=y#-1 : SAdd# = 12`SNum# will be between 1 and 4
   if Dungeon(int((116+x#)/32) , int((126+y#)/32),3)=1 or Dungeon(int((140+x#)/32) , int((126+y#)/32),3)=1
        y# = y# + 1
    endif

endif

for indexY=0 to 14
   for indexX=0 to 19
      For Layer = 0 to 1
         if Dungeon(indexX,indexY,Layer)>0
            paste image Dungeon(indexX,indexY,Layer),indexX*32 - x#,indexY*32 - y#,1
         endif
      next Layer
   next indexX
next indexY

Paste Sprite SNum# + SAdd#,128,126 `can also be x#, y# if needed

for indexY=0 to 14
   for indexX=0 to 19
      Layer = 2
         if Dungeon(indexX,indexY,Layer)>0
            //sprite Clone,indexX*32,indexY*32
            paste image Dungeon(indexX,indexY,Layer),indexX*32 - x#,indexY*32 - y#,1
         endif
   next indexX
next indexY

text 0,0,"FPS: "+str$(screen fps())

if leftkey()=1 then x#=x#-1 : SAdd# = 0`SNum# will be between 5 and 8
if rightkey()=1 then x#=x#+1 : SAdd# = 4`SNum# will be between 9 and 12
if downkey()=1 then y#=y#+1 : SAdd# = 8`SNum# will be between 13 and 16

Inc Time#
If Time# > 20 then Time# = 0
If Time# = 20 and upkey() = 1 or Time# = 20 and downkey() = 1 or Time# = 20 and leftkey() = 1 or Time# = 20 and rightkey() = 1
   Inc SNum#, 1
   If SNum# > 4 then SNum# = 1
endif
Inc LayerTime
   If LayerTime > 1 then LayerTime = 0
sync
loop

Layer0:
`Layer 0
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519

Layer1:
`Layer 1 COLLISION LAYER
Data 507,507,507,507,507,507,507,508,0,0,503,504,504,504,504,504,504,504,504,504
Data 510,510,510,510,510,510,510,511,0,0,503,504,504,504,504,504,504,504,504,504
Data 513,513,513,513,513,513,513,514,0,0,506,507,507,507,507,507,507,504,504,504
Data 516,516,516,516,516,516,516,517,0,0,509,510,510,510,510,510,510,503,504,504
Data 0,0,0,0,0,0,0,0,0,0,512,513,513,513,513,513,513,503,504,504
Data 0,0,0,0,0,0,0,0,0,0,515,516,516,516,516,516,516,503,504,504
Data 0,0,0,500,501,501,501,502,0,0,0,0,0,0,0,0,0,503,504,504
Data 0,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,503,504,504
Data 502,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,506,507,507,507,508,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,509,510,510,510,511,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,512,513,513,513,514,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,515,516,516,516,517,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,0,0,0,0,0,0,0,0,500,501,501,501,501,501,504,504,504
Data 504,501,501,501,501,501,501,502,0,0,0,503,504,504,504,504,504,504,504,504

Layer2:
`Layer 2 Overhead Layer
Data 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
Data 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
Data 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
Data 0,0,0,500,501,501,501,502,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,0,0,0
Data 502,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
Data 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
Data 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,500,501,501,501,501,501,0,0,0
Data 0,501,501,501,501,501,501,502,0,0,0,503,504,504,504,504,504,0,0,0

Layer3:
`Layer 3 Collision Layer
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1

+ Code Snippet

Sync ON
Set Display Mode 640,480,32 `20x15 tiles
`Set Display Mode 800,600,32 `25x18.75 tiles
`Set Display Mode 1024,768,32 `32x24 tiles
Set Image ColorKey 255, 0, 255

`----------------------------------------------------------------------------------------------------------------------------
REM Miscellaneous Globals
`----------------------------------------------------------------------------------------------------------------------------
Layers = 5
Global SNum# : SNum# = 1
Global time# : Time# = 1
`----------------------------------------------------------------------------------------------------------------------------
REM Tile Sizes
`----------------------------------------------------------------------------------------------------------------------------
Global CharWidth : CharWidth = 64
Global CharLength : CharLength = 80
Global BaseTileLength : BaseTileLength = 32
Global BaseTileWidth : BaseTileWidth = 32

`----------------------------------------------------------------------------------------------------------------------------
REM STANDARD TILE SET
`----------------------------------------------------------------------------------------------------------------------------
Load Bitmap "32x32Dungeon1d.bmp",10   `This may be used for the items and weapons
Load Bitmap "Kadall02.bmp",2

`----------------------------------------------------------------------------------------------------------------------------
REM Level Tiles
`----------------------------------------------------------------------------------------------------------------------------

dim World(1000,1000,3) `Creates a world with 20x15 blocks and 3 layers,(one screen size) blocks will be MUCH bigger on the overworld like in the 10,000's or more
dim Dungeon(19,14,3) `Creates a world with 20x15 blocks and 3 layers,(one screen size) blocks will be MUCH bigger on the overworld like in the 10,000's or more
dim Tavern(29,20,3)

`----------------------------------------------------------------------------------------------------------------------------
REM Character Tiles
`----------------------------------------------------------------------------------------------------------------------------

Set Current Bitmap 2

get image 1,0,80,64,160
get Image 2,64,80,128,160
get Image 3,128,80,192,160
get Image 4,192,80,256,160
get image 5,256,80,320,160
get Image 6,320,80,384,160
get Image 7,384,80,448,160
get Image 8,448,80,512,160
get image 9,0,160,64,240
get Image 10,64,160,128,240
get Image 11,128,160,192,240
get Image 12,192,160,256,240
get image 13,256,160,320,240
get Image 14,320,160,384,240
get Image 15,384,160,448,240
get Image 16,448,160,512,240


Set Current Bitmap 10

get image 500,0,0,32,32
get Image 501,32,0,64,32
get Image 502,64,0,96,32

get image 503,0,32,32,64
get Image 504,32,32,64,64
get Image 505,64,32,96,64

get image 506,0,64,32,96
get Image 507,32,64,64,96
get Image 508,64,64,96,96

get image 509,0,96,32,128
get Image 510,32,96,64,128
get Image 511,64,96,96,128

get image 512,0,128,32,160
get Image 513,32,128,64,160
get Image 514,64,128,96,160

get image 515,0,160,32,192
get Image 516,32,160,64,192
get Image 517,64,160,96,192

get image 518,0,192,32,224
get Image 519,32,192,64,224
get Image 520,64,192,96,224

Delete Bitmap 10

Delete Bitmap 2
sprite 1,0,0,1
sprite 2,0,0,2
sprite 3,0,0,3
sprite 4,0,0,4
sprite 5,0,0,5
sprite 6,0,0,6
sprite 7,0,0,7
sprite 8,0,0,8
sprite 9,0,0,9
sprite 10,0,0,10
sprite 11,0,0,11
sprite 12,0,0,12
sprite 13,0,0,13
sprite 14,0,0,14
sprite 15,0,0,15
sprite 16,0,0,16

for i= 1 to 16
    offset sprite i,sprite width(i)/2 , sprite height(i)/2
next i
`----------------------------------------------------------------------------------------------------------------------------
REM Weapon/Item Tiles
`----------------------------------------------------------------------------------------------------------------------------

`----------------------------------------------------------------------------------------------------------------------------
REM Main Loop
`----------------------------------------------------------------------------------------------------------------------------
MoveTimerSet# = 1000/10
MoveTimer# = Timer()

restore layer0
for indexY=0 to 14
   for indexX=0 to 19
      read maintile
      Dungeon(indexX,indexY,0)=maintile
   next indexY
next indexX

restore layer1
for indexY=0 to 14
   for indexX=0 to 19
      read MainLayer
      Dungeon(indexX,indexY,1)=MainLayer
   next indexX
Next Layer

restore layer2
for indexY=0 to 14
   for indexX=0 to 19
      read Overhead
      Dungeon(indexX,indexY,2)=Overhead
   next indexX
Next Layer

restore layer3
for indexY=0 to 14
   for indexX=0 to 19
      read Collision
      Dungeon(indexX,indexY,3)=Collision
   next indexX
Next Layer
X# = 0
Y# = 0

do

cls 0

if upkey()=1
   y#=y#-1 : SAdd# = 12`SNum# will be between 1 and 4
   if Dungeon(int((116+x#)/32) , int((126+y#)/32),3)=1 or Dungeon(int((140+x#)/32) , int((126+y#)/32),3)=1
        y# = y# + 1
    endif

endif

for indexY=0 to 14
   for indexX=0 to 19
      For Layer = 0 to 1
         if Dungeon(indexX,indexY,Layer)>0
            paste image Dungeon(indexX,indexY,Layer),indexX*32 - x#,indexY*32 - y#,1
         endif
      next Layer
   next indexX
next indexY

Paste Sprite SNum# + SAdd#,128,126 `can also be x#, y# if needed

for indexY=0 to 14
   for indexX=0 to 19
      Layer = 2
         if Dungeon(indexX,indexY,Layer)>0
            //sprite Clone,indexX*32,indexY*32
            paste image Dungeon(indexX,indexY,Layer),indexX*32 - x#,indexY*32 - y#,1
         endif
   next indexX
next indexY

text 0,0,"FPS: "+str$(screen fps())

if leftkey()=1 then x#=x#-1 : SAdd# = 0`SNum# will be between 5 and 8
if rightkey()=1 then x#=x#+1 : SAdd# = 4`SNum# will be between 9 and 12
if downkey()=1 then y#=y#+1 : SAdd# = 8`SNum# will be between 13 and 16

Inc Time#
If Time# > 20 then Time# = 0
If Time# = 20 and upkey() = 1 or Time# = 20 and downkey() = 1 or Time# = 20 and leftkey() = 1 or Time# = 20 and rightkey() = 1
   Inc SNum#, 1
   If SNum# > 4 then SNum# = 1
endif
Inc LayerTime
   If LayerTime > 1 then LayerTime = 0
sync
loop



Layer0:
`Layer 0
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519
data 519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519

Layer1:
`Layer 1 COLLISION LAYER
Data 507,507,507,507,507,507,507,508,0,0,503,504,504,504,504,504,504,504,504,504
Data 510,510,510,510,510,510,510,511,0,0,503,504,504,504,504,504,504,504,504,504
Data 513,513,513,513,513,513,513,514,0,0,506,507,507,507,507,507,507,504,504,504
Data 516,516,516,516,516,516,516,517,0,0,509,510,510,510,510,510,510,503,504,504
Data 0,0,0,0,0,0,0,0,0,0,512,513,513,513,513,513,513,503,504,504
Data 0,0,0,0,0,0,0,0,0,0,515,516,516,516,516,516,516,503,504,504
Data 0,0,0,500,501,501,501,502,0,0,0,0,0,0,0,0,0,503,504,504
Data 0,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,503,504,504
Data 502,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,506,507,507,507,508,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,509,510,510,510,511,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,512,513,513,513,514,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,515,516,516,516,517,0,0,0,0,0,0,0,0,0,503,504,504
Data 505,0,0,0,0,0,0,0,0,0,0,500,501,501,501,501,501,504,504,504
Data 504,501,501,501,501,501,501,502,0,0,0,503,504,504,504,504,504,504,504,504

Layer2:
`Layer 2 Overhead Layer
Data 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
Data 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
Data 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
Data 0,0,0,500,501,501,501,502,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,503,504,504,504,505,0,0,0,0,0,0,0,0,0,0,0,0
Data 502,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
Data 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
Data 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,500,501,501,501,501,501,0,0,0
Data 0,501,501,501,501,501,501,502,0,0,0,503,504,504,504,504,504,0,0,0

Layer3:
`Layer 3 Collision Layer
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
Data 1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1

Could you also show us in a set of screenshots how it is reacting. Actually a video would be great but that would be asking too much.

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

Back to top

Profile PM Email Website

The Viking

15

Years of Service

User Offline

Joined: 21st Oct 2008

Location: Asgard

Posted: 21st Feb 2009 03:45 Edited at: 21st Feb 2009 04:10

Link

i don't know what i changed, but that actually works perfectly... thanks....

Found it! I had this:

+ Code Snippet

Paste Sprite SNum# + SAdd#,128 + x#,126 + y#

Instead of this:

+ Code Snippet

Paste Sprite SNum# + SAdd#,128,126

Thanks for all the help!!!!

Though, i noticed now that when i finish it for the other directions, the down doesn't work too well. When i put the down part in, it will actually stop the character in all directions, but if i just leave it with no collision, all other directions work..

+ Code Snippet

if upkey()=1
   y#=y#-1 : SAdd# = 12`SNum# will be between 1 and 4
   if Dungeon(int((116+x#)/32) , int((126+y#)/32),3)=1 or Dungeon(int((140+x#)/32) , int((126+y#)/32),3)=1
      y# = y# + 1
    endif
endif

if leftkey()=1
   x#=x#-1 : SAdd# = 0`SNum# will be between 5 and 8
   if Dungeon(int((116+x#)/32) , int((126+y#)/32),3)=1 or Dungeon(int((140+x#)/32) , int((126+y#)/32),3)=1
      x# = x# + 1
   endif
endif

if rightkey()=1
   x#=x#+1 : SAdd# = 4`SNum# will be between 9 and 12
   if Dungeon(int((116+x#)/32) , int((126+y#)/32),3)=1 or Dungeon(int((140+x#)/32) , int((126+y#)/32),3)=1
      x# = x# - 1
   endif
endif

if downkey()=1
   y#=y#+1 : SAdd# = 8`SNum# will be between 13 and 16
   if Dungeon(int((116+x#)/32) , int((126+y#)/32),3)=1 or Dungeon(int((140+x#)/32) , int((126+y#)/32),3)=1
      y# = y# - 1
   endif
endif

EDIT: Nevermind... i got it... just needed to adjust the starting location, because he was starting on a tile which had a 1, instead... thanks

Back to top

Profile PM Email

Caleb1994

15

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 23rd Feb 2009 18:20

Link

btw I know you just got it working but wouldn't it be easier to just in one if the for loops find what tile he is on then when he moves in the if statement do it like this

If upkey() and dungeon(currentx,currenty-1,3)=0
Movement code
Endif

I did that in the example for my tile map editor and it worked great

Back to top

Profile PM Website

Sorry your browser is not supported!

2D All the way! / Tile Collision using arrays

Attachments