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