home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / sprite / exam11.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  1.1 KB  |  66 lines

  1. Rem * Title  : Sprite Visibility
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st April 2000
  4. rem ===================================================
  5. rem DARK BASIC EXAMPLE PROGRAM 11
  6. rem ===================================================
  7. rem This program will hide and show a sprite
  8. rem ---------------------------------------------------
  9.  
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(244,214,210),1
  12.  
  13. rem Load a bitmap on to the screen
  14. load bitmap "face.bmp"
  15.  
  16. rem Grab image 1 from bitmap
  17. get image 1,18,17,156,196
  18.  
  19. rem Clear the Screen
  20. cls
  21.  
  22. rem Now we will make 2 sprites
  23. sprite 1,100,100,1
  24. sprite 2,420,100,1
  25.  
  26. repeat
  27.  
  28.     rem Hide one sprite
  29.     hide sprite 1
  30.  
  31.     rem Delay
  32.     sleep 100
  33.  
  34.     rem Show one sprite
  35.     show sprite 1
  36.  
  37.     rem Delay
  38.     sleep 100
  39.  
  40.     rem Hide all sprites
  41.     hide all sprites
  42.  
  43.     rem Delay
  44.     sleep 100
  45.  
  46.     rem Show all sprites
  47.     show all sprites
  48.  
  49.     rem Delay
  50.     sleep 100
  51.  
  52. until mouseclick()=1
  53.  
  54. rem clear the screen
  55. cls 
  56.  
  57. rem remove the sprites
  58. delete sprite 1
  59. delete sprite 2
  60.  
  61. rem remove image 1 from memory
  62. delete image 1
  63.  
  64. rem End the program
  65. end
  66.