I just figured out how to do it...or at least one way to do it.
The code isn't pretty, but it works! Of course, you will have to remove the comment ticks and get the model you want to demo, and you'll have to have the path name right to wherever you have the models stored.
Larry
REM Project: 3dmodels
REM Created: 10/15/2006 11:32:57 AM
REM
REM ***** Main Source File *****
`file$="USA"
`file$="Swat"
`file$="Punk"
`file$="Mummy"
`file$="Ninja"
`file$="Cyborg"
`file$="Hound"
`file$="Knight"
`file$="Alien Hivebrain"
`file$="Android"
file$="Bones"
`file$="Tommy"
choice$=file$+"\H-"+file$+"-"
`file$="Raptor":if file$="Raptor" then choice$=file$+"\M-"+file$+"-"
dim keyframe(6) as integer
sync rate 60
set current bitmap 0
INK rgb(255,255,255),rgb(0,0,0)
text 50,50,"loading..."
sync
Load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\People\"+choice$+"Attack1.3DS", 1
position object 1, 0,-1,0
keyframe(1)=TOTAL OBJECT FRAMES(1)
Append object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\People\"+choice$+"Die.3DS", 1,keyframe(1)
clone object 2,1
keyframe(2)=TOTAL OBJECT FRAMES(2)
Append object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\People\"+choice$+"idle.3DS", 2,keyframe(2)
clone object 3,2
keyframe(3)=TOTAL OBJECT FRAMES(3)
Append object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\People\"+choice$+"Impact.3DS", 3,keyframe(3)
clone object 4,3
keyframe(4)=TOTAL OBJECT FRAMES(4)
Append object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\People\"+choice$+"Move.3DS", 4,keyframe(4)
clone object 5,4
keyframe(5)=TOTAL OBJECT FRAMES(5)
Append object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\3DS\People\"+choice$+"Static.3DS", 5,keyframe(5)
delete object 1
delete object 2
delete object 3
delete object 4
key as string
i as integer
sync
do
INK rgb(255,255,255),rgb(0,0,0)
print "Press number to get corresponding action:"
print "1 = attack"
print "2 = die"
print "3 = idle"
print "4 = impact"
print "5 = move"
print "6 = run-through"
print "7 = exit"
color backdrop rgb(33,55,44)
key = inkey$()
i=val(key)
SET OBJECT SPEED 5,50
keyframe(6)=TOTAL OBJECT FRAMES(5)
scale object 5, 90,90,90
select key
case "1" : animate(1,keyframe(int(i)),5) :endcase
case "2" : animate(keyframe(int(i)-1),keyframe(int(i))-1,5) :endcase
case "3" : animate(keyframe(int(i)-1),keyframe(int(i)),5) :endcase
case "4" : animate(keyframe(int(i)-1),keyframe(int(i)),5) :endcase
case "5" : animate(keyframe(int(i)-1),keyframe(int(i)),5) :endcase
case "6" : animate(1,keyframe(int(i)),5) :endcase
case "7":end :endcase
endselect
loop
function animate(x,y,o)
play object o, x,y
endfunctionLarry
