home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / particles / particles1-example.dba < prev    next >
Encoding:
Text File  |  2004-09-22  |  1.7 KB  |  64 lines
  1. rem Particles Showcase
  2.  
  3. rem Standard Setup Code for all examples
  4. sync on : sync rate 0 : color backdrop rgb(0,128,0)
  5. set text font "arial" : set text size 16
  6. set text to bold : set text transparent
  7. backdrop off
  8.  
  9. rem Load image
  10. ImageNumber=1 : load image "fire.bmp",ImageNumber
  11. ImageNumberB=2 : load image "sky\spacesphere.bmp",ImageNumberB
  12.  
  13. rem Make objects
  14. load object "sky\ss.x",1
  15. scale object 1,150,150,150
  16. set object 1,1,1,1,1,0,0,0
  17. set object texture 1,2,1
  18. set camera range 1,10000
  19. position object 1, 0, 3, 0
  20. yrotate object 1,180
  21. make object box 2,100,20,50
  22. position object 2,0,-25,50
  23. texture object 2,ImageNumberB
  24. ghost object on 2,2
  25.  
  26. rem Make particles
  27. ParticleNumber=1
  28. make particles ParticleNumber, ImageNumber, 50, 20.0
  29. position particles ParticleNumber, 0, -58, 0
  30. color particles ParticleNumber, 255, 128, 0
  31. set particle emissions ParticleNumber, 10
  32. set particle speed ParticleNumber, 0.01
  33. set particle gravity ParticleNumber, 2
  34.  
  35. rem Setup camera
  36. position camera 0,3,0
  37. point camera 0,3,400
  38.  
  39. rem Main loop
  40. desc$="Sparkler Effect (Use Mouse Buttons)"
  41. do
  42.  
  43. rem Spark Drawing
  44. position particle emissions ParticleNumber, (mousex()-320)/40.0, (360-mousey())/40.0, 10
  45. if mouseclick()>1 then color particles ParticleNumber, rnd(255), rnd(255), rnd(255)
  46. if mouseclick()=1 or mouseclick()=3
  47.  set particle emissions ParticleNumber, 10
  48.  set particle velocity ParticleNumber, 4
  49. else
  50.  set particle emissions ParticleNumber, 1
  51.  set particle velocity ParticleNumber, 1
  52. endif
  53.  
  54. rem Show Framerate
  55. text 20,screen height()-40,desc$
  56. fps$="DBPro Fps: "+str$(screen fps())
  57. text screen width()-20-text width(fps$),screen height()-40,fps$
  58.  
  59. rem Update screen
  60. sync
  61.  
  62. rem End loop
  63. loop
  64.