home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / SPRITTST.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-21  |  681 b   |  24 lines
  1.  
  2.  
  3.     loadbmp "smiley1", "sprites\smiley1.bmp"
  4.     loadbmp "smiley2", "sprites\smiley2.bmp"
  5.     loadbmp "smiley3", "sprites\smiley3.bmp"
  6.     loadbmp "smiley4", "sprites\smiley4.bmp"
  7.     loadbmp "landscape", "sprites\bg1.bmp"
  8.     WindowHeight = 300
  9.     WindowWidth = 400
  10.     graphicbox #w.g, 0, 0, 400, 300
  11.     open "sprite test" for window_nf as #w
  12.     graphicbox #w.g, 0, 0, 400, 300
  13.     print #w.g, "background landscape";
  14.     print #w.g, "addsprite smiley smiley1 smiley2 smiley3 smiley4";
  15.     print #w.g, "cyclesprite smiley 1"
  16.     for x = 1 to 100
  17.     print #w.g, "spritexy smiley "; x; " "; x
  18.     print #w.g, "drawsprites";
  19.     next x
  20.  
  21.     input a$ 
  22.  
  23.  
  24.