Sprite Tutorial - GameCreators Forum

Author

Message

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 7th Jul 2008 23:12

Link

I searched for it, but couldn't find any for DBC. Any help here guys? I just want to know how to make a simple sprite do simple things like move left when you press left on the arrow key. I have pretty basic knowledge of DBC. Here's one of my most recent programs to show you what I can do:
Thanks Ahead of Time.
-Irojo

`-=-=-=-Paint-=-=-=-
`--------V1.6-------
`----Designed By Irojo----
`
`Note: Go ahead and build off this if you want.

boxsize=1
i=1
x11#=600
y11#=400
x12#=700
y12#=400

x21#=600
y21#=400
x22#=600
y22#=600
sync on : sync rate 0
print "    Instructions for Version 1.6 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing" 
print "and you will be required to press (y)es or (n)o to continue, in order to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems." 
print " "
print " The Arrow keys are used to set the pensize."
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
suspend for key
cls
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print " "
print " To Make a Random Splatter art effect, Hold [SHIFT]+" f " and left click."
print " There is a box in the bottom right-hand corner of editor mode,"
print "with a "C" On the middle of it. If you click on this box, the screen will"
print "be cleared."
print " To change all colors at once, press 'A' to raise them, and 'a' to lower."
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."

do
  if returnkey()=1 then gosub the_program
 sync
loop

the_program:
cls
programsbegin:
currentx=320
currenty=240

do

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1

line 600,400,700,400
line 600,400,600,600

color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
   if controlkey()=1
    color=point(mousex(),mousey())
    r=rgbr(color)
    g=rgbg(color)
    b=rgbb(color)
   endif

if inkey$()="x"
   realr=0 : realg=0 : realb=0
   disable=1
   if mouseclick()=1
   if boxsize=1
    ink rgb(0,0,0),0
    box mousex()-3,mousey()-3,mousex()+3,mousey()+3
   endif
    if boxsize=2
     ink rgb(0,0,0),0
     box mousex()-5,mousey()-5,mousex()+5,mousey()+5
     ink rgb(255,255,255),0
    endif
   endif

trigger=1
  disable=0
  endif
  ink rgb(r,g,b),0
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

if mouseclick()=2 then gosub confirm

` -LINE 2D-
    if Style=0
     if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
      ink rgb(realr,realg,realb),0
       line currentx,currenty,mousex(),mousey()
      endif
     endif

` -|LINE 2D|-

` -LINE 3D-
   if Style=1
    if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
     if currentx<mousex()
      ink rgb(realr,realg,realb),0
      line currentx-3,currenty-3,mousex()+3,mousey()+3
     endif
     if currentx>mousex()
      ink rgb(realr,realg,realb),0
        line currentx+3,currenty+3,mousex()-3,mousey()-3
      endif
     endif
    endif
   `-|LINE|-

if mousex()>=480 then gosub overline
   
  currentx=mousex()
  currenty=mousey()

ink rgb(255,0,0),0
  line 480,0,480,500
  set text opaque
  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

ink rgb(0,255,0),0
  text 485,40,"                       "
  text 485,40,"Green:   "+STR$(g)+"  "

ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "

ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

line 595,20,620,20

line 620,20,620,80

line 595,80,620,80
  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "
   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1
   if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif

if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0

if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()

trigger=0
 realr=r
 realg=g
 realb=b
   if inkey$()="F" then position mouse rnd(478),rnd(500)
ink rgb(255,255,255),0
center text 620,425,"C"
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#

sync
loop

confirm:
do
  if inkey$()="Y" then cls : return
  if inkey$()="n" then return
 sync
loop

overline:
do
  ink rgb(rnd(200)+150,0,0),0
  line 480,0,480,500

if inkey$()="y" then exit
  if inkey$()="n" then position mouse 479,mousey() : return
  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return

sync
loop

do
if mousex()>600 and mousey()>400 and mouseclick()=1
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#

ink rgb(255,255,255),0
center text 620,425,"C"

ink rgb(255,255,255),0
show mouse

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1

`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while thingy<600
    ink rgb(255,255,255),0
    
     if itrigger<>1 then x=x+inricatevalue#
    
     if x>=658 and itrigger2=0 then y=y+inricatevalue#
    
     if x>=658 then itrigger=1
    
     if y>=500 then itrigger2=1
    line 320,240,x,y
     if itrigger2=1 then x=x-inricatevalue#
    
     if x=0 and y>=500 and itrigger2=1 then itrigger3=1
    
     if itrigger3=1 then y=y-inricatevalue#
    
     if itrigger3=1 then itrigger2=0
wait 2
     if y=0 and x=0
      itrigger=0
      itrigger2=0
      itrigger3=0
     endif
