home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / anim / exam03.dba < prev    next >
Encoding:
Text File  |  1999-11-15  |  945 b   |  43 lines
  1. Rem * Title  : Load and Move AVI
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ==========================================
  5. rem DARK BASIC AVI ANIMATION EXAMPLE PROGRAM 3
  6. rem ==========================================
  7. rem This program will move the AVI around
  8. rem ------------------------------------------
  9.  
  10. rem Specify your AVI filename and an animation number
  11. load animation "avi\demo1.avi",1
  12.  
  13. rem Get width of the AVI animation
  14. animwidth=animation width(1)
  15.  
  16. rem Get height of the AVI animation
  17. animheight=animation height(1)
  18.  
  19. rem Will play your AVI animation
  20. loop animation 1
  21.  
  22. rem Manual sync
  23. sync on
  24.  
  25. rem Will wait for you to press any key while moving animation
  26. while inkey$()=""
  27.  
  28.     rem Place your AVI sliding across the screen
  29.     cls
  30.     x=x+1
  31.     place animation 1,x,0,x+animwidth,animheight
  32.  
  33.     rem Update screen
  34.     sync
  35.  
  36. endwhile
  37.  
  38. rem Delete the animation
  39. delete animation 1
  40.  
  41. rem End the program
  42. end
  43.