Best type of image to use for "sprites" in a 2d scroller...

Author

Message

gaz5021

18

Years of Service

User Offline

Joined: 18th Oct 2006

Location:

Posted: 19th Oct 2006 14:44

Link

Following on from my 2d background I'm making with a matrix (http://forum.thegamecreators.com/?m=forum_view&t=91424&b=10), I was wondering if somebody here could suggest the best way to go about putting 2d characters onto this "matrix" background. I have heard people talk about using "paste image" instead of actual "sprites", and I know DBC can handle bitmaps as well. Can someone please explain in reasonably simple terms which they think is the better way to do it and why? Thanks in advance.

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 19th Oct 2006 22:18

Link

You only want to use bitmaps when you (like that messages attached file: tilebitmap.bmp) have multiple images to grab separately. If you're grabbing single images always use "load image".

When you use sprites their on top of everything... so things like text drawn to the screen is under the sprites. Hiding the sprites and using "paste sprite" gives you greater control and gives you the benifit of using all the sprite commands to manipulate the sprite.

If you really want to make a 2D game i'd keep away from making a matrix. It's just as easy (and faster) to just make a background using pasted tile images.

Back to top

Profile PM Email

gaz5021

18

Years of Service

User Offline

Joined: 18th Oct 2006

Location:

Posted: 22nd Oct 2006 14:30

Link

Okay, thanks a lot for your advice.

Being a complete beginner with DB, I am going to take all of your advice on board as act on it. I'd like to develop good habits early.

First of all, I will scrap the matrix code. That's where I started.

When you say "using pasted tile images", do you mean pasting each background tile separately with the command "paste image"? I'm guessing I need to get the images from the bitmap with "get image" (like I have at the moment) and specify where each tile is.

I'll try it this way anyway, and keep a look out for your answer.

Thanks again.

Back to top

Profile PM Email

gaz5021

18

Years of Service

User Offline

Joined: 18th Oct 2006

Location:

Posted: 22nd Oct 2006 18:35

Link

Okay, I've changed my program so that the background is drawn with 32*20 "paste image" commands. Seems to work well, I've also got it scrolling. I'll include the code, it's very messy, I'm changing lines to comments instead of deleting them, just so I can look back on it. It's working, though.

` initialisation
cls
sync on
hide mouse
set display mode 800,600,16

dim backtile(300,20)
dim tiletype(300,20)
dim tileim(32,20)
`horztile for horizon tiles, parallax scrolling
`dim horztile(300,10)

`check for input devices
perform checklist for control devices
contdevs=checklist quantity()
j=1

`print control devices available
if contdevs>0
   for j=1 to contdevs
      print j;" ";checklist string$(j)
   next j
endif
print j;" ";"Keyboard control"

`wait for valid input
while cchoice<1 or cchoice>j
cchoice=scancode()-1
sync
endwhile

if contdevs>0 then set control device checklist string$(cchoice)
cls

`first 100 images are background tiles
tl=1
tilesize=32
load bitmap "tilebitmapSML.bmp",1
for row=0 to 9
   for col=0 to 9
      get image tl,col*tilesize,row*tilesize,(col+1)*tilesize,(row+1)*tilesize
      inc tl
   next col
next row
delete bitmap 1

load image "muzzwalkR.bmp",101
load image "muzzwalk2R.bmp",102
load image "muzzwalkL.bmp",103
load image "muzzwalk2L.bmp",104

`make matrix 1,640,128,100,20
`prepare matrix texture 1,1,10,10
`fill matrix 1,0,6

`randomise background
for y=1 to 20
   for x=1 to 100
      tiletype(x,y)=rnd(6)+1
      backtile(x,y)=rnd(6)+1
      `set matrix tile 1,x,z,tile
   next x
next z

`read background
restore levelone
for y=1 to 20
   for x=1 to 32
      read tiletype(x,y)
      read backtile(x,y)
      `set matrix tile 1,x,z,tile
   next x
next z

`position camera 97,120,64
`point camera 97,0,64

`scroll background
remstart
for j=98 to 640
   wait 1
   position camera j,120,64
   point camera j,0,64
next j
remend

plonex=197
ploney=285

ploneanim=101
ploneface$="right"

xprogress=0
moving=1

do

`draw background
for x=1 to 32
   for y=1 to 20
      tileim(x,y)=backtile(x+xtprgs,y)
      paste image tileim(x,y),(x-1)*tilesize-xtoffset,(y-1)*tilesize
      `paste image backtile(x,y),(x-1)*tilesize-xprogress,(y-1)*tilesize
   next y
next x

remstart
if joystick up()=1 then ploney=ploney-1
if joystick down()=1 then ploney=ploney+1
if joystick right()=1 then plonex=plonex+1
if joystick left()=1 then plonex=plonex-1
remend

jstckx=joystick x()
jstcky=joystick y()

if jstckx>0 then ploneface$="right"
if jstckx<0 then ploneface$="left"

if moving=1 and jstckx>0 and plonex>400
   xprogress=xprogress+jstckx/500
else
   plonex=plonex+jstckx/500
endif
`if tiletype(int(ploney/800))*32
ploney=ploney+jstcky/400

if ploneface$="right" then ploneanim=101
if ploneface$="left" then ploneanim=103

sprite 1,plonex,ploney,ploneanim

remstart
`move sprite 1 backwards and forwards
for j=197 to 500 step 10
   if mwanim#/4=int(mwanim#/4)
      if mwk=0 then mwk=1 else mwk=0
   endif
   if mwk=0 then sprite 1,j,285,2 else sprite 1,j,285,3
   inc mwanim#
   sync
 wait 1
next j
for j=500 to 197 step -10
   if mwanim#/4=int(mwanim#/4)
      if mwk=0 then mwk=1 else mwk=0
   endif
   if mwk=0 then sprite 1,j,285,4 else sprite 1,j,285,5
   inc mwanim#
   sync
  wait 1
next j
remend

sync

xtprgs=int(xprogress/tilesize)
xtoffset=xprogress-xtprgs*tilesize
loop

+ Code Snippet


` initialisation
cls
sync on
hide mouse
set display mode 800,600,16

