REM Project: Medialess Sprites
REM Created: 12/6/2006 8:23:26 AM
REM
REM ***** Main Source File *****
REM
REM **** Media-Less Sprites ****
randomize timer()
autocam off
move camera -20
build_sprites()
make object plain 1,5,5
make mesh from object 1,1
offset limb 1,0,0,0,-2.5
texture limb 1,0,1
for i=1 to 5
add limb 1,i,1
next i
texture limb 1,1,6
texture limb 1,2,3
texture limb 1,3,4
texture limb 1,4,5
texture limb 1,5,2
rotate limb 1,2,90,0,0
rotate limb 1,3,-90,0,0
rotate limb 1,4,0,90,0
rotate limb 1,5,0,-90,0
offset limb 1,1,0,0,2.5
offset limb 1,2,0,-2.5,0
offset limb 1,3,0,2.5,0
offset limb 1,4,2.5,0,0
offset limb 1,5,-2.5,0,0
rotate object 1,rnd(360),rnd(360),rnd(360)
set object normals 1
do
rotate object 1,object angle x(1)+upkey()-downkey(),object angle y(1)+rightkey()-leftkey(),0
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
I was bored.