home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / world / world1-example.dba < prev    next >
Encoding:
Text File  |  2004-09-22  |  970 b   |  42 lines
  1. rem World3D Showcase
  2.  
  3. rem Standard Setup Code
  4. sync on : sync rate 0 : color backdrop rgb(0,0,64) : backdrop on
  5. set text font "arial" : set text size 16
  6. set text to bold : set text transparent
  7.  
  8. rem Loading prompt
  9. sync : center text screen width()/2,screen height()/2,"LOADING" : sync
  10.  
  11. rem Set camera
  12. set camera range 0.1,5000
  13. position camera 2,3,2
  14. rotate camera 0,45,0
  15.  
  16. rem Load BSP world
  17. load bsp "ikzdm1.pk3","ikzdm1.bsp"
  18. set bsp camera collision 1,0,0.75,0
  19. set bsp collision threshhold 1,0.001
  20.  
  21. rem Main loop
  22. desc$="BSP in One Command"
  23. do
  24.  
  25. rem Control camera automatically
  26. control camera using arrowkeys 0,0.1,1
  27.  
  28. rem Apply simple gravity to camera
  29. position camera camera position x(),camera position y()-0.1,camera position z()
  30.  
  31. rem Show Framerate
  32. text 20,screen height()-40,desc$
  33. fps$="DBPro Fps: "+str$(screen fps())
  34. text screen width()-20-text width(fps$),screen height()-40,fps$
  35.  
  36. rem Update screen
  37. sync
  38.  
  39. rem End loop
  40. loop
  41.  
  42.