home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 26 / amigaformatcd26.iso / +system+ / +afcd_setup+ next >
AmigaDOS Script File  |  1998-03-03  |  2KB  |  97 lines
  1. .key DUMMY
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: +AFCD_Setup+ 2.2 (20.11.97)
  6. ; by Oliver Roberts
  7. ; edited by Errol 9.2.98
  8. ; further edited by Ben Vost 02.03.98
  9. ; even more editing by Errol 03.03.98
  10. ;;
  11. ; Amiga Format CD Setup Script
  12.  
  13. ;***********
  14. ; CD number
  15. ;
  16. Set cdnum 26
  17.  
  18. ;*************************
  19. ; Useful global variables
  20. ;
  21. Set reqtitle "*"Amiga Format CD$cdnum*""
  22.  
  23. ;******
  24. ; Init
  25. ;
  26. FailAt 21
  27. Resident >NIL: :C/RequestChoice FORCE
  28.  
  29. ;*************************
  30. ; Check if booted from CD
  31. ;
  32. If exists env:Choices_Run
  33.    RequestChoice >NIL: $reqtitle "You don't need to run this script if you have*nbooted from the CD" OK
  34.    Skip END
  35. EndIf
  36.  
  37. ;***************************************************************************
  38. ; Check to see if this script has already been run and remove assigns if so
  39. ;
  40. If exists ENV:AFCD_Assigns
  41.    Set choice `RequestChoice $reqtitle "Removing the assigns to Amiga Format CD$cdnum" OK Cancel`
  42.    If $choice EQ 1
  43.       Delete >NIL: ENV:AFCD_Assigns
  44.       Assign C:       CD:C remove
  45.       Assign S:       CD:S remove
  46.       Assign Libs:    CD:Libs remove
  47.       Assign Fonts:   CD:Fonts remove
  48.       Path CD:C remove
  49.       Assign CD: AFCD$cdnum: remove
  50.    EndIf
  51.    Skip END
  52. Endif
  53.  
  54. ;*************************
  55. ; Setup assigns and paths
  56. ;
  57.  
  58. ; Echo "Now setting up assigns for the Amiga Format CD$cdnum..."
  59.  
  60. SetENV AFCD_Assigns Yes!
  61. Assign CD: AFCD$cdnum: add
  62.  
  63. CD:c/AFCDView CD:s/disclaimer.iff >nil:
  64.  
  65. Assign C:       CD:C add
  66. Assign S:       CD:S add
  67. Assign Libs:    CD:Libs add
  68. Assign Fonts:   CD:Fonts add
  69. Path CD:C add
  70.  
  71. ; Check AFCDPrefs settings and startup chosen programs
  72. Resident >NIL: CD:C/CheckAFCDPrefs PURE
  73.  
  74. CheckAFCDPrefs
  75. If ERROR
  76.    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`
  77.    If $choice EQ 1
  78.       CD:+System+/Prefs/AFCDPrefs
  79.    EndIf
  80. EndIf
  81.  
  82. 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`
  83. If $choice EQ 1
  84.    sys:prefs/Font use CD:+System+/Prefs/FontPrefs
  85. EndIf
  86.  
  87. Resident >NIL: CheckAFCDPrefs REMOVE
  88.  
  89. EndIf
  90.  
  91. ;******
  92. ; Exit
  93. ;
  94. lab END
  95.  
  96. Resident >NIL: RequestChoice REMOVE
  97.