home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / SPRTTST2.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-10-11  |  1.2 KB  |  32 lines
  1.  
  2.     loadbmp "smiley1", "sprites\smiley1.bmp"
  3.     loadbmp "smiley2", "sprites\smiley2.bmp"
  4.     loadbmp "smiley3", "sprites\smiley3.bmp"
  5.     loadbmp "smiley4", "sprites\smiley4.bmp"
  6.     loadbmp "landscape", "sprites\bg1.bmp"
  7.     WindowHeight = 300
  8.     WindowWidth = 400
  9.     'graphicbox #wg, 0, 0, 400, 300
  10.     open "sprite test" for graphics_nf_nsb as #wg
  11.     print #wg, "background landscape";
  12.     print #wg, "addsprite smiley smiley1 smiley2 smiley3 smiley4";
  13.     print #wg, "addsprite smiler smiley1 smiley2 smiley3 smiley4";
  14.     print #wg, "addsprite smiled smiley1 smiley2 smiley3 smiley4";
  15.     print #wg, "addsprite smiles smiley1 smiley2 smiley3 smiley4";
  16.     print #wg, "cyclesprite smiley 1 once"
  17.     print #wg, "cyclesprite smiler 1"
  18.     print #wg, "cyclesprite smiled 1"
  19.     print #wg, "cyclesprite smiles 1"
  20.     for x = 1 to 100 step 2
  21.         print #wg, "spritexy smiley "; x; " "; x
  22.         print #wg, "spritexy smiler "; 100-x; " "; x
  23.         print #wg, "spritexy smiled "; 100-x; " "; 100-x
  24.         print #wg, "spritexy smiles "; x; " "; 100-x
  25.         print #wg, "drawsprites";
  26.         print #wg, "spritecollides smiley list$"
  27.         if list$ > "" then print #wg, "cyclesprite smiley 1 once"
  28.     next x
  29.  
  30.     input a$
  31.  
  32.