dim backtile(300,20)
dim tiletype(300,20)
dim tileim(32,20)
`horztile for horizon tiles, parallax scrolling
`dim horztile(300,10)

`check for input devices
perform checklist for control devices
contdevs=checklist quantity()
j=1

`print control devices available
if contdevs>0
   for j=1 to contdevs
      print j;" ";checklist string$(j)
   next j
endif
print j;" ";"Keyboard control"

`wait for valid input
while cchoice<1 or cchoice>j
cchoice=scancode()-1
sync
endwhile

if contdevs>0 then set control device checklist string$(cchoice)
cls

`first 100 images are background tiles
tl=1
tilesize=32
load bitmap "tilebitmapSML.bmp",1
for row=0 to 9
   for col=0 to 9
      get image tl,col*tilesize,row*tilesize,(col+1)*tilesize,(row+1)*tilesize
      inc tl
   next col
next row
delete bitmap 1



load image "muzzwalkR.bmp",101
load image "muzzwalk2R.bmp",102
load image "muzzwalkL.bmp",103
load image "muzzwalk2L.bmp",104


`make matrix 1,640,128,100,20
`prepare matrix texture 1,1,10,10
`fill matrix 1,0,6

`randomise background
for y=1 to 20
   for x=1 to 100
      tiletype(x,y)=rnd(6)+1
      backtile(x,y)=rnd(6)+1
      `set matrix tile 1,x,z,tile
   next x
next z

`read background
restore levelone
for y=1 to 20
   for x=1 to 32
      read tiletype(x,y)
      read backtile(x,y)
      `set matrix tile 1,x,z,tile
   next x
next z



`position camera 97,120,64
`point camera 97,0,64

`scroll background
remstart
for j=98 to 640
   wait 1
   position camera j,120,64
   point camera j,0,64
next j
remend

plonex=197
ploney=285

ploneanim=101
ploneface$="right"

xprogress=0
moving=1

do

`draw background
for x=1 to 32
   for y=1 to 20
      tileim(x,y)=backtile(x+xtprgs,y)
      paste image tileim(x,y),(x-1)*tilesize-xtoffset,(y-1)*tilesize
      `paste image backtile(x,y),(x-1)*tilesize-xprogress,(y-1)*tilesize
   next y
next x

remstart
if joystick up()=1 then ploney=ploney-1
if joystick down()=1 then ploney=ploney+1
if joystick right()=1 then plonex=plonex+1
if joystick left()=1 then plonex=plonex-1
remend

jstckx=joystick x()
jstcky=joystick y()


if jstckx>0 then ploneface$="right"
if jstckx<0 then ploneface$="left"

if moving=1 and jstckx>0 and plonex>400
   xprogress=xprogress+jstckx/500
else
   plonex=plonex+jstckx/500
endif
`if tiletype(int(ploney/800))*32
ploney=ploney+jstcky/400







if ploneface$="right" then ploneanim=101
if ploneface$="left" then ploneanim=103

sprite 1,plonex,ploney,ploneanim


remstart
`move sprite 1 backwards and forwards
for j=197 to 500 step 10
   if mwanim#/4=int(mwanim#/4)
      if mwk=0 then mwk=1 else mwk=0
   endif
   if mwk=0 then sprite 1,j,285,2 else sprite 1,j,285,3
   inc mwanim#
   sync
 wait 1
next j
for j=500 to 197 step -10
   if mwanim#/4=int(mwanim#/4)
      if mwk=0 then mwk=1 else mwk=0
   endif
   if mwk=0 then sprite 1,j,285,4 else sprite 1,j,285,5
   inc mwanim#
   sync
  wait 1
next j
remend


sync


xtprgs=int(xprogress/tilesize)
xtoffset=xprogress-xtprgs*tilesize
loop

Thanks a lot for your help so far, I'd like some more info about "paste sprite" and what you mean about "hiding" the sprite. As you can see, currently I am just using the "sprite" command.

Back to top

Profile PM Email

gaz5021

18

Years of Service

User Offline

Joined: 18th Oct 2006

Location:

Posted: 24th Oct 2006 19:43

Link

I've tidied up my code a bit and improved it, at least I think I have. Does anyone have any information on why I should be using "paste sprite" or any other suggestions for displaying my character images?

Thanks.

` initialisation
cls
sync on
hide mouse
set display mode 800,600,16

screentilesy=16
`playing area height in tiles
screentilesx=26
`playing area width in tiles

maxlevelx=300
`maximum tiles across in a level
maxlevely=51
`maximum tiles up and down in a level

tilesize=32
`tile size in pixels

levels=1

dim backtile(levels,maxlevelx,maxlevely)
dim tiletype(levels,maxlevelx,maxlevely)

dim tileim(screentilesx,screentilesy)
dim tiletp(screentilesx,screentilesy)
`horztile for horizon tiles, parallax scrolling
`dim horztile(300,10)

`*******************************************************************************************************************
`check for input devices
perform checklist for control devices
contdevs=checklist quantity()
j=1

`print control devices available
if contdevs>0
   for j=1 to contdevs
      print j;" ";checklist string$(j)
   next j
endif
print j;" ";"Keyboard control"

`wait for valid input
while cchoice<1 or cchoice>j
cchoice=scancode()-1
sync
endwhile

if contdevs>0 then set control device checklist string$(cchoice)
cls

`*******************************************************************************************************************

`first 100 images are background tiles

load bitmap "tilebitmapSML.bmp",1
for row=0 to 9
   for col=0 to 9
      get image ((row*10)+col+1),(col*tilesize),(row*tilesize),((col+1)*tilesize),((row+1)*tilesize)
   next col
next row
delete bitmap 1

load image "muzzwalkR.bmp",101
load image "muzzwalk2R.bmp",102
load image "muzzwalkL.bmp",103
load image "muzzwalk2L.bmp",104

