home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / sprite / sprite2-example.dba < prev   
Encoding:
Text File  |  2004-09-22  |  1.8 KB  |  59 lines
  1. rem Sprite Functionality
  2.  
  3. load image "image.bmp",1 : load image "image.bmp",2
  4.  
  5. rem Main loop
  6. do
  7.  
  8. rem Produce random values
  9. SpriteNumber=rnd(22000000)
  10. BackSave=rnd(2)
  11. Transparency=rnd(1)
  12. X=rnd(640)
  13. Y=rnd(480)
  14. ImageNumber=1+rnd(1)
  15. XSize=rnd(64)
  16. YSize=rnd(64)
  17. Scale=rnd(100)
  18. XScale=rnd(100)
  19. YScale=rnd(100)
  20. TargetSpriteNumber=rnd(22000000)
  21.  
  22. rem Try each command at random
  23. SPRITE SpriteNumber, X, Y, ImageNumber
  24. if rnd(100)=1 then SET SPRITE SpriteNumber, BackSave, Transparency
  25. if rnd(5)=1 then SIZE SPRITE SpriteNumber, XSize, YSize
  26. if rnd(5)=1 then SCALE SPRITE SpriteNumber, Scale
  27. if rnd(5)=1 then STRETCH SPRITE SpriteNumber, XScale, YScale
  28. if rnd(5)=1 then OFFSET SPRITE SpriteNumber, X, Y
  29. if rnd(5)=1 then MIRROR SPRITE SpriteNumber
  30. if rnd(5)=1 then FLIP SPRITE SpriteNumber
  31. if rnd(5)=1 then PASTE SPRITE SpriteNumber, X, Y
  32. if rnd(5)=1 then HIDE SPRITE SpriteNumber
  33. if rnd(5)=1 then SHOW SPRITE SpriteNumber
  34. if rnd(5)=1 then HIDE ALL SPRITES
  35. if rnd(5)=1 then SHOW ALL SPRITES
  36.  
  37. rem Display data
  38. set cursor 0,0
  39. print "SPRITE EXPRESSION DATA"
  40. print
  41. print "sprite:";SpriteNumber
  42. print "exist:";SPRITE EXIST(SpriteNumber)
  43. print "x:";SPRITE X(SpriteNumber)
  44. print "y:";SPRITE Y(SpriteNumber)
  45. print "offsetx:";SPRITE OFFSET X(SpriteNumber)
  46. print "offsetx:";SPRITE OFFSET Y(SpriteNumber)
  47. print "width:";SPRITE WIDTH(SpriteNumber)
  48. print "height:";SPRITE HEIGHT(SpriteNumber)
  49. print "image:";SPRITE IMAGE(SpriteNumber)
  50. print "scalex:";SPRITE SCALE X(SpriteNumber)
  51. print "scaley:";SPRITE SCALE Y(SpriteNumber)
  52. print "mirrored:";SPRITE MIRRORED(SpriteNumber)
  53. print "flipped:";SPRITE FLIPPED(SpriteNumber)
  54. print "hit:";SPRITE HIT(SpriteNumber, TargetSpriteNumber)
  55. print "collision:";SPRITE COLLISION(SpriteNumber, TargetSpriteNumber)
  56. if rnd(5)=1 then DELETE SPRITE SpriteNumber
  57.  
  58. loop
  59.