thingy=thingy+1
  sync
endwhile
thingy=0
      itrigger=0
      itrigger2=0
      itrigger3=0
cls
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
ink rgb(255,255,255),0
center text 620,425,"C"
else
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
endif

set text opaque
  ink rgb(255,255,255),0
  line 480,0,480,500
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

ink rgb(0,255,0),0
  text 485,40,"                     "
  text 485,40,"Green:   "+STR$(g)+"  "

ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "
  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

line 595,20,620,20

line 620,20,620,80

line 595,80,620,80

if mousex()<480 then return
   if mouseclick()=2 then gosub confirm

ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "

if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1

ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif

if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0

if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()

remend
 sync
loop

+ Code Snippet

`-=-=-=-Paint-=-=-=-
`--------V1.6-------
`----Designed By Irojo----
`
`Note: Go ahead and build off this if you want.

boxsize=1
i=1
x11#=600
y11#=400
x12#=700
y12#=400

x21#=600
y21#=400
x22#=600
y22#=600
sync on : sync rate 0
print "    Instructions for Version 1.6 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing" 
print "and you will be required to press (y)es or (n)o to continue, in order to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems." 
print " "
print " The Arrow keys are used to set the pensize."
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
suspend for key
cls
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print " "
print " To Make a Random Splatter art effect, Hold [SHIFT]+" f " and left click."
print " There is a box in the bottom right-hand corner of editor mode,"
print "with a "C" On the middle of it. If you click on this box, the screen will"
print "be cleared."
print " To change all colors at once, press 'A' to raise them, and 'a' to lower."
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."

do
  if returnkey()=1 then gosub the_program
 sync
loop




the_program:
cls
programsbegin:
currentx=320
currenty=240


do

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1


line 600,400,700,400
line 600,400,600,600



    color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
   if controlkey()=1
    color=point(mousex(),mousey())
    r=rgbr(color)
    g=rgbg(color)
    b=rgbb(color)
   endif

   if inkey$()="x"
   realr=0 : realg=0 : realb=0
   disable=1
   if mouseclick()=1
   if boxsize=1
    ink rgb(0,0,0),0
    box mousex()-3,mousey()-3,mousex()+3,mousey()+3
   endif
    if boxsize=2
     ink rgb(0,0,0),0
     box mousex()-5,mousey()-5,mousex()+5,mousey()+5
     ink rgb(255,255,255),0
    endif
   endif


  trigger=1
  disable=0
  endif
  ink rgb(r,g,b),0
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

   if mouseclick()=2 then gosub confirm


   ` -LINE 2D-
    if Style=0
     if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
      ink rgb(realr,realg,realb),0
       line currentx,currenty,mousex(),mousey()
      endif
     endif


   ` -|LINE 2D|-


   ` -LINE 3D-
   if Style=1
    if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
     if currentx<mousex()
      ink rgb(realr,realg,realb),0
      line currentx-3,currenty-3,mousex()+3,mousey()+3
     endif
     if currentx>mousex()
      ink rgb(realr,realg,realb),0
        line currentx+3,currenty+3,mousex()-3,mousey()-3
      endif
     endif
    endif
   `-|LINE|-



   if mousex()>=480 then gosub overline
   
  currentx=mousex()
  currenty=mousey()

  ink rgb(255,0,0),0
  line 480,0,480,500
  set text opaque
  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                       "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "

  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80
  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "
   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1
   if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif

  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0


  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()


 trigger=0
 realr=r
 realg=g
 realb=b
   if inkey$()="F" then position mouse rnd(478),rnd(500)
ink rgb(255,255,255),0
center text 620,425,"C"
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#


 sync
loop

confirm:
do
  if inkey$()="Y" then cls : return
  if inkey$()="n" then return
 sync
loop

overline:
do
  ink rgb(rnd(200)+150,0,0),0
  line 480,0,480,500

  if inkey$()="y" then exit
  if inkey$()="n" then position mouse 479,mousey() : return
  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return

 sync
loop





do
if mousex()>600 and mousey()>400 and mouseclick()=1
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#

ink rgb(255,255,255),0
center text 620,425,"C"

ink rgb(255,255,255),0
show mouse

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1

`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while thingy<600
    ink rgb(255,255,255),0
    
     if itrigger<>1 then x=x+inricatevalue#
    
     if x>=658 and itrigger2=0 then y=y+inricatevalue#
    
     if x>=658 then itrigger=1
    
     if y>=500 then itrigger2=1
    line 320,240,x,y
     if itrigger2=1 then x=x-inricatevalue#
    
     if x=0 and y>=500 and itrigger2=1 then itrigger3=1
    
     if itrigger3=1 then y=y-inricatevalue#
    
     if itrigger3=1 then itrigger2=0