`make matrix 1,640,128,100,20
`prepare matrix texture 1,1,10,10
`fill matrix 1,0,6

`randomise background
for lvl=1 to levels
   for y=1 to maxlevely
      for x=1 to maxlevelx
         tiletype(lvl,x,y)=rnd(6)+1
         backtile(lvl,x,y)=rnd(3)+1
      `set matrix tile 1,x,z,tile
      next x
   next y
next lvl

`read background for level 1
restore levelone
lvl=1
for y=17 to 33

`read only middle 17-33 tiles for now

for x=1 to 31
   `eventually this 31 will be maxlevelx

read tiletype(lvl,x,y)
      read backtile(lvl,x,y)

`set matrix tile 1,x,z,tile

next x

next y

`position camera 97,120,64
`point camera 97,0,64

`scroll background
remstart
for j=98 to 640
   wait 1
   position camera j,120,64
   point camera j,0,64
next j
remend

level=1
lvlx=1
lvly=18

xview=(lvlx-1)*tilesize
yview=(lvly-1)*tilesize

plonex#=197
ploney#=285

ploneanim=101
ploneface$="right"

xprogress=0

movingxr=1
movingxl=0
movingyu=0
movingyd=0

xtoffset=0
ytoffset=0

do

`draw background
remstart
for x=xview to xview+screentilesx-1
   for y=yview to yview+screentilesy-1
      tileim((x-xview)+1,(y-yview)+1)=backtile(level,x,y)
      tiletp((x-xview)+1,(y-yview)+1)=tiletype(level,x,y)
      paste image tileim((x-xview)+1,(y-yview)+1),((x-xview)+1)*tilesize-xtoffset,((y-yview)+1)*tilesize-ytoffset
      `paste image backtile(x,y),(x-1)*tilesize-xprogress,(y-1)*tilesize
   next y
next x
remend

for x=0 to screentilesx-1
   for y=0 to screentilesy-1
      tileim(x,y)=backtile(level,lvlx+x,lvly+y)
      tiletp(x,y)=tiletype(level,lvlx+x,lvly+y)
      paste image tileim(x,y),x*tilesize-xtoffset,y*tilesize-ytoffset
      `paste image backtile(x,y),(x-1)*tilesize-xprogress,(y-1)*tilesize
   next y
next x

remstart
if joystick up()=1 then ploney#=ploney#-1
if joystick down()=1 then ploney#=ploney#+1
if joystick right()=1 then plonex#=plonex#+1
if joystick left()=1 then plonex#=plonex#-1
remend

jstckx=joystick x()
jstcky=joystick y()

if jstckx>0 then ploneface$="right"
if jstckx<0 then ploneface$="left"

if movingxr=1 and jstckx>0 and plonex#>400
   xview=xview+jstckx/500
else
   plonex#=plonex#+jstckx/500
endif

ploney#=ploney#+jstcky/400

` CALCULATE TILEPLAYER IS ON
` CALCULATE TILEPLAYER IS ON
` CALCULATE TILEPLAYER IS ON
` CALCULATE TILEPLAYER IS ON
` CALCULATE TILEPLAYER IS ON

`calculate tile player is on

ctilex=int((plonex#/800)*(800/32))+xtprgs
ctiley=int(((ploney#+1)/600)*(600/32))+9

BOX 0,0,96,96

TEXT 0,12,"plonex#="+str$(plonex#)
TEXT 0,24,"ploney#="+str$(ploney#)
TEXT 0,36,"ctilex="+str$(ctilex)
TEXT 0,48,"ctiley="+str$(ctiley)

`paste image 7,ctilex#*tilesize,ctiley#*tilesize
paste image 7,ctilex*tilesize,ctiley*tilesize

`if jstcky<0 and tiletp(ctilex,ctiley)=0 then ploney#=ploney#-jstcky/400

if ploneface$="right" then ploneanim=101
if ploneface$="left" then ploneanim=103

sprite 1,plonex#,ploney#,ploneanim

remstart
`move sprite 1 backwards and forwards
for j=197 to 500 step 10
   if mwanim#/4=int(mwanim#/4)
      if mwk=0 then mwk=1 else mwk=0
   endif
   if mwk=0 then sprite 1,j,285,2 else sprite 1,j,285,3
   inc mwanim#
   sync
 wait 1
next j
for j=500 to 197 step -10
   if mwanim#/4=int(mwanim#/4)
      if mwk=0 then mwk=1 else mwk=0
   endif
   if mwk=0 then sprite 1,j,285,4 else sprite 1,j,285,5
   inc mwanim#
   sync
  wait 1
next j
remend

sync

lvlx=int(xview/tilesize)+1

xtoffset=xview-(lvlx-1)*tilesize
loop

levelone:
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5
data 0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

data 1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1
data 1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

data 1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

+ Code Snippet


` initialisation
cls
sync on
hide mouse
set display mode 800,600,16

screentilesy=16
`playing area height in tiles
screentilesx=26
`playing area width in tiles

maxlevelx=300
`maximum tiles across in a level
maxlevely=51
`maximum tiles up and down in a level

tilesize=32
`tile size in pixels

levels=1

dim backtile(levels,maxlevelx,maxlevely)
dim tiletype(levels,maxlevelx,maxlevely)

dim tileim(screentilesx,screentilesy)
dim tiletp(screentilesx,screentilesy)
`horztile for horizon tiles, parallax scrolling
`dim horztile(300,10)

`*******************************************************************************************************************
`check for input devices
perform checklist for control devices
contdevs=checklist quantity()
j=1

`print control devices available
if contdevs>0
   for j=1 to contdevs
      print j;" ";checklist string$(j)
   next j
endif
print j;" ";"Keyboard control"

`wait for valid input
while cchoice<1 or cchoice>j
cchoice=scancode()-1
sync
endwhile

if contdevs>0 then set control device checklist string$(cchoice)
cls

`*******************************************************************************************************************

`first 100 images are background tiles


