home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / input / exam12.dba < prev    next >
Encoding:
Text File  |  2000-01-24  |  1.2 KB  |  52 lines
  1. Rem * Title  : Mouselook
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 20th Nov 1999
  4. rem ============================================
  5. rem DARK BASIC EXAMPLE PROGRAM 12
  6. rem ============================================
  7. rem This program creates a mouselook effect
  8. rem --------------------------------------------
  9.  
  10. rem Manual sync
  11. sync on
  12.  
  13. rem Use a 3D plain object to create your target
  14. make object plain 2,20,20
  15. position object 2,0,0,200
  16. lock object on 2
  17. ink rgb(255,255,255),0
  18. circle 16,16,13 : circle 16,16,4
  19. get image 1,0,0,32,32
  20. texture object 2,1
  21. set object 2,1,0,0
  22.  
  23. rem Make simple 3D scene
  24. set camera range 1,5500
  25. make matrix 1,6000,6000,25,25
  26. position matrix 1,-3000,0,-3000
  27. make object sphere 1,5000
  28. set object 1,1,0,0
  29. position camera 0,100,0
  30.  
  31. rem Begin loop
  32. do
  33.  
  34. rem Crude way to fix mouse pointer (hide this and run again)
  35. position mouse 320,240
  36.  
  37. rem Use MOUSEMOVE to alter camera angles
  38. cx#=wrapvalue(cx#+mousemovey())
  39. cy#=wrapvalue(cy#+mousemovex())
  40. cz#=wrapvalue(cz#+mousemovez())
  41. rotate camera cx#,cy#,cz#
  42.  
  43. rem Simple movement
  44. if upkey()=1 then move camera 25
  45. if downkey()=1 then move camera -25
  46.  
  47. rem Update screen
  48. sync
  49.  
  50. rem End loop
  51. loop
  52.