wait 2
     if y=0 and x=0
      itrigger=0
      itrigger2=0
      itrigger3=0
     endif
thingy=thingy+1
  sync
endwhile
thingy=0
      itrigger=0
      itrigger2=0
      itrigger3=0
cls
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
ink rgb(255,255,255),0
center text 620,425,"C"
else
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
endif



set text opaque
  ink rgb(255,255,255),0
  line 480,0,480,500
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                     "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "
  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80

   if mousex()<480 then return
   if mouseclick()=2 then gosub confirm

  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "

   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1

  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif


  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0



  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()

remend
 sync
loop

I have mad skills. I can make a dot follow your mouse in 2d. Don't try and tell me someone has done that before.

Back to top

Profile PM Email Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 8th Jul 2008 00:30

Link

Somewhere in TDK's tutorials there must be some sprite stuff. I'm not sure where to look based on the headings though. Maybe the 2d space invaders.

Take a look at:
http://forum.thegamecreators.com/?m=forum_view&t=34076&b=4

That should give you a good starting point.

Enjoy your day.

Back to top

Profile PM

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 8th Jul 2008 00:55

Link

Ok thanks... I'll look through that tutorial.

I have mad skills. I can make a dot follow your mouse in 2d. Don't try and tell me someone has done that before.

Back to top

Profile PM Email Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 8th Jul 2008 03:40 Edited at: 8th Jul 2008 03:44

Link

Throughout the forums there is a lot of informatino about sprites. I've responded to many posts on the DBC board alone. I'm not up to writing a complete tutorial but I can give you a few basics that may be helpful.

What is a Sprite?
In relation to DBC, a Sprite is an image that is self redrawing. It can be set to have any truly Black colored areas be transparent. A Sprite can also be set to have collision detection between itself and other Sprites.

A Sprite always appears on the main drawing screen (bitmap 0) and there are several built in DBC functions that can be used to control it's size, position, and to a limited degree, it's orientation.