load bitmap "tilebitmapSML.bmp",1
for row=0 to 9
   for col=0 to 9
      get image ((row*10)+col+1),(col*tilesize),(row*tilesize),((col+1)*tilesize),((row+1)*tilesize)
   next col
next row
delete bitmap 1



load image "muzzwalkR.bmp",101
load image "muzzwalk2R.bmp",102
load image "muzzwalkL.bmp",103
load image "muzzwalk2L.bmp",104


`make matrix 1,640,128,100,20
`prepare matrix texture 1,1,10,10
`fill matrix 1,0,6

`randomise background
for lvl=1 to levels
   for y=1 to maxlevely
      for x=1 to maxlevelx
         tiletype(lvl,x,y)=rnd(6)+1
         backtile(lvl,x,y)=rnd(3)+1
      `set matrix tile 1,x,z,tile
      next x
   next y
next lvl

`read background for level 1
restore levelone
lvl=1
for y=17 to 33

   `read only middle 17-33 tiles for now

   for x=1 to 31
   `eventually this 31 will be maxlevelx

      read tiletype(lvl,x,y)
      read backtile(lvl,x,y)

      `set matrix tile 1,x,z,tile

   next x

next y


`position camera 97,120,64
`point camera 97,0,64

`scroll background
remstart
for j=98 to 640
   wait 1
   position camera j,120,64
   point camera j,0,64
next j
remend

level=1
lvlx=1
lvly=18

xview=(lvlx-1)*tilesize
yview=(lvly-1)*tilesize

plonex#=197
ploney#=285

ploneanim=101
ploneface$="right"

xprogress=0

movingxr=1
movingxl=0
movingyu=0
movingyd=0


xtoffset=0
ytoffset=0

do

`draw background
remstart
for x=xview to xview+screentilesx-1
   for y=yview to yview+screentilesy-1
      tileim((x-xview)+1,(y-yview)+1)=backtile(level,x,y)
      tiletp((x-xview)+1,(y-yview)+1)=tiletype(level,x,y)
      paste image tileim((x-xview)+1,(y-yview)+1),((x-xview)+1)*tilesize-xtoffset,((y-yview)+1)*tilesize-ytoffset
      `paste image backtile(x,y),(x-1)*tilesize-xprogress,(y-1)*tilesize
   next y
next x
remend

for x=0 to screentilesx-1
   for y=0 to screentilesy-1
      tileim(x,y)=backtile(level,lvlx+x,lvly+y)
      tiletp(x,y)=tiletype(level,lvlx+x,lvly+y)
      paste image tileim(x,y),x*tilesize-xtoffset,y*tilesize-ytoffset
      `paste image backtile(x,y),(x-1)*tilesize-xprogress,(y-1)*tilesize
   next y
next x

remstart
if joystick up()=1 then ploney#=ploney#-1
if joystick down()=1 then ploney#=ploney#+1
if joystick right()=1 then plonex#=plonex#+1
if joystick left()=1 then plonex#=plonex#-1
remend

jstckx=joystick x()
jstcky=joystick y()


if jstckx>0 then ploneface$="right"
if jstckx<0 then ploneface$="left"

if movingxr=1 and jstckx>0 and plonex#>400
   xview=xview+jstckx/500
else
   plonex#=plonex#+jstckx/500
endif

ploney#=ploney#+jstcky/400


` CALCULATE TILEPLAYER IS ON
` CALCULATE TILEPLAYER IS ON
` CALCULATE TILEPLAYER IS ON
` CALCULATE TILEPLAYER IS ON
` CALCULATE TILEPLAYER IS ON

`calculate tile player is on

ctilex=int((plonex#/800)*(800/32))+xtprgs
ctiley=int(((ploney#+1)/600)*(600/32))+9




BOX 0,0,96,96

TEXT 0,12,"plonex#="+str$(plonex#)
TEXT 0,24,"ploney#="+str$(ploney#)
TEXT 0,36,"ctilex="+str$(ctilex)
TEXT 0,48,"ctiley="+str$(ctiley)




`paste image 7,ctilex#*tilesize,ctiley#*tilesize
paste image 7,ctilex*tilesize,ctiley*tilesize

`if jstcky<0 and tiletp(ctilex,ctiley)=0 then ploney#=ploney#-jstcky/400






if ploneface$="right" then ploneanim=101
if ploneface$="left" then ploneanim=103

sprite 1,plonex#,ploney#,ploneanim


remstart
`move sprite 1 backwards and forwards
for j=197 to 500 step 10
   if mwanim#/4=int(mwanim#/4)
      if mwk=0 then mwk=1 else mwk=0
   endif
   if mwk=0 then sprite 1,j,285,2 else sprite 1,j,285,3
   inc mwanim#
   sync
 wait 1
next j
for j=500 to 197 step -10
   if mwanim#/4=int(mwanim#/4)
      if mwk=0 then mwk=1 else mwk=0
   endif
   if mwk=0 then sprite 1,j,285,4 else sprite 1,j,285,5
   inc mwanim#
   sync
  wait 1
next j
remend


sync


lvlx=int(xview/tilesize)+1

xtoffset=xview-(lvlx-1)*tilesize
loop







levelone:
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5
data 0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5

data 0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5
data 0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5

data 0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5
data 0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5

data 0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5
data 0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

data 1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1
data 1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

data 1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

Back to top

Profile PM Email

gaz5021

18

Years of Service

User Offline

Joined: 18th Oct 2006

Location:

Posted: 25th Oct 2006 18:57

Link

Fixed up my code a bit more. Anybody have any advice at all for displaying my characters to the screen? SPRITE seems to be working but I really want some opinions.

` initialisation

screentilesy=16
`playing area height in tiles
screentilesx=25
`playing area width in tiles

maxlevelx=300
`maximum tiles across in a level
maxlevely=51
`maximum tiles up and down in a level

tilesize=32
`tile size in pixels

levels=1

dspmdex=800
dspmdey=600
dspdpth=16

dim backtile(levels,maxlevelx,maxlevely)
dim tiletype(levels,maxlevelx,maxlevely)

