home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / world / world2-example.dba < prev   
Encoding:
Text File  |  2004-09-22  |  1.9 KB  |  78 lines
  1. rem Terrain Functionality
  2.  
  3. rem Standard Setup Code for all examples
  4. sync on : sync rate 0 : color backdrop 0
  5. set text font "arial" : set text size 16
  6. set text to bold : set text transparent
  7.  
  8. rem Make Simple Terrain
  9. TerrainNumber=1
  10. make terrain TerrainNumber,"land.bmp"
  11.  
  12. rem Position The Terrain
  13. position terrain TerrainNumber, 0, 0, 1025
  14.  
  15. rem Texture terrain
  16. ImageNumber=1
  17. load image "grass.bmp",ImageNumber
  18. texture terrain TerrainNumber,ImageNumber
  19. size#=1025
  20.  
  21. rem Load sky object
  22. load object "sky\sb.x",1
  23. scale object 1,40,40,40
  24. set object cull 1,0
  25. set object light 1,0
  26. set object texture 1,2,1
  27.  
  28. rem Position camera in center of terrain
  29. position camera 512,10,512
  30.  
  31. rem Main loop
  32. desc$="LOD Terrain from Bitmap"
  33. while mouseclick()=0
  34.  
  35. rem Control camera over terrain
  36. control camera using arrowkeys 0,1,1
  37. cx#=camera position x(0)
  38. cz#=camera position z(0)
  39. if cx#<0.0 then cx#=0
  40. if cx#>size# then cx#=size#
  41. if cz#<0.0 then cz#=0
  42. if cz#>size# then cz#=size#
  43. position camera cx#,get terrain height(TerrainNumber,cx#,cz#)+5,cz#
  44.  
  45. rem Terrain Data
  46. set cursor 0,0
  47. print "TERRAIN DATA"
  48. print " exist:";terrain exist(TerrainNumber)
  49. if terrain exist(TerrainNumber)=1
  50.  print " x:";terrain position x(TerrainNumber)
  51.  print " y:";terrain position y(TerrainNumber)
  52.  print " z:";terrain position z(TerrainNumber)
  53.  print " height:";get terrain height(TerrainNumber, cx#, cz#)
  54.  print " totalheight:";get total terrain height(TerrainNumber)
  55. endif
  56. print
  57. print "CAMERA DATA"
  58. print " x:";camera position x(0)
  59. print " y:";camera position y(0)
  60. print " z:";camera position z(0)
  61.  
  62. rem Position sky at player
  63. position object 1,camera position x(0),camera position y(0)-150,camera position z(0)
  64.  
  65. rem Show Framerate
  66. text 20,screen height()-40,desc$
  67. fps$="DBPro Fps: "+str$(screen fps())
  68. text screen width()-20-text width(fps$),screen height()-40,fps$
  69.  
  70. rem Update screen
  71. sync
  72.  
  73. rem End loop
  74. endwhile
  75.  
  76. rem Delete Terrain
  77. delete terrain TerrainNumber
  78.