home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 311.lha / HAMmmm2 / load_mmm < prev    next >
Encoding:
Text File  |  1980-12-05  |  952 b   |  42 lines
  1. \ Load HAMmmm support files.
  2. exists? includes
  3. .if    getmodule includes
  4. .then
  5.  
  6. include? ..! ju:c_struct
  7. include? screen ji:intuition/intuition.j
  8. include? HAM ji:graphics/view.j
  9.  
  10. include? newwindow.setup ju:amiga_graph
  11. include? ?closebox ju:amiga_events
  12. include? newscreen.setup ju:screen_support
  13. include? choose ju:random
  14. include? { ju:locals
  15. include? ezmenu ju:amiga_menus
  16. include? allocraster() ju:graph_support
  17.  
  18. \ Load HMSL sound or stubs.
  19. .NEED SYS.INIT
  20. : SYS.INIT ;
  21. : SYS.TERM ;
  22. : SYS.RESET ;
  23. .THEN
  24.  
  25. exists? da.init not
  26. .IF cr ." Loading local sound or stubs."
  27.     cr ." Do you own HMSL?" y/n
  28. .ELSE false
  29. .THEN
  30. .IF ." Make sure HMSL assigns have been executed.!" cr
  31.     include? da.init h:amiga_sound
  32. .ELSE  include? da.init sound_stubs
  33. .THEN
  34.  
  35. \
  36. \ Load specific HAMmmm files
  37. include? task-mmm_screen mmm_screen
  38. include? task-mmm_menu mmm_menu
  39. include? task-mmm_draw mmm_draw
  40. include? task-mmm_sound mmm_sound
  41. include? task-mmm_control mmm_control
  42.