dim tileim(screentilesx,screentilesy)
dim tiletp(screentilesx,screentilesy)
`horztile for horizon tiles, parallax scrolling
`dim horztile(300,10)

cls
sync on
hide mouse
set display mode dspmdex,dspmdey,dspdpth

`*******************************************************************************************************************
`check for input devices
perform checklist for control devices
contdevs=checklist quantity()
j=1

`print control devices available
if contdevs>0
   for j=1 to contdevs
      print j;" ";checklist string$(j)
   next j
endif
print j;" ";"Keyboard control"

`wait for valid input
while cchoice<1 or cchoice>j
cchoice=scancode()-1
sync
endwhile

if contdevs>0 then set control device checklist string$(cchoice)
cls

`*******************************************************************************************************************

`first 100 images are background tiles

load bitmap "tilebitmapSML.bmp",1
for row=0 to 9
   for col=0 to 9
      get image ((row*10)+col+1),(col*tilesize),(row*tilesize),((col+1)*tilesize),((row+1)*tilesize)
   next col
next row
delete bitmap 1

load image "muzzwalkR.bmp",101
load image "muzzwalk2R.bmp",102
load image "muzzwalkL.bmp",103
load image "muzzwalk2L.bmp",104

`make matrix 1,640,128,100,20
`prepare matrix texture 1,1,10,10
`fill matrix 1,0,6

`randomise background
for lvl=1 to levels
   for y=1 to maxlevely
      for x=1 to maxlevelx
         tiletype(lvl,x,y)=rnd(6)+1
         backtile(lvl,x,y)=rnd(3)+1
      `set matrix tile 1,x,z,tile
      next x
   next y
next lvl

`read background for level 1
restore levelone
lvl=1
`for z=0 to 34 step 34
for y=17 to 33

`read only middle 17-33 tiles for now

for x=1 to 32
   `eventually this 31 will be maxlevelx

read tiletype(lvl,x,y+z)
      read backtile(lvl,x,y+z)

`set matrix tile 1,x,z,tile

next x

next y

`next z

`position camera 97,120,64
`point camera 97,0,64

`scroll background
remstart
for j=98 to 640
   wait 1
   position camera j,120,64
   point camera j,0,64
next j
remend

level=1
levelsizex=57
levelsizey=51

lvlx=1
lvly=18

xview=(lvlx-1)*tilesize
yview=(lvly-1)*tilesize

plonex#=197
ploney#=285

ploneanim=101
ploneface$="right"
spritesizex=96
spritesizey=160

xprogress=0

movingxr=1
movingxl=1
movingyu=1
movingyd=1

xspd#=2
yspd#=2

xtoffset=0
ytoffset=0

do

`draw background
for x=0 to screentilesx-1
   for y=0 to screentilesy-1
      tileim(x,y)=backtile(level,lvlx+x,lvly+y)
      tiletp(x,y)=tiletype(level,lvlx+x,lvly+y)
      paste image tileim(x,y),x*tilesize-xtoffset,y*tilesize-ytoffset
   next y
next x
for x=0 to screentilesx-1
    paste image 100,x*tilesize,(screentilesy-1)*tilesize
next x
for y=0 to screentilesy-1
    paste image 100,(screentilesx-1)*tilesize,y*tilesize
next y

remstart
if joystick up()=1 then ploney#=ploney#-1
if joystick down()=1 then ploney#=ploney#+1
if joystick right()=1 then plonex#=plonex#+1
if joystick left()=1 then plonex#=plonex#-1
remend

`get input
jstckx=joystick x()
jstcky=joystick y()

`pick an animation based on input
if jstckx>0 then ploneface$="right"
if jstckx<0 then ploneface$="left"

`move the character's x and y co-ordinates for display onscreen according to input
plonex#=plonex#+(jstckx/500)*xspd#
ploney#=ploney#+(jstcky/500)*yspd#

`if necessary, scroll the screen and reset character's x and/or y co-ordinates
if movingxr=1 and jstckx>0 and plonex#>400 and xview<(maxlevelx*tilesize)-(screentilesx*tilesize)
   xview=xview+(jstckx/500)*xspd#
   plonex#=plonex#-(jstckx/500)*xspd#
endif

if movingxl=1 and jstckx<0 and plonex#<400 and xview>0
   xview=xview+(jstckx/500)*xspd#
   plonex#=plonex#-(jstckx/500)*xspd#
endif

if movingyd=1 and jstcky>0 and ploney#>300 and yview<(maxlevely*tilesize)-(screentilesy*tilesize)
   yview=yview+(jstcky/500)*yspd#
   ploney#=ploney#-(jstcky/500)*yspd#
endif

if movingyu=1 and jstcky<0 and ploney#<300 and yview>0
   yview=yview+(jstcky/500)*yspd#
   ploney#=ploney#-(jstcky/500)*yspd#
endif

`keep character's co-ordinates within screen boundary
if plonex#<0 then plonex#=0
if plonex#>(tilesize*(screentilesx-1))-spritesizex then plonex#=(tilesize*(screentilesx-1))-spritesizex

if ploney#-spritesizey<0 then ploney#=spritesizey
if ploney#>(tilesize*(screentilesy-1)) then ploney#=(tilesize*(screentilesy-1))

`keep view of background within level limits
if yview<0 then yview=0
if yview>(tilesize*(maxlevely-screentilesy)) then yview=(tilesize*(maxlevely-screentilesy))

ctilex=lvlx+(int(plonex#/tilesize))
ctiley=lvly+(int(ploney#/tilesize))

`debugging
BOX 0,0,96,96
TEXT 0,12,"ctilex="+str$(ctilex)
TEXT 0,24,"ctiley="+str$(ctiley)
TEXT 0,36,"lvly="+str$(lvly)
TEXT 0,48,"misc="+str$(screentilesy)

paste image 7,((ctilex-lvlx)*tilesize)-xtoffset,((ctiley-lvly)*tilesize)-ytoffset

prevtile=backtile(ctilex,ctiley)
backtile(ctilex,ctiley)=7

