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