home *** CD-ROM | disk | FTP | other *** search
/ DarkBASIC - The Ultimate 3D Game Creator / PCactive 8 CD1 - DarkBasic.iso / SOFTWARE / DEMOS / LipSync / limbcount.dba next >
Encoding:
Text File  |  2001-01-23  |  916 b   |  30 lines
  1. `limbcount.dba, a little utility to help figure out which limb
  2. `corresponds to which mouth shape...
  3. `You click the mouse and write down the limb # and what it is.
  4. `First run move.dba for Position Object numbers so the mouths
  5. `display large enough that you can determine which shape they are...
  6.  
  7. `load your .X object...
  8. load object "bmp\mouth.x",1
  9.  
  10. `get these numbers from move.dba...
  11. position object 1,5.5,-0.9,-14.9
  12. rotate object 1,4,2,0
  13.  
  14. `figure out how many limbs it has, hide them all...
  15. perform checklist for object limbs 1
  16. numberoflimbs=checklist quantity()
  17. for t=1 to numberoflimbs : hide limb 1,t : next t
  18. `then show them one at a time, waiting for mouse clicks...
  19. for j=1 to numberoflimbs
  20.    for t=1 to numberoflimbs : hide limb 1,t : next t
  21.    show limb 1,j
  22.    while mouseclick()=0
  23.       text 20,20,"Limb "+str$(j)
  24.       sync
  25.    endwhile
  26.    wait 300
  27. next j
  28. delete object 1
  29. end
  30.