if ploneface$="right" then ploneanim=101
if ploneface$="left" then ploneanim=103

sprite 1,plonex#,ploney#-spritesizey,ploneanim

sync

lvlx=int(xview/tilesize)+1
lvly=int(yview/tilesize)+1

xtoffset=xview-(lvlx-1)*tilesize
ytoffset=yview-(lvly-1)*tilesize
loop

levelone:
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 0,7,0,5,0,5,0,7,0,7,0,5,0,5,0,5,0,7,0,5,0,5,0,5,0,5,0,7,0,5,0,7
data 0,5,0,7,0,5,0,7,0,5,0,7,0,7,0,5,0,5,0,5,0,7,0,5,0,7,0,7,0,7,0,5

data 0,5,0,5,0,7,0,7,0,5,0,5,0,5,0,5,0,7,0,7,0,7,0,5,0,5,0,5,0,5,0,7
data 0,7,0,5,0,7,0,5,0,7,0,5,0,7,0,5,0,7,0,5,0,5,0,7,0,7,0,5,0,7,0,5

data 0,7,0,5,0,7,0,5,0,7,0,5,0,5,0,7,0,7,0,5,0,7,0,5,0,5,0,5,0,7,0,5
data 0,7,0,7,0,5,0,7,0,5,0,7,0,7,0,5,0,5,0,5,0,7,0,7,0,7,0,5,0,7,0,5

data 0,5,0,7,0,5,0,5,0,5,0,5,0,7,0,5,0,7,0,7,0,7,0,5,0,7,0,7,0,5,0,5
data 0,5,0,5,0,7,0,7,0,5,0,7,0,7,0,5,0,5,0,7,0,7,0,5,0,5,0,7,0,7,0,7

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

data 1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1
data 1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

data 1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

+ Code Snippet

` initialisation


screentilesy=16
`playing area height in tiles
screentilesx=25
`playing area width in tiles

maxlevelx=300
`maximum tiles across in a level
maxlevely=51
`maximum tiles up and down in a level

tilesize=32
`tile size in pixels

levels=1

dspmdex=800
dspmdey=600
dspdpth=16

dim backtile(levels,maxlevelx,maxlevely)
dim tiletype(levels,maxlevelx,maxlevely)

dim tileim(screentilesx,screentilesy)
dim tiletp(screentilesx,screentilesy)
`horztile for horizon tiles, parallax scrolling
`dim horztile(300,10)

cls
sync on
hide mouse
set display mode dspmdex,dspmdey,dspdpth

`*******************************************************************************************************************
`check for input devices
perform checklist for control devices
contdevs=checklist quantity()
j=1

`print control devices available
if contdevs>0
   for j=1 to contdevs
      print j;" ";checklist string$(j)
   next j
endif
print j;" ";"Keyboard control"

`wait for valid input
while cchoice<1 or cchoice>j
cchoice=scancode()-1
sync
endwhile

if contdevs>0 then set control device checklist string$(cchoice)
cls

`*******************************************************************************************************************

`first 100 images are background tiles


load bitmap "tilebitmapSML.bmp",1
for row=0 to 9
   for col=0 to 9
      get image ((row*10)+col+1),(col*tilesize),(row*tilesize),((col+1)*tilesize),((row+1)*tilesize)
   next col
next row
delete bitmap 1



load image "muzzwalkR.bmp",101
load image "muzzwalk2R.bmp",102
load image "muzzwalkL.bmp",103
load image "muzzwalk2L.bmp",104


`make matrix 1,640,128,100,20
`prepare matrix texture 1,1,10,10
`fill matrix 1,0,6

`randomise background
for lvl=1 to levels
   for y=1 to maxlevely
      for x=1 to maxlevelx
         tiletype(lvl,x,y)=rnd(6)+1
         backtile(lvl,x,y)=rnd(3)+1
      `set matrix tile 1,x,z,tile
      next x
   next y
next lvl

`read background for level 1
restore levelone
lvl=1
`for z=0 to 34 step 34
for y=17 to 33

   `read only middle 17-33 tiles for now

   for x=1 to 32
   `eventually this 31 will be maxlevelx

      read tiletype(lvl,x,y+z)
      read backtile(lvl,x,y+z)

      `set matrix tile 1,x,z,tile

   next x

next y

`next z


`position camera 97,120,64
`point camera 97,0,64

`scroll background
remstart
for j=98 to 640
   wait 1
   position camera j,120,64
   point camera j,0,64
next j
remend

level=1
levelsizex=57
levelsizey=51


lvlx=1
lvly=18

xview=(lvlx-1)*tilesize
yview=(lvly-1)*tilesize

plonex#=197
ploney#=285

ploneanim=101
ploneface$="right"
spritesizex=96
spritesizey=160

xprogress=0

movingxr=1
movingxl=1
movingyu=1
movingyd=1

xspd#=2
yspd#=2


xtoffset=0
ytoffset=0

do

`draw background
for x=0 to screentilesx-1
   for y=0 to screentilesy-1
      tileim(x,y)=backtile(level,lvlx+x,lvly+y)
      tiletp(x,y)=tiletype(level,lvlx+x,lvly+y)
      paste image tileim(x,y),x*tilesize-xtoffset,y*tilesize-ytoffset
   next y
next x
for x=0 to screentilesx-1
    paste image 100,x*tilesize,(screentilesy-1)*tilesize
next x
for y=0 to screentilesy-1
    paste image 100,(screentilesx-1)*tilesize,y*tilesize
next y

remstart
if joystick up()=1 then ploney#=ploney#-1
if joystick down()=1 then ploney#=ploney#+1
if joystick right()=1 then plonex#=plonex#+1
if joystick left()=1 then plonex#=plonex#-1
remend


`get input
jstckx=joystick x()
jstcky=joystick y()

`pick an animation based on input
if jstckx>0 then ploneface$="right"
if jstckx<0 then ploneface$="left"


`move the character's x and y co-ordinates for display onscreen according to input
plonex#=plonex#+(jstckx/500)*xspd#
ploney#=ploney#+(jstcky/500)*yspd#

