or try to do your own model in DB only.... like that:
print "W=Foward"
print "A=Turn left"
print "D=Turn right"
Print "Arrow Keys=Move Camera"
wait key
set display mode 1024,768,16
backdrop off
set camera range 1,6000
sync on
sync rate 0
dim Ax#(12)
dim Ay#(12)
dim Sens(12)
dim DistY#(6)
x#=25000:z#=25000
for i=1 to 3
sens(i)=1
sens(i+3)=-1
next i
make object sphere 99,10000
color object 99,rgb(175,0,0)
set object 99,1,1,0
create bitmap 1,1024,1024
ink rgb(100,0,0),0
box 0,0,512,512
ink rgb(0,100,0),0
box 512,0,1023,512
ink rgb(0,0,100),0
box 0,512,512,1023
ink rgb(0,0,0),0
box 512,512,1023,1023
get image 1,0,0,1024,1024
delete bitmap 1
make matrix 1,50000,50000,70,70
prepare matrix texture 1,1,1,1
fill matrix 1,0,0
update matrix 1
make object box 1,100,25,200
set object rotation ZYX 1
make object cylinder 2,12
scale object 2,100,400,100
make mesh from object 1,2
delete object 2
make object sphere 3,1
make mesh from object 2,3
delete object 3
for i=1 to 12
add limb 1,i,2
next i
for i=13 to 24
add limb 1,i,1
next i
for i=25 to 30
add limb 1,i,2
next i
for i=1 to 12
link limb 1,i+12,i
next i
for i=7 to 12
Ay#(i-6)=wrapvalue(sens(i-6)*90)
link limb 1,i,i-6
link limb 1,i-6,i+24-6
next i
for i=13 to 24
offset limb 1,i,0,-24,0
next i
for i=1 to 3
offset limb 1,i+24,-50,0,90-((i-1)*90)
offset limb 1,i+24+3,50,0,90-((i-1)*90)
offset limb 1,i+6,0,-48,0
offset limb 1,i+9,0,-48,0
next i
for i=1 to 12
hide limb 1,i
next i
for i=25 to 30
hide limb 1,i
next i
obj=1
patte=1
do
if leftkey()=1 then cy#=wrapvalue(cy#-3)
if rightkey()=1 then cy#=wrapvalue(cy#+3)
if upkey()=1 then cx#=wrapvalue(cx#+3)
if downkey()=1 then cx#=wrapvalue(cx#-3)
sens1=0
if (lower$(inkey$())="w") then sens1=1
if (lower$(inkey$())="a") then yrotate object 1,wrapvalue(object angle y(1)-1):sens1=1
if (lower$(inkey$())="d") then yrotate object 1,wrapvalue(object angle y(1)+1):sens1=1
if sens1<>0
a=a+1
for i=1 to 6
Ay#(i)=(sin(((a*5)+(i*20))*5+(90*sens(i)*-1))*10)+(90*sens(i))
rotate limb 1,i+24,0,wrapvalue(ay#(i)),0
Ax#(i)=wrapvalue((sin(((a*5)+(i*20))*5)*10)+90)
Ax#(i+6)=wrapvalue(-1*Ax#(i))
rotate limb 1,i,Ax#(i),0,0
rotate limb 1,i+6,Ax#(i+6),0,0
next i
for i=1 to 3
if (int(Ax#(i))=80) or (int(Ax#(i+3))=80)
x#=newxvalue(x#,object angle y(1),5*sens1)
z#=newzvalue(z#,object angle y(1),5*sens1)
endif
next i
endif
addy#=0
for i=1 to 6
DistY#(i)=(48*cos(Ax#(i)))+48
if Addy#<Disty#(i) then Addy#=DistY#(i)
next i
y#=get ground height(1,x#,z#)+addy#
position object 1,X#,Y#,Z#
position object 99,x#,y#,z#
if (cx#>80) and (cx#<100) then cx#=80
if (cx#<310) and (cx#>270) then cx#=310
position camera object position x(1),object position y(1),object position z(1)
rotate camera Cx#,wrapvalue(object angle y(1)+Cy#),0
move camera -300
if get ground height(1,camera position x(),camera position z() )>camera position y()
position camera camera position x(),get ground height(1,camera position x(),camera position z() )+5,camera position z()
point camera object position x(1),object position y(1),object position z(1)
endif
sync
loop
or that:
sync on
sync rate 0
hide mouse
backdrop on : color backdrop rgb(150,100,0)
create bitmap 1,1024,1024
ink rgb(100,0,0),0
box 0,0,512,512
ink rgb(0,100,0),0
box 512,0,1023,512
ink rgb(0,0,100),0
box 0,512,512,1023
ink rgb(0,0,0),0
box 512,512,1023,1023
get image 1,0,0,1024,1024
delete bitmap 1
make matrix 1,5000,5000,20,20
prepare matrix texture 1,1,1,1
fill matrix 1,0,0
rem ------------------------------------------------
rem corps
make object box 1,100,200,100
rem bras
make object box 2,30,100,30
make mesh from object 1,2
delete object 2
rem jambe
make object box 2,30,100,30
make mesh from object 2,2
delete object 2
rem point de rotation
make object plain 2,1,1
make mesh from object 3,2
delete object 2
rem faire un object pour le corps....pour collision
make mesh from object 4,1
make object 2,4,0
delete mesh 4
rem adder les bras/jambe au perso
make object 10,2,0
for i=1 to 4
add limb 1,i,1
next i
rem adder les jambes au perso
for i=1 to 4
add limb 1,i+4,2
next i
rem adder les point de rotation au perso
for i=9 to 16
add limb 1,i,3
next i
rem fixer les bras/jambe aux point de rotation
for i=1 to 8
link limb 1,i,i+8
next i
rem fixer les point de rotation aux.....membre ki les font bouger..
for i=1 to 4
link limb 1,8+(2*i),(i*2)-1
next i
rem offsetter les bras/jambe de leur point de rotation
for i=1 to 8
offset limb 1,i,0,-50,0
next i
rem offset les bras/jambe ...du bas ..par rapport..a leur bras/jambe du haut
for i=1 to 4
offset limb 1,8+(i*2),0,-50,0
next i
rem POSITIONNEMENT FINAL: mettre les bras/jambe a la bonne place (en positionnant seulemnt leur point de rotation)
offset limb 1,9,-60,100,0
offset limb 1,11,60,100,0
offset limb 1,13,-40,-100,0
offset limb 1,15,40,-100,0
rem Tete
make mesh from object 4,10
add limb 1,17,4
offset limb 1,17,0,125,0
set object rotation ZYX 1
clear all object keyframes 1
i=1:rotate limb 1,8+((i*3)-(3-i)),45,90,0:rotate limb 1,10+((i*3)-(3-i)),45,270,0:set object keyframe 1,0
rotate limb 1,13,45,0,0:rotate limb 1,14,315,0,0:rotate limb 1,9,45,45,0:rotate limb 1,11,315,90,0:set object keyframe 1,10
rotate limb 1,13,0,0,0:rotate limb 1,14,0,0,0:rotate limb 1,15,45,0,0:rotate limb 1,16,315,0,0:rotate limb 1,9,45,90,0:rotate limb 1,11,315,135,0:set object keyframe 1,20
rotate limb 1,15,0,0,0:rotate limb 1,16,0,0,0:rotate limb 1,13,45,0,0:rotate limb 1,14,315,0,0:rotate limb 1,9,45,45,0:rotate limb 1,11,315,90,0:set object keyframe 1,30
rem -------------------------------------------
delete object 10
delete object 2
x#=2500
z#=4000
y#=0
ink rgb(255,255,255),0
Direction=0
make object plain 100,640.0*0.85,480.0*0.85
position object 100,2500,object size y(100)/2,4500
yrotate object 100,180
make object plain 101,640.0*0.85,480.0*0.85
position object 101,2500,object size y(100)/2,4500+3
position object 1,x#,y#+90,z#
position camera x#,y#+150,z#
rotate camera 25,ay#,0
move camera -250
scale object 1,30,30,30
yrotate object 1,180
fix object pivot 1
UpdateMirroir=0
do
UpdateMirroir=UpdateMirroir+1
NbTouche=LeftKey()+RightKey()+Upkey()+Downkey()
if (upkey()) and (NbTouche=1) then Direction=1
if (downkey()) and (NbTouche=1) then Direction=5
if (leftkey()) and (NbTouche=1) then Direction=7
if (rightkey()) and (NbTouche=1) then Direction=3
if (upkey()) and (leftkey()) (NbTouche=2) then Direction=8
if (upkey()) and (rightkey()) (NbTouche=2) then Direction=2
if (downkey()) and (rightkey()) (NbTouche=2) then Direction=4
if (downkey()) and (leftkey()) (NbTouche=2) then Direction=6
Difx#=camera position x()-x#
Difz#=camera position z()-z#
CamAng#=atanfull(Difx#,Difz#)
Camx#=newxvalue(x#,CamAng#,500)
Camz#=newzvalue(z#,CamAng#,500)
if direction<>0
if object looping(1)=0 then loop object 1,10,30
ay#=wrapvalue(((Direction-1)*45)+(CamAng#-180))
x#=newxvalue(x#,ay#,10)
z#=newzvalue(z#,ay#,10)
direction=0
else
stop object 1
endif
yrotate object 1,ay#
position object 1,x#,y#+90,z#
if sqrt((camera position x()-x#)^2+(camera position z()-z#)^2)>500 then Position Camera CamX#,camera position y(),CamZ#
point camera x#,y#+150,z#
oldcamx#=camera position x()
oldcamy#=camera position y()
oldcamz#=camera position z()
oldcamay#=camera angle y()
oldcamax#=camera angle x()
oldcamaz#=camera angle z()
position camera 2500,200,4500+300
rotate camera 0,180,0
hide object 100
hide object 101
if object position z(1)>4500 then hide object 1
if UpdateMirroir=2
get image 100,0,0,64*2,48*2
texture object 100,100
paste image 200,0,0
set camera view 0,0,64*2,48*2
UpdateMirroir=0
endif
set cursor 0,0
print Screen Fps()
position camera oldcamx#,oldcamy#,oldcamz#
rotate camera oldcamax#,oldcamay#,oldcamaz#
show object 100
show object 101
show object 1
if UpdateMirroir=1 then get image 200,0,0,64*2,48*2
set camera view 0,0,640,480
sync
loop
and i made many other
and i made a "modeler" to do my own model....
