home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 21 / amigaformatcd21.iso / +afcd_setup+ < prev    next >
AmigaDOS Script File  |  1997-10-27  |  3KB  |  133 lines
  1. .key DUMMY
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: +AFCD_Setup+ 2.1 (25.10.97)
  6. ;
  7. ; Amiga Format CD Setup Script
  8.  
  9. ;***********
  10. ; CD number
  11. ;
  12. Set cdnum 21
  13.  
  14. ;*************************
  15. ; Useful global variables
  16. ;
  17. Set reqtitle "*"Amiga Format CD$cdnum*""
  18.  
  19. ;******
  20. ; Init
  21. ;
  22. FailAt 21
  23. Resident >NIL: :C/RequestChoice FORCE
  24.  
  25. ;*************************
  26. ; Check if booted from CD
  27. ;
  28. If exists env:Choices_Run
  29.    RequestChoice >NIL: $reqtitle "You don't need to run this script when you have*nbooted from the CD" OK
  30.    Skip END
  31. EndIf
  32.  
  33. ;***************************************************************************
  34. ; Check to see if this script has already been run and remove assigns if so
  35. ;
  36. If exists ENV:AFCD_Assigns
  37.    Set choice `RequestChoice $reqtitle "Removing the assigns to Amiga Format CD$cdnum" OK Cancel`
  38.    If $choice EQ 1
  39.       Delete >NIL: ENV:AFCD_Assigns
  40.       Assign C:     CD:C remove
  41.       Assign S:     CD:S remove
  42.       Assign Libs:  CD:Libs remove
  43.       Assign Fonts: CD:Fonts remove
  44.       Path CD:C remove
  45.       Assign CD: AFCD$cdnum: remove
  46.    EndIf
  47.    Skip END
  48. Endif
  49.  
  50. ;*************************
  51. ; Setup assigns and paths
  52. ;
  53.  
  54. ; Echo "Now setting up assigns for the Amiga Format CD$cdnum..."
  55.  
  56. SetENV AFCD_Assigns Yes!
  57. Assign CD: AFCD$cdnum: add
  58.  
  59. CD:c/AFCDView CD:s/disclaimer.iff >nil:
  60.  
  61. Assign C:     CD:C add
  62. Assign S:     CD:S add
  63. Assign Libs:  CD:Libs add
  64. Assign Fonts: CD:Fonts add
  65. Path CD:C add
  66.  
  67. ; Check AFCDPrefs settings and startup chosen programs
  68. Resident >NIL: CD:C/CheckAFCDPrefs PURE
  69.  
  70. CheckAFCDPrefs
  71. If ERROR
  72.    Set choice `RequestChoice $reqtitle "Would you like to run the AFCD preferences program?*n*nThis will allow you to preset your choices for this*nscript and your preferred file viewers." Yes No`
  73.    If $choice EQ 1
  74.       CD:+Look_here_1st!+/AFCDPrefs
  75.    EndIf
  76. EndIf
  77.  
  78. CheckAFCDPrefs FONTPREFS
  79. If ERROR
  80.    Set choice `RequestChoice $reqtitle "Would you like our font prefs run?*n*nThis will ensure that snapshotted icons look right*nand won't affect your permanent Workbench settings." Yes No`
  81.    If $choice EQ 1
  82.       sys:prefs/Font use CD:+Look_here_1st!+/Handy_Tools/FontPrefs
  83.    EndIf
  84. Else
  85.    CheckAFCDPrefs FONTPREFS
  86.    If WARN
  87.       sys:prefs/Font use CD:+Look_here_1st!+/Handy_Tools/FontPrefs
  88.    EndIf
  89. EndIf
  90.  
  91. CheckAFCDPrefs TOOLMAN
  92. If ERROR
  93.    Set choice `RequestChoice $reqtitle "Would you like to run ToolManager and ToolsDaemon?*n*nThey will give you added menus with some of the*nhighlights of AFCD$cdnum." Yes No`
  94.    If $choice EQ 1
  95.       run >nil: <nil: CD:+Look_here_1st!+/Handy_Tools/Toolmanager config cd:+Look_here_1st!+/Handy_Tools/tm.config
  96.       run >nil: <nil: CD:+Look_here_1st!+/Handy_Tools/toolsdaemon
  97.    EndIf
  98. Else
  99.    CheckAFCDPrefs TOOLMAN
  100.    If WARN
  101.       run >nil: <nil: CD:+Look_here_1st!+/Handy_Tools/Toolmanager config cd:+Look_here_1st!+/Handy_Tools/tm.config
  102.       run >nil: <nil: CD:+Look_here_1st!+/Handy_Tools/toolsdaemon
  103.    EndIf
  104. EndIf
  105.  
  106. CD:C/FoW newicon.library library
  107. If WARN
  108.    ; NewIcons not already running
  109.    CheckAFCDPrefs NEWICONS
  110.    If ERROR
  111.       Set choice `RequestChoice $reqtitle "Would you like to run NewIcons?*n*nThis will change the look of some of the icons on*nthe CD." Yes No`
  112.       If $choice EQ 1
  113.          run >nil: <nil: c:newicons
  114.       EndIf
  115.    Else
  116.       CheckAFCDPrefs NEWICONS
  117.       If WARN
  118.          run >nil: <nil: c:newicons
  119.       EndIf
  120.    EndIf
  121. EndIf
  122.  
  123. Resident >NIL: CheckAFCDPrefs REMOVE
  124.  
  125. EndIf
  126.  
  127. ;******
  128. ; Exit
  129. ;
  130. lab END
  131.  
  132. Resident >NIL: RequestChoice REMOVE
  133.