`if necessary, scroll the screen and reset character's x and/or y co-ordinates
if movingxr=1 and jstckx>0 and plonex#>400 and xview<(maxlevelx*tilesize)-(screentilesx*tilesize)
   xview=xview+(jstckx/500)*xspd#
   plonex#=plonex#-(jstckx/500)*xspd#
endif

if movingxl=1 and jstckx<0 and plonex#<400 and xview>0
   xview=xview+(jstckx/500)*xspd#
   plonex#=plonex#-(jstckx/500)*xspd#
endif

if movingyd=1 and jstcky>0 and ploney#>300 and yview<(maxlevely*tilesize)-(screentilesy*tilesize)
   yview=yview+(jstcky/500)*yspd#
   ploney#=ploney#-(jstcky/500)*yspd#
endif

if movingyu=1 and jstcky<0 and ploney#<300 and yview>0
   yview=yview+(jstcky/500)*yspd#
   ploney#=ploney#-(jstcky/500)*yspd#
endif

`keep character's co-ordinates within screen boundary
if plonex#<0 then plonex#=0
if plonex#>(tilesize*(screentilesx-1))-spritesizex then plonex#=(tilesize*(screentilesx-1))-spritesizex

if ploney#-spritesizey<0 then ploney#=spritesizey
if ploney#>(tilesize*(screentilesy-1)) then ploney#=(tilesize*(screentilesy-1))

`keep view of background within level limits
if yview<0 then yview=0
if yview>(tilesize*(maxlevely-screentilesy)) then yview=(tilesize*(maxlevely-screentilesy))



ctilex=lvlx+(int(plonex#/tilesize))
ctiley=lvly+(int(ploney#/tilesize))

`debugging
BOX 0,0,96,96
TEXT 0,12,"ctilex="+str$(ctilex)
TEXT 0,24,"ctiley="+str$(ctiley)
TEXT 0,36,"lvly="+str$(lvly)
TEXT 0,48,"misc="+str$(screentilesy)



paste image 7,((ctilex-lvlx)*tilesize)-xtoffset,((ctiley-lvly)*tilesize)-ytoffset

prevtile=backtile(ctilex,ctiley)
backtile(ctilex,ctiley)=7



if ploneface$="right" then ploneanim=101
if ploneface$="left" then ploneanim=103

sprite 1,plonex#,ploney#-spritesizey,ploneanim


sync


lvlx=int(xview/tilesize)+1
lvly=int(yview/tilesize)+1

xtoffset=xview-(lvlx-1)*tilesize
ytoffset=yview-(lvly-1)*tilesize
loop







levelone:
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6
data 1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6

data 0,7,0,5,0,5,0,7,0,7,0,5,0,5,0,5,0,7,0,5,0,5,0,5,0,5,0,7,0,5,0,7
data 0,5,0,7,0,5,0,7,0,5,0,7,0,7,0,5,0,5,0,5,0,7,0,5,0,7,0,7,0,7,0,5

data 0,5,0,5,0,7,0,7,0,5,0,5,0,5,0,5,0,7,0,7,0,7,0,5,0,5,0,5,0,5,0,7
data 0,7,0,5,0,7,0,5,0,7,0,5,0,7,0,5,0,7,0,5,0,5,0,7,0,7,0,5,0,7,0,5

data 0,7,0,5,0,7,0,5,0,7,0,5,0,5,0,7,0,7,0,5,0,7,0,5,0,5,0,5,0,7,0,5
data 0,7,0,7,0,5,0,7,0,5,0,7,0,7,0,5,0,5,0,5,0,7,0,7,0,7,0,5,0,7,0,5

data 0,5,0,7,0,5,0,5,0,5,0,5,0,7,0,5,0,7,0,7,0,7,0,5,0,7,0,7,0,5,0,5
data 0,5,0,5,0,7,0,7,0,5,0,7,0,7,0,5,0,5,0,7,0,7,0,5,0,5,0,7,0,7,0,7

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

data 1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1
data 1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

data 1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3,1,4,1,4,1,3,1,3,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3
data 1,4,1,3,1,4,1,4,1,4,1,3,1,3,1,4,1,3,1,4,1,4,1,3,1,4,1,4,1,4,1,3

Attachments

Login to view attachments

Back to top

Profile PM Email

gaz5021

18

Years of Service

User Offline

Joined: 18th Oct 2006

Location:

Posted: 28th Oct 2006 18:07

Link

Update on my program, very happy with my progress so far. Any tips on sprites still welcome.

` initialisation

screentilesy=16
`playing area height in tiles
screentilesx=25
`playing area width in tiles

maxlevelx=300
`maximum tiles across in a level
maxlevely=51
`maximum tiles up and down in a level

tilesize=32
`tile size in pixels

levels=1

dspmdex=800
dspmdey=600
dspdpth=16
anims=8

dim backtile(levels,maxlevelx,maxlevely)
dim tiletype(levels,maxlevelx,maxlevely)

dim tileim(screentilesx,screentilesy)
dim tiletp(screentilesx,screentilesy)
`horztile for horizon tiles, parallax scrolling
`dim horztile(300,10)

dim nextanim(anims)

restore animation
for j=1 to anims
   read nextanim(j)
next j

cls
sync on
hide mouse
set display mode dspmdex,dspmdey,dspdpth

`*******************************************************************************************************************
`check for input devices
perform checklist for control devices
contdevs=checklist quantity()
j=1

`print control devices available
if contdevs>0
   for j=1 to contdevs
      print j;" ";checklist string$(j)
   next j
endif
print j;" ";"Keyboard control"

`wait for valid input
while cchoice<1 or cchoice>j
cchoice=scancode()-1
sync
endwhile

if contdevs>0 then set control device checklist string$(cchoice)
cls

`*******************************************************************************************************************

`first 100 images are background tiles

load bitmap "tilebitmapSML.bmp",1
for row=0 to 9
   for col=0 to 9
      get image ((row*10)+col+1),(col*tilesize),(row*tilesize),((col+1)*tilesize),((row+1)*tilesize)
   next col
