home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / tutorials / tutorial5.dba < prev    next >
Encoding:
Text File  |  2004-09-22  |  1.1 KB  |  78 lines
  1. rem Tutorial 5
  2.  
  3. rem Initial settings
  4. sync on : sync rate 100
  5. backdrop off : hide mouse
  6.  
  7. rem Select font
  8. set text font "arial" : set text size 16
  9. set text to bold : set text transparent
  10.  
  11. rem Loading prompt
  12. sync : center text screen width()/2,screen height()/2,"LOADING" : sync
  13.  
  14. rem Load all media for game
  15. gosub _load_game
  16.  
  17. rem Setup all objects for game
  18. gosub _setup_game
  19.  
  20. rem Game loop
  21. do
  22.  
  23.  rem Control game elements
  24.  gosub _control_player
  25.  gosub _control_gunandbullet
  26.  gosub _control_enemies
  27.  
  28.  rem Update screen
  29.  sync
  30.  
  31. rem End loop
  32. loop
  33.  
  34. rem End program
  35. end
  36.  
  37. _control_player:
  38.  
  39. rem *ADDCODE* TUT5C
  40.  
  41. rem *ADDCODE* TUT5D
  42.  
  43. rem *ADDCODE* TUT5B
  44.  
  45. return
  46.  
  47. _control_gunandbullet:
  48. return
  49.  
  50. _control_enemies:
  51. return
  52.  
  53. _control_stats:
  54. return
  55.  
  56. _setup_game:
  57.  
  58.  rem Setup camera
  59.  set camera range 0.1,5000
  60.  autocam off
  61.  
  62.  rem Setup sky model
  63.  set object SkyObj,1,0,0,0,0,0,0
  64.  scale object SkyObj,20,20,20
  65.  
  66.  rem *ADDCODE* TUT5A
  67.  
  68. return
  69.  
  70. _load_game:
  71.  
  72.  rem Load BSP world and sky model
  73.  load bsp "world\ikzdm1.pk3","ikzdm1.bsp"
  74.  SkyObj=1 : load object "models\sky\am.x",SkyObj
  75.  
  76. return
  77.  
  78.