Use dark basic pro to use 3ds madels to create your own sprite sheets from them,here is the code to do this,just use a 3d model and put the name of it in the code where it says filename and also the texture where it says texture.
sync rate 20
first=0
last=0
global SavedMouseZ as integer = 0
backdrop off
set cursor 10,20
INPUT "Type in the first frame>";first
set cursor 10,50
PRINT "first frame is ";first
set cursor 300,20
INPUT "Type in the last frame>";last
set cursor 300,50
PRINT "last frame is ";last
wait 500
backdrop on
Imw=5 `How many images you want across in the final image
frameskip=1 `How many frames you want skip (so if it's set to 2 it will skip every other frame)
filename$="Reptilian" `name of object
sw=screen width()
sh=screen height()
spr=sw/2+100
spb=sh/2+100
spl=sw/2-(spr-sw/2)
spt=sh/2-(spb-sh/2)
color backdrop rgb(0,0,253)
load object filename$+".x",1
load image "Reptilian_noweap_D2.dds",10000
texture object 1,10000
scale object 1,50,50,50
ox#=camera position x()
oy#=object size y(1)/2
oz#=camera position z()
loop object 1,first,last
repeat
set cursor 0,0
print "Click and drag box to set the size of the image"
print "Use up and down keys to center the object"
print "Use left and right keys to center the object"
print "Use "r" "t" keys to rotate object"
print "To zoom use mousewheel"
print "Press enter key to compile"
if mouseclick()=1
spr=mousex()
spb=mousey()
spl=sw/2-(spr-sw/2)
spt=sh/2-(spb-sh/2)
endif
a2box spl,spt,spr,spb,rgb(0,255,255)
text spr+1,spb+1,str$(spr-spl)+"x"+str$(spb-spt)
position camera ox#,oy#,oz#
if upkey()=1 then dec oy#,1
if downkey()=1 then inc oy#,1
mmz=mousemovez()
if mmz=>120
inc oz#, 3
endif
if mmz=<-20
dec oz#, 3
endif
if keystate(20)=1 then YRotate Object 1, WrapValue(Object Angle Y(1) - 1)
if keystate(19)=1 then YRotate Object 1, WrapValue(Object Angle Y(1) + 1)
if rightkey()=1 then dec ox#
if leftkey()=1 then inc ox#
until returnkey()=1
stop object 1
set camera to image 0,1,sw,sh
sync
tof=last rem last frame of animation here
maxim=1
for x=first to tof step frameskip rem x=the first number frame animation here
inc maxim
set object frame 1,x
sync
paste image 1,0,0
get image maxim,spl,spt,spr,spb,1
next x
delete object 1
maxim#=maxim
maxy=int((2-maxim#)/imw)*(spt-spb)
maxx=Imw*(spr-spl)
for x=2 to maxim `Removes any black pixels from the object and converts the background to black
cls 0
paste image x,0,0
for ix=0 to image width(x)
for iy=0 to image height(x)
p=point(ix,iy)
r=rgbr(p)
g=rgbg(p)
b=rgbb(p)
if r+g+b=0 then a2dot ix,iy,rgb(1,1,1)
if r+g=0 and b=253 then a2dot ix,iy,rgb(0,0,0)
next iy
next ix
get image x,0,0,image width(x),image height(x),1
if escapekey()=1 then end
text 0,image height(x),"Compiling.."
sync
next x
cls 0
create bitmap maxim+1,maxx,maxy
for x=2 to maxim
paste image x,xpos,ypos
inc imwidth
inc xpos,spr-spl
if imwidth>imw then inc ypos,spb-spt:xpos=0:imwidth=0
next x
get image maxim+2,0,0,maxx,maxy,1
if file exist(Filename$+".bmp") then delete file Filename$+".bmp"
save image Filename$+".bmp",maxim+2
my signature keeps being erased by a mod So this is my new signature.