next row
delete bitmap 1

imgname$="dang"

load image imgname$+"walkR1.bmp",101
load image imgname$+"walkR2.bmp",102
load image imgname$+"walkR3.bmp",103
load image imgname$+"walkR4.bmp",104
load image imgname$+"walkL1.bmp",105
load image imgname$+"walkL2.bmp",106
load image imgname$+"walkL3.bmp",107
load image imgname$+"walkL4.bmp",108

`randomise background
for lvl=1 to levels
   for y=1 to maxlevely
      for x=1 to maxlevelx
         tiletype(lvl,x,y)=6
         backtile(lvl,x,y)=6
      `set matrix tile 1,x,z,tile
      next x
   next y
next lvl

`read background for level 1
restore levelone
lvl=1

`read only middle 17-33 tiles for now
for y=17 to 33
   `eventually this 32 will be maxlevelx
   for x=1 to 32
      `read data for each tile
      read tiletype(lvl,x,y+z)
      read backtile(lvl,x,y+z)
   next x
next y

level=1
levelsizex=57
levelsizey=51

lvlx=1
lvly=18

xview=(lvlx-1)*tilesize
yview=(lvly-1)*tilesize

plonex#=197
ploney#=285

ploneanim=101
ploneface$="right"
spritesizex=96
spritesizey=160

xprogress=0

movingxr=1
movingxl=1
movingyu=1
movingyd=1

xspd#=2
yspd#=2

xtoffset=0
ytoffset=0

do

`draw background
for x=0 to screentilesx-1
   for y=0 to screentilesy-1
      tileim(x,y)=backtile(level,lvlx+x,lvly+y)
      tiletp(x,y)=tiletype(level,lvlx+x,lvly+y)
      `if lvlx+x=ctilex and lvly+y=ctiley then tileim(x,y)=10
      paste image tileim(x,y),x*tilesize-xtoffset,y*tilesize-ytoffset
   next y
next x
for x=0 to screentilesx-1
    paste image 100,x*tilesize,(screentilesy-1)*tilesize
next x
for y=0 to screentilesy-1
    paste image 100,(screentilesx-1)*tilesize,y*tilesize
next y

`get input
jstckx=joystick x()
jstcky=joystick y()

ymov=(jstcky/500)*yspd#
xmov=(jstckx/500)*xspd#

`if direction player is facing changes, change animation
if jstckx>0 and ploneface$="left" then ploneanim=102
if jstckx<0 and ploneface$="right" then ploneanim=106

`record current direction faced
if jstckx>0 then ploneface$="right"
if jstckx<0 then ploneface$="left"

`loop frame of animation every half second
if timer()>animtimer and (xmov<>0 or ymov<>0)
   animtimer=timer()+500
   ploneanim=nextanim(ploneanim-100)
endif

`determine x value of tile player is on
ctilex=1+int(((xview+plonex#+(spritesizex/2))/tilesize))
`determine y value of tile player is on
ctiley=1+int((yview+ploney#)/tilesize)

`determine where character is moving to and reset x value if tile stops movement
ctilexm=1+int(((xview+plonex#+xmov+(spritesizex/2))/tilesize))
if ctilexm<1 then ctilexm=1
if ctilexm>maxlevelxm then ctilemx=maxlevelxm
if tiletype(level,ctilexm,ctiley)=0 then xmov=0

`determine where character is moving to and reset y value if tile stops movement
ctileym=1+int((yview+ploney#+ymov)/tilesize)
if ctileym<1 then ctileym=1
if ctileym>maxlevely then ctileym=maxlevely
if tiletype(level,ctilex,ctileym)=0 then ymov=0

`move the character's x and y co-ordinates
plonex#=plonex#+xmov
ploney#=ploney#+ymov

`if necessary, scroll the screen and reset character's x and/or y co-ordinates
if movingxr=1 and xmov>0 and plonex#>400 and xview<(maxlevelx*tilesize)-(screentilesx*tilesize)
   xview=xview+xmov
   plonex#=plonex#-xmov
endif

if movingxl=1 and xmov<0 and plonex#<400 and xview>0
   xview=xview+xmov
   plonex#=plonex#-xmov
endif

if movingyd=1 and ymov>0 and ploney#>300 and yview<(maxlevely*tilesize)-(screentilesy*tilesize)
   yview=yview+ymov
   ploney#=ploney#-ymov
endif

if movingyu=1 and ymov<0 and ploney#<300 and yview>0
   yview=yview+ymov
   ploney#=ploney#-ymov
endif

`keep character's co-ordinates within screen boundary
if plonex#<0 then plonex#=0
if plonex#>(tilesize*(screentilesx-1))-spritesizex then plonex#=(tilesize*(screentilesx-1))-spritesizex

if ploney#-spritesizey<0 then ploney#=spritesizey
if ploney#>(tilesize*(screentilesy-1)) then ploney#=(tilesize*(screentilesy-1))

`keep view of background within level limits
if yview<0 then yview=0
if yview>(tilesize*(maxlevely-screentilesy)) then yview=(tilesize*(maxlevely-screentilesy))

`debugging
BOX 0,0,96,192
TEXT 0,12,"xview"+str$(timer())
TEXT 0,24,"ploneanim="+str$(ploneanim)
TEXT 0,36,"movingxr="+str$(movingxr)
TEXT 0,48,"ctileym"+str$(ctileym)
TEXT 0,60,"ymov"+str$(ymov)
TEXT 0,72,"xmov"+str$(xmov)

`draw character on screen
sprite 1,plonex#,ploney#-spritesizey,ploneanim

`refresh screen
sync

`record upper-left tile number on screen
lvlx=int(xview/tilesize)+1
lvly=int(yview/tilesize)+1

`record number of pixels to offset the screen for scrolling
xtoffset=xview-(lvlx-1)*tilesize
ytoffset=yview-(lvly-1)*tilesize
loop

animation:
data 102,103,104,101
data 106,107,108,105