home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / RemoveCD < prev    next >
Text File  |  1999-11-28  |  1KB  |  46 lines
  1. ; AACD Removal Script
  2. ;
  3. ; Remove assigns and paths set by Welcome script
  4. ;
  5.  
  6. ; Only run RemoveCD if Welcome has been run
  7. Assign >NIL: AACD: EXISTS
  8. If WARN
  9.     Skip EJECT
  10.     EndIf
  11.  
  12. cd AACD:
  13. Set CDname `cd`
  14. set ReqTitle Amiga Active CD
  15. Execute AACD:CDTools/S/ThisCD REMOVE
  16.  
  17. ; Remove assigns
  18. Assign >NIL: DEVS:      AACD:System/Devs REMOVE
  19. Assign >NIL: Fonts:     AACD:System/Fonts REMOVE
  20. Assign >NIL: Libs:      AACD:System/Libs REMOVE
  21. Assign >NIL: L:         AACD:System/L REMOVE
  22. Assign >NIL: S:         AACD:CDTools/S REMOVE
  23. Assign >NIL: LIBS:      AACD:System/Classes REMOVE
  24.  
  25. Assign >NIL: HELP:      AACD:CDTools/MUI/Docs REMOVE
  26. Assign >NIL: Libs:      AACD:CDTools/MUI/Libs REMOVE
  27. Assign >NIL: LOCALE:    AACD:CDTools/MUI/Locale REMOVE
  28. Assign >NIL: MUI:       AACD:CDTools/MUI REMOVE
  29.  
  30. Failat 21
  31. Assign >NIL: ENV:       AACD:System/Prefs/Env-Archive REMOVE
  32. Assign >NIL: ENVARC:    AACD:System/Prefs/Env-Archive REMOVE
  33. Failat 10
  34.  
  35. Assign >NIL: AACD: REMOVE
  36. Avail >NIL: FLUSH
  37.  
  38. Lab EJECT
  39. set EjectYN `RequestChoice "Amiga Active CD" "CD assigns have been removed*NShould I eject the CD?" "Yes|No"`
  40.  
  41. If $EjectYN EQ 1
  42.     wait 1
  43.     :CDTools/Eject/Eject `get CDname`
  44.     Endif
  45.  
  46.