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