Sorry your browser is not supported!

REM Project: Medialess Sprites
REM Created: 12/6/2006 8:23:26 AM
REM
REM ***** Main Source File *****
REM
REM **** Media-Less Sprites ****

build_sprites()

do
   sprite 1,mousex()-120,mousey(),1
   sprite 2,mousex()-80,mousey(),2
   sprite 3,mousex()-40,mousey(),3
   sprite 4,mousex(),mousey(),4
   sprite 5,mousex()+40,mousey(),5
   sprite 6,mousex()+80,mousey(),6
loop

function build_sprites()

   create bitmap 1,33,33
   set current bitmap 1

   for row=0 to 32
      for col=0 to 32
         read ic
         if ic=0 : ink 0,0 : endif
         if ic=1 : ink rgb(128,87,43),0 : endif
         if ic=2 : ink rgb(166,125,81),0 : endif
         if ic=3 : ink rgb(204,163,119),0 :endif
         if ic=4 : ink rgb(242,201,157),0 : endif
         if ic=5 : ink rgb(255,237,193),0 : endif
         if ic=7 : ink rgb(22,22,22),0 : endif
         dot col,row
      next col
   next row

   get image 8,14,1,20,7,1   `this is a blank
   get image 9,14,14,20,20,1 `this is the dot
   get image 1,0,0,33,33,1
   sprite 1,0,0,1
   paste image 8,14,14
   paste image 9,5,5 : paste image 9,23,22 : ink rgb(166,125,81),0 : dot 28,27
   get image 2,0,0,33,33,1
   sprite 2,0,0,2
   paste image 8,5,5 : paste image 8,23,22 : ink rgb(166,125,81),0 : dot 28,27
   paste image 9,5,22 : paste image 9,14,14 : paste image 9,23,5 `: ink rgb(166,125,81),0 : dot 28,27
   get image 3,0,0,33,33,1
   sprite 3,0,0,3
   paste image 8,5,22 : paste image 8,14,14 : paste image 8,23,5 `: ink rgb(166,125,81),0 : dot 28,27
   paste image 9,5,5 : paste image 9,23,5 : paste image 9,5,22 : paste image 9,23,22 : ink rgb(166,125,81),0 : dot 28,27
   get image 4,0,0,33,33,1
   sprite 4,0,0,4
   paste image 9,14,14
   get image 5,0,0,33,33,1
   sprite 5,0,0,5
   paste image 8,14,14
   paste image 9,5,14 : paste image 9,23,14
   get image 6,0,0,33,33,1
   sprite 6,0,0,6
   hide mouse

   set current bitmap 0

endfunction

data 0,0,0,1,1,2,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,4,3,2,2,1,1,0,0,0
data 0,0,1,2,4,5,5,5,5,5,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,2,1,0,0
data 0,1,3,5,5,5,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,1,0
data 1,2,5,5,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,1
data 1,4,5,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,1
data 2,5,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 4,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,3,7,7,7,3,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,7,7,7,7,7,5,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,7,7,7,7,7,5,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,7,7,7,7,7,5,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,3,7,7,7,5,4,4,4,4,4,4,4,4,4,4,4,4,4,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,3,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2
data 5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,2,2
data 3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,2
data 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,2,2,2
data 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,2,2,2,2
data 1,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,2,2,2,2,1
data 1,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,2,2,2,2,2,1
data 0,1,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,2,2,2,2,2,2,1,0
data 0,0,1,2,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,2,2,2,2,2,2,2,2,2,1,0,0
data 0,0,0,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,0,0,0