home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / basic3d / exam03.dba < prev    next >
Encoding:
Text File  |  2000-01-25  |  1.7 KB  |  79 lines

  1. Rem * Title  : Amending Models
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st Sept 99
  4. rem ===============================================
  5. rem DARK BASIC EXAMPLE PROGRAM 3
  6. rem ===============================================
  7. rem This program adds to and amends your model data
  8. rem -----------------------------------------------
  9.  
  10. rem Load your object
  11. load object "idle.x",1
  12.  
  13. rem Add walk animation data to your object appending to frame 100
  14. append object "walk.x",1,100
  15.  
  16. rem Reset model so character faces Y angle of zero 
  17. rotate object 1,0,180,0
  18. fix object pivot 1
  19.  
  20. rem Rotate model to face right
  21. yrotate object 1,90
  22.  
  23. rem Set the properties of your model to wireframe and unculled
  24. set object 1,0,1,0
  25.  
  26. rem Alternatively, an extra flag can determine texture filtering
  27. set object 1,0,1,0,0
  28.  
  29. rem Set new speed for your model
  30. set object speed 1,20
  31.  
  32. rem Animate your object
  33. loop object 1
  34.  
  35. rem Set object to interpolate to a new frame at a speed of 25%
  36. set object interpolation 1,25
  37.  
  38. rem Activate manual sync
  39. sync on
  40.  
  41. rem Begin main loop
  42. while mouseclick()=0
  43.  
  44. rem If walk animation required, make sure can perform animation
  45. if animpause=0
  46.     animpause=4
  47.     if upkey()=1
  48.         if animstate=0
  49.             rem then slowly interpolate to the first walk frame
  50.             animstate=1 
  51.             stop object 1
  52.             set object frame 1,105
  53.         endif
  54.     else
  55.         if animstate=1
  56.             rem else slowly interpolate to the first idle frame
  57.             animstate=0
  58.             stop object 1
  59.             set object frame 1,0
  60.         endif
  61.     endif
  62. else
  63.     rem Count down until the interpolation has finished
  64.     animpause=animpause-1
  65.     if animpause=0
  66.         if animstate=0 then loop object 1,0,20
  67.         if animstate=1 then loop object 1,105,125
  68.     endif
  69. endif
  70.  
  71. rem Syncronise
  72. sync
  73.  
  74. rem End main loop
  75. endwhile
  76.  
  77. rem End the program
  78. end
  79.