What do I mean by self redrawing? As opposed to a standard Image object in DBC, a Sprite can redraw itself without the need of a loop or additional code. This means that until it is hidden or moved off screen, it will always appear. Those characteristics (and it's collision detection ability) are really what set it apart from a standard Image. A programmer will find this useful because the tasks of redrawing the Sprite itself and the background are reduced greatly. And since a sprite always redraws itself, it will appear on top of every other graphic on the screen (including 3d) - so it can be useful to hide areas of the screen.

How do I make a Sprite?
A sprite is created using the Sprite command:
SPRITE Sprite Number, X, Y, Image Number

The sprite number is the number you assign to the sprite. It can range from 1 to 65535 so you can make plenty!

Note: Sprites quickly eat up the CPU cycles and reduce performance, so managing them and limiting their numbers properly is important.

X,Y are the x and y pixels positions of the screen. X reads from 0 to screen width -1 from left to right and Y read from 0 to screen height -1 from top to bottom. The sprite will be drawn at the X,Y position starting from the sprites upper left hand corner.

Image Number is the previously created or loaded Image object that will be assigned to the sprite. This is also another area where a Sprite makes things easier for a programmer. You can essentially animate a sprite by cycling through a series of previously defined images.

A little bit more on Sprite Images and Animations:
Sprite Sheets

Sprite Positioning:
Using the X,Y coordinates, one can move the sprite around the screen by changing these values. Here's a quick example that will move a green square Sprite across the screen from left to right:

+ Code Snippet

sync on
sync rate 60

rem set color to green
ink rgb(0,255,0),0

rem make a box that will be the sprite image
box 0,0,127,127
rem grab the image and assign it as image 1
get image 1,0,0,128,128

rem clear the screen
cls 0

rem loop to move the sprite across the screen
rem setting the initial X and Y to off screen out of view
x=-133
y=0

do
   rem increase x by 5 pixels each time through the loop
   inc x,5
   rem if the square makes all the way across, reset it
   if x >= screen width() then x=-133

   rem create sprite 1 from image 1 and position it at x,y
   Sprite 1,x,y,1

   sync
loop

The Sprite can also be positioned using an input device like a keyboard, mouse, joystick, etc. In the following example, we'll use the arrow keys on the keyboard to change x and y:

+ Code Snippet

sync on
sync rate 60

rem set color to green
ink rgb(0,255,0),0

rem make a box that will be the sprite image
box 0,0,127,127
rem grab the image and assign it as image 1
get image 1,0,0,128,128

rem clear the screen
cls 0

do
   rem check left and right arrows
   if rightkey()=1 then inc x,5
   if leftkey()=1 then dec x,5
   rem if the square makes all the way across, reset it
   if x >= screen width() then x=-133
   if x < -133 then x=screen width()

   rem check up down arrows
   if upkey()=1 then dec y,5
   if downkey()=1 then inc y,5
   rem if the square makes it all the way, reset it
   if y >= screen height() then y=-133
   if y < -133 then y=screen height()

   rem create sprite 1 from image 1 and position it at x,y
   Sprite 1,x,y,1

   sync
loop

Enjoy your day.

Back to top

Profile PM

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 8th Jul 2008 03:44 Edited at: 8th Jul 2008 04:04

Link

Thank you so much Latch. That is extremely helful for me. I appreciate your time.

I'm going to learn alot from this.

[EDIT]
On the topic...
I've seen in many codes people use 'data' and it usually has to do with sprite images. How do people define that data is for a certain sprite, if they have more then one? And any extra info on data?

Example:

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

[EDIT 2]
Thanks to your help, I'm really starting to get this. Here's a program that demonstrates Sprite images. Thanks again.

+ Code Snippet

ink rgb(0,255,0),0
box 0,0,127,127
get image 1,0,0,128,128
box 0,0,100,100
get image 2,0,0,101,101
x=-133
cls

do
  inc x,5
  if x>=screen width() then x=-133
  Sprite 1,x,240,1
  if spacekey()=1 then Sprite 1,x,240,2
  sync
loop

I have mad skills. I can make a dot follow your mouse in 2d. Don't try and tell me someone has done that before.

Back to top

Profile PM Email Website

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 8th Jul 2008 04:08

Link

Never really seen that, but I can explain the data command to you.

Basically, data is just a list of information. It can contain strings, floats, or integers. Each piece of information is separated by a comma. The catch is that it all must be the same type of information (one line of data must be all strings, or all floats, etc etc).

To get the data out of the list of data, you use the READ command to read the next piece of data into a variable. You can use data for anything, and reading information to be applied to sprites can be useful, I can imagine. Having never seen it applied this way, I can't begin to guess what it is used for.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 8th Jul 2008 04:09

Link

The DATA keyword provides a list of numerical or string data (imagine that!

). It is used in conjunction with the READ command. The values contained in data statments can be used for all kinds of things. The are basically set up to store information to make things easier to organize or enumerate.

Data statements do not apply to Sprites only. They can be used to store information about anything. The data is read back using READ which assigns each data item being read to a variable. The data is read back 1 item at a time per READ statement encountered.

It's up to you how you decide to use the data. You could store the positions of a sprite. You always identify your sprite by the first parameter of the Sprite command: SPRITE <sprite number>

Sometimes you want to start reading data from the top of the stack again after it has been read. Remember, as you invoke READ, the next item of data is automatically pointed to. If you read in all of the data, the pointer will be at the end of the data. To reset the "data counter" use the command RESTORE.

The following examples just shows how to assign and read the different data types to the proper variable types:

+ Code Snippet

rem read an integer
for n=1 to 3
   read a
   print a
next n

print

rem read a float
for n=1 to 3
   read b#
   print b#
next n

print

rem read string
for n=1 to 3
   read c$
   print c$
next n

data 4,7,1000
data 4567.32,.043,.123.7
data "Data","Is","Useful"

Enjoy your day.

Back to top

Profile PM

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 8th Jul 2008 05:40 Edited at: 8th Jul 2008 06:12

Link

Thanks guys... I had my example of data in use... and then... Dark Basic crashed on me!

Don't worry... I'll do it again.

[EDIT]
Finished.
Recognize this style now?

+ Code Snippet

x=320
y=240

for m=1 to 20
  read a
   if a=1 then box x,y,x+3,y+3
  x=x+5
next m
inc y,10
x=320
for n=1 to 20
  read b
   if b=1 then box x,y,x+3,y+3
  x=x+5
next n
inc y,10
x=320
for o=1 to 20
  read c
   if c=1 then box x,y,x+3,y+3
  x=x+5
next o

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

[EDIT 2]
So the get image command is basically just taking a picture?

I have mad skills. I can make a dot follow your mouse in 2d. Don't try and tell me someone has done that before.

Back to top

Profile PM Email Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 8th Jul 2008 06:55

Link

OOOPS! I must've been typing at the same time as BN2! And I was beaten to the post!

Enjoy your day.

Back to top

Profile PM

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 8th Jul 2008 17:11 Edited at: 11th Jul 2008 03:33

Link

[REMOVED]

I urge you to watch the film "Who killed the electric car". Support electric cars! Did you know their used to be more electric cars then gassoline cars?

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Sprite Tutorial